Version 1.9.9

Peticiones relacionadas Tareas #1071: En el informe de recibo de cliente poder sacar el número de cuenta del cliente para llebar al banco
Tareas #1168: Los empleados en la empresa sólo pueden ser los de esa empresa
Tareas #1169: Las referencias de los empleados debe de ser a nivel de empresa
Tareas #1171: En todos los informes de Azacan quitar el título porque redunda
Tareas #1177: Incluir el sello de azacan en la firma de los pedidos a proveedor

git-svn-id: https://192.168.0.254/svn/Proyectos.Tecsitel_FactuGES2/trunk@1075 0c75b7a4-871f-7646-8a2f-f78d34cc349f

Source/Modulos/Contactos/Model/uBizContactosServer.pas

@@ -14,8 +14,8 @@ type
   private
     FReferenciaAutomatica : Boolean;
   protected
-    function _DarReferenciaInterna(const ATipo: String) : String;
+    function _DarReferenciaInterna(const ATipo: String; const AIDEmpresa: Integer = -1) : String;
-    function _IncrementarReferenciaInterna(const ATipo: String) : Boolean;
+    function _IncrementarReferenciaInterna(const ATipo: String; const AIDEmpresa: Integer = -1) : Boolean;
 
     function DarReferenciaContacto : String; virtual; abstract;
     function IncrementarReferenciaContacto : Boolean; virtual; abstract;
@@ -269,7 +269,7 @@ begin
 end;
 
 function TBizContactosServer._DarReferenciaInterna(
-  const ATipo: String): String;
+  const ATipo: String; const AIDEmpresa: Integer = -1): String;
 var
   AReferenciasService : IsrvReferencias;
   Intf : IInterface;
@@ -279,11 +279,11 @@ begin
 
   GetClassFactory('srvReferencias').CreateInstance(AClientID, Intf);
   AReferenciasService := Intf as IsrvReferencias;
-  Result := AReferenciasService.DarNuevaReferencia(ATipo, -1)
+  Result := AReferenciasService.DarNuevaReferencia(ATipo, AIDEmpresa)
 end;
 
 function TBizContactosServer._IncrementarReferenciaInterna(
-  const ATipo: String): Boolean;
+  const ATipo: String; const AIDEmpresa: Integer = -1): Boolean;
 var
   AReferenciasService : IsrvReferencias;
   Intf : IInterface;
@@ -293,7 +293,7 @@ begin
 
   GetClassFactory('srvReferencias').CreateInstance(AClientID, Intf);
   AReferenciasService := Intf as IsrvReferencias;
-  Result := AReferenciasService.IncrementarValorReferencia(ATipo, Self.REFERENCIA, -1)
+  Result := AReferenciasService.IncrementarValorReferencia(ATipo, Self.REFERENCIA, AIDEmpresa)
 end;
 
 initialization

Source/Modulos/Contactos/Model/uBizEmpleadosServer.pas

@@ -33,7 +33,7 @@ const
 
 function TBizEmpleadoServer.DarReferenciaContacto: String;
 begin
-  Result := _DarReferenciaInterna(REF_EMPLEADOS)
+  Result := _DarReferenciaInterna(REF_EMPLEADOS, ID_EMPRESA)
 end;
 
 procedure TBizEmpleadoServer.Delete_Datos_Contacto(aChange: TDADeltaChange);
@@ -61,7 +61,7 @@ end;
 
 function TBizEmpleadoServer.IncrementarReferenciaContacto: Boolean;
 begin
-  Result := _IncrementarReferenciaInterna(REF_EMPLEADOS)
+  Result := _IncrementarReferenciaInterna(REF_EMPLEADOS, ID_EMPRESA)
 end;
 
 procedure TBizEmpleadoServer.Insert_Datos_Contacto(aChange: TDADeltaChange);

Source/Modulos/Recibos de cliente/Reports/uRptRecibosCliente_Server.dfm

@@ -23,7 +23,7 @@ object RptRecibosCliente: TRptRecibosCliente
       item
         Name = 'REFERENCIA_REC_COMPENSADO'
         DataType = datString
-        Size = 255
+        Size = 1
       end
       item
         Name = 'ID_EMPRESA'
@@ -100,6 +100,10 @@ object RptRecibosCliente: TRptRecibosCliente
         Name = 'IMPORTE_FACTURA'
         DataType = datCurrency
       end
+      item
+        Name = 'ID_CLIENTE'
+        DataType = datInteger
+      end
       item
         Name = 'NOMBRE_CLIENTE'
         DataType = datString
@@ -198,7 +202,7 @@ object RptRecibosCliente: TRptRecibosCliente
       item
         Name = 'ID'
         DataType = datInteger
-        Value = ''
+        Value = '40'
         ParamType = daptInput
       end>
     MasterMappingMode = mmDataRequest
@@ -449,13 +453,13 @@ object RptRecibosCliente: TRptRecibosCliente
           item
             Name = 'ID'
             DataType = datInteger
-            Value = ''
+            Value = '40'
             ParamType = daptInput
           end>
         Statements = <
           item
             Connection = 'IBX'
-            TargetTable = 'REMESAS_CLIENTE'
+            TargetTable = 'RECIBOS_CLIENTE'
             SQL = 
               'SELECT'#10'    V_RECIBOS_CLIENTE.ID,'#10'    V_RECIBOS_CLIENTE.ID_RECIBO' +
               '_COMPENSADO,'#10'    V_RECIBOS_CLIENTE.REFERENCIA_REC_COMPENSADO,'#10'  ' +
@@ -469,18 +473,19 @@ object RptRecibosCliente: TRptRecibosCliente
               '.OTROS_GASTOS,'#10'    V_RECIBOS_CLIENTE.IMPORTE_TOTAL,'#10'    V_RECIBO' +
               'S_CLIENTE.FECHA_FACTURA,'#10'    V_RECIBOS_CLIENTE.FORMA_PAGO_FACTUR' +
               'A,'#10'    V_RECIBOS_CLIENTE.IMPORTE_FACTURA,'#10'    V_RECIBOS_CLIENTE.' +
-              'NOMBRE_CLIENTE,'#10'    V_RECIBOS_CLIENTE.NIF_CIF_CLIENTE,'#10'    V_REC' +
+              'ID_CLIENTE,'#10'    V_RECIBOS_CLIENTE.NOMBRE_CLIENTE,'#10'    V_RECIBOS_' +
-              'IBOS_CLIENTE.CALLE_CLIENTE,'#10'    V_RECIBOS_CLIENTE.CODIGO_POSTAL_' +
+              'CLIENTE.NIF_CIF_CLIENTE,'#10'    V_RECIBOS_CLIENTE.CALLE_CLIENTE,'#10'  ' +
-              'CLIENTE,'#10'    V_RECIBOS_CLIENTE.PROVINCIA_CLIENTE,'#10'    V_RECIBOS_' +
+              '  V_RECIBOS_CLIENTE.CODIGO_POSTAL_CLIENTE,'#10'    V_RECIBOS_CLIENTE' +
-              'CLIENTE.POBLACION_CLIENTE,'#10#10'    EMPRESAS.NIF_CIF as NIF_CIF_EMPR' +
+              '.PROVINCIA_CLIENTE,'#10'    V_RECIBOS_CLIENTE.POBLACION_CLIENTE,'#10#10'  ' +
-              'ESA, EMPRESAS.RAZON_SOCIAL,'#10'    EMPRESAS.CALLE as CALLE_EMPRESA,' +
+              '  EMPRESAS.NIF_CIF as NIF_CIF_EMPRESA, EMPRESAS.RAZON_SOCIAL,'#10'  ' +
-              ' EMPRESAS.POBLACION as POBLACION_EMPRESA,'#10'    EMPRESAS.PROVINCIA' +
+              '  EMPRESAS.CALLE as CALLE_EMPRESA, EMPRESAS.POBLACION as POBLACI' +
-              ' as PROVINCIA_EMPRESA, EMPRESAS.CODIGO_POSTAL as CODIGO_POSTAL_E' +
+              'ON_EMPRESA,'#10'    EMPRESAS.PROVINCIA as PROVINCIA_EMPRESA, EMPRESA' +
-              'MPRESA,'#10'    EMPRESAS.TELEFONO_1, EMPRESAS.FAX, EMPRESAS.MOVIL_1,' +
+              'S.CODIGO_POSTAL as CODIGO_POSTAL_EMPRESA,'#10'    EMPRESAS.TELEFONO_' +
-              ' EMPRESAS.EMAIL_1,'#10'    EMPRESAS.PAGINA_WEB, EMPRESAS.REGISTRO_ME' +
+              '1, EMPRESAS.FAX, EMPRESAS.MOVIL_1, EMPRESAS.EMAIL_1,'#10'    EMPRESA' +
-              'RCANTIL, EMPRESAS.LOGOTIPO'#10#10'FROM'#10'  V_RECIBOS_CLIENTE'#10'  LEFT OUTE' +
+              'S.PAGINA_WEB, EMPRESAS.REGISTRO_MERCANTIL, EMPRESAS.LOGOTIPO'#10#10'FR' +
-              'R JOIN EMPRESAS ON (EMPRESAS.ID = V_RECIBOS_CLIENTE.ID_EMPRESA)'#10 +
+              'OM'#10'  V_RECIBOS_CLIENTE'#10'  LEFT OUTER JOIN EMPRESAS ON (EMPRESAS.I' +
-              'WHERE'#10'  V_RECIBOS_CLIENTE.ID = :ID'#10
+              'D = V_RECIBOS_CLIENTE.ID_EMPRESA)'#10'WHERE'#10'  V_RECIBOS_CLIENTE.ID =' +
+              ' :ID'#10
             StatementType = stSQL
             ColumnMappings = <
               item
@@ -489,8 +494,7 @@ object RptRecibosCliente: TRptRecibosCliente
               end
               item
                 DatasetField = 'ID_RECIBO_COMPENSADO'
-                TableField = '<unknown>'
+                TableField = 'ID_RECIBO_COMPENSADO'
-                SQLOrigin = 'ID_RECIBO_COMPENSADO'
               end
               item
                 DatasetField = 'REFERENCIA_REC_COMPENSADO'
@@ -499,7 +503,8 @@ object RptRecibosCliente: TRptRecibosCliente
               end
               item
                 DatasetField = 'ID_EMPRESA'
-                TableField = 'ID_EMPRESA'
+                TableField = '<unknown>'
+                SQLOrigin = 'ID_EMPRESA'
               end
               item
                 DatasetField = 'REFERENCIA'
@@ -512,8 +517,7 @@ object RptRecibosCliente: TRptRecibosCliente
               end
               item
                 DatasetField = 'ID_FACTURA'
-                TableField = '<unknown>'
+                TableField = 'ID_FACTURA'
-                SQLOrigin = 'ID_FACTURA'
               end
               item
                 DatasetField = 'DATOS_BANCARIOS'
@@ -522,8 +526,7 @@ object RptRecibosCliente: TRptRecibosCliente
               end
               item
                 DatasetField = 'ID_REMESA'
-                TableField = '<unknown>'
+                TableField = 'ID_REMESA'
-                SQLOrigin = 'ID_REMESA'
               end
               item
                 DatasetField = 'REFERENCIA_REMESA'
@@ -532,13 +535,11 @@ object RptRecibosCliente: TRptRecibosCliente
               end
               item
                 DatasetField = 'FECHA_EMISION'
-                TableField = '<unknown>'
+                TableField = 'FECHA_EMISION'
-                SQLOrigin = 'FECHA_EMISION'
               end
               item
                 DatasetField = 'FECHA_VENCIMIENTO'
-                TableField = '<unknown>'
+                TableField = 'FECHA_VENCIMIENTO'
-                SQLOrigin = 'FECHA_VENCIMIENTO'
               end
               item
                 DatasetField = 'DESCRIPCION'
@@ -546,22 +547,20 @@ object RptRecibosCliente: TRptRecibosCliente
               end
               item
                 DatasetField = 'OBSERVACIONES'
-                TableField = '<unknown>'
+                TableField = 'OBSERVACIONES'
-                SQLOrigin = 'OBSERVACIONES'
               end
               item
                 DatasetField = 'IMPORTE'
-                TableField = '<unknown>'
+                TableField = 'IMPORTE'
-                SQLOrigin = 'IMPORTE'
               end
               item
                 DatasetField = 'OTROS_GASTOS'
-                TableField = '<unknown>'
+                TableField = 'OTROS_GASTOS'
-                SQLOrigin = 'OTROS_GASTOS'
               end
               item
                 DatasetField = 'IMPORTE_TOTAL'
-                TableField = 'IMPORTE_TOTAL'
+                TableField = '<unknown>'
+                SQLOrigin = 'IMPORTE_TOTAL'
               end
               item
                 DatasetField = 'FECHA_FACTURA'
@@ -672,6 +671,11 @@ object RptRecibosCliente: TRptRecibosCliente
                 DatasetField = 'LOGOTIPO'
                 TableField = '<unknown>'
                 SQLOrigin = 'LOGOTIPO'
+              end
+              item
+                DatasetField = 'ID_CLIENTE'
+                TableField = '<unknown>'
+                SQLOrigin = 'ID_CLIENTE'
               end>
           end>
         Name = 'Informe_Cabecera'
@@ -687,7 +691,7 @@ object RptRecibosCliente: TRptRecibosCliente
           item
             Name = 'REFERENCIA_REC_COMPENSADO'
             DataType = datString
-            Size = 255
+            Size = 1
           end
           item
             Name = 'ID_EMPRESA'
@@ -764,6 +768,10 @@ object RptRecibosCliente: TRptRecibosCliente
             Name = 'IMPORTE_FACTURA'
             DataType = datCurrency
           end
+          item
+            Name = 'ID_CLIENTE'
+            DataType = datInteger
+          end
           item
             Name = 'NOMBRE_CLIENTE'
             DataType = datString
@@ -1161,6 +1169,69 @@ object RptRecibosCliente: TRptRecibosCliente
             Name = 'IMPORTE_TOTAL'
             DataType = datCurrency
           end>
+      end
+      item
+        Params = <
+          item
+            Name = 'ID_CONTACTO'
+            Value = ''
+          end>
+        Statements = <
+          item
+            Connection = 'IBX'
+            SQL = 
+              'SELECT'#10'    TITULAR, ENTIDAD, SUCURSAL, DC, CUENTA'#10'FROM contactos' +
+              '_datos_banco'#10'WHERE ID_CONTACTO = :ID_CONTACTO'#10
+            StatementType = stSQL
+            ColumnMappings = <
+              item
+                DatasetField = 'TITULAR'
+                TableField = 'TITULAR'
+              end
+              item
+                DatasetField = 'ENTIDAD'
+                TableField = 'ENTIDAD'
+              end
+              item
+                DatasetField = 'SUCURSAL'
+                TableField = 'SUCURSAL'
+              end
+              item
+                DatasetField = 'DC'
+                TableField = 'DC'
+              end
+              item
+                DatasetField = 'CUENTA'
+                TableField = 'CUENTA'
+              end>
+          end>
+        Name = 'Informe_Bancos_Cliente'
+        Fields = <
+          item
+            Name = 'TITULAR'
+            DataType = datString
+            Size = 255
+          end
+          item
+            Name = 'ENTIDAD'
+            DataType = datString
+            Size = 15
+          end
+          item
+            Name = 'SUCURSAL'
+            DataType = datString
+            Size = 15
+          end
+          item
+            Name = 'DC'
+            DataType = datString
+            Size = 15
+          end
+          item
+            Name = 'CUENTA'
+            DataType = datString
+            Size = 15
+          end>
       end>
     JoinDataTables = <>
     UnionDataTables = <>
@@ -1671,4 +1742,62 @@ object RptRecibosCliente: TRptRecibosCliente
     Left = 704
     Top = 304
   end
+  object tbl_BancosCliente: TDAMemDataTable
+    RemoteUpdatesOptions = []
+    Fields = <
+      item
+        Name = 'TITULAR'
+        DataType = datString
+        Size = 255
+      end
+      item
+        Name = 'ENTIDAD'
+        DataType = datString
+        Size = 15
+      end
+      item
+        Name = 'SUCURSAL'
+        DataType = datString
+        Size = 15
+      end
+      item
+        Name = 'DC'
+        DataType = datString
+        Size = 15
+      end
+      item
+        Name = 'CUENTA'
+        DataType = datString
+        Size = 15
+      end>
+    Params = <
+      item
+        Name = 'ID_CONTACTO'
+        Value = ''
+      end>
+    MasterMappingMode = mmDataRequest
+    LogChanges = False
+    StreamingOptions = [soDisableEventsWhileStreaming]
+    RemoteFetchEnabled = False
+    LocalSchema = schReport
+    LocalDataStreamer = Bin2DataStreamer
+    LogicalName = 'Informe_Bancos_Cliente'
+    IndexDefs = <>
+    Left = 168
+    Top = 200
+  end
+  object DADataBancosCliente: TDADataSource
+    DataSet = tbl_BancosCliente.Dataset
+    DataTable = tbl_BancosCliente
+    Left = 168
+    Top = 144
+  end
+  object frxDBBancosCliente: TfrxDBDataset
+    UserName = 'frxDBBancosCliente'
+    CloseDataSource = False
+    DataSource = DADataBancosCliente
+    BCDToCurrency = False
+    Left = 168
+    Top = 88
+  end
 end

Source/Modulos/Recibos de cliente/Reports/uRptRecibosCliente_Server.pas

@@ -40,6 +40,9 @@ type
     tbl_InformeListadoRecibosPendResumen: TDAMemDataTable;
     schReport: TDASchema;
     DataDictionary: TDADataDictionary;
+    tbl_BancosCliente: TDAMemDataTable;
+    DADataBancosCliente: TDADataSource;
+    frxDBBancosCliente: TfrxDBDataset;
     procedure DataModuleCreate(Sender: TObject);
     procedure DataModuleDestroy(Sender: TObject);
 
@@ -88,6 +91,7 @@ const
   { Dataset names for schReport }
   ds_InformeCabecera = 'Informe_Cabecera';
   ds_InformeCompensados = 'Informe_Compensados';
+  ds_InformeBancosCliente = 'Informe_Bancos_Cliente';  
   ds_InformeListadoRecibosResumen = 'InformeListadoRecibosResumen';
   ds_InformeListadoRecibosPendientesResumen = 'InformeListadoRecibosPendientesResumen';
 
@@ -108,6 +112,9 @@ begin
 
   frxDBCompensados.DataSource := DADataCompensados;
   frxDBCompensados.CloseDataSource := False;
+
+  frxDBBancosCliente.DataSource := DADataBancosCliente;
+  frxDBBancosCliente.CloseDataSource := False;
 end;
 
 function TRptRecibosCliente.GenerarRecibo(const ListaID: TIntegerArray): Binary;
@@ -399,6 +406,7 @@ procedure TRptRecibosCliente.DataModuleDestroy(Sender: TObject);
 begin
   tbl_Cabecera.Active := False;
   tbl_Compensados.Active := False;
+  tbl_BancosCliente.Active := False;  
 
   FreeANDNIL(FListaNombresClientes);
 end;
@@ -564,6 +572,7 @@ begin
   try
     tbl_Cabecera.Active := False;
     tbl_Compensados.Active := False;
+    tbl_BancosCliente.Active := False;
 
     tbl_Cabecera.ParamByName('ID').AsInteger := ID;
     tbl_Compensados.ParamByName('ID_RECIBO').AsInteger := ID;
@@ -571,6 +580,11 @@ begin
     tbl_Cabecera.Active := True;
     tbl_Compensados.Active := True;
 
+//Ojo orden importante
+    tbl_BancosCliente.ParamByName('ID_CONTACTO').AsInteger := tbl_Cabecera.FieldByName('ID_CLIENTE').AsInteger;
+    tbl_BancosCliente.Active := True;
+
+
     AInforme := DarRutaFichero(DarRutaInformes, rptInforme, tbl_Cabecera.FieldByName('ID_EMPRESA').AsString);
     if VarIsNull(AInforme) then
        raise Exception.Create (('Error Servidor: _GenerarRecibo, no encuentra informe ' + rptInforme));

Source/Servidor/FactuGES_Server.dproj

@@ -41,6 +41,7 @@
       
       
       
+      
       <Excluded_Packages Name="C:\Documents and Settings\All Users\Documentos\RAD Studio\5.0\Bpl\dxPSCoreD11.bpl">ExpressPrinting System by Developer Express Inc.</Excluded_Packages>
     </Excluded_Packages><Source><Source Name="MainSource">FactuGES_Server.dpr</Source></Source></Delphi.Personality></BorlandProject></BorlandProject>
   </ProjectExtensions>