deepaksachdeva
11th August 2008, 20:39
Hi,
While Posting qty thru AFS of session tisfc0520m000/tisfc0120s000, system does't react. can someone help me out ?
Code is pasted below:
stpapi.put.field("tisfc0520m000", "tisfc001.pdno", tisfc904.pdno)
ret1 = stpapi.find("tisfc0520m000", error)
if ret1 then
ret2 = stpapi.synchronize.dialog("tisfc0520m000", "modify", error)
if ret2 then
stpapi.put.field("tisfc0120s000", "tisfc001.qtdl", str$(tisfc904.cqty))
stpapi.enum.answer("tisfc0120s000", "tisfc01021", tcyesno.yes)
stpapi.enum.answer("tisfc0120s000", "tisfc01022", tcyesno.yes)
stpapi.enum.answer("tisfc0120s000", "tisfc02029", tcyesno.yes)
stpapi.set.report( "tisfc0120s000","rwhinh341211100", "D", error )
ret3 = stpapi.update( "tisfc0120s000", true, error)
stpapi.enum.answer("tisfc0520m000", "tisfc02023", tcyesno.yes)
ret3 = stpapi.update( "tisfc0520m000", true, error)
| suspend(10000)
endif
endif
stpapi.end.session("tisfc0520m000", error)
While Posting qty thru AFS of session tisfc0520m000/tisfc0120s000, system does't react. can someone help me out ?
Code is pasted below:
stpapi.put.field("tisfc0520m000", "tisfc001.pdno", tisfc904.pdno)
ret1 = stpapi.find("tisfc0520m000", error)
if ret1 then
ret2 = stpapi.synchronize.dialog("tisfc0520m000", "modify", error)
if ret2 then
stpapi.put.field("tisfc0120s000", "tisfc001.qtdl", str$(tisfc904.cqty))
stpapi.enum.answer("tisfc0120s000", "tisfc01021", tcyesno.yes)
stpapi.enum.answer("tisfc0120s000", "tisfc01022", tcyesno.yes)
stpapi.enum.answer("tisfc0120s000", "tisfc02029", tcyesno.yes)
stpapi.set.report( "tisfc0120s000","rwhinh341211100", "D", error )
ret3 = stpapi.update( "tisfc0120s000", true, error)
stpapi.enum.answer("tisfc0520m000", "tisfc02023", tcyesno.yes)
ret3 = stpapi.update( "tisfc0520m000", true, error)
| suspend(10000)
endif
endif
stpapi.end.session("tisfc0520m000", error)