method DefaultValuesInvoiceDate

Parameters

itCInvoiceDate	input	date
itCInvoicePostingDate	input	date
icNormalPaymentConditionCode	input	character
icCInvoiceRowID	input	character
idCInvoiceOriginalTC	input	decimal
icCurrencyCode	input	character
icOwnVatCurrencyCode	input	character
itCInvoiceTaxPointDate	input	date
ocPaymentConditionPaymentType	output	character
otCInvoiceDueDate	output	date
otCInvoiceDiscountDueDate	output	date
tApiCInvoiceStage	output	temp-table
odCInvoiceExchangeRate	output	decimal
odCInvoiceRateScale	output	decimal
odCInvoiceVatExchangeRate	output	decimal
odCInvoiceVatRateScale	output	decimal
odCInvoiceCCExchangeRate	output	decimal
odCInvoiceCCRateScale	output	decimal
oiReturnStatus	output	integer	Return status of the method.

Internal usage

unused

program code (program3/bcinvoice.p)

if itCInvoiceDate = ?
then return.

if itCInvoicePostingDate = ?
then return.

<M-2 run DefaultValuesPaymentCondition
   (input  icNormalPaymentConditionCode (icPaymentConditionCode), 
    input  ? (iiPaymentConditionID), 
    input  itCInvoiceDate (itCInvoiceDate), 
    input  icCInvoiceRowID (icCInvoiceRowID), 
    input  idCInvoiceOriginalTC (idCInvoiceOriginalTC), 
    input  icCurrencyCode (icCurrencyCode), 
    input  false (ilCInvoiceIsTaxExcluded), 
    input  ? (icPaymentConditionPaymentType), 
    input  ? (icPaymentConditionPeriodType), 
    input  ? (itPaymentConditionBaseDate), 
    input  ? (iiPaymentConditionDaysMonths), 
    input  ? (iiPaymentConditionSupplDays), 
    input  ? (iiPaymentConditionBaseDays), 
    input  ? (iiPaymentConditionDueDays), 
    input  ? (icPaymentConditionDescript), 
    input  ? (idPaymentConditionPercentage), 
    input  ? (icPaymentConditionPdtypediscount), 
    input  ? (iiPaymentConditionDayMthsDisc), 
    input  ? (iiPaymentConditionSupDaysDisc), 
    output ocPaymentConditionPaymentType (ocPaymentConditionPaymentType), 
    output otCInvoiceDueDate (otCInvoiceDueDate), 
    output otCInvoiceDiscountDueDate (otCInvoiceDiscountDueDate), 
    output tApiCInvoiceStage (tApiCInvoiceStage), 
    output viFcReturnSuper (oiReturnStatus)) in BCInvoice>
    
if viFcReturnSuper < 0 or (viFcReturnSuper > 0 and oiReturnStatus = 0)        
then assign oiReturnStatus = viFcReturnSuper.
if oiReturnStatus < 0
then return.   
    
find tCInvoice where 
     tCInvoice.tc_Rowid = icCInvoiceRowId
     no-lock no-error.
if not available tCInvoice
then do :
     <M-8 run SetMessage
        (input  #T-92'The specified supplier invoice is not defined in the system or is invalid.':80(999890907)T-92# (icMessage), 
         input  '':U (icArguments), 
         input  '':U (icFieldName), 
         input  '':U (icFieldValue), 
         input  'D':U (icType), 
         input  3 (iiSeverity), 
         input  '':U (icRowid), 
         input  'qadfin-223589':U (icFcMsgNumber), 
         input  '':U (icFcExplanation), 
         input  '':U (icFcIdentification), 
         input  '':U (icFcContext), 
         output viFcReturnSuper (oiReturnStatus)) in BCInvoice>
    assign oiReturnStatus = -1.
    return.
end. /* if not available tCInvoice */
    
<M-89 run DefaultValuesCurrency
   (input  tCInvoice.Company_ID (iiCompanyID), 
    input  icCurrencyCode (icCurrencyCode), 
    input  ? (iiCurrencyId), 
    input  itCInvoicePostingDate (itCInvoicePostingDate), 
    input  icOwnVatCurrencyCode (icOwnVatCurrencyCode), 
    input  itCInvoiceTaxPointDate (itCInvoiceTaxPointDate), 
    input  itCInvoiceDate (itCInvoiceDate), 
    output odCInvoiceExchangeRate (odCInvoiceExchangeRate), 
    output odCInvoiceRateScale (odCInvoiceRateScale), 
    output odCInvoiceVatExchangeRate (odCInvoiceVatExchangeRate), 
    output odCInvoiceVatRateScale (odCInvoiceVatRateScale), 
    output odCInvoiceCCExchangeRate (odCInvoiceCCExchangeRate), 
    output odCInvoiceCCRateScale (odCInvoiceCCRateScale), 
    output viFcReturnSuper (oiReturnStatus)) in BCInvoice>
        
if viFcReturnSuper < 0 or (viFcReturnSuper > 0 and oiReturnStatus = 0)        
then assign oiReturnStatus = viFcReturnSuper.
if oiReturnStatus < 0
then return.