FTP | CCD | Buscar | Trucos | Trabajo | Foros |
|
Registrarse | FAQ | Miembros | Calendario | Guía de estilo | Temas de Hoy |
|
Herramientas | Buscar en Tema | Desplegado |
#1
|
|||
|
|||
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; 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 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 |
#2
|
||||
|
||||
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.
__________________
Todo se puede, que no exista la tecnología aun, es otra cosa. |
#3
|
|||
|
|||
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 |
|
|
|