1 reply to this topic

[j.rivas85]

Disculpen por re abrir este tema...

Soy Nuevo con las Impresoras Fiscales. Tengo una Bixolon 350
y necesito Contruir 3 metodos en mi clase Imp_FiscalNet
q me retornen
string f= UltimaFacturaImpresa();
string s= SerialImpresora();
string d= UltimaDevolucionImpresa();

gracias por la ayuda de antemano...

[eduarcol]

delphi

function NumeroUltimaFactura: String;
var
   status:^Integer;
   error:^Integer;
   lArchivo: TStringList;
   cArchivo, cCadena: String;
begin
   //Ejecuta el comando de consulta para la ultima factura
   cArchivo := ExtractFileDir(Application.ExeName) + '\status.txt';
   if UploadStatusCmd(@status,@error,'S1', cArchivo) then
   begin
      //Carga el archivo guardado
      lArchivo := TStringList.Create;
      try
         lArchivo.LoadFromFile(cArchivo);
         cCadena := lArchivo.Strings[0];
      finally
         Result := Copy(cCadena, 22, 8);
         FreeandNil(lArchivo);
      end;
   end
   else
      //No devuelve resultados
      Result := '';
end;

delphi

function NumeroUltimaNC: String;
var
   status:^Integer;
   error:^Integer;
   lArchivo: TStringList;
   cArchivo, cCadena: String;
begin
   //Ejecuta el comando de consulta para la ultima factura
   cArchivo := ExtractFileDir(Application.ExeName) + '\status.txt';
   if UploadReportCmd(@status,@error,'U0X', cArchivo) then
   begin
      //Carga el archivo guardado
      lArchivo := TStringList.Create;
      try
         lArchivo.LoadFromFile(cArchivo);
         cCadena := lArchivo.Strings[0];
      finally
         Result := Copy(cCadena, Length(cCadena) - 7, Length(cCadena));
         FreeandNil(lArchivo);
      end;
   end
   else
      //No devuelve resultados
      Result := '';
end;

El del serial no lo tengo, pero lo puedes sacar con uploadstatuscmd con el parametro S1, fijate en el manual y lo puedes adaptar.

Cualquier cosa avisas.