Epson TM900 Parametros dll

[zuncopop]

Buenas tardes, estoy desarrollando una aplicación para esta impresora fiscal y no logro obtener el ultimo numero de comprobante fiscal (tique-factura A o B) alguien tiene algún ejemplo que me pudiera facilitar. se los voy a agradecer muchísimo ya que me estoy volviendo Loco. gracias Slds

[omarperez.qui]

Empezado por zuncopop

Buenas tardes, estoy desarrollando una aplicación para esta impresora fiscal y no logro obtener el ultimo numero de comprobante fiscal (tique-factura A o B) alguien tiene algún ejemplo que me pudiera facilitar. se los voy a agradecer muchísimo ya que me estoy volviendo Loco. gracias Slds

Hola Zuncopop, seria bueno saber si estas usando la dll EpsonFiscalInterface.dll, con los metodos que explica Escafandra mas arriba o cual.

[zuncopop]

buen dia , Omar te agradezco la atencion. si estoy usando la libreria fiscal tal como lo describe escafandra y me funciona todo perfecto, excepto cuando quiero recuperar el ultimo numero de comprobante emitido. el comando que utilizo es el siguiente

TConsultarNumeroComprobanteUltimo = Function (tipo_de_comprobante : String; respuesta : String; respuesta_largo_maximo : LongInt): LongInt; StdCall;

[[escafandra]]

String no es un tipo válido en AnsiC, por lo que la declaración que haces de la función es errónea. Por otro lado la declaracion en C la hacen de esta forma:

Código PHP:

  DLL_EXPORT_IMPORT int DLL_STD_CALL ConsultarNumeroComprobanteUltimo( const char *tipo_de_comprobante, char *respuesta, int respuesta_largo_maximo ); 


Yo probaría de esta forma:

Código Delphi [-]
  TConsultarNumeroComprobanteUltimo = function (tipo_de_comprobante, respuesta: PAnsiChar; respuesta_largo_maximo: LongInt): LongInt; StdCall;

Saludos.

[zuncopop]

gracias escafandra ahora lo pruebo y comento como me fue.

[omarperez.qui]

Hola Zuncopop, yo estoy usando lo siguiente y me funciona bien...

---Esto lo tengo en una unidad separada---

Código Delphi [-]
TConsultarNumeroComprobanteActual = Function( respuesta :PAnsiChar; respuesta_largo_maximo :Longint): LongInt; StdCall;


  Function ConsultarTipoComprobanteActual( respuesta :PAnsiChar; respuesta_largo_maximo :Longint): LongInt;

Function ConsultarNumeroComprobanteActual( respuesta :PAnsiChar; respuesta_largo_maximo :Longint): LongInt;
var ConsultarNumeroComprobanteActual: TConsultarNumeroComprobanteActual;
  error : LongInt;
Begin
 @ConsultarNumeroComprobanteActual := GetProcAddress(T900dll, 'ConsultarNumeroComprobanteActual');
 error := ConsultarNumeroComprobanteActual( @Respuesta[0], respuesta_largo_maximo );
 Result :=  Error;
End;

-------En el modulo de facturacion---------

Código Delphi [-]
var vNroComprobante: array[0..10] of Ansichar;

  error:=Ut900.ConsultarNumeroComprobanteActual( @vNroComprobante, 10 );
  if error>0 then MostrarError900(error);

Gracias a Escafandra!!!
Espero te sirva, saludos

[softarg]

Hola a todos, veo que algunos ya están hace tiempo luchando con esta impresora.

Estoy tratando de importar la Dll = EpsonFiscalInterface.dll en Delphi 10.3 pero es imposible, "Error al cargar la bibioteca de tipo/DLL".

Intente registrar la Dll de varias formas y tampoco funciona.

alguno pudo traducir todas las llamadas a las funciones?
hay alguna forma de ver cuales son las funciones expuestas por la Dll?

estoy atorado hace días con esto, agradezco su tiempo.

Saludos Softarg.