1. Use standard DLL:
long
tisfc.dll9010.generate.production.order( <parameters-list>)
2. Use DLL developed by me with an AFS code in it:
table ttisfc000
table ttisfc002
#pragma used
dll ottstpapihand
#pragma used
dll ottdllbw
function extern
domain tcpdno
tietc.dll0001.generate.lot(
domain tcpdno i.pdno,
domain tcpdno i.pdno,
domain tcitem i.item,
domain tcuef.effn i.effn,
domain tiqep1 i.qrdr,
ref
domain tcmcs.str100 o.error)
{
DllUsage
Expl : AFS to generate production
Pre : NA
Post : NA
Input :
i.pdno ->
Production Order Series
i.item ->
Main Item
i.effn -> Effectivity
Unit
i.qrdr ->
Quantity
Output :
o.error ->
Error Msg
Return : Production Order number of the generated production order
EndDllUsage
long retval
domain tcpdno v.pdno
retval = 0
o.error = ""
v.pdno = ""
retval =
tcmcs.dll0095.read.parm("tisfc000")
if retval or
isspace(tisfc000.ngpd) then
o.error =
"Error: Shop Floor control Parameters not maintained"
return("")
endif
select tisfc002.*
from tisfc002
where tisfc002._index1 = {:tisfc000.ngpd, :i.pdno(1;3)}
selectdo
selectempty
o.error =
"Error: Default Production Order Data not maintained"
return("")
endselect
stpapi.form.command("tisfc0101s000",
5, "exec.add.set",o.error)
if not isspace(o.error) then
return("")
endif
stpapi.put.field("tisfc0101s000",
"tisfc001.pdno", trim$(i.pdno))
stpapi.put.field("tisfc0101s000","tisfc001.mitm.segment.1","")
stpapi.put.field(
"tisfc0101s000", "tisfc001.mitm.segment.2", trim$(i.item))
stpapi.put.field("tisfc0101s000",
"tisfc001.qrdr", str$(i.qrdr))
stpapi.put.field("tisfc0101s000",
"tisfc001.clco", tisfc002.clco)
retval = stpapi.insert(
"tisfc0101s000", 1, o.error )
if not retval then
retval =
stpapi.recover("tisfc0101s000",o.error)
else
stpapi.form.command("tisfc0101s000",
2, "tisfc0105m000",o.error)
stpapi.form.command("tisfc0105m000",
5, "exec.add.set",o.error)
stpapi.put.field(
"tisfc0105m000", "tisfc005.dlin", str$(1))
stpapi.put.field(
"tisfc0105m000", "tisfc005.effn", str$(i.effn))
stpapi.put.field(
"tisfc0105m000", "tisfc005.qrdr", str$(i.qrdr))
retval =
stpapi.insert( "tisfc0105m000", 1, o.error )
if not retval
then
retval
= stpapi.recover("tisfc0105m000",o.error)
endif
stpapi.end.session("tisfc0105m000",
o.error)
stpapi.get.field("tisfc0101s000","tisfc001.pdno",v.pdno)
stpapi.form.command("tisfc0101s000",
5, "release.order",o.error)
endif
stpapi.end.session("tisfc0101s000",
o.error)
stpapi.end.session("tisfc0101m100",
o.error)
return(v.pdno)
}
