Rule change

EDI 810 tax detail requirement

fixtures/notices/edi-810-notice.pdfOpened Sep 26Status: Approved

Proposed change

What Bob wants to change

--- a/fixtures/rpg/INVCALC.rpgle
+++ b/fixtures/rpg/INVCALC.rpgle
@@ -25,6 +25,7 @@
      C                   PARM      OrderAmt
      C                   PARM      TaxAmt
      C                   PARM      ErrFlag
+     C                   PARM      TaxRate
      *
      * Set rate
 
--- a/fixtures/rpg/ORDENT.rpgle
+++ b/fixtures/rpg/ORDENT.rpgle
@@ -22,6 +22,7 @@
      D TaxAmt          S             11P 2
      D ShipDate        S               D
      D ErrFlag         S              1A
+     D TaxRate         S              7P 4
      *
      C                   EVAL      ErrFlag = *BLANK
@@ -50,6 +51,11 @@
      C                   PARM      TaxAmt
      C                   PARM      ErrFlag
+     C                   PARM      TaxRate
      *
+     C     *ENTRY        PLIST
+     C                   PARM      ErrFlag
+     C                   PARM      TaxRate
+      *
      C                   EVAL      *INLR = *ON
 
--- a/fixtures/rpg/INVJOB.clle
+++ b/fixtures/rpg/INVJOB.clle
@@ -15,6 +15,7 @@
      DCL VAR(&ORDLIB) TYPE(*CHAR) LEN(10) VALUE('ORDPRD')
      DCL VAR(&ERRFLAG) TYPE(*CHAR) LEN(1)
+     DCL VAR(&TAXRATE) TYPE(*DEC) LEN(7 4)
 
@@ -25,7 +26,8 @@
-     CALL PGM(ORDENT) PARM(&ERRFLAG)
+     CALL PGM(ORDENT) PARM(&ERRFLAG &TAXRATE)
 
@@ -31,5 +33,8 @@
-     CALL PGM(EDIOUT)
+     CALL PGM(EDIOUT) PARM(&INVNO &INVDATE &CUSTNO &INVAMT +
+                           &TAXAMT &TAXRATE)
 
--- a/fixtures/rpg/EDIOUT.rpgle
+++ b/fixtures/rpg/EDIOUT.rpgle
@@ -16,6 +16,14 @@
      D InvNo           S              8P 0
      D InvDate         D
      D CustNo          S              7P 0
      D InvAmt          S             11P 2
      D TaxAmt          S             11P 2
      D EDILine         S            256A
      D DateStr         S              8A
      D SeqNo           S              9P 0
+     D TaxRate         S              7P 4
      *
+     C     *ENTRY        PLIST
+     C                   PARM      InvNo
+     C                   PARM      InvDate
+     C                   PARM      CustNo
+     C                   PARM      InvAmt
+     C                   PARM      TaxAmt
+     C                   PARM      TaxRate
+      *
      * Format invoice date as YYYYMMDD for EDI 810 BIG segment
@@ -69,7 +85,8 @@
      C                   EVAL      EDILine  =
      C                                'TXI*ST*' +
      C                                %EDITC(TaxAmt:'1') +
-     C                                '****ST'
+     C                                '*' + %EDITC(TaxRate * 100:'1') +
+     C                                '***ST'
      C                   WRITE     EDIREC

Why each line

ChangedINVJOB.clle, lines 16, 25
Clause. TXI03 must hold the rate used to calculate TXI02. If a customer is taxed at a rate other than the standard state rate, TXI03 must show that other rate. Invoices where TXI03 does not match TXI02 divided by the taxable amount will be rejected with a 997 error code.
ChangedORDENT.rpgle, lines 24, 52
Clause. TXI03 must hold the rate used to calculate TXI02. If a customer is taxed at a rate other than the standard state rate, TXI03 must show that other rate. Invoices where TXI03 does not match TXI02 divided by the taxable amount will be rejected with a 997 error code.
ChangedINVCALC.rpgle, line 27
Clause. TXI03 must hold the rate used to calculate TXI02. If a customer is taxed at a rate other than the standard state rate, TXI03 must show that other rate. Invoices where TXI03 does not match TXI02 divided by the taxable amount will be rejected with a 997 error code.
ChangedEDIOUT.rpgle, line 72
Clause. The TXI segment in every EDI 810 invoice must include TXI03 (Percent) populated with the tax rate actually applied to the invoice, expressed as a percentage with up to four decimal places (e.g. 7.5 for 7.50%). Previously only TXI01 (tax type) and TXI02 (monetary amount) were required.
KeptEDIOUT.rpgle, lines 17, 21, 69 to 71, 73
Clause. The TXI segment in every EDI 810 invoice must include TXI03 (Percent) populated with the tax rate actually applied to the invoice, expressed as a percentage with up to four decimal places (e.g. 7.5 for 7.50%). Previously only TXI01 (tax type) and TXI02 (monetary amount) were required.
KeptINVJOB.clle, line 32
Clause. TXI03 must hold the rate used to calculate TXI02. If a customer is taxed at a rate other than the standard state rate, TXI03 must show that other rate. Invoices where TXI03 does not match TXI02 divided by the taxable amount will be rejected with a 997 error code.

Approved

Mysiquemide, Sep 26