project QadFinancials > class BMfgCustomer > method InitialValues

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


icTableNameinputcharacterName of the database table of which a record is created in the class temp-table.
oiReturnStatusoutputinteger


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.