Description
Actions to take after writing current instance to the database, and before final commit of the transaction.
Use the field tc_status to test the status of the updated records:
'' = unchanged
'N' = new
'C' = changed
'D' = deleted
Parameters
oiReturnStatus | output | integer | |
Internal usage
unused
program code (program/bmfgcustomer.p)
<ANCESTOR-CODE>
if can-find(first tAutoGenCustList) then
do:
<M-9 run StartCacher
(output vhFcComponent (ohCacher),
output viLocalReturnStatus (oiReturnStatus)) in BMfgCustomer>
if viLocalReturnStatus <> 0 then assign oiReturnStatus = viLocalReturnStatus.
if viLocalReturnStatus < 0 then return.
<M-38 run GetIntegerValueFromSession
(input viSessionID (iiSessionId),
input 'MfgProMajorVersion' (icDataItemName),
output viMfgProMajorVersion (oiValue),
output viLocalReturnStatus (oiReturnStatus)) in Cacher>
if viLocalReturnStatus <> 0 then assign oiReturnStatus = viLocalReturnStatus.
if viLocalReturnStatus < 0 then return.
<M-48 run GetIntegerValueFromSession
(input viSessionID (iiSessionId),
input 'MfgProMinorVersion' (icDataItemName),
output viMfgProMinorVersion (oiValue),
output viLocalReturnStatus (oiReturnStatus)) in Cacher>
if viLocalReturnStatus <> 0 then assign oiReturnStatus = viLocalReturnStatus.
if viLocalReturnStatus < 0 then return.
if viMfgProMajorVersion > 3 /* Meaning eB3 */ or
(viMfgProMajorVersion = 3 /* Meaning eB3 */and
viMfgProMinorVersion >= 14 /* Meaning QAD 2014 EE */)
then do :
vhInOut = dataset tAutoGenCustList:handle.
<I-41 {bFcStartAndOpenInstance
&ADD-TO-TRANSACTION = "False"
&CLASS = "PMfgAnalysisCode"}>
<M-61 run AutoGenCustAC
(input-output vhInOut (bztAutoGenCustAC),
output viFcReturnSuper (oiReturnStatus)) in PMfgAnalysisCode>
<I-66 {bFcCloseAndStopInstance
&CLASS = "PMfgAnalysisCode"}>
end.
end.