Hi,
I have installed a simple script to CAL\Win32\Files\Micros\Res\Pos\Etc
called it pms1.isl and setup devices->interface with SIM interface checked.
I created a button on PAY Screen with:
Category: SIM/PMS Inquire
Interface: 1 PMS1 (this is what i called it)
Inquire: 1
Then restart the machine. When the machine starts I get pings from the micros host to my transaction server ok and i see a log file show up on the res/pos/etc folder
I click the button and instead of showing the windw i put in script i just get a screen that allows me to enter data and when i click ok it sends standard tx to my host. BUT the script is not running its supposed to show a screen, build a defined message and then transact?
Any help is much appreciated and if there is anyone out there who want to earn a few buck helping me i wold gladly pay.
Here is my script:
/////////////////////////////////////////////////////////////////
// EVENTS ///
/////////////////////////////////////////////////////////////////
// EVENT INQ : 1 - Collect data Transmit Message to Host ///
/////////////////////////////////////////////////////////////////
event inq : 1
var in_data : A8 = ""
var atmp : A1024
// Get inpput
window 2, 50, "TEST DATA COLLECTION"
display 2, 2, "Enter 8 characters:"
input in_data, " "
// Build the request message
format atmp as "<ISOMSG><MTI>1206</MTI> <TXCODE>001504</TXCODE>"
format atmp as atmp, "<STN>", @CKNUM, "</STN>"
format atmp as atmp, "<AMTTX>", @TNDTTL, "</AMTTX>"
format atmp as atmp, "<RIN>", in_data, "</RIN>"
format atmp as atmp, "<AUTHKEY></AUTHKEY></ISOMSG>"
// Send the message
txmsg atmp
getrxmsg "Communicating..."
//read the rxmsg
atmp = @rxmsg
if atmp = "_timeout" or atmp = "_Timeout"
errormessage "Request Timeout"
exitcancel
endif
window 12,50, "Result"
for dmi=0 to 11
if trim(mid(atmp, 40*dmi + 1, 40)) <> ""
display dmi+1, 1, mid(atmp, 40*dmi + 1, 40)
else
break
endif
endfor
waitforenter
endevent
I have installed a simple script to CAL\Win32\Files\Micros\Res\Pos\Etc
called it pms1.isl and setup devices->interface with SIM interface checked.
I created a button on PAY Screen with:
Category: SIM/PMS Inquire
Interface: 1 PMS1 (this is what i called it)
Inquire: 1
Then restart the machine. When the machine starts I get pings from the micros host to my transaction server ok and i see a log file show up on the res/pos/etc folder
I click the button and instead of showing the windw i put in script i just get a screen that allows me to enter data and when i click ok it sends standard tx to my host. BUT the script is not running its supposed to show a screen, build a defined message and then transact?
Any help is much appreciated and if there is anyone out there who want to earn a few buck helping me i wold gladly pay.
Here is my script:
/////////////////////////////////////////////////////////////////
// EVENTS ///
/////////////////////////////////////////////////////////////////
// EVENT INQ : 1 - Collect data Transmit Message to Host ///
/////////////////////////////////////////////////////////////////
event inq : 1
var in_data : A8 = ""
var atmp : A1024
// Get inpput
window 2, 50, "TEST DATA COLLECTION"
display 2, 2, "Enter 8 characters:"
input in_data, " "
// Build the request message
format atmp as "<ISOMSG><MTI>1206</MTI> <TXCODE>001504</TXCODE>"
format atmp as atmp, "<STN>", @CKNUM, "</STN>"
format atmp as atmp, "<AMTTX>", @TNDTTL, "</AMTTX>"
format atmp as atmp, "<RIN>", in_data, "</RIN>"
format atmp as atmp, "<AUTHKEY></AUTHKEY></ISOMSG>"
// Send the message
txmsg atmp
getrxmsg "Communicating..."
//read the rxmsg
atmp = @rxmsg
if atmp = "_timeout" or atmp = "_Timeout"
errormessage "Request Timeout"
exitcancel
endif
window 12,50, "Result"
for dmi=0 to 11
if trim(mid(atmp, 40*dmi + 1, 40)) <> ""
display dmi+1, 1, mid(atmp, 40*dmi + 1, 40)
else
break
endif
endfor
waitforenter
endevent