project QadFinancials > class BBankImportLine > method ValidateBCAndAdditionalUpdates
Description
This method does validation and additional updates before saving data into database.
Parameters
| oiReturnStatus | output | integer | Return status of the method. |
Internal usage
QadFinancials
program code (program1/bbankimportline.p)
assign oiReturnStatus = -98.
/* the method will be called by many methods. BDDocument and BBankEntry parts may be not needed to be executed
every time.
Currently, it only will be validate in banking processing incoming files.
we need to different them.
,*/
if vlIsStartFromSaveAndProcess then
do:
if viBDDocumentBankImpLineID <> 0 and viBDDocumentBankImpLineID <> ? then
do:
<M-14 run SetExternalUniqueIDForSetMessage
(input true (ilUseExternalUID),
output oiReturnStatus (oiReturnStatus)) in BDDocument>
<M-31 run ValidateBCAndAdditionalUpdates (output viExternalReturnStatus (oiReturnStatus)) in BDDocument>
if viExternalReturnStatus <> 0 then assign oiReturnStatus = viExternalReturnStatus.
if viExternalReturnStatus < 0 then
do:
assign oiReturnStatus = viExternalReturnStatus.
return.
end.
end.
if viBBankEntryID <> 0 and viBBankEntryID <> ? then
do:
<M-96 run SetExternalUniqueIDForSetMessage
(input true (ilUseExternalUID),
output oiReturnStatus (oiReturnStatus)) in BBankEntry>
<M-67 run ValidateBCAndAdditionalUpdates (output viExternalReturnStatus (oiReturnStatus)) in BBankEntry>
if viExternalReturnStatus <> 0 then assign oiReturnStatus = viExternalReturnStatus.
if viExternalReturnStatus < 0 then
do:
assign oiReturnStatus = viExternalReturnStatus.
return.
end.
end.
if viBCDocumentBankImpLineID <> 0 and viBCDocumentBankImpLineID <> ? then
do:
<M-89 run SetExternalUniqueIDForSetMessage
(input true (ilUseExternalUID),
output oiReturnStatus (oiReturnStatus)) in BCDocument>
<M-18 run ValidateBCAndAdditionalUpdates
(output vcDomainCode (ocCreatedPrePaymentForPaySel),
output viExternalReturnStatus (oiReturnStatus)) in BCDocument>
if viExternalReturnStatus <> 0 then assign oiReturnStatus = viExternalReturnStatus.
if viExternalReturnStatus < 0 then
do:
assign oiReturnStatus = viExternalReturnStatus.
return.
end.
end.
end.
<M-1 run ValidateBC (output viFcReturnSuper (oiReturnStatus)) in BBankImportLine>
if viFcReturnSuper <> 0 then assign oiReturnStatus = viFcReturnSuper.
if viFcReturnSuper < 0 then
do:
assign oiReturnStatus = viFcReturnSuper.
return.
end.
<M-2 run AdditionalUpdates (output viFcReturnSuper (oiReturnStatus)) in BBankImportLine>
if viFcReturnSuper <> 0 then assign oiReturnStatus = viFcReturnSuper.
if viFcReturnSuper < 0 then
do:
assign oiReturnStatus = viFcReturnSuper.
return.
end.
if oiReturnStatus < 0 then assign oiReturnStatus = 0.