Hi everyone,

I have a question for programing with POS display stand

I have some simple code ( VB code ) as below :
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
Dim customerdispdata As String
customerdispdata = "Pay"
Dim paystr As String
paystr = "HKD" & Trim(Format(payamt, "###,##0.00"))
customerdispdata = customerdispdata & paystr

On Error Resume Next
AxNETComm1.CommPort = display_CommPort
AxNETComm1.set_Settings("9600,N,8,1")
AxNETComm1.PortOpen = True
AxNETComm1.set_Output(Chr(12) + customerdispdata)
AxNETComm1.PortOpen = False
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~

This VB code is copy from our old system, its work in order.

Please exchage the code into VFP command.

Thank a lot.