tomlbacon
2nd December 2010, 18:25
I have a function I wrote for Baan V Confirm Pick List. I have a question on where should the synchronize.dialog be. I have it right before the form command.
function confirm.pick.list()
{
select whinh225.*
from whinh225
where whinh225.oorg = whinh.oorg.sales
and whinh225.orno = :orno.f
and whinh225.btno = :runnumber
and whinh225.rlsd = tcyesno.yes
and whinh225.shpc = tcyesno.no
selectdo
stpapi.put.field( "whinh2525m100", "whinh225.oorg", str$(etol (whinh.oorg.sales)) )
stpapi.put.field( "whinh2525m100", "whinh225.orno", str$(whinh225.orno))
stpapi.put.field( "whinh2525m100", "whinh225.oset", str$(whinh225.oset))
stpapi.put.field( "whinh2525m100", "whinh225.pono", str$(whinh225.pono))
stpapi.put.field( "whinh2525m100", "whinh225.seqn", str$(whinh225.seqn))
stpapi.put.field( "whinh2525m100", "whinh225.sern", str$(whinh225.sern))
stpapi.put.field( "whinh2525m100", "whinh225.acti", str$("CONF.PICKING.LIST"))
stpapi.put.field( "whinh2525m100", "whinh225.btno", str$(whinh225.btno))
stpapi.put.field( "whinh2525m100", "whinh225.cwar", str$(whinh225.cwar))
stpapi.put.field( "whinh2525m100", "whinh225.picm", str$(whinh225.picm))
stpapi.put.field( "whinh2525m100", "whinh225.lseq", str$(whinh225.lseq))
stpapi.put.field( "whinh2525m100", "whinh225.loca", str$(whinh225.loca))
stpapi.put.field( "whinh2525m100", "whinh225.loct", str$(whinh225.loct))
stpapi.put.field( "whinh2525m100", "whinh225.astr", str$(whinh225.astr))
stpapi.put.field( "whinh2525m100", "whinh225.atun", str$(whinh225.atun))
stpapi.find( "whinh2525m100" , err.msg)
stpapi.mark( "whinh2525m100", err.msg)
stpapi.synchronize.dialog("whinh2525m000", "modify", err.msg)
stpapi.form.command( "whinh2525m100", 5, "confirm.advice.lines", err.msg)
stpapi.update( "whinh2525m100", do.save, err.msg )
stpapi.end.session( "whinh2525m100" , err.msg)
stpapi.end.session( "whinh2525m000" , err.msg)
stpapi.end.session( "whinh2525s100" , err.msg)
endselect
}
Thanks,
Tom Bacon
function confirm.pick.list()
{
select whinh225.*
from whinh225
where whinh225.oorg = whinh.oorg.sales
and whinh225.orno = :orno.f
and whinh225.btno = :runnumber
and whinh225.rlsd = tcyesno.yes
and whinh225.shpc = tcyesno.no
selectdo
stpapi.put.field( "whinh2525m100", "whinh225.oorg", str$(etol (whinh.oorg.sales)) )
stpapi.put.field( "whinh2525m100", "whinh225.orno", str$(whinh225.orno))
stpapi.put.field( "whinh2525m100", "whinh225.oset", str$(whinh225.oset))
stpapi.put.field( "whinh2525m100", "whinh225.pono", str$(whinh225.pono))
stpapi.put.field( "whinh2525m100", "whinh225.seqn", str$(whinh225.seqn))
stpapi.put.field( "whinh2525m100", "whinh225.sern", str$(whinh225.sern))
stpapi.put.field( "whinh2525m100", "whinh225.acti", str$("CONF.PICKING.LIST"))
stpapi.put.field( "whinh2525m100", "whinh225.btno", str$(whinh225.btno))
stpapi.put.field( "whinh2525m100", "whinh225.cwar", str$(whinh225.cwar))
stpapi.put.field( "whinh2525m100", "whinh225.picm", str$(whinh225.picm))
stpapi.put.field( "whinh2525m100", "whinh225.lseq", str$(whinh225.lseq))
stpapi.put.field( "whinh2525m100", "whinh225.loca", str$(whinh225.loca))
stpapi.put.field( "whinh2525m100", "whinh225.loct", str$(whinh225.loct))
stpapi.put.field( "whinh2525m100", "whinh225.astr", str$(whinh225.astr))
stpapi.put.field( "whinh2525m100", "whinh225.atun", str$(whinh225.atun))
stpapi.find( "whinh2525m100" , err.msg)
stpapi.mark( "whinh2525m100", err.msg)
stpapi.synchronize.dialog("whinh2525m000", "modify", err.msg)
stpapi.form.command( "whinh2525m100", 5, "confirm.advice.lines", err.msg)
stpapi.update( "whinh2525m100", do.save, err.msg )
stpapi.end.session( "whinh2525m100" , err.msg)
stpapi.end.session( "whinh2525m000" , err.msg)
stpapi.end.session( "whinh2525s100" , err.msg)
endselect
}
Thanks,
Tom Bacon