method DefaultValuesInvoiceDate

Description

Called when the Invoice Date changes - sets up any defaults related to the date

Parameters

itDInvoiceDate	input	date
icNormalPaymentConditionCode	input	character
icDInvoiceRowID	input	character
idDInvoiceOriginalTC	input	decimal
icCurrencyCode	input	character
ocPaymentConditionPaymentType	output	character
otDInvoiceDueDate	output	date
otDInvoiceDiscountDueDate	output	date
tApiDInvoiceStage	output	temp-table
oiReturnStatus	output	integer	Return status of the method.

Internal usage

unused

program code (program3/bdinvoice.p)

if itDInvoiceDate = ?
then return.

<M-1 run DefaultValuesPaymentCondition
   (input  icNormalPaymentConditionCode (icPaymentConditionCode), 
    input  ? (iiPaymentConditionID), 
    input  itDInvoiceDate (itDInvoiceDate), 
    input  icDInvoiceRowID (icDInvoiceRowID), 
    input  idDInvoiceOriginalTC (idDInvoiceOriginalTC), 
    input  icCurrencyCode (icCurrencyCode), 
    input  ? (icPaymentConditionPaymentType), 
    input  ? (icPaymentConditionPeriodType), 
    input  ? (itPaymentConditionBaseDate), 
    input  ? (iiPaymentConditionDaysMonths), 
    input  ? (iiPaymentconditionSupplDays), 
    input  ? (iiPaymentConditionBaseDays), 
    input  ? (iiPaymentConditionDueDays), 
    input  ? (icPaymentConditionDescription), 
    input  ? (idPaymentConditionPercentage), 
    input  ? (icPaymentConditionPdtypediscount), 
    input  ? (iiPaymentConditionDayMthsDisc), 
    input  ? (iiPaymentConditionSupDaysDisc), 
    output ocPaymentConditionPaymentType (ocPaymentConditionPaymentType), 
    output otDInvoiceDueDate (otDInvoiceDueDate), 
    output otDInvoiceDiscountDueDate (otDInvoiceDiscountDueDate), 
    output tApiDInvoiceStage (tApiDInvoiceStage), 
    output viFcReturnSuper (oiReturnStatus)) in BDInvoice>
if viFcReturnSuper < 0 or oiReturnStatus  = 0
then assign oiReturnStatus = viFcReturnSuper.
if oiReturnStatus < 0 then return.