Ver Mensaje Individual
  #1  
Antiguo 23-11-2019
b_ernesto b_ernesto is offline
Registrado
 
Registrado: may 2016
Posts: 3
Reputación: 0
b_ernesto Va por buen camino
Question Impresora Hasar 2G Comando ConsultarEstado

Hola, estoy tratando de conocer cual es el último numero de ticket impreso con una Hasar 1000, y me esta respondiendo cualquier número.
Me estoy conectando desde delphi 2007 con el OCX actualizado.

Me responde números tipo 1441792


Código Delphi [-]
Function TImprimeFiscalG2Form.ControlarNumero(Tipo_Comprobante_Fiscal:String;Letra_Comp:String):Integer;
Var NumeroTipoComp:TiposComprobante;
      RespConsultarEstado:RespuestaConsultarEstado;
begin
     ConectarImpresora;
     NumeroTipoComp := 0;
     If Tipo_Comprobante_Fiscal='Factura' then Begin
              if Letra_Comp='A' then NumeroTipoComp := FacturaA;
              if Letra_Comp='B' then NumeroTipoComp := FacturaB;
              if Letra_Comp='C' then NumeroTipoComp := FacturaC;
     end;

     RespConsultarEstado := Hasar1.ConsultarEstado(NumeroTipoComp);
     Result := RespConsultarEstado.NumeroUltimoComprobante;
end;

A alguien se le ocurre algo ?

Saludos y Gracias.
Responder Con Cita