RxMsg message from TCP server

[RitwickGupta]

So I am using a TCP server program to simulate the PMS. I can send all the data needed using TxMsg command, but I don't know what to send back from the PMS to my ISL code in SIM. My code looks like

var ref             		 : A32 \ 

event inq : 1 //Use Inquiry key #1 to get order info.

//Doing menu stuff here

TxMsg "Pay", @ttldue, @Cknum, menuItemCount, menuItemName[], menuItemCount, menuItemTtl[], menuItemCount, menuItemQty[]

waitforrxmsg "Communicating with Payments..."

LoadKybdMacro key(9, 199)
loadkybdmacro makekeys(total),@key_enter
loadkybdmacro makekeys(ref),@key_enter

endevent

event tmed : 199
window 7, 50, "Payment Info"
display 1,2, "Total: ", total
display 2,2, "Reference Code: ", ref
waitforenter
endevent

event rxmsg : *
rxmsg ref   
endevent

I want to send back a "Yes" or a "No" back to rxmsg. What should be the msg which is being sent back to SIM from the TCP server?

 

[Moregelen]

There are a few options. The easiest is that you can actually have your interface specify which event to process.


For example, you can send back:

display_error,Fatal Error,A fatal error (167) was encounterd

And then in your isl:

event rxmsg : display_error
[indent]var title : A40
var message : A40
rxmsg title,message
infomessage title,message
exitcontinue
[/indent]endevent

This is the easiest method. Things get a bit more complicated, though still fairly straightforward, when you're receiving an array back.

 

[RitwickGupta]

Where can I get a good documentation for this and how to program the tcp server msgs back to SIM. I am still not sure about the TCP message back. Will sending back "display_error,Fatal Error,A fatal error (167) was encountered" work? I am talking about the exact format.

 

[Moregelen]

Here is an example of an interface I wrote for a delivery joint. It allows them to print google maps directions at the register.

var sql_h : n12

EVENT INQ : 1

	If @CustomerSeq[ 1 ] < 1
		Exitwitherror "Please select customer first!"
	endif

	@CustomerInfo = 1
	var addrLine1 : A200 = @CustomerInfoLine[ 3 ]
	var addrLine2 : A200 = @CustomerInfoLine[ 4 ]
	var cityZip   : A200 = @CustomerInfoLine[ 5 ]

	IF addrLine1 = "" OR cityZip = ""
		exitwitherror "Missing address information!"
	ENDIF

	var destination : A2000
	format destination as addrLine1, ", ", addrLine2, ", ", cityZip

	txmsg "get_directions", "** PUT YOUR START ADDRESS HERE **", destination
	VAR MESSAGE : A78 = "Please wait; getting Google Maps directions"
	VAR CENTER : N3 = (78-LEN(MESSAGE))/2
	WINDOW 3,78
	DISPLAY 2, CENTER, MESSAGE
	waitforrxmsg
	
ENDEVENT


EVENT RXMSG : ERROR_MESSAGE

	VAR ERROR : A200
	RXMSG ERROR
	EXITWITHERROR ERROR

ENDEVENT

EVENT RXMSG : PRINT_DIRECTIONS

	VAR STEPS : N3
	VAR STEP[ 500 ] : A200
	VAR PARTA : A40
	VAR PARTB : A160
	VAR TOTALTIME : A50
	VAR TOTALDISTANCE : A50
	RXMSG TOTALTIME, TOTALDISTANCE, STEPS, STEP[]
	VAR I2 : N3

	@CustomerInfo = 1
	var addrLine1 : A200 = @CustomerInfoLine[ 3 ]
	var addrLine2 : A200 = @CustomerInfoLine[ 4 ]
	var cityZip      : A200 = @CustomerInfoLine[ 5 ]

	STARTPRINT @CHK
		PRINTLINE "   Google Maps Directions"
		PRINTLINE ""
		PRINTLINE "Estimated Time: ", TOTALTIME
		PRINTLINE "Total Distance: ", TOTALDISTANCE
		PRINTLINE ""
		PRINTLINE "Destination:"
		PRINTLINE addrLine1
		PRINTLINE addrLine2
		PRINTLINE cityZip
		PRINTLINE ""
		
		FOR I2 = 1 TO STEPS
			PRINTLINE CHR(27), CHR(64), " ", STEP[I2]
		ENDFOR
	ENDPRINT
ENDEVENT

 

[RitwickGupta]

I understand the SIM code. My question is, what did you send from TCP server back to SIM so that the command "RXMSG TOTALTIME, TOTALDISTANCE, STEPS, STEP[]" worked properly. How is that msg formatted?

 

[Moregelen]

Here is the sim guide:

https://www.dropbox.com/s/7faysdto23fik08/SIM Guide.pdf?dl=0

In the guide you will find:

Message Format
The format of the message is as follows:
SOH ID STX Data ETX Checksum EOT

I've noticed the checksum doens't actually matter so I tend not to actually calculate it anymore.

 

[Moregelen]

Its old school - think serial communication over TCP protocols.

 

[Moregelen]

Ok then..

Some C# code I wrote way back when I was first doing interfaces for Micros:

[COLOR=#0000FF]private[/color] [COLOR=#0000FF]string[/color] FormatMessage([COLOR=#2B91AF]MicrosMessage[/color] microsMessage, [COLOR=#0000FF]string[/color] functionName, [COLOR=#0000FF]params[/color] [COLOR=#0000FF]object[/color][] values)
{
    [COLOR=#0000FF]string[/color] message = functionName;
    [COLOR=#2B91AF]LogManager[/color].PrintEvent([COLOR=#A31515]"Calling GetObjectString"[/color], [COLOR=#2B91AF]MessagePriority[/color].DEBUG_PRINT);
    message += GetObjectString(values);
    [COLOR=#2B91AF]LogManager[/color].PrintEvent([COLOR=#A31515]"parsed array into "[/color] + message, [COLOR=#2B91AF]MessagePriority[/color].DEBUG_PRINT);
    message = [COLOR=#0000FF]string[/color].Format([COLOR=#A31515]"\x001{0}{1}\x002\x1c{2}{3}{4}\x003\x004"[/color],
                                microsMessage.UWS,
                                microsMessage.InterfaceMessage,
                                microsMessage.TransmissionNumber,
                                microsMessage.RetransmissionFlag,
                                message);
    [COLOR=#2B91AF]LogManager[/color].PrintEvent([COLOR=#A31515]"Return message formatted as "[/color] + message, [COLOR=#2B91AF]MessagePriority[/color].DEBUG_PRINT);
    [COLOR=#0000FF]return[/color] message;
}