method DefaultValuesLinkedInvoice

Parameters

icCInvoiceRowId	input	character	Row ID of the supplier invoice
iiLinkedCInvoicePostingYear	input	integer
icLinkedJournalCode	input	character
iiLinkedCInvoiceVoucher	input	integer
iiCInvoicePostingYear	input	integer
icCAJournalCode	input	character
iiCAVoucher	input	integer
ocVatCurrencyCode	output	character
odCInvoiceVatExchangeRate	output	decimal
odCInvoiceVatRateScale	output	decimal
ocTransactionStartCountryCode	output	character
ocTransactionEndCountryCode	output	character
ocCAJournalCode	output	character
oiCAVoucher	output	integer
oiReturnStatus	output	integer	Return status of the method.

Internal usage

unused

program code (program3/bcinvoice.p)

if iiLinkedCInvoicePostingYear = ?
then assign iiLinkedCInvoicePostingYear = 0.

if icLinkedJournalCode = ?
then assign icLinkedJournalCode = "":U.

if iiLinkedCInvoiceVoucher = ?
then assign iiLinkedCInvoiceVoucher = 0.

if iiLinkedCInvoicePostingYear <> 0    and
   icLinkedJournalCode         <> "":U and
   iiLinkedCInvoiceVoucher     <> 0
then do:
    <Q-1 run CInvoiceByLinkedInvoice (all) (Read) (NoCache)
       (input viCompanyId, (CompanyId)
        input iiLinkedCInvoicePostingYear, (LinkedCInvoicePostingYear)
        input icLinkedJournalCode, (LinkedJournalCode)
        input iiLinkedCInvoiceVoucher, (LinkedCInvoiceVoucher)
        output dataset tqCInvoiceByLinkedInvoice) in BCInvoice >

    find first tqCInvoiceByLinkedInvoice where
               tqCInvoiceByLinkedInvoice.tiCompany_ID          = viCompanyId                 and
               tqCInvoiceByLinkedInvoice.tiCInvoicePostingYear = iiLinkedCInvoicePostingYear and
               tqCInvoiceByLinkedInvoice.tcJournalCode         = icLinkedJournalCode         and
               tqCInvoiceByLinkedInvoice.tiCInvoiceVoucher     = iiLinkedCInvoiceVoucher
               no-error.
end.

if iiLinkedCInvoicePostingYear = 0    or
   icLinkedJournalCode         = "":U or
   iiLinkedCInvoiceVoucher     = 0    or
   not available tqCInvoiceByLinkedInvoice
then do:
    if iiCInvoicePostingYear <> 0    and
       iiCInvoicePostingYear <> ?    and
       icCAJournalCode       <> "":U and
       icCAJournalCode       <> ?    and
       iiCAVoucher           <> 0    and
       iiCAVoucher           <> ?
    then do:
        assign vhFcComponent= ?.
        <M-2 run ReleaseNumber
           (input  viCompanyId (iiCompanyId), 
            input  iiCInvoicePostingYear (iiNumbrYear), 
            input  icCAJournalCode (icNumbrType), 
            input  iiCAVoucher (iiNumbr), 
            input  viFcCurrentInstanceId (iiInstanceId), 
            input  vcFcComponentName (icClassName), 
            output viFcReturnSuper (oiReturnStatus)) in BNumber>
        if viFcReturnSuper < 0 or (viFcReturnSuper > 0 and oiReturnStatus = 0)        
        then assign oiReturnStatus = viFcReturnSuper.
        if oiReturnStatus < 0
        then return.

        assign ocCAJournalCode = "":U
               oiCAVoucher     = 0.
    end.

    return.
end.

assign ocTransactionEndCountryCode   = tqCInvoiceByLinkedInvoice.tcTransactionEndCountryCode
       ocTransactionStartCountryCode = tqCInvoiceByLinkedInvoice.tcTransactionStartCountryCode
       ocVatCurrencyCode             = tqCInvoiceByLinkedInvoice.tcVatCurrencyCode
       odCInvoiceVatExchangeRate     = tqCInvoiceByLinkedInvoice.tdCInvoiceVatExchangeRate
       odCInvoiceVatRateScale        = tqCInvoiceByLinkedInvoice.tdCInvoiceVatRateScale.

if iiCInvoicePostingYear <> 0 and
   iiCInvoicePostingYear <> ?
then do:
    if icCAJournalCode = "":U or
       icCAJournalCode = ?
    then do:
        <M-3 run GetCAJournalCode
           (output ocCAJournalCode (ocCAJournalCode), 
            output viFcReturnSuper (oiReturnStatus)) in BCInvoice>
    end.
    else assign ocCAJournalCode = icCAJournalCode.

    if ocCAJournalCode = "":U or
       ocCAJournalCode = ?    or
       ocCAJournalCode = icCAJournalCode
    then assign oiCAVoucher = iiCAVoucher.
    else do:
        <M-4 run DefaultValuesCAJournal
          (input  icCInvoiceRowId (icCInvoiceRowId), 
           input-output ocCAJournalCode (bcCAJournalCode), 
           input  iiCInvoicePostingYear (iiCInvoicePostingYear), 
           input  iiCInvoicePostingYear (iiOldCInvoicePostingYear), 
           input  icCAJournalCode (icOldCAJournalCode), 
           input  iiCAVoucher (iiOldCAVoucher), 
           output oiCAVoucher (oiCAVoucher), 
           output viFcReturnSuper (oiReturnStatus)) in BCInvoice>
        if viFcReturnSuper < 0 or (viFcReturnSuper > 0 and oiReturnStatus = 0)        
        then assign oiReturnStatus = viFcReturnSuper.
        if oiReturnStatus < 0
        then return.
    end.
end.