project QadFinancials > class BPaymentSelection > 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/bpaymentselection.p)

<ANCESTOR-CODE>

if icTableName = "PaySel":U
then assign tPaySel.Company_ID    = viCompanyId
            tPaySel.PaySelDate    = today
            tPaySel.ttPostingDate = today
            tPaySel.PaySelStatus  = {&PAYMENTSELECTIONSTATUS-INITIAL}
            tPaySel.tcCreditTR    = {&CREDITDEBITABBREVIATION-CREDIT-TR}
            tPaySel.tcDebitTR     = {&CREDITDEBITABBREVIATION-DEBIT-TR}
            tPaySel.tiNumDec      = viCompanyLCDec.
            
if icTableName = "PaySelHistory":U
then assign tPaySelHistory.Usr_ID     = viUsrId
            tPaySelHistory.tcUsrLogin = vcUserLogin.