project QadFinancials > class BMfgEndUser > method MaintainData


Parameters


tDebtorEndUserinputtemp-table
iiBusinessRelationInstanceIDinputinteger
oiReturnStatusoutputintegerReturn status of the method.


Internal usage


unused


program code (program1/bmfgenduser.p)

/* Set the return status to system error (-98) */
assign 
   oiReturnStatus = -98.  
   
/* Store the instance id for the Business relation instance */
assign viBBusinessRelationMfgEndUserID = iiBusinessRelationInstanceID.   

/*
* Execute the ProcessMaintainData method to execute the generic processing 
* of the update in the Financials across to the MFG/PRO database.
*/
<M-4 run ClearData (output viFcReturnSuper (oiReturnStatus)) in BMfgEndUser>
if viFcReturnSuper <> 0 then assign oiReturnStatus = viFcReturnSuper.
if viFcReturnSuper < 0 then return.

<M-2 run ProcessMaintainData (output viFcReturnSuper (oiReturnStatus)) in BMfgEndUser>
if viFcReturnSuper <> 0 then assign oiReturnStatus = viFcReturnSuper.
if viFcReturnSuper < 0 then return.

<M-3 run ProcessMaintainDataSave (output viFcReturnSuper (oiReturnStatus)) in BMfgEndUser>
if viFcReturnSuper <> 0 then assign oiReturnStatus = viFcReturnSuper.
if viFcReturnSuper < 0 then return.

/*
* Set the return status to success and return 
*/
if oireturnStatus = -98 
then assign oiReturnStatus = 0.