project QadFinancials > class BBankStateImport > method AdditionalUpdatesBankStatement

Description

AdditionalUpdatesBankStatement


Parameters


oiReturnStatusoutputintegerReturn status of the method.


Internal usage


QadFinancials
method BBankStateImport.AdditionalUpdates


program code (program7/bbankstateimport.p)

/***********************************************************************/
    /* check if there is and open instance of the BBankEntry Component     */        
    if viBBankEntryBSIID    <> 0 and
       viBBankEntryBSIID    <> ?
    then do:
        /***********************************************************************/
        /* Open the instance                                                   */
        <I-8 {bFcOpenInstance
            &CLASS           = "BBankEntry"}>
        /***********************************************************************/
    end. /* if viBBankEntryBSIID    <> 0 and */
    else do:
        /***********************************************************************/
        /* start the instance and open it                                      */
        <I-9 {bFcStartAndOpenInstance
            &ADD-TO-TRANSACTION = "true"
            &CLASS              = "BBankEntry"}>
        /***********************************************************************/                                      
    end. /* if viBBankEntryBSIID = 0 and */
    
    /***********************************************************************/
    /* Run the method ApiStdMaintainTT in the BBankEntry BC                */
    /* Purpose: assign the values in the TT to the BankState Table         */
   <M-10 run ApiCreateBankEntryFromImport
      (input  tApiBankStateBSI (tApiBankState), 
       input  tApiBankStateLineBSI (tApiBankStateLine), 
       input  tApiBankStateAllocBSI (tApiBankAlloc), 
       input  tApiBankStateAllocCollBSI (tApiBankStateAllocColl), 
       input  {&DAEMONACTION-SAVE} (icAction), 
       output vcLstPrimKey (ocLstPrimKey), 
       output vcLstReturn (ocLstReturn), 
       output vcLstRowid (ocLstRowId), 
       output viLocalReturnStatus (oiReturnStatus)) in BBankEntry>
    /***********************************************************************/
    /* Close the instance of BBankEntry                                    */
    <I-5 {bFcCloseInstance
            &CLASS           = "BBankEntry"}>
    /***********************************************************************/                       
    assign oiReturnStatus = viLocalReturnStatus.