From eb19ab94f79add23a6094c3c8922dd159349aaa5 Mon Sep 17 00:00:00 2001 From: david Date: Fri, 30 Oct 2009 16:05:52 +0000 Subject: [PATCH] =?UTF-8?q?Ticket=20#79=20->=20Imprimir=20en=20el=20presup?= =?UTF-8?q?uesto=20el=20n=C2=BA=20de=20tel=C3=A9fono=20del=20cliente?= MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit git-svn-id: https://192.168.0.254/svn/Proyectos.Acana_FactuGES2/trunk@453 f4e31baf-9722-1c47-927c-6f952f962d4b --- Source/Informes/InfPresupuestoCliente.fr3 | 96 +++--- .../uRptPresupuestosCliente_Server.dfm | 326 ++++-------------- 2 files changed, 108 insertions(+), 314 deletions(-) diff --git a/Source/Informes/InfPresupuestoCliente.fr3 b/Source/Informes/InfPresupuestoCliente.fr3 index 4c43fa79..57c68841 100644 --- a/Source/Informes/InfPresupuestoCliente.fr3 +++ b/Source/Informes/InfPresupuestoCliente.fr3 @@ -1,69 +1,67 @@ - + - - - + + + - - - - - - + + + + - - + + - - - - - + + + + + - - - - - + + + + + - - + + - - - - + + + + - - - - + + + + - - - - - - - - + + + + + + + + - - - - - - + + + + + + - - - + + + diff --git a/Source/Modulos/Presupuestos de cliente/Reports/uRptPresupuestosCliente_Server.dfm b/Source/Modulos/Presupuestos de cliente/Reports/uRptPresupuestosCliente_Server.dfm index 2f79a742..167a31ce 100644 --- a/Source/Modulos/Presupuestos de cliente/Reports/uRptPresupuestosCliente_Server.dfm +++ b/Source/Modulos/Presupuestos de cliente/Reports/uRptPresupuestosCliente_Server.dfm @@ -198,7 +198,7 @@ object RptPresupuestosCliente: TRptPresupuestosCliente Params = < item Name = 'ID' - Value = '31' + Value = '1000000169' ParamType = daptInput end> Statements = < @@ -216,19 +216,20 @@ object RptPresupuestosCliente: TRptPresupuestosCliente '_DESCUENTO,'#10' V_PRESUPUESTOS_CLIENTE.BASE_IMPONIBLE, V_PRESUPU' + 'ESTOS_CLIENTE.IVA,'#10' V_PRESUPUESTOS_CLIENTE.RE, V_PRESUPUESTOS' + '_CLIENTE.IMPORTE_RE,'#10' V_PRESUPUESTOS_CLIENTE.ID_CLIENTE,'#10' ' + - 'CONTACTOS.NIF_CIF, CONTACTOS.REFERENCIA as REF_CLIENTE, CONTACTO' + - 'S.NOMBRE,'#10' V_PRESUPUESTOS_CLIENTE.IMPORTE_IVA, V_PRESUPUESTOS' + - '_CLIENTE.IMPORTE_TOTAL,'#10' COALESCE(CONTACTOS_DIRECCIONES.CALLE' + - ', CONTACTOS.CALLE) AS CALLE,'#10' COALESCE(CONTACTOS_DIRECCIONES.' + - 'POBLACION, CONTACTOS.POBLACION) AS POBLACION,'#10' COALESCE(CONTA' + - 'CTOS_DIRECCIONES.PROVINCIA, CONTACTOS.PROVINCIA) AS PROVINCIA,'#10' ' + - ' COALESCE(CONTACTOS_DIRECCIONES.CODIGO_POSTAL, CONTACTOS.CODIG' + - 'O_POSTAL) AS CODIGO_POSTAL,'#10' V_PRESUPUESTOS_CLIENTE.PERSONA_C' + - 'ONTACTO,'#10' V_PRESUPUESTOS_CLIENTE.VENDEDOR'#10'FROM'#10' V_PRESUPUE' + - 'STOS_CLIENTE'#10' INNER JOIN CONTACTOS ON (CONTACTOS.ID = V_PRESU' + - 'PUESTOS_CLIENTE.ID_CLIENTE)'#10' LEFT OUTER JOIN CONTACTOS_DIRECC' + - 'IONES ON (CONTACTOS_DIRECCIONES.ID = V_PRESUPUESTOS_CLIENTE.ID_D' + - 'IRECCION)'#10'WHERE'#10' V_PRESUPUESTOS_CLIENTE.ID = :ID'#10 + 'V_PRESUPUESTOS_CLIENTE.NIF_CIF, CONTACTOS.REFERENCIA as REF_CLIE' + + 'NTE,'#10' V_PRESUPUESTOS_CLIENTE.NOMBRE, CONTACTOS.TELEFONO_1, CO' + + 'NTACTOS.MOVIL_1,'#10' V_PRESUPUESTOS_CLIENTE.IMPORTE_IVA, V_PRESU' + + 'PUESTOS_CLIENTE.IMPORTE_TOTAL,'#10' COALESCE(CONTACTOS_DIRECCIONE' + + 'S.CALLE, CONTACTOS.CALLE) AS CALLE,'#10' COALESCE(CONTACTOS_DIREC' + + 'CIONES.POBLACION, CONTACTOS.POBLACION) AS POBLACION,'#10' COALESC' + + 'E(CONTACTOS_DIRECCIONES.PROVINCIA, CONTACTOS.PROVINCIA) AS PROVI' + + 'NCIA,'#10' COALESCE(CONTACTOS_DIRECCIONES.CODIGO_POSTAL, CONTACTO' + + 'S.CODIGO_POSTAL) AS CODIGO_POSTAL,'#10' V_PRESUPUESTOS_CLIENTE.PE' + + 'RSONA_CONTACTO,'#10' V_PRESUPUESTOS_CLIENTE.VENDEDOR'#10'FROM'#10' V_P' + + 'RESUPUESTOS_CLIENTE'#10' INNER JOIN CONTACTOS ON (CONTACTOS.ID = ' + + 'V_PRESUPUESTOS_CLIENTE.ID_CLIENTE)'#10' LEFT OUTER JOIN CONTACTOS' + + '_DIRECCIONES ON (CONTACTOS_DIRECCIONES.ID = V_PRESUPUESTOS_CLIEN' + + 'TE.ID_DIRECCION)'#10'WHERE'#10' V_PRESUPUESTOS_CLIENTE.ID = :ID'#10 StatementType = stSQL ColumnMappings = < item @@ -346,6 +347,14 @@ object RptPresupuestosCliente: TRptPresupuestosCliente item DatasetField = 'VENDEDOR' TableField = 'VENDEDOR' + end + item + DatasetField = 'TELEFONO_1' + TableField = 'TELEFONO_1' + end + item + DatasetField = 'MOVIL_1' + TableField = 'MOVIL_1' end> end> Name = 'Informe_Cabecera' @@ -440,6 +449,16 @@ object RptPresupuestosCliente: TRptPresupuestosCliente DataType = datString Size = 255 end + item + Name = 'TELEFONO_1' + DataType = datString + Size = 25 + end + item + Name = 'MOVIL_1' + DataType = datString + Size = 25 + end item Name = 'IMPORTE_IVA' DataType = datCurrency @@ -830,7 +849,7 @@ object RptPresupuestosCliente: TRptPresupuestosCliente Top = 142 end object frxReport: TfrxReport - Version = '4.3' + Version = '4.8.11' DotMatrixReport = False EngineOptions.DoublePass = True IniFile = '\Software\Fast Reports' @@ -839,254 +858,8 @@ object RptPresupuestosCliente: TRptPresupuestosCliente PrintOptions.Printer = 'Por defecto' PrintOptions.PrintOnSheet = 0 ReportOptions.CreateDate = 39065.872423495400000000 - ReportOptions.LastChange = 40066.748108344910000000 + ReportOptions.LastChange = 40116.697855891200000000 ScriptLanguage = 'PascalScript' - ScriptText.Strings = ( - '' - '' - 'procedure NombreEmpresaOnBeforePrint(Sender: TfrxComponent);' - 'begin' - '{ NombreEmpresa.Lines.Clear;' - ' NombreEmpresa.Lines.Add();' - '}' - 'end;' - '' - 'procedure PageHeader1OnBeforePrint(Sender: TfrxComponent);' - 'begin' - ' if not Engine.FinalPass then' - ' Set('#39'TotalPaginas'#39', ( + 1));' - '' - ' if Engine.FinalPass then' - ' Set('#39'Pagina'#39', ( + 1)); ' - 'end;' - '' - 'procedure frxReportOnStartReport(Sender: TfrxComponent);' - 'begin' - ' Set('#39'Pagina'#39', 0);' - ' Set('#39'TotalPaginas'#39', 0);' - ' Set('#39'Capitulo'#39', '#39'0'#39');' - ' Set('#39'NumCapitulos'#39', 0);' - ' Set('#39'TextoNumCapitulo'#39', '#39#39#39' '#39#39#39'); ' - 'end;' - '' - 'procedure Rich3OnBeforePrint(Sender: TfrxComponent);' - 'begin' - '{ ' - ' if Engine.FinalPass then' - ' begin ' - ' Set('#39'Capitulo'#39', ( + 1));' - ' if ( = 1) then' - - ' MasterData1.Visible := False; ' + - ' ' - ' end' - ' else' - ' Set('#39'NumCapitulos'#39', ( + 1));' - '} ' - 'end;' - '' - 'procedure Memo45OnBeforePrint(Sender: TfrxComponent);' - 'begin' - ' if Engine.FinalPass then' - ' begin' - - ' Set('#39'Capitulo'#39', ( + 1)); ' + - ' ' - ' Set('#39'TextoNumCapitulo'#39', );' - '' - - ' if (( = 1) and ( =' + - ' '#39'General'#39')) then' - ' MasterData1.Visible := False' - ' else begin ' - - ' if ( = '#39'Titulo opcional'#39') ' + - 'then' - ' begin' - ' Set('#39'TextoNumCapitulo'#39', '#39#39#39'OPCIONAL'#39#39#39');' - ' end' - ' end ' - ' end' - ' else ' - ' Set('#39'NumCapitulos'#39', ( + 1));' - '' - '' - '// Memo11.lines.add(); ' - 'end;' - '' - 'procedure Memo47OnBeforePrint(Sender: TfrxComponent);' - 'begin' - '{ ' - ' if (Length() = 0) then' - ' begin' - - ' Memo11.Visible := False; ' + - ' ' - ' Memo47.Visible := False;' - ' end' - '} ' - 'end;' - '' - - 'procedure frxDBDetallesCANTIDADOnBeforePrint(Sender: TfrxCompone' + - 'nt);' - 'var ' - ' ACantidad: String; ' - ' AIndice: Integer;' - ' AText : String; ' - 'begin' - '{ ' - ' frxDBDetallesCANTIDAD.Memo.Clear; ' - ' ACantidad := FloatToStr(); ' - ' AIndice := Pos('#39','#39', ACantidad);' - ' if AIndice > 0 then ' - - ' AText := '#39'[FormatFloat('#39#39'#,##0.00'#39#39',)]' - ' else ' - - ' AText := '#39'[FormatFloat('#39#39'#,##0.##'#39#39',)]; ' - ' ' - ' frxDBDetallesCANTIDAD.Memo.Add(AText);' - '} ' - 'end;' - '' - '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 MasterData1OnBeforePrint(Sender: TfrxComponent);' - 'begin' - ' if ( = '#39'AF'#39' ) ' - ' or ( = '#39'AI'#39' )' - ' or ( = '#39'B'#39' ) then' - ' begin' - - ' Header1.Visible := False; ' + - ' ' - - ' DetailData1.Visible := False; ' + - ' ' - ' DetailData2.Visible := True;' - ' end' - ' else' - ' begin' - - ' Header1.Visible := True; ' + - ' ' - - ' DetailData1.Visible := True; ' + - ' ' - ' DetailData2.Visible := False;' - ' end;' - 'end;' - '' - 'procedure Memo11OnBeforePrint(Sender: TfrxComponent);' - 'begin' - 'end;' - '' - 'procedure Memo29OnBeforePrint(Sender: TfrxComponent);' - 'begin' - ' if ( > 0) then' - ' begin' - - ' Memo29.visible := True; ' + - ' ' - ' end' - ' else' - ' begin' - ' Memo29.visible := False; ' - ' end; ' - 'end;' - '' - 'procedure Memo30OnBeforePrint(Sender: TfrxComponent);' - 'begin' - ' if ( > 0) then' - ' begin' - - ' Memo30.visible := True; ' + - ' ' - ' end' - ' else' - ' begin' - ' Memo30.visible := False; ' - ' end; ' - 'end;' - '' - 'procedure ReportSummary1OnBeforePrint(Sender: TfrxComponent);' - 'begin' - ' if (Length() = 0) then' - ' begin' - ' Memo40.Visible := False;' - - ' Memo37.Visible := False; ' + - ' ' - ' end;' - '' - ' if (Length() = 0) then' - ' begin' - ' Memo38.Visible := False;' - - ' Memo27.Visible := False; ' + - ' ' - ' end; ' - '' - ' if (Length() = 0) then' - ' begin' - ' Memo39.Visible := False;' - - ' Memo28.Visible := False; ' + - ' ' - ' end; ' - 'end;' - '' - 'procedure Memo20OnBeforePrint(Sender: TfrxComponent);' - 'begin' - ' if (sum(, DetailData1) = 0)' - - ' and (sum(, DetailData2) = 0) th' + - 'en' - ' begin' - ' Footer1.Height := 10;' - ' Memo13.Visible := False;' - ' Memo20.Visible := False; ' - ' Memo21.Visible := False; ' - ' Memo11.Visible := False;' - ' Memo24.Visible := False;' - ' end' - ' else' - ' begin' - ' Footer1.Height := 55;' - ' Memo13.Visible := True; ' - ' Memo20.Visible := True;' - ' Memo21.Visible := True;' - ' Memo11.Visible := True;' - ' Memo24.Visible := True; ' - ' end;' - '' - ' if ( = 0) then' - ' begin' - ' Footer1.Height := 35; ' - ' Memo11.Visible := False;' - ' Memo24.Visible := False; ' - ' end; ' - 'end;' - '' - 'begin' - '' - 'end.') ShowProgress = False StoreInDFM = False OnStartReport = 'frxReportOnStartReport' @@ -1098,6 +871,7 @@ object RptPresupuestosCliente: TRptPresupuestosCliente UserName = 'frxDBCabecera' CloseDataSource = False DataSource = DADSCabecera + BCDToCurrency = False Left = 264 Top = 16 end @@ -1105,6 +879,7 @@ object RptPresupuestosCliente: TRptPresupuestosCliente UserName = 'frxDBDetalles' CloseDataSource = False DataSource = DADSDetalles + BCDToCurrency = False Left = 440 Top = 16 end @@ -1201,6 +976,16 @@ object RptPresupuestosCliente: TRptPresupuestosCliente DataType = datString Size = 255 end + item + Name = 'TELEFONO_1' + DataType = datString + Size = 25 + end + item + Name = 'MOVIL_1' + DataType = datString + Size = 25 + end item Name = 'IMPORTE_IVA' DataType = datCurrency @@ -1242,7 +1027,7 @@ object RptPresupuestosCliente: TRptPresupuestosCliente Params = < item Name = 'ID' - Value = '31' + Value = '1000000169' ParamType = daptInput end> LogChanges = False @@ -1358,6 +1143,7 @@ object RptPresupuestosCliente: TRptPresupuestosCliente UserName = 'frxDBCapitulos' CloseDataSource = False DataSource = DADSCapitulos + BCDToCurrency = False Left = 352 Top = 16 end @@ -1613,13 +1399,21 @@ object RptPresupuestosCliente: TRptPresupuestosCliente ShowDialog = False UseFileCache = True ShowProgress = False + OverwritePrompt = False PrintOptimized = True Outline = False + Background = False + HTMLTags = True Author = 'FactuGES' Subject = 'FactuGES' - Background = False Creator = 'FactuGES' - HTMLTags = True + ProtectionFlags = [ePrint, eModify, eCopy, eAnnot] + HideToolbar = False + HideMenubar = False + HideWindowUI = False + FitWindow = False + CenterWindow = False + PrintScaling = False Left = 528 Top = 440 end @@ -1705,6 +1499,7 @@ object RptPresupuestosCliente: TRptPresupuestosCliente UserName = 'frxDBInformeListadoPresupuestos' CloseDataSource = True DataSource = DADSInformeListadoPresupuestos + BCDToCurrency = False Left = 680 Top = 16 end @@ -1712,6 +1507,7 @@ object RptPresupuestosCliente: TRptPresupuestosCliente UserName = 'frxDBInformeListadoPresupuestosResumen' CloseDataSource = True DataSource = DADSInformeListadoPresupuestosResumen + BCDToCurrency = False Left = 680 Top = 192 end