project QadFinancials > class PMFGLegalDocument > method UpdateLDPostStatus

Description

Method used to call the operational API for legal documents. Calls the procedure UpdateLDPostStatus.


Parameters


icDomainCodeinputcharacterInput parameter: Domain Code.
icShipFrominputcharacterInput parameter: Ship from code.
icLegalDocumentNumberinputcharacterInput parameter: legal document number.
itEffectiveDateinputdateInput parameter: Effective date.
ilPostStatusinputlogicalInput parameter: Post status.
oiReturnStatusoutputintegerReturn status of the method.


Internal usage


unused


program code (program1/pmfglegaldocument.p)

if oiReturnStatus = 0 then
    assign oiReturnStatus = -98.

create tLegalDocPost.
assign tLegalDocPost.tcDomainCode   = icDomainCode
       tLegalDocPost.tcLegalDocNbr  = icLegalDocumentNumber
       tLegalDocPost.tcShipFrom     = icShipFrom
       tLegalDocPost.ttEffDate      = itEffectiveDate
       tLegalDocPost.tlPostStatus   = ilPostStatus
       tLegalDocPost.tiReturnStatus = 0.

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

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

for first tLegalDocPost:
    assign oiReturnStatus = tLegalDocPost.tiReturnStatus.
end. /* for first...*/

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