Ticket #79 -> (repaso) Imprimir en el presupuesto el nº de teléfono del cliente

git-svn-id: https://192.168.0.254/svn/Proyectos.Acana_FactuGES2/trunk@472 f4e31baf-9722-1c47-927c-6f952f962d4b

Source/Modulos/Presupuestos de cliente/Reports/uRptPresupuestosCliente_Server.dfm

@@ -217,20 +217,22 @@ 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' +
+              'NTE,'#10'    V_PRESUPUESTOS_CLIENTE.NOMBRE,'#10'    V_PRESUPUESTOS_CLIEN' +
-              'NTACTOS.MOVIL_1,'#10'    V_PRESUPUESTOS_CLIENTE.IMPORTE_IVA, V_PRESU' +
+              'TE.IMPORTE_IVA, V_PRESUPUESTOS_CLIENTE.IMPORTE_TOTAL,'#10'    COALES' +
-              'PUESTOS_CLIENTE.IMPORTE_TOTAL,'#10'    COALESCE(CONTACTOS_DIRECCIONE' +
+              'CE(CONTACTOS_DIRECCIONES.CALLE, CONTACTOS.CALLE) AS CALLE,'#10'    C' +
-              'S.CALLE, CONTACTOS.CALLE) AS CALLE,'#10'    COALESCE(CONTACTOS_DIREC' +
+              'OALESCE(CONTACTOS_DIRECCIONES.POBLACION, CONTACTOS.POBLACION) AS' +
-              'CIONES.POBLACION, CONTACTOS.POBLACION) AS POBLACION,'#10'    COALESC' +
+              ' POBLACION,'#10'    COALESCE(CONTACTOS_DIRECCIONES.PROVINCIA, CONTAC' +
-              'E(CONTACTOS_DIRECCIONES.PROVINCIA, CONTACTOS.PROVINCIA) AS PROVI' +
+              'TOS.PROVINCIA) AS PROVINCIA,'#10'    COALESCE(CONTACTOS_DIRECCIONES.' +
-              'NCIA,'#10'    COALESCE(CONTACTOS_DIRECCIONES.CODIGO_POSTAL, CONTACTO' +
+              'CODIGO_POSTAL, CONTACTOS.CODIGO_POSTAL) AS CODIGO_POSTAL,'#10'    CO' +
-              'S.CODIGO_POSTAL) AS CODIGO_POSTAL,'#10'    V_PRESUPUESTOS_CLIENTE.PE' +
+              'ALESCE(CONTACTOS_DIRECCIONES.TELEFONO, CONTACTOS.TELEFONO_1) AS ' +
-              'RSONA_CONTACTO,'#10'    V_PRESUPUESTOS_CLIENTE.VENDEDOR, V_PRESUPUES' +
+              'TELEFONO,'#10'    COALESCE(CONTACTOS_DIRECCIONES.MOVIL, CONTACTOS.MO' +
-              'TOS_CLIENTE.NO_VALORADO'#10'FROM'#10'    V_PRESUPUESTOS_CLIENTE'#10'    INNE' +
+              'VIL_1) AS MOVIL,'#10'    V_PRESUPUESTOS_CLIENTE.PERSONA_CONTACTO,'#10'  ' +
-              'R JOIN CONTACTOS ON (CONTACTOS.ID = V_PRESUPUESTOS_CLIENTE.ID_CL' +
+              '  V_PRESUPUESTOS_CLIENTE.VENDEDOR, V_PRESUPUESTOS_CLIENTE.NO_VAL' +
-              'IENTE)'#10'    LEFT OUTER JOIN CONTACTOS_DIRECCIONES ON (CONTACTOS_D' +
+              'ORADO'#10'FROM'#10'    V_PRESUPUESTOS_CLIENTE'#10'    INNER JOIN CONTACTOS O' +
-              'IRECCIONES.ID = V_PRESUPUESTOS_CLIENTE.ID_DIRECCION)'#10'WHERE'#10'    V' +
+              'N (CONTACTOS.ID = V_PRESUPUESTOS_CLIENTE.ID_CLIENTE)'#10'    LEFT OU' +
-              '_PRESUPUESTOS_CLIENTE.ID = :ID'#10
+              'TER JOIN CONTACTOS_DIRECCIONES ON (CONTACTOS_DIRECCIONES.ID = V_' +
+              'PRESUPUESTOS_CLIENTE.ID_DIRECCION)'#10'WHERE'#10'    V_PRESUPUESTOS_CLIE' +
+              'NTE.ID = :ID'#10
             StatementType = stSQL
             ColumnMappings = <
               item
@@ -349,17 +351,17 @@ object RptPresupuestosCliente: TRptPresupuestosCliente
                 DatasetField = 'VENDEDOR'
                 TableField = 'VENDEDOR'
               end
-              item
-                DatasetField = 'TELEFONO_1'
-                TableField = 'TELEFONO_1'
-              end
-              item
-                DatasetField = 'MOVIL_1'
-                TableField = 'MOVIL_1'
-              end
               item
                 DatasetField = 'NO_VALORADO'
                 TableField = 'NO_VALORADO'
+              end
+              item
+                DatasetField = 'TELEFONO'
+                TableField = 'TELEFONO'
+              end
+              item
+                DatasetField = 'MOVIL'
+                TableField = 'MOVIL'
               end>
           end>
         Name = 'Informe_Cabecera'
@@ -454,16 +456,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
@@ -492,6 +484,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
@@ -866,7 +868,7 @@ object RptPresupuestosCliente: TRptPresupuestosCliente
     PrintOptions.Printer = 'Por defecto'
     PrintOptions.PrintOnSheet = 0
     ReportOptions.CreateDate = 39065.872423495400000000
-    ReportOptions.LastChange = 40122.745990115700000000
+    ReportOptions.LastChange = 40141.552037754600000000
     ScriptLanguage = 'PascalScript'
     ShowProgress = False
     StoreInDFM = False
@@ -984,16 +986,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
@@ -1022,6 +1014,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