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

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