How to Calculate the Tax for SO/PO in JDE?

F4102.Fetch Single
   BC Item Number - Short (F4211)(ITM) =  TK Item Number - Short
   BC Business Unit (F4211)(MCU) =  TK Business Unit
   VA rpt_PartialTax <- TK Category Code 7
   VA rpt_HazardousItem <- TK Category Code 8
   VA rpt_CommodityClassCode <- TK Commodity Class
//
F40205 Get Line Type Constants
   BC Line Type (F4211)(LNTY) -> BF szLineType
   VA evt_cIncludeCashDiscount_CDSC <- BF cIncludeCashDiscount
If VA evt_cIncludeCashDiscount_CDSC is equal to "Y" Or VA evt_cIncludeCashDiscount_CDSC is equal to "1"
   VA evt_cSuppressDiscount_EV01 = "0"
Else
   VA evt_cSuppressDiscount_EV01 = "1"
End If
//
If BC Sales Taxable (Y/N) (F4211)(TAX1) is equal to "Y"
   Tax, Calculate for Sales and Purchasing
      BC Tax Rate/Area (F4211)(TXA1) -> BF szTaxArea1
      BC Tax Expl Code 1 (F4211)(EXR1) -> BF szTaxExplanationCode1
      BC Date - Promised Delivery (F4211)(RSDJ) -> BF jdTransactionDate
      BC Payment Terms Code (F4211)(PTC) -> BF szPaymentTermsCode1
      BC Order Company (Order Number) (F4211)(KCOO) -> BF szCompany
      BC Item Number - Short (F4211)(ITM) -> BF mnShortItemNumber
      BC Quantity Shipped (F4211)(SOQS) -> BF mnUnitsPrimaryQtyOrder
      BC Amount - Extended Price (F4211)(AEXP) -> BF mnAmountTaxable
      VA evt_mnAmtTax2_STAM <- BF mnAmtTax2
      VA evt_mnAmtDiscontAvailable_ADSC <- BF mnAmtDiscountAvailable
      VA evt_mnTaxRate1_TXR1 <- BF mnTaxRate1
      VA evt_mnTaxRate2_TXR2 <- BF mnTaxRate2
      VA evt_mnTaxRate3_TXR3 <- BF mnTaxRate3
      VA evt_mnTaxRate4_TXR4 <- BF mnTaxRate4
      VA evt_mnTaxRate5_TXR5 <- BF mnTaxRate5
      VA evt_mnTaxAuthority1A_TA1 <- BF mnTaxAuthority1A
      VA evt_mnTaxAuthority2_TA2 <- BF mnTaxAuthority2
      VA evt_mnTaxAuthority3_TA3 <- BF mnTaxAuthority3
      VA evt_mnTaxAuthority4_TA4 <- BF mnTaxAuthority4
      VA evt_mnTaxAuthority4_TA4 <- BF mnTaxAuthority5
      VA evt_mnAmtSalesTaxTaxAuth1_STA1 <- BF mnAmtSalesTaxTaxAuth1
      VA evt_mnAmtSalesTaxTaxAuth2_STA2 <- BF mnAmtSalesTaxTaxAuth2
      VA evt_mnAmtSalesTaxTaxAuth3_STA3 <- BF mnAmtSalesTaxTaxAuth3
      VA evt_mnAmtSalesTaxTaxAuth4_STA4 <- BF mnAmtSaleStaxTaxAuth4
      VA evt_mnAmtSalesTaxTaxAuth5_STA5 <- BF mnAmtSalesTaxTaxAuth5
      VA evt_cTaxCalcMethod2_TC2 <- BF cTaxCalcMethod2
      VA evt_cTaxType3_TT3 <- BF cTaxType3
      VA evt_cTaxType4_TT4 <- BF cTaxType4
      VA evt_cTaxType5_TT5 <- BF cTaxType5
      VA evt_szDescriptionTaxArea_TAXA <- BF szDescriptionTaxArea
      VA evt_mnTotalAreaTaxRate_TRAT <- BF mnTotalAreaTaxRate
      VA evt_cFactorValueType_FVTY <- BF cFactorValueType
      "4" -> BF cSystemCode
      VA evt_mnGoodsValue_AG <> BF mnGoodsValue
      VA evt_mnAmountTaxExempt_ATXN <- BF mnAmountTaxExempt
      VA evt_mnUnroundedTaxAmt_UPRC <- BF mnUnroundedTaxAmt
      VA evt_cSummaryDetailFlag_EV02 <- BF cSummaryDetailFlag
      VA evt_cItemNumberUsed_EV03 <- BF cItemNumberUsedFlag
      VA evt_mnActiveVertexJob_JOBS -> BF mnJobnumberA
      VA evt_cActVertexTaxComplia_VVTX -> BF cIsVertexActive
      BC Document (Order No, Invoice, etc.) (F4211)(DOCO) -> BF mnDocumentOrderInvoiceE
      BC Order Type (F4211)(DCTO) -> BF szOrderType
      BC Order Company (Order Number) (F4211)(KCOO) -> BF szCompanyKeyOrderNo
      BC Order Suffix (F4211)(SFXO) -> BF szOrderSuffix
      BC Line Number (F4211)(LNID) -> BF mnLineNumber
      VA evt_cSuppressDiscount_EV01 -> BF cSuppressDiscountCalculation
      <Zero> -> BF cUseTaxedPrices
Else
   If BC Sales Taxable (Y/N) (F4211)(TAX1) is greater than or equal to "3" And BC Sales Taxable (Y/N) (F4211)(TAX1) is less than or equal to "8"
      Character to Math Numeric, Convert
         BC Sales Taxable (Y/N) (F4211)(TAX1) -> BF cCharacter
         VA evt_mnSalesTaxable_MATH01 <- BF mnMathNumeric
      F4008.Fetch Single
         BC Tax Rate/Area (F4211)(TXA1) =  TK Tax Rate/Area
         VA evt_mnTaxRate1_TXR1 <- TK Tax Rate 1
         VA evt_mnTaxRate2_TXR2 <- TK Tax Rate 2
         VA evt_mnTaxRate3_TXR3 <- TK Tax Rate 3
         VA evt_mnTaxRate4_TXR4 <- TK Tax Rate 4
         VA evt_mnTaxRate5_TXR5 <- TK Tax Rate 5
         BC Date - Invoice (F4211)(IVD) >= TK Date - Expiration (Julian)
         VA evt_mnSalesTaxable_MATH01 =  TK Item Number - Short
      Tax, Calculate for Sales and Purchasing
         BC Tax Rate/Area (F4211)(TXA1) -> BF szTaxArea1
         BC Tax Expl Code 1 (F4211)(EXR1) -> BF szTaxExplanationCode1
         BC Date - Promised Delivery (F4211)(RSDJ) -> BF jdTransactionDate
         BC Payment Terms Code (F4211)(PTC) -> BF szPaymentTermsCode1
         BC Order Company (Order Number) (F4211)(KCOO) -> BF szCompany
         VA evt_mnSalesTaxable_MATH01 -> BF mnShortItemNumber
         BC Quantity Shipped (F4211)(SOQS) -> BF mnUnitsPrimaryQtyOrder
         BC Amount - Extended Price (F4211)(AEXP) -> BF mnAmountTaxable
         VA evt_mnAmtTax2_STAM <- BF mnAmtTax2
         VA evt_mnAmtDiscontAvailable_ADSC <- BF mnAmtDiscountAvailable
         VA evt_mnTaxRate1_TXR1 <- BF mnTaxRate1
         VA evt_mnTaxRate2_TXR2 <- BF mnTaxRate2
         VA evt_mnTaxRate3_TXR3 <- BF mnTaxRate3
         VA evt_mnTaxRate4_TXR4 <- BF mnTaxRate4
         VA evt_mnTaxRate5_TXR5 <- BF mnTaxRate5
         VA evt_mnTaxAuthority1A_TA1 <- BF mnTaxAuthority1A
         VA evt_mnTaxAuthority2_TA2 <- BF mnTaxAuthority2
         VA evt_mnTaxAuthority3_TA3 <- BF mnTaxAuthority3
         VA evt_mnTaxAuthority4_TA4 <- BF mnTaxAuthority4
         VA evt_mnTaxAuthority4_TA4 <- BF mnTaxAuthority5
         VA evt_mnAmtSalesTaxTaxAuth1_STA1 <- BF mnAmtSalesTaxTaxAuth1
         VA evt_mnAmtSalesTaxTaxAuth2_STA2 <- BF mnAmtSalesTaxTaxAuth2
         VA evt_mnAmtSalesTaxTaxAuth3_STA3 <- BF mnAmtSalesTaxTaxAuth3
         VA evt_mnAmtSalesTaxTaxAuth4_STA4 <- BF mnAmtSaleStaxTaxAuth4
         VA evt_mnAmtSalesTaxTaxAuth5_STA5 <- BF mnAmtSalesTaxTaxAuth5
         VA evt_cTaxCalcMethod2_TC2 <- BF cTaxCalcMethod2
         VA evt_cTaxType3_TT3 <- BF cTaxType3
         VA evt_cTaxType4_TT4 <- BF cTaxType4
         VA evt_cTaxType5_TT5 <- BF cTaxType5
         VA evt_szDescriptionTaxArea_TAXA <- BF szDescriptionTaxArea
         VA evt_mnTotalAreaTaxRate_TRAT <- BF mnTotalAreaTaxRate
         VA evt_cFactorValueType_FVTY <- BF cFactorValueType
         "4" -> BF cSystemCode
         VA evt_mnGoodsValue_AG <> BF mnGoodsValue
         VA evt_mnAmountTaxExempt_ATXN <- BF mnAmountTaxExempt
         VA evt_mnUnroundedTaxAmt_UPRC <- BF mnUnroundedTaxAmt
         VA evt_cSummaryDetailFlag_EV02 <- BF cSummaryDetailFlag
         VA evt_cItemNumberUsed_EV03 <- BF cItemNumberUsedFlag
         VA evt_mnActiveVertexJob_JOBS -> BF mnJobnumberA
         VA evt_cActVertexTaxComplia_VVTX -> BF cIsVertexActive
         BC Document (Order No, Invoice, etc.) (F4211)(DOCO) -> BF mnDocumentOrderInvoiceE
         BC Order Type (F4211)(DCTO) -> BF szOrderType
         BC Order Company (Order Number) (F4211)(KCOO) -> BF szCompanyKeyOrderNo
         BC Order Suffix (F4211)(SFXO) -> BF szOrderSuffix
         BC Line Number (F4211)(LNID) -> BF mnLineNumber
         VA evt_cSuppressDiscount_EV01 -> BF cSuppressDiscountCalculation
         <Zero> -> BF cUseTaxedPrices
   End If
End If

VA evt_InvoiceAmount_AA = [BC Amount - Extended Price (F4211)(AEXP)]+[VA evt_mnAmtTax2_STAM]