Hi everyone,

I am writing AFS For Maintain outbound system by item(tdilc0232m000)

and want to change the outbound priority where some items outbound priority is by location but there are some records as fifo in inventory data for that standard session send a report "Maintain outbound priority error report"

i am trying to convert the priority from by location to fifo and then again fifo to by location to remove the fifo based inventory data

however i am not getting success either in case of saving the data as well as report generation..

here is the script attached.
****************************
function outbound.priority.1()
{
stpapi.put.field( "tdilc0232m000", "cprj.f", "" )
stpapi.put.field( "tdilc0232m000", "cprj.t", "ZZZZZZ" )
stpapi.put.field( "tdilc0232m000", "item.f", str$(item))
stpapi.put.field( "tdilc0232m000", "item.t", str$(item))
stpapi.put.field( "tdilc0232m000", "citg.f", "" )
stpapi.put.field( "tdilc0232m000", "citg.t", "ZZZZZZ" )
stpapi.put.field( "tdilc0232m000", "obpr.f", str$(etol(tcobpr.loca)) )
stpapi.put.field( "tdilc0232m000", "obpr.t", str$(etol(tcobpr.fifo)) )
stpapi.continue.process( "tdilc0232m000",error)
stpapi.set.report("tdilc0232m000","rtdilc023201000","S",err.mesg)
if isspace(err.mesg) then
stpapi.print.report("tdilc0232m000",err.mesg)
endif

stpapi.end.session( "tdilc0232m000" )

}
function outbound.priority.2()
{
stpapi.put.field( "tdilc0232m000", "cprj.f", "" )
stpapi.put.field( "tdilc0232m000", "cprj.t", "ZZZZZZ" )
stpapi.put.field( "tdilc0232m000", "item.f", str$(item))
stpapi.put.field( "tdilc0232m000", "item.t", str$(item))
stpapi.put.field( "tdilc0232m000", "citg.f", "" )
stpapi.put.field( "tdilc0232m000", "citg.t", "ZZZZZZ" )
stpapi.put.field( "tdilc0232m000", "obpr.f", str$(etol(tcobpr.fifo)) )
stpapi.put.field( "tdilc0232m000", "obpr.t", str$(etol(tcobpr.loca)) )
stpapi.continue.process( "tdilc0232m000",error)
stpapi.set.report("tdilc0232m000","rtdilc023201000","XL",err.mesg)
if isspace(err.mesg) then
stpapi.print.report("tdilc0232m000",err.mesg)
endif

stpapi.end.session( "tdilc0232m000" )

}

please help me to solve this problem

Regards
Nitesh

Hi,

I have come out of problem finally here is the final code which is working fine

rprt_log = creat.tmp.file$(bse.tmp.dir$())
stpapi.put.field( "tdilc0232m000", "cprj.f", "" )
stpapi.put.field( "tdilc0232m000", "cprj.t", "ZZZZZZ" )
stpapi.put.field( "tdilc0232m000", "item.f", str$(item))
stpapi.put.field( "tdilc0232m000", "item.t", str$(item))
stpapi.put.field( "tdilc0232m000", "citg.f", "" )
stpapi.put.field( "tdilc0232m000", "citg.t", "ZZZZZZ" )
stpapi.put.field( "tdilc0232m000", "obpr.f", str$(etol(tcobpr.loca)) )
stpapi.put.field( "tdilc0232m000", "obpr.t", str$(etol(tcobpr.fifo)) )
stpapi.put.field("tdilc0232m000","spool.fileout",rprt_log)
stpapi.set.report("tdilc0232m000","rtdilc023201000","S",err.mesg)
stpapi.continue.process( "tdilc0232m000",error)

if isspace(error) then
stpapi.end.session( "tdilc0232m000" )
else
stpapi.recover("tdilc0232m000",error)
endif

Thanks

Regards
Nitesh