project QadFinancials > class PMFGPendingVoucher > method UpdatePvoMstr


Parameters


tUpdatePvoMstrinputtemp-table
oiReturnStatusoutputintegerReturn status of the method.


Internal usage


QadFinancials
method BERSProcessor.ERSProcessFinishPvo


program code (program1/pmfgpendingvoucher.p)

if oiReturnStatus = 0 then
    assign oiReturnStatus = -98.



assign  vhIn    = ?
        vhInOut = dataset tUpdatePvoMstr:handle
        vhOut   = ?.

<M-46 run CallService
   (input  vcDefaultMfgProgram (icProgramName), 
    input  'UpdatePvoMstrForERS':U (icMethodName), 
    input  vhIn (izInput), 
    input-output vhInOut (bzInputOutput), 
    input-output vhOut (bzOutput), 
    input  ? (icAsyncHandler), 
    output viFcReturnSuper (oiReturnStatus)) in PMFGPendingVoucher>
    
if viFcReturnSuper <> 0 then 
    assign oiReturnStatus = viFcReturnSuper.

for first tUpdatePvoMstr where tUpdatePvoMstr.tiERSStatus < 0 and tUpdatePvoMstr.tiERSStatus <> -98:
    assign oiReturnStatus = -1.
end. /* for first...*/

if oiReturnStatus = -98 then
    assign oiReturnStatus = 0.
    
delete object vhInOut.