Description
Allow new Nrm record to be created
Parameters
tJournalBook | input | temp-table | |
oiReturnStatus | output | integer | Return status of the method. |
Internal usage
QadFinancials
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.