project QadFinancials > class BDCollection > method Export

Parameters

Internal usage

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.