Foros Club Delphi

Foros Club Delphi (https://www.clubdelphi.com/foros/index.php)
-   Firebird e Interbase (https://www.clubdelphi.com/foros/forumdisplay.php?f=19)
-   -   Dudas al momento de pasar de Firebird a Archivo Texto (https://www.clubdelphi.com/foros/showthread.php?t=17695)

rogeriobeltran 18-01-2005 16:15:13
Dudas al momento de pasar de Firebird a Archivo Texto
 
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 19-01-2005 20:36:47
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 19-01-2005 23:09:44
Aclarando dudas
 
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


La franja horaria es GMT +2. Ahora son las 14:25:58.

Powered by vBulletin® Version 3.6.8
Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
Traducción al castellano por el equipo de moderadores del Club Delphi