Se incluye en la factura de cliente el telefono del cliente

git-svn-id: https://192.168.0.254/svn/Proyectos.Cullere_FactuGES2/trunk@10 e61cf4a9-ab77-6246-bebb-cff159b4cb7d

Database/scripts/factuges.sql

@@ -2772,7 +2772,8 @@ CREATE VIEW V_FACTURAS_CLIENTE(
     REF_CONTRATO,
     REF_CLI_CONTRATO,
     SIN_COMISION,
-    REFERENCIA_PRESUPUESTO)
+    REFERENCIA_PRESUPUESTO,
+    TELEFONO_CLIENTE)
 AS
 SELECT FACTURAS_CLIENTE.ID,
   FACTURAS_CLIENTE.ID_EMPRESA,
@@ -2824,7 +2825,8 @@ SELECT FACTURAS_CLIENTE.ID,
   CONTRATOS_CLIENTE.REFERENCIA,
   CONTRATOS_CLIENTE.REFERENCIA_CLIENTE,
   FACTURAS_CLIENTE.SIN_COMISION,
-  FACTURAS_CLIENTE.REFERENCIA_PRESUPUESTO
+  FACTURAS_CLIENTE.REFERENCIA_PRESUPUESTO,
+  CONTACTOS.telefono_1
 
 
   FROM V_FAC_CLI_SITUACION

Source/Base/Base.dproj

@@ -44,13 +44,6 @@
     <Borland.ProjectType>Package</Borland.ProjectType>
     <BorlandProject>
 <BorlandProject><Delphi.Personality><Parameters><Parameters Name="UseLauncher">False</Parameters><Parameters Name="LoadAllSymbols">True</Parameters><Parameters Name="LoadUnspecifiedSymbols">False</Parameters></Parameters><Package_Options><Package_Options Name="PackageDescription">Libreria base de FactuGES</Package_Options><Package_Options Name="ImplicitBuild">False</Package_Options><Package_Options Name="DesigntimeOnly">False</Package_Options><Package_Options Name="RuntimeOnly">False</Package_Options></Package_Options><VersionInfo><VersionInfo Name="IncludeVerInfo">True</VersionInfo><VersionInfo Name="AutoIncBuild">False</VersionInfo><VersionInfo Name="MajorVer">1</VersionInfo><VersionInfo Name="MinorVer">0</VersionInfo><VersionInfo Name="Release">0</VersionInfo><VersionInfo Name="Build">0</VersionInfo><VersionInfo Name="Debug">False</VersionInfo><VersionInfo Name="PreRelease">False</VersionInfo><VersionInfo Name="Special">False</VersionInfo><VersionInfo Name="Private">False</VersionInfo><VersionInfo Name="DLL">False</VersionInfo><VersionInfo Name="Locale">3082</VersionInfo><VersionInfo Name="CodePage">1252</VersionInfo></VersionInfo><VersionInfoKeys><VersionInfoKeys Name="CompanyName"></VersionInfoKeys><VersionInfoKeys Name="FileDescription"></VersionInfoKeys><VersionInfoKeys Name="FileVersion">1.0.0.0</VersionInfoKeys><VersionInfoKeys Name="InternalName"></VersionInfoKeys><VersionInfoKeys Name="LegalCopyright"></VersionInfoKeys><VersionInfoKeys Name="LegalTrademarks"></VersionInfoKeys><VersionInfoKeys Name="OriginalFilename"></VersionInfoKeys><VersionInfoKeys Name="ProductName"></VersionInfoKeys><VersionInfoKeys Name="ProductVersion">1.0.0.0</VersionInfoKeys></VersionInfoKeys><Excluded_Packages>
-      
-      
-      
-      
-      
-      
-      
       <Excluded_Packages Name="$(BDS)\Bin\dclintraweb_90_100.bpl">VCL for the Web Design Package for CodeGear RAD Studio</Excluded_Packages>
       <Excluded_Packages Name="$(BDS)\bin\dclwebsnap100.bpl">CodeGear WebSnap Components</Excluded_Packages>
       <Excluded_Packages Name="$(BDS)\bin\dclsoap100.bpl">CodeGear SOAP Components</Excluded_Packages>

Source/Modulos/Facturas de cliente/Reports/uRptFacturasCliente_Server.dfm

@@ -108,6 +108,11 @@ object RptFacturasCliente: TRptFacturasCliente
         DataType = datString
         Size = 255
       end
+      item
+        Name = 'TELEFONO_CLIENTE'
+        DataType = datString
+        Size = 25
+      end
       item
         Name = 'NIF_CIF'
         DataType = datString
@@ -645,24 +650,24 @@ object RptFacturasCliente: TRptFacturasCliente
               'TE.RE, V_FACTURAS_CLIENTE.IMPORTE_RE,'#10'    V_FACTURAS_CLIENTE.IMP' +
               'ORTE_TOTAL,'#10'    V_FACTURAS_CLIENTE.OBSERVACIONES, FORMAS_PAGO.DE' +
               'SCRIPCION AS FORMA_PAGO, V_FACTURAS_CLIENTE.ID_CLIENTE,'#10'    V_FA' +
-              'CTURAS_CLIENTE.REFERENCIA_CLIENTE, V_FACTURAS_CLIENTE.NIF_CIF, V' +
+              'CTURAS_CLIENTE.REFERENCIA_CLIENTE, V_FACTURAS_CLIENTE.TELEFONO_C' +
-              '_FACTURAS_CLIENTE.NOMBRE, V_FACTURAS_CLIENTE.CALLE,'#10'    V_FACTUR' +
+              'LIENTE, V_FACTURAS_CLIENTE.NIF_CIF, V_FACTURAS_CLIENTE.NOMBRE, V' +
-              'AS_CLIENTE.PROVINCIA, V_FACTURAS_CLIENTE.CODIGO_POSTAL, V_FACTUR' +
+              '_FACTURAS_CLIENTE.CALLE,'#10'    V_FACTURAS_CLIENTE.PROVINCIA, V_FAC' +
-              'AS_CLIENTE.POBLACION,'#10'    CONTACTOS_DATOS_BANCO.TITULAR,'#10'    CON' +
+              'TURAS_CLIENTE.CODIGO_POSTAL, V_FACTURAS_CLIENTE.POBLACION,'#10'    C' +
-              'TACTOS_DATOS_BANCO.ENTIDAD,'#10'    CONTACTOS_DATOS_BANCO.SUCURSAL,'#10 +
+              'ONTACTOS_DATOS_BANCO.TITULAR,'#10'    CONTACTOS_DATOS_BANCO.ENTIDAD,' +
-              '    CONTACTOS_DATOS_BANCO.DC,'#10'    CONTACTOS_DATOS_BANCO.CUENTA,'#10 +
+              #10'    CONTACTOS_DATOS_BANCO.SUCURSAL,'#10'    CONTACTOS_DATOS_BANCO.D' +
-              '    ID_EMPRESA, EMPRESAS.NIF_CIF as NIF_CIF_EMPRESA, EMPRESAS.RA' +
+              'C,'#10'    CONTACTOS_DATOS_BANCO.CUENTA,'#10'    ID_EMPRESA, EMPRESAS.NI' +
-              'ZON_SOCIAL,'#10'    EMPRESAS.CALLE as CALLE_EMPRESA, EMPRESAS.POBLAC' +
+              'F_CIF as NIF_CIF_EMPRESA, EMPRESAS.RAZON_SOCIAL,'#10'    EMPRESAS.CA' +
-              'ION as POBLACION_EMPRESA,'#10'    EMPRESAS.PROVINCIA as PROVINCIA_EM' +
+              'LLE as CALLE_EMPRESA, EMPRESAS.POBLACION as POBLACION_EMPRESA,'#10' ' +
-              'PRESA, EMPRESAS.CODIGO_POSTAL as CODIGO_POSTAL_EMPRESA,'#10'    EMPR' +
+              '   EMPRESAS.PROVINCIA as PROVINCIA_EMPRESA, EMPRESAS.CODIGO_POST' +
-              'ESAS.TELEFONO_1, EMPRESAS.FAX, EMPRESAS.MOVIL_1, EMPRESAS.EMAIL_' +
+              'AL as CODIGO_POSTAL_EMPRESA,'#10'    EMPRESAS.TELEFONO_1, EMPRESAS.F' +
-              '1,'#10'    EMPRESAS.PAGINA_WEB, EMPRESAS.REGISTRO_MERCANTIL, EMPRESA' +
+              'AX, EMPRESAS.MOVIL_1, EMPRESAS.EMAIL_1,'#10'    EMPRESAS.PAGINA_WEB,' +
-              'S.LOGOTIPO,'#10'    V_FACTURAS_CLIENTE.REFERENCIA_PRESUPUESTO'#10'FROM V' +
+              ' EMPRESAS.REGISTRO_MERCANTIL, EMPRESAS.LOGOTIPO,'#10'    V_FACTURAS_' +
-              '_FACTURAS_CLIENTE'#10'LEFT JOIN EMPRESAS ON EMPRESAS.ID = ID_EMPRESA' +
+              'CLIENTE.REFERENCIA_PRESUPUESTO'#10'FROM V_FACTURAS_CLIENTE'#10'LEFT JOIN' +
-              #10'LEFT JOIN FORMAS_PAGO ON (FORMAS_PAGO.ID = V_FACTURAS_CLIENTE.I' +
+              ' EMPRESAS ON EMPRESAS.ID = ID_EMPRESA'#10'LEFT JOIN FORMAS_PAGO ON (' +
-              'D_FORMA_PAGO)'#10'LEFT JOIN CONTACTOS_DATOS_BANCO ON (CONTACTOS_DATO' +
+              'FORMAS_PAGO.ID = V_FACTURAS_CLIENTE.ID_FORMA_PAGO)'#10'LEFT JOIN CON' +
-              'S_BANCO.ID_CONTACTO = V_FACTURAS_CLIENTE.ID_CLIENTE)'#10'WHERE V_FAC' +
+              'TACTOS_DATOS_BANCO ON (CONTACTOS_DATOS_BANCO.ID_CONTACTO = V_FAC' +
-              'TURAS_CLIENTE.ID = :ID'#10
+              'TURAS_CLIENTE.ID_CLIENTE)'#10'WHERE V_FACTURAS_CLIENTE.ID = :ID'#10
             StatementType = stSQL
             ColumnMappings = <
               item
@@ -861,6 +866,11 @@ object RptFacturasCliente: TRptFacturasCliente
               item
                 DatasetField = 'REFERENCIA_PRESUPUESTO'
                 TableField = 'REFERENCIA_PRESUPUESTO'
+              end
+              item
+                DatasetField = 'TELEFONO_CLIENTE'
+                TableField = '<unknown>'
+                SQLOrigin = 'TELEFONO_CLIENTE'
               end>
           end>
         Name = 'InformeFacturasCliente'
@@ -954,6 +964,11 @@ object RptFacturasCliente: TRptFacturasCliente
             DataType = datString
             Size = 255
           end
+          item
+            Name = 'TELEFONO_CLIENTE'
+            DataType = datString
+            Size = 25
+          end
           item
             Name = 'NIF_CIF'
             DataType = datString

Source/Servidor/FactuGES_Server.dproj

@@ -1,4 +1,4 @@
-<?xml version="1.0" encoding="utf-8"?>
+<?xml version="1.0" encoding="utf-8"?>
 <Project xmlns="http://schemas.microsoft.com/developer/msbuild/2003">
   <PropertyGroup>
     <ProjectGuid>{ebdcd25d-40d7-4146-91ec-a0ea4aa1dcd1}</ProjectGuid>
@@ -29,6 +29,7 @@
     <Borland.ProjectType />
     <BorlandProject>
 <BorlandProject><Delphi.Personality><Parameters><Parameters Name="UseLauncher">False</Parameters><Parameters Name="LoadAllSymbols">True</Parameters><Parameters Name="LoadUnspecifiedSymbols">False</Parameters></Parameters><VersionInfo><VersionInfo Name="IncludeVerInfo">True</VersionInfo><VersionInfo Name="AutoIncBuild">False</VersionInfo><VersionInfo Name="MajorVer">2</VersionInfo><VersionInfo Name="MinorVer">6</VersionInfo><VersionInfo Name="Release">3</VersionInfo><VersionInfo Name="Build">0</VersionInfo><VersionInfo Name="Debug">False</VersionInfo><VersionInfo Name="PreRelease">False</VersionInfo><VersionInfo Name="Special">False</VersionInfo><VersionInfo Name="Private">False</VersionInfo><VersionInfo Name="DLL">False</VersionInfo><VersionInfo Name="Locale">3082</VersionInfo><VersionInfo Name="CodePage">1252</VersionInfo></VersionInfo><VersionInfoKeys><VersionInfoKeys Name="CompanyName">Rodax Software S.L.</VersionInfoKeys><VersionInfoKeys Name="FileDescription"></VersionInfoKeys><VersionInfoKeys Name="FileVersion">2.6.3.0</VersionInfoKeys><VersionInfoKeys Name="InternalName"></VersionInfoKeys><VersionInfoKeys Name="LegalCopyright"></VersionInfoKeys><VersionInfoKeys Name="LegalTrademarks"></VersionInfoKeys><VersionInfoKeys Name="OriginalFilename"></VersionInfoKeys><VersionInfoKeys Name="ProductName">FactuGES (Servidor)</VersionInfoKeys><VersionInfoKeys Name="ProductVersion">2.6.3.0</VersionInfoKeys><VersionInfoKeys Name="Comments"></VersionInfoKeys><VersionInfoKeys Name="CompileDate">martes, 08 de octubre de 2013 18:53</VersionInfoKeys></VersionInfoKeys><Excluded_Packages>
+      
       <Excluded_Packages Name="C:\Documents and Settings\All Users\Documentos\RAD Studio\5.0\Bpl\dxPScxScheduler2LnkD11.bpl">File C:\Documents and Settings\All Users\Documentos\RAD Studio\5.0\Bpl\dxPScxScheduler2LnkD11.bpl not found</Excluded_Packages>
     </Excluded_Packages><Source><Source Name="MainSource">FactuGES_Server.dpr</Source></Source></Delphi.Personality><ModelSupport>True</ModelSupport></BorlandProject></BorlandProject>
   </ProjectExtensions>