MOVE VRTXF1-VTX-FROM-GEOCODE TO VTX-FR-TAX-CD.
MOVE VRTXF1-VTX-TO-GEOCODE TO VTX-TAX-CD.
MOVE VRTXF1-VTX-LINE-NBR TO VTX-LINE-NUMBER.
MOVE VRTXF1-VTX-TAXABLE-AMOUNT TO VTX-TAXABLE-AMT.
MOVE "G" TO VTX-VERTEX-FLAG.
MOVE "D" TO VTX-CUST-EXEMPT.
MOVE "D" TO VTX-PROD-EXEMPT.
MOVE "S" TO VTX-TRANS-TYPE.
MOVE SPACES TO VTX-TRANS-SUB-TYPE.
MOVE "1" TO VTX-JURIS-IN-OUT.
MOVE "1" TO VTX-FR-JURIS-IN-OUT.
PERFORM 900-CALC-VERTEX-TAX.
IF (VTX-ERROR-STATUS = "Y")
MOVE VTX-ERROR-MSG TO VRTXF1-VTX-ERROR-MSG
ELSE
MOVE "No Error" TO VRTXF1-VTX-ERROR-MSG.
|