I have sample that's worked. But i tested only in Poland and messages are in
Polish language...
STATIC FUNCTION PrzyjmijWplate(oParent, lRet, oSposob, oTools, nKwota)
LOCAL nRet := xbe_None, oCard, lRetPl := .F.
LOCAL oInfo := MyInfo(oParent, {"Proszę czekać", "Trwa komunikacja z
terminalem płatniczym"}), cTxt := ""
oCard := eCard():New()
oCard:SetPort(1)
IF oCard:Ready()
lRetPl := oCard:Platnosc(nKwota, @oInfo)
IF !lRetPl
cTxt := oCard:GetError()
ENDIF
ELSE
cTxt := oCard:GetError()
ENDIF
SetApPFocus(oParent)
oInfo:destroy()
IF lRetPl
//Komunikat(oParent, Txt("Płatność zakończona prawidłowo !"))
lRet := .T.
oSposob:SetData({2})
nRet := xbeP_Close
ELSE
Komunikat(oParent, Txt("Błąd płatności : " + cTxt), "B")
ENDIF
RETURN (nRet)
Adrian Wykrota
www.asitc.pl
Użytkownik "Richard A. Pulliam" napisał w wiadomości grup
dyskusyjnych:60c8f6a4$519ee0b9$174e9@news.alaska-software.com...
Any suggestions? Never done this.
Richard A. Pulliam
138 Colina Circle
Panama City Beach, Florida 32413 USA
Voice and Fax: (001) 850-588-9935 Cell: (001) 850-238-1203
Skype: richard_pulliam
http://www.ClipperSolutions.com
Chat with me
---
This email is free from viruses and malware because avast! Antivirus
protection is active.
http://www.avast.com
eCard.Prg