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
This commit is contained in:
parent
28231bb136
commit
89e1f653ac
@ -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 */
|
||||
|
||||
|
||||
|
||||
@ -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.
|
||||
|
||||
@ -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="..\ControlesBase\BaseD1.dcp" />
|
||||
<DCCReference Include="..\ControlesBase\BaseD10.dcp" />
|
||||
<DCCReference Include="..\ControlesBase\PlLuginSDK_D10R.dcp" />
|
||||
<DCCReference Include="..\ControlesBase\PluginSDK_D10R.dcp" />
|
||||
<DCCReference Include="..\ControlesBase\PluginSDK_D110R.dcp" />
|
||||
<DCCReference Include="C:\Documents and Settings\Usuario\Base.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="C:\UserControl\Demos\8 UCControls Sample2 - ADO\Base.dcp" />
|
||||
<DCCReference Include="C:\UserControl\Demos\8 UCControls Sample2 - ADO\dbrtl.dcp" />
|
||||
<DCCReference Include="C:\UserControl\Demos\8 UCControls Sample2 - ADO\pckMD5.dcp" />
|
||||
<DCCReference Include="C:\UserControl\Demos\8 UCControls Sample2 - ADO\pckUserControl_RT.dcp" />
|
||||
<DCCReference Include="C:\UserControl\Demos\8 UCControls Sample2 - ADO\PluginSDK_D11R.dcp" />
|
||||
<DCCReference Include="C:\UserControl\Demos\8 UCControls Sample2 - ADO\rtl.dcp" />
|
||||
<DCCReference Include="C:\UserControl\Demos\8 UCControls Sample2 - ADO\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>
|
||||
|
||||
@ -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;
|
||||
|
||||
425
Source/ApplicationBase/Usuarios/Views/uEditorPermisosUsuario.dfm
Normal file
425
Source/ApplicationBase/Usuarios/Views/uEditorPermisosUsuario.dfm
Normal file
@ -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
|
||||
700
Source/ApplicationBase/Usuarios/Views/uEditorPermisosUsuario.pas
Normal file
700
Source/ApplicationBase/Usuarios/Views/uEditorPermisosUsuario.pas
Normal file
@ -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.
|
||||
|
||||
@ -40,12 +40,11 @@ inherited fEditorUsuario: TfEditorUsuario
|
||||
ParentFont = False
|
||||
TabOrder = 3
|
||||
ReadOnly = False
|
||||
ExplicitTop = 76
|
||||
ExplicitWidth = 656
|
||||
ExplicitHeight = 370
|
||||
ExplicitLeft = 8
|
||||
ExplicitTop = 8
|
||||
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
|
||||
|
||||
@ -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
|
||||
|
||||
@ -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
|
||||
(Sender as TAction).Enabled := HayDatos;}
|
||||
if (Sender as TAction).Enabled then
|
||||
(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);
|
||||
|
||||
@ -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.
|
||||
|
||||
@ -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;
|
||||
|
||||
@ -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>
|
||||
|
||||
@ -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 */
|
||||
|
||||
@ -15,8 +15,6 @@ object fEditorBase: TfEditorBase
|
||||
Position = poDefault
|
||||
OnCloseQuery = FormCloseQuery
|
||||
OnShow = FormShow
|
||||
InstanceID = 0
|
||||
ReadOnly = False
|
||||
PixelsPerInch = 96
|
||||
TextHeight = 13
|
||||
object JvNavPanelHeader: TJvNavPanelHeader
|
||||
|
||||
@ -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 */
|
||||
|
||||
@ -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 */
|
||||
|
||||
@ -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"
|
||||
|
||||
Binary file not shown.
@ -2,8 +2,8 @@ object fPantallaPrincipal: TfPantallaPrincipal
|
||||
Left = 358
|
||||
Top = 250
|
||||
Caption = 'Pantalla principal'
|
||||
ClientHeight = 453
|
||||
ClientWidth = 751
|
||||
ClientHeight = 549
|
||||
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
|
||||
Height = 431
|
||||
Width = 975
|
||||
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
|
||||
Height = 421
|
||||
Width = 750
|
||||
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
|
||||
Height = 419
|
||||
Width = 748
|
||||
Height = 515
|
||||
Align = alClient
|
||||
Color = clWindow
|
||||
TabOrder = 0
|
||||
@ -203,9 +203,9 @@ object fPantallaPrincipal: TfPantallaPrincipal
|
||||
end
|
||||
object TBXStatusBar1: TTBXStatusBar
|
||||
Left = 0
|
||||
Top = 431
|
||||
Width = 751
|
||||
Images = StatusPanelImageList
|
||||
Top = 527
|
||||
Width = 975
|
||||
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 = {
|
||||
|
||||
@ -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,
|
||||
Dialogs;
|
||||
TBXDkPanels, uCustomEditor, uHostManager, uGUIBase;
|
||||
|
||||
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');
|
||||
Administracin1.Visible := Administracin1.Enabled;
|
||||
// Si el usuario es administrador puede acceder a la parte de administración.
|
||||
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;
|
||||
|
||||
|
||||
@ -27,43 +27,43 @@ package ControlesBase;
|
||||
{$DEFINE DEBUG}
|
||||
|
||||
requires
|
||||
rtl,
|
||||
vcl,
|
||||
PngComponentsD10,
|
||||
PNG_D10,
|
||||
dbrtl,
|
||||
dsnap,
|
||||
adortl,
|
||||
JvGlobusD11R,
|
||||
cxTreeListD10,
|
||||
vclactnband,
|
||||
vclx,
|
||||
tb2k_D10,
|
||||
tbx_D10,
|
||||
JvCoreD11R,
|
||||
vcljpg,
|
||||
Jcl,
|
||||
JclVcl,
|
||||
JvSystemD11R,
|
||||
JvPageCompsD11R,
|
||||
JvStdCtrlsD11R,
|
||||
dxThemeD10,
|
||||
cxLibraryD10,
|
||||
cxExportD10,
|
||||
cxEditorsD10,
|
||||
cxDataD10,
|
||||
vcldb,
|
||||
cxExtEditorsD10,
|
||||
cxGridD10,
|
||||
cxPageControlD10,
|
||||
dxLayoutControlD10,
|
||||
dxComnD10,
|
||||
cxVerticalGridD10,
|
||||
dxPSCoreD10,
|
||||
VclSmp,
|
||||
bdertl,
|
||||
EasyListviewD11,
|
||||
Base;
|
||||
rtl,
|
||||
vcl,
|
||||
PngComponentsD10,
|
||||
PNG_D10,
|
||||
dbrtl,
|
||||
dsnap,
|
||||
adortl,
|
||||
JvGlobusD11R,
|
||||
cxTreeListD10,
|
||||
vclactnband,
|
||||
vclx,
|
||||
tb2k_D10,
|
||||
tbx_D10,
|
||||
JvCoreD11R,
|
||||
vcljpg,
|
||||
Jcl,
|
||||
JclVcl,
|
||||
JvSystemD11R,
|
||||
JvPageCompsD11R,
|
||||
JvStdCtrlsD11R,
|
||||
dxThemeD10,
|
||||
cxLibraryD10,
|
||||
cxExportD10,
|
||||
cxEditorsD10,
|
||||
cxDataD10,
|
||||
vcldb,
|
||||
cxExtEditorsD10,
|
||||
cxGridD10,
|
||||
cxPageControlD10,
|
||||
dxLayoutControlD10,
|
||||
dxComnD10,
|
||||
cxVerticalGridD10,
|
||||
dxPSCoreD10,
|
||||
VclSmp,
|
||||
bdertl,
|
||||
EasyListviewD11,
|
||||
Base;
|
||||
|
||||
contains
|
||||
uEditorControlesBase in 'Cliente\uEditorControlesBase.pas' {fEditorControlesBase: TCustomEditor},
|
||||
|
||||
@ -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
|
||||
|
||||
@ -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 */
|
||||
|
||||
@ -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>
|
||||
|
||||
@ -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 */
|
||||
|
||||
@ -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" />
|
||||
|
||||
@ -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 */
|
||||
|
||||
@ -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 */
|
||||
|
||||
@ -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>
|
||||
|
||||
@ -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 */
|
||||
|
||||
@ -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>
|
||||
|
||||
@ -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 */
|
||||
|
||||
@ -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>
|
||||
|
||||
@ -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 */
|
||||
|
||||
@ -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>
|
||||
|
||||
@ -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 */
|
||||
|
||||
@ -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>
|
||||
|
||||
@ -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 */
|
||||
|
||||
@ -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>
|
||||
|
||||
@ -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 */
|
||||
|
||||
@ -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>
|
||||
|
||||
File diff suppressed because it is too large
Load Diff
@ -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"
|
||||
|
||||
Binary file not shown.
Loading…
Reference in New Issue
Block a user