Parameters
oiReturnStatus | output | integer | Return 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.