Versions des environnements
Network:
Windows 2000 Server
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.
Suivant
Répondre
Voir le fil de ce thread
Voir le fil de ce thread à partir de ce message seulement
Voir tous les messages de ce thread
Voir tous les messages de ce thread à partir de ce message seulement