From 75152b161e49942c6e9421987eac35101a968aab Mon Sep 17 00:00:00 2001 From: david Date: Thu, 5 Nov 2009 18:47:48 +0000 Subject: [PATCH] Repaso de informes git-svn-id: https://192.168.0.254/svn/Proyectos.Acana_FactuGES2/trunk@460 f4e31baf-9722-1c47-927c-6f952f962d4b --- Source/Informes/1/InfAlbaranCliente.fr3 | 87 +++--- Source/Informes/2/InfAlbaranCliente.fr3 | 82 +++--- Source/Informes/InfContratoCliente.fr3 | 61 ++--- Source/Informes/InfPresupuestoCliente.fr3 | 31 +-- .../Reports/uRptFacturasCliente_Server.dfm | 256 +----------------- .../Reports/uRptFacturasCliente_Server.pas | 2 +- 6 files changed, 125 insertions(+), 394 deletions(-) diff --git a/Source/Informes/1/InfAlbaranCliente.fr3 b/Source/Informes/1/InfAlbaranCliente.fr3 index d6770ef1..1dc61a50 100644 --- a/Source/Informes/1/InfAlbaranCliente.fr3 +++ b/Source/Informes/1/InfAlbaranCliente.fr3 @@ -1,61 +1,48 @@ - + - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - + + + + + + + + + + + + - - - + + - - - + + - - - + + - - - - - + + + + + + - - + + + + + + + + + + + - - - + diff --git a/Source/Informes/2/InfAlbaranCliente.fr3 b/Source/Informes/2/InfAlbaranCliente.fr3 index b9ea1080..5e381046 100644 --- a/Source/Informes/2/InfAlbaranCliente.fr3 +++ b/Source/Informes/2/InfAlbaranCliente.fr3 @@ -1,58 +1,46 @@ - + - - - - - - - - - - - - - - - - - - - - - - - - - - - + + + + + + + + + + - - - + + - - - + + - - - + + - - - - - + + + + + + - - + + + + + + + + + + + - - - + diff --git a/Source/Informes/InfContratoCliente.fr3 b/Source/Informes/InfContratoCliente.fr3 index cf48e415..d4316bcc 100644 --- a/Source/Informes/InfContratoCliente.fr3 +++ b/Source/Informes/InfContratoCliente.fr3 @@ -1,49 +1,48 @@ - + - - - + + - - - - - + + + + + - + - + - - - - - + + + + + - + - - - - + + + + - + - - - - - - + + + + + + @@ -58,11 +57,11 @@ - + - - + + diff --git a/Source/Informes/InfPresupuestoCliente.fr3 b/Source/Informes/InfPresupuestoCliente.fr3 index 2f06fd62..ede29255 100644 --- a/Source/Informes/InfPresupuestoCliente.fr3 +++ b/Source/Informes/InfPresupuestoCliente.fr3 @@ -1,33 +1,32 @@ - + - - - + + - - - - + + + + - + - + - + - + @@ -35,7 +34,7 @@ - + @@ -54,12 +53,12 @@ - + - + - + diff --git a/Source/Modulos/Facturas de cliente/Reports/uRptFacturasCliente_Server.dfm b/Source/Modulos/Facturas de cliente/Reports/uRptFacturasCliente_Server.dfm index c880fbc7..6e97483a 100644 --- a/Source/Modulos/Facturas de cliente/Reports/uRptFacturasCliente_Server.dfm +++ b/Source/Modulos/Facturas de cliente/Reports/uRptFacturasCliente_Server.dfm @@ -1401,7 +1401,7 @@ object RptFacturasCliente: TRptFacturasCliente Top = 142 end object frxReport: TfrxReport - Version = '4.3' + Version = '4.8.11' DotMatrixReport = False EngineOptions.DoublePass = True IniFile = '\Software\Fast Reports' @@ -1411,259 +1411,12 @@ object RptFacturasCliente: TRptFacturasCliente PrintOptions.Printer = 'Default' PrintOptions.PrintOnSheet = 0 ReportOptions.CreateDate = 37871.995398692100000000 - ReportOptions.LastChange = 40094.542152187500000000 + ReportOptions.LastChange = 40122.799261608790000000 ReportOptions.VersionBuild = '1' ReportOptions.VersionMajor = '12' ReportOptions.VersionMinor = '13' ReportOptions.VersionRelease = '1' ScriptLanguage = 'PascalScript' - ScriptText.Strings = ( - 'procedure DatosClienteOnBeforePrint(Sender: TfrxComponent);' - 'begin' - ' DatosCliente.Lines.Clear;' - ' DatosCliente.Lines.Add();' - '' - ' if ( <> '#39#39')' - ' or ( <> '#39#39') then' - - ' DatosCliente.Lines.Add( + '#39' ' + - ' '#39' + );' - '' - ' if ( <> '#39#39') then' - ' DatosCliente.Lines.Add();' - 'end;' - '' - 'procedure BandaDetallesOnBeforePrint(Sender: TfrxComponent);' - 'begin' - '{ ' - ' BandaDetalles.StartNewPage := False;' - ' BandaDetalles.Visible := True;' - ' MemPrecio.Style := '#39'Concepto normal'#39';' - ' MemCantidad.Style := '#39'Concepto normal'#39';' - ' MemImpTotal.Style := '#39'Concepto normal'#39';' - ' RichConcepto.Visible := True;' - '' - ' case of' - ' '#39'Salto'#39': begin' - ' BandaDetalles.StartNewPage := True;' - ' RichConcepto.Visible := False;' - ' end;' - ' '#39'Titulo'#39': begin' - ' MemPrecio.Style := '#39'Concepto titulo'#39';' - ' MemCantidad.Style := '#39'Concepto titulo'#39';' - ' MemImpTotal.Style := '#39'Concepto titulo'#39';' - ' end;' - ' '#39'Concepto'#39': begin' - ' MemPrecio.Style := '#39'Concepto normal'#39';' - ' MemCantidad.Style := '#39'Concepto normal'#39';' - ' MemImpTotal.Style := '#39'Concepto normal'#39';' - ' end;' - ' '#39'Subtotal'#39': begin' - ' MemPrecio.Style := '#39'Concepto subtotal'#39';' - ' MemCantidad.Style := '#39'Concepto subtotal'#39';' - ' MemImpTotal.Style := '#39'Concepto subtotal'#39';' - ' end;' - ' '#39'Descuento'#39': begin' - ' BandaDetalles.Visible := False;' - ' RichConcepto.Color := clNone;' - ' end;' - ' end;' - '' - ' RichConcepto.Color := MemImpTotal.Color;' - ' RichConcepto.Frame := MemImpTotal.Frame;' - '} ' - 'end;' - '' - '{procedure ReportSummary1OnBeforePrint(Sender: TfrxComponent);' - 'begin' - '// if Engine.FreeSpace > ReportSummary1.Height then ' - - ' Engine.CurY := Engine.PageHeight - ReportSummary1.Height - ' + - 'Band3.Height - 1' - 'end;} ' - '' - 'procedure Memo15OnBeforePrint(Sender: TfrxComponent);' - 'begin' - ' Memo15.Lines.Clear;' - ' if (StrToFloat() < 0) then' - ' Memo15.Lines.Add('#39'ABONO'#39')' - ' else' - ' Memo15.Lines.Add('#39'FACTURA'#39')' - 'end;' - '' - 'procedure Band2OnBeforePrint(Sender: TfrxComponent);' - 'begin' - ' if not Engine.FinalPass then' - ' Set('#39'TotalPaginas'#39', ( + 1));' - '' - ' if Engine.FinalPass then' - ' Set('#39'Pagina'#39', ( + 1));' - '' - '{ if Engine.FinalPass and ( = ) then' - ' begin ' - ' LineaCorta1.visible := False; ' - ' LineaLarga1.visible := True; ' - ' LineaCorta2.visible := False; ' - ' LineaLarga2.visible := True; ' - ' end' - ' else' - ' begin' - ' LineaCorta1.visible := True; ' - ' LineaLarga1.visible := False;' - ' LineaCorta2.visible := True; ' - ' LineaLarga2.visible := False;' - ' end;' - '} ' - 'end;' - '' - 'procedure frxReportOnStartReport(Sender: TfrxComponent);' - 'begin' - ' Set('#39'Pagina'#39', 0);' - ' Set('#39'TotalPaginas'#39', 0);' - 'end;' - '' - 'procedure Memo26OnBeforePrint(Sender: TfrxComponent);' - 'begin ' - ' if ( > 0) then' - ' begin' - ' eDescuento.visible := True;' - ' Descuento.visible := True; ' - ' end' - ' else' - ' begin' - ' eDescuento.visible := False; ' - ' Descuento.visible := False; ' - ' end; ' - 'end;' - '' - '' - - 'procedure ReportSummary1OnAfterCalcHeight(Sender: TfrxComponent)' + - ';' - 'begin' - - '//Es peor el remedio que la enfermedad, en el caso de sobre pasa' + - 'r en uno el numero de conceptos para que no quepa el reportsumar' + - 'y,' - - '//no hay forma de ponerlo al final en la p'#225'gina siguiente hasta ' + - 'que el numero de conceptos rellene al menos un concepto de la si' + - 'guiente hoja. ' + - ' ' + - ' ' + - ' ' + - ' ' + - ' ' - '// if Engine.FreeSpace > ReportSummary1.Height then ' - - '// Engine.CurY := Engine.PageHeight - ReportSummary1.Height ' + - '- Band3.Height - 1' - 'end;' - '' - 'procedure Shape4OnBeforePrint(Sender: TfrxComponent);' - 'begin' - ' if Engine.FinalPass and ( = ) then ' - ' begin' - ' Band3.Height := 192;' - '' - ' if ( = 0) then' - ' begin' - - ' eBaseimponible.Top := eBaseimponible.Top - (eImporteneto.' + - 'Height + eDescuento.Height);' - - ' Baseimponible.Top := Baseimponible.Top - (eImporteneto.He' + - 'ight + eDescuento.Height);' - - ' eIva.Top := eIva.Top - (eImporteneto.Height + eDescuento.' + - 'Height);' - - ' Iva.Top := Iva.Top - (eImporteneto.Height + eDescuento.He' + - 'ight);' - - ' eRe.Top := eRe.Top - (eImporteneto.Height + eDescuento.He' + - 'ight);' - - ' Re.Top := Re.Top - (eImporteneto.Height + eDescuento.Heig' + - 'ht);' - - ' lImportetotal.Top := lImportetotal.Top - (eImporteneto.He' + - 'ight + eDescuento.Height); ' - - ' eImportetotal.Top := eImportetotal.Top - (eImporteneto.He' + - 'ight + eDescuento.Height);' - - ' Importetotal.Top := Importetotal.Top - (eImporteneto.Heig' + - 'ht + eDescuento.Height);' - - ' Shape4.Height := Shape4.Height - (eImporteneto.Height + e' + - 'Descuento.Height); ' - ' end' - ' else' - ' begin' - ' eImporteneto.Visible := True;' - ' Importeneto.Visible := True;' - ' eDescuento.Visible := True;' - ' Descuento.Visible := True; ' - ' end;' - ' ' - ' if ( = 0) then' - ' begin' - - ' lImporteTotal.Top := lImporteTotal.Top - eRe.Height; ' + - ' ' - - ' eImportetotal.Top := eImportetotal.Top - eRe.Height; ' + - ' ' - ' Importetotal.Top := Importetotal.Top - eRe.Height;' - - ' Shape4.Height := Shape4.Height - eRe.Height; ' + - ' ' - ' end' - ' else' - ' begin' - ' eRe.Visible := True;' - ' Re.Visible := True; ' - ' end; ' - ' ' - ' if ( = 0) then' - ' begin' - - ' lImporteTotal.Top := lImporteTotal.Top - eIva.Height; ' + - ' ' - - ' eImportetotal.Top := eImportetotal.Top - eIva.Height; ' + - ' ' - ' Importetotal.Top := Importetotal.Top - eIva.Height;' - - ' Shape4.Height := Shape4.Height - eIva.Height; ' + - ' ' - ' end' - ' else' - ' begin' - ' eIva.Visible := True;' - ' Iva.Visible := True; ' - ' end; ' - ' ' - ' eBaseimponible.Visible := True;' - ' Baseimponible.Visible := True; ' - ' lImporteTotal.Visible := True;' - ' eImportetotal.Visible := True; ' - ' Importetotal.Visible := True;' - '' - ' Shape4.Visible := True; ' - ' end' - ' else' - ' begin' - - ' Band3.Height := 100; ' + - ' ' - ' end ' - 'end;' - '' - 'begin' - '' - 'end.') ShowProgress = False StoreInDFM = False OnStartReport = 'frxReportOnStartReport' @@ -1674,6 +1427,7 @@ object RptFacturasCliente: TRptFacturasCliente UserName = 'frxDBCabecera' CloseDataSource = True DataSource = DADataCabecera + BCDToCurrency = False Left = 264 Top = 16 end @@ -1681,6 +1435,7 @@ object RptFacturasCliente: TRptFacturasCliente UserName = 'frxDBDetalles' CloseDataSource = False DataSource = DADataDetalles + BCDToCurrency = False Left = 344 Top = 16 end @@ -1722,6 +1477,7 @@ object RptFacturasCliente: TRptFacturasCliente UserName = 'frxDBVencimientos' CloseDataSource = True DataSource = DADataVencimientos + BCDToCurrency = False Left = 456 Top = 16 end @@ -1806,6 +1562,7 @@ object RptFacturasCliente: TRptFacturasCliente UserName = 'frxDBInformeListadoFacturas' CloseDataSource = True DataSource = DADSInformeListadoFacturas + BCDToCurrency = False Left = 576 Top = 16 end @@ -1831,6 +1588,7 @@ object RptFacturasCliente: TRptFacturasCliente UserName = 'frxDBInformeListadoFacturasResumen' CloseDataSource = True DataSource = DADSInformeListadoFacturasResumen + BCDToCurrency = False Left = 584 Top = 192 end diff --git a/Source/Modulos/Facturas de cliente/Reports/uRptFacturasCliente_Server.pas b/Source/Modulos/Facturas de cliente/Reports/uRptFacturasCliente_Server.pas index 62c19bf4..1990321c 100644 --- a/Source/Modulos/Facturas de cliente/Reports/uRptFacturasCliente_Server.pas +++ b/Source/Modulos/Facturas de cliente/Reports/uRptFacturasCliente_Server.pas @@ -613,7 +613,7 @@ begin AInforme := DarRutaFichero(DarRutaInformes, rptFacturaCliente, tbl_Cabecera.FieldByName('ID_EMPRESA').AsString, tbl_Cabecera.FieldByName('ID_TIENDA').AsString); if VarIsNull(AInforme) then - raise Exception.Create (('Error Servidor: _GenerarFactura, no encuentra informe' + rptFacturaCliente)); + raise Exception.Create (('Error Servidor: _GenerarFactura, no encuentra informe ' + rptFacturaCliente)); frxReport.LoadFromFile(AInforme, True); frxReport.PrepareReport(False);