Usuarios: gestión de permisos de acceso a los módulos.

git-svn-id: https://192.168.0.254/svn/Proyectos.Varela_PuntosVenta/trunk@113 1c943782-d109-9647-9548-93b3ac332352

Database/1 - tablas.sql

@@ -948,7 +948,6 @@ GO
 
 
 CREATE TABLE [RDX_PERMISOS] (
-    [ID]          INT NOT NULL,
     [ID_USUARIO]  INT,
     [MODULO]      VARCHAR(50),
     [NOMBRECOMP]  VARCHAR(50),
@@ -956,21 +955,12 @@ CREATE TABLE [RDX_PERMISOS] (
 )
 GO
 
-ALTER TABLE [RDX_PERMISOS]
-ADD CONSTRAINT [RDX_PERMISOS_PK] 
-PRIMARY KEY CLUSTERED ([ID])
-ON [PRIMARY]
-GO
-
-
-
 IF EXISTS (SELECT * FROM dbo.sysobjects WHERE id = OBJECT_ID(N'[RDX_PERMISOSEX]') AND OBJECTPROPERTY(id, N'IsUserTable') = 1)
   DROP TABLE [RDX_PERMISOSEX]
 GO
 
 
 CREATE TABLE [RDX_PERMISOSEX] (
-    [ID]          INT NOT NULL,
     [ID_USUARIO]  INT,
     [MODULO]      VARCHAR(50),
     [NOMBRECOMP]  VARCHAR(50),
@@ -979,12 +969,6 @@ CREATE TABLE [RDX_PERMISOSEX] (
 )
 GO
 
-ALTER TABLE [RDX_PERMISOSEX]
-ADD CONSTRAINT [RDX_PERMISOSEX_PK] 
-PRIMARY KEY CLUSTERED ([ID])
-ON [PRIMARY]
-GO
-
 /* EOF */
 
 

Source/ApplicationBase/ApplicationBase.dpk

@@ -58,6 +58,7 @@ contains
   uViewUsuario in 'Usuarios\Views\uViewUsuario.pas' {frViewUsuario: TFrame},
   uEditorCambiarPassword in 'Usuarios\Views\uEditorCambiarPassword.pas' {fEditorCambiarPassword},
   schUsuariosClient_Intf in 'Usuarios\Model\schUsuariosClient_Intf.pas',
-  schUsuariosServer_Intf in 'Usuarios\Model\schUsuariosServer_Intf.pas';
+  schUsuariosServer_Intf in 'Usuarios\Model\schUsuariosServer_Intf.pas',
+  uEditorPermisosUsuario in 'Usuarios\Views\uEditorPermisosUsuario.pas' {fEditorPermisosUsuario};
 
 end.

Source/ApplicationBase/ApplicationBase.dproj

@@ -46,13 +46,6 @@
     <Borland.ProjectType>Package</Borland.ProjectType>
     <BorlandProject>
 <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">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><Excluded_Packages>
-      
-      
-      
-      
-      
-      
-      
       <Excluded_Packages Name="$(BDS)\Bin\dclintraweb_90_100.bpl">VCL for the Web Design Package for CodeGear RAD Studio</Excluded_Packages>
       <Excluded_Packages Name="$(BDS)\bin\dclwebsnap100.bpl">CodeGear WebSnap Components</Excluded_Packages>
       <Excluded_Packages Name="$(BDS)\bin\dclsoap100.bpl">CodeGear SOAP Components</Excluded_Packages>
@@ -67,19 +60,13 @@
     <DelphiCompile Include="ApplicationBase.dpk">
       <MainSource>MainSource</MainSource>
     </DelphiCompile>
-    <DCCReference Include="..\ControlesBase\BaseD.dcp" />
+    <DCCReference Include="C:\UserControl\Demos\8 UCControls Sample2 - ADO\Base.dcp" />
-    <DCCReference Include="..\ControlesBase\BaseD1.dcp" />
+    <DCCReference Include="C:\UserControl\Demos\8 UCControls Sample2 - ADO\dbrtl.dcp" />
-    <DCCReference Include="..\ControlesBase\BaseD10.dcp" />
+    <DCCReference Include="C:\UserControl\Demos\8 UCControls Sample2 - ADO\pckMD5.dcp" />
-    <DCCReference Include="..\ControlesBase\PlLuginSDK_D10R.dcp" />
+    <DCCReference Include="C:\UserControl\Demos\8 UCControls Sample2 - ADO\pckUserControl_RT.dcp" />
-    <DCCReference Include="..\ControlesBase\PluginSDK_D10R.dcp" />
+    <DCCReference Include="C:\UserControl\Demos\8 UCControls Sample2 - ADO\PluginSDK_D11R.dcp" />
-    <DCCReference Include="..\ControlesBase\PluginSDK_D110R.dcp" />
+    <DCCReference Include="C:\UserControl\Demos\8 UCControls Sample2 - ADO\rtl.dcp" />
-    <DCCReference Include="C:\Documents and Settings\Usuario\Base.dcp" />
+    <DCCReference Include="C:\UserControl\Demos\8 UCControls Sample2 - ADO\vcl.dcp" />
-    <DCCReference Include="C:\Documents and Settings\Usuario\dbrtl.dcp" />
-    <DCCReference Include="C:\Documents and Settings\Usuario\pckMD5.dcp" />
-    <DCCReference Include="C:\Documents and Settings\Usuario\pckUserControl_RT.dcp" />
-    <DCCReference Include="C:\Documents and Settings\Usuario\PluginSDK_D11R.dcp" />
-    <DCCReference Include="C:\Documents and Settings\Usuario\rtl.dcp" />
-    <DCCReference Include="C:\Documents and Settings\Usuario\vcl.dcp" />
     <DCCReference Include="Empresas\Data\uDataModuleEmpresas.pas">
       <Form>DataModuleEmpresasObj</Form>
     </DCCReference>
@@ -120,6 +107,9 @@
     <DCCReference Include="Usuarios\Views\uEditorPerfilUsuario.pas">
       <Form>fEditorPerfilUsuario</Form>
     </DCCReference>
+    <DCCReference Include="Usuarios\Views\uEditorPermisosUsuario.pas">
+      <Form>fEditorPermisosUsuario</Form>
+    </DCCReference>
     <DCCReference Include="Usuarios\Views\uEditorUsuario.pas">
       <Form>fEditorUsuario</Form>
       <DesignClass>TFrame</DesignClass>

Source/ApplicationBase/Usuarios/Controller/uUsuariosController.pas

@@ -11,7 +11,7 @@ type
   TUCCriptografia = (ucStandard, ucMD5);
 
   IUsuariosController = interface(IControllerBase)
-  ['{DD963EEC-5880-4DE7-AF55-B5080B538D84}']
+  ['{0A637F24-4243-45B7-9FCA-A2540F39453F}']
 
     procedure Logoff;
     function StartLogin : Boolean;
@@ -22,7 +22,7 @@ type
 
     procedure VerPerfil(const AIDPerfil: Integer); overload;
     procedure VerPerfil(APerfil : IBizPerfilUsuario); overload;
-        
+
     procedure _ShowUserManager;
     procedure _ShowProfileManager;
     procedure _ShowLogManager;
@@ -40,6 +40,10 @@ type
     function GuardarPerfil(APerfil : IBizPerfilUsuario): Boolean;
     function GuardarUsuario(AUser : IBizUsuario): Boolean;
 
+    function AdministrarAccesos(AUser : IBizUsuario): Boolean;
+
+    function HayAccesoPermitido(const AActionName: String): Boolean;
+
     function EliminarUsuario(const AIDUser : integer): Boolean; overload;
     function EliminarUsuario(AUser : IBizUsuario): Boolean; overload;
 
@@ -47,6 +51,7 @@ type
     function EliminarPerfil(const AIDPerfil : integer): Boolean; overload;
 
     function HayUsuarioConPerfil(const AIDPerfil : integer): Boolean;
+    function EsAdministrador(AUser : IBizUsuario): Boolean;
 
     function BuscarUsuario(const AIDUser: Integer): IBizUsuario;
     function BuscarTodosUsuarios: IBizUsuario;
@@ -63,6 +68,9 @@ type
     function GetCriptografia : TUCCriptografia;
     property Criptografia: TUCCriptografia read GetCriptografia;
 
+    function GetUserControl : TUserControl;
+    property UserControl: TUserControl read GetUserControl;
+
     function GetUsarPasswordsSeguras: Boolean;
     procedure SetUsarPasswordsSeguras(const Value: Boolean);
     property UsarPasswordsSeguras : Boolean read GetUsarPasswordsSeguras write SetUsarPasswordsSeguras;
@@ -120,6 +128,8 @@ type
 
     function GetUsarPasswordsSeguras: Boolean;
     procedure SetUsarPasswordsSeguras(const Value: Boolean);
+
+    function GetUserControl : TUserControl;
   public
     constructor Create; virtual;
     destructor Destroy; override;
@@ -150,6 +160,12 @@ type
     function GuardarPerfil(APerfil : IBizPerfilUsuario): Boolean;
     function GuardarUsuario(AUser : IBizUsuario): Boolean;
 
+    function EsAdministrador(AUser : IBizUsuario): Boolean;
+
+    function AdministrarAccesos(AUser : IBizUsuario): Boolean;
+
+    function HayAccesoPermitido(const AActionName: String): Boolean;
+
     function BuscarUsuario(const AIDUser: Integer): IBizUsuario;
     function BuscarTodosUsuarios: IBizUsuario;
 
@@ -160,8 +176,9 @@ type
     function ValidarPassword(const APassword : string; const ALogin : String;
       const ANombre: String; out AMsg : String): boolean;
 
+    property UserControl: TUserControl read GetUserControl;
     property UsarPasswordsSeguras : Boolean read GetUsarPasswordsSeguras write SetUsarPasswordsSeguras;
-    property UserControl : TUserControl read FUserControl;
+    //property UserControl : TUserControl read FUserControl;
     property MaxIntentosLogin : Integer read GetMaxIntentosLogin write SetMaxIntentosLogin;
     property CurrentUser: IBizUsuario read GetCurrentUser;
     property Criptografia: TUCCriptografia read GetCriptografia;
@@ -170,14 +187,111 @@ type
 implementation
 
 uses
-  cxControls, DB, uEditorRegistryUtils, schUsuariosClient_Intf,
+  cxControls, Menus, DB, uEditorRegistryUtils, schUsuariosClient_Intf,
   uDAInterfaces, uDataTableUtils, uDialogUtils, uAdminPV_App, Dialogs,
   uDateUtils, uROTypes, DateUtils, Controls, Windows, uIEditorLogin,
   uIEditorUsuarios, uIEditorUsuario, uIEditorPerfilesUsuario,
-  uIEditorPerfilUsuario, uEditorCambiarPassword;
+  uIEditorPerfilUsuario, uEditorCambiarPassword, uEditorPermisosUsuario;
 
 { TUsuariosController }
 
+function TUsuariosController.AdministrarAccesos(AUser: IBizUsuario): Boolean;
+var
+  AEditorPermisos : TfEditorPermisosUsuario;
+
+  function EsUnModulo(AMenuItem : TMenuItem) : Boolean;
+  begin
+    Result := (AMenuItem.Tag >= 0) and (AMenuItem.Tag < 9000)
+  end;
+
+  procedure ExtraerPermisos;
+  var
+    AItemIndex, ASeccionCount : Integer;
+    AMenuItem : TMenuItem;
+    TempCampos, TempCamposEX: String;
+    i : Integer;
+  begin
+    with FUserControl do
+    begin
+      TempCampos   := Format(' %s as IdUser, %s as Modulo, %s as ObjName, %s as UCKey ',
+        [TableRights.FieldUserID,
+        TableRights.FieldModule,
+        TableRights.FieldComponentName,
+        TableRights.FieldKey]);
+      TempCamposEX := Format('%s, %s as FormName ', [TempCampos, TableRights.FieldFormName]);
+
+      AEditorPermisos.DSPermiss := DataConnector.UCGetSQLDataset(Format('Select %s from %s tab Where tab.%s = %s and tab.%s = %s',
+        [TempCampos,
+        TableRights.TableName,
+        TableRights.FieldUserID,
+        IntToStr(AUser.ID),
+        TableRights.FieldModule,
+        QuotedStr(ApplicationID)]));
+
+      AEditorPermisos.DSPermiss.Open;
+
+      AEditorPermisos.DSPermissEX := DataConnector.UCGetSQLDataset(Format('Select %s from %s tab1 Where tab1.%s = %s and tab1.%s = %s',
+        [TempCamposEX,
+        TableRights.TableName + 'EX',
+        TableRights.FieldUserID,
+        IntToStr(AUser.ID),
+        TableRights.FieldModule,
+        QuotedStr(ApplicationID)]));
+
+      AEditorPermisos.DSPermissEX.Open;
+
+      AEditorPermisos.DSPerfil := TDataset.Create(AEditorPermisos);
+
+      ExtraRights.BeginUpdate;
+      ExtraRights.Clear;
+      try
+        // Guardar la lista de secciones (Ventas, Compras, etc...)
+        for ASeccionCount := 0 to AppAdminPV.MainForm.Menu.Items.Count - 1 do
+        begin
+          AMenuItem := AppAdminPV.MainForm.Menu.Items[ASeccionCount];
+
+          if not EsUnModulo(AMenuItem) then
+            Continue;
+
+          for AItemIndex := 0 to (AMenuItem.Count - 1) do
+          begin
+            if ((not AMenuItem[AItemIndex].IsLine)  // que no sea una línea separadora
+                 and (AMenuItem[AItemIndex].Count = 0)) // y que no sea el padre de un submenú
+            then
+              with ExtraRights.Add do
+              begin
+                GroupName := StringReplace(AMenuItem.Caption, '&', '', []);
+                Caption := StringReplace(AMenuItem[AItemIndex].Caption, '&', '', []);
+                CompName := AMenuItem[AItemIndex].Action.Name;
+                FormName := StringReplace(AMenuItem[AItemIndex].Caption, '&', '', []);
+              end;
+          end;
+        end;
+      finally
+        ExtraRights.EndUpdate;
+      end;
+    end;
+  end;
+
+begin
+  if not Assigned(AUser) then
+    raise Exception.Create('No hay usuario asignado (AdministrarAccesos)');
+
+  AUser.Active := True;
+
+  AEditorPermisos := TfEditorPermisosUsuario.Create(NIL);
+  with AEditorPermisos do
+    try
+      FUser := AUser;
+      AEditorPermisos.FUserControl := Self.FUserControl;
+      ExtraerPermisos;
+      ShowModal;
+      Result := True;
+    finally
+      Release;
+    end;
+end;
+
 function TUsuariosController.AnadirPerfil(APerfil: IBizPerfilUsuario): Boolean;
 
   function GetNewIdUser: Integer;
@@ -330,9 +444,11 @@ end;
 
 function TUsuariosController.ComprobarUsuario(const User,
   Password: String): Boolean;
+var
+  SQLStmt : String;
 begin
 	Result := FUserControl.VerificaLogin(User, Password);
-	if not Result then 
+	if not Result then
  	begin
     if User = 'admin' then
     begin
@@ -342,7 +458,32 @@ begin
  	 	    Result := ComprobarUsuario(User, Password);
       end;
     end;
- 	end;
+ 	end
+  else begin
+    with FUserControl do
+    begin
+      SQLStmt := Format('SELECT %s AS ObjName,' +
+        ' %s AS UCKey,' +
+        ' %s AS UserID' +
+        ' FROM %s' +
+        ' WHERE %s = %s AND %s = %s',
+        [TableRights.FieldComponentName,
+        TableRights.FieldKey,
+        TableRights.FieldUserID,
+        TableRights.TableName + 'EX',
+        TableRights.FieldUserID,
+        IntToStr(CurrentUser.UserID),
+        TableRights.FieldModule,
+        QuotedStr(ApplicationID)]);
+
+      if Assigned(CurrentUser.PerfilUsuario) then
+      begin
+        CurrentUser.PerfilUsuario.Close;
+        CurrentUser.PerfilUsuario.Free;
+      end;
+      CurrentUser.PerfilUsuario := DataConnector.UCGetSQLDataset(SQLStmt);
+    end;
+  end;
 end;
 
 constructor TUsuariosController.Create;
@@ -477,6 +618,12 @@ begin
     Result := EliminarUsuario(AUser.ID);
 end;
 
+function TUsuariosController.EsAdministrador(AUser: IBizUsuario): Boolean;
+begin
+  if Assigned(AUser) then
+    Result := (AUser.LOGIN = 'admin');
+end;
+
 function TUsuariosController.EliminarUsuario(const AIDUser: integer): Boolean;
 begin
   FUserControl.DataConnector.UCExecSQL('Delete from ' + FUserControl.TableRights.TableName + ' where ' + FUserControl.TableRights.FieldUserID + ' = ' + IntToStr(AIDUser));
@@ -513,6 +660,11 @@ begin
   Result := FUsarPasswordsSeguras;
 end;
 
+function TUsuariosController.GetUserControl: TUserControl;
+begin
+  Result := FUserControl;
+end;
+
 function TUsuariosController.GuardarPerfil(APerfil: IBizPerfilUsuario): Boolean;
 begin
   Result := False;
@@ -539,6 +691,34 @@ begin
     Result := ModificarUsuario(AUser);
 end;
 
+function TUsuariosController.HayAccesoPermitido(const AActionName: String): Boolean;
+var
+  i: Integer;
+begin
+  Result := False;
+
+  if not Assigned(FUserControl.CurrentUser) then
+    raise Exception.Create('No hay usuario activo (HayAccesoPermitido)');
+
+  if FUserControl.CurrentUser.UserLogin = 'admin' then
+    Result := True
+  else begin
+    with FUserControl.CurrentUser do
+    begin
+      PerfilUsuario.First;
+      for i := 0 to PerfilUsuario.RecordCount - 1 do
+      begin
+        if PerfilUsuario.FieldByName('ObjName').AsString = AActionName then
+        begin
+          Result := True;
+          Break;
+        end;
+        PerfilUsuario.Next;
+      end;
+    end;
+  end;
+end;
+
 function TUsuariosController.HayUsuarioConPerfil(
   const AIDPerfil: integer): Boolean;
 var
@@ -563,7 +743,7 @@ procedure TUsuariosController.InicializarUserControl;
 begin
   with FUserControl do
   begin
-    ApplicationID := Application.ExeName;
+    ApplicationID := AppAdminPV.AppEXEName;
     AutoStart := False;
     Criptografia := cMD5;
     CheckValidationKey := True;

Source/ApplicationBase/Usuarios/Views/uEditorPermisosUsuario.dfm

@@ -0,0 +1,425 @@
+object fEditorPermisosUsuario: TfEditorPermisosUsuario
+  Left = 255
+  Top = 154
+  BorderStyle = bsDialog
+  Caption = 'Administraci'#243'n de permisos'
+  ClientHeight = 519
+  ClientWidth = 448
+  Color = clBtnFace
+  Font.Charset = DEFAULT_CHARSET
+  Font.Color = clWindowText
+  Font.Height = -11
+  Font.Name = 'MS Sans Serif'
+  Font.Style = []
+  OldCreateOrder = False
+  Position = poMainFormCenter
+  OnDestroy = FormDestroy
+  OnShow = FormShow
+  PixelsPerInch = 96
+  TextHeight = 13
+  object Panel3: TPanel
+    Left = 351
+    Top = 0
+    Width = 97
+    Height = 484
+    Align = alRight
+    BevelOuter = bvNone
+    TabOrder = 0
+    ExplicitLeft = 445
+    ExplicitTop = 35
+  end
+  object PC: TPageControl
+    Left = 0
+    Top = 0
+    Width = 351
+    Height = 484
+    ActivePage = PageControls
+    Align = alClient
+    Style = tsFlatButtons
+    TabOrder = 1
+    Visible = False
+    ExplicitTop = 35
+    ExplicitWidth = 445
+    object PageMenu: TTabSheet
+      Caption = 'Itens do Menu'
+      ExplicitWidth = 437
+      object TreeMenu: TTreeView
+        Left = 0
+        Top = 0
+        Width = 343
+        Height = 453
+        Align = alClient
+        Ctl3D = True
+        Images = ImageList1
+        Indent = 19
+        ParentCtl3D = False
+        ReadOnly = True
+        RightClickSelect = True
+        TabOrder = 0
+        OnClick = TreeMenuClick
+        OnCollapsing = TreeMenuCollapsing
+        OnExpanding = TreeMenuCollapsing
+        OnKeyPress = TreeMenuKeyPress
+        OnMouseUp = TreeMenuMouseUp
+        ExplicitWidth = 437
+      end
+    end
+    object PageAction: TTabSheet
+      Caption = 'A'#231#245'es'
+      ImageIndex = 1
+      ExplicitWidth = 437
+      object TreeAction: TTreeView
+        Left = 0
+        Top = 0
+        Width = 343
+        Height = 453
+        Align = alClient
+        Ctl3D = True
+        Images = ImageList1
+        Indent = 19
+        ParentCtl3D = False
+        ReadOnly = True
+        RightClickSelect = True
+        TabOrder = 0
+        OnClick = TreeActionClick
+        OnCollapsing = TreeMenuCollapsing
+        OnExpanding = TreeMenuCollapsing
+        OnKeyPress = TreeMenuKeyPress
+        ExplicitWidth = 437
+      end
+    end
+    object PageControls: TTabSheet
+      Caption = 'Controles'
+      ImageIndex = 2
+      ExplicitWidth = 437
+    end
+  end
+  object Panel2: TPanel
+    Left = 0
+    Top = 484
+    Width = 448
+    Height = 35
+    Align = alBottom
+    BevelOuter = bvNone
+    TabOrder = 2
+    ExplicitWidth = 510
+    DesignSize = (
+      448
+      35)
+    object bAceptar: TButton
+      Left = 272
+      Top = 0
+      Width = 75
+      Height = 25
+      Anchors = [akRight, akBottom]
+      Caption = '&Aceptar'
+      Default = True
+      ModalResult = 1
+      TabOrder = 0
+      OnClick = bAceptarClick
+    end
+    object bCancelar: TButton
+      Left = 363
+      Top = 0
+      Width = 75
+      Height = 25
+      Anchors = [akRight, akBottom]
+      Cancel = True
+      Caption = '&Cancelar'
+      Default = True
+      ModalResult = 2
+      TabOrder = 1
+      OnClick = bCancelarClick
+    end
+  end
+  object GroupBox1: TGroupBox
+    Left = 8
+    Top = 8
+    Width = 431
+    Height = 458
+    Caption = 'Lista de m'#243'dulos'
+    TabOrder = 3
+    object BtLibera: TBitBtn
+      Left = 14
+      Top = 374
+      Width = 112
+      Height = 25
+      Caption = '&Permitir todo'
+      TabOrder = 0
+      OnClick = BtLiberaClick
+      Glyph.Data = {
+        36060000424D3606000000000000360000002800000020000000100000000100
+        18000000000000060000120B0000120B00000000000000000000C8D0D4C8D0D4
+        C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4C8D0
+        D4C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4C8
+        D0D4C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4C8D0D49FBFD0
+        0060900060900060900060900060900060900060900060900060900060900060
+        909FBFD0C8D0D4C8D0D4C8D0D4C2C8CB8D8D8D8D8D8D8D8D8D8D8D8D8D8D8D8D
+        8D8D8D8D8D8D8D8D8D8D8D8D8D8D8D8D8DC2C8CBC8D0D4C8D0D4C8D0D40090C8
+        98D8F80090C80090C80090C80090C80090C80090C80090C80090C80090C80090
+        C8006090C8D0D4C8D0D4C8D0D4B5B5B5E7E7E7B6B6B6B5B5B5B5B5B5B5B5B5B5
+        B5B5B5B5B5B6B6B6B5B5B5B5B5B5B5B5B58D8D8DC8D0D4C8D0D4C8D0D40090C8
+        D7EFFD7ACEF774CCF66EC9F55494A840404045879B4EBBF146B7EF42B5EF0090
+        C8006090C8D0D4C8D0D4C8D0D4B5B5B5F5F5F5E1E1E1E0E0E0DDDDDDB1B1B166
+        6666A7A7A7D5D5D5D3D3D3D2D2D2B5B5B58D8D8DC8D0D4C8D0D4C8D0D40090C8
+        D7EFFD83D2F87DD0F777CDF671CAF540404063C5F45AC1F352BDF14AB9F00090
+        C8006090C8D0D4C8D0D4C8D0D4B5B5B5F5F5F5E3E3E3E2E2E2E0E0E0DFDFDF66
+        6666DBDBDBD8D8D8D7D7D7D4D4D4B6B6B68D8D8DC8D0D4C8D0D4C8D0D40090C8
+        D7EFFD89D5F983D2F87DD0F740404040404040404063C5F45AC1F352BDF10090
+        C8006090C8D0D4C8D0D4C8D0D4B5B5B5F6F6F6E5E5E5E3E3E3E2E2E267676766
+        6666666666DCDCDCD9D9D9D6D6D6B6B6B68D8D8DC8D0D4C8D0D4C8D0D40090C8
+        D7EFFD8FD8FA89D5F983D2F862AABE40404062AABE6BC8F563C5F45AC1F30090
+        C8006090C8D0D4C8D0D4C8D0D4B5B5B5F6F6F6E7E7E7E5E5E5E3E3E3C2C2C266
+        6666C2C2C2DDDDDDDCDCDCD9D9D9B6B6B68D8D8DC8D0D4C8D0D4C8D0D40090C8
+        D7EFFD95DBFB8FD8FA89D5F983D2F87DD0F777CDF671CAF56BC8F563C5F40090
+        C8006090C8D0D4C8D0D4C8D0D4B6B6B6F5F5F5E9E9E9E7E7E7E5E5E5E3E3E3E2
+        E2E2E0E0E0DFDFDFDDDDDDDCDCDCB5B5B58D8D8DC8D0D4C8D0D4C8D0D40090C8
+        98D8F8D7EFFDD7EFFDD7EFFDD7EFFDD7EFFDD7EFFDD7EFFDD7EFFDD7EFFD98D8
+        F8006090C8D0D4C8D0D4C8D0D4B5B5B5E7E7E7F6F6F6F6F6F6F6F6F6F6F6F6F6
+        F6F6F6F6F6F6F6F6F6F6F6F5F5F5E7E7E78D8D8DC8D0D4C8D0D4C8D0D49FBFD0
+        028DC70090C80090C80090C80090C80090C80090C80090C80090C80090C80090
+        C89FBFD0C8D0D4C8D0D4C8D0D4C2C8CBB4B4B4B6B6B6B6B6B6B6B6B6B5B5B5B5
+        B5B5B5B5B5B6B6B6B6B6B6B5B5B5B5B5B5C2C8CBC8D0D4C8D0D4C8D0D4C8D0D4
+        C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4C8D0D40090C860C8F8006090C8D0
+        D4C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4C8
+        D0D4C8D0D4B6B6B6DDDDDD8D8D8DC8D0D4C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4
+        C8D0D40090C8006090006090C8D0D4C8D0D4C8D0D40090C860C8F8006090C8D0
+        D4C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4B6B6B68D8D8D8D8D8DC8D0D4C8
+        D0D4C8D0D4B6B6B6DDDDDD8D8D8DC8D0D4C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4
+        C8D0D40090C8D7EFFD0060909FBFD0C8D0D49FBFD00090C860C8F8006090C8D0
+        D4C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4B5B5B5F6F6F68D8D8DC2C8CBC8
+        D0D4C2C8CBB5B5B5DDDDDD8D8D8DC8D0D4C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4
+        C8D0D47FB1CDD7EFFD98D8F800609000609000609098D8F860C8F8367EA3C8D0
+        D4C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4BDC2C4F5F5F5E7E7E78D8D8D8E
+        8E8E8D8D8DE7E7E7DDDDDD9EA0A1C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4
+        C8D0D49FBFD07FB1CDD7EFFDD7EFFDD7EFFDD7EFFD4DB9EC367EA39FBFD0C8D0
+        D4C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4C2C8CBBDC2C4F6F6F6F6F6F6F6
+        F6F6F6F6F6D3D3D39EA0A1C2C8CBC8D0D4C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4
+        C8D0D4C8D0D49FBFD07FB1CD0090C80090C80090C87FB1CD9FBFD0C8D0D4C8D0
+        D4C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4C2C8CBBDC2C4B5B5B5B5
+        B5B5B5B5B5BDC2C4C2C8CBC8D0D4C8D0D4C8D0D4C8D0D4C8D0D4}
+      NumGlyphs = 2
+    end
+    object BtBloqueia: TBitBtn
+      Left = 14
+      Top = 413
+      Width = 112
+      Height = 25
+      Caption = '&Bloquear todo'
+      TabOrder = 1
+      OnClick = BtBloqueiaClick
+      Glyph.Data = {
+        36060000424D3606000000000000360000002800000020000000100000000100
+        18000000000000060000120B0000120B00000000000000000000C8D0D4C8D0D4
+        C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4C8D0
+        D4C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4C8
+        D0D4C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4C8D0D49FBFD0
+        0060900060900060900060900060900060900060900060900060900060900060
+        909FBFD0C8D0D4C8D0D4C8D0D4C2C8CB8D8D8D8D8D8D8D8D8D8D8D8D8D8D8D8D
+        8D8D8D8D8D8E8E8E8D8D8D8D8D8D8D8D8DC2C8CBC8D0D4C8D0D4C8D0D40090C8
+        98D8F80090C80090C80090C80090C80090C80090C80090C80090C80090C80090
+        C8006090C8D0D4C8D0D4C8D0D4B6B6B6E7E7E7B5B5B5B6B6B6B5B5B5B5B5B5B5
+        B5B5B6B6B6B5B5B5B5B5B5B6B6B6B6B6B68D8D8DC8D0D4C8D0D4C8D0D40090C8
+        D7EFFD7ACEF774CCF66EC9F55494A840404045879B4EBBF146B7EF42B5EF0090
+        C8006090C8D0D4C8D0D4C8D0D4B5B5B5F5F5F5E1E1E1E0E0E0DDDDDDB1B1B166
+        6666A7A7A7D5D5D5D3D3D3D2D2D2B6B6B68D8D8DC8D0D4C8D0D4C8D0D40090C8
+        D7EFFD83D2F87DD0F777CDF671CAF540404063C5F45AC1F352BDF14AB9F00090
+        C8006090C8D0D4C8D0D4C8D0D4B6B6B6F6F6F6E3E3E3E2E2E2E0E0E0DFDFDF66
+        6666DCDCDCD9D9D9D7D7D7D4D4D4B6B6B68D8D8DC8D0D4C8D0D4C8D0D40090C8
+        D7EFFD89D5F983D2F87DD0F740404040404040404063C5F45AC1F352BDF10090
+        C8006090C8D0D4C8D0D4C8D0D4B5B5B5F5F5F5E5E5E5E3E3E3E2E2E266666666
+        6666666666DCDCDCD8D8D8D6D6D6B5B5B58D8D8DC8D0D4C8D0D4C8D0D40090C8
+        D7EFFD8FD8FA89D5F983D2F862AABE40404062AABE6BC8F563C5F45AC1F30090
+        C8006090C8D0D4C8D0D4C8D0D4B6B6B6F6F6F6E7E7E7E6E6E6E3E3E3C2C2C267
+        6767C2C2C2DDDDDDDBDBDBD9D9D9B6B6B68D8D8DC8D0D4C8D0D4C8D0D40090C8
+        D7EFFD95DBFB8FD8FA89D5F983D2F87DD0F777CDF671CAF56BC8F563C5F40090
+        C8006090C8D0D4C8D0D4C8D0D4B5B5B5F6F6F6E9E9E9E7E7E7E6E6E6E3E3E3E2
+        E2E2E0E0E0DFDFDFDDDDDDDBDBDBB6B6B68D8D8DC8D0D4C8D0D4C8D0D40090C8
+        98D8F8D7EFFDD7EFFDD7EFFDD7EFFDD7EFFDD7EFFDD7EFFDD7EFFDD7EFFD98D8
+        F8006090C8D0D4C8D0D4C8D0D4B5B5B5E7E7E7F6F6F6F6F6F6F6F6F6F6F6F6F6
+        F6F6F6F6F6F6F6F6F6F6F6F6F6F6E7E7E78D8D8DC8D0D4C8D0D4C8D0D49FBFD0
+        0090C80090C80090C80090C80090C80090C80090C80090C80090C80090C80090
+        C89FBFD0C8D0D4C8D0D4C8D0D4C2C8CBB5B5B5B6B6B6B6B6B6B5B5B5B6B6B6B5
+        B5B5B6B6B6B6B6B6B5B5B5B5B5B5B6B6B6C2C8CBC8D0D4C8D0D4C8D0D4C8D0D4
+        C8D0D40090C8D7EFFD006090C8D0D4C8D0D4C8D0D40090C860C8F8006090C8D0
+        D4C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4B5B5B5F5F5F58D8D8DC8D0D4C8
+        D0D4C8D0D4B5B5B5DDDDDD8D8D8DC8D0D4C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4
+        C8D0D40090C8D7EFFD0060909FBFD0C8D0D49FBFD00090C860C8F8006090C8D0
+        D4C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4B5B5B5F6F6F68D8D8DC2C8CBC8
+        D0D4C2C8CBB5B5B5DEDEDE8D8D8DC8D0D4C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4
+        C8D0D47FB1CDD7EFFD98D8F800609000609000609060C8F860C8F8367EA3C8D0
+        D4C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4BDC2C4F6F6F6E7E7E78D8D8D8D
+        8D8D8D8D8DDEDEDEDDDDDD9EA0A1C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4
+        C8D0D49FBFD07FB1CDD7EFFDD7EFFDD7EFFDD7EFFD60C8F8367EA39FBFD0C8D0
+        D4C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4C2C8CBBDC2C4F6F6F6F6F6F6F6
+        F6F6F6F6F6DDDDDD9EA0A1C2C8CBC8D0D4C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4
+        C8D0D4C8D0D49FBFD07FB1CD0090C80090C80090C87FB1CD9FBFD0C8D0D4C8D0
+        D4C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4C2C8CBBDC2C4B5B5B5B5
+        B5B5B6B6B6BDC2C4C2C8CBC8D0D4C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4
+        C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4C8D0
+        D4C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4C8
+        D0D4C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4}
+      NumGlyphs = 2
+    end
+    object TreeControls: TTreeView
+      Left = 14
+      Top = 19
+      Width = 403
+      Height = 342
+      Ctl3D = True
+      Images = ImageList1
+      Indent = 19
+      ParentCtl3D = False
+      ReadOnly = True
+      RightClickSelect = True
+      TabOrder = 2
+      OnClick = TreeControlsClick
+      OnCollapsing = TreeMenuCollapsing
+      OnExpanding = TreeMenuCollapsing
+      OnKeyPress = TreeMenuKeyPress
+    end
+  end
+  object ImageList1: TImageList
+    Left = 360
+    Top = 8
+    Bitmap = {
+      494C010103000500040010001000FFFFFFFFFF10FFFFFFFFFFFFFFFF424D3600
+      0000000000003600000028000000400000001000000001002000000000000010
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000084848400C6DEC600C6DE
+      C600C6DEC600C6DEC600C6DEC600C6DEC600C6DEC600C6DEC600C6DEC600C6DE
+      C600C6DEC6000000000000000000000000000000000084848400C6DEC600C6DE
+      C600C6DEC600C6DEC600C6DEC600C6DEC600C6DEC600C6DEC600C6DEC600C6DE
+      C600C6DEC6000000000000000000000000000000000084848400C6DEC600C6DE
+      C600C6DEC600C6DEC600C6DEC600C6DEC600C6DEC600C6DEC600C6DEC600C6DE
+      C600C6DEC6000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000084848400848484000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000C6DEC6000000000000000000000000000000000084848400848484000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000C6DEC600000000000000000000000000000000008484840084848400C6C6
+      C600C6C6C600C6C6C600C6C6C600C6C6C600C6C6C600C6C6C600C6C6C600C6C6
+      C600C6DEC6000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000084848400848484000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000C6DEC6000000000000000000000000000000000084848400848484000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000C6DEC600000000000000000000000000000000008484840084848400C6C6
+      C600C6C6C600C6C6C60084848400C6C6C600C6C6C600C6C6C600C6C6C600C6C6
+      C600C6DEC6000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000084848400848484000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000C6DEC6000000000000000000000000000000000084848400848484000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000C6DEC600000000000000000000000000000000008484840084848400C6C6
+      C600C6C6C600848484008484840084848400C6C6C600C6C6C600C6C6C600C6C6
+      C600C6DEC6000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000084848400848484000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000C6DEC6000000000000000000000000000000000084848400848484000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000C6DEC600000000000000000000000000000000008484840084848400C6C6
+      C6008484840084848400848484008484840084848400C6C6C600C6C6C600C6C6
+      C600C6DEC6000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000084848400848484000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000C6DEC6000000000000000000000000000000000084848400848484000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000C6DEC600000000000000000000000000000000008484840084848400C6C6
+      C6008484840084848400C6C6C600848484008484840084848400C6C6C600C6C6
+      C600C6DEC6000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000084848400848484000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000C6DEC6000000000000000000000000000000000084848400848484000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000C6DEC600000000000000000000000000000000008484840084848400C6C6
+      C60084848400C6C6C600C6C6C600C6C6C600848484008484840084848400C6C6
+      C600C6DEC6000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000084848400848484000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000C6DEC6000000000000000000000000000000000084848400848484000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000C6DEC600000000000000000000000000000000008484840084848400C6C6
+      C600C6C6C600C6C6C600C6C6C600C6C6C600C6C6C6008484840084848400C6C6
+      C600C6DEC6000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000084848400848484000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000C6DEC6000000000000000000000000000000000084848400848484000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000C6DEC600000000000000000000000000000000008484840084848400C6C6
+      C600C6C6C600C6C6C600C6C6C600C6C6C600C6C6C600C6C6C60084848400C6C6
+      C600C6DEC6000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000084848400848484000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000C6DEC6000000000000000000000000000000000084848400848484000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000C6DEC600000000000000000000000000000000008484840084848400C6C6
+      C600C6C6C600C6C6C600C6C6C600C6C6C600C6C6C600C6C6C600C6C6C600C6C6
+      C600C6DEC6000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000084848400848484008484
+      8400848484008484840084848400848484008484840084848400848484008484
+      8400C6DEC6000000000000000000000000000000000084848400848484008484
+      8400848484008484840084848400848484008484840084848400848484008484
+      8400C6DEC6000000000000000000000000000000000084848400848484008484
+      8400848484008484840084848400848484008484840084848400848484008484
+      8400C6DEC6000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000084848400848484008484
+      8400848484008484840084848400848484008484840084848400848484008484
+      8400848484000000000000000000000000000000000084848400848484008484
+      8400848484008484840084848400848484008484840084848400848484008484
+      8400848484000000000000000000000000000000000084848400848484008484
+      8400848484008484840084848400848484008484840084848400848484008484
+      8400848484000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      000000000000000000000000000000000000424D3E000000000000003E000000
+      2800000040000000100000000100010000000000800000000000000000000000
+      000000000000000000000000FFFFFF00FFFFFFFFFFFF0000FFFFFFFFFFFF0000
+      FFFFFFFFFFFF000080078007800700009FF79FF7800700009FF79DF780070000
+      9FF798F7800700009FF79077800700009FF79237800700009FF7971780070000
+      9FF79F97800700009FF79FD7800700009FF79FF7800700008007800780070000
+      8007800780070000FFFFFFFFFFFF000000000000000000000000000000000000
+      000000000000}
+  end
+end

Source/ApplicationBase/Usuarios/Views/uEditorPermisosUsuario.pas

@@ -0,0 +1,700 @@
+unit uEditorPermisosUsuario;
+
+interface
+
+uses
+  UCBase, ActnMan, ActnMenus, Variants, Buttons, Classes, ComCtrls, Controls,
+  DB, ExtCtrls, Forms, Graphics, ImgList, Menus, StdCtrls, uBizUsuarios;
+
+type
+  PTreeMenu = ^TTreeMenu;
+
+  TTreeMenu = record
+    Selecionado: Integer;
+    MenuName:    String;
+  end;
+
+  PTreeAction = ^TTreeAction;
+
+  TTreeAction = record
+    Grupo:       Boolean;
+    Selecionado: Integer;
+    MenuName:    String;
+  end;
+
+  PTreeControl = ^TTreeControl;
+
+  TTreeControl = record
+    Grupo:       Boolean;
+    Selecionado: Integer;
+    CompName:    String;
+    FormName:    String;
+  end;
+
+  TfEditorPermisosUsuario = class(TForm)
+    Panel3:       TPanel;
+    BtLibera:     TBitBtn;
+    BtBloqueia:   TBitBtn;
+    ImageList1:   TImageList;
+    PC:           TPageControl;
+    PageMenu:     TTabSheet;
+    PageAction:   TTabSheet;
+    TreeMenu:     TTreeView;
+    TreeAction:   TTreeView;
+    PageControls: TTabSheet;
+    TreeControls: TTreeView;
+    Panel2: TPanel;
+    bAceptar: TButton;
+    bCancelar: TButton;
+    GroupBox1: TGroupBox;
+    procedure BtGravaClick(Sender: TObject);
+    procedure TreeMenuClick(Sender: TObject);
+    procedure BtLiberaClick(Sender: TObject);
+    procedure BtBloqueiaClick(Sender: TObject);
+    procedure FormShow(Sender: TObject);
+    procedure TreeActionClick(Sender: TObject);
+    procedure TreeControlsClick(Sender: TObject);
+    procedure TreeMenuCollapsing(Sender: TObject; Node: TTreeNode; var AllowCollapse: Boolean);
+    procedure TreeMenuKeyPress(Sender: TObject; var Key: char);
+    procedure TreeMenuMouseUp(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
+    procedure FormDestroy(Sender: TObject);
+    procedure bCancelarClick(Sender: TObject);
+    procedure bAceptarClick(Sender: TObject);
+  private
+    FMenu:              TMenu;
+    FActions:           TObject;
+    FChangingTree:      Boolean;
+    FTempMPointer:      PTreeMenu;
+    FTempAPointer:      PTreeAction;
+    FTempCPointer:      PTreeControl;
+    FExtraRights:       TUCExtraRights;
+    FTempLista:         TStringList;
+    FListaAction:       array of PTreeAction;
+    FListaMenu:         array of PTreeMenu;
+    FListaControl:      array of PTreeControl;
+    {$IFDEF UCACTMANAGER}
+    FActionMainMenuBar: TActionMainMenuBar;
+    procedure TrataItem(IT: TActionClientItem; node: TTreeNode); overload;
+    {$ENDIF}
+    procedure TrataItem(IT: TMenuItem; node: TTreeNode); overload;
+    procedure TreeMenuItem(marca: Boolean);
+    procedure Atualiza(Selec: Boolean);
+    procedure TreeActionItem(marca: Boolean);
+    procedure UnCheckChild(node: TTreeNode);
+    procedure TreeControlItem(marca: Boolean);
+    procedure CarregaTreeviews;
+  public
+    FUser : IBizUsuario;
+    FUserControl: TUserControl;
+    DSPermiss:    TDataset;
+    DSPermissEX:  TDataset;
+    DSPerfil:     TDataset;
+    DSPerfilEX:   TDataset;
+  end;
+
+implementation
+
+uses
+  ActnList, Messages, SysUtils, Windows;
+
+{$R *.dfm}
+
+procedure TfEditorPermisosUsuario.BtGravaClick(Sender: TObject);
+var
+  Contador: Integer;
+begin
+  with FUserControl.TableRights do
+  begin
+    FUserControl.DataConnector.UCExecSQL('Delete from ' + TableName + ' Where ' + FieldUserID + ' = ' + IntToStr(FUser.ID) + ' and ' + FieldModule + ' = ' + QuotedStr(FUserControl.ApplicationID));
+    FUserControl.DataConnector.UCExecSQL('Delete from ' + TableName + 'EX Where ' + FieldUserID + ' = ' + IntToStr(FUser.ID) + ' and ' + FieldModule + ' = ' + QuotedStr(FUserControl.ApplicationID));
+  end;
+
+  for Contador := 0 to TreeMenu.Items.Count - 1 do
+    if PTreeMenu(TreeMenu.Items[Contador].Data).Selecionado = 1 then
+      FUserControl.AddRight(FUser.ID, PTreeMenu(TreeMenu.Items[Contador].Data).MenuName);
+
+  for Contador := 0 to TreeAction.Items.Count - 1 do
+    if PTreeAction(TreeAction.Items[Contador].Data).Selecionado = 1 then
+      FUserControl.AddRight(FUser.ID, PTreeAction(TreeAction.Items[Contador].Data).MenuName);
+
+  //Extra Rights
+  for Contador := 0 to Pred(TreeControls.Items.Count) do
+    if PTreeControl(TreeControls.Items[Contador].Data).Selecionado = 1 then
+      FUserControl.AddRightEX(FUser.ID, FUserControl.ApplicationID, PTreeControl(TreeControls.Items[Contador].Data).FormName, PTreeControl(TreeControls.Items[Contador].Data).CompName);
+
+  Close;
+end;
+
+procedure TfEditorPermisosUsuario.TrataItem(IT: TMenuItem; node: TTreeNode);
+var
+  contador: Integer;
+  TempNode: TTreeNode;
+begin
+  for contador := 0 to IT.Count - 1 do
+    if IT.Items[Contador].Caption <> '-' then
+      if IT.Items[Contador].Count > 0 then
+      begin
+        New(FTempMPointer);
+        SetLength(FListaMenu, Length(FListaMenu) + 1);  //Adicionado por Luiz 18/01/06
+        FListaMenu[High(FListaMenu)] := FTempMPointer;  //Adicionado por Luiz 18/01/06
+        FTempMPointer.Selecionado    := 0;
+        FTempMPointer.MenuName       := IT.Items[Contador].Name;
+        TempNode                     := TreeMenu.Items.AddChildObject(node, StringReplace(IT.Items[Contador].Caption, '&', '', [rfReplaceAll]), FTempMPointer);
+        TrataItem(IT.Items[Contador], TempNode);
+      end
+      else
+      begin
+        New(FTempMPointer);
+        SetLength(FListaMenu, Length(FListaMenu) + 1);  //Adicionado por Luiz 18/01/06
+        FListaMenu[High(FListaMenu)] := FTempMPointer;  //Adicionado por Luiz 18/01/06
+        FTempMPointer.Selecionado    := 0;
+        FTempMPointer.MenuName       := IT.Items[Contador].Name;
+        TreeMenu.Items.AddChildObject(node, StringReplace(IT.Items[Contador].Caption, '&', '', [rfReplaceAll]), FTempMPointer);
+      end;
+end;
+
+{$IFDEF UCACTMANAGER}
+procedure TUserPermis.TrataItem(IT: TActionClientItem; node: TTreeNode);
+var
+  contador: Integer;
+  TempNode: TTreeNode;
+begin
+  for contador := 0 to IT.Items.Count - 1 do
+    if IT.Items[Contador].Caption <> '-' then
+      if IT.Items[Contador].Items.Count > 0 then
+      begin
+        New(FTempMPointer);
+        SetLength(FListaMenu, Length(FListaMenu) + 1);  //Adicionado por Luiz 18/01/06
+        FListaMenu[High(FListaMenu)] := FTempMPointer;  //Adicionado por Luiz 18/01/06
+        FTempMPointer.Selecionado    := 0;
+        FTempMPointer.MenuName       := #1 + 'G' + IT.Items[Contador].Caption;
+        TempNode                     := TreeMenu.Items.AddChildObject(node, StringReplace(IT.Items[Contador].Caption, '&', '', [rfReplaceAll]), FTempMPointer);
+        TrataItem(IT.Items[Contador], TempNode);
+      end
+      else
+      begin
+        New(FTempMPointer);
+        SetLength(FListaMenu, Length(FListaMenu) + 1);  //Adicionado por Luiz 18/01/06
+        FListaMenu[High(FListaMenu)] := FTempMPointer;  //Adicionado por Luiz 18/01/06
+        FTempMPointer.Selecionado    := 0;
+        FTempMPointer.MenuName       := IT.Items[Contador].Action.Name;
+        TreeMenu.Items.AddChildObject(node, StringReplace(IT.Items[Contador].Caption, '&', '', [rfReplaceAll]), FTempMPointer);
+      end;
+end;
+
+{$ENDIF}
+
+procedure TfEditorPermisosUsuario.CarregaTreeviews;
+var
+  Contador: Integer;
+  TempNode: TTreeNode;
+  Temp:     String;
+  Temp2:    String;
+  Desc:     String;
+begin
+  FChangingTree := False;
+  PC.ActivePage := PageControls;
+
+//  Self.FMenu := FUserControl.ControlRight.MainMenu;
+  //Self.FActionMainMenuBar := FUserControl.ControlRight.ActionMainMenuBar;
+{  if Assigned(FUserControl.ControlRight.ActionList) then
+    Self.FActions := FUserControl.ControlRight.ActionList
+  else
+    Self.FActions := FUserControl.ControlRight.ActionManager;}
+
+  Self.FExtraRights := FUserControl.ExtraRights;
+
+{  if Assigned(FMenu) then
+  begin
+    TreeMenu.Items.Clear;
+    for Contador := 0 to FMenu.Items.Count - 1 do
+      if FMenu.Items[Contador].Count > 0 then
+      begin
+        New(FTempMPointer);
+        SetLength(FListaMenu, Length(FListaMenu) + 1);  //Adicionado por Luiz 18/01/06
+        FListaMenu[High(FListaMenu)] := FTempMPointer;  //Adicionado por Luiz 18/01/06
+        FTempMPointer.Selecionado    := 0;
+        FTempMPointer.MenuName       := FMenu.Items[Contador].Name;
+        TempNode                     := TreeMenu.Items.AddObject(nil, StringReplace(FMenu.Items[Contador].Caption, '&', '', [rfReplaceAll]), FTempMPointer);
+        TrataItem(FMenu.Items[Contador], TempNode);
+      end
+      else
+        if FMenu.Items[Contador].Caption <> '-' then
+        begin
+          New(FTempMPointer);
+          SetLength(FListaMenu, Length(FListaMenu) + 1);  //Adicionado por Luiz 18/01/06
+          FListaMenu[High(FListaMenu)] := FTempMPointer;  //Adicionado por Luiz 18/01/06
+          FTempMPointer.Selecionado    := 0;
+          FTempMPointer.MenuName       := FMenu.Items[Contador].Name;
+          TreeMenu.Items.AddObject(nil, StringReplace(FMenu.Items[Contador].Caption, '&', '', [rfReplaceAll]), FTempMPointer);
+        end;
+    TreeMenu.FullExpand;
+    TreeMenu.Perform(WM_VSCROLL, SB_TOP, 0);
+  end;
+
+  TempNode := nil;
+  if Assigned(FActions) then
+  begin
+    TreeAction.Items.Clear;
+    if Assigned(FTempLista) then
+      FreeAndNil(FTempLista);
+    FTempLista := TStringList.Create;
+    for Contador := 0 to TActionList(FActions).ActionCount - 1 do
+      FTempLista.Append(TActionList(FActions).Actions[contador].Category + #1 + TActionList(FActions).Actions[contador].Name + #2 + TAction(TActionList(FActions).Actions[contador]).Caption);
+    FTempLista.Sort;
+    Temp := #1;
+    for Contador := 0 to FTempLista.Count - 1 do
+    begin
+      if Temp <> Copy(FTempLista[Contador], 1, Pos(#1, FTempLista[Contador]) - 1) then
+      begin
+        New(FTempAPointer);
+        SetLength(FListaAction, Length(FListaAction) + 1);  //Adicionado por Luiz 18/01/06
+        FListaAction[High(FListaAction)] := FTempAPointer;  //Adicionado por Luiz 18/01/06
+        FTempAPointer.Grupo              := True;
+        FTempAPointer.Selecionado        := 0;
+        FTempAPointer.MenuName           := 'Grupo';
+        TempNode                         := TreeAction.Items.AddObject(nil, StringReplace(Copy(FTempLista[Contador], 1, Pos(#1, FTempLista[Contador]) - 1), '&', '', [rfReplaceAll]), FTempAPointer);
+        TempNode.ImageIndex              := 2;
+        TempNode.SelectedIndex           := 2;
+        Temp                             := Copy(FTempLista[Contador], 1, Pos(#1, FTempLista[Contador]) - 1);
+      end;
+      Temp2 := FTempLista[Contador];
+      Delete(Temp2, 1, pos(#1, Temp2));
+      New(FTempAPointer);
+      SetLength(FListaAction, Length(FListaAction) + 1);  //Adicionado por Luiz 18/01/06
+      FListaAction[High(FListaAction)] := FTempAPointer;  //Adicionado por Luiz 18/01/06
+      FTempAPointer.Grupo              := False;
+      FTempAPointer.Selecionado        := 0;
+      FTempAPointer.MenuName           := Copy(Temp2, 1, Pos(#2, Temp2) - 1);
+      Delete(Temp2, 1, pos(#2, Temp2));
+      TreeAction.Items.AddChildObject(TempNode, StringReplace(Temp2, '&', '', [rfReplaceAll]), FTempAPointer);
+    end;
+    TreeAction.FullExpand;
+    TreeAction.Perform(WM_VSCROLL, SB_TOP, 0);
+  end;
+ }
+  //ExtraRights
+  TempNode := nil;
+  if Self.FExtraRights.Count > 0 then
+  begin
+    TreeControls.Items.Clear;
+    if Assigned(FTempLista) then
+      FreeAndNil(FTempLista);
+    FTempLista := TStringList.Create;
+    for Contador := 0 to Pred(FExtraRights.Count) do
+      //FTempLista.Append(FExtraRights[Contador].GroupName + #1 + FExtraRights[Contador].Caption + #2 + FExtraRights[Contador].FormName + #3 + FExtraRights[Contador].CompName);
+      FTempLista.Append(FExtraRights[Contador].GroupName + #1 + FExtraRights[Contador].Caption + #2 + FExtraRights[Contador].Caption + #3 + FExtraRights[Contador].Caption);
+    FTempLista.Sort;
+    Temp := #1;
+    for Contador := 0 to Pred(FTempLista.Count) do
+    begin
+      if Temp <> Copy(FTempLista[Contador], 1, Pos(#1, FTempLista[Contador]) - 1) then
+      begin
+        New(FTempCPointer);
+        SetLength(FListaControl, Length(FListaControl) + 1);  //Adicionado por Luiz 18/01/06
+        FListaControl[High(FListaControl)] := FTempCPointer;  //Adicionado por Luiz 18/01/06
+        FTempCPointer.Grupo                := True;
+        FTempCPointer.Selecionado          := 0;
+        FTempCPointer.FormName             := 'Grupo';
+        FTempCPointer.CompName             := 'Grupo';
+        TempNode                           := TreeControls.Items.AddObject(nil, Copy(FTempLista[Contador], 1, Pos(#1, FTempLista[Contador]) - 1), FTempCPointer);
+        TempNode.ImageIndex                := 2;
+        TempNode.SelectedIndex             := 2;
+        Temp                               := Copy(FTempLista[Contador], 1, Pos(#1, FTempLista[Contador]) - 1);
+      end;
+      Temp2 := FTempLista[Contador];
+      Delete(Temp2, 1, pos(#1, Temp2));
+      New(FTempCPointer);
+      SetLength(FListaControl, Length(FListaControl) + 1);  //Adicionado por Luiz 18/01/06
+      FListaControl[High(FListaControl)] := FTempCPointer;  //Adicionado por Luiz 18/01/06
+      FTempCPointer.Grupo                := False;
+      FTempCPointer.Selecionado          := 0;
+      Desc                               := Copy(Temp2, 1, Pos(#2, Temp2) - 1); // descricao do objeto
+      Delete(Temp2, 1, pos(#2, Temp2));
+
+      FTempCPointer.FormName := Copy(Temp2, 1, Pos(#3, Temp2) - 1);
+      Delete(Temp2, 1, pos(#3, Temp2));
+      FTempCPointer.CompName := Temp2;
+      TreeControls.Items.AddChildObject(TempNode, Desc, FTempCPointer);
+      FTempCPointer := nil;
+    end;
+    TreeControls.FullExpand;
+    TreeControls.Perform(WM_VSCROLL, SB_TOP, 0);
+  end;
+
+{  PageMenu.TabVisible := Assigned(FMenu);
+
+  PageAction.TabVisible := Assigned(FActions);}
+
+  PageControls.TabVisible := (Assigned(FExtraRights) and (FExtraRights.Count > 0));
+end;
+
+procedure TfEditorPermisosUsuario.UnCheckChild(node: TTreeNode);
+var
+  child: TTreeNode;
+begin
+  PTreemenu(node.Data).Selecionado := 0;
+  node.ImageIndex                  := 0;
+  node.SelectedIndex               := 0;
+  child                            := node.GetFirstChild;
+  repeat
+    if child.HasChildren then
+      UnCheckChild(child)
+    else
+    begin
+      PTreemenu(child.Data).Selecionado := 0;
+      child.ImageIndex                  := 0;
+      child.SelectedIndex               := 0;
+    end;
+    child := node.GetNextChild(child);
+  until child = nil;
+end;
+
+procedure TfEditorPermisosUsuario.TreeMenuItem(Marca: Boolean);
+var
+  AbsIdx: Integer;
+begin
+  if Marca then
+    if PTreemenu(TreeMenu.Selected.Data).Selecionado < 2 then
+    begin
+      if PTreemenu(TreeMenu.Selected.Data).Selecionado = 0 then //marcar
+      begin
+        AbsIdx := TreeMenu.Selected.AbsoluteIndex;
+        while AbsIdx > -1 do
+        begin
+          PTreemenu(TreeMenu.Items.Item[AbsIdx].Data).Selecionado := 1;
+          TreeMenu.Items.Item[AbsIdx].ImageIndex                  := 1;
+          TreeMenu.Items.Item[AbsIdx].SelectedIndex               := 1;
+          if TreeMenu.Items.Item[AbsIdx].Parent <> nil then
+          begin
+            AbsIdx := TreeMenu.Items.Item[AbsIdx].Parent.AbsoluteIndex;
+            if PTreemenu(TreeMenu.Items.Item[AbsIdx].Data).Selecionado = 2 then
+              AbsIdx := -1;
+          end
+          else
+            AbsIdx := -1;
+        end;
+      end
+      else
+        if TreeMenu.Selected.HasChildren then
+          UnCheckChild(TreeMenu.Selected)
+        else
+        begin
+          PTreemenu(TreeMenu.Selected.Data).Selecionado := 0;
+          TreeMenu.Selected.ImageIndex                  := 0;
+          TreeMenu.Selected.SelectedIndex               := 0;
+        end; //desmarcar
+      TreeMenu.Repaint;
+    end;
+end;
+
+procedure TfEditorPermisosUsuario.TreeActionItem(marca: Boolean);
+begin
+  if not Assigned(FActions) then
+    Exit;
+  if PTreeAction(TreeAction.Selected.Data).Grupo then
+    Exit;
+  if Marca then
+  begin
+    if PTreeAction(TreeAction.Selected.Data).Selecionado < 2 then
+      if PTreeAction(TreeAction.Selected.Data).Selecionado = 0 then
+        PTreeAction(TreeAction.Selected.Data).Selecionado := 1
+      else
+        PTreeAction(TreeAction.Selected.Data).Selecionado := 0;
+    TreeAction.Selected.ImageIndex := PTreeAction(TreeAction.Selected.Data).Selecionado;
+    TreeAction.Selected.SelectedIndex := PTreeAction(TreeAction.Selected.Data).Selecionado;
+  end;
+  TreeAction.Repaint;
+end;
+
+procedure TfEditorPermisosUsuario.TreeControlItem(marca: Boolean);
+begin
+  if PTreeControl(TreeControls.Selected.Data).Grupo then
+    Exit;
+  if Marca then
+  begin
+    if PTreeControl(TreeControls.Selected.Data).Selecionado < 2 then
+      if PTreeControl(TreeControls.Selected.Data).Selecionado = 0 then
+        PTreeControl(TreeControls.Selected.Data).Selecionado := 1
+      else
+        PTreeControl(TreeControls.Selected.Data).Selecionado := 0;
+    TreeControls.Selected.ImageIndex := PTreeControl(TreeControls.Selected.Data).Selecionado;
+    TreeControls.Selected.SelectedIndex := PTreeAction(TreeControls.Selected.Data).Selecionado;
+  end;
+  TreeControls.Repaint;
+end;
+
+procedure TfEditorPermisosUsuario.TreeMenuClick(Sender: TObject);
+begin
+  if not FChangingTree then
+    TreeMenuItem(True);
+end;
+
+procedure TfEditorPermisosUsuario.BtLiberaClick(Sender: TObject);
+begin
+  Atualiza(True);
+end;
+
+procedure TfEditorPermisosUsuario.bCancelarClick(Sender: TObject);
+begin
+  Close;
+end;
+
+procedure TfEditorPermisosUsuario.Atualiza(Selec: Boolean);
+var
+  Contador: Integer;
+  Temp:     Integer;
+begin
+  if Selec then
+    Temp := 1
+  else
+    Temp := 0;
+
+  if PC.ActivePage = PageMenu then
+  begin
+    for Contador := 0 to TreeMenu.Items.Count - 1 do
+      if PTreeMenu(TreeMenu.Items[Contador].Data).Selecionado < 2 then
+      begin
+        PTreeMenu(TreeMenu.Items[Contador].Data).Selecionado := Temp;
+        TreeMenu.Items[Contador].ImageIndex                  := Temp;
+        TreeMenu.Items[Contador].SelectedIndex               := Temp;
+      end;
+    TreeMenu.Repaint;
+  end
+  else
+    if PC.ActivePage = PageAction then
+    begin
+      for Contador := 0 to TreeAction.Items.Count - 1 do
+        if not PTreeAction(TreeAction.Items[Contador].Data).Grupo then
+          if PTreeAction(TreeAction.Items[Contador].Data).Selecionado < 2 then
+          begin
+            PTreeAction(TreeAction.Items[Contador].Data).Selecionado := Temp;
+            TreeAction.Items[Contador].ImageIndex                    := Temp;
+            TreeAction.Items[Contador].SelectedIndex                 := Temp;
+          end;
+      TreeAction.Repaint;
+    end
+    else
+    begin // tabContols
+      for Contador := 0 to TreeControls.Items.Count - 1 do
+        if not PTreeControl(TreeControls.Items[Contador].Data).Grupo then
+          if PTreeControl(TreeControls.Items[Contador].Data).Selecionado < 2 then
+          begin
+            PTreeControl(TreeControls.Items[Contador].Data).Selecionado := Temp;
+            TreeControls.Items[Contador].ImageIndex                     := Temp;
+            TreeControls.Items[Contador].SelectedIndex                  := Temp;
+          end;
+      TreeControls.Repaint;
+    end;
+end;
+
+
+procedure TfEditorPermisosUsuario.bAceptarClick(Sender: TObject);
+var
+  Contador: Integer;
+begin
+  with FUserControl.TableRights do
+  begin
+    FUserControl.DataConnector.UCExecSQL('Delete from ' + TableName + ' Where ' + FieldUserID + ' = ' + IntToStr(FUser.ID) + ' and ' + FieldModule + ' = ' + QuotedStr(FUserControl.ApplicationID));
+    FUserControl.DataConnector.UCExecSQL('Delete from ' + TableName + 'EX Where ' + FieldUserID + ' = ' + IntToStr(FUser.ID) + ' and ' + FieldModule + ' = ' + QuotedStr(FUserControl.ApplicationID));
+  end;
+
+  for Contador := 0 to TreeMenu.Items.Count - 1 do
+    if PTreeMenu(TreeMenu.Items[Contador].Data).Selecionado = 1 then
+      FUserControl.AddRight(FUser.ID, PTreeMenu(TreeMenu.Items[Contador].Data).MenuName);
+
+  for Contador := 0 to TreeAction.Items.Count - 1 do
+    if PTreeAction(TreeAction.Items[Contador].Data).Selecionado = 1 then
+      FUserControl.AddRight(FUser.ID, PTreeAction(TreeAction.Items[Contador].Data).MenuName);
+
+  //Extra Rights
+  for Contador := 0 to Pred(TreeControls.Items.Count) do
+    if PTreeControl(TreeControls.Items[Contador].Data).Selecionado = 1 then
+      FUserControl.AddRightEX(FUser.ID, FUserControl.ApplicationID, PTreeControl(TreeControls.Items[Contador].Data).FormName, PTreeControl(TreeControls.Items[Contador].Data).CompName);
+
+  Close;
+end;
+
+procedure TfEditorPermisosUsuario.BtBloqueiaClick(Sender: TObject);
+begin
+  Atualiza(False);
+end;
+
+procedure TfEditorPermisosUsuario.FormShow(Sender: TObject);
+var
+  Contador: Integer;
+  Selec:    Integer;
+begin
+  Caption := 'Permisos para ' + FUser.USERNAME;
+  
+  // Adcionado por Luiz
+  SetLength(FListaAction, 0);
+  SetLength(FListaMenu, 0);
+  SetLength(FListaControl, 0);
+
+  //carrega itens do menu, actions e controles
+  CarregaTreeviews;
+
+  // Exibe Permissoes do Usuario
+  for Contador := 0 to TreeAction.Items.Count - 1 do
+  begin
+    DSPermiss.First;
+    if DSPermiss.Locate('ObjName', PTreeAction(TreeAction.Items[Contador].Data).MenuName, []) then
+      Selec := 1
+    else
+      Selec := 0;
+
+    PTreeAction(TreeAction.Items[Contador].Data).Selecionado := Selec;
+    if not PTreeAction(TreeAction.Items[Contador].Data).Grupo then
+    begin
+      TreeAction.Items[Contador].ImageIndex    := Selec;
+      TreeAction.Items[Contador].SelectedIndex := Selec;
+    end;
+  end;
+
+  for Contador := 0 to TreeMenu.Items.Count - 1 do
+  begin
+    DSPermiss.First;
+    if DSPermiss.Locate('ObjName', PTreeMenu(TreeMenu.Items[Contador].Data).MenuName, []) then
+      Selec := 1
+    else
+      Selec := 0;
+
+    PTreeMenu(TreeMenu.Items[Contador].Data).Selecionado := Selec;
+    TreeMenu.Items[Contador].ImageIndex                  := Selec;
+    TreeMenu.Items[Contador].SelectedIndex               := Selec;
+  end;
+
+  //Extra Rights
+  for Contador := 0 to Pred(TreeControls.Items.Count) do
+  begin
+    DSPermissEX.First;
+    if DSPermissEX.Locate('FormName;ObjName', VarArrayOf([PTreeControl(TreeControls.Items[Contador].Data).FormName, PTreeControl(TreeControls.Items[Contador].Data).CompName]), []) then
+      Selec := 1
+    else
+      Selec := 0;
+
+    PTreeControl(TreeControls.Items[Contador].Data).Selecionado := Selec;
+    if not PTreeControl(TreeControls.Items[Contador].Data).Grupo then
+    begin
+      TreeControls.Items[Contador].ImageIndex    := Selec;
+      TreeControls.Items[Contador].SelectedIndex := Selec;
+    end;
+  end;
+
+  // Exibe Permissoes do Perfil
+  if DSPerfil.Active then
+  begin
+    for Contador := 0 to TreeAction.Items.Count - 1 do
+    begin
+      DSPerfil.First;
+      if DSPerfil.Locate('ObjName', PTreeAction(TreeAction.Items[Contador].Data).MenuName, []) then
+      begin
+        Selec                                                    := 2;
+        PTreeAction(TreeAction.Items[Contador].Data).Selecionado := Selec;
+        if not PTreeAction(TreeAction.Items[Contador].Data).Grupo then
+        begin
+          TreeAction.Items[Contador].ImageIndex    := Selec;
+          TreeAction.Items[Contador].SelectedIndex := Selec;
+        end;
+      end;
+    end;
+
+    for Contador := 0 to TreeMenu.Items.Count - 1 do
+    begin
+      DSPerfil.First;
+      if DSPerfil.Locate('ObjName', PTreeMenu(TreeMenu.Items[Contador].Data).MenuName, []) then
+      begin
+        Selec                                                := 2;
+        PTreeMenu(TreeMenu.Items[Contador].Data).Selecionado := Selec;
+        TreeMenu.Items[Contador].ImageIndex                  := Selec;
+        TreeMenu.Items[Contador].SelectedIndex               := Selec;
+      end;
+    end;
+
+    //Extra Rights
+    for Contador := 0 to Pred(TreeControls.Items.Count) do
+    begin
+      DSPerfilEX.First;
+      if DSPerfilEX.Locate('FormName;ObjName', VarArrayOf([PTreeControl(TreeControls.Items[Contador].Data).FormName, PTreeControl(TreeControls.Items[Contador].Data).CompName]), []) then
+      begin
+        Selec                                                       := 2;
+        PTreeControl(TreeControls.Items[Contador].Data).Selecionado := Selec;
+        if not PTreeControl(TreeControls.Items[Contador].Data).Grupo then
+        begin
+          TreeControls.Items[Contador].ImageIndex    := Selec;
+          TreeControls.Items[Contador].SelectedIndex := Selec;
+        end;
+      end;
+    end;
+  end;
+
+  TreeAction.Repaint;
+  TreeMenu.Repaint;
+  FChangingTree := False;
+end;
+
+procedure TfEditorPermisosUsuario.TreeActionClick(Sender: TObject);
+begin
+  if not FChangingTree then
+    TreeActionItem(True);
+end;
+
+procedure TfEditorPermisosUsuario.TreeControlsClick(Sender: TObject);
+begin
+  if not FChangingTree then
+    TreeControlItem(True);
+end;
+
+procedure TfEditorPermisosUsuario.TreeMenuCollapsing(Sender: TObject; Node: TTreeNode; var AllowCollapse: Boolean);
+begin
+  if (Self.Showing) and (TTreeView(Sender).Focused) then
+    FChangingTree := True;
+end;
+
+procedure TfEditorPermisosUsuario.TreeMenuKeyPress(Sender: TObject; var Key: char);
+begin
+  if Key = ' ' then
+  begin
+    TTreeView(Sender).OnClick(Sender);
+    Key := #0;
+  end;
+end;
+
+procedure TfEditorPermisosUsuario.TreeMenuMouseUp(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
+begin
+  FChangingTree := False;
+end;
+
+procedure TfEditorPermisosUsuario.FormDestroy(Sender: TObject);
+var
+  Contador: Integer;
+begin
+  // Adicionado por Luiz 18/01/06
+  if Assigned(DSPermiss) then
+    FreeAndNil(DSPermiss);
+
+  if Assigned(DSPermissEX) then
+    FreeAndNil(DSPermissEX);
+
+  if Assigned(DSPerfil) then
+    FreeAndNil(DSPerfil);
+
+  if Assigned(DSPerfilEX) then
+    FreeAndNil(DSPerfilEX);
+
+  if Assigned(FTempLista) then
+    FreeAndNil(FTempLista);
+
+  for Contador := 0 to High(FListaMenu) do
+    Dispose(FListaMenu[Contador]);
+
+  for Contador := 0 to High(FListaAction) do
+    Dispose(FListaAction[Contador]);
+
+  for Contador := 0 to High(FListaControl) do
+    Dispose(FListaControl[Contador]);
+end;
+
+end.
+

Source/ApplicationBase/Usuarios/Views/uEditorUsuario.dfm

@@ -40,12 +40,11 @@ inherited fEditorUsuario: TfEditorUsuario
     ParentFont = False
     TabOrder = 3
     ReadOnly = False
-    ExplicitTop = 76
+    ExplicitLeft = 8
-    ExplicitWidth = 656
+    ExplicitTop = 8
-    ExplicitHeight = 370
     inherited dxLayoutControlArticulo: TdxLayoutControl
       Width = 656
-      ExplicitWidth = 656
+      LookAndFeel = dxLayoutOfficeLookAndFeel1
       inherited PngSpeedButton3: TPngSpeedButton
         Top = 84
         ExplicitTop = 84
@@ -83,9 +82,6 @@ inherited fEditorUsuario: TfEditorUsuario
         Top = 112
         ExplicitTop = 112
       end
-      inherited dxLayoutGroup1: TdxLayoutGroup
-        LookAndFeel = dxLayoutOfficeLookAndFeel1
-      end
     end
   end
   inherited EditorActionList: TActionList [4]
@@ -117,8 +113,6 @@ inherited fEditorUsuario: TfEditorUsuario
   end
   inherited JvFormStorage: TJvFormStorage [7]
   end
-  inherited JvAppRegistryStorage: TJvAppRegistryStorage [8]
-  end
   inherited dsDataTable: TDADataSource
     OnDataChange = dsDataTableDataChange
     Top = 80

Source/ApplicationBase/Usuarios/Views/uEditorUsuarios.dfm

@@ -18,10 +18,13 @@ inherited fEditorUsuarios: TfEditorUsuarios
     Width = 840
     ExplicitWidth = 840
     inherited tbxMain: TTBXToolbar
-      ExplicitWidth = 348
+      ExplicitWidth = 494
       object TBXItem39: TTBXItem [8]
         Action = actCambiarPassword
       end
+      object TBXItem35: TTBXItem [9]
+        Action = actControlAcceso
+      end
     end
     inherited tbxMenu: TTBXToolbar
       ExplicitWidth = 840
@@ -33,10 +36,10 @@ inherited fEditorUsuarios: TfEditorUsuarios
       end
     end
     inherited tbxFiltro: TTBXToolbar
-      Left = 348
+      Left = 494
       DockPos = 346
       Visible = False
-      ExplicitLeft = 348
+      ExplicitLeft = 494
     end
   end
   inherited StatusBar: TStatusBar
@@ -47,6 +50,7 @@ inherited fEditorUsuarios: TfEditorUsuarios
   end
   inherited EditorActionList: TActionList
     inherited actNuevo: TAction
+      Caption = 'Nuevo usuario'
       OnExecute = actNuevoExecute
     end
     inherited actModificar: TAction
@@ -67,5 +71,22 @@ inherited fEditorUsuarios: TfEditorUsuarios
       OnExecute = actCambiarPasswordExecute
       OnUpdate = actCambiarPasswordUpdate
     end
+    object actControlAcceso: TAction
+      Category = 'Herramientas'
+      Caption = 'Control de acceso...'
+      OnExecute = actControlAccesoExecute
+      OnUpdate = actControlAccesoUpdate
+    end
+  end
+  inherited GridPopupMenu: TPopupMenu
+    object Cambiarlacontrasea1: TMenuItem [0]
+      Action = actCambiarPassword
+    end
+    object Controldeacceso1: TMenuItem [1]
+      Action = actControlAcceso
+    end
+    object N3: TMenuItem [2]
+      Caption = '-'
+    end
   end
 end

Source/ApplicationBase/Usuarios/Views/uEditorUsuarios.pas

@@ -18,6 +18,11 @@ type
     TBXSubmenuItem2: TTBXSubmenuItem;
     TBXItem38: TTBXItem;
     TBXItem39: TTBXItem;
+    Cambiarlacontrasea1: TMenuItem;
+    actControlAcceso: TAction;
+    Controldeacceso1: TMenuItem;
+    N3: TMenuItem;
+    TBXItem35: TTBXItem;
     procedure actEliminarUpdate(Sender: TObject);
     procedure actCambiarPasswordUpdate(Sender: TObject);
     procedure actCambiarPasswordExecute(Sender: TObject);
@@ -25,9 +30,12 @@ type
     procedure actEliminarExecute(Sender: TObject);
     procedure actModificarExecute(Sender: TObject);
     procedure FormShow(Sender: TObject);
+    procedure actControlAccesoExecute(Sender: TObject);
+    procedure actControlAccesoUpdate(Sender: TObject);
   private
     FUsuarios : IBizUsuario;
     FController : IUsuariosController;
+    function HayDatos: Boolean;
   protected
     function GetController : IUsuariosController;
     procedure SetController (const Value : IUsuariosController);
@@ -72,8 +80,27 @@ end;
 procedure TfEditorUsuarios.actCambiarPasswordUpdate(Sender: TObject);
 begin
   inherited;
-{  if (Sender as TAction).Enabled then
+  if (Sender as TAction).Enabled then
-     (Sender as TAction).Enabled := HayDatos;}
+     (Sender as TAction).Enabled := HayDatos;
+end;
+
+procedure TfEditorUsuarios.actControlAccesoExecute(Sender: TObject);
+begin
+  inherited;
+  FController.AdministrarAccesos(FUsuarios);
+end;
+
+function TfEditorUsuarios.HayDatos: Boolean;
+begin
+  Result := Assigned(dsDataTable.DataTable) and (dsDataTable.DataTable.State <> dsInactive)
+    and (not dsDataTable.DataTable.IsEmpty);
+end;
+
+procedure TfEditorUsuarios.actControlAccesoUpdate(Sender: TObject);
+begin
+  inherited;
+  if (Sender as TAction).Enabled then
+     (Sender as TAction).Enabled := HayDatos;
 end;
 
 procedure TfEditorUsuarios.actEliminarExecute(Sender: TObject);

Source/ApplicationBase/Usuarios/Views/uUsuariosViewRegister.pas

@@ -9,7 +9,7 @@ implementation
 
 uses
   uEditorRegistryUtils, uEditorLogin, Dialogs, uEditorUsuario, uEditorUsuarios,
-  uEditorPerfilesUsuario, uEditorPerfilUsuario;
+  uEditorPerfilesUsuario, uEditorPerfilUsuario, uEditorPermisosUsuario;
 
 procedure RegisterViews;
 begin
@@ -19,6 +19,7 @@ begin
   EditorRegistry.RegisterClass(TfEditorPerfilesUsuario, 'EditorPerfilesUsuario');
   EditorRegistry.RegisterClass(TfEditorPerfilUsuario, 'EditorPerfilUsuario');
 
+
 end;
 
 procedure UnregisterViews;
@@ -28,6 +29,7 @@ begin
   EditorRegistry.UnRegisterClass(TfEditorUsuario);
   EditorRegistry.UnRegisterClass(TfEditorPerfilesUsuario);
   EditorRegistry.UnRegisterClass(TfEditorPerfilUsuario);
+
 end;
 
 end.

Source/ApplicationBase/uAdminPV_App.pas

@@ -24,6 +24,7 @@ type
     ['{FB6A0F3C-C1D1-462D-AFD4-2A368F85E920}']
     function GetMainForm: TCustomForm;
     function GetUsuariosController: IUsuariosController;
+    function GetAppEXEName: String;
     function GetAppName: String;
     function GetAppVersion: String;
     function GetAppFullName: String;
@@ -47,6 +48,7 @@ type
     procedure Terminate;
 
     property AppVersion : String read GetAppVersion;
+    property AppEXEName : String read GetAppEXEName;
     property AppName : String read GetAppName;
     property AppFullName : String read GetAppFullName;
     property MainForm : TCustomForm read GetMainForm;
@@ -75,6 +77,7 @@ type
     function GetMainForm: TCustomForm;
     function GetUsuariosController: IUsuariosController;
     function GetAppName: String;
+    function GetAppEXEName: String;
     function GetAppVersion: String;
     function GetAppFullName: String;
     function GetUsuarioActivo: IBizUsuario;
@@ -107,6 +110,7 @@ type
     procedure Terminate;
 
     property AppVersion : String read GetAppVersion;
+    property AppEXEName : String read GetAppEXEName;
     property AppName : String read GetAppName;
     property AppFullName : String read GetAppFullName;
     property MainForm : TCustomForm read GetMainForm;
@@ -187,6 +191,11 @@ begin
   Result := FDoMainFormEvent;
 end;
 
+function TAppAdminPV.GetAppEXEName: String;
+begin
+  Result := ExtractFileName(Application.ExeName);
+end;
+
 function TAppAdminPV.GetAppFullName: String;
 begin
   Result := uAppInfoUtils.GetAppFullName;
@@ -266,8 +275,8 @@ begin
       HideHourglassCursor;
       HideSplashForm;
     end;
+    Application.Run;
   end;
-  Application.Run;
   Terminate;
 end;
 
@@ -304,7 +313,6 @@ end;
 
 procedure TAppAdminPV.Terminate;
 begin
-  UsuariosController.Logoff;
   ModuleManager.UnloadModules;
   FTerminated := True;
 end;

Source/Base/Base.dproj

@@ -40,6 +40,12 @@
     <Borland.ProjectType>Package</Borland.ProjectType>
     <BorlandProject>
 <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">True</Package_Options></Package_Options><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">2</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">2.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><Excluded_Packages>
+      
+      
+      
+      
+      
+      
       <Excluded_Packages Name="$(BDS)\bin\dclwebsnap100.bpl">CodeGear WebSnap Components</Excluded_Packages>
       <Excluded_Packages Name="$(BDS)\bin\dclsoap100.bpl">CodeGear SOAP Components</Excluded_Packages>
       <Excluded_Packages Name="$(BDS)\bin\dclofficexp100.bpl">Microsoft Office XP Sample Automation Server Wrapper Components</Excluded_Packages>

Source/Base/Base.drc

@@ -15,10 +15,10 @@ BEGIN
 END
 
 /* C:\Varela_D2007\Source\Base\uConfigurarConexion.dfm */
-/* C:\Varela_D2007\Source\Base\uDMBase.dfm */
+/* C:\Varela_D2007\Source\Base\uDMBase.DFM */
 /* C:\Varela_D2007\Source\Base\uViewBase.dfm */
 /* C:\Varela_D2007\Source\Base\uEditorBase.dfm */
-/* C:\Varela_D2007\Source\Base\uDataModuleBase.dfm */
+/* C:\Varela_D2007\Source\Base\uDataModuleBase.DFM */
 /* C:\Varela_D2007\Source\Base\uViewGridBase.dfm */
 /* C:\Varela_D2007\Source\Base\uEditorItem.dfm */
 /* C:\Varela_D2007\Source\Base\uEditorDBBase.dfm */
@@ -29,4 +29,4 @@ END
 /* C:\Varela_D2007\Source\Base\uViewBarraSeleccion.dfm */
 /* C:\Varela_D2007\Source\Base\uViewGrid.dfm */
 /* C:\Varela_D2007\Source\Base\Base.res */
-/* C:\DOCUME~1\Usuario\CONFIG~1\Temp\dtf57.tmp */
+/* C:\Varela_D2007\Source\Base\Base.drf */

Source/Base/uEditorBase.dfm

@@ -15,8 +15,6 @@ object fEditorBase: TfEditorBase
   Position = poDefault
   OnCloseQuery = FormCloseQuery
   OnShow = FormShow
-  InstanceID = 0
-  ReadOnly = False
   PixelsPerInch = 96
   TextHeight = 13
   object JvNavPanelHeader: TJvNavPanelHeader

Source/CargaEDI/CargaEDI.drc

@@ -12,7 +12,7 @@ STRINGTABLE
 BEGIN
 END
 
-/* C:\Archivos de programa\CodeGear\RAD Studio\5.0\Lib\WindowsXP.res */
+/* c:\archivos de programa\codegear\rad studio\5.0\Lib\WindowsXP.res */
 /* C:\Varela_D2007\Source\CargaEDI\uCargaEDI.dfm */
 /* C:\Varela_D2007\Source\CargaEDI\CargaEDI.res */
-/* C:\DOCUME~1\Usuario\CONFIG~1\Temp\dtf71.tmp */
+/* C:\Varela_D2007\Source\CargaEDI\CargaEDI.drf */

Source/Cliente/AdminPV.drc

@@ -12,10 +12,10 @@ STRINGTABLE
 BEGIN
 END
 
-/* C:\Archivos de programa\CodeGear\RAD Studio\5.0\Lib\WindowsXP.res */
+/* c:\archivos de programa\codegear\rad studio\5.0\Lib\WindowsXP.res */
 /* C:\Varela_D2007\Lib\JVCL\JvXPCore.res */
 /* C:\Varela_D2007\Source\Cliente\uSplash.dfm */
 /* C:\Varela_D2007\Source\Cliente\uAcercaDe.dfm */
 /* C:\Varela_D2007\Source\Cliente\uPantallaPrincipal.dfm */
 /* C:\Varela_D2007\Source\Cliente\AdminPV.res */
-/* C:\DOCUME~1\Usuario\CONFIG~1\Temp\dtf6F.tmp */
+/* C:\Varela_D2007\Source\Cliente\AdminPV.drf */

Source/Cliente/AdminPV.rc

@@ -17,7 +17,7 @@ BEGIN
               VALUE "InternalName", "Administración de puntos de venta\0"
               VALUE "ProductName", "Administración de puntos de venta\0"
               VALUE "ProductVersion", "1.0.0.0\0"
-              VALUE "CompileDate", "jueves, 17 de abril de 2008 13:27\0"
+              VALUE "CompileDate", "miércoles, 23 de abril de 2008 16:58\0"
          END
     END
     BLOCK "VarFileInfo"

Source/Cliente/uPantallaPrincipal.dfm

@@ -2,8 +2,8 @@ object fPantallaPrincipal: TfPantallaPrincipal
   Left = 358
   Top = 250
   Caption = 'Pantalla principal'
-  ClientHeight = 453
+  ClientHeight = 549
-  ClientWidth = 751
+  ClientWidth = 975
   Color = clWindow
   Font.Charset = DEFAULT_CHARSET
   Font.Color = clWindowText
@@ -24,8 +24,8 @@ object fPantallaPrincipal: TfPantallaPrincipal
   object pnlContenido: TTBXAlignmentPanel
     Left = 0
     Top = 0
-    Width = 751
+    Width = 975
-    Height = 431
+    Height = 527
     Margins.Left = 5
     Margins.Top = 5
     Margins.Right = 5
@@ -37,7 +37,7 @@ object fPantallaPrincipal: TfPantallaPrincipal
       Left = 215
       Top = 5
       Width = 5
-      Height = 421
+      Height = 517
       ResizeStyle = rsPattern
       ExplicitLeft = 210
       ExplicitHeight = 570
@@ -46,7 +46,7 @@ object fPantallaPrincipal: TfPantallaPrincipal
       Left = 5
       Top = 5
       Width = 210
-      Height = 421
+      Height = 517
       ActivePage = pagInicio
       Align = alLeft
       AutoHeaders = True
@@ -90,7 +90,7 @@ object fPantallaPrincipal: TfPantallaPrincipal
         Left = 0
         Top = 0
         Width = 208
-        Height = 348
+        Height = 444
         Background.Stretch = False
         Background.Proportional = False
         Background.Center = False
@@ -100,7 +100,7 @@ object fPantallaPrincipal: TfPantallaPrincipal
         ImageIndex = 0
         object Panel1: TPanel
           Left = 0
-          Top = 262
+          Top = 358
           Width = 208
           Height = 86
           Align = alBottom
@@ -153,8 +153,8 @@ object fPantallaPrincipal: TfPantallaPrincipal
     object pnlBorde: TJvXPContainer
       Left = 220
       Top = 5
-      Width = 526
+      Width = 750
-      Height = 421
+      Height = 517
       BoundColor = clActiveCaption
       BoundLines = [blLeft, blTop, blRight, blBottom]
       Caption = 'pnlBorde'
@@ -162,8 +162,8 @@ object fPantallaPrincipal: TfPantallaPrincipal
       object pnlMain: TTBXAlignmentPanel
         Left = 1
         Top = 1
-        Width = 524
+        Width = 748
-        Height = 419
+        Height = 515
         Align = alClient
         Color = clWindow
         TabOrder = 0
@@ -203,9 +203,9 @@ object fPantallaPrincipal: TfPantallaPrincipal
   end
   object TBXStatusBar1: TTBXStatusBar
     Left = 0
-    Top = 431
+    Top = 527
-    Width = 751
+    Width = 975
-    Images = StatusPanelImageList
+    Images = StatusBarImages
     Panels = <
       item
         ImageIndex = 1
@@ -337,11 +337,6 @@ object fPantallaPrincipal: TfPantallaPrincipal
     Top = 181
     Bitmap = {}
   end
-  object ModulesActionList: TActionList
-    Images = ModulesLargeImageList
-    Left = 19
-    Top = 180
-  end
   object ModulesLargeImageList: TPngImageList
     Height = 24
     Width = 24
@@ -563,7 +558,7 @@ object fPantallaPrincipal: TfPantallaPrincipal
     Left = 288
     Top = 168
   end
-  object StatusPanelImageList: TPngImageList
+  object StatusBarImages: TPngImageList
     PngImages = <
       item
         PngImage.Data = {

Source/Cliente/uPantallaPrincipal.pas

@@ -8,8 +8,7 @@ uses
   JvNavigationPane, ImgList, Controls, PngImageList, Classes, ActnList, XPMan,
   TBXStatusBars, JvXPCore, JvXPContainer, pngimage, ExtCtrls, StdCtrls,
   JvPageList, JvExControls, JvExExtCtrls, JvSplitter, JvSyncSplitter,
-  TBXDkPanels, uCustomEditor, uHostManager, uGUIBase,
+  TBXDkPanels, uCustomEditor, uHostManager, uGUIBase;
-  Dialogs;
 
 type
   IMainForm = interface(IHostForm)
@@ -23,7 +22,6 @@ type
     ModulesSmallImageList: TPngImageList;
     XPManifest1: TXPManifest;
     actSalir: TAction;
-    ModulesActionList: TActionList;
     ModulesLargeImageList: TPngImageList;
     pnlContenido: TTBXAlignmentPanel;
     JvNavigationPane: TJvNavigationPane;
@@ -50,7 +48,7 @@ type
     lblBienvenido: TLabel;
     Label22: TLabel;
     TBXStatusBar1: TTBXStatusBar;
-    StatusPanelImageList: TPngImageList;
+    StatusBarImages: TPngImageList;
     Opciones1_OLD: TMenuItem;
     Edicin1_OLD: TMenuItem;
     N1: TMenuItem;
@@ -116,7 +114,7 @@ uses
   uSplash, uAcercaDe, UxTheme, Themes, uMenuUtils, 
   uAdminPV_App, uDMBase, 
   uModuleController, uMainMenuController, uNavPaneController,
-  uDialogUtils, cxControls;
+  uDialogUtils, cxControls, uClienteUtils;
 
 {$R *.dfm}
 
@@ -309,9 +307,41 @@ begin
 end;
 
 procedure TfPantallaPrincipal.AplicarPerfil;
+var
+  AMenuItem : TMenuItem;
+  ASeccionCount : Integer;
+  AItemIndex : Integer;
+  ACaption : String;
 begin
-  Administracin1.Enabled := (AppAdminPV.UsuarioActivo.USERNAME = 'admin');
+  // Si el usuario es administrador puede acceder a la parte de administración.
-  Administracin1.Visible := Administracin1.Enabled;
+  if not AppAdminPV.UsuariosController.EsAdministrador(AppAdminPV.UsuarioActivo) then
+  begin
+    Administracin1.Enabled := False;
+    Administracin1.Visible := False;
+  end;
+
+  // Guardar la lista de secciones (Ventas, Compras, etc...)
+  for ASeccionCount := 0 to Menu.Items.Count - 1 do
+  begin
+    AMenuItem := Menu.Items[ASeccionCount];
+
+    if not EsUnModulo(AMenuItem) then
+      Continue;
+
+    for AItemIndex := 0 to (AMenuItem.Count - 1) do
+    begin
+      if ((not AMenuItem[AItemIndex].IsLine)  // que no sea una línea separadora
+           and (AMenuItem[AItemIndex].Count = 0)) // y que no sea el padre de un submenú
+      then
+        if Assigned(AMenuItem[AItemIndex].Action) then
+          with AppAdminPV.UsuariosController do
+          begin
+            ACaption := TAction(AMenuItem[AItemIndex].Action).Caption;
+            ACaption := StringReplace(ACaption, '&', '', []);
+            TAction(AMenuItem[AItemIndex].Action).Enabled := HayAccesoPermitido(ACaption);
+          end;
+    end;
+  end;
 end;
 
 procedure TfPantallaPrincipal.ApplicationEventsException(Sender: TObject;
@@ -324,7 +354,7 @@ begin
       ShowMessage(E.Message);
   end
   else}
-    ShowMessage(E.Message);
+    Application.ShowException(E);
     //ShowErrorMessage('Se ha producido un error', '', E);
 end;
 

Source/ControlesBase/ControlesBase.dpk

@@ -27,43 +27,43 @@ package ControlesBase;
 {$DEFINE DEBUG}
 
 requires
- 	  rtl,
+  rtl,
- 	  vcl,
+  vcl,
- 	  PngComponentsD10,
+  PngComponentsD10,
- 	  PNG_D10,
+  PNG_D10,
- 	  dbrtl,
+  dbrtl,
- 	  dsnap,
+  dsnap,
- 	  adortl,
+  adortl,
- 	  JvGlobusD11R,
+  JvGlobusD11R,
- 	  cxTreeListD10,
+  cxTreeListD10,
- 	  vclactnband,
+  vclactnband,
- 	  vclx,
+  vclx,
- 	  tb2k_D10,
+  tb2k_D10,
- 	  tbx_D10,
+  tbx_D10,
- 	  JvCoreD11R,
+  JvCoreD11R,
- 	  vcljpg,
+  vcljpg,
- 	  Jcl,
+  Jcl,
- 	  JclVcl,
+  JclVcl,
- 	  JvSystemD11R,
+  JvSystemD11R,
- 	  JvPageCompsD11R,
+  JvPageCompsD11R,
- 	  JvStdCtrlsD11R,
+  JvStdCtrlsD11R,
- 	  dxThemeD10,
+  dxThemeD10,
- 	  cxLibraryD10,
+  cxLibraryD10,
- 	  cxExportD10,
+  cxExportD10,
- 	  cxEditorsD10,
+  cxEditorsD10,
- 	  cxDataD10,
+  cxDataD10,
- 	  vcldb,
+  vcldb,
- 	  cxExtEditorsD10,
+  cxExtEditorsD10,
- 	  cxGridD10,
+  cxGridD10,
- 	  cxPageControlD10,
+  cxPageControlD10,
- 	  dxLayoutControlD10,
+  dxLayoutControlD10,
- 	  dxComnD10,
+  dxComnD10,
- 	  cxVerticalGridD10,
+  cxVerticalGridD10,
- 	  dxPSCoreD10,
+  dxPSCoreD10,
- 	  VclSmp,
+  VclSmp,
- 	  bdertl,
+  bdertl,
- 	  EasyListviewD11,
+  EasyListviewD11,
-    Base;
+  Base;
 
 contains
   uEditorControlesBase in 'Cliente\uEditorControlesBase.pas' {fEditorControlesBase: TCustomEditor},

Source/ControlesBase/ControlesBase.dproj

@@ -54,78 +54,6 @@
       
       
       
-      
-      
-      
-      
-      
-      
-      
-      
-      
-      
-      
-      
-      
-      
-      
-      
-      
-      
-      
-      
-      
-      
-      
-      
-      
-      
-      
-      
-      
-      
-      
-      
-      
-      
-      
-      
-      
-      
-      
-      
-      
-      
-      
-      
-      
-      
-      
-      
-      
-      
-      
-      
-      
-      
-      
-      
-      
-      
-      
-      
-      
-      
-      
-      
-      
-      
-      
-      
-      
-      
-      
-      
       <Excluded_Packages Name="$(BDS)\bin\dclwebsnap100.bpl">CodeGear WebSnap Components</Excluded_Packages>
       <Excluded_Packages Name="$(BDS)\bin\dclsoap100.bpl">CodeGear SOAP Components</Excluded_Packages>
       <Excluded_Packages Name="$(BDS)\bin\dclofficexp100.bpl">Microsoft Office XP Sample Automation Server Wrapper Components</Excluded_Packages>
@@ -140,7 +68,7 @@
       <MainSource>MainSource</MainSource>
     </DelphiCompile>
     <DCCReference Include="C:\Documents and Settings\Usuario\adortl.dcp" />
-    <DCCReference Include="C:\Documents and Settings\Usuario\BasecontainsuEditorControlesBasein.dcp" />
+    <DCCReference Include="C:\Documents and Settings\Usuario\Base.dcp" />
     <DCCReference Include="C:\Documents and Settings\Usuario\bdertl.dcp" />
     <DCCReference Include="C:\Documents and Settings\Usuario\cxDataD10.dcp" />
     <DCCReference Include="C:\Documents and Settings\Usuario\cxEditorsD10.dcp" />
@@ -176,6 +104,59 @@
     <DCCReference Include="C:\Documents and Settings\Usuario\vcljpg.dcp" />
     <DCCReference Include="C:\Documents and Settings\Usuario\VclSmp.dcp" />
     <DCCReference Include="C:\Documents and Settings\Usuario\vclx.dcp" />
+    <DCCReference Include="Cliente\uDataModuleControles.pas">
+      <Form>dmControles</Form>
+      <DesignClass>TDAClientDataModule</DesignClass>
+    </DCCReference>
+    <DCCReference Include="Cliente\uEditorControlBase.pas">
+      <Form>fEditorControlBase</Form>
+      <DesignClass>TCustomEditor</DesignClass>
+    </DCCReference>
+    <DCCReference Include="Cliente\uEditorControlesBase.pas">
+      <Form>fEditorControlesBase</Form>
+      <DesignClass>TCustomEditor</DesignClass>
+    </DCCReference>
+    <DCCReference Include="Cliente\uFormPropiedadesControl.pas">
+      <Form>frPropiedadesControl</Form>
+    </DCCReference>
+    <DCCReference Include="Cliente\uViewAgrupaciones.pas">
+      <Form>frViewAgrupaciones</Form>
+      <DesignClass>TCustomView</DesignClass>
+    </DCCReference>
+    <DCCReference Include="Cliente\uViewColumnas.pas">
+      <Form>frViewColumnas</Form>
+      <DesignClass>TCustomView</DesignClass>
+    </DCCReference>
+    <DCCReference Include="Cliente\uViewControlBase.pas">
+      <Form>frViewControlBase</Form>
+      <DesignClass>TCustomView</DesignClass>
+    </DCCReference>
+    <DCCReference Include="Cliente\uViewControlesBase.pas">
+      <Form>frViewControlesBase</Form>
+      <DesignClass>TCustomView</DesignClass>
+    </DCCReference>
+    <DCCReference Include="Cliente\uViewControlGrid.pas">
+      <Form>frViewControlGrid</Form>
+      <DesignClass>TCustomView</DesignClass>
+    </DCCReference>
+    <DCCReference Include="Cliente\uViewFiltros.pas">
+      <Form>frViewFiltros</Form>
+      <DesignClass>TCustomView</DesignClass>
+    </DCCReference>
+    <DCCReference Include="Cliente\uViewParametrosControlGrid.pas">
+      <Form>frViewParametrosControlGrid</Form>
+      <DesignClass>TCustomView</DesignClass>
+    </DCCReference>
+    <DCCReference Include="Cliente\uViewPeriodoFechas.pas">
+      <Form>frViewPeriodoFechas</Form>
+      <DesignClass>TCustomView</DesignClass>
+    </DCCReference>
+    <DCCReference Include="Cliente\uViewSumarios.pas">
+      <Form>frViewSumarios</Form>
+      <DesignClass>TCustomView</DesignClass>
+    </DCCReference>
+    <DCCReference Include="Reglas\schControlesClient_Intf.pas" />
+    <DCCReference Include="Reglas\uBizControlesBase.pas" />
   </ItemGroup>
 </Project>
 <!-- EurekaLog First Line

Source/ControlesBase/ControlesBase.drc

@@ -15,7 +15,7 @@ END
 /* C:\Varela_D2007\Source\ControlesBase\Cliente\uFormPropiedadesControl.dfm */
 /* C:\Varela_D2007\Source\ControlesBase\Cliente\uViewControlesBase.dfm */
 /* C:\Varela_D2007\Source\ControlesBase\Cliente\uEditorControlesBase.dfm */
-/* C:\Varela_D2007\Source\ControlesBase\Cliente\uDataModuleControles.dfm */
+/* C:\Varela_D2007\Source\ControlesBase\Cliente\uDataModuleControles.DFM */
 /* C:\Varela_D2007\Source\ControlesBase\Cliente\uViewControlGrid.dfm */
 /* C:\Varela_D2007\Source\ControlesBase\Cliente\uViewParametrosControlGrid.dfm */
 /* C:\Varela_D2007\Source\ControlesBase\Cliente\uViewAgrupaciones.dfm */
@@ -26,4 +26,4 @@ END
 /* C:\Varela_D2007\Source\ControlesBase\Cliente\uEditorControlBase.dfm */
 /* C:\Varela_D2007\Source\ControlesBase\Cliente\uViewPeriodoFechas.dfm */
 /* C:\Varela_D2007\Source\ControlesBase\ControlesBase.res */
-/* C:\DOCUME~1\Usuario\CONFIG~1\Temp\dtf59.tmp */
+/* C:\Varela_D2007\Source\ControlesBase\ControlesBase.drf */

Source/Modulos/Devoluciones/Cliente/Devoluciones.dproj

@@ -52,61 +52,47 @@
     <DelphiCompile Include="Devoluciones.dpk">
       <MainSource>MainSource</MainSource>
     </DelphiCompile>
-    <DCCReference Include="..\..\..\CargaEDI\adortl.dcp" />
-    <DCCReference Include="..\..\..\CargaEDI\Base.dcp" />
-    <DCCReference Include="..\..\..\CargaEDI\Base0.dcp" />
-    <DCCReference Include="..\..\..\CargaEDI\Base10.dcp" />
-    <DCCReference Include="..\..\..\CargaEDI\BaseD10.dcp" />
-    <DCCReference Include="..\..\..\CargaEDI\bdertl.dcp" />
-    <DCCReference Include="..\..\..\CargaEDI\ControlesBase0.dcp" />
-    <DCCReference Include="..\..\..\CargaEDI\ControlesBase10.dcp" />
-    <DCCReference Include="..\..\..\CargaEDI\ControlesBaseD10.dcp" />
-    <DCCReference Include="..\..\..\CargaEDI\cxDataD10.dcp" />
-    <DCCReference Include="..\..\..\CargaEDI\cxEditorsD10.dcp" />
-    <DCCReference Include="..\..\..\CargaEDI\cxExportD10.dcp" />
-    <DCCReference Include="..\..\..\CargaEDI\cxExtEditorsD10.dcp" />
-    <DCCReference Include="..\..\..\CargaEDI\cxGridD10.dcp" />
-    <DCCReference Include="..\..\..\CargaEDI\cxLibraryD10.dcp" />
-    <DCCReference Include="..\..\..\CargaEDI\cxPageControlD10.dcp" />
-    <DCCReference Include="..\..\..\CargaEDI\cxTreeListD10.dcp" />
-    <DCCReference Include="..\..\..\CargaEDI\dbrtl.dcp" />
-    <DCCReference Include="..\..\..\CargaEDI\dsnap.dcp" />
-    <DCCReference Include="..\..\..\CargaEDI\dxComnD10.dcp" />
-    <DCCReference Include="..\..\..\CargaEDI\dxLayoutControlD10.dcp" />
-    <DCCReference Include="..\..\..\CargaEDI\dxPSCoreD10.dcp" />
-    <DCCReference Include="..\..\..\CargaEDI\dxThemeD10.dcp" />
-    <DCCReference Include="..\..\..\CargaEDI\GUISDK_D10.dcp" />
-    <DCCReference Include="..\..\..\CargaEDI\GUISDK_D11.dcp" />
-    <DCCReference Include="..\..\..\CargaEDI\GUISDK_D110.dcp" />
-    <DCCReference Include="..\..\..\CargaEDI\Jcl.dcp" />
-    <DCCReference Include="..\..\..\CargaEDI\JclVcl.dcp" />
-    <DCCReference Include="..\..\..\CargaEDI\JvCoreD10R.dcp" />
-    <DCCReference Include="..\..\..\CargaEDI\JvCoreD11R.dcp" />
-    <DCCReference Include="..\..\..\CargaEDI\JvCustomD10R.dcp" />
-    <DCCReference Include="..\..\..\CargaEDI\JvCustomD11R.dcp" />
-    <DCCReference Include="..\..\..\CargaEDI\JvGlobusD10R.dcp" />
-    <DCCReference Include="..\..\..\CargaEDI\JvGlobusD11R.dcp" />
-    <DCCReference Include="..\..\..\CargaEDI\JvPageCompsD10R.dcp" />
-    <DCCReference Include="..\..\..\CargaEDI\JvPageCompsD11R.dcp" />
-    <DCCReference Include="..\..\..\CargaEDI\JvStdCtrlsD10R.dcp" />
-    <DCCReference Include="..\..\..\CargaEDI\JvStdCtrlsD11R.dcp" />
-    <DCCReference Include="..\..\..\CargaEDI\JvSystemD10R.dcp" />
-    <DCCReference Include="..\..\..\CargaEDI\JvSystemD11R.dcp" />
-    <DCCReference Include="..\..\..\CargaEDI\Parametros.dcp" />
-    <DCCReference Include="..\..\..\CargaEDI\PluginSDK_D10R.dcp" />
-    <DCCReference Include="..\..\..\CargaEDI\PluginSDK_D11R.dcp" />
-    <DCCReference Include="..\..\..\CargaEDI\PngComponentsD10.dcp" />
-    <DCCReference Include="..\..\..\CargaEDI\PNG_D10.dcp" />
-    <DCCReference Include="..\..\..\CargaEDI\rtl.dcp" />
-    <DCCReference Include="..\..\..\CargaEDI\tb2k_D10.dcp" />
-    <DCCReference Include="..\..\..\CargaEDI\tbx_D10.dcp" />
-    <DCCReference Include="..\..\..\CargaEDI\vcl.dcp" />
-    <DCCReference Include="..\..\..\CargaEDI\vclactnband.dcp" />
-    <DCCReference Include="..\..\..\CargaEDI\vcldb.dcp" />
-    <DCCReference Include="..\..\..\CargaEDI\vcljpg.dcp" />
-    <DCCReference Include="..\..\..\CargaEDI\VclSmp.dcp" />
-    <DCCReference Include="..\..\..\CargaEDI\vclx.dcp" />
     <DCCReference Include="..\Reglas\uBizDevoluciones.pas" />
+    <DCCReference Include="C:\Documents and Settings\Usuario\adortl.dcp" />
+    <DCCReference Include="C:\Documents and Settings\Usuario\Base.dcp" />
+    <DCCReference Include="C:\Documents and Settings\Usuario\bdertl.dcp" />
+    <DCCReference Include="C:\Documents and Settings\Usuario\ControlesBase.dcp" />
+    <DCCReference Include="C:\Documents and Settings\Usuario\cxDataD10.dcp" />
+    <DCCReference Include="C:\Documents and Settings\Usuario\cxEditorsD10.dcp" />
+    <DCCReference Include="C:\Documents and Settings\Usuario\cxExportD10.dcp" />
+    <DCCReference Include="C:\Documents and Settings\Usuario\cxExtEditorsD10.dcp" />
+    <DCCReference Include="C:\Documents and Settings\Usuario\cxGridD10.dcp" />
+    <DCCReference Include="C:\Documents and Settings\Usuario\cxLibraryD10.dcp" />
+    <DCCReference Include="C:\Documents and Settings\Usuario\cxPageControlD10.dcp" />
+    <DCCReference Include="C:\Documents and Settings\Usuario\cxTreeListD10.dcp" />
+    <DCCReference Include="C:\Documents and Settings\Usuario\dbrtl.dcp" />
+    <DCCReference Include="C:\Documents and Settings\Usuario\dsnap.dcp" />
+    <DCCReference Include="C:\Documents and Settings\Usuario\dxComnD10.dcp" />
+    <DCCReference Include="C:\Documents and Settings\Usuario\dxLayoutControlD10.dcp" />
+    <DCCReference Include="C:\Documents and Settings\Usuario\dxPSCoreD10.dcp" />
+    <DCCReference Include="C:\Documents and Settings\Usuario\dxThemeD10.dcp" />
+    <DCCReference Include="C:\Documents and Settings\Usuario\GUISDK_D11.dcp" />
+    <DCCReference Include="C:\Documents and Settings\Usuario\Jcl.dcp" />
+    <DCCReference Include="C:\Documents and Settings\Usuario\JclVcl.dcp" />
+    <DCCReference Include="C:\Documents and Settings\Usuario\JvCoreD11R.dcp" />
+    <DCCReference Include="C:\Documents and Settings\Usuario\JvCustomD11R.dcp" />
+    <DCCReference Include="C:\Documents and Settings\Usuario\JvGlobusD11R.dcp" />
+    <DCCReference Include="C:\Documents and Settings\Usuario\JvPageCompsD11R.dcp" />
+    <DCCReference Include="C:\Documents and Settings\Usuario\JvStdCtrlsD11R.dcp" />
+    <DCCReference Include="C:\Documents and Settings\Usuario\JvSystemD11R.dcp" />
+    <DCCReference Include="C:\Documents and Settings\Usuario\Parametros.dcp" />
+    <DCCReference Include="C:\Documents and Settings\Usuario\PluginSDK_D11R.dcp" />
+    <DCCReference Include="C:\Documents and Settings\Usuario\PngComponentsD10.dcp" />
+    <DCCReference Include="C:\Documents and Settings\Usuario\PNG_D10.dcp" />
+    <DCCReference Include="C:\Documents and Settings\Usuario\rtl.dcp" />
+    <DCCReference Include="C:\Documents and Settings\Usuario\tb2k_D10.dcp" />
+    <DCCReference Include="C:\Documents and Settings\Usuario\tbx_D10.dcp" />
+    <DCCReference Include="C:\Documents and Settings\Usuario\vcl.dcp" />
+    <DCCReference Include="C:\Documents and Settings\Usuario\vclactnband.dcp" />
+    <DCCReference Include="C:\Documents and Settings\Usuario\vcldb.dcp" />
+    <DCCReference Include="C:\Documents and Settings\Usuario\vcljpg.dcp" />
+    <DCCReference Include="C:\Documents and Settings\Usuario\VclSmp.dcp" />
+    <DCCReference Include="C:\Documents and Settings\Usuario\vclx.dcp" />
     <DCCReference Include="uDataModuleDevoluciones.pas">
       <Form>dmDevoluciones</Form>
       <DesignClass>TDAClientDataModule</DesignClass>

Source/Modulos/Devoluciones/Cliente/Devoluciones.drc

@@ -12,10 +12,10 @@ STRINGTABLE
 BEGIN
 END
 
-/* C:\Varela_D2007\Source\Modulos\Devoluciones\Cliente\uDataModuleDevoluciones.dfm */
+/* C:\Varela_D2007\Source\Modulos\Devoluciones\Cliente\uDataModuleDevoluciones.DFM */
 /* C:\Varela_D2007\Source\Modulos\Devoluciones\Cliente\uViewListaDevoluciones.dfm */
 /* C:\Varela_D2007\Source\Modulos\Devoluciones\Cliente\uEditorListaDevoluciones.dfm */
 /* C:\Varela_D2007\Source\Modulos\Devoluciones\Cliente\uPluginControllerDevoluciones.dfm */
 /* C:\Varela_D2007\Source\Modulos\Devoluciones\Cliente\uEditorAjustarDevoluciones.dfm */
 /* C:\Varela_D2007\Source\Modulos\Devoluciones\Cliente\Devoluciones.res */
-/* C:\DOCUME~1\Usuario\CONFIG~1\Temp\dtf69.tmp */
+/* C:\Varela_D2007\Source\Modulos\Devoluciones\Cliente\Devoluciones.drf */

Source/Modulos/FicherosEDI/Cliente/FicherosEDI.dproj

@@ -56,9 +56,6 @@
     <DCCReference Include="..\Reglas\uBizEDILog.pas" />
     <DCCReference Include="C:\Documents and Settings\Usuario\adortl.dcp" />
     <DCCReference Include="C:\Documents and Settings\Usuario\Base.dcp" />
-    <DCCReference Include="C:\Documents and Settings\Usuario\Base0.dcp" />
-    <DCCReference Include="C:\Documents and Settings\Usuario\Base10.dcp" />
-    <DCCReference Include="C:\Documents and Settings\Usuario\BaseD10.dcp" />
     <DCCReference Include="C:\Documents and Settings\Usuario\cxDataD10.dcp" />
     <DCCReference Include="C:\Documents and Settings\Usuario\cxEditorsD10.dcp" />
     <DCCReference Include="C:\Documents and Settings\Usuario\cxExportD10.dcp" />

Source/Modulos/FicherosEDI/Cliente/FicherosEDI.drc

@@ -13,9 +13,9 @@ BEGIN
 END
 
 /* C:\Varela_D2007\Source\Modulos\FicherosEDI\Cliente\uAsistenteCargaFicheros.dfm */
-/* C:\Varela_D2007\Source\Modulos\FicherosEDI\Cliente\uDataModuleFicherosEDI.dfm */
+/* C:\Varela_D2007\Source\Modulos\FicherosEDI\Cliente\uDataModuleFicherosEDI.DFM */
 /* C:\Varela_D2007\Source\Modulos\FicherosEDI\Cliente\uViewHistorialCargasEDI.dfm */
 /* C:\Varela_D2007\Source\Modulos\FicherosEDI\Cliente\uEditorHistorialCargasEDI.dfm */
 /* C:\Varela_D2007\Source\Modulos\FicherosEDI\Cliente\uPluginControllerFicherosEDI.dfm */
 /* C:\Varela_D2007\Source\Modulos\FicherosEDI\Cliente\FicherosEDI.res */
-/* C:\DOCUME~1\Usuario\CONFIG~1\Temp\dtf5F.tmp */
+/* C:\Varela_D2007\Source\Modulos\FicherosEDI\Cliente\FicherosEDI.drf */

Source/Modulos/Parametros/Cliente/Parametros.drc

@@ -12,9 +12,9 @@ STRINGTABLE
 BEGIN
 END
 
-/* C:\Varela_D2007\Source\Modulos\Parametros\Cliente\uDataModuleParametros.dfm */
+/* C:\Varela_D2007\Source\Modulos\Parametros\Cliente\uDataModuleParametros.DFM */
 /* C:\Varela_D2007\Source\Modulos\Parametros\Cliente\uViewParametrosCentro.dfm */
 /* C:\Varela_D2007\Source\Modulos\Parametros\Cliente\uViewParametrosColeccion.dfm */
 /* C:\Varela_D2007\Source\Modulos\Parametros\Cliente\uViewParametrosFecha.dfm */
 /* C:\Varela_D2007\Source\Modulos\Parametros\Cliente\Parametros.res */
-/* C:\DOCUME~1\Usuario\CONFIG~1\Temp\dtf5B.tmp */
+/* C:\Varela_D2007\Source\Modulos\Parametros\Cliente\Parametros.drf */

Source/Modulos/Recepciones/Cliente/Recepciones.dproj

@@ -48,8 +48,6 @@
 <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">True</Package_Options><Package_Options Name="DesigntimeOnly">False</Package_Options><Package_Options Name="RuntimeOnly">False</Package_Options></Package_Options><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">1</VersionInfo><VersionInfo Name="MinorVer">0</VersionInfo><VersionInfo Name="Release">3</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.3.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><Excluded_Packages>
       
       
-      
-      
       <Excluded_Packages Name="c:\archivos de programa\borland\delphi10\Bin\dclIntraweb_80_100.bpl">Intraweb 8.0 Design Package for Borland Development Studio 2006</Excluded_Packages>
     </Excluded_Packages><Source><Source Name="MainSource">Recepciones.dpk</Source></Source></Delphi.Personality></BorlandProject></BorlandProject>
   </ProjectExtensions>
@@ -58,66 +56,52 @@
     <DelphiCompile Include="Recepciones.dpk">
       <MainSource>MainSource</MainSource>
     </DelphiCompile>
-    <DCCReference Include="..\..\..\CargaEDI\adortl.dcp" />
-    <DCCReference Include="..\..\..\CargaEDI\Base.dcp" />
-    <DCCReference Include="..\..\..\CargaEDI\Base0.dcp" />
-    <DCCReference Include="..\..\..\CargaEDI\Base10.dcp" />
-    <DCCReference Include="..\..\..\CargaEDI\BaseD10.dcp" />
-    <DCCReference Include="..\..\..\CargaEDI\bdertl.dcp" />
-    <DCCReference Include="..\..\..\CargaEDI\ControlesBase0.dcp" />
-    <DCCReference Include="..\..\..\CargaEDI\ControlesBase10.dcp" />
-    <DCCReference Include="..\..\..\CargaEDI\ControlesBaseD10.dcp" />
-    <DCCReference Include="..\..\..\CargaEDI\cxDataD10.dcp" />
-    <DCCReference Include="..\..\..\CargaEDI\cxEditorsD10.dcp" />
-    <DCCReference Include="..\..\..\CargaEDI\cxExportD10.dcp" />
-    <DCCReference Include="..\..\..\CargaEDI\cxExtEditorsD10.dcp" />
-    <DCCReference Include="..\..\..\CargaEDI\cxGridD10.dcp" />
-    <DCCReference Include="..\..\..\CargaEDI\cxLibraryD10.dcp" />
-    <DCCReference Include="..\..\..\CargaEDI\cxPageControlD10.dcp" />
-    <DCCReference Include="..\..\..\CargaEDI\cxTreeListD10.dcp" />
-    <DCCReference Include="..\..\..\CargaEDI\dbrtl.dcp" />
-    <DCCReference Include="..\..\..\CargaEDI\dclcxLibraryD10.dcp" />
-    <DCCReference Include="..\..\..\CargaEDI\designide.dcp" />
-    <DCCReference Include="..\..\..\CargaEDI\dsnap.dcp" />
-    <DCCReference Include="..\..\..\CargaEDI\dxComnD10.dcp" />
-    <DCCReference Include="..\..\..\CargaEDI\dxPSCoreD10.dcp" />
-    <DCCReference Include="..\..\..\CargaEDI\dxPScxCommonD10.dcp" />
-    <DCCReference Include="..\..\..\CargaEDI\dxPScxGridLnkD10.dcp" />
-    <DCCReference Include="..\..\..\CargaEDI\dxPSLnksD10.dcp" />
-    <DCCReference Include="..\..\..\CargaEDI\dxThemeD10.dcp" />
-    <DCCReference Include="..\..\..\CargaEDI\GUISDK_D10.dcp" />
-    <DCCReference Include="..\..\..\CargaEDI\GUISDK_D11.dcp" />
-    <DCCReference Include="..\..\..\CargaEDI\GUISDK_D110.dcp" />
-    <DCCReference Include="..\..\..\CargaEDI\Jcl.dcp" />
-    <DCCReference Include="..\..\..\CargaEDI\JclVcl.dcp" />
-    <DCCReference Include="..\..\..\CargaEDI\JvCoreD10R.dcp" />
-    <DCCReference Include="..\..\..\CargaEDI\JvCoreD11R.dcp" />
-    <DCCReference Include="..\..\..\CargaEDI\JvCustomD10R.dcp" />
-    <DCCReference Include="..\..\..\CargaEDI\JvCustomD11R.dcp" />
-    <DCCReference Include="..\..\..\CargaEDI\JvGlobusD10R.dcp" />
-    <DCCReference Include="..\..\..\CargaEDI\JvGlobusD11R.dcp" />
-    <DCCReference Include="..\..\..\CargaEDI\JvPageCompsD10R.dcp" />
-    <DCCReference Include="..\..\..\CargaEDI\JvPageCompsD11R.dcp" />
-    <DCCReference Include="..\..\..\CargaEDI\JvStdCtrlsD10R.dcp" />
-    <DCCReference Include="..\..\..\CargaEDI\JvStdCtrlsD11R.dcp" />
-    <DCCReference Include="..\..\..\CargaEDI\JvSystemD10R.dcp" />
-    <DCCReference Include="..\..\..\CargaEDI\JvSystemD11R.dcp" />
-    <DCCReference Include="..\..\..\CargaEDI\Parametros.dcp" />
-    <DCCReference Include="..\..\..\CargaEDI\PluginSDK_D10R.dcp" />
-    <DCCReference Include="..\..\..\CargaEDI\PluginSDK_D11R.dcp" />
-    <DCCReference Include="..\..\..\CargaEDI\PngComponentsD10.dcp" />
-    <DCCReference Include="..\..\..\CargaEDI\PNG_D10.dcp" />
-    <DCCReference Include="..\..\..\CargaEDI\rtl.dcp" />
-    <DCCReference Include="..\..\..\CargaEDI\tb2k_D10.dcp" />
-    <DCCReference Include="..\..\..\CargaEDI\tbx_D10.dcp" />
-    <DCCReference Include="..\..\..\CargaEDI\vcl.dcp" />
-    <DCCReference Include="..\..\..\CargaEDI\vclactnband.dcp" />
-    <DCCReference Include="..\..\..\CargaEDI\vcldb.dcp" />
-    <DCCReference Include="..\..\..\CargaEDI\vcljpg.dcp" />
-    <DCCReference Include="..\..\..\CargaEDI\vclshlctrls.dcp" />
-    <DCCReference Include="..\..\..\CargaEDI\VclSmp.dcp" />
-    <DCCReference Include="..\..\..\CargaEDI\vclx.dcp" />
     <DCCReference Include="..\Reglas\uBizRecepciones.pas" />
+    <DCCReference Include="C:\Documents and Settings\Usuario\adortl.dcp" />
+    <DCCReference Include="C:\Documents and Settings\Usuario\Base.dcp" />
+    <DCCReference Include="C:\Documents and Settings\Usuario\bdertl.dcp" />
+    <DCCReference Include="C:\Documents and Settings\Usuario\ControlesBase.dcp" />
+    <DCCReference Include="C:\Documents and Settings\Usuario\cxDataD10.dcp" />
+    <DCCReference Include="C:\Documents and Settings\Usuario\cxEditorsD10.dcp" />
+    <DCCReference Include="C:\Documents and Settings\Usuario\cxExportD10.dcp" />
+    <DCCReference Include="C:\Documents and Settings\Usuario\cxExtEditorsD10.dcp" />
+    <DCCReference Include="C:\Documents and Settings\Usuario\cxGridD10.dcp" />
+    <DCCReference Include="C:\Documents and Settings\Usuario\cxLibraryD10.dcp" />
+    <DCCReference Include="C:\Documents and Settings\Usuario\cxPageControlD10.dcp" />
+    <DCCReference Include="C:\Documents and Settings\Usuario\cxTreeListD10.dcp" />
+    <DCCReference Include="C:\Documents and Settings\Usuario\dbrtl.dcp" />
+    <DCCReference Include="C:\Documents and Settings\Usuario\dclcxLibraryD10.dcp" />
+    <DCCReference Include="C:\Documents and Settings\Usuario\designide.dcp" />
+    <DCCReference Include="C:\Documents and Settings\Usuario\dsnap.dcp" />
+    <DCCReference Include="C:\Documents and Settings\Usuario\dxComnD10.dcp" />
+    <DCCReference Include="C:\Documents and Settings\Usuario\dxPSCoreD10.dcp" />
+    <DCCReference Include="C:\Documents and Settings\Usuario\dxPScxCommonD10.dcp" />
+    <DCCReference Include="C:\Documents and Settings\Usuario\dxPScxGridLnkD10.dcp" />
+    <DCCReference Include="C:\Documents and Settings\Usuario\dxPSLnksD10.dcp" />
+    <DCCReference Include="C:\Documents and Settings\Usuario\dxThemeD10.dcp" />
+    <DCCReference Include="C:\Documents and Settings\Usuario\GUISDK_D11.dcp" />
+    <DCCReference Include="C:\Documents and Settings\Usuario\Jcl.dcp" />
+    <DCCReference Include="C:\Documents and Settings\Usuario\JclVcl.dcp" />
+    <DCCReference Include="C:\Documents and Settings\Usuario\JvCoreD11R.dcp" />
+    <DCCReference Include="C:\Documents and Settings\Usuario\JvCustomD11R.dcp" />
+    <DCCReference Include="C:\Documents and Settings\Usuario\JvGlobusD11R.dcp" />
+    <DCCReference Include="C:\Documents and Settings\Usuario\JvPageCompsD11R.dcp" />
+    <DCCReference Include="C:\Documents and Settings\Usuario\JvStdCtrlsD11R.dcp" />
+    <DCCReference Include="C:\Documents and Settings\Usuario\JvSystemD11R.dcp" />
+    <DCCReference Include="C:\Documents and Settings\Usuario\Parametros.dcp" />
+    <DCCReference Include="C:\Documents and Settings\Usuario\PluginSDK_D11R.dcp" />
+    <DCCReference Include="C:\Documents and Settings\Usuario\PngComponentsD10.dcp" />
+    <DCCReference Include="C:\Documents and Settings\Usuario\PNG_D10.dcp" />
+    <DCCReference Include="C:\Documents and Settings\Usuario\rtl.dcp" />
+    <DCCReference Include="C:\Documents and Settings\Usuario\tb2k_D10.dcp" />
+    <DCCReference Include="C:\Documents and Settings\Usuario\tbx_D10.dcp" />
+    <DCCReference Include="C:\Documents and Settings\Usuario\vcl.dcp" />
+    <DCCReference Include="C:\Documents and Settings\Usuario\vclactnband.dcp" />
+    <DCCReference Include="C:\Documents and Settings\Usuario\vcldb.dcp" />
+    <DCCReference Include="C:\Documents and Settings\Usuario\vcljpg.dcp" />
+    <DCCReference Include="C:\Documents and Settings\Usuario\vclshlctrls.dcp" />
+    <DCCReference Include="C:\Documents and Settings\Usuario\VclSmp.dcp" />
+    <DCCReference Include="C:\Documents and Settings\Usuario\vclx.dcp" />
     <DCCReference Include="uDataModuleRecepciones.pas">
       <Form>dmRecepciones</Form>
       <DesignClass>TDAClientDataModule</DesignClass>

Source/Modulos/Recepciones/Cliente/Recepciones.drc

@@ -12,7 +12,7 @@ STRINGTABLE
 BEGIN
 END
 
-/* C:\Varela_D2007\Source\Modulos\Recepciones\Cliente\uDataModuleRecepciones.dfm */
+/* C:\Varela_D2007\Source\Modulos\Recepciones\Cliente\uDataModuleRecepciones.DFM */
 /* C:\Varela_D2007\Source\Modulos\Recepciones\Cliente\uViewListaRecepciones.dfm */
 /* C:\Varela_D2007\Source\Modulos\Recepciones\Cliente\uEditorListaRecepciones.dfm */
 /* C:\Varela_D2007\Source\Modulos\Recepciones\Cliente\uViewListaRecepcionesAlbaran.dfm */
@@ -20,4 +20,4 @@ END
 /* C:\Varela_D2007\Source\Modulos\Recepciones\Cliente\uPluginControllerRecepciones.dfm */
 /* C:\Varela_D2007\Source\Modulos\Recepciones\Cliente\uEditorAjustarRecepciones.dfm */
 /* C:\Varela_D2007\Source\Modulos\Recepciones\Cliente\Recepciones.res */
-/* C:\DOCUME~1\Usuario\CONFIG~1\Temp\dtf67.tmp */
+/* C:\Varela_D2007\Source\Modulos\Recepciones\Cliente\Recepciones.drf */

Source/Modulos/ReferenciaGenerica/Cliente/ReferenciaGenerica.dproj

@@ -53,60 +53,46 @@
     <DelphiCompile Include="ReferenciaGenerica.dpk">
       <MainSource>MainSource</MainSource>
     </DelphiCompile>
-    <DCCReference Include="..\..\..\CargaEDI\adortl.dcp" />
-    <DCCReference Include="..\..\..\CargaEDI\Base.dcp" />
-    <DCCReference Include="..\..\..\CargaEDI\Base0.dcp" />
-    <DCCReference Include="..\..\..\CargaEDI\Base10.dcp" />
-    <DCCReference Include="..\..\..\CargaEDI\BaseD10.dcp" />
-    <DCCReference Include="..\..\..\CargaEDI\ControlesBase0.dcp" />
-    <DCCReference Include="..\..\..\CargaEDI\ControlesBase10.dcp" />
-    <DCCReference Include="..\..\..\CargaEDI\ControlesBaseD10.dcp" />
-    <DCCReference Include="..\..\..\CargaEDI\cxDataD10.dcp" />
-    <DCCReference Include="..\..\..\CargaEDI\cxEditorsD10.dcp" />
-    <DCCReference Include="..\..\..\CargaEDI\cxExportD10.dcp" />
-    <DCCReference Include="..\..\..\CargaEDI\cxExtEditorsD10.dcp" />
-    <DCCReference Include="..\..\..\CargaEDI\cxGridD10.dcp" />
-    <DCCReference Include="..\..\..\CargaEDI\cxLibraryD10.dcp" />
-    <DCCReference Include="..\..\..\CargaEDI\cxPageControlD10.dcp" />
-    <DCCReference Include="..\..\..\CargaEDI\cxTreeListD10.dcp" />
-    <DCCReference Include="..\..\..\CargaEDI\dbrtl.dcp" />
-    <DCCReference Include="..\..\..\CargaEDI\dsnap.dcp" />
-    <DCCReference Include="..\..\..\CargaEDI\dxComnD10.dcp" />
-    <DCCReference Include="..\..\..\CargaEDI\dxPSCoreD10.dcp" />
-    <DCCReference Include="..\..\..\CargaEDI\dxThemeD10.dcp" />
-    <DCCReference Include="..\..\..\CargaEDI\GUISDK_D10.dcp" />
-    <DCCReference Include="..\..\..\CargaEDI\GUISDK_D11.dcp" />
-    <DCCReference Include="..\..\..\CargaEDI\GUISDK_D110.dcp" />
-    <DCCReference Include="..\..\..\CargaEDI\Jcl.dcp" />
-    <DCCReference Include="..\..\..\CargaEDI\JclVcl.dcp" />
-    <DCCReference Include="..\..\..\CargaEDI\JvCoreD10R.dcp" />
-    <DCCReference Include="..\..\..\CargaEDI\JvCoreD11R.dcp" />
-    <DCCReference Include="..\..\..\CargaEDI\JvCustomD10R.dcp" />
-    <DCCReference Include="..\..\..\CargaEDI\JvCustomD11R.dcp" />
-    <DCCReference Include="..\..\..\CargaEDI\JvGlobusD10R.dcp" />
-    <DCCReference Include="..\..\..\CargaEDI\JvGlobusD11R.dcp" />
-    <DCCReference Include="..\..\..\CargaEDI\JvPageCompsD10R.dcp" />
-    <DCCReference Include="..\..\..\CargaEDI\JvPageCompsD11R.dcp" />
-    <DCCReference Include="..\..\..\CargaEDI\JvStdCtrlsD10R.dcp" />
-    <DCCReference Include="..\..\..\CargaEDI\JvStdCtrlsD11R.dcp" />
-    <DCCReference Include="..\..\..\CargaEDI\JvSystemD10R.dcp" />
-    <DCCReference Include="..\..\..\CargaEDI\JvSystemD11R.dcp" />
-    <DCCReference Include="..\..\..\CargaEDI\Parametros.dcp" />
-    <DCCReference Include="..\..\..\CargaEDI\PluginSDK_D10R.dcp" />
-    <DCCReference Include="..\..\..\CargaEDI\PluginSDK_D11R.dcp" />
-    <DCCReference Include="..\..\..\CargaEDI\PngComponentsD10.dcp" />
-    <DCCReference Include="..\..\..\CargaEDI\PNG_D10.dcp" />
-    <DCCReference Include="..\..\..\CargaEDI\rtl.dcp" />
-    <DCCReference Include="..\..\..\CargaEDI\tb2k_D10.dcp" />
-    <DCCReference Include="..\..\..\CargaEDI\tbx_D10.dcp" />
-    <DCCReference Include="..\..\..\CargaEDI\vcl.dcp" />
-    <DCCReference Include="..\..\..\CargaEDI\vclactnband.dcp" />
-    <DCCReference Include="..\..\..\CargaEDI\vcldb.dcp" />
-    <DCCReference Include="..\..\..\CargaEDI\vcljpg.dcp" />
-    <DCCReference Include="..\..\..\CargaEDI\vclx.dcp" />
     <DCCReference Include="..\Reglas\schReferenciaGenericaClient_Intf.pas" />
     <DCCReference Include="..\Reglas\schReferenciaGenericaServer_Intf.pas" />
     <DCCReference Include="..\Reglas\uBizReferenciaGenerica.pas" />
+    <DCCReference Include="C:\Documents and Settings\Usuario\adortl.dcp" />
+    <DCCReference Include="C:\Documents and Settings\Usuario\Base.dcp" />
+    <DCCReference Include="C:\Documents and Settings\Usuario\ControlesBase.dcp" />
+    <DCCReference Include="C:\Documents and Settings\Usuario\cxDataD10.dcp" />
+    <DCCReference Include="C:\Documents and Settings\Usuario\cxEditorsD10.dcp" />
+    <DCCReference Include="C:\Documents and Settings\Usuario\cxExportD10.dcp" />
+    <DCCReference Include="C:\Documents and Settings\Usuario\cxExtEditorsD10.dcp" />
+    <DCCReference Include="C:\Documents and Settings\Usuario\cxGridD10.dcp" />
+    <DCCReference Include="C:\Documents and Settings\Usuario\cxLibraryD10.dcp" />
+    <DCCReference Include="C:\Documents and Settings\Usuario\cxPageControlD10.dcp" />
+    <DCCReference Include="C:\Documents and Settings\Usuario\cxTreeListD10.dcp" />
+    <DCCReference Include="C:\Documents and Settings\Usuario\dbrtl.dcp" />
+    <DCCReference Include="C:\Documents and Settings\Usuario\dsnap.dcp" />
+    <DCCReference Include="C:\Documents and Settings\Usuario\dxComnD10.dcp" />
+    <DCCReference Include="C:\Documents and Settings\Usuario\dxPSCoreD10.dcp" />
+    <DCCReference Include="C:\Documents and Settings\Usuario\dxThemeD10.dcp" />
+    <DCCReference Include="C:\Documents and Settings\Usuario\GUISDK_D11.dcp" />
+    <DCCReference Include="C:\Documents and Settings\Usuario\Jcl.dcp" />
+    <DCCReference Include="C:\Documents and Settings\Usuario\JclVcl.dcp" />
+    <DCCReference Include="C:\Documents and Settings\Usuario\JvCoreD11R.dcp" />
+    <DCCReference Include="C:\Documents and Settings\Usuario\JvCustomD11R.dcp" />
+    <DCCReference Include="C:\Documents and Settings\Usuario\JvGlobusD11R.dcp" />
+    <DCCReference Include="C:\Documents and Settings\Usuario\JvPageCompsD11R.dcp" />
+    <DCCReference Include="C:\Documents and Settings\Usuario\JvStdCtrlsD11R.dcp" />
+    <DCCReference Include="C:\Documents and Settings\Usuario\JvSystemD11R.dcp" />
+    <DCCReference Include="C:\Documents and Settings\Usuario\Parametros.dcp" />
+    <DCCReference Include="C:\Documents and Settings\Usuario\PluginSDK_D11R.dcp" />
+    <DCCReference Include="C:\Documents and Settings\Usuario\PngComponentsD10.dcp" />
+    <DCCReference Include="C:\Documents and Settings\Usuario\PNG_D10.dcp" />
+    <DCCReference Include="C:\Documents and Settings\Usuario\rtl.dcp" />
+    <DCCReference Include="C:\Documents and Settings\Usuario\tb2k_D10.dcp" />
+    <DCCReference Include="C:\Documents and Settings\Usuario\tbx_D10.dcp" />
+    <DCCReference Include="C:\Documents and Settings\Usuario\vcl.dcp" />
+    <DCCReference Include="C:\Documents and Settings\Usuario\vclactnband.dcp" />
+    <DCCReference Include="C:\Documents and Settings\Usuario\vcldb.dcp" />
+    <DCCReference Include="C:\Documents and Settings\Usuario\vcljpg.dcp" />
+    <DCCReference Include="C:\Documents and Settings\Usuario\vclx.dcp" />
     <DCCReference Include="uDataModuleReferenciaGenerica.pas">
       <Form>dmReferenciaGenerica</Form>
       <DesignClass>TDAClientDataModule</DesignClass>

Source/Modulos/ReferenciaGenerica/Cliente/ReferenciaGenerica.drc

@@ -12,10 +12,10 @@ STRINGTABLE
 BEGIN
 END
 
-/* C:\Varela_D2007\Source\Modulos\ReferenciaGenerica\Cliente\uDataModuleReferenciaGenerica.dfm */
+/* C:\Varela_D2007\Source\Modulos\ReferenciaGenerica\Cliente\uDataModuleReferenciaGenerica.DFM */
 /* C:\Varela_D2007\Source\Modulos\ReferenciaGenerica\Cliente\uViewListaReferenciaGenerica.dfm */
 /* C:\Varela_D2007\Source\Modulos\ReferenciaGenerica\Cliente\uEditorListaReferenciaGenerica.dfm */
 /* C:\Varela_D2007\Source\Modulos\ReferenciaGenerica\Cliente\uPluginControllerReferenciaGenerica.dfm */
 /* C:\Varela_D2007\Source\Modulos\ReferenciaGenerica\Cliente\uEditorCambioReferenciaGenerica.dfm */
 /* C:\Varela_D2007\Source\Modulos\ReferenciaGenerica\Cliente\ReferenciaGenerica.res */
-/* C:\DOCUME~1\Usuario\CONFIG~1\Temp\dtf65.tmp */
+/* C:\Varela_D2007\Source\Modulos\ReferenciaGenerica\Cliente\ReferenciaGenerica.drf */

Source/Modulos/Stock/Cliente/Stock.dproj

@@ -50,64 +50,51 @@
     <DelphiCompile Include="Stock.dpk">
       <MainSource>MainSource</MainSource>
     </DelphiCompile>
-    <DCCReference Include="..\..\..\CargaEDI\adortl.dcp" />
-    <DCCReference Include="..\..\..\CargaEDI\Base.dcp" />
-    <DCCReference Include="..\..\..\CargaEDI\Base0.dcp" />
-    <DCCReference Include="..\..\..\CargaEDI\Base10.dcp" />
-    <DCCReference Include="..\..\..\CargaEDI\BaseD10.dcp" />
-    <DCCReference Include="..\..\..\CargaEDI\ControlesBaseD.dcp" />
-    <DCCReference Include="..\..\..\CargaEDI\ControlesBaseD1.dcp" />
-    <DCCReference Include="..\..\..\CargaEDI\ControlesBaseD10.dcp" />
-    <DCCReference Include="..\..\..\CargaEDI\cxDataD10.dcp" />
-    <DCCReference Include="..\..\..\CargaEDI\cxEditorsD10.dcp" />
-    <DCCReference Include="..\..\..\CargaEDI\cxExportD10.dcp" />
-    <DCCReference Include="..\..\..\CargaEDI\cxExtEditorsD10.dcp" />
-    <DCCReference Include="..\..\..\CargaEDI\cxGridD10.dcp" />
-    <DCCReference Include="..\..\..\CargaEDI\cxLibraryD10.dcp" />
-    <DCCReference Include="..\..\..\CargaEDI\cxPageControlD10.dcp" />
-    <DCCReference Include="..\..\..\CargaEDI\DataAbstract_Core_D11.dcp" />
-    <DCCReference Include="..\..\..\CargaEDI\dbrtl.dcp" />
-    <DCCReference Include="..\..\..\CargaEDI\dclcxLibraryD10.dcp" />
-    <DCCReference Include="..\..\..\CargaEDI\designide.dcp" />
-    <DCCReference Include="..\..\..\CargaEDI\dsnap.dcp" />
-    <DCCReference Include="..\..\..\CargaEDI\dxComnD10.dcp" />
-    <DCCReference Include="..\..\..\CargaEDI\dxPSCoreD10.dcp" />
-    <DCCReference Include="..\..\..\CargaEDI\dxPScxCommonD10.dcp" />
-    <DCCReference Include="..\..\..\CargaEDI\dxPScxGridLnkD10.dcp" />
-    <DCCReference Include="..\..\..\CargaEDI\dxPSLnksD10.dcp" />
-    <DCCReference Include="..\..\..\CargaEDI\dxThemeD10.dcp" />
-    <DCCReference Include="..\..\..\CargaEDI\GUISDK_D10.dcp" />
-    <DCCReference Include="..\..\..\CargaEDI\GUISDK_D11.dcp" />
-    <DCCReference Include="..\..\..\CargaEDI\GUISDK_D110.dcp" />
-    <DCCReference Include="..\..\..\CargaEDI\Jcl.dcp" />
-    <DCCReference Include="..\..\..\CargaEDI\JclVcl.dcp" />
-    <DCCReference Include="..\..\..\CargaEDI\JvCoreD10R.dcp" />
-    <DCCReference Include="..\..\..\CargaEDI\JvCoreD11R.dcp" />
-    <DCCReference Include="..\..\..\CargaEDI\JvCustomD10R.dcp" />
-    <DCCReference Include="..\..\..\CargaEDI\JvCustomD11R.dcp" />
-    <DCCReference Include="..\..\..\CargaEDI\JvPageCompsD10R.dcp" />
-    <DCCReference Include="..\..\..\CargaEDI\JvPageCompsD11R.dcp" />
-    <DCCReference Include="..\..\..\CargaEDI\JvStdCtrlsD10R.dcp" />
-    <DCCReference Include="..\..\..\CargaEDI\JvStdCtrlsD11R.dcp" />
-    <DCCReference Include="..\..\..\CargaEDI\JvSystemD10R.dcp" />
-    <DCCReference Include="..\..\..\CargaEDI\JvSystemD11R.dcp" />
-    <DCCReference Include="..\..\..\CargaEDI\Parametros.dcp" />
-    <DCCReference Include="..\..\..\CargaEDI\PluginSDK_D10R.dcp" />
-    <DCCReference Include="..\..\..\CargaEDI\PluginSDK_D11R.dcp" />
-    <DCCReference Include="..\..\..\CargaEDI\PngComponentsD10.dcp" />
-    <DCCReference Include="..\..\..\CargaEDI\PNG_D10.dcp" />
-    <DCCReference Include="..\..\..\CargaEDI\RemObjects_Core_D11.dcp" />
-    <DCCReference Include="..\..\..\CargaEDI\rtl.dcp" />
-    <DCCReference Include="..\..\..\CargaEDI\tb2k_D10.dcp" />
-    <DCCReference Include="..\..\..\CargaEDI\tbx_D10.dcp" />
-    <DCCReference Include="..\..\..\CargaEDI\vcl.dcp" />
-    <DCCReference Include="..\..\..\CargaEDI\vclactnband.dcp" />
-    <DCCReference Include="..\..\..\CargaEDI\vcldb.dcp" />
-    <DCCReference Include="..\..\..\CargaEDI\vcljpg.dcp" />
-    <DCCReference Include="..\..\..\CargaEDI\vclshlctrls.dcp" />
-    <DCCReference Include="..\..\..\CargaEDI\vclx.dcp" />
     <DCCReference Include="..\Reglas\schStockClient_Intf.pas" />
     <DCCReference Include="..\Reglas\uBizStock.pas" />
+    <DCCReference Include="C:\Documents and Settings\Usuario\adortl.dcp" />
+    <DCCReference Include="C:\Documents and Settings\Usuario\Base.dcp" />
+    <DCCReference Include="C:\Documents and Settings\Usuario\ControlesBase.dcp" />
+    <DCCReference Include="C:\Documents and Settings\Usuario\cxDataD10.dcp" />
+    <DCCReference Include="C:\Documents and Settings\Usuario\cxEditorsD10.dcp" />
+    <DCCReference Include="C:\Documents and Settings\Usuario\cxExportD10.dcp" />
+    <DCCReference Include="C:\Documents and Settings\Usuario\cxExtEditorsD10.dcp" />
+    <DCCReference Include="C:\Documents and Settings\Usuario\cxGridD10.dcp" />
+    <DCCReference Include="C:\Documents and Settings\Usuario\cxLibraryD10.dcp" />
+    <DCCReference Include="C:\Documents and Settings\Usuario\cxPageControlD10.dcp" />
+    <DCCReference Include="C:\Documents and Settings\Usuario\DataAbstract_Core_D11.dcp" />
+    <DCCReference Include="C:\Documents and Settings\Usuario\dbrtl.dcp" />
+    <DCCReference Include="C:\Documents and Settings\Usuario\dclcxLibraryD10.dcp" />
+    <DCCReference Include="C:\Documents and Settings\Usuario\designide.dcp" />
+    <DCCReference Include="C:\Documents and Settings\Usuario\dsnap.dcp" />
+    <DCCReference Include="C:\Documents and Settings\Usuario\dxComnD10.dcp" />
+    <DCCReference Include="C:\Documents and Settings\Usuario\dxPSCoreD10.dcp" />
+    <DCCReference Include="C:\Documents and Settings\Usuario\dxPScxCommonD10.dcp" />
+    <DCCReference Include="C:\Documents and Settings\Usuario\dxPScxGridLnkD10.dcp" />
+    <DCCReference Include="C:\Documents and Settings\Usuario\dxPSLnksD10.dcp" />
+    <DCCReference Include="C:\Documents and Settings\Usuario\dxThemeD10.dcp" />
+    <DCCReference Include="C:\Documents and Settings\Usuario\GUISDK_D11.dcp" />
+    <DCCReference Include="C:\Documents and Settings\Usuario\Jcl.dcp" />
+    <DCCReference Include="C:\Documents and Settings\Usuario\JclVcl.dcp" />
+    <DCCReference Include="C:\Documents and Settings\Usuario\JvCoreD11R.dcp" />
+    <DCCReference Include="C:\Documents and Settings\Usuario\JvCustomD11R.dcp" />
+    <DCCReference Include="C:\Documents and Settings\Usuario\JvPageCompsD11R.dcp" />
+    <DCCReference Include="C:\Documents and Settings\Usuario\JvStdCtrlsD11R.dcp" />
+    <DCCReference Include="C:\Documents and Settings\Usuario\JvSystemD11R.dcp" />
+    <DCCReference Include="C:\Documents and Settings\Usuario\Parametros.dcp" />
+    <DCCReference Include="C:\Documents and Settings\Usuario\PluginSDK_D11R.dcp" />
+    <DCCReference Include="C:\Documents and Settings\Usuario\PngComponentsD10.dcp" />
+    <DCCReference Include="C:\Documents and Settings\Usuario\PNG_D10.dcp" />
+    <DCCReference Include="C:\Documents and Settings\Usuario\RemObjects_Core_D11.dcp" />
+    <DCCReference Include="C:\Documents and Settings\Usuario\rtl.dcp" />
+    <DCCReference Include="C:\Documents and Settings\Usuario\tb2k_D10.dcp" />
+    <DCCReference Include="C:\Documents and Settings\Usuario\tbx_D10.dcp" />
+    <DCCReference Include="C:\Documents and Settings\Usuario\vcl.dcp" />
+    <DCCReference Include="C:\Documents and Settings\Usuario\vclactnband.dcp" />
+    <DCCReference Include="C:\Documents and Settings\Usuario\vcldb.dcp" />
+    <DCCReference Include="C:\Documents and Settings\Usuario\vcljpg.dcp" />
+    <DCCReference Include="C:\Documents and Settings\Usuario\vclshlctrls.dcp" />
+    <DCCReference Include="C:\Documents and Settings\Usuario\vclx.dcp" />
     <DCCReference Include="uDataModuleStock.pas">
       <Form>dmStock</Form>
       <DesignClass>TDAClientDataModule</DesignClass>

Source/Modulos/Stock/Cliente/Stock.drc

@@ -12,7 +12,7 @@ STRINGTABLE
 BEGIN
 END
 
-/* C:\Varela_D2007\Source\Modulos\Stock\Cliente\uDataModuleStock.dfm */
+/* C:\Varela_D2007\Source\Modulos\Stock\Cliente\uDataModuleStock.DFM */
 /* C:\Varela_D2007\Source\Modulos\Stock\Cliente\uViewControGridStockEDI.dfm */
 /* C:\Varela_D2007\Source\Modulos\Stock\Cliente\uViewControGridStockPrendasCentros.dfm */
 /* C:\Varela_D2007\Source\Modulos\Stock\Cliente\uViewControGridStockEDIInventario.dfm */
@@ -21,4 +21,4 @@ END
 /* C:\Varela_D2007\Source\Modulos\Stock\Cliente\uEditorControlStockVARELA.dfm */
 /* C:\Varela_D2007\Source\Modulos\Stock\Cliente\uPluginControllerStock.dfm */
 /* C:\Varela_D2007\Source\Modulos\Stock\Cliente\Stock.res */
-/* C:\DOCUME~1\Usuario\CONFIG~1\Temp\dtf6D.tmp */
+/* C:\Varela_D2007\Source\Modulos\Stock\Cliente\Stock.drf */

Source/Modulos/Traspasos/Cliente/Traspasos.dproj

@@ -53,74 +53,53 @@
     <DelphiCompile Include="Traspasos.dpk">
       <MainSource>MainSource</MainSource>
     </DelphiCompile>
-    <DCCReference Include="..\..\..\CargaEDI\adortl.dcp" />
-    <DCCReference Include="..\..\..\CargaEDI\Base.dcp" />
-    <DCCReference Include="..\..\..\CargaEDI\Base0.dcp" />
-    <DCCReference Include="..\..\..\CargaEDI\Base10.dcp" />
-    <DCCReference Include="..\..\..\CargaEDI\BaseD10.dcp" />
-    <DCCReference Include="..\..\..\CargaEDI\bdertl.dcp" />
-    <DCCReference Include="..\..\..\CargaEDI\ControlesBase.dcp" />
-    <DCCReference Include="..\..\..\CargaEDI\ControlesBase0.dcp" />
-    <DCCReference Include="..\..\..\CargaEDI\ControlesBase10.dcp" />
-    <DCCReference Include="..\..\..\CargaEDI\ControlesBaseD10.dcp" />
-    <DCCReference Include="..\..\..\CargaEDI\cxDataD10.dcp" />
-    <DCCReference Include="..\..\..\CargaEDI\cxEditorsD10.dcp" />
-    <DCCReference Include="..\..\..\CargaEDI\cxExportD10.dcp" />
-    <DCCReference Include="..\..\..\CargaEDI\cxExtEditorsD10.dcp" />
-    <DCCReference Include="..\..\..\CargaEDI\cxGridD10.dcp" />
-    <DCCReference Include="..\..\..\CargaEDI\cxLibraryD10.dcp" />
-    <DCCReference Include="..\..\..\CargaEDI\cxPageControlD10.dcp" />
-    <DCCReference Include="..\..\..\CargaEDI\cxTreeListD10.dcp" />
-    <DCCReference Include="..\..\..\CargaEDI\dbrtl.dcp" />
-    <DCCReference Include="..\..\..\CargaEDI\dclcxLibraryD10.dcp" />
-    <DCCReference Include="..\..\..\CargaEDI\designide.dcp" />
-    <DCCReference Include="..\..\..\CargaEDI\dsnap.dcp" />
-    <DCCReference Include="..\..\..\CargaEDI\dxComnD10.dcp" />
-    <DCCReference Include="..\..\..\CargaEDI\dxLayoutControlD10.dcp" />
-    <DCCReference Include="..\..\..\CargaEDI\dxPSCoreD10.dcp" />
-    <DCCReference Include="..\..\..\CargaEDI\dxPScxCommonD10.dcp" />
-    <DCCReference Include="..\..\..\CargaEDI\dxPScxGridLnkD10.dcp" />
-    <DCCReference Include="..\..\..\CargaEDI\dxPSLnksD10.dcp" />
-    <DCCReference Include="..\..\..\CargaEDI\dxThemeD10.dcp" />
-    <DCCReference Include="..\..\..\CargaEDI\GUISDK_D10.dcp" />
-    <DCCReference Include="..\..\..\CargaEDI\GUISDK_D11.dcp" />
-    <DCCReference Include="..\..\..\CargaEDI\GUISDK_D110.dcp" />
-    <DCCReference Include="..\..\..\CargaEDI\Jcl.dcp" />
-    <DCCReference Include="..\..\..\CargaEDI\JclVcl.dcp" />
-    <DCCReference Include="..\..\..\CargaEDI\JvCoreD10R.dcp" />
-    <DCCReference Include="..\..\..\CargaEDI\JvCoreD110R.dcp" />
-    <DCCReference Include="..\..\..\CargaEDI\JvCoreD11R.dcp" />
-    <DCCReference Include="..\..\..\CargaEDI\JvCustomD10R.dcp" />
-    <DCCReference Include="..\..\..\CargaEDI\JvCustomD110R.dcp" />
-    <DCCReference Include="..\..\..\CargaEDI\JvGlobusD10R.dcp" />
-    <DCCReference Include="..\..\..\CargaEDI\JvGlobusD110R.dcp" />
-    <DCCReference Include="..\..\..\CargaEDI\JvGlobusD11R.dcp" />
-    <DCCReference Include="..\..\..\CargaEDI\JvPageCompsD10R.dcp" />
-    <DCCReference Include="..\..\..\CargaEDI\JvPageCompsD110R.dcp" />
-    <DCCReference Include="..\..\..\CargaEDI\JvPageCompsD11R.dcp" />
-    <DCCReference Include="..\..\..\CargaEDI\JvStdCtrlsD10R.dcp" />
-    <DCCReference Include="..\..\..\CargaEDI\JvStdCtrlsD110R.dcp" />
-    <DCCReference Include="..\..\..\CargaEDI\JvStdCtrlsD11R.dcp" />
-    <DCCReference Include="..\..\..\CargaEDI\JvSystemD10R.dcp" />
-    <DCCReference Include="..\..\..\CargaEDI\JvSystemD110R.dcp" />
-    <DCCReference Include="..\..\..\CargaEDI\JvSystemD11R.dcp" />
-    <DCCReference Include="..\..\..\CargaEDI\Parametros.dcp" />
-    <DCCReference Include="..\..\..\CargaEDI\PluginSDK_D10R.dcp" />
-    <DCCReference Include="..\..\..\CargaEDI\PluginSDK_D110R.dcp" />
-    <DCCReference Include="..\..\..\CargaEDI\PluginSDK_D11R.dcp" />
-    <DCCReference Include="..\..\..\CargaEDI\PngComponentsD10.dcp" />
-    <DCCReference Include="..\..\..\CargaEDI\PNG_D10.dcp" />
-    <DCCReference Include="..\..\..\CargaEDI\rtl.dcp" />
-    <DCCReference Include="..\..\..\CargaEDI\tb2k_D10.dcp" />
-    <DCCReference Include="..\..\..\CargaEDI\tbx_D10.dcp" />
-    <DCCReference Include="..\..\..\CargaEDI\vcl.dcp" />
-    <DCCReference Include="..\..\..\CargaEDI\vclactnband.dcp" />
-    <DCCReference Include="..\..\..\CargaEDI\vcldb.dcp" />
-    <DCCReference Include="..\..\..\CargaEDI\vcljpg.dcp" />
-    <DCCReference Include="..\..\..\CargaEDI\vclshlctrls.dcp" />
-    <DCCReference Include="..\..\..\CargaEDI\VclSmp.dcp" />
-    <DCCReference Include="..\..\..\CargaEDI\vclx.dcp" />
     <DCCReference Include="..\Reglas\uBizTraspasos.pas" />
+    <DCCReference Include="C:\Documents and Settings\Usuario\adortl.dcp" />
+    <DCCReference Include="C:\Documents and Settings\Usuario\Base.dcp" />
+    <DCCReference Include="C:\Documents and Settings\Usuario\bdertl.dcp" />
+    <DCCReference Include="C:\Documents and Settings\Usuario\ControlesBase.dcp" />
+    <DCCReference Include="C:\Documents and Settings\Usuario\cxDataD10.dcp" />
+    <DCCReference Include="C:\Documents and Settings\Usuario\cxEditorsD10.dcp" />
+    <DCCReference Include="C:\Documents and Settings\Usuario\cxExportD10.dcp" />
+    <DCCReference Include="C:\Documents and Settings\Usuario\cxExtEditorsD10.dcp" />
+    <DCCReference Include="C:\Documents and Settings\Usuario\cxGridD10.dcp" />
+    <DCCReference Include="C:\Documents and Settings\Usuario\cxLibraryD10.dcp" />
+    <DCCReference Include="C:\Documents and Settings\Usuario\cxPageControlD10.dcp" />
+    <DCCReference Include="C:\Documents and Settings\Usuario\cxTreeListD10.dcp" />
+    <DCCReference Include="C:\Documents and Settings\Usuario\dbrtl.dcp" />
+    <DCCReference Include="C:\Documents and Settings\Usuario\dclcxLibraryD10.dcp" />
+    <DCCReference Include="C:\Documents and Settings\Usuario\designide.dcp" />
+    <DCCReference Include="C:\Documents and Settings\Usuario\dsnap.dcp" />
+    <DCCReference Include="C:\Documents and Settings\Usuario\dxComnD10.dcp" />
+    <DCCReference Include="C:\Documents and Settings\Usuario\dxLayoutControlD10.dcp" />
+    <DCCReference Include="C:\Documents and Settings\Usuario\dxPSCoreD10.dcp" />
+    <DCCReference Include="C:\Documents and Settings\Usuario\dxPScxCommonD10.dcp" />
+    <DCCReference Include="C:\Documents and Settings\Usuario\dxPScxGridLnkD10.dcp" />
+    <DCCReference Include="C:\Documents and Settings\Usuario\dxPSLnksD10.dcp" />
+    <DCCReference Include="C:\Documents and Settings\Usuario\dxThemeD10.dcp" />
+    <DCCReference Include="C:\Documents and Settings\Usuario\GUISDK_D11.dcp" />
+    <DCCReference Include="C:\Documents and Settings\Usuario\Jcl.dcp" />
+    <DCCReference Include="C:\Documents and Settings\Usuario\JclVcl.dcp" />
+    <DCCReference Include="C:\Documents and Settings\Usuario\JvCoreD11R.dcp" />
+    <DCCReference Include="C:\Documents and Settings\Usuario\JvCustomD11R.dcp" />
+    <DCCReference Include="C:\Documents and Settings\Usuario\JvGlobusD11R.dcp" />
+    <DCCReference Include="C:\Documents and Settings\Usuario\JvPageCompsD11R.dcp" />
+    <DCCReference Include="C:\Documents and Settings\Usuario\JvStdCtrlsD11R.dcp" />
+    <DCCReference Include="C:\Documents and Settings\Usuario\JvSystemD11R.dcp" />
+    <DCCReference Include="C:\Documents and Settings\Usuario\Parametros.dcp" />
+    <DCCReference Include="C:\Documents and Settings\Usuario\PluginSDK_D11R.dcp" />
+    <DCCReference Include="C:\Documents and Settings\Usuario\PngComponentsD10.dcp" />
+    <DCCReference Include="C:\Documents and Settings\Usuario\PNG_D10.dcp" />
+    <DCCReference Include="C:\Documents and Settings\Usuario\rtl.dcp" />
+    <DCCReference Include="C:\Documents and Settings\Usuario\tb2k_D10.dcp" />
+    <DCCReference Include="C:\Documents and Settings\Usuario\tbx_D10.dcp" />
+    <DCCReference Include="C:\Documents and Settings\Usuario\vcl.dcp" />
+    <DCCReference Include="C:\Documents and Settings\Usuario\vclactnband.dcp" />
+    <DCCReference Include="C:\Documents and Settings\Usuario\vcldb.dcp" />
+    <DCCReference Include="C:\Documents and Settings\Usuario\vcljpg.dcp" />
+    <DCCReference Include="C:\Documents and Settings\Usuario\vclshlctrls.dcp" />
+    <DCCReference Include="C:\Documents and Settings\Usuario\VclSmp.dcp" />
+    <DCCReference Include="C:\Documents and Settings\Usuario\vclx.dcp" />
     <DCCReference Include="uDataModuleTraspasos.pas">
       <Form>dmTraspasos</Form>
       <DesignClass>TDAClientDataModule</DesignClass>

Source/Modulos/Traspasos/Cliente/Traspasos.drc

@@ -12,10 +12,10 @@ STRINGTABLE
 BEGIN
 END
 
-/* C:\Varela_D2007\Source\Modulos\Traspasos\Cliente\uDataModuleTraspasos.dfm */
+/* C:\Varela_D2007\Source\Modulos\Traspasos\Cliente\uDataModuleTraspasos.DFM */
 /* C:\Varela_D2007\Source\Modulos\Traspasos\Cliente\uViewListaTraspasos.dfm */
 /* C:\Varela_D2007\Source\Modulos\Traspasos\Cliente\uEditorListaTraspasos.dfm */
 /* C:\Varela_D2007\Source\Modulos\Traspasos\Cliente\uPluginControllerTraspasos.dfm */
 /* C:\Varela_D2007\Source\Modulos\Traspasos\Cliente\uEditorAjustarTraspasos.dfm */
 /* C:\Varela_D2007\Source\Modulos\Traspasos\Cliente\Traspasos.res */
-/* C:\DOCUME~1\Usuario\CONFIG~1\Temp\dtf6B.tmp */
+/* C:\Varela_D2007\Source\Modulos\Traspasos\Cliente\Traspasos.drf */

Source/Modulos/VentasProceso/Cliente/VentasProceso.dproj

@@ -52,61 +52,42 @@
     <DelphiCompile Include="VentasProceso.dpk">
       <MainSource>MainSource</MainSource>
     </DelphiCompile>
-    <DCCReference Include="..\..\..\CargaEDI\adortl.dcp" />
-    <DCCReference Include="..\..\..\CargaEDI\Base.dcp" />
-    <DCCReference Include="..\..\..\CargaEDI\Base0.dcp" />
-    <DCCReference Include="..\..\..\CargaEDI\Base10.dcp" />
-    <DCCReference Include="..\..\..\CargaEDI\BaseD10.dcp" />
-    <DCCReference Include="..\..\..\CargaEDI\ControlesBase0.dcp" />
-    <DCCReference Include="..\..\..\CargaEDI\ControlesBase10.dcp" />
-    <DCCReference Include="..\..\..\CargaEDI\ControlesBaseD10.dcp" />
-    <DCCReference Include="..\..\..\CargaEDI\cxDataD10.dcp" />
-    <DCCReference Include="..\..\..\CargaEDI\cxEditorsD10.dcp" />
-    <DCCReference Include="..\..\..\CargaEDI\cxExportD10.dcp" />
-    <DCCReference Include="..\..\..\CargaEDI\cxExtEditorsD10.dcp" />
-    <DCCReference Include="..\..\..\CargaEDI\cxGridD10.dcp" />
-    <DCCReference Include="..\..\..\CargaEDI\cxLibraryD10.dcp" />
-    <DCCReference Include="..\..\..\CargaEDI\cxPageControlD10.dcp" />
-    <DCCReference Include="..\..\..\CargaEDI\cxTreeListD10.dcp" />
-    <DCCReference Include="..\..\..\CargaEDI\dbrtl.dcp" />
-    <DCCReference Include="..\..\..\CargaEDI\dsnap.dcp" />
-    <DCCReference Include="..\..\..\CargaEDI\dxThemeD10.dcp" />
-    <DCCReference Include="..\..\..\CargaEDI\GUISDK_D10.dcp" />
-    <DCCReference Include="..\..\..\CargaEDI\GUISDK_D11.dcp" />
-    <DCCReference Include="..\..\..\CargaEDI\GUISDK_D110.dcp" />
-    <DCCReference Include="..\..\..\CargaEDI\Jcl.dcp" />
-    <DCCReference Include="..\..\..\CargaEDI\JclVcl.dcp" />
-    <DCCReference Include="..\..\..\CargaEDI\JvCoreD10R.dcp" />
-    <DCCReference Include="..\..\..\CargaEDI\JvCoreD110R.dcp" />
-    <DCCReference Include="..\..\..\CargaEDI\JvCoreD11R.dcp" />
-    <DCCReference Include="..\..\..\CargaEDI\JvGlobusD10R.dcp" />
-    <DCCReference Include="..\..\..\CargaEDI\JvGlobusD110R.dcp" />
-    <DCCReference Include="..\..\..\CargaEDI\JvGlobusD11R.dcp" />
-    <DCCReference Include="..\..\..\CargaEDI\JvPageCompsD10R.dcp" />
-    <DCCReference Include="..\..\..\CargaEDI\JvPageCompsD11R.dcp" />
-    <DCCReference Include="..\..\..\CargaEDI\JvPageCompsD1R.dcp" />
-    <DCCReference Include="..\..\..\CargaEDI\JvStdCtrlsD10R.dcp" />
-    <DCCReference Include="..\..\..\CargaEDI\JvStdCtrlsD11R.dcp" />
-    <DCCReference Include="..\..\..\CargaEDI\JvStdCtrlsD1R.dcp" />
-    <DCCReference Include="..\..\..\CargaEDI\JvSystemD10R.dcp" />
-    <DCCReference Include="..\..\..\CargaEDI\JvSystemD110R.dcp" />
-    <DCCReference Include="..\..\..\CargaEDI\JvSystemD11R.dcp" />
-    <DCCReference Include="..\..\..\CargaEDI\PluginSDK_D10R.dcp" />
-    <DCCReference Include="..\..\..\CargaEDI\PluginSDK_D110R.dcp" />
-    <DCCReference Include="..\..\..\CargaEDI\PluginSDK_D11R.dcp" />
-    <DCCReference Include="..\..\..\CargaEDI\PngComponentsD10.dcp" />
-    <DCCReference Include="..\..\..\CargaEDI\PNG_D10.dcp" />
-    <DCCReference Include="..\..\..\CargaEDI\rtl.dcp" />
-    <DCCReference Include="..\..\..\CargaEDI\tb2k_D10.dcp" />
-    <DCCReference Include="..\..\..\CargaEDI\tbx_D10.dcp" />
-    <DCCReference Include="..\..\..\CargaEDI\vcl.dcp" />
-    <DCCReference Include="..\..\..\CargaEDI\vclactnband.dcp" />
-    <DCCReference Include="..\..\..\CargaEDI\vcldb.dcp" />
-    <DCCReference Include="..\..\..\CargaEDI\vcljpg.dcp" />
-    <DCCReference Include="..\..\..\CargaEDI\vclx.dcp" />
     <DCCReference Include="..\Reglas\schVentasEnProcesoClient_Intf.pas" />
     <DCCReference Include="..\Reglas\uBizControlVentasProceso.pas" />
     <DCCReference Include="..\Reglas\uBizVentasProceso.pas" />
+    <DCCReference Include="C:\Documents and Settings\Usuario\adortl.dcp" />
+    <DCCReference Include="C:\Documents and Settings\Usuario\Base.dcp" />
+    <DCCReference Include="C:\Documents and Settings\Usuario\ControlesBase.dcp" />
+    <DCCReference Include="C:\Documents and Settings\Usuario\cxDataD10.dcp" />
+    <DCCReference Include="C:\Documents and Settings\Usuario\cxEditorsD10.dcp" />
+    <DCCReference Include="C:\Documents and Settings\Usuario\cxExportD10.dcp" />
+    <DCCReference Include="C:\Documents and Settings\Usuario\cxExtEditorsD10.dcp" />
+    <DCCReference Include="C:\Documents and Settings\Usuario\cxGridD10.dcp" />
+    <DCCReference Include="C:\Documents and Settings\Usuario\cxLibraryD10.dcp" />
+    <DCCReference Include="C:\Documents and Settings\Usuario\cxPageControlD10.dcp" />
+    <DCCReference Include="C:\Documents and Settings\Usuario\cxTreeListD10.dcp" />
+    <DCCReference Include="C:\Documents and Settings\Usuario\dbrtl.dcp" />
+    <DCCReference Include="C:\Documents and Settings\Usuario\dsnap.dcp" />
+    <DCCReference Include="C:\Documents and Settings\Usuario\dxThemeD10.dcp" />
+    <DCCReference Include="C:\Documents and Settings\Usuario\GUISDK_D11.dcp" />
+    <DCCReference Include="C:\Documents and Settings\Usuario\Jcl.dcp" />
+    <DCCReference Include="C:\Documents and Settings\Usuario\JclVcl.dcp" />
+    <DCCReference Include="C:\Documents and Settings\Usuario\JvCoreD11R.dcp" />
+    <DCCReference Include="C:\Documents and Settings\Usuario\JvGlobusD11R.dcp" />
+    <DCCReference Include="C:\Documents and Settings\Usuario\JvPageCompsD11R.dcp" />
+    <DCCReference Include="C:\Documents and Settings\Usuario\JvStdCtrlsD11R.dcp" />
+    <DCCReference Include="C:\Documents and Settings\Usuario\JvSystemD11R.dcp" />
+    <DCCReference Include="C:\Documents and Settings\Usuario\PluginSDK_D11R.dcp" />
+    <DCCReference Include="C:\Documents and Settings\Usuario\PngComponentsD10.dcp" />
+    <DCCReference Include="C:\Documents and Settings\Usuario\PNG_D10.dcp" />
+    <DCCReference Include="C:\Documents and Settings\Usuario\rtl.dcp" />
+    <DCCReference Include="C:\Documents and Settings\Usuario\tb2k_D10.dcp" />
+    <DCCReference Include="C:\Documents and Settings\Usuario\tbx_D10.dcp" />
+    <DCCReference Include="C:\Documents and Settings\Usuario\vcl.dcp" />
+    <DCCReference Include="C:\Documents and Settings\Usuario\vclactnband.dcp" />
+    <DCCReference Include="C:\Documents and Settings\Usuario\vcldb.dcp" />
+    <DCCReference Include="C:\Documents and Settings\Usuario\vcljpg.dcp" />
+    <DCCReference Include="C:\Documents and Settings\Usuario\vclx.dcp" />
     <DCCReference Include="uDataModuleVentasProceso.pas">
       <Form>dmVentasEnProceso</Form>
       <DesignClass>TDAClientDataModule</DesignClass>

Source/Modulos/VentasProceso/Cliente/VentasProceso.drc

@@ -12,7 +12,7 @@ STRINGTABLE
 BEGIN
 END
 
-/* C:\Varela_D2007\Source\Modulos\VentasProceso\Cliente\uDataModuleVentasProceso.dfm */
+/* C:\Varela_D2007\Source\Modulos\VentasProceso\Cliente\uDataModuleVentasProceso.DFM */
 /* C:\Varela_D2007\Source\Modulos\VentasProceso\Cliente\uViewControlesVentaProceso.dfm */
 /* C:\Varela_D2007\Source\Modulos\VentasProceso\Cliente\uEditorControlesVentaProceso.dfm */
 /* C:\Varela_D2007\Source\Modulos\VentasProceso\Cliente\uPluginControllerVentasProceso.dfm */
@@ -20,4 +20,4 @@ END
 /* C:\Varela_D2007\Source\Modulos\VentasProceso\Cliente\uViewControlVentaProceso.dfm */
 /* C:\Varela_D2007\Source\Modulos\VentasProceso\Cliente\uEditorControlVentaProceso.dfm */
 /* C:\Varela_D2007\Source\Modulos\VentasProceso\Cliente\VentasProceso.res */
-/* C:\DOCUME~1\Usuario\CONFIG~1\Temp\dtf63.tmp */
+/* C:\Varela_D2007\Source\Modulos\VentasProceso\Cliente\VentasProceso.drf */

Source/Modulos/VentasTerminadas/Cliente/VentasTerminadas.dproj

@@ -49,24 +49,6 @@
       
       
       
-      
-      
-      
-      
-      
-      
-      
-      
-      
-      
-      
-      
-      
-      
-      
-      
-      
-      
       
       
       
@@ -83,30 +65,16 @@
     <DelphiCompile Include="VentasTerminadas.dpk">
       <MainSource>MainSource</MainSource>
     </DelphiCompile>
-    <DCCReference Include="..\..\..\CargaEDI\ApplicationBase.dcp" />
-    <DCCReference Include="..\..\..\CargaEDI\Base.dcp" />
-    <DCCReference Include="..\..\..\CargaEDI\ControlesBase.dcp" />
-    <DCCReference Include="..\..\..\CargaEDI\Parametros.dcp" />
-    <DCCReference Include="..\..\..\CargaEDI\rtl.dcp" />
-    <DCCReference Include="..\..\..\CargaEDI\vcl.dcp" />
-    <DCCReference Include="..\..\..\ControlesBase\A.dcp" />
-    <DCCReference Include="..\..\..\ControlesBase\Ap.dcp" />
-    <DCCReference Include="..\..\..\ControlesBase\App.dcp" />
-    <DCCReference Include="..\..\..\ControlesBase\Appl.dcp" />
-    <DCCReference Include="..\..\..\ControlesBase\Appli.dcp" />
-    <DCCReference Include="..\..\..\ControlesBase\Applic.dcp" />
-    <DCCReference Include="..\..\..\ControlesBase\Applica.dcp" />
-    <DCCReference Include="..\..\..\ControlesBase\Applicat.dcp" />
-    <DCCReference Include="..\..\..\ControlesBase\Applicati.dcp" />
-    <DCCReference Include="..\..\..\ControlesBase\Applicatio.dcp" />
-    <DCCReference Include="..\..\..\ControlesBase\Application.dcp" />
-    <DCCReference Include="..\..\..\ControlesBase\ApplicationB.dcp" />
-    <DCCReference Include="..\..\..\ControlesBase\ApplicationBa.dcp" />
-    <DCCReference Include="..\..\..\ControlesBase\ApplicationBas.dcp" />
     <DCCReference Include="..\Reglas\schVentasTerminadasClient_Intf.pas" />
     <DCCReference Include="..\Reglas\schVentasTerminadasServer_Intf.pas" />
     <DCCReference Include="..\Reglas\uBizControlVentasTerminadas.pas" />
     <DCCReference Include="..\Reglas\uBizVentasTerminadas.pas" />
+    <DCCReference Include="C:\Documents and Settings\Usuario\ApplicationBase.dcp" />
+    <DCCReference Include="C:\Documents and Settings\Usuario\Base.dcp" />
+    <DCCReference Include="C:\Documents and Settings\Usuario\ControlesBase.dcp" />
+    <DCCReference Include="C:\Documents and Settings\Usuario\Parametros.dcp" />
+    <DCCReference Include="C:\Documents and Settings\Usuario\rtl.dcp" />
+    <DCCReference Include="C:\Documents and Settings\Usuario\vcl.dcp" />
     <DCCReference Include="uDataModuleVentasTerminadas.pas">
       <Form>dmVentasTerminadas</Form>
       <DesignClass>TDAClientDataModule</DesignClass>

Source/Modulos/VentasTerminadas/Cliente/VentasTerminadas.drc

@@ -12,7 +12,7 @@ STRINGTABLE
 BEGIN
 END
 
-/* C:\Varela_D2007\Source\Modulos\VentasTerminadas\Cliente\uDataModuleVentasTerminadas.dfm */
+/* C:\Varela_D2007\Source\Modulos\VentasTerminadas\Cliente\uDataModuleVentasTerminadas.DFM */
 /* C:\Varela_D2007\Source\Modulos\VentasTerminadas\Cliente\uViewControlesVentasTerminadas.dfm */
 /* C:\Varela_D2007\Source\Modulos\VentasTerminadas\Cliente\uEditorControlesVentasTerminadas.dfm */
 /* C:\Varela_D2007\Source\Modulos\VentasTerminadas\Cliente\uViewControGridlVentasTerminadas.dfm */
@@ -22,4 +22,4 @@ END
 /* C:\Varela_D2007\Source\Modulos\VentasTerminadas\Cliente\uPluginControllerVentasTerminadas.dfm */
 /* C:\Varela_D2007\Source\Modulos\VentasTerminadas\Cliente\uEditorControlVentasTerminadas.dfm */
 /* C:\Varela_D2007\Source\Modulos\VentasTerminadas\Cliente\VentasTerminadas.res */
-/* C:\DOCUME~1\Usuario\CONFIG~1\Temp\dtf61.tmp */
+/* C:\Varela_D2007\Source\Modulos\VentasTerminadas\Cliente\VentasTerminadas.drf */

Source/Servidor/AdminPV_Server.dproj

@@ -45,6 +45,13 @@
     <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">2</VersionInfo><VersionInfo Name="MinorVer">1</VersionInfo><VersionInfo Name="Release">1</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">2.1.1.0</VersionInfoKeys><VersionInfoKeys Name="InternalName"></VersionInfoKeys><VersionInfoKeys Name="LegalCopyright"></VersionInfoKeys><VersionInfoKeys Name="LegalTrademarks"></VersionInfoKeys><VersionInfoKeys Name="OriginalFilename"></VersionInfoKeys><VersionInfoKeys Name="ProductName">AdminPV_Server</VersionInfoKeys><VersionInfoKeys Name="ProductVersion">2.1.0.0</VersionInfoKeys><VersionInfoKeys Name="Comments"></VersionInfoKeys><VersionInfoKeys Name="CompileDate">lunes, 10 de marzo de 2008 13:15</VersionInfoKeys></VersionInfoKeys><Source><Source Name="MainSource">AdminPV_Server.dpr</Source></Source><Excluded_Packages>
+      
+      
+      
+      
+      
+      
+      
       <Excluded_Packages Name="C:\Varela_D2007\Lib\DevExpressVCL\dxPSCoreD10.bpl">ExpressPrinting System by Developer Express Inc.</Excluded_Packages>
       <Excluded_Packages Name="$(BDS)\bin\dclwebsnap100.bpl">CodeGear WebSnap Components</Excluded_Packages>
       <Excluded_Packages Name="$(BDS)\bin\dclsoap100.bpl">CodeGear SOAP Components</Excluded_Packages>

Source/Servidor/AdminPV_Server.rc

@@ -16,7 +16,7 @@ BEGIN
               VALUE "FileVersion", "2.1.1.0\0"
               VALUE "ProductName", "AdminPV_Server\0"
               VALUE "ProductVersion", "2.1.1.0\0"
-              VALUE "CompileDate", "jueves, 17 de abril de 2008 13:28\0"
+              VALUE "CompileDate", "miércoles, 23 de abril de 2008 16:58\0"
          END
     END
     BLOCK "VarFileInfo"