[SOLUCIONADO] Visual Basic .NET 2010 con EpsonFPHostControlX.ocx

[triby25]

Buen dia foro

Estoy trabajando en visual basic 2010 y tengo que hacer un aplicacion que se comunique con una impresora fiscal EPSON TM-T88IV , tengo el EpsonFPHostControlX.ocx que provee epson para manejar este tipo de impresoras. El problemas es que le envio los comandos que dice en el manual y estos dan error y a veces no dan error pero aun asi el printer no hace nada de lo que le indico.

este es el codigo que estoy utilizando:

Dim ok As Boolean <---para saber si el comando se ejecuta correctamente(true=correcto,false=incorrecto)

ok = FPHostControl1.OpenPort()

ok = FPHostControl1.AddDataField(Chr(&H2)) <-----aca da error (retorna false)

ok = FPHostControl1.AddDataField(Chr(&H82))

ok = FPHostControl1.AddDataField(Chr(&H7)) <-----desde aca

ok = FPHostControl1.AddDataField(Chr(&H1B))

ok = FPHostControl1.AddDataField(Chr(&H2))

ok = FPHostControl1.AddDataField(Chr(&H1C))

ok = FPHostControl1.AddDataField(Chr(&H0))

ok = FPHostControl1.AddDataField(Chr(&H0))

ok = FPHostControl1.AddDataField(Chr(&H3)) <-----hasta aca da error

ok = FPHostControl1.SendCommand()

ok = FPHostControl1.ClosePort()

Lo que estoy intentando hacer es que la impresora corte el papel el comandoque se le envia al printer para esto es 07 02 en hexadecimal, tambien he intendado poner todo en un string y enviarlo y aun asi da error.

Si alguien en el foro ha tenido experiencia en este tema y me puede ayudar se lo agradeceria mucho.

[triby25]

problema resuelto,

luego de configurar el puerto con :

FPHostControl1.BaudRate = EpsonFPHostControlX.TxBaudRate.br38400
FPHostControl1.CommPort = EpsonFPHostControlX.TxCommPort.Com1
FPHostControl1.ProtocolType = EpsonFPHostControlX.TxProtocolType.protocol_Extend

solo tenia que mandar el comando y la extension y listo:

dim comando asstring = Chr(&H2)+Chr(&H7)
dim extension as string = Chr(&H0)+Chr(&H0)

OK = FPHostControl1.OpenPort()
OK = FPHostControl1.AddDataField(comando)
OK = FPHostControl1.AddDataField(extension)
OK = FPHostControl1.SendCommand()
OK = FPHostControl1.ClosePort()

todos lo demas lo agrega la impresora

[angeldarior]

Sabes cual es el código de la Nota de de Credito (Devolución) para facturas con Credito o Valor Fiscal?

[triby25]

Iniciado por angeldarior

Sabes cual es el código de la Nota de de Credito (Devolución) para facturas con Credito o Valor Fiscal?

pues el codigo es el mismo que el de una factura,solo cambia el ultimo bit de la extension por 2 o 3 de pendiendo si tiene valor fiscal o no.

Ej: sin valor fiscal
Dim comando As String = Chr(10) + Chr(1)
Dim extension As String = Chr(10) + Chr(2)

Ej: con valor fiscal

Dim comando As String = Chr(10) + Chr(1)
Dim extension As String = Chr(10) + Chr(3)