Foros Club Delphi

Foros Club Delphi (https://www.clubdelphi.com/foros/index.php)
-   Varios (https://www.clubdelphi.com/foros/forumdisplay.php?f=11)
-   -   SysCommand en IFEpson.ocx Epson Impresora Fiscal (https://www.clubdelphi.com/foros/showthread.php?t=93552)

fcios 08-11-2018 18:51:10

SysCommand en IFEpson.ocx Epson Impresora Fiscal
 
Hola, alguien tiene un ejemplo utilizando el SysCommand ?

estoy tratando de cancelar documentos utilizando el IFEpson.ocx 2.0
( ya que no viene implementada como otras funciones )

el manual del ActiveX Control Para Impresoras Fiscales EPSON OCXFiscal.pdf detalla la función

Código:

Function SysCommand(Dat1 As String, Dat2 As String, Dat3 As String, Optional Dat4 As String = "",
Optional Dat5 As String = "", Optional Dat6 As String = "", Optional Dat7 As String = "", Optional Dat8 As
String = "", Optional Dat9 As String = "", Optional Dat10 As String = "") As Boolean

Para cancelar un documento fiscal abierto debería mandarle $0B + $07

he probado mandando lo siguiente (y muchas otras formas)
ws1 a 10 están definidas como widestring

Código:

  ws1:=''; ws2:=''; ws3:=''; ws4:=''; ws5:=''; ws6:=''; ws7:=''; ws8:=''; ws9:=''; ws10:=''; // limpio valores
  ws1:= chr($0B); ws2:=chr($07);        //  cancela Doc fisc abierto

  if PrnFisc.SysCommand(ws1,ws2,ws3,ws4,ws5,ws6,ws7,ws8,ws9,ws10) then
    showmessage('CANCELADO')
  else
    showmessage('ERROR');

como respuesta en el campo PrnFisc.AnswerField_3 recibo 'Error en el numero de parametros'

Muchas gracias de antemano


La franja horaria es GMT +2. Ahora son las 11:07:35.

Powered by vBulletin® Version 3.6.8
Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
Traducción al castellano por el equipo de moderadores del Club Delphi