Version 4.7.4

git-svn-id: https://192.168.0.254/svn/Proyectos.AbetoDesign_FactuGES/trunk@197 93f398dd-4eb6-7a46-baf6-13f46f578da2

Source/Cliente/FactuGES.dproj

@@ -52,7 +52,7 @@
     <Borland.Personality>Delphi.Personality</Borland.Personality>
     <Borland.ProjectType>VCLApplication</Borland.ProjectType>
     <BorlandProject>
-<BorlandProject><Delphi.Personality><Parameters><Parameters Name="UseLauncher">False</Parameters><Parameters Name="LoadAllSymbols">True</Parameters><Parameters Name="LoadUnspecifiedSymbols">False</Parameters></Parameters><Language><Language Name="RootDir">C:\Archivos de programa\Borland\Delphi7\Bin\</Language></Language><VersionInfo><VersionInfo Name="IncludeVerInfo">True</VersionInfo><VersionInfo Name="AutoIncBuild">False</VersionInfo><VersionInfo Name="MajorVer">4</VersionInfo><VersionInfo Name="MinorVer">7</VersionInfo><VersionInfo Name="Release">2</VersionInfo><VersionInfo Name="Build">0</VersionInfo><VersionInfo Name="Debug">False</VersionInfo><VersionInfo Name="PreRelease">False</VersionInfo><VersionInfo Name="Special">False</VersionInfo><VersionInfo Name="Private">False</VersionInfo><VersionInfo Name="DLL">False</VersionInfo><VersionInfo Name="Locale">3082</VersionInfo><VersionInfo Name="CodePage">1252</VersionInfo></VersionInfo><VersionInfoKeys><VersionInfoKeys Name="CompanyName">Rodax Software S.L.</VersionInfoKeys><VersionInfoKeys Name="FileDescription"></VersionInfoKeys><VersionInfoKeys Name="FileVersion">4.7.2.0</VersionInfoKeys><VersionInfoKeys Name="InternalName">FactuGES</VersionInfoKeys><VersionInfoKeys Name="LegalCopyright"></VersionInfoKeys><VersionInfoKeys Name="LegalTrademarks"></VersionInfoKeys><VersionInfoKeys Name="OriginalFilename"></VersionInfoKeys><VersionInfoKeys Name="ProductName">FactuGES</VersionInfoKeys><VersionInfoKeys Name="ProductVersion">4.7.2.0</VersionInfoKeys><VersionInfoKeys Name="Comments"></VersionInfoKeys></VersionInfoKeys><Excluded_Packages>
+<BorlandProject><Delphi.Personality><Parameters><Parameters Name="UseLauncher">False</Parameters><Parameters Name="LoadAllSymbols">True</Parameters><Parameters Name="LoadUnspecifiedSymbols">False</Parameters></Parameters><Language><Language Name="RootDir">C:\Archivos de programa\Borland\Delphi7\Bin\</Language></Language><VersionInfo><VersionInfo Name="IncludeVerInfo">True</VersionInfo><VersionInfo Name="AutoIncBuild">False</VersionInfo><VersionInfo Name="MajorVer">4</VersionInfo><VersionInfo Name="MinorVer">7</VersionInfo><VersionInfo Name="Release">4</VersionInfo><VersionInfo Name="Build">0</VersionInfo><VersionInfo Name="Debug">False</VersionInfo><VersionInfo Name="PreRelease">False</VersionInfo><VersionInfo Name="Special">False</VersionInfo><VersionInfo Name="Private">False</VersionInfo><VersionInfo Name="DLL">False</VersionInfo><VersionInfo Name="Locale">3082</VersionInfo><VersionInfo Name="CodePage">1252</VersionInfo></VersionInfo><VersionInfoKeys><VersionInfoKeys Name="CompanyName">Rodax Software S.L.</VersionInfoKeys><VersionInfoKeys Name="FileDescription"></VersionInfoKeys><VersionInfoKeys Name="FileVersion">4.7.4.0</VersionInfoKeys><VersionInfoKeys Name="InternalName">FactuGES</VersionInfoKeys><VersionInfoKeys Name="LegalCopyright"></VersionInfoKeys><VersionInfoKeys Name="LegalTrademarks"></VersionInfoKeys><VersionInfoKeys Name="OriginalFilename"></VersionInfoKeys><VersionInfoKeys Name="ProductName">FactuGES</VersionInfoKeys><VersionInfoKeys Name="ProductVersion">4.7.4.0</VersionInfoKeys><VersionInfoKeys Name="Comments"></VersionInfoKeys></VersionInfoKeys><Excluded_Packages>
       
       <Excluded_Packages Name="C:\Documents and Settings\All Users\Documentos\RAD Studio\5.0\Bpl\dxPScxScheduler2LnkD11.bpl">File C:\Documents and Settings\All Users\Documentos\RAD Studio\5.0\Bpl\dxPScxScheduler2LnkD11.bpl not found</Excluded_Packages>
     </Excluded_Packages><Source><Source Name="MainSource">FactuGES.dpr</Source></Source></Delphi.Personality><ModelSupport>False</ModelSupport></BorlandProject></BorlandProject>

Source/GUIBase/uViewDetallesBase.dfm

@@ -845,5 +845,9 @@ inherited frViewDetallesBase: TfrViewDetallesBase
       Font.Name = 'Lucida Console'
       Font.Style = []
     end
+    object cxStyleEdicion: TcxStyle
+      AssignedValues = [svColor]
+      Color = 13303807
+    end
   end
 end

Source/GUIBase/uViewDetallesBase.pas

@@ -109,6 +109,7 @@ type
     cxStyle_DESCUENTO: TcxStyle;
     cxStyleDesactivado: TcxStyle;
     cxGridViewVALORADO: TcxGridDBColumn;
+    cxStyleEdicion: TcxStyle;
 
     procedure actAnadirExecute(Sender: TObject);
     procedure actEliminarExecute(Sender: TObject);
@@ -426,6 +427,10 @@ begin
       else
         if Length(AEditValue) = 0 then
            CurEdit.DefAttributes.Assign(FuentePorDefecto);
+
+      //Establecemos un color de edición único para evitar el fallo de color verde en conceptos
+      CurEdit.Style.Color := cxStyleEdicion.Color;
+           
     finally
       FreeAndNil(FuentePorDefecto);
     end;

Source/Modulos/Albaranes de cliente/Controller/uAlbaranesClienteController.pas

@@ -944,6 +944,8 @@ end;
 function TAlbaranesClienteController.Guardar(AAlbaran: IBizAlbaranCliente): Boolean;
 var
   IDNuevo: Integer;
+  ABookmark : TBookmark;
+
 begin
   Result := False;
 
@@ -953,6 +955,12 @@ begin
   if not Assigned(FDetallesController) then
     raise Exception.Create ('Controller detalles no asignado');
 
+  //Preparamos todo para recuparar la posición de los detalles para despues de guardar no vaya al principio de los detalles
+//OJO en este caso si activamos la desactivación de tabla no guarda los importes de cabecera
+//  AAlbaran.DataTable.DisableControls;
+//  AAlbaran.DataTable.DisableEventHandlers;
+  ABookmark := AAlbaran.Detalles.DataTable.GetBookMark;
+
   if ValidarAlbaran(AAlbaran) then
   begin
     ShowHourglassCursor;
@@ -964,6 +972,13 @@ begin
       AAlbaran.DataTable.ApplyUpdates;
       Result := True;
     finally
+      //Recuparamos la posición de los detalles para despues de guardar no vaya al principio de los detalles
+//OJO en este caso si activamos la desactivación de tabla no guarda los importes de cabecera      
+//      AAlbaran.DataTable.EnableEventHandlers;
+//      AAlbaran.DataTable.EnableControls;
+      AAlbaran.Detalles.DataTable.GotoBookmark(ABookmark);
+      AAlbaran.Detalles.DataTable.FreeBookmark(ABookmark);
+
       HideHourglassCursor;
     end;
   end;

Source/Modulos/Albaranes de cliente/Views/uViewAlbaranCliente.dfm

@@ -1,25 +1,27 @@
 inherited frViewAlbaranCliente: TfrViewAlbaranCliente
-  Width = 1057
+  Width = 1139
-  Height = 671
+  Height = 790
   OnCreate = CustomViewCreate
   OnDestroy = CustomViewDestroy
-  ExplicitWidth = 1057
+  ExplicitWidth = 1139
-  ExplicitHeight = 671
+  ExplicitHeight = 790
   object dxLayoutControl1: TdxLayoutControl
     Left = 0
     Top = 0
-    Width = 1057
+    Width = 1139
-    Height = 671
+    Height = 790
     Align = alClient
     ParentBackground = True
     TabOrder = 0
     TabStop = False
     AutoContentSizes = [acsWidth, acsHeight]
+    ExplicitWidth = 1057
+    ExplicitHeight = 671
     DesignSize = (
-      1057
+      1139
-      671)
+      790)
     object Label1: TLabel
-      Left = 412
+      Left = 451
       Top = 729
       Width = 299
       Height = 26
@@ -81,7 +83,7 @@ inherited frViewAlbaranCliente: TfrViewAlbaranCliente
       Width = 284
     end
     inline frViewClienteAlbaran: TfrViewDatosYSeleccionClienteAlbaran
-      Left = 412
+      Left = 451
       Top = 28
       Width = 604
       Height = 245
@@ -93,7 +95,7 @@ inherited frViewAlbaranCliente: TfrViewAlbaranCliente
       ParentFont = False
       TabOrder = 10
       ReadOnly = False
-      ExplicitLeft = 412
+      ExplicitLeft = 451
       ExplicitTop = 28
       ExplicitWidth = 604
       ExplicitHeight = 245
@@ -111,24 +113,24 @@ inherited frViewAlbaranCliente: TfrViewAlbaranCliente
           Width = 103
         end
         inherited bVerFichaCliente: TBitBtn
-          Left = 402
+          Left = 464
-          ExplicitLeft = 402
+          ExplicitLeft = 464
         end
         inherited edtDireccion: TcxMemo
           ExplicitWidth = 437
           Width = 437
         end
         inherited bElegirDireccion: TButton
-          Left = 571
+          Left = 633
-          ExplicitLeft = 571
+          ExplicitLeft = 633
         end
         inherited edtTelefonos: TcxTextEdit
           ExplicitWidth = 193
           Width = 193
         end
         inherited edtReferencia: TcxDBTextEdit
-          Left = 362
+          Left = 392
-          ExplicitLeft = 362
+          ExplicitLeft = 392
           ExplicitWidth = 103
           Width = 103
         end
@@ -145,7 +147,7 @@ inherited frViewAlbaranCliente: TfrViewAlbaranCliente
       end
     end
     object ePoblacion: TcxDBTextEdit
-      Left = 506
+      Left = 545
       Top = 476
       DataBinding.DataField = 'POBLACION'
       DataBinding.DataSource = DADataSource
@@ -164,7 +166,7 @@ inherited frViewAlbaranCliente: TfrViewAlbaranCliente
       Width = 61
     end
     object eCodigoPostal: TcxDBTextEdit
-      Left = 951
+      Left = 1052
       Top = 476
       DataBinding.DataField = 'CODIGO_POSTAL'
       DataBinding.DataSource = DADataSource
@@ -183,7 +185,7 @@ inherited frViewAlbaranCliente: TfrViewAlbaranCliente
       Width = 65
     end
     object eProvincia: TcxDBTextEdit
-      Left = 506
+      Left = 545
       Top = 503
       DataBinding.DataField = 'PROVINCIA'
       DataBinding.DataSource = DADataSource
@@ -202,7 +204,7 @@ inherited frViewAlbaranCliente: TfrViewAlbaranCliente
       Width = 406
     end
     object ePersonaContacto: TcxDBTextEdit
-      Left = 506
+      Left = 545
       Top = 557
       DataBinding.DataField = 'PERSONA_CONTACTO'
       DataBinding.DataSource = DADataSource
@@ -222,7 +224,7 @@ inherited frViewAlbaranCliente: TfrViewAlbaranCliente
       Width = 284
     end
     object eTlfTrabajo: TcxDBTextEdit
-      Left = 506
+      Left = 545
       Top = 584
       DataBinding.DataField = 'TELEFONO'
       DataBinding.DataSource = DADataSource
@@ -241,7 +243,7 @@ inherited frViewAlbaranCliente: TfrViewAlbaranCliente
       Width = 284
     end
     object Button1: TButton
-      Left = 250
+      Left = 289
       Top = 138
       Width = 132
       Height = 23
@@ -303,7 +305,7 @@ inherited frViewAlbaranCliente: TfrViewAlbaranCliente
       Width = 146
     end
     object bFormasPago: TButton
-      Left = 250
+      Left = 289
       Top = 109
       Width = 132
       Height = 23
@@ -312,7 +314,7 @@ inherited frViewAlbaranCliente: TfrViewAlbaranCliente
       OnClick = bFormasPagoClick
     end
     object eFechaRecepcion: TcxDBDateEdit
-      Left = 546
+      Left = 585
       Top = 363
       Anchors = [akLeft, akTop, akRight]
       DataBinding.DataField = 'FECHA_RECEPCION'
@@ -337,7 +339,7 @@ inherited frViewAlbaranCliente: TfrViewAlbaranCliente
       Width = 239
     end
     object cbConAlmacen: TCheckBox
-      Left = 422
+      Left = 461
       Top = 697
       Width = 179
       Height = 21
@@ -346,7 +348,7 @@ inherited frViewAlbaranCliente: TfrViewAlbaranCliente
       OnClick = cbConAlmacenClick
     end
     object cbAlmacen: TcxDBLookupComboBox
-      Left = 607
+      Left = 646
       Top = 697
       DataBinding.DataField = 'ID_ALMACEN'
       DataBinding.DataSource = DADataSource
@@ -402,7 +404,7 @@ inherited frViewAlbaranCliente: TfrViewAlbaranCliente
       Width = 284
     end
     object eFechaPrevista: TcxDBDateEdit
-      Left = 546
+      Left = 585
       Top = 309
       Anchors = [akLeft, akTop, akRight]
       DataBinding.DataField = 'FECHA_PREVISTA_ENVIO'
@@ -453,7 +455,7 @@ inherited frViewAlbaranCliente: TfrViewAlbaranCliente
       Width = 284
     end
     object eFechaEnvio: TcxDBDateEdit
-      Left = 546
+      Left = 585
       Top = 336
       Anchors = [akLeft, akTop, akRight]
       DataBinding.DataField = 'FECHA_ENVIO'
@@ -527,7 +529,7 @@ inherited frViewAlbaranCliente: TfrViewAlbaranCliente
       end
     end
     object eCalle: TcxDBMemo
-      Left = 506
+      Left = 545
       Top = 420
       Anchors = [akLeft, akTop, akRight, akBottom]
       DataBinding.DataField = 'CALLE'
@@ -549,7 +551,7 @@ inherited frViewAlbaranCliente: TfrViewAlbaranCliente
       Width = 772
     end
     object eNotasEnvio: TcxDBMemo
-      Left = 506
+      Left = 545
       Top = 611
       Anchors = [akLeft, akTop, akRight, akBottom]
       DataBinding.DataField = 'NOTAS_ENVIO'
@@ -571,7 +573,7 @@ inherited frViewAlbaranCliente: TfrViewAlbaranCliente
       Width = 510
     end
     object cbPais: TcxDBComboBox
-      Left = 506
+      Left = 545
       Top = 530
       DataBinding.DataField = 'PAIS'
       DataBinding.DataSource = DADataSource
@@ -731,7 +733,6 @@ inherited frViewAlbaranCliente: TfrViewAlbaranCliente
         end
         object dxLayoutControl1Group12: TdxLayoutGroup
           Caption = 'Fechas de envio y recepci'#243'n'
-          Visible = False
           object dxLayoutControl1Item24: TdxLayoutItem
             AutoAligns = [aaVertical]
             AlignHorz = ahClient

Source/Modulos/Albaranes de proveedor/Controller/uAlbaranesProveedorController.pas

@@ -1203,6 +1203,8 @@ end;
 function TAlbaranesProveedorController.Guardar(AAlbaran: IBizAlbaranProveedor): Boolean;
 var
   IDNuevo: Integer;
+  ABookmark : TBookmark;
+
 begin
   Result := False;
 
@@ -1212,6 +1214,12 @@ begin
   if not Assigned(FDetallesController) then
     raise Exception.Create ('Controller detalles no asignado');
 
+  //Preparamos todo para recuparar la posición de los detalles para despues de guardar no vaya al principio de los detalles
+//OJO en este caso si activamos la desactivación de tabla no guarda los importes del pedido
+//  AAlbaran.DataTable.DisableControls;
+//  AAlbaran.DataTable.DisableEventHandlers;
+  ABookmark := AAlbaran.Detalles.DataTable.GetBookMark;
+
   if ValidarAlbaran(AAlbaran) then
   begin
     ShowHourglassCursor;
@@ -1223,6 +1231,13 @@ begin
       AAlbaran.DataTable.ApplyUpdates;
       Result := True;
     finally
+      //Recuparamos la posición de los detalles para despues de guardar no vaya al principio de los detalles
+//OJO en este caso si activamos la desactivación de tabla no guarda los importes del pedido
+//      AAlbaran.DataTable.EnableEventHandlers;
+//      AAlbaran.DataTable.EnableControls;
+      AAlbaran.Detalles.DataTable.GotoBookmark(ABookmark);
+      AAlbaran.Detalles.DataTable.FreeBookmark(ABookmark);
+    
       HideHourglassCursor;
     end;
   end;

Source/Modulos/Articulos/Controller/uArticulosController.pas

@@ -43,6 +43,9 @@ type
     function GetProveedoresController: IProveedoresController;
     property ProveedoresController: IProveedoresController read GetProveedoresController;
 
+    function EsModificable(AArticulo : IBizArticulo): Boolean;
+    function EsEliminable(AArticulo : IBizArticulo): Boolean;
+
     procedure SetPrecioPunto (const AValue: Currency);
     function GetPrecioPunto: Currency;
     property PrecioPunto : Currency read GetPrecioPunto write SetPrecioPunto;
@@ -104,6 +107,9 @@ type
     function ElegirArticulos(AArticulos : IBizArticulo; AMensaje: String; AMultiSelect: Boolean): IBizArticulo; virtual;
     procedure CalcularPrecioNeto(AArticulos: IBizArticulo);
 
+    function EsModificable(AArticulo : IBizArticulo): Boolean;
+    function EsEliminable(AArticulo : IBizArticulo): Boolean;
+
     procedure ElegirProveedor(AArticulo : IBizArticulo);
     procedure AnadirProveedor(AArticulo : IBizArticulo);
     procedure VerProveedor(AArticulo : IBizArticulo);
@@ -395,9 +401,13 @@ begin
         while not EOF do
         begin
           begin
-            Edit;
+            //El artículo libre comisionable no podrá cambiarse de valor
-            AArticulos.COMISIONABLE := Valor;
+            if (AArticulos.ID <> CTE_ART_COMISIONABLE_MODIFICABLE) then
-            Post;
+            begin
+              Edit;
+              AArticulos.COMISIONABLE := Valor;
+              Post;
+            end;
           end;
           Next;
         end;
@@ -632,6 +642,22 @@ begin
   end;
 end;
 
+function TArticulosController.EsEliminable(AArticulo: IBizArticulo): Boolean;
+begin
+  if not Assigned(AArticulo) then
+    raise Exception.Create ('Articulo no asignado (EsEliminable)');
+
+  Result := AArticulo.ID <> CTE_ART_COMISIONABLE_MODIFICABLE;
+end;
+
+function TArticulosController.EsModificable(AArticulo: IBizArticulo): Boolean;
+begin
+  if not Assigned(AArticulo) then
+    raise Exception.Create ('Articulo no asignado (EsModificable)');
+
+  Result := AArticulo.ID <> CTE_ART_COMISIONABLE_MODIFICABLE;
+end;
+
 procedure TArticulosController.RecibirAviso(ASujeto: ISujeto; ADataTable: IDAStronglyTypedDataTable);
 begin
   inherited;

Source/Modulos/Articulos/Model/uBizArticulos.pas

@@ -9,6 +9,7 @@ uses
 const
   BIZ_CLIENT_ARTICULO = 'Client.Articulo';
   CTE_TARIFA_COMPRAS = 'Compras';
+  CTE_ART_COMISIONABLE_MODIFICABLE = 1;  
 
 type
   IBizArticulo = interface(IArticulos)

Source/Modulos/Articulos/Views/uEditorArticulo.dfm

@@ -113,6 +113,7 @@ inherited fEditorArticulo: TfEditorArticulo
   inherited pgPaginas: TPageControl
     Width = 951
     Height = 535
+    ActivePage = pagPrecios
     ExplicitTop = 112
     ExplicitWidth = 951
     ExplicitHeight = 535

Source/Modulos/Articulos/Views/uEditorArticulo.pas

@@ -32,6 +32,7 @@ type
     procedure CustomEditorClose(Sender: TObject; var Action: TCloseAction);
     procedure actFamiliasExecute(Sender: TObject);
     procedure actSubFamiliasExecute(Sender: TObject);
+    procedure actEliminarUpdate(Sender: TObject);
   protected
     FController : IArticulosController;
     FArticulo: IBizArticulo;
@@ -148,6 +149,9 @@ begin
     raise Exception.Create('No hay ningún almacén asignado');
 
   Articulo.DataTable.Active := True;
+
+  if (FArticulo.ID = CTE_ART_COMISIONABLE_MODIFICABLE) then
+    pagPrecios.Enabled := False;
 end;
 
 destructor TfEditorArticulo.Destroy;
@@ -156,6 +160,13 @@ begin
   inherited;
 end;
 
+procedure TfEditorArticulo.actEliminarUpdate(Sender: TObject);
+begin
+  inherited;
+  if (not FController.EsEliminable(FArticulo)) then
+    (Sender as TAction).Enabled := False;
+end;
+
 procedure TfEditorArticulo.actFamiliasExecute(Sender: TObject);
 var
   AFamiliasController : IFamiliasController;

Source/Modulos/Articulos/Views/uEditorArticulos.pas

@@ -277,8 +277,8 @@ end;
 procedure TfEditorArticulos.actEliminarUpdate(Sender: TObject);
 begin
   inherited;
-
+  if (ViewGrid.NumSeleccionados <> 1)
-  if (ViewGrid.NumSeleccionados <> 1) then
+  or (not Controller.EsEliminable(FArticulos)) then
     (Sender as TAction).Enabled := False;
 end;
 

Source/Modulos/Articulos/Views/uViewArticulo.dfm

@@ -1,6 +1,6 @@
 inherited frViewArticulo: TfrViewArticulo
-  Width = 1177
+  Width = 1046
-  Height = 608
+  Height = 571
   Align = alClient
   OnCreate = CustomViewCreate
   OnDestroy = CustomViewDestroy
@@ -10,7 +10,7 @@ inherited frViewArticulo: TfrViewArticulo
   object dxLayoutControlArticulo: TdxLayoutControl
     Left = 0
     Top = 0
-    Width = 1177
+    Width = 1046
     Height = 833
     Align = alTop
     ParentBackground = True
@@ -19,10 +19,10 @@ inherited frViewArticulo: TfrViewArticulo
     AutoContentSizes = [acsWidth]
     ExplicitWidth = 451
     DesignSize = (
-      1177
+      1046
       833)
     object PngSpeedButton2: TPngSpeedButton
-      Left = 1113
+      Left = 982
       Top = 867
       Width = 23
       Height = 22
@@ -49,7 +49,7 @@ inherited frViewArticulo: TfrViewArticulo
       PngOptions = [pngBlendOnDisabled, pngGrayscaleOnDisabled]
     end
     object PngSpeedButton1: TPngSpeedButton
-      Left = 1113
+      Left = 982
       Top = 895
       Width = 23
       Height = 22
@@ -160,7 +160,6 @@ inherited frViewArticulo: TfrViewArticulo
       ExplicitLeft = 22
       ExplicitTop = 629
       inherited dxLayoutControl1: TdxLayoutControl
-        ExplicitWidth = 537
         inherited edtNIFCIF: TcxDBTextEdit
           ExplicitWidth = 562
           Width = 562
@@ -178,12 +177,12 @@ inherited frViewArticulo: TfrViewArticulo
           Width = 327
         end
         inherited edtCodigoPostal: TcxDBTextEdit
-          Left = 1022
+          Left = 891
-          ExplicitLeft = 1022
+          ExplicitLeft = 891
         end
         inherited Button3: TBitBtn
-          Left = 906
+          Left = 775
-          ExplicitLeft = 906
+          ExplicitLeft = 775
         end
       end
     end
@@ -422,7 +421,7 @@ inherited frViewArticulo: TfrViewArticulo
       Width = 664
     end
     object eReferenciaFab: TcxDBTextEdit
-      Left = 688
+      Left = 623
       Top = 410
       DataBinding.DataField = 'REFERENCIA_FAB'
       DataBinding.DataSource = dsViewArticulo
@@ -533,7 +532,7 @@ inherited frViewArticulo: TfrViewArticulo
       ExplicitWidth = 1311
       inherited cxGrid: TcxGrid
         Width = 1311
-        ExplicitWidth = 537
+        ExplicitWidth = 1311
         inherited cxGridView: TcxGridDBTableView
           inherited cxGridViewID_IDIOMA: TcxGridDBColumn
             Properties.ReadOnly = True
@@ -542,7 +541,7 @@ inherited frViewArticulo: TfrViewArticulo
       end
       inherited ToolBar1: TToolBar
         Width = 1311
-        ExplicitWidth = 537
+        ExplicitWidth = 1311
         inherited ToolButton1: TToolButton
           ExplicitWidth = 92
         end

Source/Modulos/Articulos/Views/uViewArticulo.pas

@@ -383,6 +383,12 @@ end;
 procedure TfrViewArticulo.CustomViewShow(Sender: TObject);
 begin
   inherited;
+
+  if (FArticulo.ID = CTE_ART_COMISIONABLE_MODIFICABLE) then
+  begin
+    dxLayoutControlArticuloGroup11.Enabled := false;
+    dxLayoutControlArticuloGroup13.Enabled := false;
+  end;
 //  ePrecioCoste.Properties.OnEditValueChanged := PrecioNetoChanged;
 //  eDescuento.Properties.OnEditValueChanged := PrecioNetoChanged;
 end;

Source/Modulos/Contactos/Views/uViewClienteDatosDistribuidor.dfm

@@ -325,6 +325,7 @@ inherited frViewClienteDatosDistribuidor: TfrViewClienteDatosDistribuidor
               AlignHorz = ahClient
               Caption = 'Validez presupuestos por defecto'
               Enabled = False
+              Visible = False
               object dxLayoutControl1Item1: TdxLayoutItem
                 Control = eValidezDistribuidor
                 ControlOptions.ShowBorder = False
@@ -333,6 +334,7 @@ inherited frViewClienteDatosDistribuidor: TfrViewClienteDatosDistribuidor
             object dlformapago: TdxLayoutGroup
               Caption = 'Forma de pago por defecto'
               Enabled = False
+              Visible = False
               object dxLayoutControl1Item3: TdxLayoutItem
                 Control = eFormaPagoDistribuidor
                 ControlOptions.ShowBorder = False
@@ -342,6 +344,7 @@ inherited frViewClienteDatosDistribuidor: TfrViewClienteDatosDistribuidor
           object dlnotas: TdxLayoutGroup
             Caption = 'Notas por defecto'
             Enabled = False
+            Visible = False
             object dxLayoutControl1Item2: TdxLayoutItem
               Control = eNotasDistribuidor
               ControlOptions.ShowBorder = False
@@ -351,6 +354,7 @@ inherited frViewClienteDatosDistribuidor: TfrViewClienteDatosDistribuidor
         object dllopd: TdxLayoutGroup
           Caption = 'LOPD del distribuidor'
           Enabled = False
+          Visible = False
           object dxLayoutControl1Item5: TdxLayoutItem
             Control = eLOPDDistribuidor
             ControlOptions.ShowBorder = False
@@ -360,6 +364,7 @@ inherited frViewClienteDatosDistribuidor: TfrViewClienteDatosDistribuidor
       object dlcondiciones: TdxLayoutGroup
         Caption = 'Condiciones por defecto'
         Enabled = False
+        Visible = False
         object dxLayoutControl1Item6: TdxLayoutItem
           Control = eCondicionesDistribuidor
           ControlOptions.ShowBorder = False

Source/Modulos/Contactos/Views/uViewClienteDatosDistribuidor.pas

@@ -131,22 +131,22 @@ begin
     dlBloquear.Enabled := True;
     dlusuario.Enabled := True;
     dlcontrasena.Enabled := True;
-    dlValidez.Enabled := True;
+//    dlValidez.Enabled := True;
-    dlFormaPago.Enabled := True;
+//    dlFormaPago.Enabled := True;
-    dlNotas.Enabled := True;
+//    dlNotas.Enabled := True;
-    dlLOPD.Enabled := True;
+//    dlLOPD.Enabled := True;
-    dlCondiciones.Enabled := True;
+//    dlCondiciones.Enabled := True;
   end
   else
   begin
     dlBloquear.Enabled := False;
     dlusuario.Enabled := False;
     dlcontrasena.Enabled := False;
-    dlValidez.Enabled := False;
+//    dlValidez.Enabled := False;
-    dlFormaPago.Enabled := False;
+//    dlFormaPago.Enabled := False;
-    dlNotas.Enabled := False;
+//    dlNotas.Enabled := False;
-    dlLOPD.Enabled := False;
+//    dlLOPD.Enabled := False;
-    dlCondiciones.Enabled := False;
+//    dlCondiciones.Enabled := False;
   end;
 
   if eBloqueado.Checked then

Source/Modulos/Contratos de cliente/Controller/uContratosClienteController.pas

@@ -79,7 +79,7 @@ type
     procedure VerListadoBeneficios;
 	  procedure VerDireccionEntrega(AContrato : IBizContratoCliente);
 
-    function MandarFabrica(AContrato: IBizContratoCliente): Boolean;
+    function MandarFabrica(AContrato: IBizContratoCliente; AClonarContrato: Boolean = true): Boolean;
     function AceptarContrato(AContrato: IBizContratoCliente): Boolean;
     function AnadirIncidenciaContrato(AIdContrato: Integer): Boolean;
   end;
@@ -171,7 +171,7 @@ type
     procedure VerListadoBeneficios;
 	  procedure VerDireccionEntrega(AContrato : IBizContratoCliente);
 
-    function MandarFabrica(AContrato: IBizContratoCliente): Boolean;
+    function MandarFabrica(AContrato: IBizContratoCliente; AClonarContrato: Boolean = true): Boolean;
     function AceptarContrato(AContrato: IBizContratoCliente): Boolean;
     function AnadirIncidenciaContrato(AIdContrato: Integer): Boolean;
   end;
@@ -914,8 +914,7 @@ begin
   end;
 end;
 
-function TContratosClienteController.ValidarContrato(
+function TContratosClienteController.ValidarContrato(AContrato: IBizContratoCliente): Boolean;
-  AContrato: IBizContratoCliente): Boolean;
 begin
   if not Assigned(AContrato) then
      raise Exception.Create ('Contrato no asignado');
@@ -943,11 +942,11 @@ begin
   if (AContrato.Detalles.DataTable.RecordCount = 0) then
     raise Exception.Create('El contrato debe tener en su contenido al menos un concepto');
 
-
   FDetallesController.ValidarDetalles(AContrato.Detalles);
 
   { Asegurarse de valores en campos "automáticos" tanto
     en MODIFICACIÓN como en INSERCIÓN. }
+
   AContrato.Edit;
   try
 	AContrato.USUARIO := AppFactuGES.UsuarioActivo.UserName;
@@ -1258,6 +1257,7 @@ procedure TContratosClienteController.RecalcularImportes(
 var
   bEnEdicion : Boolean;
   ADetallePosAct : Integer;
+
 begin
   if not Assigned(AContrato) then
     raise Exception.Create ('Contrato no asignado (RecalcularImportes)');
@@ -1307,6 +1307,8 @@ end;
 procedure TContratosClienteController.RecuperarObjetos(AContrato: IBizContratoCliente);
 begin
   RecuperarCliente(AContrato);
+  if (AContrato.ENVIADA_REVISADA = 10) then
+     MandarFabrica(AContrato, False);
 end;
 
 procedure TContratosClienteController.RellenarValoresDefecto(AContrato: IBizContratoCliente; ATipo: TEnumTiposContrato);
@@ -1497,6 +1499,9 @@ end;
 }
 
 function TContratosClienteController.Guardar(AContrato: IBizContratoCliente): Boolean;
+var
+  ABookmark : TBookmark;
+
 begin
   Result := False;
 
@@ -1506,6 +1511,11 @@ begin
   if not Assigned(FDetallesController) then
     raise Exception.Create ('Controller detalles no asignado');
 
+  //Preparamos todo para recuparar la posición de los detalles para despues de guardar no vaya al principio de los detalles
+  AContrato.DataTable.DisableControls;
+  AContrato.DataTable.DisableEventHandlers;
+  ABookmark := AContrato.Detalles.DataTable.GetBookMark;
+
   if ValidarContrato(AContrato) then
   begin
     ShowHourglassCursor;
@@ -1517,6 +1527,12 @@ begin
       AContrato.DataTable.ApplyUpdates;
       Result := True;
     finally
+      //Preparamos todo para recuparar la posición de los detalles para despues de guardar no vaya al principio de los detalles
+      AContrato.DataTable.EnableEventHandlers;
+      AContrato.DataTable.EnableControls;
+      AContrato.Detalles.DataTable.GotoBookmark(ABookmark);
+      AContrato.Detalles.DataTable.FreeBookmark(ABookmark);
+
       HideHourglassCursor;
     end;
   end;
@@ -1541,7 +1557,7 @@ begin
   end;
 end;
 
-function TContratosClienteController.MandarFabrica(AContrato: IBizContratoCliente): Boolean;
+function TContratosClienteController.MandarFabrica(AContrato: IBizContratoCliente; AClonarContrato: Boolean = true): Boolean;
 var
   AContratoFabrica : IBizContratoCliente;
 
@@ -1550,7 +1566,11 @@ begin
   ShowHourglassCursor;
   try
 
-    AContratoFabrica := Duplicar(AContrato);
+    //En el caso de contrato de presupuestador WEB no clonamos modificamos el contrato pasado
+    if AClonarContrato then
+      AContratoFabrica := Duplicar(AContrato)
+    else
+      AContratoFabrica := AContrato;
 
     // Hay que dejar algunos campos como si fuera un contrato nuevo
     AContratoFabrica.Edit;
@@ -1559,19 +1579,36 @@ begin
       ID_EMPRESA := CTE_EMPRESA_FABRICA;
       ID_TIENDA := CTE_EMPRESA_FABRICA;
       USUARIO := AppFactuGES.UsuarioActivo.UserName;
-      FECHA_CONTRATO := DateOf(Now);
+
+      //En el caso de contrato de presupuestador WEB no se toca la fecha recibida
+      if AClonarContrato then
+      begin
+        FECHA_CONTRATO := DateOf(Now);
+        REFERENCIA_CLIENTE := AContrato.REFERENCIA + ' - ' + AContrato.NOMBRE_CLIENTE;
+      end;
+
       INCIDENCIAS_ACTIVAS := 0;
       INCIDENCIASIsNull := True;
 
-      REFERENCIA_CLIENTE := AContrato.REFERENCIA + ' - ' + AContrato.NOMBRE_CLIENTE;
       SITUACION := SITUACION_CONTRATO_PENDIENTE;
-      ENVIADA_REVISADA := CONST_CONTRATO_RECIBIDO_UECKO;
 
-      //ASIGNACION DE CLIENTE PARA ABETO
+      //En el caso de contrato de presupuestador WEB se cambia constante
-      if (AContrato.ID_EMPRESA = CTE_EMPRESA_GUNNI) then
+      if AClonarContrato then
-        AContratoFabrica._Cliente := (FClienteController.darClienteGraden(CTE_CLIENTE_GUNNI_PARA_FABRICA)  as IBizCliente)
+        ENVIADA_REVISADA := CONST_CONTRATO_RECIBIDO_UECKO
       else
-        AContratoFabrica._Cliente := (FClienteController.darClienteGraden(CTE_CLIENTE_GRADEN_PARA_FABRICA)  as IBizCliente);
+        ENVIADA_REVISADA := CONST_CONTRATO_RECIBIDO_UECKO_DESDE_WEB;
+
+      //En el caso de contrato de presupuestador WEB se cambia constante
+      if AClonarContrato then
+      begin
+        //ASIGNACION DE CLIENTE PARA ABETO
+        if (AContrato.ID_EMPRESA = CTE_EMPRESA_GUNNI) then
+          AContratoFabrica._Cliente := (FClienteController.darClienteGraden(CTE_CLIENTE_GUNNI_PARA_FABRICA)  as IBizCliente)
+        else
+          AContratoFabrica._Cliente := (FClienteController.darClienteGraden(CTE_CLIENTE_GRADEN_PARA_FABRICA)  as IBizCliente);
+      end
+      else
+        AContratoFabrica._Cliente := (FClienteController.darClienteGraden(AContratoFabrica.ID_CLIENTE)  as IBizCliente);
 
       AContratoFabrica.Cliente.DataTable.Active := True;
 
@@ -1583,7 +1620,9 @@ begin
       POBLACION := AContratoFabrica.Cliente.POBLACION;
       TELEFONO := AContratoFabrica.Cliente.TELEFONO_1;
       MOVIL := AContratoFabrica.Cliente.MOVIL_1;
+
       //LA DIRECCIÖN DE ENVIO SE MANTIENE LA COPIADA DEL CLIENTE FINAL
+
       AContratoFabrica.ID_FORMA_PAGO := AContratoFabrica.Cliente.ID_FORMA_PAGO;
       AContratoFabrica.ID_TIPO_IVA := AContratoFabrica.Cliente.ID_TIPO_IVA;
       AContratoFabrica.IDIOMA_ISO := AContratoFabrica.Cliente.IDIOMA_ISO;
@@ -1598,15 +1637,18 @@ begin
     AContratoFabrica.Post;
     if Guardar(AContratoFabrica) then
     begin
-      AContrato.Edit;
+      //En el caso de contrato de presupuestador WEB no se modifica el contratoorigen
-      AContrato.ID_CONTRATO_ASOCIADO := AContratoFabrica.ID;
+      if AClonarContrato then
-      AContrato.ENVIADA_REVISADA := CONST_CONTRATO_ENVIADO_UECKO;
+      begin
-      AContrato.Post;
+        AContrato.Edit;
-      AContrato.DataTable.ApplyUpdates;
+        AContrato.ID_CONTRATO_ASOCIADO := AContratoFabrica.ID;
-      Result := True;
+        AContrato.ENVIADA_REVISADA := CONST_CONTRATO_ENVIADO_UECKO;
+        AContrato.Post;
+        AContrato.DataTable.ApplyUpdates;
+        Result := True;
+      end;
     end;
 
-
   finally
     HideHourglassCursor;
   end;

Source/Modulos/Contratos de cliente/Controller/uDetallesContratoClienteController.pas

@@ -335,7 +335,7 @@ begin
     ADetalles.DataTable.First;
     while not ADetalles.DataTable.eof do
     begin
-      if (ADetalles.DataTable.FieldByName(CAMPO_ID_ARTICULOS).AsInteger > 0) then
+      if (ADetalles.DataTable.FieldByName(CAMPO_ID_ARTICULOS).AsInteger > 1) then //Solo serán editables los conceptos libres=ID_ARTICULO=0, y el articulo libre editable ID_ARTICULO=1
       begin
         AArticulo := (FArticulosController.Buscar(ADetalles.DataTable.FieldByName(CAMPO_ID_ARTICULOS).AsInteger) as IBizArticulo);
         AArticulo.DataTable.Open;

Source/Modulos/Contratos de cliente/Model/uBizContratosCliente.pas

@@ -14,6 +14,7 @@ const
   CONST_CONTRATO_DEFAULT = 0;  
   CONST_CONTRATO_ENVIADO_UECKO = 1;
   CONST_CONTRATO_RECIBIDO_UECKO = 2;
+  CONST_CONTRATO_RECIBIDO_UECKO_DESDE_WEB = 11;
   CONST_CONTRATO_ACEPTADO_UECKO = 3;
 
   CTE_EMPRESA_FABRICA = 1;
@@ -367,6 +368,7 @@ begin
     TELEFONO := FCliente.TELEFONO_1;
     MOVIL := FCliente.MOVIL_1;
     IDIOMA_ISO := FCliente.IDIOMA_ISO;
+    IDIOMA := FCliente.IDIOMA;    
     PAIS := FCliente.PAIS;
     ID_AGENTE := FCliente.ID_AGENTE;
 

Source/Modulos/Contratos de cliente/Views/uEditorContratosCliente.pas

@@ -187,7 +187,8 @@ begin
                                  and not (ViewGrid.NumSeleccionados > 1)
                                  and (FContratos.SITUACION <> SITUACION_CONTRATO_TERMINADO)
                                  and (FContratos.SITUACION <> SITUACION_CONTRATO_CANCELADO)
-                                 and (FContratos.ENVIADA_REVISADA = CONST_CONTRATO_RECIBIDO_UECKO)
+                                 and ((FContratos.ENVIADA_REVISADA = CONST_CONTRATO_RECIBIDO_UECKO)
+                                      or (FContratos.ENVIADA_REVISADA = CONST_CONTRATO_RECIBIDO_UECKO_DESDE_WEB))
 end;
 
 procedure TfEditorContratosCliente.actAceptarExecute(Sender: TObject);

Source/Modulos/Contratos de cliente/Views/uViewContratosCliente.dfm

@@ -226,6 +226,16 @@ inherited frViewContratosCliente: TfrViewContratosCliente
             Description = 'Aprobado'
             ImageIndex = 4
             Value = 3
+          end
+          item
+            Description = 'Recibido'
+            ImageIndex = 5
+            Value = 10
+          end
+          item
+            Description = 'Recibido'
+            ImageIndex = 5
+            Value = 11
           end>
         IsCaptionAssigned = True
       end
@@ -726,6 +736,28 @@ inherited frViewContratosCliente: TfrViewContratosCliente
           49454E44AE426082}
         Name = 'PngImage4'
         Background = clWindow
+      end
+      item
+        PngImage.Data = {
+          89504E470D0A1A0A0000000D49484452000000100000001008060000001FF3FF
+          61000001E34944415478DAA5932D72E43010855F98D934341BC1858261D10D76
+          8E3047305C1685051A067A59A0E042E70682863D6C608719EE6B399EADDABFAA
+          AD7595CAB2DCFDF5EB1FDDE13F9FBB9F0FF258225F27AEC415D109B05A35C3CC
+          EF32E653FD2380CE035F4388720C41609DC2D68ABA28B42688E1820E79CAE7E9
+          17407316E4788F43E8033CF2F46D42F804E8E29084E0A2ACBE7B90E9798334C0
+          40D9145AC2BD1E8591A58B5CFE27406D462915EA59AD4A70812CF142FBD3340E
+          750764113C8648C9A214E20A0C762560A1A925A662A8FDD0D48A06846B782220
+          6F80E732C7181F14858079CB69895B1D57D6824BBB99FF4A03C9952134BD9597
+          21ED008BF1F341F52BAA3035098CC23428DB561A70D53EC39888EFB941D4F45E
+          5EB2DC0021A6035BC56A0F306660BD1B464A3DB5A8B00CED89606A62B201A61D
+          90CB8C3E3EA03BD2F002BD8EF4550FB441D421532B62658D02CFC4C2DBFC9AD3
+          0EC86CDBA349DC24B2F7BA8E2D227BCF9CFD3CB573EC69409EE6D731EF804899
+          EC4F3CB6D631927623FFD48F5AC84741B1B572D58B4FEB5CC67A1BA4739ECE34
+          18D185435DE756B070B5CDB17305B63BB741A2F38F41BA41BE38C4324D8FE6C6
+          3E0FBE7CEF15F602716877E7DF5EA6F330B6CBC4F6A55641CAE69EC973245714
+          97FDD7DBF8AFCF7740E00D20BA266C3A0000000049454E44AE426082}
+        Name = 'PngImage5'
+        Background = clWindow
       end>
     Bitmap = {}
   end
@@ -750,7 +782,11 @@ inherited frViewContratosCliente: TfrViewContratosCliente
     end
     object cxStylePENDIENTESREVISION: TcxStyle
       AssignedValues = [svTextColor]
-      TextColor = clMaroon
+      TextColor = clOlive
+    end
+    object cxStylePENDIENTESREVISIONWEB: TcxStyle
+      AssignedValues = [svTextColor]
+      TextColor = clGreen
     end
   end
 end

Source/Modulos/Contratos de cliente/Views/uViewContratosCliente.pas

@@ -85,6 +85,7 @@ type
     cxGridViewDTO: TcxGridDBColumn;
     cxGridViewIMPORTE_NETO: TcxGridDBColumn;
     cxGridViewIMPORTE_DESCUENTO: TcxGridDBColumn;
+    cxStylePENDIENTESREVISIONWEB: TcxStyle;
     procedure cxGridActiveTabChanged(Sender: TcxCustomGrid; ALevel:
             TcxGridLevel);
     procedure cxGridViewStylesGetContentStyle(Sender: TcxCustomGridTableView;
@@ -328,11 +329,18 @@ end;
 procedure TfrViewContratosCliente.AnadirFiltroSituaciones;
 var
   FFiltro : TcxFilterCriteriaItemList;
+  ACriterioDoble: TcxFilterCriteriaItemList;
+
 begin
   FFiltro := AddFilterGrid(fboAnd);
 
   case cxGrid.ActiveLevel.Index of
-    1   : FFiltro.AddItem(cxGridViewENVIADA_REVISADA, foEqual, '2', '2');
+    1   : begin
+            ACriterioDoble := FFiltro.AddItemList(fboOr);
+            ACriterioDoble.AddItem(cxGridViewENVIADA_REVISADA, foEqual, '2', '2');
+            ACriterioDoble.AddItem(cxGridViewENVIADA_REVISADA, foEqual, '10', '10');
+            ACriterioDoble.AddItem(cxGridViewENVIADA_REVISADA, foEqual, '11', '11');            
+          end;
     2   : FFiltro.AddItem(cxGridViewSITUACION, foEqual, SITUACION_CONTRATO_PENDIENTE, SITUACION_CONTRATO_PENDIENTE);
     3   : FFiltro.AddItem(cxGridViewSITUACION, foEqual, SITUACION_CONTRATO_TERMINADO, SITUACION_CONTRATO_TERMINADO);
     4   : FFiltro.AddItem(cxGridViewSITUACION, foEqual, SITUACION_CONTRATO_CANCELADO, SITUACION_CONTRATO_CANCELADO);
@@ -465,8 +473,10 @@ var
   IndiceCol2: Integer;
   IndiceCol3: Integer;
   IndiceCol4: Integer;
+  IndiceCol5: integer;
   ASituacion: string;
   AFacturas: string;
+  AEnviadasRevisadas: Integer;
 begin
   inherited;
 
@@ -476,25 +486,32 @@ begin
     IndiceCol2 := (Sender as TcxGridDBTableView).GetColumnByFieldName(fld_ContratosClienteFACTURA_ASOCIADA).Index;
     IndiceCol3 := (Sender as TcxGridDBTableView).GetColumnByFieldName(fld_ContratosClienteBASE_IMPONIBLE_FACTURAS).Index;
     IndiceCol4 := (Sender as TcxGridDBTableView).GetColumnByFieldName(fld_ContratosClienteBASE_IMPONIBLE).Index;
+    IndiceCol5 := (Sender as TcxGridDBTableView).GetColumnByFieldName(fld_ContratosClienteENVIADA_REVISADA).Index;
     ASituacion := VarToStr(ARecord.DisplayTexts[IndiceCol]);
     AFacturas := VarToStr(ARecord.DisplayTexts[IndiceCol2]);
 
+
     //Por aqui pasa muchas veces con distintos componentes del gird, de hecho algunos no tienen el elemento AStyle y si le asignamos algo por defecto como estaba
     //peta estrepitosamente, hay que asegurarse que el componente que se dibuja tiene AStyle, en el resto no falla, porque no asignamos estile si no cumple ninguna
     //situación, así asignamos un estile por defecto y lo cambiamos según condiciones.
     if Assigned(AStyle) then
     begin
-      AStyle.TextColor := cxStylePENDIENTESREVISION.TextColor;
+      AStyle.TextColor := cxStylePENDIENTES.TextColor;
       if ASituacion = SITUACION_CONTRATO_PENDIENTE then
       begin
-        if (AFacturas = '') then
+        //colores por facturacion
-           AStyle.TextColor := cxStylePENDIENTES.TextColor
+        if (Afacturas <> '') then
-        else if (ARecord.Values[IndiceCol3] < ARecord.Values[IndiceCol4]) then
+          if (ARecord.Values[IndiceCol3] < ARecord.Values[IndiceCol4]) then
-          AStyle.TextColor := cxStylePENDIENTESYFACTURADASPLUS.TextColor
+            AStyle.TextColor := cxStylePENDIENTESYFACTURADASPLUS.TextColor
-        else if (ARecord.Values[IndiceCol3] >= ARecord.Values[IndiceCol4]) then
+          else if (ARecord.Values[IndiceCol3] >= ARecord.Values[IndiceCol4]) then
-          AStyle.TextColor := cxStylePENDIENTESYFACTURADASOK.TextColor
+            AStyle.TextColor := cxStylePENDIENTESYFACTURADASOK.TextColor;
-        else
+
-          AStyle.TextColor := cxStylePENDIENTES.TextColor;
+        //colores por recepción del pedido
+        if (ARecord.Values[IndiceCol5] = 2) then
+           AStyle.TextColor := cxStylePENDIENTESREVISION.TextColor;
+        if ((ARecord.Values[IndiceCol5] = 10)
+        or (ARecord.Values[IndiceCol5] = 11)) then
+           AStyle.TextColor := cxStylePENDIENTESREVISIONWEB.TextColor;
       end
       else if (ASituacion = SITUACION_CONTRATO_TERMINADO)
       or (ASituacion = SITUACION_CONTRATO_CANCELADO) then

Source/Modulos/Contratos de cliente/Views/uViewDetallesContratoCliente.pas

@@ -457,7 +457,7 @@ begin
       }
       IndiceCol := cxGridView.GetColumnByFieldName(fld_ContratosCliente_DetallesID_ARTICULO).Index;
       if not VarIsNull(AItem.GridView.Items[IndiceCol].EditValue)
-      and (AItem.GridView.Items[IndiceCol].EditValue > 0) then
+      and (AItem.GridView.Items[IndiceCol].EditValue > 1) then //Solo serán editables los conceptos libres=ID_ARTICULO=0, y el articulo libre editable ID_ARTICULO=1
         Result := False;
     end;
   end
@@ -468,7 +468,7 @@ begin
     begin
       IndiceCol := cxGridView.GetColumnByFieldName(fld_ContratosCliente_DetallesID_ARTICULO).Index;
       if not VarIsNull(AItem.GridView.Items[IndiceCol].EditValue)
-      and (AItem.GridView.Items[IndiceCol].EditValue > 0) then
+      and (AItem.GridView.Items[IndiceCol].EditValue > 1) then //Solo serán editables los conceptos libres=ID_ARTICULO=0, y el articulo libre editable ID_ARTICULO=1
         Result := False;
     end;
   end

Source/Modulos/Facturas de cliente/Model/uBizFacturasCliente.pas

@@ -372,6 +372,7 @@ begin
     POBLACION := FCliente.POBLACION;
     PAIS := FCliente.PAIS;
     IDIOMA_ISO := FCliente.IDIOMA_ISO;
+    IDIOMA := FCliente.IDIOMA;    
 // La forma de pago se establece desde el tipo de documento y aunque cambie de cliente no se cambia la formade pago ya que desde la vista se pregunta y se cambia si el usuario lo desea 
 //    if FCliente.ID_FORMA_PAGO > 0 then
 //       ID_FORMA_PAGO := FCliente.ID_FORMA_PAGO;

Source/Modulos/Facturas de cliente/Views/uEditorFacturaCliente.pas

@@ -294,7 +294,7 @@ begin
   inherited;
 
   ShowHourglassCursor;
-  //frViewDetallesFacturaCliente1.SaveGridStatus; // Para guardar estado del grid
+  frViewDetallesFacturaCliente1.SaveGridStatus; // Para guardar estado del grid  (Estaba comentado pero lo descomentamos para que funcione la asignación del foco tras el guardar
   frViewDetallesFacturaCliente1.BeginUpdate;  // Para que no se mueva el foco
   try
     bEsNuevo := FFactura.EsNuevo;
@@ -309,7 +309,7 @@ begin
 
   finally
     frViewDetallesFacturaCliente1.EndUpdate;
-    //frViewDetallesFacturaCliente1.RestoreGridStatus;
+    frViewDetallesFacturaCliente1.RestoreGridStatus;
     HideHourglassCursor;
   end;
 

Source/Modulos/Facturas de cliente/Views/uViewDetallesFacturaCliente.dfm

@@ -2,9 +2,6 @@ inherited frViewDetallesFacturaCliente: TfrViewDetallesFacturaCliente
   inherited cxGrid: TcxGrid
     inherited cxGridView: TcxGridDBTableView
       inherited cxGridViewID_ARTICULO: TcxGridDBColumn
-        Caption = '-'
-        PropertiesClassName = 'TcxImageComboBoxProperties'
-        Properties.Items = <>
       end
       inherited cxGridViewVALORADO: TcxGridDBColumn [4]
       end

Source/Modulos/Facturas de proveedor/Controller/uFacturasProveedorController.pas

@@ -1164,6 +1164,8 @@ end;
 function TFacturasProveedorController.Guardar(AFactura: IBizFacturaProveedor): Boolean;
 var
   IDNuevo : Integer;
+  ABookmark : TBookmark;
+
 begin
   Result := False;
 
@@ -1188,6 +1190,7 @@ begin
 
       Result := True;
     finally
+   
       HideHourglassCursor;
     end;
   end;

Source/Modulos/Facturas de proveedor/Views/uEditorFacturaProveedor.dfm

@@ -210,7 +210,6 @@ inherited fEditorFacturaProveedor: TfEditorFacturaProveedor
             inherited memObservaciones: TcxDBMemo
               DataBinding.DataSource = frViewFacturaProveedor1.DADataSource
               ExplicitWidth = 671
-              ExplicitHeight = 228
               Height = 228
               Width = 671
             end

Source/Modulos/Facturas de proveedor/Views/uEditorFacturaProveedor.pas

@@ -248,7 +248,7 @@ begin
   inherited;
 
   ShowHourglassCursor;
-  //frViewDetallesFacturaProveedor1.SaveGridStatus; // Para guardar estado del grid
+  frViewDetallesFacturaProveedor1.SaveGridStatus; // Para guardar estado del grid (ojo lo activamos de nuevo para recuperar el foco en el grid despues de guardar no se si tendrá efecto lateral
   frViewDetallesFacturaProveedor1.BeginUpdate;  // Para que no se mueva el foco
   try
     bEsNuevo := FFactura.EsNuevo;
@@ -262,7 +262,7 @@ begin
     FController.Guardar(FFactura);
   finally
     frViewDetallesFacturaProveedor1.EndUpdate;
-    //frViewDetallesFacturaProveedor1.RestoreGridStatus;
+    frViewDetallesFacturaProveedor1.RestoreGridStatus;
     HideHourglassCursor;
   end;
 

Source/Modulos/Pedidos a proveedor/Controller/uPedidosProveedorController.pas

@@ -798,6 +798,9 @@ end;
 function TPedidosProveedorController.Guardar(APedido: IBizPedidoProveedor): Boolean;
 var
   IDNuevo : Integer;
+  ABookmark : TBookmark;
+  ADetallePosAct : Integer;
+
 begin
   Result := False;
 
@@ -807,6 +810,13 @@ begin
   if not Assigned(FDetallesController) then
     raise Exception.Create ('Controller detalles no asignado');
 
+
+  //Preparamos todo para recuparar la posición de los detalles para despues de guardar no vaya al principio de los detalles
+//OJO en este caso si activamos la desactivación de tabla no guarda los importes del pedido
+//  APedido.DataTable.DisableControls;
+//  APedido.DataTable.DisableEventHandlers;
+  ABookmark := APedido.Detalles.DataTable.GetBookMark;
+
   if ValidarPedido(APedido) then
   begin
     ShowHourglassCursor;
@@ -819,6 +829,13 @@ begin
 
       Result := True;
     finally
+      //Recuparamos la posición de los detalles para despues de guardar no vaya al principio de los detalles
+      APedido.Detalles.DataTable.GotoBookmark(ABookmark);
+      APedido.Detalles.DataTable.FreeBookmark(ABookmark);
+//OJO en este caso si activamos la desactivación de tabla no guarda los importes del pedido
+//      APedido.DataTable.EnableEventHandlers;
+//      APedido.DataTable.EnableControls;
+
       HideHourglassCursor;
     end;
   end;

Source/Modulos/Pedidos a proveedor/Reports/uRptPedidosProveedor_Server.dfm

@@ -555,11 +555,12 @@ object RptPedidosProveedor: TRptPedidosProveedor
     EngineOptions.DoublePass = True
     IniFile = '\Software\Fast Reports'
     PreviewOptions.Buttons = [pbPrint, pbLoad, pbSave, pbExport, pbZoom, pbFind, pbOutline, pbPageSetup, pbTools, pbEdit, pbNavigator, pbExportQuick]
+    PreviewOptions.OutlineWidth = 180
     PreviewOptions.Zoom = 1.000000000000000000
     PrintOptions.Printer = 'Por defecto'
     PrintOptions.PrintOnSheet = 0
-    ReportOptions.CreateDate = 39065.872423495400000000
+    ReportOptions.CreateDate = 37871.995398692100000000
-    ReportOptions.LastChange = 44543.822097592600000000
+    ReportOptions.LastChange = 45565.707618252300000000
     ScriptLanguage = 'PascalScript'
     ShowProgress = False
     StoreInDFM = False

Source/Modulos/Pedidos a proveedor/Views/uEditorPedidoProveedor.dfm

@@ -116,40 +116,40 @@ inherited fEditorPedidoProveedor: TfEditorPedidoProveedor
             ExplicitWidth = 60
           end
           inherited UpDown1: TUpDown
-            Left = 239
+            Left = 257
-            ExplicitLeft = 239
+            ExplicitLeft = 257
           end
           inherited ToolButton13: TToolButton
-            Left = 256
+            Left = 274
-            ExplicitLeft = 256
+            ExplicitLeft = 274
           end
           inherited ToolButton6: TToolButton
-            Left = 264
+            Left = 282
-            ExplicitLeft = 264
+            ExplicitLeft = 282
           end
           inherited ToolButton7: TToolButton
-            Left = 298
+            Left = 316
-            ExplicitLeft = 298
+            ExplicitLeft = 316
           end
           inherited ToolButton8: TToolButton
-            Left = 332
+            Left = 350
-            ExplicitLeft = 332
+            ExplicitLeft = 350
           end
           inherited ToolButton12: TToolButton
-            Left = 366
+            Left = 384
-            ExplicitLeft = 366
+            ExplicitLeft = 384
           end
           inherited ToolButton9: TToolButton
-            Left = 374
+            Left = 392
-            ExplicitLeft = 374
+            ExplicitLeft = 392
           end
           inherited ToolButton10: TToolButton
-            Left = 408
+            Left = 426
-            ExplicitLeft = 408
+            ExplicitLeft = 426
           end
           inherited ToolButton11: TToolButton
-            Left = 442
+            Left = 460
-            ExplicitLeft = 442
+            ExplicitLeft = 460
           end
         end
         inherited cxGrid: TcxGrid

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

@@ -426,7 +426,7 @@ begin
     ADetalles.DataTable.First;
     while not ADetalles.DataTable.eof do
     begin
-      if (ADetalles.DataTable.FieldByName(CAMPO_ID_ARTICULOS).AsInteger > 0) then
+      if (ADetalles.DataTable.FieldByName(CAMPO_ID_ARTICULOS).AsInteger > 1) then //Solo serán editables los conceptos libres=ID_ARTICULO=0, y el articulo libre editable ID_ARTICULO=1
       begin
         AArticulo := (FArticulosController.Buscar(ADetalles.DataTable.FieldByName(CAMPO_ID_ARTICULOS).AsInteger) as IBizArticulo);
         AArticulo.DataTable.Open;

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

@@ -1196,6 +1196,9 @@ end;
 }
 
 function TPresupuestosClienteController.Guardar(APresupuesto: IBizPresupuestoCliente): Boolean;
+var
+  ABookmark : TBookmark;
+
 begin
   Result := False;
 
@@ -1205,6 +1208,11 @@ begin
   if not Assigned(FDetallesController) then
     raise Exception.Create ('Controller detalles no asignado');
 
+  //Preparamos todo para recuparar la posición de los detalles para despues de guardar no vaya al principio de los detalles
+  APresupuesto.DataTable.DisableControls;
+  APresupuesto.DataTable.DisableEventHandlers;
+  ABookmark := APresupuesto.Detalles.DataTable.GetBookMark;
+
   if ValidarPresupuesto(APresupuesto) then
   begin
     ShowHourglassCursor;
@@ -1216,6 +1224,12 @@ begin
       APresupuesto.DataTable.ApplyUpdates;
       Result := True;
     finally
+      //Recuparamos la posición de los detalles para despues de guardar no vaya al principio de los detalles
+      APresupuesto.DataTable.EnableEventHandlers;
+      APresupuesto.DataTable.EnableControls;
+      APresupuesto.Detalles.DataTable.GotoBookmark(ABookmark);
+      APresupuesto.Detalles.DataTable.FreeBookmark(ABookmark);
+      
       HideHourglassCursor;
     end;
   end;

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

@@ -5,7 +5,6 @@ inherited fEditorPresupuestoCliente: TfEditorPresupuestoCliente
   ClientHeight = 950
   ClientWidth = 1430
   OnClose = CustomEditorClose
-  ExplicitLeft = -277
   ExplicitWidth = 1438
   ExplicitHeight = 988
   PixelsPerInch = 96
@@ -179,7 +178,6 @@ inherited fEditorPresupuestoCliente: TfEditorPresupuestoCliente
   inherited pgPaginas: TPageControl
     Width = 1424
     Height = 588
-    ActivePage = pagContenido
     TabOrder = 1
     OnChanging = pgPaginasChanging
     ExplicitTop = 112
@@ -256,7 +254,7 @@ inherited fEditorPresupuestoCliente: TfEditorPresupuestoCliente
             ExplicitWidth = 320
             inherited dxLayoutControl1: TdxLayoutControl
               Width = 320
-              ExplicitHeight = 250
+              ExplicitWidth = 320
               inherited edtlNombre: TcxDBTextEdit
                 ExplicitWidth = 202
                 Width = 202
@@ -326,6 +324,7 @@ inherited fEditorPresupuestoCliente: TfEditorPresupuestoCliente
             ExplicitWidth = 390
             inherited dxLayoutControl1: TdxLayoutControl
               Width = 390
+              ExplicitWidth = 390
               inherited cbTienda: TcxComboBox
                 ExplicitWidth = 390
                 Width = 390
@@ -337,6 +336,7 @@ inherited fEditorPresupuestoCliente: TfEditorPresupuestoCliente
             ExplicitWidth = 317
             inherited dxLayoutControl1: TdxLayoutControl
               Width = 317
+              ExplicitWidth = 317
               inherited edtlNombreAgente: TcxDBTextEdit
                 DataBinding.DataSource = frViewPresupuestoCliente1.DADataSource
                 ExplicitWidth = 224
@@ -464,6 +464,7 @@ inherited fEditorPresupuestoCliente: TfEditorPresupuestoCliente
           Top = 50
           Width = 1416
           Height = 510
+          ExplicitTop = 50
           ExplicitWidth = 1416
           ExplicitHeight = 510
           inherited cxGridView: TcxGridDBTableView
@@ -496,16 +497,7 @@ inherited fEditorPresupuestoCliente: TfEditorPresupuestoCliente
               Caption = '  Precio punto  '
             end
           end
-          inherited bRecalcularPrecioPunto: TButton
+          inherited bRecalcularDescuentoCapitulo: TButton [2]
-            Left = 893
-            Top = -1
-            Height = 27
-            Action = actRecalcularPrecioPunto
-            ExplicitLeft = 893
-            ExplicitTop = -1
-            ExplicitHeight = 27
-          end
-          inherited bRecalcularDescuentoCapitulo: TButton [3]
             Left = 1218
             Top = -1
             Height = 27
@@ -514,6 +506,15 @@ inherited fEditorPresupuestoCliente: TfEditorPresupuestoCliente
             ExplicitTop = -1
             ExplicitHeight = 27
           end
+          inherited bRecalcularPrecioPunto: TButton [3]
+            Left = 893
+            Top = -1
+            Height = 27
+            Action = actRecalcularPrecioPunto
+            ExplicitLeft = 893
+            ExplicitTop = -1
+            ExplicitHeight = 27
+          end
           inherited edtPrecioPunto: TcxDBCurrencyEdit [4]
             Left = 839
             Top = -1

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

@@ -1,88 +1,5 @@
 inherited frViewDetallesPresupuestoCliente: TfrViewDetallesPresupuestoCliente
-  Width = 1511
-  inherited ToolBar1: TToolBar
-    Width = 1511
-    Height = 24
-    inherited ToolButton4: TToolButton
-      Wrap = False
-    end
-    inherited ToolButton14: TToolButton
-      Left = 334
-      Top = 0
-      ExplicitLeft = 334
-      ExplicitTop = 0
-    end
-    inherited FontName: TJvFontComboBox
-      Left = 368
-      Top = 0
-      ExplicitLeft = 368
-      ExplicitTop = 0
-    end
-    inherited FontSize: TEdit
-      Left = 513
-      Top = 0
-      ExplicitLeft = 513
-      ExplicitTop = 0
-    end
-    inherited UpDown1: TUpDown
-      Left = 555
-      Top = 0
-      ExplicitLeft = 555
-      ExplicitTop = 0
-    end
-    inherited ToolButton13: TToolButton
-      Left = 572
-      Top = 0
-      ExplicitLeft = 572
-      ExplicitTop = 0
-    end
-    inherited ToolButton6: TToolButton
-      Left = 580
-      Top = 0
-      ExplicitLeft = 580
-      ExplicitTop = 0
-    end
-    inherited ToolButton7: TToolButton
-      Left = 614
-      Top = 0
-      ExplicitLeft = 614
-      ExplicitTop = 0
-    end
-    inherited ToolButton8: TToolButton
-      Left = 648
-      Top = 0
-      ExplicitLeft = 648
-      ExplicitTop = 0
-    end
-    inherited ToolButton12: TToolButton
-      Left = 682
-      Top = 0
-      ExplicitLeft = 682
-      ExplicitTop = 0
-    end
-    inherited ToolButton9: TToolButton
-      Left = 690
-      Top = 0
-      ExplicitLeft = 690
-      ExplicitTop = 0
-    end
-    inherited ToolButton10: TToolButton
-      Left = 724
-      Top = 0
-      ExplicitLeft = 724
-      ExplicitTop = 0
-    end
-    inherited ToolButton11: TToolButton
-      Left = 758
-      Top = 0
-      ExplicitLeft = 758
-      ExplicitTop = 0
-    end
-  end
   inherited cxGrid: TcxGrid
-    Top = 50
-    Width = 1511
-    Height = 254
     inherited cxGridView: TcxGridDBTableView
       inherited cxGridViewID: TcxGridDBColumn
         VisibleForCustomization = False
@@ -160,11 +77,9 @@ inherited frViewDetallesPresupuestoCliente: TfrViewDetallesPresupuestoCliente
     end
   end
   inherited TBXDock1: TTBXDock
-    Top = 24
-    Width = 1511
     inherited TBXToolbar1: TTBXToolbar
       DockPos = 0
-      ExplicitWidth = 839
+      ExplicitWidth = 325
       object TBXSubmenuItem1: TTBXSubmenuItem [0]
         Caption = 'A'#241'adir cap'#237'tulo'
         DisplayMode = nbdmImageAndText
@@ -270,7 +185,7 @@ inherited frViewDetallesPresupuestoCliente: TfrViewDetallesPresupuestoCliente
       TabOrder = 2
     end
     object TBXToolbar2: TTBXToolbar
-      Left = 1064
+      Left = 325
       Top = 0
       Align = alRight
       Caption = 'TBXToolbar2'

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

@@ -466,7 +466,7 @@ begin
 
       IndiceCol := cxGridView.GetColumnByFieldName(fld_PresupuestosCliente_DetallesID_ARTICULO).Index;
       if not VarIsNull(AItem.GridView.Items[IndiceCol].EditValue)
-      and (AItem.GridView.Items[IndiceCol].EditValue > 0) then
+      and (AItem.GridView.Items[IndiceCol].EditValue > 1) then //Solo serán editables los conceptos libres=ID_ARTICULO=0, y el articulo libre editable ID_ARTICULO=1
         Result := False;
     end;
   end
@@ -477,7 +477,7 @@ begin
     begin
       IndiceCol := cxGridView.GetColumnByFieldName(fld_PresupuestosCliente_DetallesID_ARTICULO).Index;
       if not VarIsNull(AItem.GridView.Items[IndiceCol].EditValue)
-      and (AItem.GridView.Items[IndiceCol].EditValue > 0) then
+      and (AItem.GridView.Items[IndiceCol].EditValue > 1) then //Solo serán editables los conceptos libres=ID_ARTICULO=0, y el articulo libre editable ID_ARTICULO=1
         Result := False;
     end;
   end

Source/Servidor/FactuGES_Server.dproj

@@ -28,7 +28,7 @@
 		<Borland.Personality>Delphi.Personality</Borland.Personality>
 		<Borland.ProjectType/>
 		<BorlandProject>
-			<BorlandProject><Delphi.Personality><Parameters><Parameters Name="UseLauncher">False</Parameters><Parameters Name="LoadAllSymbols">True</Parameters><Parameters Name="LoadUnspecifiedSymbols">False</Parameters></Parameters><VersionInfo><VersionInfo Name="IncludeVerInfo">True</VersionInfo><VersionInfo Name="AutoIncBuild">False</VersionInfo><VersionInfo Name="MajorVer">4</VersionInfo><VersionInfo Name="MinorVer">7</VersionInfo><VersionInfo Name="Release">2</VersionInfo><VersionInfo Name="Build">0</VersionInfo><VersionInfo Name="Debug">False</VersionInfo><VersionInfo Name="PreRelease">False</VersionInfo><VersionInfo Name="Special">False</VersionInfo><VersionInfo Name="Private">False</VersionInfo><VersionInfo Name="DLL">False</VersionInfo><VersionInfo Name="Locale">3082</VersionInfo><VersionInfo Name="CodePage">1252</VersionInfo></VersionInfo><VersionInfoKeys><VersionInfoKeys Name="CompanyName">Rodax Software S.L.</VersionInfoKeys><VersionInfoKeys Name="FileDescription"></VersionInfoKeys><VersionInfoKeys Name="FileVersion">4.7.2.0</VersionInfoKeys><VersionInfoKeys Name="InternalName"></VersionInfoKeys><VersionInfoKeys Name="LegalCopyright"></VersionInfoKeys><VersionInfoKeys Name="LegalTrademarks"></VersionInfoKeys><VersionInfoKeys Name="OriginalFilename"></VersionInfoKeys><VersionInfoKeys Name="ProductName">FactuGES (Servidor)</VersionInfoKeys><VersionInfoKeys Name="ProductVersion">4.7.2.0</VersionInfoKeys><VersionInfoKeys Name="Comments"></VersionInfoKeys><VersionInfoKeys Name="CompileDate">jueves, 11 de julio de 2024 19:07</VersionInfoKeys></VersionInfoKeys><Excluded_Packages>
+			<BorlandProject><Delphi.Personality><Parameters><Parameters Name="UseLauncher">False</Parameters><Parameters Name="LoadAllSymbols">True</Parameters><Parameters Name="LoadUnspecifiedSymbols">False</Parameters></Parameters><VersionInfo><VersionInfo Name="IncludeVerInfo">True</VersionInfo><VersionInfo Name="AutoIncBuild">False</VersionInfo><VersionInfo Name="MajorVer">4</VersionInfo><VersionInfo Name="MinorVer">7</VersionInfo><VersionInfo Name="Release">4</VersionInfo><VersionInfo Name="Build">0</VersionInfo><VersionInfo Name="Debug">False</VersionInfo><VersionInfo Name="PreRelease">False</VersionInfo><VersionInfo Name="Special">False</VersionInfo><VersionInfo Name="Private">False</VersionInfo><VersionInfo Name="DLL">False</VersionInfo><VersionInfo Name="Locale">3082</VersionInfo><VersionInfo Name="CodePage">1252</VersionInfo></VersionInfo><VersionInfoKeys><VersionInfoKeys Name="CompanyName">Rodax Software S.L.</VersionInfoKeys><VersionInfoKeys Name="FileDescription"></VersionInfoKeys><VersionInfoKeys Name="FileVersion">4.7.4.0</VersionInfoKeys><VersionInfoKeys Name="InternalName"></VersionInfoKeys><VersionInfoKeys Name="LegalCopyright"></VersionInfoKeys><VersionInfoKeys Name="LegalTrademarks"></VersionInfoKeys><VersionInfoKeys Name="OriginalFilename"></VersionInfoKeys><VersionInfoKeys Name="ProductName">FactuGES (Servidor)</VersionInfoKeys><VersionInfoKeys Name="ProductVersion">4.7.4.0</VersionInfoKeys><VersionInfoKeys Name="Comments"></VersionInfoKeys><VersionInfoKeys Name="CompileDate">martes, 15 de octubre de 2024 17:07</VersionInfoKeys></VersionInfoKeys><Excluded_Packages>
 						<Excluded_Packages Name="C:\Documents and Settings\All Users\Documentos\RAD Studio\5.0\Bpl\cxLibraryD11.bpl">Express Cross Platform Library by Developer Express Inc.</Excluded_Packages>
 						<Excluded_Packages Name="C:\Documents and Settings\All Users\Documentos\RAD Studio\5.0\Bpl\dxPSCoreD11.bpl">ExpressPrinting System by Developer Express Inc.</Excluded_Packages>
 						<Excluded_Packages Name="C:\Documents and Settings\All Users\Documentos\RAD Studio\5.0\Bpl\DataAbstract_SDACDriver_D11.bpl">RemObjects Data Abstract - CoreLabs SDAC Driver</Excluded_Packages>