Acana_Interiorismo/FactuGES2
2
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Establecer en presupuesto la tienda y el vendedor(empleado) por defecto (segun el usuario con el que se haya accedido)

Browse Source 
git-svn-id: https://192.168.0.254/svn/Proyectos.Acana_FactuGES2/trunk@112 f4e31baf-9722-1c47-927c-6f952f962d4b
This commit is contained in:
roberto 2008-01-15 19:51:09 +00:00
parent fadd5fcda0
commit b7444f16ab
18 changed files with 352 additions and 120 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
Source/ApplicationBase/Empresas/Views/uViewTienda.pas
View File

@ -29,6 +29,7 @@ type
public
function getIDTienda: Integer;
procedure SetIDTienda(const ID: Integer);
end;
@ -81,4 +82,12 @@ begin
Result := FListaIDTiendas.Integers[FListaTiendas.IndexOf(cbTienda.Text)];
end;
procedure TfrViewTienda.SetIDTienda(const ID: Integer);
var
AIndex: Integer;
begin
if FListaIDTiendas.Find(ID, AIndex) then
cbTienda.Text := FListaTiendas.Strings[AIndex];
end;
end.

3
Source/ApplicationBase/Usuarios/Controller/uUsuariosController.pas
View File

@ -487,7 +487,10 @@ end;
function TUsuariosController.GetCurrentUser: IBizUsuario;
begin
if not Assigned(FCurrentUser) or (FCurrentUser.ID <> FUserControl.CurrentUser.UserID) then
begin
FCurrentUser := BuscarUsuario(FUserControl.CurrentUser.UserID);
FCurrentUser.DataTable.Active := True;
end;
Result := FCurrentUser;
end;

8
Source/ApplicationBase/Usuarios/Data/uDataModuleUsuarios.dfm
View File

@ -358,6 +358,14 @@ inherited DataModuleUsuarios: TDataModuleUsuarios
Size = 250
DisplayLabel = 'Checksum'
DictionaryEntry = 'USUARIOS_CHECKSUM'
end
item
Name = 'ID_EMPLEADO'
DataType = datInteger
end
item
Name = 'ID_TIENDA'
DataType = datInteger
end>
Params = <>
StreamingOptions = [soDisableEventsWhileStreaming]

94
Source/ApplicationBase/Usuarios/Model/schUsuariosClient_Intf.pas
View File

@ -9,12 +9,12 @@ const
{ Data table rules ids
Feel free to change them to something more human readable
but make sure they are unique in the context of your application }
RID_USUARIOS = '{4ED84753-A082-44F4-BEA1-B84E494129F1}';
RID_USUARIOS_EVENTOS = '{5A454EB1-F5D2-4E55-8DC3-2C42AF250C42}';
RID_USUARIOS_LOGON = '{50AFB47C-FF60-4F01-B19C-FED2D4E6C884}';
RID_PERMISOS = '{65C900D5-5EF1-4B26-9D61-CD0183BD5CAF}';
RID_PERMISOSEX = '{66351DE2-540F-4456-A330-2634D71EA2E4}';
RID_PERFILES = '{A054E0CE-4F22-4376-88E2-07ABF712361C}';
RID_USUARIOS = '{65B7BC42-83C2-459A-8F99-C8DCCC5AD9B6}';
RID_USUARIOS_EVENTOS = '{C3A73414-3473-4FF2-9994-AE5A0B64C1B5}';
RID_USUARIOS_LOGON = '{5BECFBB1-EEA4-4EA3-936D-7EB7AE7771E5}';
RID_PERMISOS = '{15383330-12A0-4322-A74B-D9BCE77F7DC1}';
RID_PERMISOSEX = '{73F57CFD-17AC-4F91-BCD8-497A6F9A81D8}';
RID_PERFILES = '{F2615EE5-08AB-4A18-A97C-345924BEE04F}';
{ Data table names }
nme_USUARIOS = 'USUARIOS';
@ -37,6 +37,8 @@ const
fld_USUARIOSTIPO = 'TIPO';
fld_USUARIOSID_PERFIL = 'ID_PERFIL';
fld_USUARIOSCHECKSUM = 'CHECKSUM';
fld_USUARIOSID_EMPLEADO = 'ID_EMPLEADO';
fld_USUARIOSID_TIENDA = 'ID_TIENDA';
{ USUARIOS field indexes }
idx_USUARIOSID = 0;
@ -51,6 +53,8 @@ const
idx_USUARIOSTIPO = 9;
idx_USUARIOSID_PERFIL = 10;
idx_USUARIOSCHECKSUM = 11;
idx_USUARIOSID_EMPLEADO = 12;
idx_USUARIOSID_TIENDA = 13;
{ USUARIOS_EVENTOS fields }
fld_USUARIOS_EVENTOSAPLICACION = 'APLICACION';
@ -129,7 +133,7 @@ const
type
{ IUSUARIOS }
IUSUARIOS = interface(IDAStronglyTypedDataTable)
['{30EDE872-B7DB-48D5-91B1-01659A9C9475}']
['{99CA8E68-602A-4E23-BE22-1243423EB570}']
{ Property getters and setters }
function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer);
@ -179,6 +183,14 @@ type
procedure SetCHECKSUMValue(const aValue: String);
function GetCHECKSUMIsNull: Boolean;
procedure SetCHECKSUMIsNull(const aValue: Boolean);
function GetID_EMPLEADOValue: Integer;
procedure SetID_EMPLEADOValue(const aValue: Integer);
function GetID_EMPLEADOIsNull: Boolean;
procedure SetID_EMPLEADOIsNull(const aValue: Boolean);
function GetID_TIENDAValue: Integer;
procedure SetID_TIENDAValue(const aValue: Integer);
function GetID_TIENDAIsNull: Boolean;
procedure SetID_TIENDAIsNull(const aValue: Boolean);
{ Properties }
@ -206,6 +218,10 @@ type
property ID_PERFILIsNull: Boolean read GetID_PERFILIsNull write SetID_PERFILIsNull;
property CHECKSUM: String read GetCHECKSUMValue write SetCHECKSUMValue;
property CHECKSUMIsNull: Boolean read GetCHECKSUMIsNull write SetCHECKSUMIsNull;
property ID_EMPLEADO: Integer read GetID_EMPLEADOValue write SetID_EMPLEADOValue;
property ID_EMPLEADOIsNull: Boolean read GetID_EMPLEADOIsNull write SetID_EMPLEADOIsNull;
property ID_TIENDA: Integer read GetID_TIENDAValue write SetID_TIENDAValue;
property ID_TIENDAIsNull: Boolean read GetID_TIENDAIsNull write SetID_TIENDAIsNull;
end;
{ TUSUARIOSDataTableRules }
@ -261,6 +277,14 @@ type
procedure SetCHECKSUMValue(const aValue: String); virtual;
function GetCHECKSUMIsNull: Boolean; virtual;
procedure SetCHECKSUMIsNull(const aValue: Boolean); virtual;
function GetID_EMPLEADOValue: Integer; virtual;
procedure SetID_EMPLEADOValue(const aValue: Integer); virtual;
function GetID_EMPLEADOIsNull: Boolean; virtual;
procedure SetID_EMPLEADOIsNull(const aValue: Boolean); virtual;
function GetID_TIENDAValue: Integer; virtual;
procedure SetID_TIENDAValue(const aValue: Integer); virtual;
function GetID_TIENDAIsNull: Boolean; virtual;
procedure SetID_TIENDAIsNull(const aValue: Boolean); virtual;
{ Properties }
property ID: Integer read GetIDValue write SetIDValue;
@ -287,6 +311,10 @@ type
property ID_PERFILIsNull: Boolean read GetID_PERFILIsNull write SetID_PERFILIsNull;
property CHECKSUM: String read GetCHECKSUMValue write SetCHECKSUMValue;
property CHECKSUMIsNull: Boolean read GetCHECKSUMIsNull write SetCHECKSUMIsNull;
property ID_EMPLEADO: Integer read GetID_EMPLEADOValue write SetID_EMPLEADOValue;
property ID_EMPLEADOIsNull: Boolean read GetID_EMPLEADOIsNull write SetID_EMPLEADOIsNull;
property ID_TIENDA: Integer read GetID_TIENDAValue write SetID_TIENDAValue;
property ID_TIENDAIsNull: Boolean read GetID_TIENDAIsNull write SetID_TIENDAIsNull;
public
constructor Create(aDataTable: TDADataTable); override;
@ -296,7 +324,7 @@ type
{ IUSUARIOS_EVENTOS }
IUSUARIOS_EVENTOS = interface(IDAStronglyTypedDataTable)
['{351226EB-9947-4892-A278-211C9F071DBF}']
['{8266AB36-18C0-48E4-8CB1-13779322E8C7}']
{ Property getters and setters }
function GetAPLICACIONValue: String;
procedure SetAPLICACIONValue(const aValue: String);
@ -427,7 +455,7 @@ type
{ IUSUARIOS_LOGON }
IUSUARIOS_LOGON = interface(IDAStronglyTypedDataTable)
['{E20DC12D-CE5C-4CBF-A6E4-3EDF551CF78F}']
['{1721EA9B-77A8-4E0E-978A-EDCD53AA859F}']
{ Property getters and setters }
function GetLOGONIDValue: String;
procedure SetLOGONIDValue(const aValue: String);
@ -510,7 +538,7 @@ type
{ IPERMISOS }
IPERMISOS = interface(IDAStronglyTypedDataTable)
['{E5102A92-D8E5-4EBE-B311-813248EB7D0E}']
['{92A64248-1BF3-424E-B311-4C879E30177A}']
{ Property getters and setters }
function GetID_USUARIOValue: Integer;
procedure SetID_USUARIOValue(const aValue: Integer);
@ -581,7 +609,7 @@ type
{ IPERMISOSEX }
IPERMISOSEX = interface(IDAStronglyTypedDataTable)
['{8E1FEA71-ABDC-4688-A6A7-145E11A8C18D}']
['{C134946D-8CCA-44D0-9C52-7B3B5EB08E49}']
{ Property getters and setters }
function GetID_USUARIOValue: Integer;
procedure SetID_USUARIOValue(const aValue: Integer);
@ -664,7 +692,7 @@ type
{ IPERFILES }
IPERFILES = interface(IDAStronglyTypedDataTable)
['{8A8536E6-95D0-4D6C-9F52-8EF5D46948A9}']
['{4B59467A-22C8-4D7C-A516-BBF3D6C6801A}']
{ Property getters and setters }
function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer);
@ -1000,6 +1028,48 @@ begin
DataTable.Fields[idx_USUARIOSCHECKSUM].AsVariant := Null;
end;
function TUSUARIOSDataTableRules.GetID_EMPLEADOValue: Integer;
begin
result := DataTable.Fields[idx_USUARIOSID_EMPLEADO].AsInteger;
end;
procedure TUSUARIOSDataTableRules.SetID_EMPLEADOValue(const aValue: Integer);
begin
DataTable.Fields[idx_USUARIOSID_EMPLEADO].AsInteger := aValue;
end;
function TUSUARIOSDataTableRules.GetID_EMPLEADOIsNull: boolean;
begin
result := DataTable.Fields[idx_USUARIOSID_EMPLEADO].IsNull;
end;
procedure TUSUARIOSDataTableRules.SetID_EMPLEADOIsNull(const aValue: Boolean);
begin
if aValue then
DataTable.Fields[idx_USUARIOSID_EMPLEADO].AsVariant := Null;
end;
function TUSUARIOSDataTableRules.GetID_TIENDAValue: Integer;
begin
result := DataTable.Fields[idx_USUARIOSID_TIENDA].AsInteger;
end;
procedure TUSUARIOSDataTableRules.SetID_TIENDAValue(const aValue: Integer);
begin
DataTable.Fields[idx_USUARIOSID_TIENDA].AsInteger := aValue;
end;
function TUSUARIOSDataTableRules.GetID_TIENDAIsNull: boolean;
begin
result := DataTable.Fields[idx_USUARIOSID_TIENDA].IsNull;
end;
procedure TUSUARIOSDataTableRules.SetID_TIENDAIsNull(const aValue: Boolean);
begin
if aValue then
DataTable.Fields[idx_USUARIOSID_TIENDA].AsVariant := Null;
end;
{ TUSUARIOS_EVENTOSDataTableRules }
constructor TUSUARIOS_EVENTOSDataTableRules.Create(aDataTable: TDADataTable);

110
Source/ApplicationBase/Usuarios/Model/schUsuariosServer_Intf.pas
View File

@ -9,17 +9,17 @@ const
{ Delta rules ids
Feel free to change them to something more human readable
but make sure they are unique in the context of your application }
RID_USUARIOSDelta = '{06A56FDC-D1B7-4F90-B90A-5D74FCD7F5C6}';
RID_USUARIOS_EVENTOSDelta = '{94A19FD9-F4DA-45FE-85BE-70F2BBA6409F}';
RID_USUARIOS_LOGONDelta = '{FEDB5A65-D568-46CE-A595-5DC807BAB7DC}';
RID_PERMISOSDelta = '{5B04B65B-14D8-4485-A305-214FDE2E6B38}';
RID_PERMISOSEXDelta = '{FF8FC2AF-6D29-4EEE-A4CD-4DFD01041C25}';
RID_PERFILESDelta = '{E9F8FD20-4505-4698-80CF-F4F641EB05F6}';
RID_USUARIOSDelta = '{767AECF0-73DF-483C-BCD3-83A9E425177B}';
RID_USUARIOS_EVENTOSDelta = '{AF20CF49-049C-4541-B01D-CCAAC2CDA912}';
RID_USUARIOS_LOGONDelta = '{C4702DF5-B82A-469C-A97E-79BAF8012A26}';
RID_PERMISOSDelta = '{97700BF0-18B1-4CB0-8AFD-340B150C6A59}';
RID_PERMISOSEXDelta = '{2F16E82F-201A-48B6-8898-32C56932E696}';
RID_PERFILESDelta = '{CA9075EF-2994-4366-94B6-7416B3D9936E}';
type
{ IUSUARIOSDelta }
IUSUARIOSDelta = interface(IUSUARIOS)
['{06A56FDC-D1B7-4F90-B90A-5D74FCD7F5C6}']
['{767AECF0-73DF-483C-BCD3-83A9E425177B}']
{ Property getters and setters }
function GetOldIDValue : Integer;
function GetOldUSERNAMEValue : String;
@ -33,6 +33,8 @@ type
function GetOldTIPOValue : String;
function GetOldID_PERFILValue : Integer;
function GetOldCHECKSUMValue : String;
function GetOldID_EMPLEADOValue : Integer;
function GetOldID_TIENDAValue : Integer;
{ Properties }
property OldID : Integer read GetOldIDValue;
@ -47,6 +49,8 @@ type
property OldTIPO : String read GetOldTIPOValue;
property OldID_PERFIL : Integer read GetOldID_PERFILValue;
property OldCHECKSUM : String read GetOldCHECKSUMValue;
property OldID_EMPLEADO : Integer read GetOldID_EMPLEADOValue;
property OldID_TIENDA : Integer read GetOldID_TIENDAValue;
end;
{ TUSUARIOSBusinessProcessorRules }
@ -126,6 +130,18 @@ type
function GetOldCHECKSUMIsNull: Boolean; virtual;
procedure SetCHECKSUMValue(const aValue: String); virtual;
procedure SetCHECKSUMIsNull(const aValue: Boolean); virtual;
function GetID_EMPLEADOValue: Integer; virtual;
function GetID_EMPLEADOIsNull: Boolean; virtual;
function GetOldID_EMPLEADOValue: Integer; virtual;
function GetOldID_EMPLEADOIsNull: Boolean; virtual;
procedure SetID_EMPLEADOValue(const aValue: Integer); virtual;
procedure SetID_EMPLEADOIsNull(const aValue: Boolean); virtual;
function GetID_TIENDAValue: Integer; virtual;
function GetID_TIENDAIsNull: Boolean; virtual;
function GetOldID_TIENDAValue: Integer; virtual;
function GetOldID_TIENDAIsNull: Boolean; virtual;
procedure SetID_TIENDAValue(const aValue: Integer); virtual;
procedure SetID_TIENDAIsNull(const aValue: Boolean); virtual;
{ Properties }
property ID : Integer read GetIDValue write SetIDValue;
@ -176,6 +192,14 @@ type
property CHECKSUMIsNull : Boolean read GetCHECKSUMIsNull write SetCHECKSUMIsNull;
property OldCHECKSUM : String read GetOldCHECKSUMValue;
property OldCHECKSUMIsNull : Boolean read GetOldCHECKSUMIsNull;
property ID_EMPLEADO : Integer read GetID_EMPLEADOValue write SetID_EMPLEADOValue;
property ID_EMPLEADOIsNull : Boolean read GetID_EMPLEADOIsNull write SetID_EMPLEADOIsNull;
property OldID_EMPLEADO : Integer read GetOldID_EMPLEADOValue;
property OldID_EMPLEADOIsNull : Boolean read GetOldID_EMPLEADOIsNull;
property ID_TIENDA : Integer read GetID_TIENDAValue write SetID_TIENDAValue;
property ID_TIENDAIsNull : Boolean read GetID_TIENDAIsNull write SetID_TIENDAIsNull;
property OldID_TIENDA : Integer read GetOldID_TIENDAValue;
property OldID_TIENDAIsNull : Boolean read GetOldID_TIENDAIsNull;
public
constructor Create(aBusinessProcessor: TDABusinessProcessor); override;
@ -185,7 +209,7 @@ type
{ IUSUARIOS_EVENTOSDelta }
IUSUARIOS_EVENTOSDelta = interface(IUSUARIOS_EVENTOS)
['{94A19FD9-F4DA-45FE-85BE-70F2BBA6409F}']
['{AF20CF49-049C-4541-B01D-CCAAC2CDA912}']
{ Property getters and setters }
function GetOldAPLICACIONValue : String;
function GetOldID_USUARIOValue : Integer;
@ -316,7 +340,7 @@ type
{ IUSUARIOS_LOGONDelta }
IUSUARIOS_LOGONDelta = interface(IUSUARIOS_LOGON)
['{FEDB5A65-D568-46CE-A595-5DC807BAB7DC}']
['{C4702DF5-B82A-469C-A97E-79BAF8012A26}']
{ Property getters and setters }
function GetOldLOGONIDValue : String;
function GetOldID_USUARIOValue : Integer;
@ -398,7 +422,7 @@ type
{ IPERMISOSDelta }
IPERMISOSDelta = interface(IPERMISOS)
['{5B04B65B-14D8-4485-A305-214FDE2E6B38}']
['{97700BF0-18B1-4CB0-8AFD-340B150C6A59}']
{ Property getters and setters }
function GetOldID_USUARIOValue : Integer;
function GetOldMODULOValue : String;
@ -468,7 +492,7 @@ type
{ IPERMISOSEXDelta }
IPERMISOSEXDelta = interface(IPERMISOSEX)
['{FF8FC2AF-6D29-4EEE-A4CD-4DFD01041C25}']
['{2F16E82F-201A-48B6-8898-32C56932E696}']
{ Property getters and setters }
function GetOldID_USUARIOValue : Integer;
function GetOldMODULOValue : String;
@ -550,7 +574,7 @@ type
{ IPERFILESDelta }
IPERFILESDelta = interface(IPERFILES)
['{E9F8FD20-4505-4698-80CF-F4F641EB05F6}']
['{CA9075EF-2994-4366-94B6-7416B3D9936E}']
{ Property getters and setters }
function GetOldIDValue : Integer;
function GetOldUSERNAMEValue : String;
@ -1006,6 +1030,68 @@ begin
BusinessProcessor.CurrentChange.NewValueByName[fld_USUARIOSCHECKSUM] := Null;
end;
function TUSUARIOSBusinessProcessorRules.GetID_EMPLEADOValue: Integer;
begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_USUARIOSID_EMPLEADO];
end;
function TUSUARIOSBusinessProcessorRules.GetID_EMPLEADOIsNull: Boolean;
begin
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_USUARIOSID_EMPLEADO]);
end;
function TUSUARIOSBusinessProcessorRules.GetOldID_EMPLEADOValue: Integer;
begin
result := BusinessProcessor.CurrentChange.OldValueByName[fld_USUARIOSID_EMPLEADO];
end;
function TUSUARIOSBusinessProcessorRules.GetOldID_EMPLEADOIsNull: Boolean;
begin
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_USUARIOSID_EMPLEADO]);
end;
procedure TUSUARIOSBusinessProcessorRules.SetID_EMPLEADOValue(const aValue: Integer);
begin
BusinessProcessor.CurrentChange.NewValueByName[fld_USUARIOSID_EMPLEADO] := aValue;
end;
procedure TUSUARIOSBusinessProcessorRules.SetID_EMPLEADOIsNull(const aValue: Boolean);
begin
if aValue then
BusinessProcessor.CurrentChange.NewValueByName[fld_USUARIOSID_EMPLEADO] := Null;
end;
function TUSUARIOSBusinessProcessorRules.GetID_TIENDAValue: Integer;
begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_USUARIOSID_TIENDA];
end;
function TUSUARIOSBusinessProcessorRules.GetID_TIENDAIsNull: Boolean;
begin
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_USUARIOSID_TIENDA]);
end;
function TUSUARIOSBusinessProcessorRules.GetOldID_TIENDAValue: Integer;
begin
result := BusinessProcessor.CurrentChange.OldValueByName[fld_USUARIOSID_TIENDA];
end;
function TUSUARIOSBusinessProcessorRules.GetOldID_TIENDAIsNull: Boolean;
begin
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_USUARIOSID_TIENDA]);
end;
procedure TUSUARIOSBusinessProcessorRules.SetID_TIENDAValue(const aValue: Integer);
begin
BusinessProcessor.CurrentChange.NewValueByName[fld_USUARIOSID_TIENDA] := aValue;
end;
procedure TUSUARIOSBusinessProcessorRules.SetID_TIENDAIsNull(const aValue: Boolean);
begin
if aValue then
BusinessProcessor.CurrentChange.NewValueByName[fld_USUARIOSID_TIENDA] := Null;
end;
{ TUSUARIOS_EVENTOSBusinessProcessorRules }
constructor TUSUARIOS_EVENTOSBusinessProcessorRules.Create(aBusinessProcessor: TDABusinessProcessor);

32
Source/ApplicationBase/Usuarios/Servidor/srvUsuarios_Impl.dfm
View File

@ -124,13 +124,8 @@ object srvUsuarios: TsrvUsuarios
Connection = 'IBX'
ConnectionType = 'Interbase'
Default = True
TargetTable = 'USUARIOS'
SQL =
'SELECT '#10' ID, USERNAME, LOGIN, PASS, PASSEXPIRED, BLOQUEADO,'#10' ' +
' EMAIL, USERDAYSSUN, PRIVILEGED, TIPO, ID_PERFIL, CHECKSUM'#10' F' +
'ROM'#10' USUARIOS'#10' WHERE TIPO = '#39'U'#39' AND {Where}'#10' ORDER BY USERN' +
'AME'#10
StatementType = stSQL
TargetTable = 'V_USUARIOS'
StatementType = stAutoSQL
ColumnMappings = <
item
DatasetField = 'ID'
@ -179,6 +174,14 @@ object srvUsuarios: TsrvUsuarios
item
DatasetField = 'CHECKSUM'
TableField = 'CHECKSUM'
end
item
DatasetField = 'ID_EMPLEADO'
TableField = 'ID_EMPLEADO'
end
item
DatasetField = 'ID_TIENDA'
TableField = 'ID_TIENDA'
end>
end>
Name = 'USUARIOS'
@ -250,6 +253,14 @@ object srvUsuarios: TsrvUsuarios
DataType = datString
Size = 250
DictionaryEntry = 'USUARIOS_CHECKSUM'
end
item
Name = 'ID_EMPLEADO'
DataType = datInteger
end
item
Name = 'ID_TIENDA'
DataType = datInteger
end>
end
item
@ -517,11 +528,8 @@ object srvUsuarios: TsrvUsuarios
Statements = <
item
Connection = 'IBX'
TargetTable = 'USUARIOS'
SQL =
'SELECT '#10' ID, USERNAME, LOGIN, TIPO'#10' FROM'#10' USUARIOS'#10' WHER' +
'E TIPO = '#39'P'#39' AND {Where}'#10' ORDER BY USERNAME'#10
StatementType = stSQL
TargetTable = 'V_PERFILES'
StatementType = stAutoSQL
ColumnMappings = <
item
DatasetField = 'ID'

96
Source/Base/Base.dproj
View File

@ -50,20 +50,6 @@
<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>
@ -93,8 +79,48 @@
<DCCReference Include="..\ApplicationBase\Usuarios\Views\PlugRemObjects_Core_D11.dcp" />
<DCCReference Include="..\ApplicationBase\Usuarios\Views\PluRemObjects_Core_D11.dcp" />
<DCCReference Include="..\ApplicationBase\Usuarios\Views\PRemObjects_Core_D11.dcp" />
<DCCReference Include="..\Modulos\Presupuestos de cliente\adortl.dcp" />
<DCCReference Include="..\Modulos\Presupuestos de cliente\cxIntl6D11.dcp" />
<DCCReference Include="..\Modulos\Presupuestos de cliente\cxIntlPrintSys3D11.dcp" />
<DCCReference Include="..\Modulos\Presupuestos de cliente\DataAbstract_Core_D11.dcp" />
<DCCReference Include="..\Modulos\Presupuestos de cliente\dbrtl.dcp" />
<DCCReference Include="..\Modulos\Presupuestos de cliente\dclIndyCore.dcp" />
<DCCReference Include="..\Modulos\Presupuestos de cliente\designide.dcp" />
<DCCReference Include="..\Modulos\Presupuestos de cliente\dsnap.dcp" />
<DCCReference Include="..\Modulos\Presupuestos de cliente\GUISDK_D11.dcp" />
<DCCReference Include="..\Modulos\Presupuestos de cliente\IndyCore.dcp" />
<DCCReference Include="..\Modulos\Presupuestos de cliente\IndyProtocols.dcp" />
<DCCReference Include="..\Modulos\Presupuestos de cliente\IndySystem.dcp" />
<DCCReference Include="..\Modulos\Presupuestos de cliente\Jcl.dcp" />
<DCCReference Include="..\Modulos\Presupuestos de cliente\JclVcl.dcp" />
<DCCReference Include="..\Modulos\Presupuestos de cliente\JSDialog100.dcp" />
<DCCReference Include="..\Modulos\Presupuestos de cliente\JvCmpD11R.dcp" />
<DCCReference Include="..\Modulos\Presupuestos de cliente\JvCoreD11R.dcp" />
<DCCReference Include="..\Modulos\Presupuestos de cliente\JvCtrlsD11R.dcp" />
<DCCReference Include="..\Modulos\Presupuestos de cliente\JvDlgsD11R.dcp" />
<DCCReference Include="..\Modulos\Presupuestos de cliente\JvMMD11R.dcp" />
<DCCReference Include="..\Modulos\Presupuestos de cliente\JvNetD11R.dcp" />
<DCCReference Include="..\Modulos\Presupuestos de cliente\JvPageCompsD11R.dcp" />
<DCCReference Include="..\Modulos\Presupuestos de cliente\JvStdCtrlsD11R.dcp" />
<DCCReference Include="..\Modulos\Presupuestos de cliente\JvSystemD11R.dcp" />
<DCCReference Include="..\Modulos\Presupuestos de cliente\pckMD5.dcp" />
<DCCReference Include="..\Modulos\Presupuestos de cliente\pckUCDataConnector.dcp" />
<DCCReference Include="..\Modulos\Presupuestos de cliente\pckUserControl_RT.dcp" />
<DCCReference Include="..\Modulos\Presupuestos de cliente\PluginSDK_D10R.dcp" />
<DCCReference Include="..\Modulos\Presupuestos de cliente\PngComponentsD10.dcp" />
<DCCReference Include="..\Modulos\Presupuestos de cliente\PNG_D10.dcp" />
<DCCReference Include="..\Modulos\Presupuestos de cliente\RemObjects_Core_D11.dcp" />
<DCCReference Include="..\Modulos\Presupuestos de cliente\rtl.dcp" />
<DCCReference Include="..\Modulos\Presupuestos de cliente\TB2k_D10.dcp" />
<DCCReference Include="..\Modulos\Presupuestos de cliente\tbx_d10.dcp" />
<DCCReference Include="..\Modulos\Presupuestos de cliente\vcl.dcp" />
<DCCReference Include="..\Modulos\Presupuestos de cliente\vclactnband.dcp" />
<DCCReference Include="..\Modulos\Presupuestos de cliente\vcldb.dcp" />
<DCCReference Include="..\Modulos\Presupuestos de cliente\vcljpg.dcp" />
<DCCReference Include="..\Modulos\Presupuestos de cliente\VclSmp.dcp" />
<DCCReference Include="..\Modulos\Presupuestos de cliente\vclx.dcp" />
<DCCReference Include="..\Modulos\Presupuestos de cliente\xmlrtl.dcp" />
<DCCReference Include="..\Servicios\FactuGES_Intf.pas" />
<DCCReference Include="adortl.dcp" />
<DCCReference Include="Conexion\uConfigurarConexion.pas">
<Form>fConfigurarConexion</Form>
<DesignClass>TForm</DesignClass>
@ -109,40 +135,7 @@
</DCCReference>
<DCCReference Include="Controladores\uControllerBase.pas" />
<DCCReference Include="Controladores\uControllerDetallesBase.pas" />
<DCCReference Include="cxIntl6D11.dcp" />
<DCCReference Include="cxIntlPrintSys3D11.dcp" />
<DCCReference Include="DataAbstract_Core_D11.dcp" />
<DCCReference Include="dbrtl.dcp" />
<DCCReference Include="dclIndyCore.dcp" />
<DCCReference Include="designide.dcp" />
<DCCReference Include="dsnap.dcp" />
<DCCReference Include="GUISDK_D11.dcp" />
<DCCReference Include="IndyCore.dcp" />
<DCCReference Include="IndyProtocols.dcp" />
<DCCReference Include="IndySystem.dcp" />
<DCCReference Include="Jcl.dcp" />
<DCCReference Include="JclVcl.dcp" />
<DCCReference Include="JSDialog100.dcp" />
<DCCReference Include="JvCmpD11R.dcp" />
<DCCReference Include="JvCoreD11R.dcp" />
<DCCReference Include="JvCtrlsD11R.dcp" />
<DCCReference Include="JvDlgsD11R.dcp" />
<DCCReference Include="JvMMD11R.dcp" />
<DCCReference Include="JvNetD11R.dcp" />
<DCCReference Include="JvPageCompsD11R.dcp" />
<DCCReference Include="JvStdCtrlsD11R.dcp" />
<DCCReference Include="JvSystemD11R.dcp" />
<DCCReference Include="pckMD5.dcp" />
<DCCReference Include="pckUCDataConnector.dcp" />
<DCCReference Include="pckUserControl_RT.dcp" />
<DCCReference Include="PluginSDK_D10R.dcp" />
<DCCReference Include="PngComponentsD10.dcp" />
<DCCReference Include="PNG_D10.dcp" />
<DCCReference Include="RemObjects_Core_D11.dcp" />
<DCCReference Include="rtl.dcp" />
<DCCReference Include="schBase_Intf.pas" />
<DCCReference Include="TB2k_D10.dcp" />
<DCCReference Include="tbx_d10.dcp" />
<DCCReference Include="uDataModuleBase.pas">
<Form>DataModuleBase</Form>
<DesignClass>TDataModule</DesignClass>
@ -167,13 +160,6 @@
<DCCReference Include="Utiles\uNumUtils.pas" />
<DCCReference Include="Utiles\uPasswordUtils.pas" />
<DCCReference Include="Utiles\uSistemaFunc.pas" />
<DCCReference Include="vcl.dcp" />
<DCCReference Include="vclactnband.dcp" />
<DCCReference Include="vcldb.dcp" />
<DCCReference Include="vcljpg.dcp" />
<DCCReference Include="VclSmp.dcp" />
<DCCReference Include="vclx.dcp" />
<DCCReference Include="xmlrtl.dcp" />
</ItemGroup>
</Project>
<!-- EurekaLog First Line

2
Source/Modulos/Contactos/Model/uBizEmpleadosServer.pas
View File

@ -71,6 +71,7 @@ begin
ParamByName('FORMACION_COMPLE').Value := aChange.NewValueByName[fld_EmpleadosFORMACION_COMPLE];
ParamByName('FORMACION_RECIBIDA').Value := aChange.NewValueByName[fld_EmpleadosFORMACION_RECIBIDA];
ParamByName('EXPERIENCIA').Value := aChange.NewValueByName[fld_EmpleadosEXPERIENCIA];
ParamByName('ID_USUARIO').Value := aChange.NewValueByName[fld_EmpleadosID_USUARIO];
Execute;
end;
finally
@ -101,6 +102,7 @@ begin
ParamByName('FORMACION_COMPLE').Value := aChange.NewValueByName[fld_EmpleadosFORMACION_COMPLE];
ParamByName('FORMACION_RECIBIDA').Value := aChange.NewValueByName[fld_EmpleadosFORMACION_RECIBIDA];
ParamByName('EXPERIENCIA').Value := aChange.NewValueByName[fld_EmpleadosEXPERIENCIA];
ParamByName('ID_USUARIO').Value := aChange.NewValueByName[fld_EmpleadosID_USUARIO];
Execute;
end;
finally

29
Source/Modulos/Contactos/Views/uViewEmpleado.dfm
View File

@ -8,8 +8,8 @@ inherited frViewEmpleado: TfrViewEmpleado
inherited dxLayoutControlContacto: TdxLayoutControl
Width = 642
Height = 578
ExplicitWidth = 640
ExplicitHeight = 534
ExplicitWidth = 642
ExplicitHeight = 578
inherited PngSpeedButton1: TPngSpeedButton
Left = 597
ExplicitLeft = 597
@ -127,21 +127,29 @@ inherited frViewEmpleado: TfrViewEmpleado
Left = 399
TabOrder = 11
ExplicitLeft = 399
ExplicitWidth = 91
Width = 91
end
inherited eTlfTrabajo: TcxDBTextEdit
Left = 399
TabOrder = 10
ExplicitLeft = 399
ExplicitWidth = 127
Width = 127
end
inherited eTlfMovil: TcxDBTextEdit
Left = 399
TabOrder = 12
ExplicitLeft = 399
ExplicitWidth = 155
Width = 155
end
inherited eFax: TcxDBTextEdit
Left = 399
TabOrder = 13
ExplicitLeft = 399
ExplicitWidth = 121
Width = 121
end
inherited eNombre: TcxDBTextEdit
Left = 121
@ -181,6 +189,8 @@ inherited frViewEmpleado: TfrViewEmpleado
inherited eReferencia: TcxDBTextEdit
Left = 121
ExplicitLeft = 121
ExplicitWidth = 38
Width = 38
end
inherited ePersonaContacto: TcxDBTextEdit
Left = 121
@ -193,23 +203,38 @@ inherited frViewEmpleado: TfrViewEmpleado
end
inherited frViewTienda1: TfrViewTienda
Left = 304
Width = 451
Height = 42
TabOrder = 17
ExplicitLeft = 304
ExplicitWidth = 451
ExplicitHeight = 42
inherited dxLayoutControl1: TdxLayoutControl
Width = 451
Height = 42
inherited cbTienda: TcxDBComboBox
Left = 55
DataBinding.DataSource = dsContacto
ExplicitLeft = 55
ExplicitWidth = 412
Width = 412
end
inherited cbVendedor: TcxDBLookupComboBox
Left = 55
DataBinding.DataField = 'ID_USUARIO'
DataBinding.DataSource = dsContacto
Properties.ListColumns = <
item
FieldName = 'USERNAME'
end>
ExplicitLeft = 55
ExplicitWidth = 376
Width = 376
end
inherited dxLayoutControl1Group_Root: TdxLayoutGroup
inherited dxLayoutControl1Item2: TdxLayoutItem
Caption = 'Usuario:'
Visible = True
end
end
end

3
Source/Modulos/Contactos/Views/uViewEmpleado.pas
View File

@ -85,7 +85,8 @@ procedure TfrViewEmpleado.CustomViewCreate(Sender: TObject);
begin
inherited;
FGrupoController := TGruposEmpleadoController.Create;
// AppFactuGES.UsuariosController.
frViewTienda1.dsVendedores.DataTable := AppFactuGES.UsuariosController.BuscarTodosUsuarios.DataTable;
frViewTienda1.dsVendedores.DataTable.Active := True;
end;
procedure TfrViewEmpleado.CustomViewDestroy(Sender: TObject);

18
Source/Modulos/Presupuestos de cliente/Controller/uPresupuestosClienteController.pas
View File

@ -50,7 +50,7 @@ type
procedure Preview(APresupuesto : IBizPresupuestoCliente; AllItems: Boolean = false);
procedure Print(APresupuesto : IBizPresupuestoCliente; AllItems: Boolean = false);
procedure SetID_Tienda (APresupuesto: IBizPresupuestoCliente; const ID_Tienda: Integer);
procedure SetID_Tienda (APresupuesto: IBizPresupuestoCliente; const ID_Tienda: Integer; Tienda: Variant);
end;
TPresupuestosClienteController = class(TObservador, IPresupuestosClienteController)
@ -111,7 +111,7 @@ type
procedure Preview(APresupuesto : IBizPresupuestoCliente; AllItems: Boolean = false);
procedure Print(APresupuesto : IBizPresupuestoCliente; AllItems: Boolean = false);
procedure SetID_Tienda (APresupuesto: IBizPresupuestoCliente; const ID_Tienda: Integer);
procedure SetID_Tienda (APresupuesto: IBizPresupuestoCliente; const ID_Tienda: Integer; Tienda: Variant);
end;
implementation
@ -631,7 +631,7 @@ begin
FDetallesController := Value;
end;
procedure TPresupuestosClienteController.SetID_Tienda(APresupuesto: IBizPresupuestoCliente; const ID_Tienda: Integer);
procedure TPresupuestosClienteController.SetID_Tienda(APresupuesto: IBizPresupuestoCliente; const ID_Tienda: Integer; Tienda: Variant);
var
EnEdicion: Boolean;
begin
@ -642,11 +642,19 @@ begin
APresupuesto.DataTable.Edit;
if ID_Tienda < 0 then
APresupuesto.DataTable.FieldByName(fld_PresupuestosClienteID_TIENDA).AsVariant := Null
begin
APresupuesto.DataTable.FieldByName(fld_PresupuestosClienteID_TIENDA).AsVariant := Null;
APresupuesto.DataTable.FieldByName(fld_PresupuestosClienteTIENDA).AsVariant := Null
end
else
begin
APresupuesto.ID_TIENDA := ID_Tienda;
APresupuesto.TIENDA := Tienda;
end;
APresupuesto.DataTable.DisableControls;
APresupuesto.DataTable.Post;
APresupuesto.DataTable.EnableControls;
if EnEdicion then
APresupuesto.DataTable.Edit;

22
Source/Modulos/Presupuestos de cliente/Model/PresupuestosCliente_model.dproj
View File

@ -43,6 +43,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">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="C:\Archivos de programa\RemObjects Software\Pascal Script\Dcu\D10\PascalScript_RO_D10.bpl">RemObjects Pascal Script - RemObjects SDK 3.0 Integration</Excluded_Packages>
<Excluded_Packages Name="C:\Archivos de programa\EurekaLog 5\Delphi10\ExceptionExpert10.bpl">EurekaLog 5.1.9</Excluded_Packages>
</Excluded_Packages><Source><Source Name="MainSource">PresupuestosCliente_model.dpk</Source></Source></Delphi.Personality></BorlandProject></BorlandProject>
@ -52,14 +58,14 @@
<DelphiCompile Include="PresupuestosCliente_model.dpk">
<MainSource>MainSource</MainSource>
</DelphiCompile>
<DCCReference Include="..\adortl.dcp" />
<DCCReference Include="..\Base.dcp" />
<DCCReference Include="..\Contactos_model.dcp" />
<DCCReference Include="..\dbrtl.dcp" />
<DCCReference Include="..\dsnap.dcp" />
<DCCReference Include="..\rtl.dcp" />
<DCCReference Include="..\vcl.dcp" />
<DCCReference Include="..\vcldb.dcp" />
<DCCReference Include="..\..\..\ApplicationBase\Usuarios\Model\adortl.dcp" />
<DCCReference Include="..\..\..\ApplicationBase\Usuarios\Model\Base.dcp" />
<DCCReference Include="..\..\..\ApplicationBase\Usuarios\Model\Contactos_model.dcp" />
<DCCReference Include="..\..\..\ApplicationBase\Usuarios\Model\dbrtl.dcp" />
<DCCReference Include="..\..\..\ApplicationBase\Usuarios\Model\dsnap.dcp" />
<DCCReference Include="..\..\..\ApplicationBase\Usuarios\Model\rtl.dcp" />
<DCCReference Include="..\..\..\ApplicationBase\Usuarios\Model\vcl.dcp" />
<DCCReference Include="..\..\..\ApplicationBase\Usuarios\Model\vcldb.dcp" />
<DCCReference Include="Data\uIDataModulePresupuestosCliente.pas" />
<DCCReference Include="Data\uIDataModulePresupuestosClienteReport.pas" />
<DCCReference Include="schPresupuestosClienteClient_Intf.pas" />

9
Source/Modulos/Presupuestos de cliente/Model/uBizPresupuestosCliente.pas
View File

@ -89,8 +89,8 @@ type
implementation
uses
SysUtils, Variants, uDataModuleConfiguracion, uDataModuleUsuarios, Dialogs,
uDataTableUtils, DateUtils, uDateUtils, DB, uFactuGES_App, uBizEmpresasTiendas;
SysUtils, Variants, uDataModuleConfiguracion, uDataModuleUsuarios, Dialogs, uFactuGES_App,
uDataTableUtils, DateUtils, uDateUtils, DB, uBizEmpresasTiendas;
{ TBizPresupuestoCliente }
@ -200,8 +200,9 @@ begin
// INCIDENCIAS := NIL;
REFERENCIA := '';
SITUACION := SITUACION_PRESUPUESTO_PENDIENTE;
ID_TIENDA := CTE_ID_TODAS;
ID_TIENDA := AppFactuGES.UsuarioActivo.ID_TIENDA;
ID_VENDEDOR := AppFactuGES.UsuarioActivo.ID_EMPLEADO;
TIENDA := CTE_TODAS;
end;

3
Source/Modulos/Presupuestos de cliente/Views/uViewPresupuestoCliente.dfm
View File

@ -14,7 +14,6 @@ inherited frViewPresupuestoCliente: TfrViewPresupuestoCliente
ParentBackground = True
TabOrder = 0
AutoContentSizes = [acsWidth, acsHeight]
ExplicitHeight = 629
DesignSize = (
985
473)
@ -303,7 +302,7 @@ inherited frViewPresupuestoCliente: TfrViewPresupuestoCliente
ExplicitHeight = 46
inherited cbTienda: TcxDBComboBox
DataBinding.DataSource = DADataSource
Properties.OnChange = frViewTienda1cbTiendaPropertiesChange
Properties.OnValidate = frViewTienda1cbTiendaPropertiesValidate
ExplicitWidth = 412
Width = 412
end

26
Source/Modulos/Presupuestos de cliente/Views/uViewPresupuestoCliente.pas
View File

@ -73,6 +73,8 @@ type
procedure bFormasPagoClick(Sender: TObject);
procedure frViewClientePresupuestoButton1Click(Sender: TObject);
procedure frViewClientePresupuestoButton2Click(Sender: TObject);
procedure frViewTienda1cbTiendaPropertiesValidate(Sender: TObject;
var DisplayValue: Variant; var ErrorText: TCaption; var Error: Boolean);
procedure frViewTienda1cbTiendaPropertiesChange(Sender: TObject);
protected
FPresupuesto : IBizPresupuestoCliente;
@ -102,7 +104,7 @@ implementation
{ TfrViewPresupuestoCliente }
uses
uClientesController, uBizDireccionesContacto;
uClientesController, uBizDireccionesContacto, uFactuGES_App;
procedure TfrViewPresupuestoCliente.actElegirDireccionExecute(Sender: TObject);
@ -193,13 +195,28 @@ begin
frViewClientePresupuesto.actAnadirContacto.Execute;
end;
procedure TfrViewPresupuestoCliente.frViewTienda1cbTiendaPropertiesChange(Sender: TObject);
procedure TfrViewPresupuestoCliente.frViewTienda1cbTiendaPropertiesChange(
Sender: TObject);
begin
inherited;
{
if assigned(Presupuesto)
and assigned(Controller) then
begin
Controller.SetID_Tienda(Presupuesto, frViewTienda1.getIDTienda);
end;
}
end;
procedure TfrViewPresupuestoCliente.frViewTienda1cbTiendaPropertiesValidate(
Sender: TObject; var DisplayValue: Variant; var ErrorText: TCaption;
var Error: Boolean);
begin
inherited;
if assigned(Presupuesto)
and assigned(Controller) then
begin
Controller.SetID_Tienda(Presupuesto, frViewTienda1.getIDTienda);
Controller.SetID_Tienda(Presupuesto, frViewTienda1.getIDTienda, frViewTienda1.cbTienda.Text);
end;
end;
@ -235,6 +252,9 @@ begin
dsFormaPago.DataTable.Active := True;
frViewClientePresupuesto.Cliente := FPresupuesto.Cliente;
//REPASAR
if FPresupuesto.EsNuevo then
frViewTienda1.SetIDTienda(FPresupuesto.ID_TIENDA);
end
else begin
DADataSource.DataTable := NIL;

BIN
Source/Servidor/FactuGES_Server.RES
View File

Binary file not shown.

6
Source/Servidor/FactuGES_Server.dpr
View File

@ -111,10 +111,10 @@ uses
schEmpresasServer_Intf in '..\ApplicationBase\Empresas\Model\schEmpresasServer_Intf.pas',
schPresupuestosClienteClient_Intf in '..\Modulos\Presupuestos de cliente\Model\schPresupuestosClienteClient_Intf.pas',
schPresupuestosClienteServer_Intf in '..\Modulos\Presupuestos de cliente\Model\schPresupuestosClienteServer_Intf.pas',
schUsuariosClient_Intf in '..\ApplicationBase\Usuarios\Model\schUsuariosClient_Intf.pas',
schUsuariosServer_Intf in '..\ApplicationBase\Usuarios\Model\schUsuariosServer_Intf.pas',
schContactosClient_Intf in '..\Modulos\Contactos\Model\schContactosClient_Intf.pas',
schContactosServer_Intf in '..\Modulos\Contactos\Model\schContactosServer_Intf.pas';
schContactosServer_Intf in '..\Modulos\Contactos\Model\schContactosServer_Intf.pas',
schUsuariosClient_Intf in '..\ApplicationBase\Usuarios\Model\schUsuariosClient_Intf.pas',
schUsuariosServer_Intf in '..\ApplicationBase\Usuarios\Model\schUsuariosServer_Intf.pas';
{$R *.res}
{$R ..\Servicios\RODLFile.res}

2
Source/Servidor/FactuGES_Server.rc
View File

@ -14,7 +14,7 @@ BEGIN
BEGIN
VALUE "FileVersion", "1.0.0.0\0"
VALUE "ProductVersion", "1.0.0.0\0"
VALUE "CompileDate", "martes, 15 de enero de 2008 17:58\0"
VALUE "CompileDate", "martes, 15 de enero de 2008 19:32\0"
END
END
BLOCK "VarFileInfo"