Var EReceiptQR = ""

; build uri
Var INVOICE_URL = ""
Var Final_INVOICE_URL = ""
Var ProjectId = "682d5a08f4fa421acbfd4102"
Var ProductionProjectId = "6854f7c2f72ea3dfd20962bd"

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 = "false"

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}{ProductionProjectId}&data{EQ_SIGN}{PayloadEReceiptEncoded}&hash{EQ_SIGN}{HashData}"
EndIf



DEBUGVAR Final_INVOICE_URL