project QadFinancials > class BJournalEntry > method UpdateCinvoiceVatPostingVatID
Parameters
iiReversePostingid | input | integer | |
icTaxClass | input | character | |
icTaxType | input | character | |
ictaxUsage | input | character | |
icTaxEnv | input | character | |
oiPostingVatid | output | integer | |
iiVatid | input | integer | |
icvatcode | input | character | |
oiReturnStatus | output | integer | Return status of the method. |
Internal usage
QadFinancials
program code (program9/bjournalentry.p)
assign oiReturnStatus = -98.
if iiReversePostingid = 0 or iiReversePostingid = ?
then
return.
find first tPostingvat where tPostingVat.Posting_ID= iiReversePostingid and
tPostingVat.TxclTaxCls = icTaxClass and
tPostingVat.TxenvTaxEnv = icTaxEnv and
tPostingVat.TxtyTaxType = icTaxType and
tPostingVat.TxuTaxUsage = ictaxUsage and
tPostingVat.Vat_ID = iiVatid and
tPostingVat.tcVatCode = icvatcode and
tPostingVat.tc_Status <> "D":U no-error.
if Available tPostingVat
then
oiPostingVatid = tPostingVat.PostingVat_ID .
if oiReturnStatus = -98
then
assign oiReturnStatus = 0.