taobin_project/inter/mys/xml/process/e_receipt.ev
2025-06-20 09:29:44 +07:00

148 lines
No EOL
4.7 KiB
Text

Var EReceiptQR = ""
; build uri
Var INVOICE_URL = ""
Var Final_INVOICE_URL = ""
Var ProjectId = "682d5a08f4fa421acbfd4102"
Var DisplayFormatFloat = "%.2f"
Var Seeker.PriceDrink !assigned StringFmt( Seeker.PriceDrink , DisplayFormatFloat, PreScaleConvertShow)
; fix-v3-float-string
IntoFloatString Seeker.PriceDrink "FloatPriceDrinkString"
DEBUGVAR Seeker.PriceDrink
DEBUGVAR FloatPriceDrinkString
Var Seeker.PriceDrink = FloatPriceDrinkString
DEBUGVAR Seeker.PriceDrink
; check test mode
READ_FILE "/mnt/sdcard/coffeevending/CURR_TEST" TEST_MODE_FLAG
STRCONTAIN "1" TEST_MODE_FLAG IS_TEST_MODE
If IS_TEST_MODE = "true" Then
Var INVOICE_URL = INVOICE_DEV_URL
Else
Var INVOICE_URL = INVOICE_PROD_URL
EndIf
DEBUGVAR IS_TEST_MODE
DEBUGVAR INVOICE_URL
Var ForceStaging = "true"
If ForceStaging = "true" Then
Var IS_TEST_MODE = "true"
SAVELOG "Force test staging"
EndIf
DEBUGVAR ForceStaging
If ProMysteryCup = 1 Then
If Seeker.FromProMysteryCup = "true" Then
Var ProductDesc = Seeker.shownameMystery2
Else
Var ProductDesc = Seeker.showname
EndIf
Else
Var ProductDesc = Seeker.showname
EndIf
Var documentNo = Seeker.VendingTSID
Var internalRemark = BoxID
Var dateTime = SystemISOTime
Var ProductItemClassification = "022"
Var ProductItemDescription = ProductDesc
Var ProductItemQuantity = 1
Var ProductItemUnitPrice = Seeker.PriceDrink
Var ProductItemTaxType = "06"
Var ProductItemTaxRate = 0
Var ProductItemTaxAmount = 0
Var ProductItemDiscountAmount = 0
Var ProductItemSubTotalExcludingTax = Seeker.PriceDrink
Var ProductItemSubTotal = Seeker.PriceDrink
Var totalExcludingTax = Seeker.PriceDrink
Var totalDiscountAmount = 0
Var totalTaxAmount = 0
Var totalRoundingAmount = Seeker.PriceDrink
Var totalPayableAmount = Seeker.PriceDrink
Var PayloadEReceipt = "{'documentNo':'"
Var PayloadEReceipt = PayloadEReceipt + documentNo
Var PayloadEReceipt = PayloadEReceipt + "','internalRemark':'"
Var PayloadEReceipt = PayloadEReceipt + internalRemark
Var PayloadEReceipt = PayloadEReceipt + "','dateTime':'"
Var PayloadEReceipt = PayloadEReceipt + dateTime
; array-1-item
Var PayloadEReceipt = PayloadEReceipt + "','items':[{"
Var PayloadEReceipt = PayloadEReceipt + "'ProductItemClassification':'"
Var PayloadEReceipt = PayloadEReceipt + ProductItemClassification
Var PayloadEReceipt = PayloadEReceipt + "','ProductItemDescription':'"
Var PayloadEReceipt = PayloadEReceipt + ProductItemDescription
Var PayloadEReceipt = PayloadEReceipt + "','ProductItemQuantity':"
Var PayloadEReceipt = PayloadEReceipt + ProductItemQuantity
Var PayloadEReceipt = PayloadEReceipt + ",'ProductItemUnitPrice':"
Var PayloadEReceipt = PayloadEReceipt + ProductItemUnitPrice
Var PayloadEReceipt = PayloadEReceipt + ",'ProductItemTaxType':'"
Var PayloadEReceipt = PayloadEReceipt + ProductItemTaxType
Var PayloadEReceipt = PayloadEReceipt + "','ProductItemTaxRate':"
Var PayloadEReceipt = PayloadEReceipt + ProductItemTaxRate
Var PayloadEReceipt = PayloadEReceipt + ",'ProductItemTaxAmount':"
Var PayloadEReceipt = PayloadEReceipt + ProductItemTaxAmount
Var PayloadEReceipt = PayloadEReceipt + ",'ProductItemDiscountAmount':"
Var PayloadEReceipt = PayloadEReceipt + ProductItemDiscountAmount
Var PayloadEReceipt = PayloadEReceipt + ",'ProductItemSubTotalExcludingTax':"
Var PayloadEReceipt = PayloadEReceipt + ProductItemSubTotalExcludingTax
Var PayloadEReceipt = PayloadEReceipt + ",'ProductItemSubTotal':"
Var PayloadEReceipt = PayloadEReceipt + ProductItemSubTotal
Var PayloadEReceipt = PayloadEReceipt + "}]"
Var PayloadEReceipt = PayloadEReceipt + ",'totalExcludingTax':"
Var PayloadEReceipt = PayloadEReceipt + totalExcludingTax
Var PayloadEReceipt = PayloadEReceipt + ",'totalDiscountAmount':"
Var PayloadEReceipt = PayloadEReceipt + totalDiscountAmount
Var PayloadEReceipt = PayloadEReceipt + ",'totalTaxAmount':"
Var PayloadEReceipt = PayloadEReceipt + totalTaxAmount
Var PayloadEReceipt = PayloadEReceipt + ",'totalRoundingAmount':"
Var PayloadEReceipt = PayloadEReceipt + totalRoundingAmount
Var PayloadEReceipt = PayloadEReceipt + ",'totalPayableAmount':"
Var PayloadEReceipt = PayloadEReceipt + totalPayableAmount
Var PayloadEReceipt = PayloadEReceipt + "}"
DEBUGVAR PayloadEReceipt
HashSha256 PayloadEReceipt "HashData"
EncodeURIComponent PayloadEReceipt "PayloadEReceiptEncoded"
DEBUGVAR HashData
DEBUGVAR PayloadEReceiptEncoded
Var EQ_SIGN = "="
If IS_TEST_MODE = "true" Then
Var Final_INVOICE_URL !assigned @AutoVar "https://einvoice-stg.sernsoft.com/public-create-invoice?_id{EQ_SIGN}{ProjectId}&data{EQ_SIGN}{PayloadEReceiptEncoded}&hash{EQ_SIGN}{HashData}"
Else
Var Final_INVOICE_URL !assigned @AutoVar "https://einvoice.sernsoft.com/public-create-invoice?_id{EQ_SIGN}{ProjectId}&data{EQ_SIGN}{PayloadEReceiptEncoded}&hash{EQ_SIGN}{HashData}"
EndIf
DEBUGVAR Final_INVOICE_URL