Dudas al momento de pasar de Firebird a Archivo Texto

rogeriobeltran · #1 18-01-2005

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:

Código:

 
 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:

Código:

  

  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

rastafarey · #2 19-01-2005

Disculpa no me voy a entender tofdo el codigo.

Pero para evitar lo de la memoria simplemente ve selecionando de tanto en tento registros y lo svas guardando

o seleccionas de al tabla maestra los indices y te vas moviendo por cada uno de ellos vas seleccionando el cada uno de lso detalles y vas guardando.

rogeriobeltran · #3 19-01-2005

Gracias por tu respuesta voy a tratar de explicar un poco la forma como lo realizo.

Primero consulto la Bitacora en donde me da los turno a guardar, por cada turno consulto las facturas, detalle y los pagos y los guardo en un archivo, este procedimiento lo repito hasta terminar la consulta de la Bitacora. En un dia normal se realizan unos 20 turnos en promedio unos dias mas otros menos el maximo son 32 turnos y lo minino son 16, en cada turno se realizan en promedio 100 facturas en promedio cada factura tiene 10 articulos y 2 formas de pago en promedio.

Cada vez que consulto las facturas cierro y abro las consultas, todos son tquery. El archivo texto es un FileText. El programa consiste en guardar una copia digital de la factura registrada.

Espero haber aclarado tus dudas

Gracias Nuevamente

Rogerio Orlando