Parameters
icExportType | input | character | |
iiDCollectionId | input | integer | |
ilDuplicate | input | logical | |
itSpilDate | input | date | |
tExport | output | temp-table | |
oiReturnStatus | output | integer | Return status of the method. |
Internal usage
unused
program code (program5/bdcollection.p)
empty temp-table tExport.
/*
case icExportType:
when {&DCOLLECTIONEXPORTTYPE-DOM80}
then do:
<M-1 run ExportDOM80 (input iiDCollectionId (iiDCollectionId),
input ilDuplicate (ilDuplicate),
input itSpilDate (itSpilDate),
output viFcReturnSuper (oiReturnStatus)) in BDCollection>
if viFcReturnSuper < 0 or
oiReturnStatus = 0
then assign oiReturnStatus = viFcReturnSuper.
if oiReturnStatus < 0
then return.
end.
when {&DCOLLECTIONEXPORTTYPE-CLIEOP03}
then do:
<M-2 run ExportCLIEOP03 (input iiDCollectionId (iiDCollectionId),
input ilDuplicate (ilDuplicate),
input itSpilDate (itSpilDate),
output viFcReturnSuper (oiReturnStatus)) in BDCollection>
if viFcReturnSuper < 0 or
oiReturnStatus = 0
then assign oiReturnStatus = viFcReturnSuper.
if oiReturnStatus < 0
then return.
end.
when {&DCOLLECTIONEXPORTTYPE-XML}
then do:
<M-5 run ExportXml (input iiDCollectionId (iiDCollectionId),
input ilDuplicate (ilDuplicate),
input itSpilDate (itSpilDate),
output viFcReturnSuper (oiReturnStatus)) in BDCollection>
if viFcReturnSuper < 0 or
oiReturnStatus = 0
then assign oiReturnStatus = viFcReturnSuper.
if oiReturnStatus < 0
then return.
end.
when {&DCOLLECTIONEXPORTTYPE-BOR} or
when {&DCOLLECTIONEXPORTTYPE-LCR}
then do:
<M-3 run ExportLCRBOR (input iiDCollectionId (iiDCollectionId),
input itSpilDate (itSpilDate),
input icExportType (icFileFormat),
output viFcReturnSuper (oiReturnStatus)) in BDCollection>
if viFcReturnSuper < 0 or
oiReturnStatus = 0
then assign oiReturnStatus = viFcReturnSuper.
if oiReturnStatus < 0
then return.
end.
OTHERWISE do:
<M-6 run ExportXml (input iiDCollectionId (iiDCollectionId),
input ilDuplicate (ilDuplicate),
input itSpilDate (itSpilDate),
output viFcReturnSuper (oiReturnStatus)) in BDCollection>
if viFcReturnSuper < 0 or
oiReturnStatus = 0
then assign oiReturnStatus = viFcReturnSuper.
if oiReturnStatus < 0
then return.
end.
end.
*/
<M-7 run BuildProDataSet
(input iiDCollectionId (iiCollectionID),
output vhProdataSet (ohDset),
output viFcReturnSuper (oiReturnStatus)) in BDCollection>
if viFcReturnSuper < 0 or (viFcReturnSuper>0 and oiReturnStatus = 0)
then assign oiReturnStatus = viFcReturnSuper.
if oiReturnStatus < 0 or not valid-handle(vhProdataSet)
then do:
<M-10 run SetMessage
(input #T-10'ProDataSet build failed. Ensure Create PaymentSelection is functioning correctly.':200(59525)t-10# (icMessage),
input vhProdataSet (icArguments),
input '':U (icFieldName),
input '':U (icFieldValue),
input 'E':U (icType),
input 3 (iiSeverity),
input '':U (icRowid),
input 'QadFin-6037':U (icFcMsgNumber),
input '':U (icFcExplanation),
input '':U (icFcIdentification),
input '':U (icFcContext),
output viFcReturnSuper (oiReturnStatus)) in BDCollection>
assign oiReturnStatus = -1.
return.
end.
if viPEDI7ID = 0 or viPEDI7ID = ?
then do:
<I-11 {bFcStartAndOpenInstance
&CLASS = "PEDI"}>
end.
else do:
<I-12 {bFcOpenInstance
&CLASS = "PEDI"}>
end.
<M-13 run ExecuteEDI
(input-output vhProdataSet (bzProDataSet),
input 'ARBankPayment':U (icSubSystemName),
output viFcReturnSuper (oiReturnStatus)) in PEDI>
if viFcReturnSuper < 0 or (viFcReturnSuper>0 and oiReturnStatus = 0)
then assign oiReturnStatus = viFcReturnSuper.
if viFcReturnSuper < 0
then do:
<M-14 run SetMessage
(input #T-11'EDI processing error: you must ensure that the bank file format you use has been defined and that the transaction code mapping is correct.':200(59529)t-11# (icMessage),
input '':U (icArguments),
input '':U (icFieldName),
input '':U (icFieldValue),
input 'E':U (icType),
input 3 (iiSeverity),
input '':U (icRowid),
input 'QadFin-6039':U (icFcMsgNumber),
input '':U (icFcExplanation),
input '':U (icFcIdentification),
input '':U (icFcContext),
output viFcReturnSuper (oiReturnStatus)) in BDCollection>
<I-15 {bFcCloseAndStopInstance
&CLASS = "PEDI"}>
if valid-handle(vhProdataSet)
then do:
delete object vhProdataSet.
end.
assign oiReturnStatus = -1.
return.
end.
<I-16 {bFcCloseAndStopInstance
&CLASS = "PEDI"}>
if valid-handle(vhProdataSet)
then do:
delete object vhProdataSet.
end.