Dudas al momento de pasar de Firebird a Archivo Texto

[rogeriobeltran]

Hola:

Gracias por mi mirar este documento.

Mi necesidad es de exportar de la base de datos Firebird a arhivos texto. La base de datos es de facturación por lo cual realizo una consulta para buscar el turno a exportar un turno tiene varias facturas, una factura puede tener uno o varios articulos y una factura puede tener uno o varios pagos. Las consultas las realizo con TQuery, utilizo los siguientes:
qBase:Consulto las Facturas.
qDetalle:Consulto los articulos vendidos.
qPago:Consulto los pagos realizados.
qEmpresa: Consulto el encabezado de la factura.
qResolucion: Consulto la resolucion de la factura, la cual es por cada caja una diferente.
qCaja:Consulto la caja de turno.
qArticulo: Asocio el codigo del articulo a la consulta de qDetalle.
qTipoDocumento: Asocio el Codigo de Tipo de Documento a la consulta qBase.
qCliente: Asocio el codigo del cliente a la consulta base.
qEmpresa: Asocio el codigo de la empresa a la consulta base.
qBitacora: Consulto el turno.

Realizo subconsultas de las tablas Cliente, Empresa, Articulo, TipoDocumento, Caja para que las consultas pesadas qBase, qDetalle, tengan en lo posible una sola tabla en su from. No se si este sea mi problema.

Ya realizada las consultas realizo el siguiente procedimiento:

 
 While not qBase.Eof do
 begin
   FGuardarHuella.lbMotivo.Caption := 'Creando Huella Caja:'+FCrearHuella.qBitacora.FieldByName('CODIGOCAJA').AsString+
   ' Cajero: '+FCrearHuella.qBitacora.FieldByName('CODIGOCAJERO').AsString+' Factura: '+intTostr(j)+' de '+IntToStr(Facturas);
   FGuardarHuella.lbMotivo.Refresh;
   qDetalleEncabezado.Close;qDetalleEncabezado.Open;
   qPago.Close;qPago.Open;
   DecodeDate(qBase.FieldByName('FECHA').AsDateTime,Ano,Mes,Dia);
   CadAno:= IntToStr(Ano);
   CadMes := IntToStr(Mes);
   While length(CadMes)<2 do CadMes:='0'+CadMes;
   CadDia := IntToStr(Dia);
   While length(CadDia)<2 do CadDia:='0'+CadDia;
   If FileExists('C:\SISPOS\HUELLA\'+CadAno+CadMes+CadDia+qBase.FieldByName('CodigoCaja').AsString+'.HUE') then
   begin
     AssignFile(F, 'C:\SISPOS\HUELLA\'+CadAno+CadMes+CadDia+qBase.FieldByName('CodigoCaja').AsString+'.HUE');
     Append(F);
     Writeln(F,'');
   end
   else
   begin
     AssignFile(F, 'C:\SISPOS\HUELLA\'+CadAno+CadMes+CadDia+qBase.FieldByName('CodigoCaja').AsString+'.HUE');
     ReWrite(f);
   end;
   GuardarHuella;
   Flush(F);
   CloseFile(F);
   qBase.Next;
   inc(j);
 end;

El procedimiento GuardarHuella realiza lo siguiente:

  

  Cadena := qEmpresaPropiaNIT.AsString+'-'+qEmpresaPropiaNOMBRE.AsString;
  Writeln(F,ComandoImpresion(14)+StrToOEM(Cadena));Flush(F);
  Cadena := qEmpresaPropiaDIRECCION.AsString+'-'+qEmpresaPropiaTELEFONO.AsString;
  Writeln(F,ComandoImpresion(14)+StrToOEM(Cadena));Flush(F);
  Cadena := qEmpresaPropiaEMAIL.AsString;
  Writeln(F,ComandoImpresion(14)+StrToOEM(Cadena));Flush(F);
  Cadena := 'Resolución:'+qResolucionRESOLUCION.AsString+' '+FormatDateTime('mmm dd yyyy',qResolucionFECHADIAN.AsDateTime);
  Writeln(F,ComandoImpresion(14)+StrToOEM(Cadena));Flush(F);
  Cadena := 'Desde:'+qResolucionNUMEROMINIMO.AsString+' Hasta: '+qResolucionNUMEROMAXIMO.AsString;
  Writeln(F,ComandoImpresion(14)+StrToOEM(Cadena));Flush(F);
  Cadena := 'AGENTE RETENEDOR DEL IVA.';
  Writeln(F,ComandoImpresion(14)+StrToOEM(Cadena));Flush(F);
  Cadena := 'REGIMEN COMUN. GRAN CONTRIBUYENTE.';
  Writeln(F,ComandoImpresion(14)+StrToOEM(Cadena));Flush(F);
  Writeln(F,'');Flush(F);

  Cadena := 'CLIENTE:'+qBase.FieldByName('NombreCliente').AsString;
  Cadena := Copy(Cadena,1,39);
  Writeln(F,ComandoImpresion(13)+StrToOEM(Cadena));Flush(F);
  Cadena := 'EMPRESA:'+qBase.FieldByName('NombreEmpresa').AsString;
  Cadena := Copy(Cadena,1,39);
  Writeln(F,ComandoImpresion(13)+StrToOEM(Cadena));Flush(F);
  Writeln(F,'');Flush(F);
  Cadena := 'TIPO FACTURA : '+qBase.FieldByName('Tipo').AsString;
  Writeln(F,ComandoImpresion(13)+StrToOEM(Cadena));Flush(F);
  Cadena := 'FACTURA DE VENTA: '+qBase.FieldByName('NUMERODOCUMENTO').AsString;
  Writeln(F,ComandoImpresion(13)+StrToOEM(Cadena));Flush(F);
  Cadena := 'FECHA: '+FormatDateTime('mmm dd yyyy',qBase.FieldByName('FECHA').AsDateTime)+' HORA: '+FormatDateTime('HH:MM:SS AM/PM',qBase.FieldByName('HORA').AsDateTime);
  Writeln(F,ComandoImpresion(13)+StrToOEM(Cadena));Flush(F);
  Cadena := 'CAJA: '+qBase.FieldByName('CODIGOCAJA').AsString+' Cajero: '+Copy(qBase.FieldByName('CODIGOCAJERO').AsString,1,39);//FFactura.VarCajero;
  Writeln(F,ComandoImpresion(13)+StrToOEM(Cadena));Flush(F);
  Writeln(F,'');Flush(F);
  Cadena := 'Cód.    Artículo    IVA  Cant   Total';
  Writeln(F,StrToOEM(Cadena));Flush(F);

  qDetalleEncabezado.First;
  While not qDetalleEncabezado.Eof do
  begin
    CodArt := qDetalleEncabezado.FieldByName('CODIGOSAARI').AsString;
    While Length(CodArt) < 6 do CodArt :=CodArt+' ';
    Arti := Copy(qDetalleEncabezado.FieldByName('ARTICULO').AsString,1,13);
    While Length(Arti) < 13 do Arti := Arti+' ';
    CadIVA := FormatFloat('#,##',StrToInt(qDetalleEncabezado.FieldByName('IVA').AsString));
    While Length(CadIVA) < 4 do CadIVA := ' '+CadIVA;
    Canti := FormatFloat('#,##0.000',qDetalleEncabezado.FieldByName('CANTIDAD').AsFloat);
    While Length(Canti) < 8 do Canti := ' '+Canti;
    Total := FormatFloat('#,##',qDetalleEncabezado.FieldByName('VALORTOTAL').AsInteger);
    While Length(Total) < 8 do Total := ' '+Total;
    CadenaArticulo := CodArt+Arti+CadIVA+Canti+Total;
    Canvas.TextOut(0,0,CadenaArticulo);
    Writeln(F,CadenaArticulo);Flush(F);

    qDetalleEncabezado.Next;
  end;


  Cadena := ' ';
  Writeln(F,ComandoImpresion(13)+StrToOEM(Cadena));Flush(F);
  Cadena := 'Subtotal    :'+ FormatFloat('''$'' #,##',qBase.FieldByName('TOTALBRUTO').AsFloat);
  Writeln(F,ComandoImpresion(13)+StrToOEM(Cadena));Flush(F);
  Cadena := 'Ahorro      :'+ FormatFloat('''$'' #,##',qBase.FieldByName('TOTALBRUTO').AsInteger-qBase.FieldByName('TOTAL').AsInteger);
  Writeln(F,ComandoImpresion(13)+StrToOEM(Cadena));Flush(F);
  Cadena := 'Neto a Pagar:'+ FormatFloat('''$'' #,##',qBase.FieldByName('TOTAL').AsFloat);
  Writeln(F,ComandoImpresion(13)+StrToOEM(Cadena));Flush(F);
  Writeln(F,'');



  qIVA := TQuery.Create(self);
  qIVA.DatabaseName := Fprincipal.dbPrincipal.DatabaseName;
  qIVA.Close;
  qIVA.SQL.Clear;
  qIVA.SQL.Add('SELECT D.iva ,');
  qIVA.SQL.Add('SUM( ((D.CANTIDAD*D.PRECIOUNITARIO) - ((D.CANTIDAD*D.PRECIOUNITARIO) * ( D.DESCUENTO/100)) ) * ( D.IVA/100) / (1+( D.IVA/100))  )  AS VALORIVA,');
  qIVA.SQL.Add('SUM( ((D.CANTIDAD*D.PRECIOUNITARIO) - ((D.CANTIDAD*D.PRECIOUNITARIO) * ( D.DESCUENTO/100)) )/ (1+( D.IVA/100))  )  AS VALORBASE');
  qIVA.SQL.Add('FROM DETALLEENCABEZADO D');
  qIVA.SQL.Add('WHERE D.numerodocumento = :Documento');
  qIVA.SQL.Add('and d.codigocaja =:Caja');
  qIVA.SQL.Add('and d.codigotipodocumento =:Tipo');
  qIVA.SQL.Add('and d.iva > 0');
  qIVA.SQL.Add('GROUP BY D.iva');
  qIVA.ParamByName('Documento').AsString :=qBase.FieldByName('NUMERODOCUMENTO').AsString;
  qIVA.ParamByName('Caja').AsString := qBase.FieldByName('CodigoCaja').AsString;
  qIVA.ParamByName('Tipo').AsString := qBase.FieldByName('CodigoTipoDocumento').AsString;
  qIVA.Open;
  While not qIVA.Eof do
  begin
   Cad1 := FormatFloat('''$'' #,##',qIVA.FieldByName('VALORBASE').AsInteger);
   While length(Cad1) < 10 do Cad1:= ' '+Cad1;
   Cad2 := FormatFloat('#,##''%'' ',qIVA.FieldByName('IVA').AsInteger);
   While length(Cad2) < 10 do Cad2:= ' '+Cad2;
   Cad3 := FormatFloat('''$'' #,##',Round(qIVA.FieldByName('VALORBASE').AsInteger*(qIVA.FieldByName('IVA').AsFloat/100)));
   While length(Cad3) < 10 do Cad3:= ' '+Cad3;
   Cadena := Cad1 + Cad2 + Cad3;
   Writeln(F,ComandoImpresion(13)+StrToOEM(Cadena));Flush(F);
   qIVA.Next;
  end;
  Cadena := 'Total IVA   :'+FormatFloat('''$'' #,##', qBase.FieldByName('VALORIVA').AsInteger);
  Writeln(F,ComandoImpresion(13)+StrToOEM(Cadena));Flush(F);
  Writeln(F,'');Flush(F);
  qIVA.Free;


  qPago.Open;
  qPago.First;
  While Not qPago.EOF do
  begin
   Cad1 := qPago.FieldByName('NOMBREFORMAPAGO').AsString;
   While length(Cad1) < 15 do Cad1:= Cad1+' ';
   Cad2 := FormatFloat('''$'' #,##',qPago.FieldByName('VALOR').AsInteger);
   While length(Cad2) < 10 do Cad2:= ' '+Cad2;
   Cadena := Cad1 + Cad2;
   Writeln(F,ComandoImpresion(13)+StrToOEM(Cadena));Flush(F);
   qPago.Next;
  end;


 Cadena := 'No. de Paquetes:_________ Empacador:_________';
 Writeln(F,ComandoImpresion(13)+StrToOEM(Cadena));Flush(F);
 Writeln(F,'');Flush(F);
 Cadena := 'Usted Ahorro:'+FormatFloat('''$'' #,##',qBase.FieldByName('TOTALBRUTO').AsInteger-qBase.FieldByName('TOTAL').AsInteger);
 Writeln(F,ComandoImpresion(13)+StrToOEM(Cadena));Flush(F);
 Writeln(F,'');Flush(F);
 Cadena := 'GRACIAS POR SU COMPRA.';
 Writeln(F,ComandoImpresion(14)+StrToOEM(Cadena));Flush(F);
 Cadena := 'CONSERVE ESTE TIQUETE PARA RECLAMOS.';
 Writeln(F,ComandoImpresion(14)+StrToOEM(Cadena));Flush(F);
 Cadena := 'MAXIMO 8 DIAS.';
 Writeln(F,ComandoImpresion(14)+StrToOEM(Cadena));Flush(F);

El comandoImpresion es un procedimiento para alineacion del texto.

El inconveniente es que se llena la memoria y me deja realizar continuamente pocos movimientos.

Espero que me puedan colaborar, de antemano agradesco cualquier sugerencia.

Trabajo con Delphi 5 y Firebird 1.5

Gracias

Rogerio Orlando