Version 4.3.8

git-svn-id: https://192.168.0.254/svn/Proyectos.LuisLeon_FactuGES2/trunk@216 b2cfbe5a-eba1-4a0c-8b32-7feea0a119f2

Database/scripts/factuges.sql

@@ -1353,13 +1353,14 @@ CREATE VIEW V_EMPRESAS(
     ID_TIPO_IVA,
     ID_FORMA_PAGO,
     ID_ALMACEN,
-    ID_PERFIL)
+    ID_PERFIL,
+    VALIDEZ_PRESUPUESTOS)
 AS
 select E.ID, E.NIF_CIF, E.NOMBRE, E.RAZON_SOCIAL, E.CALLE, E.POBLACION,
 E.PROVINCIA, E.CODIGO_POSTAL, E.TELEFONO_1, E.TELEFONO_2, E.MOVIL_1, E.MOVIL_2,
 E.FAX, E.EMAIL_1, E.EMAIL_2, E.PAGINA_WEB, E.NOTAS, E.FECHA_ALTA, E.FECHA_MODIFICACION,
 E.USUARIO, E.LOGOTIPO, E.REGISTRO_MERCANTIL, E.PARAM_TIEMPO, E.PARAM_MARGEN, E.ID_TIPO_IVA,
-E.ID_FORMA_PAGO, E.ID_ALMACEN, EP.id_perfil
+E.ID_FORMA_PAGO, E.ID_ALMACEN, EP.id_perfil, E.VALIDEZ_PRESUPUESTOS
 from empresas E
 left join empresas_PERFILES EP on (EP.ID_EMPRESA = E.ID)
 ;
@@ -5193,7 +5194,6 @@ ALTER TABLE PEDIDOS_PROVEEDOR ADD CONSTRAINT FK_PEDIDOS_PROVEEDOR2 FOREIGN KEY (
 ALTER TABLE PEDIDOS_PROVEEDOR ADD CONSTRAINT FK_PEDIDOS_PROVEEDOR_1 FOREIGN KEY (ID_FACTURA) REFERENCES FACTURAS_PROVEEDOR (ID) ON DELETE SET NULL ON UPDATE CASCADE;
 ALTER TABLE PRESUPUESTOS_CLIENTE ADD CONSTRAINT FK_PRESUPUESTOS_CLIENTE_1 FOREIGN KEY (ID_EMPRESA) REFERENCES EMPRESAS (ID);
 ALTER TABLE PRESUPUESTOS_CLIENTE ADD CONSTRAINT FK_PRESUPUESTOS_CLIENTE_2 FOREIGN KEY (ID_CLIENTE) REFERENCES CONTACTOS (ID);
-alter table PRESUPUESTOS_CLIENTE add constraint FK_PRESUPUESTOS_CLIENTE_3 foreign key (ID_FACTURA_PROFORMA) references FACTURAS_PROFORMA(ID);
 ALTER TABLE RECIBOS_CLIENTE ADD CONSTRAINT FK_RECIBOS_CLIENTE FOREIGN KEY (ID_FACTURA) REFERENCES FACTURAS_CLIENTE (ID) ON DELETE CASCADE ON UPDATE CASCADE;
 ALTER TABLE RECIBOS_CLIENTE ADD CONSTRAINT FK_RECIBOS_CLIENTE2 FOREIGN KEY (ID_REMESA) REFERENCES REMESAS_CLIENTE (ID) ON DELETE SET NULL ON UPDATE SET NULL;
 ALTER TABLE RECIBOS_PROVEEDOR ADD CONSTRAINT FK_RECIBOS_PROVEEDOR FOREIGN KEY (ID_FACTURA) REFERENCES FACTURAS_PROVEEDOR (ID) ON DELETE CASCADE ON UPDATE CASCADE;

Source/ApplicationBase/Empresas/Data/uDataModuleEmpresas.dfm

@@ -211,6 +211,10 @@ inherited DataModuleEmpresas: TDataModuleEmpresas
       item
         Name = 'ID_PERFIL'
         DataType = datInteger
+      end
+      item
+        Name = 'VALIDEZ_PRESUPUESTOS'
+        DataType = datSmallInt
       end>
     Params = <>
     StreamingOptions = [soDisableEventsWhileStreaming]

Source/ApplicationBase/Empresas/Model/schEmpresasClient_Intf.pas

@@ -9,8 +9,8 @@ const
   { Data table rules ids
        Feel free to change them to something more human readable
        but make sure they are unique in the context of your application }
-  RID_Empresas = '{62467EEF-21A5-4B49-89AB-35AE73A15515}';
+  RID_Empresas = '{DB389F2C-AF2C-4C7E-BD9F-A3A39017C639}';
-  RID_EmpresasDatosBanco = '{EA93C21F-6570-4108-B25C-512F72920134}';
+  RID_EmpresasDatosBanco = '{EE4E0FEC-81F6-4D3D-9310-3C96C5E35E0B}';
 
   { Data table names }
   nme_Empresas = 'Empresas';
@@ -45,6 +45,7 @@ const
   fld_EmpresasID_FORMA_PAGO = 'ID_FORMA_PAGO';
   fld_EmpresasID_ALMACEN = 'ID_ALMACEN';
   fld_EmpresasID_PERFIL = 'ID_PERFIL';
+  fld_EmpresasVALIDEZ_PRESUPUESTOS = 'VALIDEZ_PRESUPUESTOS';
 
   { Empresas field indexes }
   idx_EmpresasID = 0;
@@ -75,6 +76,7 @@ const
   idx_EmpresasID_FORMA_PAGO = 25;
   idx_EmpresasID_ALMACEN = 26;
   idx_EmpresasID_PERFIL = 27;
+  idx_EmpresasVALIDEZ_PRESUPUESTOS = 28;
 
   { EmpresasDatosBanco fields }
   fld_EmpresasDatosBancoID = 'ID';
@@ -117,7 +119,7 @@ const
 type
   { IEmpresas }
   IEmpresas = interface(IDAStronglyTypedDataTable)
-  ['{81B08C9A-BF70-4385-BDA7-302F3F2075B3}']
+  ['{3258A439-7ECA-4924-ADC8-F32ED996CBEA}']
     { Property getters and setters }
     function GetIDValue: Integer;
     procedure SetIDValue(const aValue: Integer);
@@ -229,6 +231,10 @@ type
     procedure SetID_PERFILValue(const aValue: Integer);
     function GetID_PERFILIsNull: Boolean;
     procedure SetID_PERFILIsNull(const aValue: Boolean);
+    function GetVALIDEZ_PRESUPUESTOSValue: SmallInt;
+    procedure SetVALIDEZ_PRESUPUESTOSValue(const aValue: SmallInt);
+    function GetVALIDEZ_PRESUPUESTOSIsNull: Boolean;
+    procedure SetVALIDEZ_PRESUPUESTOSIsNull(const aValue: Boolean);
 
 
     { Properties }
@@ -288,6 +294,8 @@ type
     property ID_ALMACENIsNull: Boolean read GetID_ALMACENIsNull write SetID_ALMACENIsNull;
     property ID_PERFIL: Integer read GetID_PERFILValue write SetID_PERFILValue;
     property ID_PERFILIsNull: Boolean read GetID_PERFILIsNull write SetID_PERFILIsNull;
+    property VALIDEZ_PRESUPUESTOS: SmallInt read GetVALIDEZ_PRESUPUESTOSValue write SetVALIDEZ_PRESUPUESTOSValue;
+    property VALIDEZ_PRESUPUESTOSIsNull: Boolean read GetVALIDEZ_PRESUPUESTOSIsNull write SetVALIDEZ_PRESUPUESTOSIsNull;
   end;
 
   { TEmpresasDataTableRules }
@@ -409,6 +417,10 @@ type
     procedure SetID_PERFILValue(const aValue: Integer); virtual;
     function GetID_PERFILIsNull: Boolean; virtual;
     procedure SetID_PERFILIsNull(const aValue: Boolean); virtual;
+    function GetVALIDEZ_PRESUPUESTOSValue: SmallInt; virtual;
+    procedure SetVALIDEZ_PRESUPUESTOSValue(const aValue: SmallInt); virtual;
+    function GetVALIDEZ_PRESUPUESTOSIsNull: Boolean; virtual;
+    procedure SetVALIDEZ_PRESUPUESTOSIsNull(const aValue: Boolean); virtual;
 
     { Properties }
     property ID: Integer read GetIDValue write SetIDValue;
@@ -467,6 +479,8 @@ type
     property ID_ALMACENIsNull: Boolean read GetID_ALMACENIsNull write SetID_ALMACENIsNull;
     property ID_PERFIL: Integer read GetID_PERFILValue write SetID_PERFILValue;
     property ID_PERFILIsNull: Boolean read GetID_PERFILIsNull write SetID_PERFILIsNull;
+    property VALIDEZ_PRESUPUESTOS: SmallInt read GetVALIDEZ_PRESUPUESTOSValue write SetVALIDEZ_PRESUPUESTOSValue;
+    property VALIDEZ_PRESUPUESTOSIsNull: Boolean read GetVALIDEZ_PRESUPUESTOSIsNull write SetVALIDEZ_PRESUPUESTOSIsNull;
 
   public
     constructor Create(aDataTable: TDADataTable); override;
@@ -476,7 +490,7 @@ type
 
   { IEmpresasDatosBanco }
   IEmpresasDatosBanco = interface(IDAStronglyTypedDataTable)
-  ['{75E6F351-83DD-4C64-A708-CBED48F69C95}']
+  ['{392595DA-98CB-4179-BE5A-32F9667DCF5F}']
     { Property getters and setters }
     function GetIDValue: Integer;
     procedure SetIDValue(const aValue: Integer);
@@ -1321,6 +1335,27 @@ begin
     DataTable.Fields[idx_EmpresasID_PERFIL].AsVariant := Null;
 end;
 
+function TEmpresasDataTableRules.GetVALIDEZ_PRESUPUESTOSValue: SmallInt;
+begin
+  result := DataTable.Fields[idx_EmpresasVALIDEZ_PRESUPUESTOS].AsSmallInt;
+end;
+
+procedure TEmpresasDataTableRules.SetVALIDEZ_PRESUPUESTOSValue(const aValue: SmallInt);
+begin
+  DataTable.Fields[idx_EmpresasVALIDEZ_PRESUPUESTOS].AsSmallInt := aValue;
+end;
+
+function TEmpresasDataTableRules.GetVALIDEZ_PRESUPUESTOSIsNull: boolean;
+begin
+  result := DataTable.Fields[idx_EmpresasVALIDEZ_PRESUPUESTOS].IsNull;
+end;
+
+procedure TEmpresasDataTableRules.SetVALIDEZ_PRESUPUESTOSIsNull(const aValue: Boolean);
+begin
+  if aValue then
+    DataTable.Fields[idx_EmpresasVALIDEZ_PRESUPUESTOS].AsVariant := Null;
+end;
+
 
 { TEmpresasDatosBancoDataTableRules }
 constructor TEmpresasDatosBancoDataTableRules.Create(aDataTable: TDADataTable);

Source/ApplicationBase/Empresas/Model/schEmpresasServer_Intf.pas

@@ -9,13 +9,13 @@ const
   { Delta rules ids 
        Feel free to change them to something more human readable
        but make sure they are unique in the context of your application }
-  RID_EmpresasDelta = '{415F9B21-75FF-4944-BC51-36EE7893F213}';
+  RID_EmpresasDelta = '{D78C3F16-F8BB-4C07-BB77-B5B801803B96}';
-  RID_EmpresasDatosBancoDelta = '{89191BEE-980B-4F20-BC43-492662CF8779}';
+  RID_EmpresasDatosBancoDelta = '{C793A29B-3930-49F4-ABCD-2C5598D0D160}';
 
 type
   { IEmpresasDelta }
   IEmpresasDelta = interface(IEmpresas)
-  ['{415F9B21-75FF-4944-BC51-36EE7893F213}']
+  ['{D78C3F16-F8BB-4C07-BB77-B5B801803B96}']
     { Property getters and setters }
     function GetOldIDValue : Integer;
     function GetOldNIF_CIFValue : String;
@@ -45,6 +45,7 @@ type
     function GetOldID_FORMA_PAGOValue : SmallInt;
     function GetOldID_ALMACENValue : SmallInt;
     function GetOldID_PERFILValue : Integer;
+    function GetOldVALIDEZ_PRESUPUESTOSValue : SmallInt;
 
     { Properties }
     property OldID : Integer read GetOldIDValue;
@@ -75,6 +76,7 @@ type
     property OldID_FORMA_PAGO : SmallInt read GetOldID_FORMA_PAGOValue;
     property OldID_ALMACEN : SmallInt read GetOldID_ALMACENValue;
     property OldID_PERFIL : Integer read GetOldID_PERFILValue;
+    property OldVALIDEZ_PRESUPUESTOS : SmallInt read GetOldVALIDEZ_PRESUPUESTOSValue;
   end;
 
   { TEmpresasBusinessProcessorRules }
@@ -252,6 +254,12 @@ type
     function GetOldID_PERFILIsNull: Boolean; virtual;
     procedure SetID_PERFILValue(const aValue: Integer); virtual;
     procedure SetID_PERFILIsNull(const aValue: Boolean); virtual;
+    function GetVALIDEZ_PRESUPUESTOSValue: SmallInt; virtual;
+    function GetVALIDEZ_PRESUPUESTOSIsNull: Boolean; virtual;
+    function GetOldVALIDEZ_PRESUPUESTOSValue: SmallInt; virtual;
+    function GetOldVALIDEZ_PRESUPUESTOSIsNull: Boolean; virtual;
+    procedure SetVALIDEZ_PRESUPUESTOSValue(const aValue: SmallInt); virtual;
+    procedure SetVALIDEZ_PRESUPUESTOSIsNull(const aValue: Boolean); virtual;
 
     { Properties }
     property ID : Integer read GetIDValue write SetIDValue;
@@ -366,6 +374,10 @@ type
     property ID_PERFILIsNull : Boolean read GetID_PERFILIsNull write SetID_PERFILIsNull;
     property OldID_PERFIL : Integer read GetOldID_PERFILValue;
     property OldID_PERFILIsNull : Boolean read GetOldID_PERFILIsNull;
+    property VALIDEZ_PRESUPUESTOS : SmallInt read GetVALIDEZ_PRESUPUESTOSValue write SetVALIDEZ_PRESUPUESTOSValue;
+    property VALIDEZ_PRESUPUESTOSIsNull : Boolean read GetVALIDEZ_PRESUPUESTOSIsNull write SetVALIDEZ_PRESUPUESTOSIsNull;
+    property OldVALIDEZ_PRESUPUESTOS : SmallInt read GetOldVALIDEZ_PRESUPUESTOSValue;
+    property OldVALIDEZ_PRESUPUESTOSIsNull : Boolean read GetOldVALIDEZ_PRESUPUESTOSIsNull;
 
   public
     constructor Create(aBusinessProcessor: TDABusinessProcessor); override;
@@ -375,7 +387,7 @@ type
 
   { IEmpresasDatosBancoDelta }
   IEmpresasDatosBancoDelta = interface(IEmpresasDatosBanco)
-  ['{89191BEE-980B-4F20-BC43-492662CF8779}']
+  ['{C793A29B-3930-49F4-ABCD-2C5598D0D160}']
     { Property getters and setters }
     function GetOldIDValue : Integer;
     function GetOldID_EMPRESAValue : Integer;
@@ -1502,6 +1514,37 @@ begin
     BusinessProcessor.CurrentChange.NewValueByName[fld_EmpresasID_PERFIL] := Null;
 end;
 
+function TEmpresasBusinessProcessorRules.GetVALIDEZ_PRESUPUESTOSValue: SmallInt;
+begin
+  result := BusinessProcessor.CurrentChange.NewValueByName[fld_EmpresasVALIDEZ_PRESUPUESTOS];
+end;
+
+function TEmpresasBusinessProcessorRules.GetVALIDEZ_PRESUPUESTOSIsNull: Boolean;
+begin
+  result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_EmpresasVALIDEZ_PRESUPUESTOS]);
+end;
+
+function TEmpresasBusinessProcessorRules.GetOldVALIDEZ_PRESUPUESTOSValue: SmallInt;
+begin
+  result := BusinessProcessor.CurrentChange.OldValueByName[fld_EmpresasVALIDEZ_PRESUPUESTOS];
+end;
+
+function TEmpresasBusinessProcessorRules.GetOldVALIDEZ_PRESUPUESTOSIsNull: Boolean;
+begin
+  result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_EmpresasVALIDEZ_PRESUPUESTOS]);
+end;
+
+procedure TEmpresasBusinessProcessorRules.SetVALIDEZ_PRESUPUESTOSValue(const aValue: SmallInt);
+begin
+  BusinessProcessor.CurrentChange.NewValueByName[fld_EmpresasVALIDEZ_PRESUPUESTOS] := aValue;
+end;
+
+procedure TEmpresasBusinessProcessorRules.SetVALIDEZ_PRESUPUESTOSIsNull(const aValue: Boolean);
+begin
+  if aValue then
+    BusinessProcessor.CurrentChange.NewValueByName[fld_EmpresasVALIDEZ_PRESUPUESTOS] := Null;
+end;
+
 
 { TEmpresasDatosBancoBusinessProcessorRules }
 constructor TEmpresasDatosBancoBusinessProcessorRules.Create(aBusinessProcessor: TDABusinessProcessor);

Source/ApplicationBase/Empresas/Servidor/srvEmpresas_Impl.dfm

@@ -136,6 +136,10 @@ object srvEmpresas: TsrvEmpresas
               item
                 DatasetField = 'ID_PERFIL'
                 TableField = 'ID_PERFIL'
+              end
+              item
+                DatasetField = 'VALIDEZ_PRESUPUESTOS'
+                TableField = 'VALIDEZ_PRESUPUESTOS'
               end>
           end>
         Name = 'Empresas'
@@ -299,6 +303,10 @@ object srvEmpresas: TsrvEmpresas
           item
             Name = 'ID_PERFIL'
             DataType = datInteger
+          end
+          item
+            Name = 'VALIDEZ_PRESUPUESTOS'
+            DataType = datSmallInt
           end>
       end
       item
@@ -688,6 +696,11 @@ object srvEmpresas: TsrvEmpresas
             Name = 'ID_ALMACEN'
             DataType = datSmallInt
             Value = ''
+          end
+          item
+            Name = 'VALIDEZ_PRESUPUESTOS'
+            DataType = datSmallInt
+            Value = ''
           end>
         Statements = <
           item
@@ -700,13 +713,14 @@ object srvEmpresas: TsrvEmpresas
               'FONO_2, MOVIL_1, MOVIL_2, '#10'     FAX, EMAIL_1, EMAIL_2, PAGINA_WE' +
               'B, NOTAS, FECHA_ALTA, '#10'     FECHA_MODIFICACION, USUARIO, LOGOTIP' +
               'O, REGISTRO_MERCANTIL, '#10'     PARAM_TIEMPO, PARAM_MARGEN, ID_TIPO' +
-              '_IVA, ID_FORMA_PAGO, '#10'     ID_ALMACEN)'#10'  VALUES'#10'    (:ID, :NIF_C' +
+              '_IVA, ID_FORMA_PAGO, '#10'     ID_ALMACEN, VALIDEZ_PRESUPUESTOS)'#10'  V' +
-              'IF, :NOMBRE, :RAZON_SOCIAL, :CALLE, :POBLACION,'#10'     :PROVINCIA,' +
+              'ALUES'#10'    (:ID, :NIF_CIF, :NOMBRE, :RAZON_SOCIAL, :CALLE, :POBLA' +
-              ' :CODIGO_POSTAL, :TELEFONO_1, :TELEFONO_2, '#10'     :MOVIL_1, :MOVI' +
+              'CION,'#10'     :PROVINCIA, :CODIGO_POSTAL, :TELEFONO_1, :TELEFONO_2,' +
-              'L_2, :FAX, :EMAIL_1, :EMAIL_2, :PAGINA_WEB, '#10'     :NOTAS, :FECHA' +
+              ' '#10'     :MOVIL_1, :MOVIL_2, :FAX, :EMAIL_1, :EMAIL_2, :PAGINA_WEB' +
-              '_ALTA, :FECHA_MODIFICACION, :USUARIO, '#10'     :LOGOTIPO, :REGISTRO' +
+              ', '#10'     :NOTAS, :FECHA_ALTA, :FECHA_MODIFICACION, :USUARIO, '#10'   ' +
-              '_MERCANTIL, :PARAM_TIEMPO, :PARAM_MARGEN, '#10'     :ID_TIPO_IVA, :I' +
+              '  :LOGOTIPO, :REGISTRO_MERCANTIL, :PARAM_TIEMPO, :PARAM_MARGEN, ' +
-              'D_FORMA_PAGO, :ID_ALMACEN)'#10
+              #10'     :ID_TIPO_IVA, :ID_FORMA_PAGO, :ID_ALMACEN, :VALIDEZ_PRESUP' +
+              'UESTOS)'#10
             StatementType = stSQL
             ColumnMappings = <>
           end>
@@ -879,9 +893,13 @@ object srvEmpresas: TsrvEmpresas
             DataType = datSmallInt
             Value = ''
           end
+          item
+            Name = 'VALIDEZ_PRESUPUESTOS'
+            DataType = datSmallInt
+            Value = ''
+          end
           item
             Name = 'OLD_ID'
-            DataType = datAutoInc
             Value = ''
           end>
         Statements = <
@@ -902,7 +920,8 @@ object srvEmpresas: TsrvEmpresas
               'TIPO, '#10'    REGISTRO_MERCANTIL = :REGISTRO_MERCANTIL, '#10'    PARAM_' +
               'TIEMPO = :PARAM_TIEMPO, '#10'    PARAM_MARGEN = :PARAM_MARGEN, '#10'    ' +
               'ID_TIPO_IVA = :ID_TIPO_IVA, '#10'    ID_FORMA_PAGO = :ID_FORMA_PAGO,' +
-              ' '#10'    ID_ALMACEN = :ID_ALMACEN'#10'  WHERE'#10'    (ID = :OLD_ID)'
+              ' '#10'    ID_ALMACEN = :ID_ALMACEN,'#10'    VALIDEZ_PRESUPUESTOS = :VALI' +
+              'DEZ_PRESUPUESTOS'#10'  WHERE'#10'    (ID = :OLD_ID)'#10
             StatementType = stSQL
             ColumnMappings = <>
           end>
@@ -1232,9 +1251,9 @@ object srvEmpresas: TsrvEmpresas
     Top = 90
     DiagramData = 
       '<Diagrams>'#13#10'  <Diagram Name="New Diagram" Left="200" Top="200" W' +
-      'idth="400" Height="300">'#13#10'    <Entity Name="EmpresasDatosBanco" ' +
+      'idth="400" Height="300">'#13#10'    <Entity Name="Empresas" Left="0,00' +
-      'Left="308,00" Top="0,00" />'#13#10'    <Entity Name="Empresas" Left="0' +
+      '" Top="1,00" />'#13#10'    <Entity Name="EmpresasDatosBanco" Left="308' +
-      ',00" Top="1,00" />'#13#10'  </Diagram>'#13#10'</Diagrams>'#13#10
+      ',00" Top="0,00" />'#13#10'  </Diagram>'#13#10'</Diagrams>'#13#10
   end
   object DABin2DataStreamer: TDABin2DataStreamer
     Left = 48

Source/ApplicationBase/Empresas/Views/uViewEmpresa.dfm

@@ -34,8 +34,8 @@ inherited frViewEmpresa: TfrViewEmpresa
       PngOptions = [pngBlendOnDisabled, pngGrayscaleOnDisabled]
     end
     object eCalle: TcxDBTextEdit
-      Left = 162
+      Left = 169
-      Top = 304
+      Top = 331
       DataBinding.DataField = 'CALLE'
       DataBinding.DataSource = DADataSource
       Style.BorderColor = clWindowFrame
@@ -52,12 +52,12 @@ inherited frViewEmpresa: TfrViewEmpresa
       StyleHot.LookAndFeel.Kind = lfStandard
       StyleHot.LookAndFeel.NativeStyle = True
       StyleHot.LookAndFeel.SkinName = ''
-      TabOrder = 8
+      TabOrder = 9
       Width = 223
     end
     object eCodigoPostal: TcxDBTextEdit
-      Left = 312
+      Left = 319
-      Top = 331
+      Top = 358
       DataBinding.DataField = 'CODIGO_POSTAL'
       DataBinding.DataSource = DADataSource
       Style.BorderColor = clWindowFrame
@@ -74,11 +74,11 @@ inherited frViewEmpresa: TfrViewEmpresa
       StyleHot.LookAndFeel.Kind = lfStandard
       StyleHot.LookAndFeel.NativeStyle = True
       StyleHot.LookAndFeel.SkinName = ''
-      TabOrder = 10
+      TabOrder = 11
       Width = 73
     end
     object ePaginaWeb: TcxDBTextEdit
-      Left = 510
+      Left = 517
       Top = 220
       DataBinding.DataField = 'PAGINA_WEB'
       DataBinding.DataSource = DADataSource
@@ -96,13 +96,35 @@ inherited frViewEmpresa: TfrViewEmpresa
       StyleHot.LookAndFeel.Kind = lfStandard
       StyleHot.LookAndFeel.NativeStyle = True
       StyleHot.LookAndFeel.SkinName = ''
+      TabOrder = 20
+      Width = 247
+    end
+    object eMailParticular: TcxDBTextEdit
+      Left = 517
+      Top = 193
+      DataBinding.DataField = 'EMAIL_2'
+      DataBinding.DataSource = DADataSource
+      Style.BorderColor = clWindowFrame
+      Style.BorderStyle = ebs3D
+      Style.LookAndFeel.Kind = lfStandard
+      Style.LookAndFeel.NativeStyle = True
+      Style.LookAndFeel.SkinName = ''
+      StyleDisabled.LookAndFeel.Kind = lfStandard
+      StyleDisabled.LookAndFeel.NativeStyle = True
+      StyleDisabled.LookAndFeel.SkinName = ''
+      StyleFocused.LookAndFeel.Kind = lfStandard
+      StyleFocused.LookAndFeel.NativeStyle = True
+      StyleFocused.LookAndFeel.SkinName = ''
+      StyleHot.LookAndFeel.Kind = lfStandard
+      StyleHot.LookAndFeel.NativeStyle = True
+      StyleHot.LookAndFeel.SkinName = ''
       TabOrder = 19
       Width = 247
     end
-    object eMailParticular: TcxDBTextEdit
+    object eMailTrabajo: TcxDBTextEdit
-      Left = 510
+      Left = 517
-      Top = 193
+      Top = 166
-      DataBinding.DataField = 'EMAIL_2'
+      DataBinding.DataField = 'EMAIL_1'
       DataBinding.DataSource = DADataSource
       Style.BorderColor = clWindowFrame
       Style.BorderStyle = ebs3D
@@ -121,31 +143,9 @@ inherited frViewEmpresa: TfrViewEmpresa
       TabOrder = 18
       Width = 247
     end
-    object eMailTrabajo: TcxDBTextEdit
-      Left = 510
-      Top = 166
-      DataBinding.DataField = 'EMAIL_1'
-      DataBinding.DataSource = DADataSource
-      Style.BorderColor = clWindowFrame
-      Style.BorderStyle = ebs3D
-      Style.LookAndFeel.Kind = lfStandard
-      Style.LookAndFeel.NativeStyle = True
-      Style.LookAndFeel.SkinName = ''
-      StyleDisabled.LookAndFeel.Kind = lfStandard
-      StyleDisabled.LookAndFeel.NativeStyle = True
-      StyleDisabled.LookAndFeel.SkinName = ''
-      StyleFocused.LookAndFeel.Kind = lfStandard
-      StyleFocused.LookAndFeel.NativeStyle = True
-      StyleFocused.LookAndFeel.SkinName = ''
-      StyleHot.LookAndFeel.Kind = lfStandard
-      StyleHot.LookAndFeel.NativeStyle = True
-      StyleHot.LookAndFeel.SkinName = ''
-      TabOrder = 17
-      Width = 247
-    end
     object cxDBMemo1: TcxDBMemo
       Left = 22
-      Top = 415
+      Top = 442
       DataBinding.DataField = 'NOTAS'
       DataBinding.DataSource = DADataSource
       Style.BorderColor = clWindowFrame
@@ -162,12 +162,12 @@ inherited frViewEmpresa: TfrViewEmpresa
       StyleHot.LookAndFeel.Kind = lfStandard
       StyleHot.LookAndFeel.NativeStyle = True
       StyleHot.LookAndFeel.SkinName = ''
-      TabOrder = 12
+      TabOrder = 13
       Height = 75
       Width = 318
     end
     object eTlfParticular: TcxDBTextEdit
-      Left = 510
+      Left = 517
       Top = 55
       DataBinding.DataField = 'TELEFONO_2'
       DataBinding.DataSource = DADataSource
@@ -185,57 +185,35 @@ inherited frViewEmpresa: TfrViewEmpresa
       StyleHot.LookAndFeel.Kind = lfStandard
       StyleHot.LookAndFeel.NativeStyle = True
       StyleHot.LookAndFeel.SkinName = ''
-      TabOrder = 14
-      Width = 247
-    end
-    object eTlfTrabajo: TcxDBTextEdit
-      Left = 510
-      Top = 28
-      DataBinding.DataField = 'TELEFONO_1'
-      DataBinding.DataSource = DADataSource
-      Style.BorderColor = clWindowFrame
-      Style.BorderStyle = ebs3D
-      Style.LookAndFeel.Kind = lfStandard
-      Style.LookAndFeel.NativeStyle = True
-      Style.LookAndFeel.SkinName = ''
-      StyleDisabled.LookAndFeel.Kind = lfStandard
-      StyleDisabled.LookAndFeel.NativeStyle = True
-      StyleDisabled.LookAndFeel.SkinName = ''
-      StyleFocused.LookAndFeel.Kind = lfStandard
-      StyleFocused.LookAndFeel.NativeStyle = True
-      StyleFocused.LookAndFeel.SkinName = ''
-      StyleHot.LookAndFeel.Kind = lfStandard
-      StyleHot.LookAndFeel.NativeStyle = True
-      StyleHot.LookAndFeel.SkinName = ''
-      TabOrder = 13
-      Width = 247
-    end
-    object eTlfMovil: TcxDBTextEdit
-      Left = 510
-      Top = 82
-      DataBinding.DataField = 'MOVIL_1'
-      DataBinding.DataSource = DADataSource
-      Style.BorderColor = clWindowFrame
-      Style.BorderStyle = ebs3D
-      Style.LookAndFeel.Kind = lfStandard
-      Style.LookAndFeel.NativeStyle = True
-      Style.LookAndFeel.SkinName = ''
-      StyleDisabled.LookAndFeel.Kind = lfStandard
-      StyleDisabled.LookAndFeel.NativeStyle = True
-      StyleDisabled.LookAndFeel.SkinName = ''
-      StyleFocused.LookAndFeel.Kind = lfStandard
-      StyleFocused.LookAndFeel.NativeStyle = True
-      StyleFocused.LookAndFeel.SkinName = ''
-      StyleHot.LookAndFeel.Kind = lfStandard
-      StyleHot.LookAndFeel.NativeStyle = True
-      StyleHot.LookAndFeel.SkinName = ''
       TabOrder = 15
       Width = 247
     end
-    object eFax: TcxDBTextEdit
+    object eTlfTrabajo: TcxDBTextEdit
-      Left = 510
+      Left = 517
-      Top = 109
+      Top = 28
-      DataBinding.DataField = 'FAX'
+      DataBinding.DataField = 'TELEFONO_1'
+      DataBinding.DataSource = DADataSource
+      Style.BorderColor = clWindowFrame
+      Style.BorderStyle = ebs3D
+      Style.LookAndFeel.Kind = lfStandard
+      Style.LookAndFeel.NativeStyle = True
+      Style.LookAndFeel.SkinName = ''
+      StyleDisabled.LookAndFeel.Kind = lfStandard
+      StyleDisabled.LookAndFeel.NativeStyle = True
+      StyleDisabled.LookAndFeel.SkinName = ''
+      StyleFocused.LookAndFeel.Kind = lfStandard
+      StyleFocused.LookAndFeel.NativeStyle = True
+      StyleFocused.LookAndFeel.SkinName = ''
+      StyleHot.LookAndFeel.Kind = lfStandard
+      StyleHot.LookAndFeel.NativeStyle = True
+      StyleHot.LookAndFeel.SkinName = ''
+      TabOrder = 14
+      Width = 247
+    end
+    object eTlfMovil: TcxDBTextEdit
+      Left = 517
+      Top = 82
+      DataBinding.DataField = 'MOVIL_1'
       DataBinding.DataSource = DADataSource
       Style.BorderColor = clWindowFrame
       Style.BorderStyle = ebs3D
@@ -254,8 +232,30 @@ inherited frViewEmpresa: TfrViewEmpresa
       TabOrder = 16
       Width = 247
     end
+    object eFax: TcxDBTextEdit
+      Left = 517
+      Top = 109
+      DataBinding.DataField = 'FAX'
+      DataBinding.DataSource = DADataSource
+      Style.BorderColor = clWindowFrame
+      Style.BorderStyle = ebs3D
+      Style.LookAndFeel.Kind = lfStandard
+      Style.LookAndFeel.NativeStyle = True
+      Style.LookAndFeel.SkinName = ''
+      StyleDisabled.LookAndFeel.Kind = lfStandard
+      StyleDisabled.LookAndFeel.NativeStyle = True
+      StyleDisabled.LookAndFeel.SkinName = ''
+      StyleFocused.LookAndFeel.Kind = lfStandard
+      StyleFocused.LookAndFeel.NativeStyle = True
+      StyleFocused.LookAndFeel.SkinName = ''
+      StyleHot.LookAndFeel.Kind = lfStandard
+      StyleHot.LookAndFeel.NativeStyle = True
+      StyleHot.LookAndFeel.SkinName = ''
+      TabOrder = 17
+      Width = 247
+    end
     object eNombre: TcxDBTextEdit
-      Left = 162
+      Left = 169
       Top = 28
       DataBinding.DataField = 'NOMBRE'
       DataBinding.DataSource = DADataSource
@@ -278,7 +278,7 @@ inherited frViewEmpresa: TfrViewEmpresa
       Width = 223
     end
     object eNIFCIF: TcxDBTextEdit
-      Left = 162
+      Left = 169
       Top = 55
       DataBinding.DataField = 'NIF_CIF'
       DataBinding.DataSource = DADataSource
@@ -301,7 +301,7 @@ inherited frViewEmpresa: TfrViewEmpresa
       Width = 223
     end
     object memRegistroMercantil: TcxDBMemo
-      Left = 162
+      Left = 169
       Top = 82
       DataBinding.DataField = 'REGISTRO_MERCANTIL'
       DataBinding.DataSource = DADataSource
@@ -325,7 +325,7 @@ inherited frViewEmpresa: TfrViewEmpresa
       Width = 223
     end
     object cxDBImage1: TcxDBImage
-      Left = 415
+      Left = 422
       Top = 277
       DataBinding.DataField = 'LOGOTIPO'
       DataBinding.DataSource = DADataSource
@@ -341,13 +341,13 @@ inherited frViewEmpresa: TfrViewEmpresa
       StyleFocused.LookAndFeel.SkinName = ''
       StyleHot.LookAndFeel.NativeStyle = True
       StyleHot.LookAndFeel.SkinName = ''
-      TabOrder = 20
+      TabOrder = 21
       Height = 249
       Width = 313
     end
     object eParamMargen: TcxDBSpinEdit
-      Left = 162
+      Left = 169
-      Top = 247
+      Top = 274
       DataBinding.DataField = 'PARAM_MARGEN'
       DataBinding.DataSource = DADataSource
       Properties.OnValidate = eParamMargenPropertiesValidate
@@ -367,12 +367,12 @@ inherited frViewEmpresa: TfrViewEmpresa
       StyleHot.LookAndFeel.Kind = lfStandard
       StyleHot.LookAndFeel.NativeStyle = True
       StyleHot.LookAndFeel.SkinName = ''
-      TabOrder = 6
+      TabOrder = 7
       Width = 60
     end
     object eParamTiempo: TcxDBCurrencyEdit
-      Left = 285
+      Left = 292
-      Top = 247
+      Top = 274
       DataBinding.DataField = 'PARAM_TIEMPO'
       DataBinding.DataSource = DADataSource
       Properties.Alignment.Horz = taRightJustify
@@ -392,12 +392,12 @@ inherited frViewEmpresa: TfrViewEmpresa
       StyleHot.LookAndFeel.Kind = lfStandard
       StyleHot.LookAndFeel.NativeStyle = True
       StyleHot.LookAndFeel.SkinName = ''
-      TabOrder = 7
+      TabOrder = 8
       Width = 100
     end
     object cbProvincia: TcxDBComboBox
-      Left = 162
+      Left = 169
-      Top = 331
+      Top = 358
       DataBinding.DataField = 'PROVINCIA'
       DataBinding.DataSource = DADataSource
       Properties.ImmediatePost = True
@@ -421,12 +421,12 @@ inherited frViewEmpresa: TfrViewEmpresa
       StyleHot.LookAndFeel.Kind = lfStandard
       StyleHot.LookAndFeel.NativeStyle = True
       StyleHot.LookAndFeel.SkinName = ''
-      TabOrder = 9
+      TabOrder = 10
       Width = 80
     end
     object cbPoblacion: TcxDBComboBox
-      Left = 162
+      Left = 169
-      Top = 358
+      Top = 385
       DataBinding.DataField = 'POBLACION'
       DataBinding.DataSource = DADataSource
       Properties.ImmediatePost = True
@@ -450,11 +450,38 @@ inherited frViewEmpresa: TfrViewEmpresa
       StyleHot.LookAndFeel.Kind = lfStandard
       StyleHot.LookAndFeel.NativeStyle = True
       StyleHot.LookAndFeel.SkinName = ''
-      TabOrder = 11
+      TabOrder = 12
       Width = 223
     end
     object cbFormaPago: TcxComboBox
-      Left = 162
+      Left = 169
+      Top = 190
+      Anchors = [akLeft, akTop, akRight]
+      Properties.DropDownListStyle = lsEditFixedList
+      Properties.DropDownRows = 25
+      Properties.ImmediatePost = True
+      Style.BorderColor = clWindowFrame
+      Style.BorderStyle = ebs3D
+      Style.HotTrack = False
+      Style.LookAndFeel.Kind = lfStandard
+      Style.LookAndFeel.NativeStyle = True
+      Style.LookAndFeel.SkinName = ''
+      Style.ButtonStyle = bts3D
+      Style.PopupBorderStyle = epbsFrame3D
+      StyleDisabled.LookAndFeel.Kind = lfStandard
+      StyleDisabled.LookAndFeel.NativeStyle = True
+      StyleDisabled.LookAndFeel.SkinName = ''
+      StyleFocused.LookAndFeel.Kind = lfStandard
+      StyleFocused.LookAndFeel.NativeStyle = True
+      StyleFocused.LookAndFeel.SkinName = ''
+      StyleHot.LookAndFeel.Kind = lfStandard
+      StyleHot.LookAndFeel.NativeStyle = True
+      StyleHot.LookAndFeel.SkinName = ''
+      TabOrder = 5
+      Width = 202
+    end
+    object cbTipoIVA: TcxComboBox
+      Left = 169
       Top = 163
       Anchors = [akLeft, akTop, akRight]
       Properties.DropDownListStyle = lsEditFixedList
@@ -480,9 +507,9 @@ inherited frViewEmpresa: TfrViewEmpresa
       TabOrder = 4
       Width = 202
     end
-    object cbTipoIVA: TcxComboBox
+    object cbAlmacen: TcxComboBox
-      Left = 162
+      Left = 169
-      Top = 136
+      Top = 217
       Anchors = [akLeft, akTop, akRight]
       Properties.DropDownListStyle = lsEditFixedList
       Properties.DropDownRows = 25
@@ -504,35 +531,32 @@ inherited frViewEmpresa: TfrViewEmpresa
       StyleHot.LookAndFeel.Kind = lfStandard
       StyleHot.LookAndFeel.NativeStyle = True
       StyleHot.LookAndFeel.SkinName = ''
+      TabOrder = 6
+      Width = 223
+    end
+    object eValidez: TcxDBSpinEdit
+      Left = 169
+      Top = 136
+      DataBinding.DataField = 'VALIDEZ_PRESUPUESTOS'
+      DataBinding.DataSource = DADataSource
+      Style.BorderColor = clWindowFrame
+      Style.BorderStyle = ebs3D
+      Style.HotTrack = False
+      Style.LookAndFeel.Kind = lfStandard
+      Style.LookAndFeel.NativeStyle = True
+      Style.LookAndFeel.SkinName = ''
+      Style.ButtonStyle = bts3D
+      StyleDisabled.LookAndFeel.Kind = lfStandard
+      StyleDisabled.LookAndFeel.NativeStyle = True
+      StyleDisabled.LookAndFeel.SkinName = ''
+      StyleFocused.LookAndFeel.Kind = lfStandard
+      StyleFocused.LookAndFeel.NativeStyle = True
+      StyleFocused.LookAndFeel.SkinName = ''
+      StyleHot.LookAndFeel.Kind = lfStandard
+      StyleHot.LookAndFeel.NativeStyle = True
+      StyleHot.LookAndFeel.SkinName = ''
       TabOrder = 3
-      Width = 202
+      Width = 60
-    end
-    object cbAlmacen: TcxComboBox
-      Left = 162
-      Top = 190
-      Anchors = [akLeft, akTop, akRight]
-      Properties.DropDownListStyle = lsEditFixedList
-      Properties.DropDownRows = 25
-      Properties.ImmediatePost = True
-      Style.BorderColor = clWindowFrame
-      Style.BorderStyle = ebs3D
-      Style.HotTrack = False
-      Style.LookAndFeel.Kind = lfStandard
-      Style.LookAndFeel.NativeStyle = True
-      Style.LookAndFeel.SkinName = ''
-      Style.ButtonStyle = bts3D
-      Style.PopupBorderStyle = epbsFrame3D
-      StyleDisabled.LookAndFeel.Kind = lfStandard
-      StyleDisabled.LookAndFeel.NativeStyle = True
-      StyleDisabled.LookAndFeel.SkinName = ''
-      StyleFocused.LookAndFeel.Kind = lfStandard
-      StyleFocused.LookAndFeel.NativeStyle = True
-      StyleFocused.LookAndFeel.SkinName = ''
-      StyleHot.LookAndFeel.Kind = lfStandard
-      StyleHot.LookAndFeel.NativeStyle = True
-      StyleHot.LookAndFeel.SkinName = ''
-      TabOrder = 5
-      Width = 223
     end
     object dxLayoutControl1Group_Root: TdxLayoutGroup
       ShowCaption = False
@@ -565,6 +589,11 @@ inherited frViewEmpresa: TfrViewEmpresa
             Control = memRegistroMercantil
             ControlOptions.ShowBorder = False
           end
+          object dxLayoutControl1Item24: TdxLayoutItem
+            Caption = 'Validez presupuestos en dias:'
+            Control = eValidez
+            ControlOptions.ShowBorder = False
+          end
           object dxLayoutControl1Item16: TdxLayoutItem
             Caption = 'IVA por defecto:'
             Control = cbTipoIVA

Source/ApplicationBase/Empresas/Views/uViewEmpresa.pas

@@ -92,6 +92,8 @@ type
     cbTipoIVA: TcxComboBox;
     dxLayoutControl1Item23: TdxLayoutItem;
     cbAlmacen: TcxComboBox;
+    dxLayoutControl1Item24: TdxLayoutItem;
+    eValidez: TcxDBSpinEdit;
     procedure actAnadirExecute(Sender: TObject);
     procedure actEliminarExecute(Sender: TObject);
     procedure actEliminarUpdate(Sender: TObject);

Source/Modulos/Facturas proforma/Controller/uFacturasProformaController.pas

@@ -61,6 +61,7 @@ type
 
     function DarListaAnosFacturas: TStringList;
     procedure FiltrarAno(AFactura: IBizFacturaProforma; ADynWhereDataTable: WideString; const Ano: String);
+    function CambiarSituacion(AFactura : IBizFacturaProforma; Situacion: String; AllItems: Boolean = false): Boolean;    
   end;
 
   TFacturasProformaController = class(TControllerBase, IFacturasProformaController)
@@ -134,6 +135,8 @@ type
 
     function DarListaAnosFacturas: TStringList;
     procedure FiltrarAno(AFactura: IBizFacturaProforma; ADynWhereDataTable: WideString; const Ano: String);
+
+    function CambiarSituacion(AFactura : IBizFacturaProforma; Situacion: String; AllItems: Boolean = false): Boolean;    
   end;
 
 implementation
@@ -431,6 +434,56 @@ begin
   FiltrarEmpresa(Result);
 end;
 
+function TFacturasProformaController.CambiarSituacion(AFactura: IBizFacturaProforma; Situacion: String; AllItems: Boolean): Boolean;
+  // En el caso de cambiar almenos un elemento del conjunto se devuelve true
+begin
+  if not Assigned(AFactura) then
+    raise Exception.Create ('AFactura no asignado');
+
+  ShowHourglassCursor;
+  try
+    if not AFactura.DataTable.Active then
+       AFactura.DataTable.Active := True;
+
+    if (AFactura.State in dsEditModes) then
+      AFactura.Cancel;
+
+    //Siempre cambiaremos de situacion el seleccionado
+    if AFactura.SITUACION <> Situacion then
+    begin
+      AFactura.DataTable.Edit;
+      AFactura.SITUACION := Situacion;
+      AFactura.DataTable.Post;
+    end;
+
+    //En el caso de querer modificar todos los items del objeto
+    if AllItems then
+    begin
+       with AFactura.DataTable do
+       begin
+         First;
+         while not EOF do
+         begin
+           if AFactura.SITUACION <> Situacion then
+           begin
+             AFactura.DataTable.Edit;
+             AFactura.SITUACION := Situacion;
+             AFactura.DataTable.Post;
+           end;
+           Next;
+         end;
+       end;
+    end;
+
+    AFactura.DataTable.ApplyUpdates;
+    Result := True;
+
+  finally
+    HideHourglassCursor;
+  end;
+
+end;
+
 constructor TFacturasProformaController.Create;
 begin
   inherited;

Source/Modulos/Facturas proforma/Views/uEditorFacturasProforma.dfm

@@ -67,11 +67,15 @@ inherited fEditorFacturasProforma: TfEditorFacturasProforma
       Left = 427
       Visible = True
       ExplicitLeft = 427
-      ExplicitWidth = 117
+      ExplicitWidth = 76
       object TBXItem38: TTBXItem
         Action = actGenerarFactura
         DisplayMode = nbdmImageAndText
       end
+      object TBXItem39: TTBXItem
+        Action = actPagada
+        DisplayMode = nbdmImageAndText
+      end
     end
   end
   inherited StatusBar: TJvStatusBar
@@ -160,6 +164,9 @@ inherited fEditorFacturasProforma: TfEditorFacturasProforma
           end
         end
       end
+      inherited ActionList1: TActionList
+        Left = 272
+      end
     end
     inherited pnlAgrupaciones: TTBXDockablePanel
       Top = 519
@@ -190,8 +197,8 @@ inherited fEditorFacturasProforma: TfEditorFacturasProforma
     end
   end
   inherited EditorActionList: TActionList [4]
-    Left = 136
+    Left = 192
-    Top = 176
+    Top = 192
     inherited actNuevo: TAction
       ImageIndex = 22
     end
@@ -223,10 +230,19 @@ inherited fEditorFacturasProforma: TfEditorFacturasProforma
     object actGenerarFactura: TAction
       Category = 'Archivo'
       Caption = 'Generar factura'
+      Enabled = False
       ImageIndex = 25
+      Visible = False
       OnExecute = actGenerarFacturaExecute
       OnUpdate = actGenerarFacturaUpdate
     end
+    object actPagada: TAction
+      Category = 'Acciones'
+      Caption = 'Pagada'
+      ImageIndex = 25
+      OnExecute = actPagadaExecute
+      OnUpdate = actPagadaUpdate
+    end
   end
   inherited SmallImages: TPngImageList [5]
     PngImages = <

Source/Modulos/Facturas proforma/Views/uEditorFacturasProforma.pas

@@ -38,6 +38,8 @@ type
     frViewFacturasProforma1: TfrViewFacturasProforma;
     actGenerarFactura: TAction;
     TBXItem38: TTBXItem;
+    actPagada: TAction;
+    TBXItem39: TTBXItem;
     procedure FormShow(Sender: TObject);
     procedure actEliminarUpdate(Sender: TObject);
     procedure actNuevaFacturaExecute(Sender: TObject);
@@ -46,6 +48,8 @@ type
     procedure OnListaAnosChange(Sender: TObject; const Text: string);
     procedure actGenerarFacturaExecute(Sender: TObject);
     procedure actGenerarFacturaUpdate(Sender: TObject);
+    procedure actPagadaUpdate(Sender: TObject);
+    procedure actPagadaExecute(Sender: TObject);
 
   private
     FFacturas: IBizFacturaProforma;
@@ -152,6 +156,44 @@ begin
   actNuevo.Execute;
 end;
 
+procedure TfEditorFacturasProforma.actPagadaExecute(Sender: TObject);
+var
+  AFacturas: IBizFacturaProforma;
+  AllItems: Boolean;
+  AFecha: Variant;
+begin
+  AFacturas := Nil;
+  AllItems := False;
+
+  if MultiSelect and Assigned(ViewGrid) then
+     AllItems :=  (ViewGrid.NumSeleccionados > 1);
+
+  if AllItems then
+  begin
+    SeleccionarFilasDesdeGrid(ViewGrid._FocusedView, (Facturas as ISeleccionable).SelectedRecords);
+    AFacturas := (Controller as IFacturasProformaController).ExtraerSeleccionados(Facturas) as IBizFacturaProforma;
+  end
+  else begin
+    AFacturas := Facturas;
+  end;
+
+  ViewGrid._Grid.BeginUpdate;
+  if Assigned(AFacturas) then
+  begin
+    FController.CambiarSituacion(AFacturas, CTE_PAGADA, AllItems);
+    actRefrescar.Execute;
+  end;
+  ViewGrid._Grid.EndUpdate;
+end;
+
+procedure TfEditorFacturasProforma.actPagadaUpdate(Sender: TObject);
+begin
+  inherited;
+  (Sender as TAction).Enabled := HayDatos
+                                 and ViewGrid.esSeleccionCeldaDatos
+                                 and (FFacturas.SITUACION = CTE_PENDIENTE);
+end;
+
 constructor TfEditorFacturasProforma.Create(AOwner: TComponent);
 begin
   inherited;
@@ -325,6 +367,7 @@ var
 begin
   inherited;
 
+{
   Respuesta := JsNuevaFacturaDialog.Execute;
 
   if Respuesta <> IDCANCEL then
@@ -339,11 +382,14 @@ begin
                   actRefrescar.Execute;
       end;
       100    : begin   // Albaran nuevo vacio
+}
                   if FController.Anadir(Facturas) then
                     FController.Ver(Facturas);
+{
                 end;
     end;
   end;
+}  
 end;
 
 procedure TfEditorFacturasProforma.OnListaAnosChange(Sender: TObject; const Text: string);

Source/Modulos/Facturas proforma/Views/uViewFacturasProforma.dfm

@@ -185,7 +185,9 @@ inherited frViewFacturasProforma: TfrViewFacturasProforma
         DataBinding.FieldName = 'REFERENCIA_FACTURA_FINAL'
         PropertiesClassName = 'TcxTextEditProperties'
         Properties.Alignment.Horz = taRightJustify
+        Visible = False
         HeaderAlignmentHorz = taRightJustify
+        VisibleForCustomization = False
       end
     end
     inherited cxGridLevel: TcxGridLevel

Source/Modulos/Pedidos de cliente/Controller/uPedidosClienteController.pas

@@ -34,7 +34,8 @@ type
       const AHeaderText: String = '');
 	  procedure VerDireccionEntrega(APedido : IBizPedidoCliente);
 
-    procedure VerProcesoCompleto(APedidos: IBizPedidoCliente; AllItems: Boolean = True);
+    function VerProcesoCompleto(APresupuesto: Integer): Boolean; overload;
+    procedure VerProcesoCompleto(APedidos: IBizPedidoCliente; AllItems: Boolean = True); overload;
 
     function Nuevo : IBizPedidoCliente;
     procedure Anadir(APedido : IBizPedidoCliente);
@@ -123,6 +124,7 @@ type
     function BuscarTodos(const AID_Cliente: Integer): IBizPedidoCliente; overload;
     function BuscarPendientes : IBizPedidoCliente;
     function BuscarSituacion(Const ASituacion: String) : IBizPedidoCliente;
+    function BuscarPedidosDePresupuesto(const IdPresupuesto: Integer): IBizPedidoCliente;
 
     function BuscarPendientesPedir(const ID : Integer): IBizPedidoClienteArticulosPendientesPedirAProv;
     function BuscarPendientesPedirNoArticulos(const ID : Integer): IBizPedidoClienteArticulosPendientesPedirAProv;
@@ -137,7 +139,8 @@ type
 	  procedure VerDireccionEntrega(APedido : IBizPedidoCliente);
     function Duplicar(APedido: IBizPedidoCliente): IBizPedidoCliente;
 
-    procedure VerProcesoCompleto(APedidos: IBizPedidoCliente; AllItems: Boolean = True);
+    function VerProcesoCompleto(APresupuesto: Integer): Boolean; overload;
+    procedure VerProcesoCompleto(APedidos: IBizPedidoCliente; AllItems: Boolean = True); overload;
 
     procedure Preview(APedido : IBizPedidoCliente; AllItems: Boolean = False;
       const VerPrecios: Boolean = True; const VerRefProveedor: Boolean = True);
@@ -242,6 +245,30 @@ begin
   FiltrarEmpresa(Result);
 end;
 
+function TPedidosClienteController.BuscarPedidosDePresupuesto(const IdPresupuesto: Integer): IBizPedidoCliente;
+var
+  Condicion: TDAWhereExpression;
+begin
+  ShowHourglassCursor;
+  try
+    Result := BuscarTodos;
+
+    // Filtrar los pedidos pendientes de recepcion
+    with Result.DataTable.DynamicWhere do
+    begin
+      // (ID_PRESUPUESTO = IdPresupuesto)
+      Condicion := NewBinaryExpression(NewField('', fld_PedidosClienteID_PRESUPUESTO), NewConstant(IdPresupuesto, datInteger), dboEqual);
+
+      if IsEmpty then
+         Expression := Condicion
+      else
+         Expression := NewBinaryExpression(Expression, Condicion, dboAnd);
+    end;
+  finally
+    HideHourglassCursor;
+  end;
+end;
+
 function TPedidosClienteController.BuscarPendientes: IBizPedidoCliente;
 var
   Condicion: TDAWhereExpression;
@@ -622,11 +649,30 @@ begin
     end;
 end;
 
+function TPedidosClienteController.VerProcesoCompleto(APresupuesto: Integer): Boolean;
+var
+  APedidos: IBizPedidoCliente;
+begin
+  Result := True;
+  APedidos := BuscarPedidosDePresupuesto(APresupuesto);
+
+  if not Assigned(APedidos) then
+    raise Exception.Create ('Pedidos no asignado (VerProcesoCompleto)');
+
+  if not APedidos.DataTable.Active then
+    APedidos.DataTable.Active := True;
+
+  if (APedidos.DataTable.RecordCount > 0) then
+      VerProcesoCompleto(APedidos, True)
+  else
+      Result := False;
+end;
+
 procedure TPedidosClienteController.VerProcesoCompleto(APedidos: IBizPedidoCliente; AllItems: Boolean = True);
 var
   AModule : TModuleController;
   APlugin : IMCProcesoPresupuestosCliente;
-  ListaIDPedidosCliente: TIntegerArray;  
+  ListaIDPedidosCliente: TIntegerArray;
 begin
   if not Assigned(APedidos) then
     raise Exception.Create ('Pedidos no asignado (VerProcesoCompleto)');

Source/Modulos/Pedidos de cliente/PedidosCliente_Group.groupproj

@@ -31,6 +31,7 @@
     <Projects Include="..\Pedidos a proveedor\Data\PedidosProveedor_data.dproj" />
     <Projects Include="..\Pedidos a proveedor\Model\PedidosProveedor_model.dproj" />
     <Projects Include="..\Pedidos a proveedor\Plugin\PedidosProveedor_plugin.dproj" />
+    <Projects Include="..\Presupuestos de cliente\Controller\PresupuestosCliente_controller.dproj" />
     <Projects Include="..\Presupuestos de cliente\Views\PresupuestosCliente_view.dproj" />
     <Projects Include="..\ProcesoPresupuestoCliente\Controller\ProcesoPresupuestosCliente_controller.dproj" />
     <Projects Include="..\ProcesoPresupuestoCliente\Plugin\ProcesoPresupuestosCliente_plugin.dproj" />
@@ -402,6 +403,15 @@
   <Target Name="FacturasProforma_data:Make">
     <MSBuild Projects="..\Facturas proforma\Data\FacturasProforma_data.dproj" Targets="Make" />
   </Target>
+  <Target Name="PresupuestosCliente_controller">
+    <MSBuild Projects="..\Presupuestos de cliente\Controller\PresupuestosCliente_controller.dproj" Targets="" />
+  </Target>
+  <Target Name="PresupuestosCliente_controller:Clean">
+    <MSBuild Projects="..\Presupuestos de cliente\Controller\PresupuestosCliente_controller.dproj" Targets="Clean" />
+  </Target>
+  <Target Name="PresupuestosCliente_controller:Make">
+    <MSBuild Projects="..\Presupuestos de cliente\Controller\PresupuestosCliente_controller.dproj" Targets="Make" />
+  </Target>
   <Target Name="PresupuestosCliente_view">
     <MSBuild Projects="..\Presupuestos de cliente\Views\PresupuestosCliente_view.dproj" Targets="" />
   </Target>
@@ -412,13 +422,13 @@
     <MSBuild Projects="..\Presupuestos de cliente\Views\PresupuestosCliente_view.dproj" Targets="Make" />
   </Target>
   <Target Name="Build">
-    <CallTarget Targets="Base;ApplicationBase;GUIBase;Contactos_model;Contactos_data;Contactos_controller;Contactos_view;Articulos_model;Articulos_data;Articulos_controller;Articulos_view;PedidosCliente_model;PedidosCliente_data;PedidosCliente_controller;AlbaranesProveedor_controller;Inventario_controller;PedProv_AlbProv_relation;PedCli_AlbCli_relation;PedCli_PedProv_relation;FacturasProveedor_controller;PedidosCliente_view;PedidosCliente_plugin;AlbaranesProveedor_data;AlbaranesCliente_data;FactuGES;FactuGES_Server;Inventario_data;Inventario_view;AlbaranesProveedor_view;FacturasCliente_view;PedidosProveedor_model;PedidosProveedor_data;PedidosProveedor_controller;PedidosProveedor_plugin;ProcesoPresupuestosCliente_controller;ProcesoPresupuestosCliente_view;ProcesoPresupuestosCliente_plugin;PedCli_FacProforma_relation;FacturasProforma_data;PresupuestosCliente_view" />
+    <CallTarget Targets="Base;ApplicationBase;GUIBase;Contactos_model;Contactos_data;Contactos_controller;Contactos_view;Articulos_model;Articulos_data;Articulos_controller;Articulos_view;PedidosCliente_model;PedidosCliente_data;PedidosCliente_controller;AlbaranesProveedor_controller;Inventario_controller;PedProv_AlbProv_relation;PedCli_AlbCli_relation;PedCli_PedProv_relation;FacturasProveedor_controller;PedidosCliente_view;PedidosCliente_plugin;AlbaranesProveedor_data;AlbaranesCliente_data;FactuGES;FactuGES_Server;Inventario_data;Inventario_view;AlbaranesProveedor_view;FacturasCliente_view;PedidosProveedor_model;PedidosProveedor_data;PedidosProveedor_controller;PedidosProveedor_plugin;ProcesoPresupuestosCliente_controller;ProcesoPresupuestosCliente_view;ProcesoPresupuestosCliente_plugin;PedCli_FacProforma_relation;FacturasProforma_data;PresupuestosCliente_controller;PresupuestosCliente_view" />
   </Target>
   <Target Name="Clean">
-    <CallTarget Targets="Base:Clean;ApplicationBase:Clean;GUIBase:Clean;Contactos_model:Clean;Contactos_data:Clean;Contactos_controller:Clean;Contactos_view:Clean;Articulos_model:Clean;Articulos_data:Clean;Articulos_controller:Clean;Articulos_view:Clean;PedidosCliente_model:Clean;PedidosCliente_data:Clean;PedidosCliente_controller:Clean;AlbaranesProveedor_controller:Clean;Inventario_controller:Clean;PedProv_AlbProv_relation:Clean;PedCli_AlbCli_relation:Clean;PedCli_PedProv_relation:Clean;FacturasProveedor_controller:Clean;PedidosCliente_view:Clean;PedidosCliente_plugin:Clean;AlbaranesProveedor_data:Clean;AlbaranesCliente_data:Clean;FactuGES:Clean;FactuGES_Server:Clean;Inventario_data:Clean;Inventario_view:Clean;AlbaranesProveedor_view:Clean;FacturasCliente_view:Clean;PedidosProveedor_model:Clean;PedidosProveedor_data:Clean;PedidosProveedor_controller:Clean;PedidosProveedor_plugin:Clean;ProcesoPresupuestosCliente_controller:Clean;ProcesoPresupuestosCliente_view:Clean;ProcesoPresupuestosCliente_plugin:Clean;PedCli_FacProforma_relation:Clean;FacturasProforma_data:Clean;PresupuestosCliente_view:Clean" />
+    <CallTarget Targets="Base:Clean;ApplicationBase:Clean;GUIBase:Clean;Contactos_model:Clean;Contactos_data:Clean;Contactos_controller:Clean;Contactos_view:Clean;Articulos_model:Clean;Articulos_data:Clean;Articulos_controller:Clean;Articulos_view:Clean;PedidosCliente_model:Clean;PedidosCliente_data:Clean;PedidosCliente_controller:Clean;AlbaranesProveedor_controller:Clean;Inventario_controller:Clean;PedProv_AlbProv_relation:Clean;PedCli_AlbCli_relation:Clean;PedCli_PedProv_relation:Clean;FacturasProveedor_controller:Clean;PedidosCliente_view:Clean;PedidosCliente_plugin:Clean;AlbaranesProveedor_data:Clean;AlbaranesCliente_data:Clean;FactuGES:Clean;FactuGES_Server:Clean;Inventario_data:Clean;Inventario_view:Clean;AlbaranesProveedor_view:Clean;FacturasCliente_view:Clean;PedidosProveedor_model:Clean;PedidosProveedor_data:Clean;PedidosProveedor_controller:Clean;PedidosProveedor_plugin:Clean;ProcesoPresupuestosCliente_controller:Clean;ProcesoPresupuestosCliente_view:Clean;ProcesoPresupuestosCliente_plugin:Clean;PedCli_FacProforma_relation:Clean;FacturasProforma_data:Clean;PresupuestosCliente_controller:Clean;PresupuestosCliente_view:Clean" />
   </Target>
   <Target Name="Make">
-    <CallTarget Targets="Base:Make;ApplicationBase:Make;GUIBase:Make;Contactos_model:Make;Contactos_data:Make;Contactos_controller:Make;Contactos_view:Make;Articulos_model:Make;Articulos_data:Make;Articulos_controller:Make;Articulos_view:Make;PedidosCliente_model:Make;PedidosCliente_data:Make;PedidosCliente_controller:Make;AlbaranesProveedor_controller:Make;Inventario_controller:Make;PedProv_AlbProv_relation:Make;PedCli_AlbCli_relation:Make;PedCli_PedProv_relation:Make;FacturasProveedor_controller:Make;PedidosCliente_view:Make;PedidosCliente_plugin:Make;AlbaranesProveedor_data:Make;AlbaranesCliente_data:Make;FactuGES:Make;FactuGES_Server:Make;Inventario_data:Make;Inventario_view:Make;AlbaranesProveedor_view:Make;FacturasCliente_view:Make;PedidosProveedor_model:Make;PedidosProveedor_data:Make;PedidosProveedor_controller:Make;PedidosProveedor_plugin:Make;ProcesoPresupuestosCliente_controller:Make;ProcesoPresupuestosCliente_view:Make;ProcesoPresupuestosCliente_plugin:Make;PedCli_FacProforma_relation:Make;FacturasProforma_data:Make;PresupuestosCliente_view:Make" />
+    <CallTarget Targets="Base:Make;ApplicationBase:Make;GUIBase:Make;Contactos_model:Make;Contactos_data:Make;Contactos_controller:Make;Contactos_view:Make;Articulos_model:Make;Articulos_data:Make;Articulos_controller:Make;Articulos_view:Make;PedidosCliente_model:Make;PedidosCliente_data:Make;PedidosCliente_controller:Make;AlbaranesProveedor_controller:Make;Inventario_controller:Make;PedProv_AlbProv_relation:Make;PedCli_AlbCli_relation:Make;PedCli_PedProv_relation:Make;FacturasProveedor_controller:Make;PedidosCliente_view:Make;PedidosCliente_plugin:Make;AlbaranesProveedor_data:Make;AlbaranesCliente_data:Make;FactuGES:Make;FactuGES_Server:Make;Inventario_data:Make;Inventario_view:Make;AlbaranesProveedor_view:Make;FacturasCliente_view:Make;PedidosProveedor_model:Make;PedidosProveedor_data:Make;PedidosProveedor_controller:Make;PedidosProveedor_plugin:Make;ProcesoPresupuestosCliente_controller:Make;ProcesoPresupuestosCliente_view:Make;ProcesoPresupuestosCliente_plugin:Make;PedCli_FacProforma_relation:Make;FacturasProforma_data:Make;PresupuestosCliente_controller:Make;PresupuestosCliente_view:Make" />
   </Target>
   <Import Condition="Exists('$(MSBuildBinPath)\Borland.Group.Targets')" Project="$(MSBuildBinPath)\Borland.Group.Targets" />
 </Project>

Source/Modulos/Presupuestos de cliente/Controller/uPresupuestosClienteController.pas

@@ -154,6 +154,7 @@ type
 
     procedure BorrarBonificacion(APresupuesto : IBizPresupuestoCliente);
 
+
     function DarListaAnosPresupuestos: TStringList;
     procedure FiltrarAno(APresupuesto: IBizPresupuestoCliente; ADynWhereDataTable: WideString; const Ano: String);
   end;
@@ -568,7 +569,7 @@ begin
             AEditor := NIL;
           end;
        end;
-}    
+}
 end;
 
 procedure TPresupuestosClienteController.VerTodos(APresupuestos: IBizPresupuestoCliente;

Source/Modulos/Presupuestos de cliente/Model/uBizPresupuestosCliente.pas

@@ -244,10 +244,12 @@ begin
   ID_TIPO_IVA := AppFactuGES.EmpresaActiva.ID_TIPO_IVA;
     
   FECHA_PRESUPUESTO := DateOf(Date);
+  FECHA_VIGENCIA := IncDay(Date, AppFactuGES.EmpresaActiva.VALIDEZ_PRESUPUESTOS);
   INCIDENCIAS_ACTIVAS := 0;
 //  INCIDENCIAS := NIL;
   REFERENCIA := '';
   SITUACION := SITUACION_PRESUPUESTO_PENDIENTE;
+
 end;
 
 procedure TBizPresupuestoCliente.IVAOnChange(Sender: TDACustomField);

Source/Modulos/Presupuestos de cliente/PresupuestosCliente_Group.groupproj

@@ -20,6 +20,7 @@
     <Projects Include="..\Facturas de cliente\Model\FacturasCliente_model.dproj" />
     <Projects Include="..\Facturas de cliente\Views\FacturasCliente_view.dproj" />
     <Projects Include="..\Facturas proforma\Plugin\FacturasProforma_plugin.dproj" />
+    <Projects Include="..\Facturas proforma\Views\FacturasProforma_view.dproj" />
     <Projects Include="..\Gestion de documentos\Controller\GestorDocumentos_controller.dproj" />
     <Projects Include="..\Gestion de documentos\Data\GestorDocumentos_data.dproj" />
     <Projects Include="..\Gestor de informes\Views\GestorInformes_view.dproj" />
@@ -291,14 +292,23 @@
   <Target Name="FacturasCliente_model:Make">
     <MSBuild Projects="..\Facturas de cliente\Model\FacturasCliente_model.dproj" Targets="Make" />
   </Target>
+  <Target Name="FacturasProforma_view">
+    <MSBuild Projects="..\Facturas proforma\Views\FacturasProforma_view.dproj" Targets="" />
+  </Target>
+  <Target Name="FacturasProforma_view:Clean">
+    <MSBuild Projects="..\Facturas proforma\Views\FacturasProforma_view.dproj" Targets="Clean" />
+  </Target>
+  <Target Name="FacturasProforma_view:Make">
+    <MSBuild Projects="..\Facturas proforma\Views\FacturasProforma_view.dproj" Targets="Make" />
+  </Target>
   <Target Name="Build">
-    <CallTarget Targets="Base;GUIBase;ApplicationBase;Contactos_model;Contactos_data;Contactos_controller;Contactos_view;Articulos_data;Articulos_controller;Articulos_view;PresupuestosCliente_model;PresupuestosCliente_data;GestorDocumentos_data;GestorDocumentos_controller;PresupuestosCliente_controller;PreCli_FacPro_relation;PreCli_PedCli_relation;PresupuestosCliente_view;PresupuestosCliente_plugin;FactuGES;FactuGES_Server;FacturasCliente_view;GestorInformes_view;PedidosProveedor_view;Articulos_model;FacturasProforma_plugin;PedidosCliente_view;FacturasCliente_model" />
+    <CallTarget Targets="Base;GUIBase;ApplicationBase;Contactos_model;Contactos_data;Contactos_controller;Contactos_view;Articulos_data;Articulos_controller;Articulos_view;PresupuestosCliente_model;PresupuestosCliente_data;GestorDocumentos_data;GestorDocumentos_controller;PresupuestosCliente_controller;PreCli_FacPro_relation;PreCli_PedCli_relation;PresupuestosCliente_view;PresupuestosCliente_plugin;FactuGES;FactuGES_Server;FacturasCliente_view;GestorInformes_view;PedidosProveedor_view;Articulos_model;FacturasProforma_plugin;PedidosCliente_view;FacturasCliente_model;FacturasProforma_view" />
   </Target>
   <Target Name="Clean">
-    <CallTarget Targets="Base:Clean;GUIBase:Clean;ApplicationBase:Clean;Contactos_model:Clean;Contactos_data:Clean;Contactos_controller:Clean;Contactos_view:Clean;Articulos_data:Clean;Articulos_controller:Clean;Articulos_view:Clean;PresupuestosCliente_model:Clean;PresupuestosCliente_data:Clean;GestorDocumentos_data:Clean;GestorDocumentos_controller:Clean;PresupuestosCliente_controller:Clean;PreCli_FacPro_relation:Clean;PreCli_PedCli_relation:Clean;PresupuestosCliente_view:Clean;PresupuestosCliente_plugin:Clean;FactuGES:Clean;FactuGES_Server:Clean;FacturasCliente_view:Clean;GestorInformes_view:Clean;PedidosProveedor_view:Clean;Articulos_model:Clean;FacturasProforma_plugin:Clean;PedidosCliente_view:Clean;FacturasCliente_model:Clean" />
+    <CallTarget Targets="Base:Clean;GUIBase:Clean;ApplicationBase:Clean;Contactos_model:Clean;Contactos_data:Clean;Contactos_controller:Clean;Contactos_view:Clean;Articulos_data:Clean;Articulos_controller:Clean;Articulos_view:Clean;PresupuestosCliente_model:Clean;PresupuestosCliente_data:Clean;GestorDocumentos_data:Clean;GestorDocumentos_controller:Clean;PresupuestosCliente_controller:Clean;PreCli_FacPro_relation:Clean;PreCli_PedCli_relation:Clean;PresupuestosCliente_view:Clean;PresupuestosCliente_plugin:Clean;FactuGES:Clean;FactuGES_Server:Clean;FacturasCliente_view:Clean;GestorInformes_view:Clean;PedidosProveedor_view:Clean;Articulos_model:Clean;FacturasProforma_plugin:Clean;PedidosCliente_view:Clean;FacturasCliente_model:Clean;FacturasProforma_view:Clean" />
   </Target>
   <Target Name="Make">
-    <CallTarget Targets="Base:Make;GUIBase:Make;ApplicationBase:Make;Contactos_model:Make;Contactos_data:Make;Contactos_controller:Make;Contactos_view:Make;Articulos_data:Make;Articulos_controller:Make;Articulos_view:Make;PresupuestosCliente_model:Make;PresupuestosCliente_data:Make;GestorDocumentos_data:Make;GestorDocumentos_controller:Make;PresupuestosCliente_controller:Make;PreCli_FacPro_relation:Make;PreCli_PedCli_relation:Make;PresupuestosCliente_view:Make;PresupuestosCliente_plugin:Make;FactuGES:Make;FactuGES_Server:Make;FacturasCliente_view:Make;GestorInformes_view:Make;PedidosProveedor_view:Make;Articulos_model:Make;FacturasProforma_plugin:Make;PedidosCliente_view:Make;FacturasCliente_model:Make" />
+    <CallTarget Targets="Base:Make;GUIBase:Make;ApplicationBase:Make;Contactos_model:Make;Contactos_data:Make;Contactos_controller:Make;Contactos_view:Make;Articulos_data:Make;Articulos_controller:Make;Articulos_view:Make;PresupuestosCliente_model:Make;PresupuestosCliente_data:Make;GestorDocumentos_data:Make;GestorDocumentos_controller:Make;PresupuestosCliente_controller:Make;PreCli_FacPro_relation:Make;PreCli_PedCli_relation:Make;PresupuestosCliente_view:Make;PresupuestosCliente_plugin:Make;FactuGES:Make;FactuGES_Server:Make;FacturasCliente_view:Make;GestorInformes_view:Make;PedidosProveedor_view:Make;Articulos_model:Make;FacturasProforma_plugin:Make;PedidosCliente_view:Make;FacturasCliente_model:Make;FacturasProforma_view:Make" />
   </Target>
   <Import Condition="Exists('$(MSBuildBinPath)\Borland.Group.Targets')" Project="$(MSBuildBinPath)\Borland.Group.Targets" />
 </Project>

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

@@ -208,14 +208,15 @@ object RptPresupuestosCliente: TRptPresupuestosCliente
             Name = 'IBX'
             SQL = 
               'SELECT DET.ID, DET.ID_PRESUPUESTO,'#10'       DET.POSICION, DET.TIPO' +
-              '_DETALLE,'#10'       ARTICULOS.REFERENCIA, DET.CONCEPTO, DET.CANTIDA' +
+              '_DETALLE,'#10'       ARTICULOS.REFERENCIA, F_RTFTOTEXT(DET.CONCEPTO)' +
-              'D, DET.IMPORTE_UNIDAD,'#10'       DET.DESCUENTO, DET.IMPORTE_UNIDAD ' +
+              ' as CONCEPTO, DET.CANTIDAD, DET.IMPORTE_UNIDAD,'#10'       DET.DESCU' +
-              '- (DET.IMPORTE_UNIDAD * (COALESCE(DET.DESCUENTO,0) / 100)) as IM' +
+              'ENTO, DET.IMPORTE_UNIDAD - (DET.IMPORTE_UNIDAD * (COALESCE(DET.D' +
-              'PORTE_NETO, DET.IMPORTE_TOTAL,'#10'       ARTICULOS.REFERENCIA_PROV ' +
+              'ESCUENTO,0) / 100)) as IMPORTE_NETO, DET.IMPORTE_TOTAL,'#10'       A' +
-              'as REFERENCIA_PROVEEDOR, DET.VISIBLE'#10'FROM PRESUPUESTOS_CLIENTE_D' +
+              'RTICULOS.REFERENCIA_PROV as REFERENCIA_PROVEEDOR, DET.VISIBLE'#10'FR' +
-              'ETALLES DET'#10'LEFT OUTER JOIN ARTICULOS ON (DET.ID_ARTICULO = ARTI' +
+              'OM PRESUPUESTOS_CLIENTE_DETALLES DET'#10'LEFT OUTER JOIN ARTICULOS O' +
-              'CULOS.ID)'#10#10'WHERE DET.ID_PRESUPUESTO = :ID_PRESUPUESTO AND {Where' +
+              'N (DET.ID_ARTICULO = ARTICULOS.ID)'#10#10'WHERE DET.ID_PRESUPUESTO = :' +
-              '}'#10'ORDER BY DET.ID_PRESUPUESTO, DET.POSICION;'#10#10#10
+              'ID_PRESUPUESTO AND {Where}'#10'ORDER BY DET.ID_PRESUPUESTO, DET.POSI' +
+              'CION;'#10#10#10
             StatementType = stSQL
             ColumnMappings = <
               item
@@ -298,7 +299,7 @@ object RptPresupuestosCliente: TRptPresupuestosCliente
           item
             Name = 'CONCEPTO'
             DataType = datString
-            Size = 2000
+            Size = 32765
           end
           item
             Name = 'CANTIDAD'

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

@@ -73,9 +73,9 @@ type
     frxDBInformeListadoPresupuestosResumen: TfrxDBDataset;
     DADSInformeListadoPresupuestosResumen: TDADataSource;
     tbl_InformeListadoPresupuestosResumen: TDAMemDataTable;
+    tbl_Detalles: TDAMemDataTable;
     schReport: TDASchema;
     DataDictionary: TDADataDictionary;
-    tbl_Detalles: TDAMemDataTable;
     procedure DataModuleCreate(Sender: TObject);
     procedure DataModuleDestroy(Sender: TObject);
     function frxReportUserFunction(const MethodName: string;

Source/Modulos/Presupuestos de cliente/Views/uEditorPresupuestosCliente.dfm

@@ -167,7 +167,7 @@ inherited fEditorPresupuestosCliente: TfEditorPresupuestosCliente
       DockPos = 343
       Visible = True
       ExplicitLeft = 427
-      ExplicitWidth = 378
+      ExplicitWidth = 373
       object TBXItem43: TTBXItem
         Action = actAceptar
         DisplayMode = nbdmImageAndText
@@ -189,6 +189,10 @@ inherited fEditorPresupuestosCliente: TfEditorPresupuestosCliente
       object TBXItem46: TTBXItem
         Action = actInformes
       end
+      object TBXItem48: TTBXItem
+        Action = actVerProcesoCompleto
+        DisplayMode = nbdmImageAndText
+      end
     end
   end
   inherited StatusBar: TJvStatusBar
@@ -208,13 +212,17 @@ inherited fEditorPresupuestosCliente: TfEditorPresupuestosCliente
     object actGenerarAlbaranCli: TAction
       Category = 'Acciones'
       Caption = 'Generar albar'#225'n de cliente'
+      Enabled = False
       ImageIndex = 23
+      Visible = False
       OnExecute = actGenerarAlbaranCliExecute
     end
     object actGenerarFacturaProforma: TAction
       Category = 'Acciones'
       Caption = 'Generar factura proforma'
+      Enabled = False
       ImageIndex = 24
+      Visible = False
       OnExecute = actGenerarFacturaProformaExecute
       OnUpdate = actGenerarFacturaProformaUpdate
     end
@@ -262,6 +270,13 @@ inherited fEditorPresupuestosCliente: TfEditorPresupuestosCliente
       OnExecute = actGenerarPedidoExecute
       OnUpdate = actGenerarPedidoUpdate
     end
+    object actVerProcesoCompleto: TAction
+      Category = 'Acciones'
+      Caption = 'Ver proceso completo'
+      ImageIndex = 2
+      OnExecute = actVerProcesoCompletoExecute
+      OnUpdate = actVerProcesoCompletoUpdate
+    end
   end
   inherited SmallImages: TPngImageList
     PngImages = <

Source/Modulos/Presupuestos de cliente/Views/uEditorPresupuestosCliente.pas

@@ -47,6 +47,8 @@ type
     JSInformesDialog: TJSDialog;
     TBXItem47: TTBXItem;
     actGenerarPedido: TAction;
+    actVerProcesoCompleto: TAction;
+    TBXItem48: TTBXItem;
     procedure FormShow(Sender: TObject);
     procedure actGenerarAlbaranCliExecute(Sender: TObject);
     procedure actEliminarUpdate(Sender: TObject);
@@ -66,6 +68,8 @@ type
     procedure OnListaAnosChange(Sender: TObject; const Text: string);
     procedure actGenerarPedidoExecute(Sender: TObject);
     procedure actGenerarPedidoUpdate(Sender: TObject);
+    procedure actVerProcesoCompletoUpdate(Sender: TObject);
+    procedure actVerProcesoCompletoExecute(Sender: TObject);
 
   protected
     FPresupuestos: IBizPresupuestoCliente;
@@ -391,6 +395,24 @@ begin
   end;
 end;
 
+procedure TfEditorPresupuestosCliente.actVerProcesoCompletoExecute(
+  Sender: TObject);
+begin
+  inherited;
+  if not VerProcesoCompletoDeLosPedidosDelPresupuesto(FPresupuestos.ID) then
+     showmessage('El presupuesto no tiene pedidos relacionados, por lo que no se puede consultar el listado de documentos relacionados en el proceso del pedido del cliente');
+end;
+
+procedure TfEditorPresupuestosCliente.actVerProcesoCompletoUpdate(
+  Sender: TObject);
+begin
+  inherited;
+  (Sender as TAction).Enabled := HayDatos
+                                 and not (ViewGrid.NumSeleccionados > 1)
+                                 and ViewGrid.esSeleccionCeldaDatos
+                                 and (FPresupuestos.SITUACION = SITUACION_PRESUPUESTO_ACEPTADO);
+end;
+
 procedure TfEditorPresupuestosCliente.AsignarVista;
 begin
   ViewGrid := CreateView(TfrViewPresupuestosCliente) as IViewPresupuestosCliente;

Source/Modulos/Presupuestos de cliente/Views/uViewPresupuestosCliente.dfm

@@ -136,7 +136,9 @@ inherited frViewPresupuestosCliente: TfrViewPresupuestosCliente
       object cxGridViewFACTURA_PROFORMA: TcxGridDBColumn
         Caption = 'Ref. factura proforma'
         DataBinding.FieldName = 'FACTURA_PROFORMA'
+        Visible = False
         BestFitMaxWidth = 25
+        VisibleForCustomization = False
         Width = 25
       end
     end

Source/Modulos/ProcesoPresupuestoCliente/Views/uEditorProcesoPresupuestosCliente.dfm

@@ -1,9 +1,11 @@
 inherited fEditorProcesoPresupuestosCliente: TfEditorProcesoPresupuestosCliente
-  Caption = 'fEditorProcesoPresupuestosCliente'
+  Caption = 'Listado de documentos relacionados con un pedido de cliente'
   PixelsPerInch = 96
   TextHeight = 13
   inherited JvNavPanelHeader: TJvNavPanelHeader
-    Caption = 'Listado de proceso completo de presupuesto de cliente'
+    Caption = 
+      'Listado de documentos relacionados en un proceso completo de ped' +
+      'ido de cliente'
   end
   inherited TBXDock: TTBXDock
     inherited tbxMain: TTBXToolbar
@@ -39,6 +41,13 @@ inherited fEditorProcesoPresupuestosCliente: TfEditorProcesoPresupuestosCliente
       Height = 255
       ExplicitWidth = 894
       ExplicitHeight = 255
+      inherited cxGridView: TcxGridDBTableView
+        inherited cxGridViewREFERENCIA_PRESUPUESTO: TcxGridDBColumn
+          PropertiesClassName = 'TcxTextEditProperties'
+          Properties.Alignment.Horz = taRightJustify
+          HeaderAlignmentHorz = taRightJustify
+        end
+      end
     end
     inherited frViewFiltroBase1: TfrViewFiltroBase
       Width = 894

Source/Modulos/ProcesoPresupuestoCliente/Views/uEditorProcesoPresupuestosCliente.pas

@@ -52,6 +52,7 @@ type
     property FacturasProforma: IBizFacturaProforma read GetFacturasProforma write SetFacturasProforma;
     property FacturasCliente: IBizFacturaCliente read GetFacturasCliente write SetFacturasCliente;
 
+    procedure PonerTitulos(const ATitulo: string = ''); override;
     constructor Create(AOwner: TComponent); override;
     destructor Destroy; override;
   end;
@@ -155,6 +156,12 @@ begin
   Result := FPedidosProveedor;
 end;
 
+procedure TfEditorProcesoPresupuestosCliente.PonerTitulos(
+  const ATitulo: string);
+begin
+//  inherited;  Para que no borre el caption
+end;
+
 procedure TfEditorProcesoPresupuestosCliente.SetAlbaranesCliente(const Value: IBizAlbaranCliente);
 begin
   FAlbaranesCliente := Value;

Source/Modulos/ProcesoPresupuestoCliente/Views/uViewProcesoPresupuestosCliente.dfm

@@ -28,6 +28,13 @@ inherited frViewProcesoPresupuestosCliente: TfrViewProcesoPresupuestosCliente
       object cxGridViewFECHA_PEDIDO: TcxGridDBColumn
         Caption = 'Fecha del pedido'
         DataBinding.FieldName = 'FECHA_PEDIDO'
+        PropertiesClassName = 'TcxDateEditProperties'
+        Properties.Alignment.Horz = taRightJustify
+        HeaderAlignmentHorz = taRightJustify
+      end
+      object cxGridViewREFERENCIA_PRESUPUESTO: TcxGridDBColumn
+        Caption = 'Ref. presupuesto'
+        DataBinding.FieldName = 'REFERENCIA_PRESUPUESTO'
       end
     end
     object cxGridViewPedidosProveedor: TcxGridDBTableView [1]
@@ -72,6 +79,9 @@ inherited frViewProcesoPresupuestosCliente: TfrViewProcesoPresupuestosCliente
       object cxGridViewPedidosProveedorFECHA_PEDIDO: TcxGridDBColumn
         Caption = 'Fecha del pedido'
         DataBinding.FieldName = 'FECHA_PEDIDO'
+        PropertiesClassName = 'TcxDateEditProperties'
+        Properties.Alignment.Horz = taRightJustify
+        HeaderAlignmentHorz = taRightJustify
       end
     end
     object cxGridViewAlbaranesProveedor: TcxGridDBTableView [2]
@@ -112,6 +122,9 @@ inherited frViewProcesoPresupuestosCliente: TfrViewProcesoPresupuestosCliente
       object cxGridViewAlbaranesProveedorFECHA_ALBARAN: TcxGridDBColumn
         Caption = 'Fecha de albar'#225'n'
         DataBinding.FieldName = 'FECHA_ALBARAN'
+        PropertiesClassName = 'TcxDateEditProperties'
+        Properties.Alignment.Horz = taRightJustify
+        HeaderAlignmentHorz = taRightJustify
       end
     end
     object cxGridViewFacturasProveedor: TcxGridDBTableView [3]
@@ -156,6 +169,9 @@ inherited frViewProcesoPresupuestosCliente: TfrViewProcesoPresupuestosCliente
       object cxGridViewFacturasProveedorFECHA_FACTURA: TcxGridDBColumn
         Caption = 'Fecha factura'
         DataBinding.FieldName = 'FECHA_FACTURA'
+        PropertiesClassName = 'TcxDateEditProperties'
+        Properties.Alignment.Horz = taRightJustify
+        HeaderAlignmentHorz = taRightJustify
       end
     end
     object cxGridViewAlbaranesCliente: TcxGridDBTableView [4]
@@ -196,6 +212,9 @@ inherited frViewProcesoPresupuestosCliente: TfrViewProcesoPresupuestosCliente
       object cxGridViewAlbaranesClienteFECHA_ALBARAN: TcxGridDBColumn
         Caption = 'Fecha albar'#225'n'
         DataBinding.FieldName = 'FECHA_ALBARAN'
+        PropertiesClassName = 'TcxDateEditProperties'
+        Properties.Alignment.Horz = taRightJustify
+        HeaderAlignmentHorz = taRightJustify
       end
     end
     object cxGridViewFacturasCliente: TcxGridDBTableView [5]
@@ -236,6 +255,9 @@ inherited frViewProcesoPresupuestosCliente: TfrViewProcesoPresupuestosCliente
       object cxGridViewFacturasClienteFECHA_FACTURA: TcxGridDBColumn
         Caption = 'Fecha'
         DataBinding.FieldName = 'FECHA_FACTURA'
+        PropertiesClassName = 'TcxDateEditProperties'
+        Properties.Alignment.Horz = taRightJustify
+        HeaderAlignmentHorz = taRightJustify
       end
     end
     object cxGridViewFacturasProforma: TcxGridDBTableView [6]
@@ -276,13 +298,16 @@ inherited frViewProcesoPresupuestosCliente: TfrViewProcesoPresupuestosCliente
       object cxGridViewFacturasProformaFECHA_FACTURA: TcxGridDBColumn
         Caption = 'Fecha'
         DataBinding.FieldName = 'FECHA_FACTURA'
+        PropertiesClassName = 'TcxDateEditProperties'
+        Properties.Alignment.Horz = taRightJustify
+        HeaderAlignmentHorz = taRightJustify
       end
     end
     inherited cxGridLevel: TcxGridLevel
       Options.DetailFrameColor = cl3DLight
       Options.DetailTabsPosition = dtpTop
       object cxGridLevelPedidosProveedor: TcxGridLevel
-        Caption = 'Documentos de Proveedor'
+        Caption = 'Pedidos/Albaranes/Facturas de Proveedor'
         GridView = cxGridViewPedidosProveedor
         object cxGridLevelAlbaranesProveedor: TcxGridLevel
           GridView = cxGridViewAlbaranesProveedor
@@ -292,13 +317,13 @@ inherited frViewProcesoPresupuestosCliente: TfrViewProcesoPresupuestosCliente
         end
       end
       object cxGridAlbaranesCliente: TcxGridLevel
-        Caption = 'Documentos de Cliente'
+        Caption = 'Albaranes/Facturas de Cliente'
         GridView = cxGridViewAlbaranesCliente
         object cxGridFacturasCliente: TcxGridLevel
           GridView = cxGridViewFacturasCliente
         end
       end
-      object cxGridLevel1: TcxGridLevel
+      object cxGridFacturasProforma: TcxGridLevel
         Caption = 'Facturas Proforma'
         GridView = cxGridViewFacturasProforma
       end

Source/Modulos/ProcesoPresupuestoCliente/Views/uViewProcesoPresupuestosCliente.pas

@@ -14,7 +14,7 @@ uses
   cxGridTableView, cxGridDBTableView, cxClasses, cxControls, cxGridCustomView,
   cxGrid, uBizPedidosCliente, uBizPedidosProveedor, uBizAlbaranesProveedor,
   uBizFacturasProveedor, uBizAlbaranesCliente, uBizFacturasCliente, uBizFacturasProforma,
-  Grids, DBGrids;
+  Grids, DBGrids, cxCalendar;
 
 type
   IViewListadoProcesoPedidoCliente = interface(IViewGrid)
@@ -85,9 +85,10 @@ type
     dsFacturasProforma: TDADataSource;
     cxGridViewFacturasProforma: TcxGridDBTableView;
     cxGridViewFacturasProformaREFERENCIA: TcxGridDBColumn;
-    cxGridLevel1: TcxGridLevel;
+    cxGridFacturasProforma: TcxGridLevel;
     cxGridViewFacturasProformaSITUACION: TcxGridDBColumn;
     cxGridViewFacturasProformaFECHA_FACTURA: TcxGridDBColumn;
+    cxGridViewREFERENCIA_PRESUPUESTO: TcxGridDBColumn;
     procedure CustomViewShow(Sender: TObject);
 
   protected

Source/Modulos/Recibos de proveedor/Model/uBizRecibosProveedor.pas

@@ -175,7 +175,7 @@ begin
   FPagos := NIL;
   FRecibosCompensados := Nil;
   FreeAndNIL(FPagosLink);
-  FreeAndNIL(FRecibosCompensadosLink);
+//  FreeAndNIL(FRecibosCompensadosLink);
   FSeleccionableInterface := NIL;
   inherited;
 end;

Source/Modulos/Relaciones/Presupuestos de cliente - Pedidos de cliente/uGenerarPedidosCliUtils.pas

@@ -14,6 +14,8 @@ type
   function GenerarPedidoCliPre(const IDPresupuesto : Integer) : Boolean; overload;
   function GenerarPedidoCliPre(APresupuesto : IBizPresupuestoCliente) : Boolean; overload;
 
+  function VerProcesoCompletoDeLosPedidosDelPresupuesto(APresupuesto: Integer):Boolean;
+
 implementation
 
 {$R *.dfm}
@@ -33,6 +35,7 @@ var
   AClientesController : IClientesController;
 
 { Métodos auxiliares }
+
 procedure CopiarPresupuestoAPedido(APresupuesto: IBizPresupuestoCliente; APedido : IBizPedidoCliente);
 begin
   if not Assigned(APedido) then
@@ -47,7 +50,7 @@ begin
   // El albarán tiene que venir ya abierto y posicionado donde hay que copiar
   APedido.ID_PRESUPUESTO := APresupuesto.ID;
   APedido.REFERENCIA_CLIENTE := APresupuesto.REFERENCIA_CLIENTE;
-  APedido.TIPO_PEDIDO := APresupuesto.TIPO_PRESUPUESTO;  
+  APedido.TIPO_PEDIDO := APresupuesto.TIPO_PRESUPUESTO;
   APedido.IMPORTE_NETO := APresupuesto.IMPORTE_NETO;
   APedido.IMPORTE_PORTE := APresupuesto.IMPORTE_PORTE;
   APedido.DESCUENTO := APresupuesto.DESCUENTO;
@@ -61,7 +64,7 @@ begin
 
   APresupuestosClienteController.RecuperarCliente(APresupuesto);
   APedido.Cliente := APresupuesto.Cliente;
-  
+
   //Siempre cogeremos la primera direcci¢n del contacto para el envio
   APedido.CALLE := APedido.Cliente.Direcciones.CALLE;
   APedido.CODIGO_POSTAL := APedido.Cliente.Direcciones.CODIGO_POSTAL;
@@ -393,4 +396,16 @@ begin
   end;
 }
 
+function VerProcesoCompletoDeLosPedidosDelPresupuesto(APresupuesto: Integer):Boolean;
+begin
+  if not Assigned(APedidosClienteController) then
+     Inicializar;
+
+  Result := APedidosClienteController.VerProcesoCompleto(APresupuesto);
+
+  if Assigned(APedidosClienteController) then
+     Finalizar;
+end;
+
+
 end.

Source/Modulos/Remesas de cliente/Views/uEditorRemesaCliente.pas

@@ -396,4 +396,3 @@ end;
 
 end.
 
-

Source/Modulos/Remesas de proveedor/Controller/RemesasProveedor_controller.dproj

@@ -42,62 +42,23 @@
     <DCC_ResourcePath>..\..\..\Lib;..\..\Lib</DCC_ResourcePath>
     <DCC_ObjPath>..\..\..\Lib;..\..\Lib</DCC_ObjPath>
     <DCC_IncludePath>..\..\..\Lib;..\..\Lib</DCC_IncludePath>
+    <DCC_MapFile>3</DCC_MapFile>
   </PropertyGroup>
   <ProjectExtensions>
     <Borland.Personality>Delphi.Personality</Borland.Personality>
     <Borland.ProjectType>Package</Borland.ProjectType>
     <BorlandProject>
-<BorlandProject xmlns=""> <Delphi.Personality>   <Parameters>
+<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="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 Name="Comments"></VersionInfoKeys></VersionInfoKeys><Source><Source Name="MainSource">RemesasProveedor_controller.dpk</Source></Source></Delphi.Personality></BorlandProject></BorlandProject>
-      <Parameters Name="UseLauncher">False</Parameters>
-      <Parameters Name="LoadAllSymbols">True</Parameters>
-      <Parameters Name="LoadUnspecifiedSymbols">False</Parameters>
-    </Parameters>
-    <Package_Options>
-      <Package_Options Name="ImplicitBuild">True</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 Name="Comments"></VersionInfoKeys>
-    </VersionInfoKeys>
-    <Source>
-      <Source Name="MainSource">RemesasProveedor_controller.dpk</Source>
-    </Source>
-  </Delphi.Personality> </BorlandProject></BorlandProject>
   </ProjectExtensions>
   <Import Project="$(MSBuildBinPath)\Borland.Delphi.Targets" />
   <ItemGroup>
     <DelphiCompile Include="RemesasProveedor_controller.dpk">
       <MainSource>MainSource</MainSource>
     </DelphiCompile>
-    <DCCReference Include="..\..\Lib\Contactos_controller.dcp" />
+    <DCCReference Include="..\..\Recibos de proveedor\Contactos_controller.dcp" />
-    <DCCReference Include="..\..\Lib\RecibosProveedor_controller.dcp" />
+    <DCCReference Include="..\..\Recibos de proveedor\RecibosProveedor_controller.dcp" />
-    <DCCReference Include="..\..\Lib\RemesasProveedor_data.dcp" />
+    <DCCReference Include="..\..\Recibos de proveedor\RemesasProveedor_data.dcp" />
-    <DCCReference Include="..\..\Lib\RemesasProveedor_model.dcp" />
+    <DCCReference Include="..\..\Recibos de proveedor\RemesasProveedor_model.dcp" />
     <DCCReference Include="uRemesasProveedorController.pas" />
     <DCCReference Include="uRemesasProveedorReportController.pas" />
     <DCCReference Include="View\uIEditorRemesaProveedor.pas" />
@@ -105,11 +66,10 @@
     <DCCReference Include="View\uIEditorRemesasProveedorPreview.pas" />
   </ItemGroup>
 </Project>
-
 <!-- EurekaLog First Line
 [Exception Log]
-EurekaLog Version=6006
+EurekaLog Version=6011
-Activate=0
+Activate=1
 Activate Handle=1
 Save Log File=1
 Foreground Tab=0
@@ -587,5 +547,5 @@ Count mtException_AntiFreeze=1
 mtException_AntiFreeze0="The application seems to be frozen."
 Count mtInvalidEmailMsg=1
 mtInvalidEmailMsg0="Invalid email."
-TextsCollection=English
+TextsCollection=
 EurekaLog Last Line -->

Source/Modulos/Remesas de proveedor/Controller/uRemesasProveedorController.pas

@@ -233,28 +233,25 @@ begin
 
   CreateEditor('EditorRemesaProveedor', IEditorRemesaProveedor, AEditor);
   if Assigned(AEditor) then
-    with (AEditor as IEditorRemesaProveedor) do
+    try
-    begin
+      AEditor.Controller := Self; //OJO ORDEN MUY IMPORTANTE
-      try
+      AEditor.RemesaProveedor := ARemesaProveedor;
-        Controller := Self; //OJO ORDEN MUY IMPORTANTE
-        RemesaProveedor := ARemesaProveedor;
 
-        //MODO CONSULTAR
+      //MODO CONSULTAR
-        if not EsModificable(ARemesaProveedor) then
+      if not EsModificable(ARemesaProveedor) then
-        begin
+      begin
-           SetDataTableReadOnly(ARemesaProveedor.DataTable, True);
+        SetDataTableReadOnly(ARemesaProveedor.DataTable, True);
-           ReadOnly := True;
+        AEditor.ReadOnly := True;
-        end;
-
-        ShowModal;
-
-        //MODO CONSULTAR (Se deja la tabla como estaba)
-        if ReadOnly then
-           SetDataTableReadOnly(ARemesaProveedor.DataTable, False);
-      finally
-        AEditor.Release;
-        AEditor := NIL;
       end;
+
+      AEditor.ShowModal;
+
+      //MODO CONSULTAR (Se deja la tabla como estaba)
+      if AEditor.ReadOnly then
+         SetDataTableReadOnly(ARemesaProveedor.DataTable, False);
+    finally
+      AEditor.Release;
+      AEditor := NIL;
     end;
 end;
 
@@ -461,8 +458,14 @@ begin
 end;
 
 procedure TRemesasProveedorController.RecuperarRecibos(ARemesaProveedor: IBizRemesaProveedor);
+var
+  ARecibos : IBizRecibosProveedor;
 begin
-  ARemesaProveedor.Recibos := RecibosProveedorController.BuscarRecibosRemesa(ARemesaProveedor.ID);
+  if not Assigned(ARemesaProveedor) then
+    raise Exception.Create ('ARemesaProveedor no asignada');
+
+  ARecibos := RecibosProveedorController.BuscarRecibosRemesa(ARemesaProveedor.ID);
+  ARemesaProveedor.Recibos := ARecibos;
 end;
 
 function TRemesasProveedorController.Existe(const ID: Integer): Boolean;

Source/Modulos/Remesas de proveedor/RemesasProveedor_Group.groupproj

@@ -9,7 +9,11 @@
     <Projects Include="..\..\Cliente\FactuGES.dproj" />
     <Projects Include="..\..\GUIBase\GUIBase.dproj" />
     <Projects Include="..\..\Servidor\FactuGES_Server.dproj" />
+    <Projects Include="..\Recibos de proveedor\Controller\RecibosProveedor_controller.dproj" />
+    <Projects Include="..\Recibos de proveedor\Data\RecibosProveedor_data.dproj" />
+    <Projects Include="..\Recibos de proveedor\Model\RecibosProveedor_model.dproj" />
     <Projects Include="..\Recibos de proveedor\Views\RecibosProveedor_view.dproj" />
+    <Projects Include="..\Remesas de cliente\Views\RemesasCliente_view.dproj" />
     <Projects Include="Controller\RemesasProveedor_controller.dproj" />
     <Projects Include="Data\RemesasProveedor_data.dproj" />
     <Projects Include="Model\RemesasProveedor_model.dproj" />
@@ -85,15 +89,6 @@
   <Target Name="RemesasProveedor_view:Make">
     <MSBuild Projects="Views\RemesasProveedor_view.dproj" Targets="Make" />
   </Target>
-  <Target Name="RemesasProveedor_plugin">
-    <MSBuild Projects="Plugin\RemesasProveedor_plugin.dproj" Targets="" />
-  </Target>
-  <Target Name="RemesasProveedor_plugin:Clean">
-    <MSBuild Projects="Plugin\RemesasProveedor_plugin.dproj" Targets="Clean" />
-  </Target>
-  <Target Name="RemesasProveedor_plugin:Make">
-    <MSBuild Projects="Plugin\RemesasProveedor_plugin.dproj" Targets="Make" />
-  </Target>
   <Target Name="FactuGES">
     <MSBuild Projects="..\..\Cliente\FactuGES.dproj" Targets="" />
   </Target>
@@ -103,6 +98,15 @@
   <Target Name="FactuGES:Make">
     <MSBuild Projects="..\..\Cliente\FactuGES.dproj" Targets="Make" />
   </Target>
+  <Target Name="RemesasProveedor_plugin">
+    <MSBuild Projects="Plugin\RemesasProveedor_plugin.dproj" Targets="" />
+  </Target>
+  <Target Name="RemesasProveedor_plugin:Clean">
+    <MSBuild Projects="Plugin\RemesasProveedor_plugin.dproj" Targets="Clean" />
+  </Target>
+  <Target Name="RemesasProveedor_plugin:Make">
+    <MSBuild Projects="Plugin\RemesasProveedor_plugin.dproj" Targets="Make" />
+  </Target>
   <Target Name="FactuGES_Server">
     <MSBuild Projects="..\..\Servidor\FactuGES_Server.dproj" Targets="" />
   </Target>
@@ -121,14 +125,50 @@
   <Target Name="RecibosProveedor_view:Make">
     <MSBuild Projects="..\Recibos de proveedor\Views\RecibosProveedor_view.dproj" Targets="Make" />
   </Target>
+  <Target Name="RemesasCliente_view">
+    <MSBuild Projects="..\Remesas de cliente\Views\RemesasCliente_view.dproj" Targets="" />
+  </Target>
+  <Target Name="RemesasCliente_view:Clean">
+    <MSBuild Projects="..\Remesas de cliente\Views\RemesasCliente_view.dproj" Targets="Clean" />
+  </Target>
+  <Target Name="RemesasCliente_view:Make">
+    <MSBuild Projects="..\Remesas de cliente\Views\RemesasCliente_view.dproj" Targets="Make" />
+  </Target>
+  <Target Name="RecibosProveedor_controller">
+    <MSBuild Projects="..\Recibos de proveedor\Controller\RecibosProveedor_controller.dproj" Targets="" />
+  </Target>
+  <Target Name="RecibosProveedor_controller:Clean">
+    <MSBuild Projects="..\Recibos de proveedor\Controller\RecibosProveedor_controller.dproj" Targets="Clean" />
+  </Target>
+  <Target Name="RecibosProveedor_controller:Make">
+    <MSBuild Projects="..\Recibos de proveedor\Controller\RecibosProveedor_controller.dproj" Targets="Make" />
+  </Target>
+  <Target Name="RecibosProveedor_data">
+    <MSBuild Projects="..\Recibos de proveedor\Data\RecibosProveedor_data.dproj" Targets="" />
+  </Target>
+  <Target Name="RecibosProveedor_data:Clean">
+    <MSBuild Projects="..\Recibos de proveedor\Data\RecibosProveedor_data.dproj" Targets="Clean" />
+  </Target>
+  <Target Name="RecibosProveedor_data:Make">
+    <MSBuild Projects="..\Recibos de proveedor\Data\RecibosProveedor_data.dproj" Targets="Make" />
+  </Target>
+  <Target Name="RecibosProveedor_model">
+    <MSBuild Projects="..\Recibos de proveedor\Model\RecibosProveedor_model.dproj" Targets="" />
+  </Target>
+  <Target Name="RecibosProveedor_model:Clean">
+    <MSBuild Projects="..\Recibos de proveedor\Model\RecibosProveedor_model.dproj" Targets="Clean" />
+  </Target>
+  <Target Name="RecibosProveedor_model:Make">
+    <MSBuild Projects="..\Recibos de proveedor\Model\RecibosProveedor_model.dproj" Targets="Make" />
+  </Target>
   <Target Name="Build">
-    <CallTarget Targets="Base;GUIBase;ApplicationBase;RemesasProveedor_model;RemesasProveedor_data;RemesasProveedor_controller;RemesasProveedor_view;RemesasProveedor_plugin;FactuGES;FactuGES_Server;RecibosProveedor_view" />
+    <CallTarget Targets="Base;GUIBase;ApplicationBase;RemesasProveedor_model;RemesasProveedor_data;RemesasProveedor_controller;RemesasProveedor_view;FactuGES;RemesasProveedor_plugin;FactuGES_Server;RecibosProveedor_view;RemesasCliente_view;RecibosProveedor_controller;RecibosProveedor_data;RecibosProveedor_model" />
   </Target>
   <Target Name="Clean">
-    <CallTarget Targets="Base:Clean;GUIBase:Clean;ApplicationBase:Clean;RemesasProveedor_model:Clean;RemesasProveedor_data:Clean;RemesasProveedor_controller:Clean;RemesasProveedor_view:Clean;RemesasProveedor_plugin:Clean;FactuGES:Clean;FactuGES_Server:Clean;RecibosProveedor_view:Clean" />
+    <CallTarget Targets="Base:Clean;GUIBase:Clean;ApplicationBase:Clean;RemesasProveedor_model:Clean;RemesasProveedor_data:Clean;RemesasProveedor_controller:Clean;RemesasProveedor_view:Clean;FactuGES:Clean;RemesasProveedor_plugin:Clean;FactuGES_Server:Clean;RecibosProveedor_view:Clean;RemesasCliente_view:Clean;RecibosProveedor_controller:Clean;RecibosProveedor_data:Clean;RecibosProveedor_model:Clean" />
   </Target>
   <Target Name="Make">
-    <CallTarget Targets="Base:Make;GUIBase:Make;ApplicationBase:Make;RemesasProveedor_model:Make;RemesasProveedor_data:Make;RemesasProveedor_controller:Make;RemesasProveedor_view:Make;RemesasProveedor_plugin:Make;FactuGES:Make;FactuGES_Server:Make;RecibosProveedor_view:Make" />
+    <CallTarget Targets="Base:Make;GUIBase:Make;ApplicationBase:Make;RemesasProveedor_model:Make;RemesasProveedor_data:Make;RemesasProveedor_controller:Make;RemesasProveedor_view:Make;FactuGES:Make;RemesasProveedor_plugin:Make;FactuGES_Server:Make;RecibosProveedor_view:Make;RemesasCliente_view:Make;RecibosProveedor_controller:Make;RecibosProveedor_data:Make;RecibosProveedor_model:Make" />
   </Target>
   <Import Condition="Exists('$(MSBuildBinPath)\Borland.Group.Targets')" Project="$(MSBuildBinPath)\Borland.Group.Targets" />
 </Project>

Source/Modulos/Remesas de proveedor/Views/uEditorRemesaProveedor.dfm

@@ -8,7 +8,6 @@ inherited fEditorRemesaProveedor: TfEditorRemesaProveedor
   ClientWidth = 690
   Scaled = False
   OnClose = CustomEditorClose
-  ExplicitTop = -83
   ExplicitWidth = 698
   ExplicitHeight = 638
   PixelsPerInch = 96
@@ -48,6 +47,8 @@ inherited fEditorRemesaProveedor: TfEditorRemesaProveedor
     inherited lblDesbloquear: TcxLabel
       Left = 592
       ExplicitLeft = 592
+      AnchorX = 637
+      AnchorY = 14
     end
   end
   inherited TBXDock: TTBXDock
@@ -237,8 +238,7 @@ inherited fEditorRemesaProveedor: TfEditorRemesaProveedor
       item
         Width = 200
       end>
-    ExplicitLeft = 8
+    ExplicitTop = 585
-    ExplicitTop = 597
     ExplicitWidth = 690
   end
   inline frViewTotales1: TfrViewTotales [4]
@@ -255,7 +255,7 @@ inherited fEditorRemesaProveedor: TfEditorRemesaProveedor
     ParentFont = False
     TabOrder = 4
     ReadOnly = False
-    ExplicitTop = 558
+    ExplicitTop = 539
     ExplicitWidth = 690
     ExplicitHeight = 46
     inherited dxLayoutControl1: TdxLayoutControl

Source/Servidor/FactuGES_Server.dpr

@@ -3,6 +3,7 @@ program FactuGES_Server;
 {#ROGEN:..\Servicios\FactuGES.rodl} // RemObjects: Careful, do not remove!
 
 uses
+//  ExceptionLog,
   uROComInit,
   uROComboService,
   Forms,
@@ -156,8 +157,6 @@ uses
   schFacturasClienteServer_Intf in '..\Modulos\Facturas de cliente\Model\schFacturasClienteServer_Intf.pas',
   schUsuariosClient_Intf in '..\ApplicationBase\Usuarios\Model\schUsuariosClient_Intf.pas',
   schUsuariosServer_Intf in '..\ApplicationBase\Usuarios\Model\schUsuariosServer_Intf.pas',
-  schEmpresasClient_Intf in '..\ApplicationBase\Empresas\Model\schEmpresasClient_Intf.pas',
-  schEmpresasServer_Intf in '..\ApplicationBase\Empresas\Model\schEmpresasServer_Intf.pas',
   srvFacturasProforma_Impl in '..\Modulos\Facturas proforma\Servidor\srvFacturasProforma_Impl.pas' {srvFacturasProforma: TDataAbstractService},
   uBizFacturasProformaServer in '..\Modulos\Facturas proforma\Model\uBizFacturasProformaServer.pas',
   uRptFacturasProforma_Server in '..\Modulos\Facturas proforma\Reports\uRptFacturasProforma_Server.pas' {RptFacturasProforma: TDataModule},
@@ -171,7 +170,9 @@ uses
   schTiposDocumentoClient_Intf in '..\Modulos\TiposDocumento\Model\schTiposDocumentoClient_Intf.pas',
   schTiposDocumentoServer_Intf in '..\Modulos\TiposDocumento\Model\schTiposDocumentoServer_Intf.pas',
   schPresupuestosClienteClient_Intf in '..\Modulos\Presupuestos de cliente\Model\schPresupuestosClienteClient_Intf.pas',
-  schPresupuestosClienteServer_Intf in '..\Modulos\Presupuestos de cliente\Model\schPresupuestosClienteServer_Intf.pas';
+  schPresupuestosClienteServer_Intf in '..\Modulos\Presupuestos de cliente\Model\schPresupuestosClienteServer_Intf.pas',
+  schEmpresasClient_Intf in '..\ApplicationBase\Empresas\Model\schEmpresasClient_Intf.pas',
+  schEmpresasServer_Intf in '..\ApplicationBase\Empresas\Model\schEmpresasServer_Intf.pas';
 
 {$R *.res}
 {$R ..\Servicios\RODLFile.res}

Source/Servidor/FactuGES_Server.dproj

@@ -22,7 +22,7 @@
 		<Version>7.0</Version>
 		<DCC_MapFile>3</DCC_MapFile>
 		<DCC_ExeOutput>..\..\Output\Debug\Servidor</DCC_ExeOutput>
-		<DCC_Define>DEBUG;</DCC_Define>
+		<DCC_Define>DEBUG;EUREKALOG;EUREKALOG_VER6</DCC_Define>
 		<DCC_GenerateStackFrames>True</DCC_GenerateStackFrames>
 		<DCC_DebugInfoInExe>True</DCC_DebugInfoInExe>
 		<DCC_DebugVN>True</DCC_DebugVN>
@@ -48,18 +48,18 @@
 		<DCCReference Include="..\ApplicationBase\Empresas\Model\schEmpresasServer_Intf.pas"/>
 		<DCCReference Include="..\ApplicationBase\Empresas\Model\uBizEmpresasServer.pas"/>
 		<DCCReference Include="..\ApplicationBase\Empresas\Servidor\srvEmpresas_Impl.pas">
-			<Form>srvEmpresas</Form>
 			<DesignClass>TDARemoteService</DesignClass>
+			<Form>srvEmpresas</Form>
 		</DCCReference>
 		<DCCReference Include="..\ApplicationBase\ProvinciasPoblaciones\Servidor\srvProvinciasPoblaciones_Impl.pas">
-			<Form>srvProvinciasPoblaciones_Impl</Form>
 			<DesignClass>TDataModule</DesignClass>
+			<Form>srvProvinciasPoblaciones_Impl</Form>
 		</DCCReference>
 		<DCCReference Include="..\ApplicationBase\Usuarios\Model\schUsuariosClient_Intf.pas"/>
 		<DCCReference Include="..\ApplicationBase\Usuarios\Model\schUsuariosServer_Intf.pas"/>
 		<DCCReference Include="..\ApplicationBase\Usuarios\Servidor\srvUsuarios_Impl.pas">
-			<Form>srvUsuarios</Form>
 			<DesignClass>TDataAbstractService</DesignClass>
+			<Form>srvUsuarios</Form>
 		</DCCReference>
 		<DCCReference Include="..\Base\schBase_Intf.pas"/>
 		<DCCReference Include="..\Base\Utiles\uSistemaFunc.pas"/>
@@ -68,55 +68,55 @@
 		<DCCReference Include="..\Modulos\Albaranes de cliente\Model\schAlbaranesClienteServer_Intf.pas"/>
 		<DCCReference Include="..\Modulos\Albaranes de cliente\Model\uBizAlbaranClienteServer.pas"/>
 		<DCCReference Include="..\Modulos\Albaranes de cliente\Reports\uRptAlbaranesCliente_Server.pas">
-			<Form>RptAlbaranesCliente</Form>
 			<DesignClass>TDataModule</DesignClass>
+			<Form>RptAlbaranesCliente</Form>
 		</DCCReference>
 		<DCCReference Include="..\Modulos\Albaranes de cliente\Reports\uRptWordAlbaranCliente.pas">
 			<DesignClass>TDataModule</DesignClass>
 			<Form>RptWordAlbaranCliente</Form>
 		</DCCReference>
 		<DCCReference Include="..\Modulos\Albaranes de cliente\Servidor\srvAlbaranesCliente_Impl.pas">
-			<Form>srvAlbaranesCliente</Form>
 			<DesignClass>TDataAbstractService</DesignClass>
+			<Form>srvAlbaranesCliente</Form>
 		</DCCReference>
 		<DCCReference Include="..\Modulos\Albaranes de proveedor\Model\schAlbaranesProveedorClient_Intf.pas"/>
 		<DCCReference Include="..\Modulos\Albaranes de proveedor\Model\schAlbaranesProveedorServer_Intf.pas"/>
 		<DCCReference Include="..\Modulos\Albaranes de proveedor\Model\uBizAlbaranProveedorServer.PAS"/>
 		<DCCReference Include="..\Modulos\Albaranes de proveedor\Reports\uRptAlbaranesProveedor_Server.pas">
-			<Form>RptAlbaranesProveedor</Form>
 			<DesignClass>TDataModule</DesignClass>
+			<Form>RptAlbaranesProveedor</Form>
 		</DCCReference>
 		<DCCReference Include="..\Modulos\Albaranes de proveedor\Reports\uRptWordAlbaranProveedor.pas">
 			<DesignClass>TDataModule</DesignClass>
 			<Form>RptWordAlbaranProveedor</Form>
 		</DCCReference>
 		<DCCReference Include="..\Modulos\Albaranes de proveedor\Servidor\srvAlbaranesProveedor_Impl.pas">
-			<Form>srvAlbaranesProveedor</Form>
 			<DesignClass>TDataAbstractService</DesignClass>
+			<Form>srvAlbaranesProveedor</Form>
 		</DCCReference>
 		<DCCReference Include="..\Modulos\Almacenes\Model\schAlmacenesClient_Intf.pas"/>
 		<DCCReference Include="..\Modulos\Almacenes\Model\schAlmacenesServer_Intf.pas"/>
 		<DCCReference Include="..\Modulos\Almacenes\Servidor\srvAlmacenes_Impl.pas">
-			<Form>srvAlmacenes</Form>
 			<DesignClass>TDARemoteService</DesignClass>
+			<Form>srvAlmacenes</Form>
 		</DCCReference>
 		<DCCReference Include="..\Modulos\Articulos\Model\schArticulosClient_Intf.pas"/>
 		<DCCReference Include="..\Modulos\Articulos\Model\schArticulosServer_Intf.pas"/>
 		<DCCReference Include="..\Modulos\Articulos\Model\uBizArticulosServer.pas"/>
 		<DCCReference Include="..\Modulos\Articulos\Servidor\srvArticulos_Impl.pas">
-			<Form>srvArticulos</Form>
 			<DesignClass>TDARemoteService</DesignClass>
+			<Form>srvArticulos</Form>
 		</DCCReference>
 		<DCCReference Include="..\Modulos\Comisiones\Model\schComisionesClient_Intf.pas"/>
 		<DCCReference Include="..\Modulos\Comisiones\Model\schComisionesServer_Intf.pas"/>
 		<DCCReference Include="..\Modulos\Comisiones\Model\uBizComisionesServer.pas"/>
 		<DCCReference Include="..\Modulos\Comisiones\Reports\uRptComisiones_Server.pas">
-			<Form>RptComisiones</Form>
 			<DesignClass>TDataModule</DesignClass>
+			<Form>RptComisiones</Form>
 		</DCCReference>
 		<DCCReference Include="..\Modulos\Comisiones\Servidor\srvComisiones_Impl.pas">
-			<Form>srvComisiones</Form>
 			<DesignClass>TDataAbstractService</DesignClass>
+			<Form>srvComisiones</Form>
 		</DCCReference>
 		<DCCReference Include="..\Modulos\Contactos\Model\schContactosClient_Intf.pas"/>
 		<DCCReference Include="..\Modulos\Contactos\Model\schContactosServer_Intf.pas"/>
@@ -126,153 +126,153 @@
 		<DCCReference Include="..\Modulos\Contactos\Model\uBizEmpleadosServer.pas"/>
 		<DCCReference Include="..\Modulos\Contactos\Model\uBizProveedoresServer.pas"/>
 		<DCCReference Include="..\Modulos\Contactos\Reports\uRptEtiquetasContacto_Server.pas">
-			<Form>RptEtiquetasContacto</Form>
 			<DesignClass>TDataModule</DesignClass>
+			<Form>RptEtiquetasContacto</Form>
 		</DCCReference>
 		<DCCReference Include="..\Modulos\Contactos\Reports\uRptFichasEmpleado_Server.pas">
-			<Form>RptFichasEmpleado</Form>
 			<DesignClass>TDataModule</DesignClass>
+			<Form>RptFichasEmpleado</Form>
 		</DCCReference>
 		<DCCReference Include="..\Modulos\Contactos\Servidor\srvContactos_Impl.pas">
-			<Form>srvContactos</Form>
 			<DesignClass>TDARemoteService</DesignClass>
+			<Form>srvContactos</Form>
 		</DCCReference>
 		<DCCReference Include="..\Modulos\Fabricantes\Model\schFabricantesClient_Intf.pas"/>
 		<DCCReference Include="..\Modulos\Fabricantes\Model\schFabricantesServer_Intf.pas"/>
 		<DCCReference Include="..\Modulos\Fabricantes\Servidor\srvFabricantes_Impl.pas">
-			<Form>srvFabricantes</Form>
 			<DesignClass>TDataAbstractService</DesignClass>
+			<Form>srvFabricantes</Form>
 		</DCCReference>
 		<DCCReference Include="..\Modulos\Facturas de cliente\Model\schFacturasClienteClient_Intf.pas"/>
 		<DCCReference Include="..\Modulos\Facturas de cliente\Model\schFacturasClienteServer_Intf.pas"/>
 		<DCCReference Include="..\Modulos\Facturas de cliente\Model\uBizFacturasClienteServer.pas"/>
 		<DCCReference Include="..\Modulos\Facturas de cliente\Reports\uRptFacturasCliente_Server.pas">
-			<Form>RptFacturasCliente</Form>
 			<DesignClass>TDataModule</DesignClass>
+			<Form>RptFacturasCliente</Form>
 		</DCCReference>
 		<DCCReference Include="..\Modulos\Facturas de cliente\Reports\uRptWordFacturaCliente.pas">
 			<DesignClass>TDataModule</DesignClass>
 			<Form>RptWordFacturaCliente</Form>
 		</DCCReference>
 		<DCCReference Include="..\Modulos\Facturas de cliente\Servidor\srvFacturasCliente_Impl.pas">
-			<Form>srvFacturasCliente</Form>
 			<DesignClass>TDataAbstractService</DesignClass>
+			<Form>srvFacturasCliente</Form>
 		</DCCReference>
 		<DCCReference Include="..\Modulos\Facturas de proveedor\Model\schFacturasProveedorClient_Intf.pas"/>
 		<DCCReference Include="..\Modulos\Facturas de proveedor\Model\schFacturasProveedorServer_Intf.pas"/>
 		<DCCReference Include="..\Modulos\Facturas de proveedor\Model\uBizFacturasProveedorServer.pas"/>
 		<DCCReference Include="..\Modulos\Facturas de proveedor\Reports\uRptFacturasProveedor_Server.pas">
-			<Form>RptFacturasProveedor</Form>
 			<DesignClass>TDataModule</DesignClass>
+			<Form>RptFacturasProveedor</Form>
 		</DCCReference>
 		<DCCReference Include="..\Modulos\Facturas de proveedor\Servidor\srvFacturasProveedor_Impl.pas">
-			<Form>srvFacturasProveedor</Form>
 			<DesignClass>TDataAbstractService</DesignClass>
+			<Form>srvFacturasProveedor</Form>
 		</DCCReference>
 		<DCCReference Include="..\Modulos\Facturas proforma\Model\schFacturasProformaClient_Intf.pas"/>
 		<DCCReference Include="..\Modulos\Facturas proforma\Model\schFacturasProformaServer_Intf.pas"/>
 		<DCCReference Include="..\Modulos\Facturas proforma\Model\uBizFacturasProformaServer.pas"/>
 		<DCCReference Include="..\Modulos\Facturas proforma\Reports\uRptFacturasProforma_Server.pas">
-			<Form>RptFacturasProforma</Form>
 			<DesignClass>TDataModule</DesignClass>
+			<Form>RptFacturasProforma</Form>
 		</DCCReference>
 		<DCCReference Include="..\Modulos\Facturas proforma\Servidor\srvFacturasProforma_Impl.pas">
-			<Form>srvFacturasProforma</Form>
 			<DesignClass>TDataAbstractService</DesignClass>
+			<Form>srvFacturasProforma</Form>
 		</DCCReference>
 		<DCCReference Include="..\Modulos\Familias\Model\schFamiliasClient_Intf.pas"/>
 		<DCCReference Include="..\Modulos\Familias\Model\schFamiliasServer_Intf.pas"/>
 		<DCCReference Include="..\Modulos\Familias\Servidor\srvFamilias_Impl.pas">
-			<Form>srvFamilias</Form>
 			<DesignClass>TDataAbstractService</DesignClass>
+			<Form>srvFamilias</Form>
 		</DCCReference>
 		<DCCReference Include="..\Modulos\Formas de pago\Model\schFormasPagoClient_Intf.pas"/>
 		<DCCReference Include="..\Modulos\Formas de pago\Model\schFormasPagoServer_Intf.pas"/>
 		<DCCReference Include="..\Modulos\Formas de pago\Servidor\srvFormasPago_Impl.pas">
-			<Form>srvFormasPago</Form>
 			<DesignClass>TDataAbstractService</DesignClass>
+			<Form>srvFormasPago</Form>
 		</DCCReference>
 		<DCCReference Include="..\Modulos\Gestion de documentos\Servidor\srvGestorDocumentos_Impl.pas">
-			<Form>srvGestorDocumentos</Form>
 			<DesignClass>TDataAbstractService</DesignClass>
+			<Form>srvGestorDocumentos</Form>
 		</DCCReference>
 		<DCCReference Include="..\Modulos\Gestor de informes\Servidor\srvGestorInformes_Impl.pas">
-			<Form>srvGestorInformes</Form>
 			<DesignClass>TDataAbstractService</DesignClass>
+			<Form>srvGestorInformes</Form>
 		</DCCReference>
 		<DCCReference Include="..\Modulos\Historico de movimientos\Model\schHistoricoMovimientosClient_Intf.pas"/>
 		<DCCReference Include="..\Modulos\Historico de movimientos\Model\schHistoricoMovimientosServer_Intf.pas"/>
 		<DCCReference Include="..\Modulos\Historico de movimientos\Servidor\srvHistoricoMovimientos_Impl.pas">
-			<Form>srvHistoricoMovimientos</Form>
 			<DesignClass>TDataAbstractService</DesignClass>
+			<Form>srvHistoricoMovimientos</Form>
 		</DCCReference>
 		<DCCReference Include="..\Modulos\Impresiones\Model\schImpresionesClient_Intf.pas"/>
 		<DCCReference Include="..\Modulos\Impresiones\Model\schImpresionesServer_Intf.pas"/>
 		<DCCReference Include="..\Modulos\Impresiones\Servidor\srvImpresiones_Impl.pas">
-			<Form>srvImpresiones</Form>
 			<DesignClass>TDARemoteService</DesignClass>
+			<Form>srvImpresiones</Form>
 		</DCCReference>
 		<DCCReference Include="..\Modulos\Informe margen por articulo\Servidor\srvInfMargenArticulo_Impl.pas">
-			<Form>srvInfMargenArticulo</Form>
 			<DesignClass>TDARemoteService</DesignClass>
+			<Form>srvInfMargenArticulo</Form>
 		</DCCReference>
 		<DCCReference Include="..\Modulos\Informe ventas por articulo\Model\schInfVentasArticuloClient_Intf.pas"/>
 		<DCCReference Include="..\Modulos\Informe ventas por articulo\Model\schInfVentasArticuloServer_Intf.pas"/>
 		<DCCReference Include="..\Modulos\Informe ventas por articulo\Servidor\srvInfVentasArticulo_Impl.pas">
-			<Form>srvInfVentasArticulo</Form>
 			<DesignClass>TDataAbstractService</DesignClass>
+			<Form>srvInfVentasArticulo</Form>
 		</DCCReference>
 		<DCCReference Include="..\Modulos\Informes base\Model\schInformesClient_Intf.pas"/>
 		<DCCReference Include="..\Modulos\Informes base\Model\schInformesServer_Intf.pas"/>
 		<DCCReference Include="..\Modulos\Informes base\Servidor\srvInformes_Impl.pas">
-			<Form>srvInformes</Form>
 			<DesignClass>TDataAbstractService</DesignClass>
+			<Form>srvInformes</Form>
 		</DCCReference>
 		<DCCReference Include="..\Modulos\Inventario\Model\schInventarioClient_Intf.pas"/>
 		<DCCReference Include="..\Modulos\Inventario\Model\schInventarioServer_Intf.pas"/>
 		<DCCReference Include="..\Modulos\Inventario\Servidor\srvInventario_Impl.pas">
-			<Form>srvInventario</Form>
 			<DesignClass>TDataAbstractService</DesignClass>
+			<Form>srvInventario</Form>
 		</DCCReference>
 		<DCCReference Include="..\Modulos\Obras\Model\schObrasClient_Intf.pas"/>
 		<DCCReference Include="..\Modulos\Obras\Model\schObrasServer_Intf.pas"/>
 		<DCCReference Include="..\Modulos\Obras\Model\uBizObrasServer.pas"/>
 		<DCCReference Include="..\Modulos\Obras\Servidor\srvObras_Impl.pas">
-			<Form>srvObras</Form>
 			<DesignClass>TDataAbstractService</DesignClass>
+			<Form>srvObras</Form>
 		</DCCReference>
 		<DCCReference Include="..\Modulos\Pedidos a proveedor\Model\schPedidosProveedorClient_Intf.pas"/>
 		<DCCReference Include="..\Modulos\Pedidos a proveedor\Model\schPedidosProveedorServer_Intf.pas"/>
 		<DCCReference Include="..\Modulos\Pedidos a proveedor\Model\uBizPedidosProveedorServer.pas"/>
 		<DCCReference Include="..\Modulos\Pedidos a proveedor\Reports\uRptPedidosProveedor_Server.pas">
-			<Form>RptPedidosProveedor</Form>
 			<DesignClass>TDataModule</DesignClass>
+			<Form>RptPedidosProveedor</Form>
 		</DCCReference>
 		<DCCReference Include="..\Modulos\Pedidos a proveedor\Reports\uRptWordPedidoProveedor.pas">
 			<DesignClass>TDataModule</DesignClass>
 			<Form>RptWordPedidoProveedor</Form>
 		</DCCReference>
 		<DCCReference Include="..\Modulos\Pedidos a proveedor\Servidor\srvPedidosProveedor_Impl.pas">
-			<Form>srvPedidosProveedor</Form>
 			<DesignClass>TDataAbstractService</DesignClass>
+			<Form>srvPedidosProveedor</Form>
 		</DCCReference>
 		<DCCReference Include="..\Modulos\Pedidos de cliente\Model\schPedidosClienteClient_Intf.pas"/>
 		<DCCReference Include="..\Modulos\Pedidos de cliente\Model\schPedidosClienteServer_Intf.pas"/>
 		<DCCReference Include="..\Modulos\Pedidos de cliente\Model\uBizPedidosClienteServer.pas"/>
 		<DCCReference Include="..\Modulos\Pedidos de cliente\Reports\uRptPedidosCliente_Server.pas">
-			<Form>RptPedidosCliente</Form>
 			<DesignClass>TDataModule</DesignClass>
+			<Form>RptPedidosCliente</Form>
 		</DCCReference>
 		<DCCReference Include="..\Modulos\Pedidos de cliente\Servidor\srvPedidosCliente_Impl.pas">
-			<Form>srvPedidosCliente</Form>
 			<DesignClass>TDataAbstractService</DesignClass>
+			<Form>srvPedidosCliente</Form>
 		</DCCReference>
 		<DCCReference Include="..\Modulos\Presupuestos de cliente\Model\schPresupuestosClienteClient_Intf.pas"/>
 		<DCCReference Include="..\Modulos\Presupuestos de cliente\Model\schPresupuestosClienteServer_Intf.pas"/>
 		<DCCReference Include="..\Modulos\Presupuestos de cliente\Model\uBizPresupuestosClienteServer.pas"/>
 		<DCCReference Include="..\Modulos\Presupuestos de cliente\Reports\uRptPresupuestosCliente_Server.pas">
-			<Form>RptPresupuestosCliente</Form>
 			<DesignClass>TDataModule</DesignClass>
+			<Form>RptPresupuestosCliente</Form>
 		</DCCReference>
 		<DCCReference Include="..\Modulos\Presupuestos de cliente\Reports\uRptWordCertificadoTrabajo_Server.pas">
 			<DesignClass>TDataModule</DesignClass>
@@ -283,60 +283,60 @@
 			<Form>RptWordPresupuestoCliente</Form>
 		</DCCReference>
 		<DCCReference Include="..\Modulos\Presupuestos de cliente\Servidor\srvPresupuestosCliente_Impl.pas">
-			<Form>srvPresupuestosCliente</Form>
 			<DesignClass>TDataAbstractService</DesignClass>
+			<Form>srvPresupuestosCliente</Form>
 		</DCCReference>
 		<DCCReference Include="..\Modulos\Recibos de cliente\Model\schRecibosClienteClient_Intf.pas"/>
 		<DCCReference Include="..\Modulos\Recibos de cliente\Model\schRecibosClienteServer_Intf.pas"/>
 		<DCCReference Include="..\Modulos\Recibos de cliente\Reports\uRptRecibosCliente_Server.pas">
-			<Form>RptRecibosCliente</Form>
 			<DesignClass>TDataModule</DesignClass>
+			<Form>RptRecibosCliente</Form>
 		</DCCReference>
 		<DCCReference Include="..\Modulos\Recibos de cliente\Servidor\srvRecibosCliente_Impl.pas">
-			<Form>srvRecibosCliente</Form>
 			<DesignClass>TDataAbstractService</DesignClass>
+			<Form>srvRecibosCliente</Form>
 		</DCCReference>
 		<DCCReference Include="..\Modulos\Recibos de proveedor\Model\schRecibosProveedorClient_Intf.pas"/>
 		<DCCReference Include="..\Modulos\Recibos de proveedor\Model\schRecibosProveedorServer_Intf.pas"/>
 		<DCCReference Include="..\Modulos\Recibos de proveedor\Reports\uRptRecibosProveedor_Server.pas">
-			<Form>RptRecibosProveedor</Form>
 			<DesignClass>TDataModule</DesignClass>
+			<Form>RptRecibosProveedor</Form>
 		</DCCReference>
 		<DCCReference Include="..\Modulos\Recibos de proveedor\Servidor\srvRecibosProveedor_Impl.pas">
-			<Form>srvRecibosProveedor</Form>
 			<DesignClass>TDataAbstractService</DesignClass>
+			<Form>srvRecibosProveedor</Form>
 		</DCCReference>
 		<DCCReference Include="..\Modulos\Referencias\Model\schReferenciasClient_Intf.pas"/>
 		<DCCReference Include="..\Modulos\Referencias\Model\schReferenciasServer_Intf.pas"/>
 		<DCCReference Include="..\Modulos\Referencias\Servidor\srvReferencias_Impl.pas">
-			<Form>srvReferencias</Form>
 			<DesignClass>TDataAbstractService</DesignClass>
+			<Form>srvReferencias</Form>
 		</DCCReference>
 		<DCCReference Include="..\Modulos\Registro de correos\Servidor\srvRegistroCorreos_Impl.pas">
-			<Form>srvRegistroCorreos</Form>
 			<DesignClass>TDataAbstractService</DesignClass>
+			<Form>srvRegistroCorreos</Form>
 		</DCCReference>
 		<DCCReference Include="..\Modulos\Remesas de cliente\Model\schRemesasClienteClient_Intf.pas"/>
 		<DCCReference Include="..\Modulos\Remesas de cliente\Model\schRemesasClienteServer_Intf.pas"/>
 		<DCCReference Include="..\Modulos\Remesas de cliente\Model\uBizRemesasClienteServer.pas"/>
 		<DCCReference Include="..\Modulos\Remesas de cliente\Reports\uRptRemesasCliente_Server.pas">
-			<Form>RptRemesasCliente</Form>
 			<DesignClass>TDataModule</DesignClass>
+			<Form>RptRemesasCliente</Form>
 		</DCCReference>
 		<DCCReference Include="..\Modulos\Remesas de cliente\Servidor\srvRemesasCliente_Impl.pas">
-			<Form>srvRemesasCliente</Form>
 			<DesignClass>TDataAbstractService</DesignClass>
+			<Form>srvRemesasCliente</Form>
 		</DCCReference>
 		<DCCReference Include="..\Modulos\Remesas de proveedor\Model\schRemesasProveedorClient_Intf.pas"/>
 		<DCCReference Include="..\Modulos\Remesas de proveedor\Model\schRemesasProveedorServer_Intf.pas"/>
 		<DCCReference Include="..\Modulos\Remesas de proveedor\Model\uBizRemesasProveedorServer.pas"/>
 		<DCCReference Include="..\Modulos\Remesas de proveedor\Reports\uRptRemesasProveedor_Server.pas">
-			<Form>RptRemesasProveedor</Form>
 			<DesignClass>TDataModule</DesignClass>
+			<Form>RptRemesasProveedor</Form>
 		</DCCReference>
 		<DCCReference Include="..\Modulos\Remesas de proveedor\Servidor\srvRemesasProveedor_Impl.pas">
-			<Form>srvRemesasProveedor</Form>
 			<DesignClass>TDataAbstractService</DesignClass>
+			<Form>srvRemesasProveedor</Form>
 		</DCCReference>
 		<DCCReference Include="..\Modulos\Tienda web\Model\schTiendaWebClient_Intf.pas"/>
 		<DCCReference Include="..\Modulos\Tienda web\Model\schTiendaWebServer_Intf.pas"/>
@@ -347,63 +347,63 @@
 		<DCCReference Include="..\Modulos\Tienda web\Model\uBizOscProductServer.pas"/>
 		<DCCReference Include="..\Modulos\Tienda web\Model\uBizTiendaWebServer.pas"/>
 		<DCCReference Include="..\Modulos\Tienda web\Servidor\srvTiendaWeb_Impl.pas">
-			<Form>srvTiendaWeb</Form>
 			<DesignClass>TDataAbstractService</DesignClass>
+			<Form>srvTiendaWeb</Form>
 		</DCCReference>
 		<DCCReference Include="..\Modulos\Tipos de IVA\Model\schTiposIVAClient_Intf.pas"/>
 		<DCCReference Include="..\Modulos\Tipos de IVA\Model\schTiposIVAServer_Intf.pas"/>
 		<DCCReference Include="..\Modulos\Tipos de IVA\Servidor\srvTiposIVA_Impl.pas">
-			<Form>srvTiposIVA</Form>
 			<DesignClass>TDataAbstractService</DesignClass>
+			<Form>srvTiposIVA</Form>
 		</DCCReference>
 		<DCCReference Include="..\Modulos\TiposDocumento\Model\schTiposDocumentoClient_Intf.pas"/>
 		<DCCReference Include="..\Modulos\TiposDocumento\Model\schTiposDocumentoServer_Intf.pas"/>
 		<DCCReference Include="..\Modulos\TiposDocumento\Servidor\srvTiposDocumento_Impl.pas">
-			<Form>srvTiposDocumento</Form>
 			<DesignClass>TDataAbstractService</DesignClass>
+			<Form>srvTiposDocumento</Form>
 		</DCCReference>
 		<DCCReference Include="..\Modulos\Unidades de medida\Model\schUnidadesMedidaClient_Intf.pas"/>
 		<DCCReference Include="..\Modulos\Unidades de medida\Model\schUnidadesMedidaServer_Intf.pas"/>
 		<DCCReference Include="..\Modulos\Unidades de medida\Servidor\srvUnidadesMedida_Impl.pas">
-			<Form>srvUnidadesMedida</Form>
 			<DesignClass>TDataAbstractService</DesignClass>
+			<Form>srvUnidadesMedida</Form>
 		</DCCReference>
 		<DCCReference Include="..\Servicios\FactuGES_Intf.pas"/>
 		<DCCReference Include="..\Servicios\FactuGES_Invk.pas"/>
 		<DCCReference Include="Configuracion\srvConfiguracion_Impl.pas">
-			<Form>srvConfiguracion</Form>
 			<DesignClass>TDataAbstractService</DesignClass>
+			<Form>srvConfiguracion</Form>
 		</DCCReference>
 		<DCCReference Include="Configuracion\uConexionBD.pas">
-			<Form>frConexionBD</Form>
 			<DesignClass>TFrame</DesignClass>
+			<Form>frConexionBD</Form>
 		</DCCReference>
 		<DCCReference Include="Configuracion\uConexionOSC.pas">
-			<Form>frConexionOSC</Form>
 			<DesignClass>TFrame</DesignClass>
+			<Form>frConexionOSC</Form>
 		</DCCReference>
 		<DCCReference Include="Configuracion\uConfGeneral.pas">
-			<Form>frConfGeneral</Form>
 			<DesignClass>TFrame</DesignClass>
+			<Form>frConfGeneral</Form>
 		</DCCReference>
 		<DCCReference Include="Configuracion\uConfiguracion.pas">
-			<Form>fConfiguracion</Form>
 			<DesignClass>TForm</DesignClass>
+			<Form>fConfiguracion</Form>
 		</DCCReference>
 		<DCCReference Include="Configuracion\uFrameConfiguracion.pas">
-			<Form>FrameConfiguracion</Form>
 			<DesignClass>TFrame</DesignClass>
+			<Form>FrameConfiguracion</Form>
 		</DCCReference>
 		<DCCReference Include="srvLogin_Impl.pas">
-			<Form>srvLogin</Form>
 			<DesignClass>TDARemoteService</DesignClass>
+			<Form>srvLogin</Form>
 		</DCCReference>
 		<DCCReference Include="uAcercaDe.pas">
 			<Form>fAcercaDe</Form>
 		</DCCReference>
 		<DCCReference Include="uDataModuleServer.pas">
-			<Form>dmServer</Form>
 			<DesignClass>TDataModule</DesignClass>
+			<Form>dmServer</Form>
 		</DCCReference>
 		<DCCReference Include="uServerMainForm.pas">
 			<Form>fServerForm</Form>
@@ -423,7 +423,7 @@
 <!-- EurekaLog First Line
 [Exception Log]
 EurekaLog Version=6011
-Activate=0
+Activate=1
 Activate Handle=1
 Save Log File=1
 Foreground Tab=0

Source/Servidor/FactuGES_Server.rc

@@ -14,7 +14,7 @@ BEGIN
          BEGIN
               VALUE "FileVersion", "4.3.7.0\0"
               VALUE "ProductVersion", "4.3.7.0\0"
-              VALUE "CompileDate", "viernes, 07 de febrero de 2014 16:32\0"
+              VALUE "CompileDate", "jueves, 20 de febrero de 2014 23:32\0"
          END
     END
     BLOCK "VarFileInfo"