From 01bf48dff345e9d39ca255a380b5672cc706f639 Mon Sep 17 00:00:00 2001
From: david <darranz@rodax-software.com>
Date: Mon, 25 Jan 2010 11:25:29 +0000
Subject: [PATCH] Arreglo de recibos de cliente para que coja los datos del 
 cliente de la factura asociada

git-svn-id: https://192.168.0.254/svn/Proyectos.Noviseda_FactuGES2/trunk@54 f33bb606-9f5c-448d-9c99-757f00063c96
---
 .../Servidor/srvRecibosCliente_Impl.dfm       | 55 ++++++++++++++++++-
 1 file changed, 54 insertions(+), 1 deletion(-)

diff --git a/Source/Modulos/Recibos de cliente/Servidor/srvRecibosCliente_Impl.dfm b/Source/Modulos/Recibos de cliente/Servidor/srvRecibosCliente_Impl.dfm
index 89b0d41..fb09fa1 100644
--- a/Source/Modulos/Recibos de cliente/Servidor/srvRecibosCliente_Impl.dfm	
+++ b/Source/Modulos/Recibos de cliente/Servidor/srvRecibosCliente_Impl.dfm	
@@ -45,7 +45,20 @@ object srvRecibosCliente: TsrvRecibosCliente
           item
             Connection = 'IBX'
             TargetTable = 'V_RECIBOS_CLIENTE'
-            StatementType = stAutoSQL
+            SQL = 
+              'SELECT '#10'    ID, ID_RECIBO_COMPENSADO, REFERENCIA_REC_COMPENSADO,' +
+              ' '#10'    REFERENCIA, SITUACION, ID_FACTURA, ID_REMESA, REFERENCIA_R' +
+              'EMESA, '#10'    FECHA_EMISION, FECHA_VENCIMIENTO, DESCRIPCION, OBSER' +
+              'VACIONES, '#10'    IMPORTE, OTROS_GASTOS, IMPORTE_TOTAL, FECHA_FACTU' +
+              'RA, '#10'    FORMA_PAGO_FACTURA, IMPORTE_FACTURA, ID_EMPRESA, DATOS_' +
+              'BANCARIOS, '#10'    ID_CLIENTE, NOMBRE_CLIENTE, NIF_CIF_CLIENTE, CAL' +
+              'LE_CLIENTE, '#10'    POBLACION_CLIENTE, CODIGO_POSTAL_CLIENTE, PROVI' +
+              'NCIA_CLIENTE, '#10'    FECHA_ALTA, FECHA_MODIFICACION, USUARIO,'#10'    ' +
+              'substr(DATOS_BANCARIOS, 1,4) as ENTIDAD,'#10'    substr(DATOS_BANCAR' +
+              'IOS, 6,9) as SUCURSAL,'#10'    substr(DATOS_BANCARIOS, 11,13) as DC,' +
+              #10'    substr(DATOS_BANCARIOS, 14,23) as CUENTA'#10#10'  FROM'#10'    V_RECI' +
+              'BOS_CLIENTE'#10'  WHERE {Where}'#10
+            StatementType = stSQL
             ColumnMappings = <
               item
                 DatasetField = 'ID'
@@ -166,6 +179,26 @@ object srvRecibosCliente: TsrvRecibosCliente
               item
                 DatasetField = 'USUARIO'
                 TableField = 'USUARIO'
+              end
+              item
+                DatasetField = 'ENTIDAD'
+                TableField = '<unknown>'
+                SQLOrigin = 'ENTIDAD'
+              end
+              item
+                DatasetField = 'SUCURSAL'
+                TableField = '<unknown>'
+                SQLOrigin = 'SUCURSAL'
+              end
+              item
+                DatasetField = 'DC'
+                TableField = '<unknown>'
+                SQLOrigin = 'DC'
+              end
+              item
+                DatasetField = 'CUENTA'
+                TableField = '<unknown>'
+                SQLOrigin = 'CUENTA'                
               end>
           end>
         Name = 'RecibosCliente'
@@ -330,6 +363,26 @@ object srvRecibosCliente: TsrvRecibosCliente
             DataType = datString
             Size = 20
             DictionaryEntry = 'RecibosCliente_USUARIO'
+          end
+          item
+            Name = 'ENTIDAD'
+            DataType = datString
+            Size = 254
+          end
+          item
+            Name = 'SUCURSAL'
+            DataType = datString
+            Size = 254
+          end
+          item
+            Name = 'DC'
+            DataType = datString
+            Size = 254
+          end
+          item
+            Name = 'CUENTA'
+            DataType = datString
+            Size = 254
           end>
       end
       item