project QadFinancials > class BDInvoice > method CancelTax


Parameters


oiReturnStatusoutputintegerReturn status of the method.


Internal usage


unused


program code (program1/bdinvoice.p)

assign oiReturnStatus = 0.

if viPGTM10ID = 0 or
   viPGTM10ID = ?
then do:   
    <I-33 {bFcStartAndOpenInstance
         &CLASS                = "PGTM"}> 
end.
else do:
    <I-80 {bFcOpenInstance
         &CLASS           = "PGTM"}> 
end.

<M-77 run CancelTax
   (input  tDInvoiceAvaCancelTaxRequest (tAvaCancelTaxRequest), 
    output tDinvoiceAvaReturnMessage (tAvaReturnMessage), 
    output viFcReturnSuper (oiReturnStatus)) in PGTM> 
    
if viFcReturnSuper <> 0
    then assign oiReturnStatus = viFcReturnSuper. 
    
<I-67 {bFcCloseInstance
     &CLASS           = "PGTM"}>  

for each tDInvoiceAvaReturnMessage:
        
    assign vcMessage = tDInvoiceAvaReturnMessage.tcMsgSummary + ' [' + 
                                            tDInvoiceAvaReturnMessage.tcMsgRefersTo + ']' + chr(10) +
                                            tDInvoiceAvaReturnMessage.tcMsgDetails.
    
    if tDinvoiceAvaReturnMessage.tcMsgSeverity = {&MESSAGE-WARNING}
    then do:
        assign oiReturnStatus = 1.
        <M-20 run SetMessage
           (input  vcMessage (icMessage), 
            input  '':U (icArguments), 
            input  '':U (icFieldName), 
            input  '':U (icFieldValue), 
            input  'W':U (icType), 
            input  3 (iiSeverity), 
            input  '':U (icRowid), 
            input  'qadfin-868026':U (icFcMsgNumber), 
            input  '':U (icFcExplanation), 
            input  '':U (icFcIdentification), 
            input  '':U (icFcContext), 
            output viFcReturnSuper (oiReturnStatus)) in BDInvoice>
    end. /* if tDinvoiceAvaReturnMessage.tcMsgSeverity */
    else do:
        assign oiReturnStatus = -1.                              
        <M-35 run SetMessage
           (input  vcMessage (icMessage), 
            input  '':U (icArguments), 
            input  '':U (icFieldName), 
            input  '':U (icFieldValue), 
            input  'E':U (icType), 
            input  2 (iiSeverity), 
            input  '':U (icRowid), 
            input  'qadfin-335409':U (icFcMsgNumber), 
            input  '':U (icFcExplanation), 
            input  '':U (icFcIdentification), 
            input  '':U (icFcContext), 
            output viFcReturnSuper (oiReturnStatus)) in BDInvoice>  
     end. /* else do */               
end. /* for each tDInvoiceAvaReturnMessage */

if viFcReturnSuper <> 0
    then assign oiReturnStatus = viFcReturnSuper.