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/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.