creditReferecnce o3

This commit is contained in:
miggaze 2021-12-07 12:02:02 +07:00
parent eb861cf23c
commit 744134e271
15 changed files with 558 additions and 114 deletions

View file

@ -714,7 +714,7 @@
OpenInst 1 "/mnt/sdcard/coffeevending/taobin_project/xml/page_advert.xml"
;OpenInst 2 "/mnt/sdcard/coffeevending/taobin_project/xml/page_collect_point_1.xml"
OpenInst 2 "/mnt/sdcard/coffeevending/taobin_project/xml/page_tel_number_mask.xml"
OpenInst 2 "/mnt/sdcard/coffeevending/taobin_project/xml/page_tel_number_mask2.xml"
TopView "show"
Open "/mnt/sdcard/coffeevending/taobin_project/xml/page_main_blank.xml"

View file

@ -35,9 +35,7 @@
Var waitAckPay = 0
Var VendingTSIDTmp = ""
Var VendingTSIDProblem = ""
Var CreditReference = ""
If PayWithQR = 1 Then
Var VendingTSIDTmp = VendingTSID
@ -137,7 +135,7 @@
EndIf
Var CreditReference = CreditReferenceTmp
</EventOpen>

View file

@ -56,8 +56,7 @@
Var waitAckPay = 0
Var VendingTSIDTmp = ""
Var VendingTSIDProblem = ""
Var CreditReference = ""
If PayWithQR = 1 Then

View file

@ -624,7 +624,7 @@
<EventClick>
;GETACCEXT TelephoneNumber 14
GETACCEXT TelephoneNumber 13
GETACCEXT TelephoneNumber 19
</EventClick>
</Button>

View file

@ -709,7 +709,7 @@
Var DataTmp = TelephoneNumber + "/"
Var DataTmp = DataTmp + PinNumber
GETACCEXT DataTmp 13
GETACCEXT DataTmp 19
Var GetAccFlag = 1
EndIf

View file

@ -256,6 +256,8 @@
SAVELOG PayO2
Var VendingCampaign = IntVendingCampaign
Var CreditReference = CreditReferenceTmp
Var PayType = ""
Pay ServiceType TelephoneNumber ServiceCredit SuggestID SessionID3 ServiceAmountSum ServiceCharge Donate

View file

@ -195,6 +195,7 @@
SAVELOG PayO2
Var VendingCampaign = IntVendingCampaign
Var CreditReference = CreditReferenceTmp
Var PayType = ""
Pay ServiceType TelephoneNumber ServiceCredit SuggestID SessionID3 ServiceAmountSum ServiceCharge Donate

View file

@ -86,6 +86,7 @@
Var MachineStage = "-"
Var PayReference = ""
Var CreditReferenceTmp = ""
If web_app_prepar = "true" Then
Var web_app_prepar = "false"

View file

@ -591,6 +591,13 @@
If CancelFlag = 1 Then
If IntVendingCredit > 0 Then
Var BmiYear = IntVendingCredit
Var GetScore = "useCredit"
AddData 24 TNumberTaobinCredit BmiYear PointCrm GetScore
Var IntVendingCredit = 0
EndIf
Var CancelCounter = CancelCounter + 1
If CancelCounter = CancelNumber Then
;Change CoinAmount
@ -1005,6 +1012,8 @@
Var ECommerceQR = ECommerceQR + TNumberTaobinCredit
Var ECommerceQR = ECommerceQR + ":"
Var ECommerceQR = ECommerceQR + IntVendingCredit
Var ECommerceQR = ECommerceQR + ":"
Var ECommerceQR = ECommerceQR + PointCrm
EndIf

View file

@ -581,6 +581,13 @@
If CancelFlag = 1 Then
If IntVendingCredit > 0 Then
Var BmiYear = IntVendingCredit
Var GetScore = "useCredit"
AddData 24 TNumberTaobinCredit BmiYear PointCrm GetScore
Var IntVendingCredit = 0
EndIf
Var CancelCounter = CancelCounter + 1
If CancelCounter = CancelNumber Then
;Change CoinAmount

View file

@ -580,7 +580,7 @@
<EventClick>
Var GetAccFlag = 1
GETACCEXT TelephoneNumber 13
GETACCEXT TelephoneNumber 19
</EventClick>

View file

@ -62,7 +62,7 @@
Var DataTmp = TelephoneNumber + "/"
Var DataTmp = DataTmp + PinNumber
GETACCEXT DataTmp 13
GETACCEXT DataTmp 19
EndIf
@ -724,7 +724,7 @@
Var DataTmp = TelephoneNumber + "/"
Var DataTmp = DataTmp + PinNumber
GETACCEXT DataTmp 13
GETACCEXT DataTmp 19
Var ReqFlag = 0

View file

@ -40,6 +40,9 @@
EndIf
Var ShowLoadingText = "Invisible"
Var ShowErrorText = "Invisible"
If show_eng = "true" Then
Var DirImage = "ROOT/taobin_project/image/collectiing_en"
@ -50,16 +53,84 @@
Var PrepareFlag = 0
Var PrepareTime = 0
Var ReqAdddata22 = 0
Var timeout_Adddata22 = 0
GenHashWithTimeStamp PointCrm
;Var Tel_Confirm_State = "Invisible"
</EventOpen>
<Timeout> 1000 </Timeout>
<EventTimeout>
;Open "ROOT/xml/page_board.xml"
Var Timeout = Timeout + 1
If ReqAdddata22 = 0 Then
Var Timeout = Timeout + 1
Else
Var timeout_Adddata22 = timeout_Adddata22 + 1
If timeout_Adddata22 > 30 Then
Var Tel_Confirm_State = "Enable"
Var ShowLoadingText = "Invisible"
Var ReqAdddata22 = 0
Var timeout_Adddata22 = 0
Var ShowErrorText = "Enable"
EndIf
EndIf
If AcceptAuto = "true" Then
If Timeout > 2 Then
If Timeout > 3 Then
Var AcceptAuto = "false"
Var BmiYear = PayAmount
Var GetScore = "useCredit"
AddData 22 TelephoneNumber BmiYear PointCrm GetScore
Var ReqAdddata22 = 1
EndIf
EndIf
If Timeout > 60 Then
Var PayState1 = "PressForever"
Var PayState2 = "Enable"
Var QRChannel = 0
Var CodeChannel = 0
If CART_COUNT >= 1 Then
Open "ROOT/taobin_project/xml/page_payment_cashMore.xml"
Else
Open "ROOT/taobin_project/xml/page_payment_cash.xml"
EndIf
EndIf
Refresh
TimerReset
</EventTimeout>
<EventIDCard>
</EventIDCard>
<EventActionOk>
If ReqAdddata22 = 1 Then
If NotEnoughFlag = 0 Then
Var CreditReferenceTmp = "" + PayAmount
Var CreditReferenceTmp = CreditReferenceTmp + "/"
Var CreditReferenceTmp = CreditReferenceTmp + PointCrm
CoinVending OFF
@ -81,34 +152,45 @@
MakeDrinkV1 SelectDrink SelectSugarID
Open "ROOT/taobin_project/xml/page_thankyou.xml"
EndIf
EndIf
EndIf
If Timeout > 30 Then
Var PayState1 = "PressForever"
Var PayState2 = "Enable"
Var QRChannel = 0
Var CodeChannel = 0
If CART_COUNT >= 1 Then
Open "ROOT/taobin_project/xml/page_payment_cashMore.xml"
Else
Open "ROOT/taobin_project/xml/page_payment_cash.xml"
Var PayState1 = "PressForever"
Var PayState2 = "Enable"
Var QRChannel = 0
Var CodeChannel = 0
Var TNumberTaobinCredit = TelephoneNumber
Var CoffeePinNumber = PinNumber
Var IntVendingCredit = SumCreditAmount
Var CreditReferenceTmp = "" + SumCreditAmount
Var CreditReferenceTmp = CreditReferenceTmp + "/"
Var CreditReferenceTmp = CreditReferenceTmp + PointCrm
Var StoreCreditFlag = 1
If CART_COUNT >= 1 Then
Open "ROOT/taobin_project/xml/page_payment_cashMore.xml"
Else
Open "ROOT/taobin_project/xml/page_payment_cash.xml"
EndIf
EndIf
EndIf
TimerReset
</EventTimeout>
<EventIDCard>
</EventIDCard>
<EventActionOk>
</EventActionOk>
<EventActionError>
If ReqAdddata22 = 1 Then
Var Tel_Confirm_State = "Enable"
Var ShowLoadingText = "Invisible"
Var ReqAdddata22 = 0
Var timeout_Adddata22 = 0
Var ShowErrorText = "Enable"
EndIf
</EventActionError>
@ -182,97 +264,44 @@
<Volume> SoundVolume </Volume>
<EventClick>
If NotEnoughFlag = 0 Then
CoinVending OFF
Var TNumberTaobinCredit = TelephoneNumber
Var CoffeePinNumber = PinNumber
Var StoreCreditFlag = 1
If CART_COUNT >= 1 Then
Cart "PreparID" 1
Var CART_INDEX = 1
Var PayReference = ""
GenHashWithTimeStamp PayReference
Open "ROOT/taobin_project/xml/page_thankyou.xml"
Else
Var CART_INDEX = 0
Var BmiYear = PayAmount
Var GetScore = "useCredit"
MakeDrinkV1 SelectDrink SelectSugarID
Open "ROOT/taobin_project/xml/page_thankyou.xml"
EndIf
AddData 22 TelephoneNumber BmiYear PointCrm GetScore
Var ReqAdddata22 = 1
Else
Var PayState1 = "PressForever"
Var PayState2 = "Enable"
Var QRChannel = 0
Var CodeChannel = 0
Var TNumberTaobinCredit = TelephoneNumber
Var CoffeePinNumber = PinNumber
Var IntVendingCredit = SumCreditAmount
;Var SessionID2 = SelectSlot + ":"
;Var SessionID2 = SessionID2 + ExtendData
;Var CreditAmount1 = ""
;Var ServiceAmountFlow = ""
;Var TelephoneNumberQR = "0899999999"
;If CART_COUNT >= 1 Then
; Var ServiceType = "coffee-multi"
;Else
; Var ServiceType = "coffee"
;EndIf
;Var ECommerceQR = ""
;Var ECommerceQR = ECommerceQR + PriceDrink
;Var ECommerceQR = ECommerceQR + "/"
;Var ECommerceQR = ECommerceQR + DiscountDrink
;Var ECommerceQR = ECommerceQR + "/"
;Var ECommerceQR = ECommerceQR + SessionID2
;Var ECommerceQR = ECommerceQR + "/"
;Var ECommerceQR = ECommerceQR + SelectDrink
;Var ECommerceQR = ECommerceQR + "/"
;Var ECommerceQR = ECommerceQR + "KBA:2/"
;Var ECommerceQR = ECommerceQR + "CRD"
;Var ECommerceQR = ECommerceQR + ":"
;Var ECommerceQR = ECommerceQR + TNumberTaobinCredit
;Var ECommerceQR = ECommerceQR + ":"
;Var ECommerceQR = ECommerceQR + SumCreditAmount
;Var ServiceParameter = "max"
;Var ServiceCharge = 0
;Var AccountType = "new"
;Var testservice = "kbank"
;Var tc = ""
;Var GetScore = ""
;Var OperatorName = ""
;Var SessionID = ""
;GetPayInfo TelephoneNumberQR ECommerceQR ServiceType ServiceParameter SessionID OperatorName CreditAmount1 ServiceAmountFlow GetScore tc
;Var QRCODE99 = ""
;Var QRCODETMP = ""
;
;Var ReqPayInfoFlag = 1
Var StoreCreditFlag = 1
SAVELOG "payment_credit3-p227."
If CART_COUNT >= 1 Then
Open "ROOT/taobin_project/xml/page_payment_cashMore.xml"
Else
Open "ROOT/taobin_project/xml/page_payment_cash.xml"
EndIf
Var BmiYear = SumCreditAmount
Var GetScore = "useCredit"
AddData 22 TelephoneNumber BmiYear PointCrm GetScore
Var ReqAdddata22 = 1
EndIf
Var ShowNotEnoughText = "Invisible"
Var ShowErrorText = "Invisible"
Var ShowLoadingText = "Enable"
Var Tel_Confirm_State = "Disable"
Var Timeout = 0
Refresh
</EventClick>
</Button>
@ -290,6 +319,23 @@
</Image>
<Image>
<X> 260 </X>
<Y> 920 </Y>
<State> ShowLoadingText </State>
<Filename> Var( DirImage + "/loadingText.png") </Filename>
</Image>
<Image>
<X> 260 </X>
<Y> 920 </Y>
<State> ShowErrorText </State>
<Filename> Var( DirImage + "/loadingTextError.png") </Filename>
</Image>

View file

@ -163,6 +163,7 @@
Var MultiTSID = ""
Var PayReference = ""
Var CreditReferenceTmp = ""
Var AddPointFlag = 0
Var PayType = ""

View file

@ -0,0 +1,380 @@
<Popup>
<Cache> "Enable" </Cache>
<Width> 1080 </Width>
<Height> 1920 </Height>
<Background> "0xeae6e1" </Background>
<Volume> SoundVolume </Volume>
<Refresh> "Partial" </Refresh>
<EventOpen>
DEBUGVAR CART1_PICTURE
DEBUGVAR CART2_PICTURE
DEBUGVAR CART3_PICTURE
DEBUGVAR CART1_PDCODE
DEBUGVAR CART2_PDCODE
DEBUGVAR CART3_PDCODE
DEBUGVAR CART1_NAME_ENG
DEBUGVAR CART2_NAME_ENG
DEBUGVAR CART3_NAME_ENG
DEBUGVAR CART1_NAME_THAI
DEBUGVAR CART2_NAME_THAI
DEBUGVAR CART3_NAME_THAI
DEBUGVAR CART1_PRICE
DEBUGVAR CART2_PRICE
DEBUGVAR CART3_PRICE
Var $next.productCode = "xx-xx-nn-next"
Var $prev.productCode = "xx-xx-nn-prev"
Var $curr.productCode = "xx-xx-nn-curr"
Var $next.productPrice = 10
Var $prev.productPrice = 20
Var $curr.productPrice = 30
DEBUGVAR $next.productCode
DEBUGVAR $prev.productCode
DEBUGVAR $curr.productCode
DEBUGVAR $next.productPrice
DEBUGVAR $prev.productPrice
DEBUGVAR $curr.productPrice
Var seeker = "next"
DEBUGVAR seeker
DEBUGVAR seeker.productCode
DEBUGVAR seeker.productPrice
Var seeker.productCode = "nn-nn-nn-setn"
DEBUGVAR seeker.productCode
DEBUGVAR seeker.productPrice
Var TelephoneNumber = seeker.productCode
Var seeker = "prev"
DEBUGVAR seeker
DEBUGVAR seeker.productCode
Var seeker.productPrice = 100
Var seeker.productCode = "-------------"
DEBUGVAR seeker.productCode
DEBUGVAR seeker.productPrice
; again
Var seeker = "next"
DEBUGVAR seeker
DEBUGVAR seeker.productCode
DEBUGVAR seeker.productPrice
</EventOpen>
<Timeout> 1000 </Timeout>
<EventTimeout>
TimerReset
</EventTimeout>
<Image>
<X> 0 </X>
<Y> 380 </Y>
<Filename> "ROOT/taobin_project/image/collectiing/alpha.png" </Filename>
</Image>
<Image>
<X> 158 </X>
<Y> 601 </Y>
<Filename> "ROOT/taobin_project/image/collectiing/img_popup1.png" </Filename>
</Image>
<Button>
<X> 333 </X>
<Y> 1004 </Y>
<Filename> "ROOT/taobin_project/image/collectiing/bn_1.png" </Filename>
<FilenamePress> "ROOT/taobin_project/image/collectiing/bp_1.png" </FilenamePress>
<Sound> "ROOT/sounds/codebuttom.wav" </Sound>
<Volume> SoundVolume </Volume>
<EventClick>
Cart "MakeID" 1
</EventClick>
</Button>
<Button>
<X> 477 </X>
<Y> 1004 </Y>
<Filename> "ROOT/taobin_project/image/collectiing/bn_2.png" </Filename>
<FilenamePress> "ROOT/taobin_project/image/collectiing/bp_2.png" </FilenamePress>
<Sound> "ROOT/sounds/codebuttom.wav" </Sound>
<Volume> SoundVolume </Volume>
<EventClick>
Cart "MakeID" 2
</EventClick>
</Button>
<Button>
<X> 620 </X>
<Y> 1004 </Y>
<Filename> "ROOT/taobin_project/image/collectiing/bn_3.png" </Filename>
<FilenamePress> "ROOT/taobin_project/image/collectiing/bp_3.png" </FilenamePress>
<Sound> "ROOT/sounds/codebuttom.wav" </Sound>
<Volume> SoundVolume </Volume>
<EventClick>
Cart "MakeID" 3
</EventClick>
</Button>
<Button>
<X> 333 </X>
<Y> 1148 </Y>
<Filename> "ROOT/taobin_project/image/collectiing/bn_4.png" </Filename>
<FilenamePress> "ROOT/taobin_project/image/collectiing/bp_4.png" </FilenamePress>
<Sound> "ROOT/sounds/codebuttom.wav" </Sound>
<Volume> SoundVolume </Volume>
<EventClick>
Cart "PreparID" 1
</EventClick>
</Button>
<Button>
<X> 477 </X>
<Y> 1148 </Y>
<Filename> "ROOT/taobin_project/image/collectiing/bn_5.png" </Filename>
<FilenamePress> "ROOT/taobin_project/image/collectiing/bp_5.png" </FilenamePress>
<Sound> "ROOT/sounds/codebuttom.wav" </Sound>
<Volume> SoundVolume </Volume>
<EventClick>
Cart "PreparID" 2
</EventClick>
</Button>
<Button>
<X> 620 </X>
<Y> 1148 </Y>
<Filename> "ROOT/taobin_project/image/collectiing/bn_6.png" </Filename>
<FilenamePress> "ROOT/taobin_project/image/collectiing/bp_6.png" </FilenamePress>
<Sound> "ROOT/sounds/codebuttom.wav" </Sound>
<Volume> SoundVolume </Volume>
<EventClick>
Cart "PreparID" 3
</EventClick>
</Button>
<Button>
<X> 333 </X>
<Y> 1292 </Y>
<Filename> "ROOT/taobin_project/image/collectiing/bn_7.png" </Filename>
<FilenamePress> "ROOT/taobin_project/image/collectiing/bp_7.png" </FilenamePress>
<Sound> "ROOT/sounds/codebuttom.wav" </Sound>
<Volume> SoundVolume </Volume>
<EventClick>
Var ahash = ""
GenHashWithTimeStamp ahash
DEBUGVAR ahash
</EventClick>
</Button>
<Button>
<X> 477 </X>
<Y> 1292 </Y>
<Filename> "ROOT/taobin_project/image/collectiing/bn_8.png" </Filename>
<FilenamePress> "ROOT/taobin_project/image/collectiing/bp_8.png" </FilenamePress>
<Sound> "ROOT/sounds/codebuttom.wav" </Sound>
<Volume> SoundVolume </Volume>
<EventClick>
Var date_time_str = ""
STRDATETIME date_time_str
Var date_time_str = "/mnt/sdcard/scn_" + date_time_str
Var date_time_str = date_time_str + ".png"
DEBUGVAR date_time_str
SCREEN_CAP date_time_str
</EventClick>
</Button>
<Button>
<X> 620 </X>
<Y> 1292 </Y>
<Filename> "ROOT/taobin_project/image/collectiing/bn_9.png" </Filename>
<FilenamePress> "ROOT/taobin_project/image/collectiing/bp_9.png" </FilenamePress>
<Sound> "ROOT/sounds/codebuttom.wav" </Sound>
<Volume> SoundVolume </Volume>
<EventClick>
Cart "DeleteMenuID" 2
</EventClick>
</Button>
<Button>
<X> 477 </X>
<Y> 1432 </Y>
<Filename> "ROOT/taobin_project/image/collectiing/bn_0.png" </Filename>
<FilenamePress> "ROOT/taobin_project/image/collectiing/bp_0.png" </FilenamePress>
<Sound> "ROOT/sounds/codebuttom.wav" </Sound>
<Volume> SoundVolume </Volume>
<EventClick>
Var seeker = "prev"
DEBUGVAR seeker
DEBUGVAR seeker.productCode
DEBUGVAR seeker.productPrice
TransferVar "prev" "next"
DEBUGVAR seeker
DEBUGVAR seeker.productCode
DEBUGVAR seeker.productPrice
Var seeker = "prev"
DEBUGVAR seeker
DEBUGVAR seeker.productCode
DEBUGVAR seeker.productPrice
</EventClick>
</Button>
<Button>
<X> 620 </X>
<Y> 1432 </Y>
<Filename> "ROOT/taobin_project/image/collectiing/bn_back-1.png" </Filename>
<FilenamePress> "ROOT/taobin_project/image/collectiing/bp_back-1.png" </FilenamePress>
<Sound> "ROOT/sounds/codebuttom.wav" </Sound>
<Volume> SoundVolume </Volume>
<EventClick>
Open "ROOT/taobin_project/xml/page_back_to_main.xml"
</EventClick>
</Button>
<Button>
<X> 218 </X>
<Y> 1607 </Y>
<Filename> Var( DirImage + "/bn_cancel2.png" )</Filename>
<FilenamePress> Var( DirImage + "/bp_cancel2.png" )</FilenamePress>
<Sound> "/mnt/sdcard/coffeevending/wav/click.wav" </Sound>
<Volume> SoundVolume </Volume>
<EventClick>
Var PayState1 = "PressForever"
Var PayState2 = "Enable"
Var QRChannel = 0
Var CodeChannel = 0
Open "ROOT/taobin_project/xml/page_catalog.xml"
</EventClick>
</Button>
<Button>
<X> 577 </X>
<Y> 1607 </Y>
<Refresh> "Enable" </Refresh>
<State> Tel_Confirm_State </State>
<Filename> Var( DirImage + "/bn_confirm.png" ) </Filename>
<FilenamePress> Var( DirImage + "/bp_confirm.png" )</FilenamePress>
<FilenameDisable> Var( DirImage + "/bn_confirm.png" )</FilenameDisable>
<Sound> "ROOT/sounds/codebuttom.wav" </Sound>
<Volume> SoundVolume </Volume>
<EventClick>
Var GetAccFlag = 1
GETACCEXT TelephoneNumber 13
</EventClick>
</Button>
<Image>
<X> 217 </X>
<Y> 802 </Y>
<Filename> Var( DirImage + "/img3.png" ) </Filename>
</Image>
<Image>
<X> 244 </X>
<Y> 817 </Y>
<State> ShowTextNumber </State>
<Refresh> "Enable" </Refresh>
<Filename> Var( DirImage + "/text14.png" )</Filename>
</Image>
<Image>
<X> 248 </X>
<Y> 836 </Y>
<State> ShowTextNumber </State>
<Refresh> "Enable" </Refresh>
<Filename> Var( DirImage + "/Group.png" )</Filename>
</Image>
<Text>
<X> 0 </X>
<Y> 817 </Y>
<Width> 1080 </Width>
<Align> Center </Align>
<Size> 62 </Size>
<Font> RobotoBlack </Font>
<Color> 0x513C2F </Color>
<Refresh> "Enable" </Refresh>
<Value> TelephoneNumber </Value>
</Text>
<Image>
<X> 188 </X>
<Y> 626 </Y>
<Filename> Var( DirImage + "/text_13.png" )</Filename>
</Image>
<Image>
<X> 444 </X>
<Y> 945 </Y>
<State> ShowErrorText </State>
<Refresh> "Enable" </Refresh>
<Filename> Var( DirImage + "/text_show_notfound.png") </Filename>
</Image>
<Image>
<X> 0 </X>
<Y> 400 </Y>
<Width> 400</Width>
<Height> 300 </Height>
<Filename> "ROOT/taobin_project/image/ad_medium_2.png" </Filename>
</Image>
<Video>
<X> 0 </X>
<Y> 0 </Y>
<Width> 1080</Width>
<Height> 380 </Height>
<Loop> "true" </Loop>
<Filename> video_menu_0 </Filename>
</Video>
<EventSecurity>
Open "/media/bt/xml/security_alarm.xml"
</EventSecurity>
</Popup>