project QadFinancials > class BPaymentCondition > 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/bpaymentcondition.p)

<ANCESTOR-CODE>

    assign tPaymentCondition.PaymentConditionCode        = "":U
           tPaymentCondition.PaymentConditionDescript    = "":U
           tPaymentCondition.PaymentConditionPaymentTyp  = {&PAYMENTCONDITIONPAYMENTTYPE-NORMAL}
           tPaymentCondition.PaymentConditionPercentage  = 0
           tPaymentCondition.PaymentConditionPeriodType  = {&PAYMENTCONDITIONPERIODTYPE-DAYS}
           tPaymentCondition.PaymentConditionDaysMonths  = 0
           tPaymentCondition.PaymentConditionSupplDays   = 0
           tPaymentCondition.PaymentConditionGraceDay    = 0
           tPaymentCondition.PaymentConditionLateInt     = 0
           tPaymentCondition.PaymentConditionDueDays     = 0            
           tPaymentCondition.PaymentConditionBaseDays    = 0
           tPaymentCondition.PaymentConditionTermsInt    = 0
           tPaymentCondition.PaymentConditionPdDiscType  = {&PAYMENTCONDITIONPERIODTYPE-DAYS}
           tPaymentCondition.PaymentConditionDayMthDisc  = 0
           tPaymentCondition.PaymentConditionSupDayDisc  = 0
           tPaymentCondition.PaymentConditionIsActive    = true.