project QadFinancials > class BMfgNumberRangeManagement > method MaintainData

Description

Allow new Nrm record to be created


Parameters


tJournalBookinputtemp-table
oiReturnStatusoutputintegerReturn status of the method.


Internal usage


QadFinancials
method BJournal.AdditionalUpdates


program code (program1/bmfgnrm.p)

/* ====================================================== */
    /* Set the return status to unexpected system error (-98) */
    /* ====================================================== */
    assign oiReturnStatus = -98.
    
    /* =============================================================================================== */
    /* Execute the ProcessMaintainData method to execute the generic processing of the update in the   */
    /* Financials across to the MFG/PRO database. (this method can be called from within a Loop)       */
    /* First: clear the instance                                                                       */
    /* Last: call ProcessMaintainDataSave to save the data                                             */
    /* =============================================================================================== */
    <M-3 run ClearData (output viFcReturnSuper (oiReturnStatus)) in BMfgNRM>
    if viFcReturnSuper <> 0 then assign oiReturnStatus = viFcReturnSuper.
    if viFcReturnSuper < 0 then Return.
    <M-4 run ProcessMaintainData (output viFcReturnSuper (oiReturnStatus)) in BMfgNRM>
    if viFcReturnSuper <> 0 then assign oiReturnStatus = viFcReturnSuper.
    if viFcReturnSuper < 0 then Return.
    <M-5 run ProcessMaintainDataSave (output viFcReturnSuper (oiReturnStatus)) in BMfgNRM>
    if viFcReturnSuper <> 0 then assign oiReturnStatus = viFcReturnSuper.
    if viFcReturnSuper < 0 then Return.
        
    /* ======================== */
    /* Set ReturnStatus = OK    */
    /* ======================== */
    if oiReturnStatus = -98
    then assign oiReturnStatus = 0.