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.