Certain transactions not updated on final item
James B. Byrne
byrnejb at harte-lyne.ca
Wed Oct 27 10:58:00 CDT 2021
I have a QTP process that selects all the transaction detail lines for a
specific account and recalculates the transaction totals.
SORT ON ACCOUNT-NUMBER OF ACCOUNTS &
ON TRANS-IDENT OF TRANSACTIONS &
ON TRANS-IDENT OF TRANDETL
DEFINE QPD-DTL-AMT ZONED SIZE 14 = ( &
ROUND((AMOUNT OF TRANDETL * 100),0,NEAR))
TEMP QPT-DTL-AMT ZONED SIZE 14
ITEM QPT-DTL-AMT SUBTOTAL QPD-DTL-AMT &
RESET AT TRANS-IDENT OF TRANDETL
TEMP QPT-DTL-CR ZONED SIZE 14
ITEM QPT-DTL-CR SUBTOTAL QPD-DTL-AMT &
IF TRANS-TYPE OF TRANACCT EQ "AP" &
OR TRANS-TYPE OF TRANACCT EQ "CA" &
RESET AT TRANS-IDENT OF TRANDETL
TEMP QPT-DTL-DR ZONED SIZE 14
ITEM QPT-DTL-DR SUBTOTAL QPD-DTL-AMT &
IF TRANS-TYPE OF TRANACCT EQ "CQ" &
OR TRANS-TYPE OF TRANACCT EQ "DA" &
RESET AT TRANS-IDENT OF TRANDETL
OUTPUT TRANSACTIONS UPDATE AT TRANS-IDENT OF TRANDETL &
ON ERRORS REPORT &
IF QPG-UPDATE EQ "Y"
ITEM AMOUNT OF TRANSACTIONS FINAL &
ROUND(((QPT-DTL-AMT) / 100),2,NEAR)
ITEM CREDIT-AMOUNT OF TRANSACTIONS FINAL &
ROUND(((QPT-DTL-CR) / 100),2,NEAR)
ITEM DEBIT-AMOUNT OF TRANSACTIONS FINAL &
ROUND(((QPT-DTL-DR) / 100),2,NEAR)
SUBFILE QPAPBLT1 AT TRANS-IDENT OF TRANDETL KEEP &
INCLUDE &
TRANSACTIONS, &
QPT-DTL-AMT, QPT-DTL-DR, QPT-DTL-CR
The problem is that not all transactions are updated as expected:
Quiz reports this in QPAPBLT1:
Transaction Amount QPT-DTL-AMT Credit QPT-DTL-CR Debit QPT-DTL-DR
AP036531 485.52 48552 485.52CR 48552 0.00DB 0
AP036532 1171.79 117179 1171.79CR 117179 0.00DB 0
CA016586 1.20 120 1.20CR 120 0.00DB 0
CQ217386 0.00 117179 0.00CR 0 1171.79DB 117179
DA019461 0.00 48672 0.00CR 0 486.72DB 48672
The last two transactions do not get the AMOUNT set properly, but the
DEBIT-AMOUNT is set. I am at a loss as to why. All three accumulators sum up
correctly. But the FINAL clause does not seem to apply to AMOUNT field of the
debit transactions.
What am I missing?
--
*** e-Mail is NOT a SECURE channel ***
Do NOT transmit sensitive data via e-Mail
Unencrypted messages have no legal claim to privacy
Do NOT open attachments nor follow links sent by e-Mail
James B. Byrne mailto:ByrneJB at Harte-Lyne.ca
Harte & Lyne Limited http://www.harte-lyne.ca
9 Brockley Drive vox: +1 905 561 1241
Hamilton, Ontario fax: +1 905 561 0757
Canada L8E 3C3
More information about the powerh-l
mailing list