Description
Add code here to initialize the calculated fields of a 'new' record (= a record that must be created in the application database) in a class temp-table.
Parameters
icTableName | input | character | Name of the database table of which a record is created in the class temp-table. |
oiReturnStatus | output | integer | |
Internal usage
unused
program code (program/bmfgcustomer.p)
<ANCESTOR-CODE>
if icTableName = "cm_mstr":U
then assign tcm_mstr.oid_cm_mstr = <M-74 GetNextOidValue () in BMfgCustomer>.
if vlAutoGenACEdit = ? then
do:
<Q-26 run PricingControlByDomain (all) (Read) (NoCache)
(input vcDomainCode, (Domain)
output dataset tqPricingControlByDomain) in BMfgPricingControl>
find first tqPricingControlByDomain where tqPricingControlByDomain.tcpic_domain = Vcdomaincode no-error.
if available tqPricingControlByDomain and
substring(tqPricingControlByDomain.tcpic__qadc01,1,1,"CHARACTER":U) = "Y"
then vlAutoGenACEdit = true.
else vlAutoGenACEdit = false.
end.