project QadFinancials > class BReason > 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.

Assign default values for the Invoice Status fields such as Code, Description, Is Lock Payment, Is Active, Is Invoice Approved, Allocation Status, Is Logistic Matching and Is Initial Status.


Parameters


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


Internal usage


unused


program code (program/breason.p)

<ANCESTOR-CODE>

    /* ============== */
    /* initial values */
    /* ============== */
    assign tReason.ReasonCode               = "":U
           tReason.ReasonDescription        = "":U
           tReason.ReasonIsLockPayment      = false
           tReason.ReasonIsActive           = true
           tReason.ReasonIsInvoiceApproved  = false
           tReason.ReasonAllocationStatus   = "ANY":U
           tReason.ReasonIsLogisticMatching = false
           tReason.ReasonIsInitialStatus = false.