method ValidateComponentPostModify

Description

This method is a submethod of ValidateComponentPost.

This method validates some fields of the Creditor Invoice that can't be modified.
Parameters

oiReturnStatus
output
integer
Return status of the method.
Internal usage

QadFinancials
method BCInvoice.ValidateComponentPost
program code (program5/bcinvoice.p)

if (t_sCInvoice.CInvoiceIsInitialStatus = true or
   (t_iCInvoice.CInvoiceIsInitialStatus = true and
    t_sCInvoice.CInvoiceIsInitialStatus = false))
then return.

if (t_sCInvoice.CInvoiceIsTaxExcluded = false and
    (t_sCInvoice.CInvoiceOriginalCreditTC <> t_iCInvoice.CInvoiceOriginalCreditTC or
     t_sCInvoice.CInvoiceOriginalDebitTC  <> t_iCInvoice.CInvoiceOriginalDebitTC))    or
   (t_sCInvoice.CInvoiceIsTaxExcluded = true and
    (t_sCInvoice.CInvoiceVatBaseCreditTC <> t_iCInvoice.CInvoiceVatBaseCreditTC or
     t_sCInvoice.CInvoiceVatBaseDebitTC  <> t_iCInvoice.CInvoiceVatBaseDebitTC))
then do:
    <M-2 run SetMessage
       (input  trim(#T-10'You cannot modify the TC invoice amount.':100(310398970)T-10#) (icMessage), 
        input  '':U (icArguments), 
        input  'tCInvoice.tdCInvoiceOriginalTC':U (icFieldName), 
        input  t_sCInvoice.tdCInvoiceOriginalTC (icFieldValue), 
        input  'E':U (icType), 
        input  3 (iiSeverity), 
        input  t_sCInvoice.tc_Rowid (icRowid), 
        input  'QadFin-7125':U (icFcMsgNumber), 
        input  '':U (icFcExplanation), 
        input  '':U (icFcIdentification), 
        input  '':U (icFcContext), 
        output viFcReturnSuper (oiReturnStatus)) in BCInvoice>

    assign oiReturnStatus = -1.
end.

if (t_sCInvoice.CInvoiceIsTaxExcluded = false and
    (t_sCInvoice.CInvoiceOriginalCreditLC <> t_iCInvoice.CInvoiceOriginalCreditLC or
     t_sCInvoice.CInvoiceOriginalDebitLC  <> t_iCInvoice.CInvoiceOriginalDebitLC))    or
   (t_sCInvoice.CInvoiceIsTaxExcluded = true and
    (t_sCInvoice.CInvoiceVatBaseCreditLC <> t_iCInvoice.CInvoiceVatBaseCreditLC or
     t_sCInvoice.CInvoiceVatBaseDebitLC  <> t_iCInvoice.CInvoiceVatBaseDebitLC))
then do:
    <M-3 run SetMessage
       (input  trim(#T-8'You cannot modify the BC invoice amount.':100(46541)t-8#) (icMessage), 
        input  '':U (icArguments), 
        input  'tCInvoice.tdCInvoiceOriginalLC':U (icFieldName), 
        input  t_sCInvoice.tdCInvoiceOriginalLC (icFieldValue), 
        input  'E':U (icType), 
        input  3 (iiSeverity), 
        input  '':U (icRowid), 
        input  'QadFin-7126':U (icFcMsgNumber), 
        input  '':U (icFcExplanation), 
        input  '':U (icFcIdentification), 
        input  '':U (icFcContext), 
        output viFcReturnSuper (oiReturnStatus)) in BCInvoice>

    assign oiReturnStatus = -1.
end.

if t_sCInvoice.CInvoiceExchangeRate <> t_iCInvoice.CInvoiceExchangeRate
then do:
    <M-4 run SetMessage
       (input  trim(#T-9'You cannot modify the invoice exchange rate.':100(829318217)T-9#) (icMessage), 
        input  '':U (icArguments), 
        input  'tCInvoice.CInvoiceExchangeRate':U (icFieldName), 
        input  t_sCInvoice.CInvoiceExchangeRate (icFieldValue), 
        input  'E':U (icType), 
        input  3 (iiSeverity), 
        input  '':U (icRowid), 
        input  'QadFin-7127':U (icFcMsgNumber), 
        input  '':U (icFcExplanation), 
        input  '':U (icFcIdentification), 
        input  '':U (icFcContext), 
        output viFcReturnSuper (oiReturnStatus)) in BCInvoice>

    oiReturnStatus = -1.
end.

if t_sCInvoice.CInvoiceRateScale <> t_iCInvoice.CInvoiceRateScale
then do:
    <M-5 run SetMessage
       (input  trim(#T-11'You cannot modify the invoice rate scale cannot be modified.':255(65534)t-11#) (icMessage), 
        input  '':U (icArguments), 
        input  'tCInvoice.CinvoiceRateScale':U (icFieldName), 
        input  t_sCInvoice.CInvoiceRateScale (icFieldValue), 
        input  'E':U (icType), 
        input  3 (iiSeverity), 
        input  '':U (icRowid), 
        input  'QadFin-7128':U (icFcMsgNumber), 
        input  '':U (icFcExplanation), 
        input  '':U (icFcIdentification), 
        input  '':U (icFcContext), 
        output viFcReturnSuper (oiReturnStatus)) in BCInvoice>

    oiReturnStatus = -1.
end.