FoxPro/Visual FoxPro - Impresoras Fiscales RD

   
Vista:

Impresoras Fiscales RD

Publicado por Antonio R. Moquete Mejia a_moquete@hotmail.com (201 intervenciones) el 02/08/2011 18:06:55
Saludos, tengo un POS, donde un cliente, y a este se le notificó de que tiene que instalar Impresoras fiscales.

Tengo la ocx, de epson, y tengo un ejemplo en VB, pero no logro traducirlo a Foxpro, estoy utilizando VF7, les dejo lo que tengo en Vb, a ver si alquien lo puede traducir a VF.

VB:-----
Esto funciona bien en VB

Private Sub Command1_Click()

Dim command As String
Dim extension As String
Dim comando, campo1, campo2, campo3, campo4, campo5, campo6, campo7, campo8 As String
Dim enviar As Boolean
Dim envio As Boolean
command = Chr$(&HA) + Chr$(&H1)
extension = Chr$(&H0) + Chr$(&H0)
campo1 = "" 'Nro de Logo
campo2 = "" 'Densidad
campo3 = "0001" 'Sucursal
campo4 = "0001" 'Caja
campo5 = "1234567890123456789" 'NCF
campo6 = "Razon Social Comprador" 'Razon Social Comprador
campo7 = "44444044444" ' RNC Comprador
campo8 = "0987654321098765432" ' NCF Referencia


enviar = Me.EpsonFPHostControl1.AddDataField(command)
enviar = Me.EpsonFPHostControl1.AddDataField(extension)
enviar = Me.EpsonFPHostControl1.AddDataField(campo1)
enviar = Me.EpsonFPHostControl1.AddDataField(campo2)
enviar = Me.EpsonFPHostControl1.AddDataField(campo3)
enviar = Me.EpsonFPHostControl1.AddDataField(campo4)
enviar = Me.EpsonFPHostControl1.AddDataField(campo5)
enviar = Me.EpsonFPHostControl1.AddDataField(campo6)
enviar = Me.EpsonFPHostControl1.AddDataField(campo7)
enviar = Me.EpsonFPHostControl1.AddDataField(campo8)
envio = Me.EpsonFPHostControl1.SendCommand
End Sub


VF:--

esto lo tengo en el evento click de un boton y no hace ni pio..
PUBLIC command1

PUBLIC extension
public comando, campo1, campo2, campo3, campo4, campo5, campo6, campo7, campo8
public enviar

SET STEP ON
command1 = CHR(0xA) + Chr(0x1)
extension = Chr(0x0) + Chr(0x0) && esto no trae nada pero en VB si trae algo

campo1 = "" &&'Nro de Logo
campo2 = "" &&'Densidad
campo3 = "0001" &&'Sucursal
campo4 = "0001" &&'Caja
campo5 = "1234567890123456789" &&'NCF
campo6 = "Razon Social Comprador" &&'Razon Social Comprador
campo7 = "44444044444" &&' RNC Comprador
campo8 = "0987654321098765432" &&' NCF Referencia

Thisform.epsonFPHostControl1.addDataField(COMMAND1)
Thisform.EpsonFPHostControl1.AddDataField(extension)
Thisform.EpsonFPHostControl1.AddDataField(campo1)
Thisform.EpsonFPHostControl1.AddDataField(campo2)
Thisform.EpsonFPHostControl1.AddDataField(campo3)
Thisform.EpsonFPHostControl1.AddDataField(campo4)
Thisform.EpsonFPHostControl1.AddDataField(campo5)
Thisform.EpsonFPHostControl1.AddDataField(campo6)
Thisform.EpsonFPHostControl1.AddDataField(campo7)
Thisform.EpsonFPHostControl1.AddDataField(campo8)
Thisform.EpsonFPHostControl1.SendCommand


att:
Antonio R. Moquete Mejia
Santo Domingo Rep. Dom.
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

Impresoras Fiscales RD

Publicado por edgardvd (135 intervenciones) el 18/08/2011 22:30:17
command = Chr$(&HA) + Chr$(&H1)
extension = Chr$(&H0) + Chr$(&H0)

&HA,&H1,&H0 esos son algunas caracteres que en vb los mandas de esta forma que
creo que es hexadecimal, tienes que investigar que caracter es para que lo envies de forma correcta con vfp

pueden ser un enter o un ESC o bien una letra
para que asi los mandes con el numero correcto chr(13) para el enter
chr(27) para el esc o cualquier otro numero que corresponda al caracter
si en la ayuda ves la funcion INKEY() podras ves los numero que corresponden a cada caracter o tecla en vfp
yo pienso que por ahi puedes tener el problema, ya que con esos caracteres que le envias
a la impresora le dices que se incialize, revisa tmb algo sobre el lenguaje ESC/POS

saludos y espero que te ayude en algo
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar