Visual Basic - Tique Factura Fiscal Epson

Life is soft - evento anual de software empresarial
 
Vista:

Tique Factura Fiscal Epson

Publicado por Marcos (1 intervención) el 01/03/2012 16:44:14
Hola a todos los programadores, necesito ayuda para resolver un problema que tengo a la hora de imprimir ticket factura A en una impresora fiscal Epson TM-U220AF.
Al enviarle los datos del cliente (nombre, domicilio y cuit) en la linea que me devuelve los errores me devuelve varios codigos de error de la impresora.

Código de retorno: B03 a medida que apretó aceptar/0102/0205/0102
Estado impresora: 0000
Estado Fiscal: C080

Muestro la linea que me esta funcionando bien.

'Abrir (esto abre la cabecera del ticket)

sCmd = Chr$(&HB) + Chr$(&H1)
If bAnswer Then bAnswer = Me.EpsonFP.AddDataField(sCmd)
sCmdExt = Chr$(&H0) + Chr$(&H0)
If bAnswer Then bAnswer = Me.EpsonFP.AddDataField(sCmdExt)
If bAnswer Then bAnswer = Me.EpsonFP.AddDataField("Nombre Comprador #1")
If bAnswer Then bAnswer = Me.EpsonFP.AddDataField("Nombre Comprador #2")
If bAnswer Then bAnswer = Me.EpsonFP.AddDataField("Domicilio Comprador #1")
If bAnswer Then bAnswer = Me.EpsonFP.AddDataField("Domicilio Comprador #2")
If bAnswer Then bAnswer = Me.EpsonFP.AddDataField("Domicilio Comprador #3")
If bAnswer Then bAnswer = Me.EpsonFP.AddDataField("T")
If bAnswer Then bAnswer = Me.EpsonFP.AddDataField("30614104712")
If bAnswer Then bAnswer = Me.EpsonFP.AddDataField("I")
If bAnswer Then bAnswer = Me.EpsonFP.AddDataField("L¡nea de Remitos #1")
If bAnswer Then bAnswer = Me.EpsonFP.AddDataField("L¡nea de Remitos #2")
If bAnswer Then bAnswer = Me.EpsonFP.AddDataField("")
If bAnswer Then bAnswer = Me.EpsonFP.SendCommand
Call FPDelay
If Me.EpsonFP.ReturnCode <> 0 Then ShowMsg

Si yo le mando eso así como está el ticket me sale perfecto, la cosa es cuando en ("Nombre Comprador #1") la reemplazo por el valor que le mando, en este caso (txtnombre.text) y también lo he probado asignándole una variable.
Así me da error:

'Open
ventacuentacorriente = False
sCmd = Chr$(&HB) + Chr$(&H1)
If bAnswer Then bAnswer = Me.EpsonFP.AddDataField(sCmd)
sCmdExt = Chr$(&H0) + Chr$(&H0)
If bAnswer Then bAnswer = Me.EpsonFP.AddDataField(sCmdExt)
If bAnswer Then bAnswer = Me.EpsonFP.AddDataField(nombreticket)
If bAnswer Then bAnswer = Me.EpsonFP.AddDataField("Nombre Comprador #2")
If bAnswer Then bAnswer = Me.EpsonFP.AddDataField(domicilioticket)
If bAnswer Then bAnswer = Me.EpsonFP.AddDataField("Domicilio Comprador #2")
If bAnswer Then bAnswer = Me.EpsonFP.AddDataField("Domicilio Comprador #3")
If bAnswer Then bAnswer = Me.EpsonFP.AddDataField("T")
If bAnswer Then bAnswer = Me.EpsonFP.AddDataField(cuitticket)
If bAnswer Then bAnswer = Me.EpsonFP.AddDataField("I")
If bAnswer Then bAnswer = Me.EpsonFP.AddDataField("L¡nea de Remitos #1")
If bAnswer Then bAnswer = Me.EpsonFP.AddDataField("L¡nea de Remitos #2")
If bAnswer Then bAnswer = Me.EpsonFP.AddDataField("")
If bAnswer Then bAnswer = Me.EpsonFP.SendCommand
Call FPDelay
If Me.EpsonFP.ReturnCode <> 0 Then ShowMsg

Esta ultima línea que aparece es la que me devuelve los errores.
Les agradezco desde ya y ojala me puedan ayudar...
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