From 50affd14ae4282040bf8bf6c633c5fb58dd0901b Mon Sep 17 00:00:00 2001 From: david Date: Tue, 24 Nov 2009 12:19:01 +0000 Subject: [PATCH] =?UTF-8?q?Ticket=20#79=20->=20(repaso)=20Imprimir=20en=20?= =?UTF-8?q?el=20presupuesto=20el=20n=C2=BA=20de=20tel=C3=A9fono=20del=20cl?= =?UTF-8?q?iente?= 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@470 f4e31baf-9722-1c47-927c-6f952f962d4b --- .../uRptPresupuestosCliente_Server.dfm | 58 ++++++++++--------- .../uRptPresupuestosCliente_Server.pas | 4 +- 2 files changed, 32 insertions(+), 30 deletions(-) diff --git a/Source/Modulos/Presupuestos de cliente/Reports/uRptPresupuestosCliente_Server.dfm b/Source/Modulos/Presupuestos de cliente/Reports/uRptPresupuestosCliente_Server.dfm index a6a97dd5..7815a6b7 100644 --- a/Source/Modulos/Presupuestos de cliente/Reports/uRptPresupuestosCliente_Server.dfm +++ b/Source/Modulos/Presupuestos de cliente/Reports/uRptPresupuestosCliente_Server.dfm @@ -217,19 +217,21 @@ object RptPresupuestosCliente: TRptPresupuestosCliente 'ESTOS_CLIENTE.IVA,'#10' V_PRESUPUESTOS_CLIENTE.RE, V_PRESUPUESTOS' + '_CLIENTE.IMPORTE_RE,'#10' V_PRESUPUESTOS_CLIENTE.ID_CLIENTE,'#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 + 'NTE,'#10' V_PRESUPUESTOS_CLIENTE.NOMBRE,'#10' V_PRESUPUESTOS_CLIEN' + + 'TE.IMPORTE_IVA, V_PRESUPUESTOS_CLIENTE.IMPORTE_TOTAL,'#10' COALES' + + 'CE(CONTACTOS_DIRECCIONES.CALLE, CONTACTOS.CALLE) AS CALLE,'#10' C' + + 'OALESCE(CONTACTOS_DIRECCIONES.POBLACION, CONTACTOS.POBLACION) AS' + + ' POBLACION,'#10' COALESCE(CONTACTOS_DIRECCIONES.PROVINCIA, CONTAC' + + 'TOS.PROVINCIA) AS PROVINCIA,'#10' COALESCE(CONTACTOS_DIRECCIONES.' + + 'CODIGO_POSTAL, CONTACTOS.CODIGO_POSTAL) AS CODIGO_POSTAL,'#10' CO' + + 'ALESCE(CONTACTOS_DIRECCIONES.TELEFONO, CONTACTOS.TELEFONO_1) AS ' + + 'TELEFONO,'#10' COALESCE(CONTACTOS_DIRECCIONES.MOVIL, CONTACTOS.MO' + + 'VIL_1) AS MOVIL,'#10#10' V_PRESUPUESTOS_CLIENTE.PERSONA_CONTACTO,'#10' ' + + ' V_PRESUPUESTOS_CLIENTE.VENDEDOR'#10'FROM'#10' V_PRESUPUESTOS_CLIEN' + + 'TE'#10' INNER JOIN CONTACTOS ON (CONTACTOS.ID = V_PRESUPUESTOS_CL' + + 'IENTE.ID_CLIENTE)'#10' LEFT OUTER JOIN CONTACTOS_DIRECCIONES ON (' + + 'CONTACTOS_DIRECCIONES.ID = V_PRESUPUESTOS_CLIENTE.ID_DIRECCION)'#10 + + 'WHERE'#10' V_PRESUPUESTOS_CLIENTE.ID = :ID'#10 StatementType = stSQL ColumnMappings = < item @@ -349,12 +351,12 @@ object RptPresupuestosCliente: TRptPresupuestosCliente TableField = 'VENDEDOR' end item - DatasetField = 'TELEFONO_1' - TableField = 'TELEFONO_1' + DatasetField = 'TELEFONO' + TableField = 'TELEFONO' end item - DatasetField = 'MOVIL_1' - TableField = 'MOVIL_1' + DatasetField = 'MOVIL' + TableField = 'MOVIL' end> end> Name = 'Informe_Cabecera' @@ -449,16 +451,6 @@ 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 @@ -487,6 +479,16 @@ object RptPresupuestosCliente: TRptPresupuestosCliente DataType = datString Size = 10 end + item + Name = 'TELEFONO' + DataType = datString + Size = 25 + end + item + Name = 'MOVIL' + DataType = datString + Size = 25 + end item Name = 'PERSONA_CONTACTO' DataType = datString @@ -857,7 +859,7 @@ object RptPresupuestosCliente: TRptPresupuestosCliente PrintOptions.Printer = 'Por defecto' PrintOptions.PrintOnSheet = 0 ReportOptions.CreateDate = 39065.872423495400000000 - ReportOptions.LastChange = 40122.745990115700000000 + ReportOptions.LastChange = 40141.433941921300000000 ScriptLanguage = 'PascalScript' ShowProgress = False StoreInDFM = False diff --git a/Source/Modulos/Presupuestos de cliente/Reports/uRptPresupuestosCliente_Server.pas b/Source/Modulos/Presupuestos de cliente/Reports/uRptPresupuestosCliente_Server.pas index f7fd5c8d..1fbf33ee 100644 --- a/Source/Modulos/Presupuestos de cliente/Reports/uRptPresupuestosCliente_Server.pas +++ b/Source/Modulos/Presupuestos de cliente/Reports/uRptPresupuestosCliente_Server.pas @@ -227,8 +227,7 @@ begin end; // Filtrar el informe por fechas - if not VarIsNull(FFechaInicio) - and not VarIsNull(FFechaFin) then + if not VarIsNull(FFechaInicio) and not VarIsNull(FFechaFin) then begin with ATabla.DynamicWhere do begin @@ -546,6 +545,7 @@ begin frxReport.LoadFromFile(AInforme, True); frxReport.AddFunction('function PONERJUSTIFICACIONCOMPLETA(ARTFText : String): String', 'User Function',''); + frxReport.ReportOptions.Name := 'Presupuesto ' + tbl_Cabecera.FieldByName('REFERENCIA').AsString; frxReport.PrepareReport(False); finally FConnection.RollbackTransaction; //<--- Creo que no va a hacer falta. "PUES SI ES NECESARIO"