diff --git a/Build/Build.fbl6 b/Build/Build.fbl6
index b2e2e65..6912adc 100644
Binary files a/Build/Build.fbl6 and b/Build/Build.fbl6 differ
diff --git a/Source/ApplicationBase/ApplicationBase.dproj b/Source/ApplicationBase/ApplicationBase.dproj
index 41efe89..2743661 100644
--- a/Source/ApplicationBase/ApplicationBase.dproj
+++ b/Source/ApplicationBase/ApplicationBase.dproj
@@ -46,6 +46,21 @@
Package
FalseTrueFalseFalseFalseFalseTrueFalse1000FalseFalseFalseFalseFalse308212521.0.0.01.0.0.0
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
RemObjects Data Abstract - SQLite Driver
Microsoft Office 2000 Sample Automation Server Wrapper Components
Microsoft Office XP Sample Automation Server Wrapper Components
@@ -56,43 +71,43 @@
MainSource
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
diff --git a/Source/ApplicationBase/Empresas/Controller/uEmpresasController.pas b/Source/ApplicationBase/Empresas/Controller/uEmpresasController.pas
index 9f4ccf8..3a93a85 100644
--- a/Source/ApplicationBase/Empresas/Controller/uEmpresasController.pas
+++ b/Source/ApplicationBase/Empresas/Controller/uEmpresasController.pas
@@ -12,7 +12,8 @@ type
IEmpresasController = interface(IControllerBase)
['{2F0AB21C-4F19-446E-87C4-B9C1038850FC}']
function Buscar(const ID: Integer): IBizEmpresa;
- function BuscarTodos: IBizEmpresa;
+ function BuscarTodos: IBizEmpresa; overload;
+ function BuscarTodos(const ID_PERFIL: Integer): IBizEmpresa; overload;
procedure Ver(AEmpresa : IBizEmpresa);
procedure VerTodos(AEmpresas: IBizEmpresa);
function Nuevo : IBizEmpresa;
@@ -55,7 +56,8 @@ type
procedure Anadir(AEmpresa : IBizEmpresa); virtual;
function Buscar(const ID: Integer): IBizEmpresa; virtual;
- function BuscarTodos: IBizEmpresa; virtual;
+ function BuscarTodos: IBizEmpresa; overload; virtual;
+ function BuscarTodos(const ID_PERFIL: Integer): IBizEmpresa; overload;
function Nuevo : IBizEmpresa; virtual;
procedure Ver(AEmpresa : IBizEmpresa); virtual;
procedure VerTodos(AEmpresas: IBizEmpresa); virtual;
@@ -75,8 +77,8 @@ type
implementation
uses
- uEditorRegistryUtils, cxControls, DB, uFactuGES_App,
- uDataModuleEmpresas, uIEditorEmpresa, uStringsUtils;
+ uDAInterfaces, uEditorRegistryUtils, cxControls, DB, uFactuGES_App,
+ uDataModuleEmpresas, uIEditorEmpresa, uStringsUtils, schEmpresasClient_Intf;
{ TEmpresasController }
@@ -123,6 +125,30 @@ begin
Result := FDataModule.GetItem(ID)
end;
+function TEmpresasController.BuscarTodos(const ID_PERFIL: Integer): IBizEmpresa;
+var
+ Condicion: TDAWhereExpression;
+begin
+ ShowHourglassCursor;
+ try
+ Result := BuscarTodos;
+
+ with Result.DataTable.DynamicWhere do
+ begin
+ // ID_PERFIL
+ Condicion := NewBinaryExpression(NewField('', fld_EmpresasID_PERFIL), NewConstant(ID_PERFIL, datInteger), dboEqual);
+
+ if IsEmpty then
+ Expression := Condicion
+ else
+ Expression := NewBinaryExpression(Expression, Condicion, dboAnd);
+ end;
+Result.open;
+ finally
+ HideHourglassCursor;
+ end;
+end;
+
function TEmpresasController.BuscarTodos: IBizEmpresa;
begin
Result := FDataModule.GetItems;
diff --git a/Source/ApplicationBase/Empresas/Data/uDataModuleEmpresas.dfm b/Source/ApplicationBase/Empresas/Data/uDataModuleEmpresas.dfm
index 93c4915..62d6eb4 100644
--- a/Source/ApplicationBase/Empresas/Data/uDataModuleEmpresas.dfm
+++ b/Source/ApplicationBase/Empresas/Data/uDataModuleEmpresas.dfm
@@ -199,6 +199,10 @@ inherited DataModuleEmpresas: TDataModuleEmpresas
item
Name = 'PRECIO_PUNTO'
DataType = datCurrency
+ end
+ item
+ Name = 'ID_PERFIL'
+ DataType = datInteger
end>
Params = <>
StreamingOptions = [soDisableEventsWhileStreaming]
diff --git a/Source/ApplicationBase/Empresas/Model/schEmpresasClient_Intf.pas b/Source/ApplicationBase/Empresas/Model/schEmpresasClient_Intf.pas
index a300189..1497fda 100644
--- a/Source/ApplicationBase/Empresas/Model/schEmpresasClient_Intf.pas
+++ b/Source/ApplicationBase/Empresas/Model/schEmpresasClient_Intf.pas
@@ -9,10 +9,10 @@ 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_EmpresasTiendas = '{24354065-34FB-4D22-9253-5CC082F7F289}';
- RID_DarNombre = '{908C8404-6D2A-40FA-B291-D2E17BF5ED33}';
- RID_Empresas = '{1B9E49DD-EA45-4FDC-9438-299F6CD8D55F}';
- RID_EmpresasDatosBanco = '{281E9067-263E-447E-896F-E5D3C8B51D73}';
+ RID_EmpresasTiendas = '{7846BBE0-04FC-42FE-B6E1-87982D99298D}';
+ RID_DarNombre = '{30F80B13-9686-43DF-AD79-CF2BA063FC0D}';
+ RID_Empresas = '{3DD75D7B-B6BF-4F23-8315-A79A8D0FEBF1}';
+ RID_EmpresasDatosBanco = '{8F6E24FD-A920-4DF1-A800-33A13DAAA5A9}';
{ Data table names }
nme_EmpresasTiendas = 'EmpresasTiendas';
@@ -90,6 +90,7 @@ const
fld_EmpresasID_FORMA_PAGO = 'ID_FORMA_PAGO';
fld_EmpresasVALIDEZ_PRESUPUESTOS = 'VALIDEZ_PRESUPUESTOS';
fld_EmpresasPRECIO_PUNTO = 'PRECIO_PUNTO';
+ fld_EmpresasID_PERFIL = 'ID_PERFIL';
{ Empresas field indexes }
idx_EmpresasID = 0;
@@ -119,6 +120,7 @@ const
idx_EmpresasID_FORMA_PAGO = 24;
idx_EmpresasVALIDEZ_PRESUPUESTOS = 25;
idx_EmpresasPRECIO_PUNTO = 26;
+ idx_EmpresasID_PERFIL = 27;
{ EmpresasDatosBanco fields }
fld_EmpresasDatosBancoID = 'ID';
@@ -145,7 +147,7 @@ const
type
{ IEmpresasTiendas }
IEmpresasTiendas = interface(IDAStronglyTypedDataTable)
- ['{072C4F53-5CB8-42B1-8E7B-1B9F9566A489}']
+ ['{29F8DDC0-32B5-4D18-889E-7CD5295C4768}']
{ Property getters and setters }
function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer);
@@ -360,7 +362,7 @@ type
{ IDarNombre }
IDarNombre = interface(IDAStronglyTypedDataTable)
- ['{36C6DE99-879C-4CD9-BAC2-86D29EA32BA0}']
+ ['{F9833C20-3E16-439F-AF60-1188C3F7FA77}']
{ Property getters and setters }
function GetNOMBREValue: String;
procedure SetNOMBREValue(const aValue: String);
@@ -395,7 +397,7 @@ type
{ IEmpresas }
IEmpresas = interface(IDAStronglyTypedDataTable)
- ['{E55587B7-F61A-4FE3-A87E-23B2937651C9}']
+ ['{2E98270D-135A-465B-B784-E826CFED21AD}']
{ Property getters and setters }
function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer);
@@ -503,6 +505,10 @@ type
procedure SetPRECIO_PUNTOValue(const aValue: Currency);
function GetPRECIO_PUNTOIsNull: Boolean;
procedure SetPRECIO_PUNTOIsNull(const aValue: Boolean);
+ function GetID_PERFILValue: Integer;
+ procedure SetID_PERFILValue(const aValue: Integer);
+ function GetID_PERFILIsNull: Boolean;
+ procedure SetID_PERFILIsNull(const aValue: Boolean);
{ Properties }
@@ -560,6 +566,8 @@ type
property VALIDEZ_PRESUPUESTOSIsNull: Boolean read GetVALIDEZ_PRESUPUESTOSIsNull write SetVALIDEZ_PRESUPUESTOSIsNull;
property PRECIO_PUNTO: Currency read GetPRECIO_PUNTOValue write SetPRECIO_PUNTOValue;
property PRECIO_PUNTOIsNull: Boolean read GetPRECIO_PUNTOIsNull write SetPRECIO_PUNTOIsNull;
+ property ID_PERFIL: Integer read GetID_PERFILValue write SetID_PERFILValue;
+ property ID_PERFILIsNull: Boolean read GetID_PERFILIsNull write SetID_PERFILIsNull;
end;
{ TEmpresasDataTableRules }
@@ -677,6 +685,10 @@ type
procedure SetPRECIO_PUNTOValue(const aValue: Currency); virtual;
function GetPRECIO_PUNTOIsNull: Boolean; virtual;
procedure SetPRECIO_PUNTOIsNull(const aValue: Boolean); virtual;
+ function GetID_PERFILValue: Integer; virtual;
+ procedure SetID_PERFILValue(const aValue: Integer); virtual;
+ function GetID_PERFILIsNull: Boolean; virtual;
+ procedure SetID_PERFILIsNull(const aValue: Boolean); virtual;
{ Properties }
property ID: Integer read GetIDValue write SetIDValue;
@@ -733,6 +745,8 @@ type
property VALIDEZ_PRESUPUESTOSIsNull: Boolean read GetVALIDEZ_PRESUPUESTOSIsNull write SetVALIDEZ_PRESUPUESTOSIsNull;
property PRECIO_PUNTO: Currency read GetPRECIO_PUNTOValue write SetPRECIO_PUNTOValue;
property PRECIO_PUNTOIsNull: Boolean read GetPRECIO_PUNTOIsNull write SetPRECIO_PUNTOIsNull;
+ property ID_PERFIL: Integer read GetID_PERFILValue write SetID_PERFILValue;
+ property ID_PERFILIsNull: Boolean read GetID_PERFILIsNull write SetID_PERFILIsNull;
public
constructor Create(aDataTable: TDADataTable); override;
@@ -742,7 +756,7 @@ type
{ IEmpresasDatosBanco }
IEmpresasDatosBanco = interface(IDAStronglyTypedDataTable)
- ['{BE056627-D7CE-45E0-9C9B-9A8EEEE21DC7}']
+ ['{7933C562-157E-4235-85D5-849DCC1B27E3}']
{ Property getters and setters }
function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer);
@@ -1858,6 +1872,27 @@ begin
DataTable.Fields[idx_EmpresasPRECIO_PUNTO].AsVariant := Null;
end;
+function TEmpresasDataTableRules.GetID_PERFILValue: Integer;
+begin
+ result := DataTable.Fields[idx_EmpresasID_PERFIL].AsInteger;
+end;
+
+procedure TEmpresasDataTableRules.SetID_PERFILValue(const aValue: Integer);
+begin
+ DataTable.Fields[idx_EmpresasID_PERFIL].AsInteger := aValue;
+end;
+
+function TEmpresasDataTableRules.GetID_PERFILIsNull: boolean;
+begin
+ result := DataTable.Fields[idx_EmpresasID_PERFIL].IsNull;
+end;
+
+procedure TEmpresasDataTableRules.SetID_PERFILIsNull(const aValue: Boolean);
+begin
+ if aValue then
+ DataTable.Fields[idx_EmpresasID_PERFIL].AsVariant := Null;
+end;
+
{ TEmpresasDatosBancoDataTableRules }
constructor TEmpresasDatosBancoDataTableRules.Create(aDataTable: TDADataTable);
diff --git a/Source/ApplicationBase/Empresas/Model/schEmpresasServer_Intf.pas b/Source/ApplicationBase/Empresas/Model/schEmpresasServer_Intf.pas
index 0c0c565..ce0a782 100644
--- a/Source/ApplicationBase/Empresas/Model/schEmpresasServer_Intf.pas
+++ b/Source/ApplicationBase/Empresas/Model/schEmpresasServer_Intf.pas
@@ -9,15 +9,15 @@ 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_EmpresasTiendasDelta = '{C2DF8351-F4BD-45D9-B158-5B6229017A94}';
- RID_DarNombreDelta = '{E132F7C4-76CF-4381-A65F-3FE396C43927}';
- RID_EmpresasDelta = '{7F3E50C3-3DF3-44E3-A6DF-5159F721FC65}';
- RID_EmpresasDatosBancoDelta = '{8444CEF5-4F93-4913-ADC9-EA4151961E85}';
+ RID_EmpresasTiendasDelta = '{5F6B8574-3D34-4053-9C3D-C9D54E35385B}';
+ RID_DarNombreDelta = '{0FE165AC-2657-4B35-8198-CA4352B14F63}';
+ RID_EmpresasDelta = '{ED3707F2-AED9-42AA-A712-2982BE6DE6E7}';
+ RID_EmpresasDatosBancoDelta = '{86C78EE4-9661-47CA-B3DB-ECF4F3A8DD27}';
type
{ IEmpresasTiendasDelta }
IEmpresasTiendasDelta = interface(IEmpresasTiendas)
- ['{C2DF8351-F4BD-45D9-B158-5B6229017A94}']
+ ['{5F6B8574-3D34-4053-9C3D-C9D54E35385B}']
{ Property getters and setters }
function GetOldIDValue : Integer;
function GetOldID_EMPRESAValue : Integer;
@@ -232,7 +232,7 @@ type
{ IDarNombreDelta }
IDarNombreDelta = interface(IDarNombre)
- ['{E132F7C4-76CF-4381-A65F-3FE396C43927}']
+ ['{0FE165AC-2657-4B35-8198-CA4352B14F63}']
{ Property getters and setters }
function GetOldNOMBREValue : String;
@@ -266,7 +266,7 @@ type
{ IEmpresasDelta }
IEmpresasDelta = interface(IEmpresas)
- ['{7F3E50C3-3DF3-44E3-A6DF-5159F721FC65}']
+ ['{ED3707F2-AED9-42AA-A712-2982BE6DE6E7}']
{ Property getters and setters }
function GetOldIDValue : Integer;
function GetOldNIF_CIFValue : String;
@@ -295,6 +295,7 @@ type
function GetOldID_FORMA_PAGOValue : Integer;
function GetOldVALIDEZ_PRESUPUESTOSValue : SmallInt;
function GetOldPRECIO_PUNTOValue : Currency;
+ function GetOldID_PERFILValue : Integer;
{ Properties }
property OldID : Integer read GetOldIDValue;
@@ -324,6 +325,7 @@ type
property OldID_FORMA_PAGO : Integer read GetOldID_FORMA_PAGOValue;
property OldVALIDEZ_PRESUPUESTOS : SmallInt read GetOldVALIDEZ_PRESUPUESTOSValue;
property OldPRECIO_PUNTO : Currency read GetOldPRECIO_PUNTOValue;
+ property OldID_PERFIL : Integer read GetOldID_PERFILValue;
end;
{ TEmpresasBusinessProcessorRules }
@@ -495,6 +497,12 @@ type
function GetOldPRECIO_PUNTOIsNull: Boolean; virtual;
procedure SetPRECIO_PUNTOValue(const aValue: Currency); virtual;
procedure SetPRECIO_PUNTOIsNull(const aValue: Boolean); virtual;
+ function GetID_PERFILValue: Integer; virtual;
+ function GetID_PERFILIsNull: Boolean; virtual;
+ function GetOldID_PERFILValue: Integer; virtual;
+ function GetOldID_PERFILIsNull: Boolean; virtual;
+ procedure SetID_PERFILValue(const aValue: Integer); virtual;
+ procedure SetID_PERFILIsNull(const aValue: Boolean); virtual;
{ Properties }
property ID : Integer read GetIDValue write SetIDValue;
@@ -605,6 +613,10 @@ type
property PRECIO_PUNTOIsNull : Boolean read GetPRECIO_PUNTOIsNull write SetPRECIO_PUNTOIsNull;
property OldPRECIO_PUNTO : Currency read GetOldPRECIO_PUNTOValue;
property OldPRECIO_PUNTOIsNull : Boolean read GetOldPRECIO_PUNTOIsNull;
+ property ID_PERFIL : Integer read GetID_PERFILValue write SetID_PERFILValue;
+ property ID_PERFILIsNull : Boolean read GetID_PERFILIsNull write SetID_PERFILIsNull;
+ property OldID_PERFIL : Integer read GetOldID_PERFILValue;
+ property OldID_PERFILIsNull : Boolean read GetOldID_PERFILIsNull;
public
constructor Create(aBusinessProcessor: TDABusinessProcessor); override;
@@ -614,7 +626,7 @@ type
{ IEmpresasDatosBancoDelta }
IEmpresasDatosBancoDelta = interface(IEmpresasDatosBanco)
- ['{8444CEF5-4F93-4913-ADC9-EA4151961E85}']
+ ['{86C78EE4-9661-47CA-B3DB-ECF4F3A8DD27}']
{ Property getters and setters }
function GetOldIDValue : Integer;
function GetOldID_EMPRESAValue : Integer;
@@ -2173,6 +2185,37 @@ begin
BusinessProcessor.CurrentChange.NewValueByName[fld_EmpresasPRECIO_PUNTO] := Null;
end;
+function TEmpresasBusinessProcessorRules.GetID_PERFILValue: Integer;
+begin
+ result := BusinessProcessor.CurrentChange.NewValueByName[fld_EmpresasID_PERFIL];
+end;
+
+function TEmpresasBusinessProcessorRules.GetID_PERFILIsNull: Boolean;
+begin
+ result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_EmpresasID_PERFIL]);
+end;
+
+function TEmpresasBusinessProcessorRules.GetOldID_PERFILValue: Integer;
+begin
+ result := BusinessProcessor.CurrentChange.OldValueByName[fld_EmpresasID_PERFIL];
+end;
+
+function TEmpresasBusinessProcessorRules.GetOldID_PERFILIsNull: Boolean;
+begin
+ result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_EmpresasID_PERFIL]);
+end;
+
+procedure TEmpresasBusinessProcessorRules.SetID_PERFILValue(const aValue: Integer);
+begin
+ BusinessProcessor.CurrentChange.NewValueByName[fld_EmpresasID_PERFIL] := aValue;
+end;
+
+procedure TEmpresasBusinessProcessorRules.SetID_PERFILIsNull(const aValue: Boolean);
+begin
+ if aValue then
+ BusinessProcessor.CurrentChange.NewValueByName[fld_EmpresasID_PERFIL] := Null;
+end;
+
{ TEmpresasDatosBancoBusinessProcessorRules }
constructor TEmpresasDatosBancoBusinessProcessorRules.Create(aBusinessProcessor: TDABusinessProcessor);
diff --git a/Source/ApplicationBase/Empresas/Servidor/srvEmpresas_Impl.dfm b/Source/ApplicationBase/Empresas/Servidor/srvEmpresas_Impl.dfm
index 8c611e2..dd9804d 100644
--- a/Source/ApplicationBase/Empresas/Servidor/srvEmpresas_Impl.dfm
+++ b/Source/ApplicationBase/Empresas/Servidor/srvEmpresas_Impl.dfm
@@ -331,6 +331,10 @@ object srvEmpresas: TsrvEmpresas
item
DatasetField = 'IVA'
TableField = 'IVA'
+ end
+ item
+ DatasetField = 'ID_PERFIL'
+ TableField = 'ID_PERFIL'
end>
end>
Name = 'Empresas'
@@ -485,6 +489,10 @@ object srvEmpresas: TsrvEmpresas
item
Name = 'PRECIO_PUNTO'
DataType = datCurrency
+ end
+ item
+ Name = 'ID_PERFIL'
+ DataType = datInteger
end>
end
item
diff --git a/Source/ApplicationBase/Empresas/Servidor/srvEmpresas_Impl.pas b/Source/ApplicationBase/Empresas/Servidor/srvEmpresas_Impl.pas
index b8dcf99..94435d3 100644
--- a/Source/ApplicationBase/Empresas/Servidor/srvEmpresas_Impl.pas
+++ b/Source/ApplicationBase/Empresas/Servidor/srvEmpresas_Impl.pas
@@ -22,9 +22,9 @@ type
TsrvEmpresas = class(TDataAbstractService, IsrvEmpresas)
Diagrams: TDADiagrams;
DABin2DataStreamer: TDABin2DataStreamer;
+ bpEmpresas: TDABusinessProcessor;
schEmpresas: TDASchema;
DataDictionary: TDADataDictionary;
- bpEmpresas: TDABusinessProcessor;
procedure DARemoteServiceCreate(Sender: TObject);
procedure DataAbstractServiceBeforeAcquireConnection(aSender: TObject;
var aConnectionName: string);
diff --git a/Source/ApplicationBase/Usuarios/Views/uEditorLogin.dfm b/Source/ApplicationBase/Usuarios/Views/uEditorLogin.dfm
index 6f1167f..24151de 100644
--- a/Source/ApplicationBase/Usuarios/Views/uEditorLogin.dfm
+++ b/Source/ApplicationBase/Usuarios/Views/uEditorLogin.dfm
@@ -1089,8 +1089,7 @@ object fEditorLogin: TfEditorLogin
AppStoragePath = '\'
Options = []
StoredProps.Strings = (
- 'edtUser.Text'
- 'edtPassword.Text')
+ 'edtUser.Text')
StoredValues = <
item
Name = 'Ruta'
diff --git a/Source/ApplicationBase/Usuarios/Views/uEditorLogin.pas b/Source/ApplicationBase/Usuarios/Views/uEditorLogin.pas
index b76e4ff..dc645c0 100644
--- a/Source/ApplicationBase/Usuarios/Views/uEditorLogin.pas
+++ b/Source/ApplicationBase/Usuarios/Views/uEditorLogin.pas
@@ -113,7 +113,7 @@ end;
procedure TfEditorLogin.FormShow(Sender: TObject);
begin
Self.Caption := AppFactuGES.AppFullName;
- JvFormStorage1.RestoreFormPlacement;
+// JvFormStorage1.RestoreFormPlacement;
// Hacer login automática si hay usuario/password y no hay más de una base
// de datos como opción para conectarse.
diff --git a/Source/ApplicationBase/Usuarios/Views/uViewUsuario.pas b/Source/ApplicationBase/Usuarios/Views/uViewUsuario.pas
index 98cf11f..379ddae 100644
--- a/Source/ApplicationBase/Usuarios/Views/uViewUsuario.pas
+++ b/Source/ApplicationBase/Usuarios/Views/uViewUsuario.pas
@@ -184,11 +184,11 @@ begin
dsUsuario.DataTable := FUsuario.DataTable;
if FUsuario.EsNuevo then
begin
- dxLayoutControlArticuloGroup5.Visible := True;
+// dxLayoutControlArticuloGroup5.Visible := True;
cbPerfil.Text := cbPerfil.Properties.Items[0];
end
else begin
- dxLayoutControlArticuloGroup5.Visible := False;
+// dxLayoutControlArticuloGroup5.Visible := False;
cbPerfil.Text := cbPerfil.Properties.Items[0];
for i := 0 to FListaPerfiles.Count-1 do
diff --git a/Source/ApplicationBase/uFactuGES_App.pas b/Source/ApplicationBase/uFactuGES_App.pas
index 771f7ca..9737cf3 100644
--- a/Source/ApplicationBase/uFactuGES_App.pas
+++ b/Source/ApplicationBase/uFactuGES_App.pas
@@ -54,7 +54,7 @@ type
procedure SeleccionarEmpresa;
procedure CambiarEmpresa(const AIDEmpresa : Integer);
- procedure CambiarEmpresaPorDefecto;
+// procedure CambiarEmpresaPorDefecto;
procedure CambiarEjercicio(const AIDEmpresa : Integer);
procedure ShowSplashForm;
@@ -160,7 +160,7 @@ type
procedure SeleccionarEmpresa;
procedure CambiarEmpresa(const AIDEmpresa : Integer);
- procedure CambiarEmpresaPorDefecto;
+// procedure CambiarEmpresaPorDefecto;
procedure CambiarEjercicio(const AIDEmpresa : Integer);
property AppVersion : String read GetAppVersion;
@@ -238,6 +238,7 @@ begin
BuscarTiendaPorDefecto;
end;
+{
procedure TAppFactuGES.CambiarEmpresaPorDefecto;
var
AEmpresas : IBizEmpresa;
@@ -252,6 +253,7 @@ begin
AEmpresas := NIL;
end;
end;
+}
procedure TAppFactuGES.CargarModulos;
begin
@@ -515,7 +517,7 @@ begin
//Añadimos las diferentes empresas que existan
AEmpresasController := TEmpresasController.Create;
- AEmpresas := AEmpresasController.BuscarTodos;
+ AEmpresas := AEmpresasController.BuscarTodos(AppFactuGES.UsuarioActivo.ID_PERFIL);
AEmpresas.DataTable.Active := True;
AEmpresas.Datatable.First;
diff --git a/Source/Base/Base.dproj b/Source/Base/Base.dproj
index 9d87741..9bf693a 100644
--- a/Source/Base/Base.dproj
+++ b/Source/Base/Base.dproj
@@ -44,13 +44,6 @@
Package
FalseTrueFalseLibreria base de FactuGESFalseFalseFalseTrueFalse1000FalseFalseFalseFalseFalse308212521.0.0.01.0.0.0
-
-
-
-
-
-
-
VCL for the Web Design Package for CodeGear RAD Studio
CodeGear WebSnap Components
CodeGear SOAP Components
@@ -65,55 +58,55 @@
MainSource
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
TForm
diff --git a/Source/Base/Base.res b/Source/Base/Base.res
index 1641339..8b251f3 100644
Binary files a/Source/Base/Base.res and b/Source/Base/Base.res differ
diff --git a/Source/Cliente/FactuGES.dproj b/Source/Cliente/FactuGES.dproj
index 42e6ac1..b107494 100644
--- a/Source/Cliente/FactuGES.dproj
+++ b/Source/Cliente/FactuGES.dproj
@@ -51,7 +51,8 @@
Delphi.Personality
VCLApplication
-FalseTrueFalseC:\Archivos de programa\Borland\Delphi7\Bin\TrueFalse2680FalseFalseFalseFalseFalse30821252Rodax Software S.L.2.6.8.0FactuGESFactuGES2.6.8.0
+FalseTrueFalseC:\Archivos de programa\Borland\Delphi7\Bin\TrueFalse2690FalseFalseFalseFalseFalse30821252Rodax Software S.L.2.6.9.0FactuGESFactuGES2.6.9.0
+
File C:\Documents and Settings\All Users\Documentos\RAD Studio\5.0\Bpl\dxPScxScheduler2LnkD11.bpl not found
FactuGES.dprFalse
diff --git a/Source/Cliente/FactuGES.res b/Source/Cliente/FactuGES.res
index 2ffd4b1..a7b99c5 100644
Binary files a/Source/Cliente/FactuGES.res and b/Source/Cliente/FactuGES.res differ
diff --git a/Source/Cliente/uMainMenuController.pas b/Source/Cliente/uMainMenuController.pas
index a6eda53..10eb0aa 100644
--- a/Source/Cliente/uMainMenuController.pas
+++ b/Source/Cliente/uMainMenuController.pas
@@ -78,7 +78,7 @@ begin
if Assigned(AListaEmpresasItem) then
begin
- AEmpresas := AppFactuGES.EmpresasController.BuscarTodos;
+ AEmpresas := AppFactuGES.EmpresasController.BuscarTodos(AppFactuGES.UsuarioActivo.ID_PERFIL);
try
AEmpresas.DataTable.Active := True;
while not AEmpresas.DataTable.EOF do
diff --git a/Source/Cliente/uNavPaneController.pas b/Source/Cliente/uNavPaneController.pas
index 0db4937..201ede1 100644
--- a/Source/Cliente/uNavPaneController.pas
+++ b/Source/Cliente/uNavPaneController.pas
@@ -127,7 +127,7 @@ begin
end;
// Crear páginas con empresas y rellenarlas
- AEmpresas := AppFactuGES.EmpresasController.BuscarTodos;
+ AEmpresas := AppFactuGES.EmpresasController.BuscarTodos(AppFactuGES.UsuarioActivo.ID_PERFIL);;
try
AEmpresas.DataTable.Active := True;
diff --git a/Source/Cliente/uPantallaPrincipal.pas b/Source/Cliente/uPantallaPrincipal.pas
index f72e847..1ee2748 100644
--- a/Source/Cliente/uPantallaPrincipal.pas
+++ b/Source/Cliente/uPantallaPrincipal.pas
@@ -195,6 +195,13 @@ end;
procedure TfPantallaPrincipal.FormShow(Sender: TObject);
begin
InicializarUI;
+
+ //Solo verá los informes el perfil Administrador(3), están en la tabla usuarios
+ if (AppFactuGES.UsuarioActivo.ID_PERFIL <> 3) then
+ begin
+// Perfiles1.Visible := False;
+ Administracin1.Visible := False;
+ end;
end;
procedure TfPantallaPrincipal.RefrescarUI;
@@ -338,7 +345,7 @@ begin
NavPaneController.InitNavPane;
try
- AListaEmpresas := AppFactuGES.EmpresasController.BuscarTodos;
+ AListaEmpresas := AppFactuGES.EmpresasController.BuscarTodos(AppFactuGES.UsuarioActivo.ID_PERFIL);
if Assigned(AListaEmpresas) then
begin
AListaEmpresas.Active := True;
diff --git a/Source/GUIBase/GUIBase.dproj b/Source/GUIBase/GUIBase.dproj
index f44e3be..e1875bd 100644
--- a/Source/GUIBase/GUIBase.dproj
+++ b/Source/GUIBase/GUIBase.dproj
@@ -58,34 +58,34 @@
MainSource
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
diff --git a/Source/Informes/1/InfAlbaranCliente.fr3 b/Source/Informes/1/InfAlbaranCliente.fr3
index a07c571..d20fe7c 100644
--- a/Source/Informes/1/InfAlbaranCliente.fr3
+++ b/Source/Informes/1/InfAlbaranCliente.fr3
@@ -1,9 +1,9 @@
-
+
-
+
diff --git a/Source/Informes/1/InfContratoCliente.fr3 b/Source/Informes/1/InfContratoCliente.fr3
index 86d57a1..2568aa1 100644
--- a/Source/Informes/1/InfContratoCliente.fr3
+++ b/Source/Informes/1/InfContratoCliente.fr3
@@ -1,9 +1,9 @@
-
+
-
+
diff --git a/Source/Informes/1/InfFacturaCliente.fr3 b/Source/Informes/1/InfFacturaCliente.fr3
index 1b42fe0..c4a4957 100644
--- a/Source/Informes/1/InfFacturaCliente.fr3
+++ b/Source/Informes/1/InfFacturaCliente.fr3
@@ -1,9 +1,9 @@
-
+
-
+
@@ -71,7 +71,7 @@
-
+
diff --git a/Source/Informes/1/InfFacturaCliente_original.fr3 b/Source/Informes/1/InfFacturaCliente_original.fr3
new file mode 100644
index 0000000..1599be6
--- /dev/null
+++ b/Source/Informes/1/InfFacturaCliente_original.fr3
@@ -0,0 +1,75 @@
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
diff --git a/Source/Informes/1/InfPresupuestoCliente.fr3 b/Source/Informes/1/InfPresupuestoCliente.fr3
index 1e179f6..c4f25fc 100644
--- a/Source/Informes/1/InfPresupuestoCliente.fr3
+++ b/Source/Informes/1/InfPresupuestoCliente.fr3
@@ -1,9 +1,9 @@
-
+
-
+
diff --git a/Source/Informes/1/InformeListadoFacturasRecibosCliente.fr3 b/Source/Informes/1/InformeListadoFacturasRecibosCliente.fr3
index 227d5ac..59a35db 100644
--- a/Source/Informes/1/InformeListadoFacturasRecibosCliente.fr3
+++ b/Source/Informes/1/InformeListadoFacturasRecibosCliente.fr3
@@ -1,5 +1,5 @@
-
+
@@ -7,13 +7,13 @@
-
+
-
+
@@ -26,7 +26,7 @@
-
+
@@ -38,7 +38,7 @@
-
+
diff --git a/Source/Informes/2/InfAlbaranCliente.fr3 b/Source/Informes/2/InfAlbaranCliente.fr3
index fd37838..3565185 100644
--- a/Source/Informes/2/InfAlbaranCliente.fr3
+++ b/Source/Informes/2/InfAlbaranCliente.fr3
@@ -1,17 +1,17 @@
-
+
+
+
-
-
diff --git a/Source/Informes/2/InfContratoCliente.fr3 b/Source/Informes/2/InfContratoCliente.fr3
index 3a55711..39a1351 100644
--- a/Source/Informes/2/InfContratoCliente.fr3
+++ b/Source/Informes/2/InfContratoCliente.fr3
@@ -1,5 +1,5 @@
-
+
@@ -9,11 +9,11 @@
-
+
-
+
-
+
diff --git a/Source/Informes/2/InfFacturaCliente.fr3 b/Source/Informes/2/InfFacturaCliente.fr3
index 86546a5..1ea8e9c 100644
--- a/Source/Informes/2/InfFacturaCliente.fr3
+++ b/Source/Informes/2/InfFacturaCliente.fr3
@@ -1,5 +1,5 @@
-
+
@@ -10,9 +10,9 @@
-
+
-
+
@@ -72,7 +72,7 @@
-
+
diff --git a/Source/Informes/2/InfPresupuestoCliente.fr3 b/Source/Informes/2/InfPresupuestoCliente.fr3
index 293c69a..d9a5156 100644
--- a/Source/Informes/2/InfPresupuestoCliente.fr3
+++ b/Source/Informes/2/InfPresupuestoCliente.fr3
@@ -1,19 +1,19 @@
-
+
-
+
-
+
-
+
diff --git a/Source/Informes/2/InfReciboCliente.fr3 b/Source/Informes/2/InfReciboCliente.fr3
index 46bdd7d..4d86477 100644
--- a/Source/Informes/2/InfReciboCliente.fr3
+++ b/Source/Informes/2/InfReciboCliente.fr3
@@ -1,11 +1,11 @@
-
+
-
+
@@ -60,7 +60,7 @@
-
+
diff --git a/Source/Informes/2/InformeListadoFacturasRecibosCliente.fr3 b/Source/Informes/2/InformeListadoFacturasRecibosCliente.fr3
index aed3ee9..eb51835 100644
--- a/Source/Informes/2/InformeListadoFacturasRecibosCliente.fr3
+++ b/Source/Informes/2/InformeListadoFacturasRecibosCliente.fr3
@@ -1,5 +1,5 @@
-
+
@@ -7,7 +7,7 @@
-
+
@@ -26,7 +26,7 @@
-
+
diff --git a/Source/Informes/3/InfAlbaranCliente.fr3 b/Source/Informes/3/InfAlbaranCliente.fr3
index fd37838..85989e7 100644
--- a/Source/Informes/3/InfAlbaranCliente.fr3
+++ b/Source/Informes/3/InfAlbaranCliente.fr3
@@ -1,5 +1,5 @@
-
+
@@ -9,9 +9,9 @@
-
+
-
+
diff --git a/Source/Informes/3/InfContratoCliente.fr3 b/Source/Informes/3/InfContratoCliente.fr3
index 3a55711..8d34641 100644
--- a/Source/Informes/3/InfContratoCliente.fr3
+++ b/Source/Informes/3/InfContratoCliente.fr3
@@ -1,5 +1,5 @@
-
+
@@ -9,11 +9,11 @@
-
+
-
+
-
+
diff --git a/Source/Informes/3/InfFacturaCliente.fr3 b/Source/Informes/3/InfFacturaCliente.fr3
index 86546a5..fdca094 100644
--- a/Source/Informes/3/InfFacturaCliente.fr3
+++ b/Source/Informes/3/InfFacturaCliente.fr3
@@ -1,5 +1,5 @@
-
+
@@ -10,9 +10,9 @@
-
+
-
+
@@ -72,7 +72,7 @@
-
+
diff --git a/Source/Informes/3/InfPresupuestoCliente.fr3 b/Source/Informes/3/InfPresupuestoCliente.fr3
index 293c69a..0695344 100644
--- a/Source/Informes/3/InfPresupuestoCliente.fr3
+++ b/Source/Informes/3/InfPresupuestoCliente.fr3
@@ -1,19 +1,19 @@
-
+
-
+
-
+
-
+
diff --git a/Source/Informes/3/InfReciboCliente.fr3 b/Source/Informes/3/InfReciboCliente.fr3
index 46bdd7d..1462891 100644
--- a/Source/Informes/3/InfReciboCliente.fr3
+++ b/Source/Informes/3/InfReciboCliente.fr3
@@ -1,11 +1,11 @@
-
+
-
+
@@ -60,7 +60,7 @@
-
+
diff --git a/Source/Informes/3/InformeListadoFacturasRecibosCliente.fr3 b/Source/Informes/3/InformeListadoFacturasRecibosCliente.fr3
index aed3ee9..5f22beb 100644
--- a/Source/Informes/3/InformeListadoFacturasRecibosCliente.fr3
+++ b/Source/Informes/3/InformeListadoFacturasRecibosCliente.fr3
@@ -1,5 +1,5 @@
-
+
@@ -7,7 +7,7 @@
-
+
@@ -26,7 +26,7 @@
-
+
diff --git a/Source/Informes/4/InfAlbaranCliente.fr3 b/Source/Informes/4/InfAlbaranCliente.fr3
index 264d275..d77ea0e 100644
--- a/Source/Informes/4/InfAlbaranCliente.fr3
+++ b/Source/Informes/4/InfAlbaranCliente.fr3
@@ -1,9 +1,9 @@
-
+
-
+
diff --git a/Source/Informes/4/InfContratoCliente.fr3 b/Source/Informes/4/InfContratoCliente.fr3
index 3e6b71d..45b48d4 100644
--- a/Source/Informes/4/InfContratoCliente.fr3
+++ b/Source/Informes/4/InfContratoCliente.fr3
@@ -1,9 +1,9 @@
-
+
-
+
diff --git a/Source/Informes/4/InfFacturaCliente.fr3 b/Source/Informes/4/InfFacturaCliente.fr3
index c13d4e1..87cfdf0 100644
--- a/Source/Informes/4/InfFacturaCliente.fr3
+++ b/Source/Informes/4/InfFacturaCliente.fr3
@@ -1,9 +1,9 @@
-
+
-
+
@@ -71,7 +71,7 @@
-
+
diff --git a/Source/Informes/4/InfPresupuestoCliente.fr3 b/Source/Informes/4/InfPresupuestoCliente.fr3
index ce574a0..e1a741b 100644
--- a/Source/Informes/4/InfPresupuestoCliente.fr3
+++ b/Source/Informes/4/InfPresupuestoCliente.fr3
@@ -1,9 +1,9 @@
-
+
-
+
diff --git a/Source/Informes/4/InformeListadoFacturasRecibosCliente.fr3 b/Source/Informes/4/InformeListadoFacturasRecibosCliente.fr3
index 227d5ac..0d64754 100644
--- a/Source/Informes/4/InformeListadoFacturasRecibosCliente.fr3
+++ b/Source/Informes/4/InformeListadoFacturasRecibosCliente.fr3
@@ -1,5 +1,5 @@
-
+
@@ -7,13 +7,13 @@
-
+
-
+
@@ -26,7 +26,7 @@
-
+
@@ -38,7 +38,7 @@
-
+
diff --git a/Source/Informes/InformeIVAClientes.fr3 b/Source/Informes/InformeIVAClientes.fr3
index 8a8a063..d67e28b 100644
--- a/Source/Informes/InformeIVAClientes.fr3
+++ b/Source/Informes/InformeIVAClientes.fr3
@@ -1,5 +1,5 @@
-
+
@@ -7,7 +7,7 @@
-
+
@@ -25,7 +25,7 @@
-
+
@@ -46,7 +46,7 @@
-
+
diff --git a/Source/Informes/InformeIVAClientesDesglosado.fr3 b/Source/Informes/InformeIVAClientesDesglosado.fr3
index ac01038..3876a78 100644
--- a/Source/Informes/InformeIVAClientesDesglosado.fr3
+++ b/Source/Informes/InformeIVAClientesDesglosado.fr3
@@ -1,5 +1,5 @@
-
+
@@ -7,7 +7,7 @@
-
+
@@ -25,7 +25,7 @@
-
+
@@ -50,7 +50,7 @@
-
+
diff --git a/Source/Informes/InformeIVAProveedores.fr3 b/Source/Informes/InformeIVAProveedores.fr3
index c0e3435..ed6f2e9 100644
--- a/Source/Informes/InformeIVAProveedores.fr3
+++ b/Source/Informes/InformeIVAProveedores.fr3
@@ -1,5 +1,5 @@
-
+
@@ -7,7 +7,7 @@
-
+
@@ -27,7 +27,7 @@
-
+
@@ -51,7 +51,7 @@
-
+
@@ -85,7 +85,7 @@
-
+
diff --git a/Source/Informes/InformeIVAProveedoresDesglosado.fr3 b/Source/Informes/InformeIVAProveedoresDesglosado.fr3
index ddb7dde..da0c5e8 100644
--- a/Source/Informes/InformeIVAProveedoresDesglosado.fr3
+++ b/Source/Informes/InformeIVAProveedoresDesglosado.fr3
@@ -1,21 +1,21 @@
-
+
-
-
+
+
-
+
-
+
-
+
-
+
@@ -29,17 +29,17 @@
-
+
-
+
-
+
@@ -49,7 +49,7 @@
-
+
@@ -59,39 +59,39 @@
-
+
-
+
-
+
-
+
-
-
+
+
-
+
@@ -106,6 +106,6 @@
-
+
diff --git a/Source/Informes/InformeListadoFacturasCliente.fr3 b/Source/Informes/InformeListadoFacturasCliente.fr3
index 008a9db..9edb0fa 100644
--- a/Source/Informes/InformeListadoFacturasCliente.fr3
+++ b/Source/Informes/InformeListadoFacturasCliente.fr3
@@ -1,5 +1,5 @@
-
+
@@ -7,7 +7,7 @@
-
+
@@ -25,7 +25,7 @@
-
+
@@ -45,7 +45,7 @@
-
+
diff --git a/Source/Informes/InformeListadoFacturasClienteDesglosado.fr3 b/Source/Informes/InformeListadoFacturasClienteDesglosado.fr3
index 4280f4d..69d4c8b 100644
--- a/Source/Informes/InformeListadoFacturasClienteDesglosado.fr3
+++ b/Source/Informes/InformeListadoFacturasClienteDesglosado.fr3
@@ -1,5 +1,5 @@
-
+
@@ -7,7 +7,7 @@
-
+
@@ -22,7 +22,7 @@
-
+
@@ -49,7 +49,7 @@
-
+
diff --git a/Source/Informes/InformeListadoFacturasClientePendientes.fr3 b/Source/Informes/InformeListadoFacturasClientePendientes.fr3
index 55becb6..34ed988 100644
--- a/Source/Informes/InformeListadoFacturasClientePendientes.fr3
+++ b/Source/Informes/InformeListadoFacturasClientePendientes.fr3
@@ -1,5 +1,5 @@
-
+
@@ -7,7 +7,7 @@
-
+
@@ -21,7 +21,7 @@
-
+
@@ -38,7 +38,7 @@
-
+
diff --git a/Source/Informes/InformeListadoFacturasClientePendientesDesglosado.fr3 b/Source/Informes/InformeListadoFacturasClientePendientesDesglosado.fr3
index eb82be6..3b1ca9b 100644
--- a/Source/Informes/InformeListadoFacturasClientePendientesDesglosado.fr3
+++ b/Source/Informes/InformeListadoFacturasClientePendientesDesglosado.fr3
@@ -1,5 +1,5 @@
-
+
@@ -7,7 +7,7 @@
-
+
@@ -21,7 +21,7 @@
-
+
@@ -42,7 +42,7 @@
-
+
diff --git a/Source/Informes/InformeListadoFacturasProveedor.fr3 b/Source/Informes/InformeListadoFacturasProveedor.fr3
index 2c9edae..7dcd33a 100644
--- a/Source/Informes/InformeListadoFacturasProveedor.fr3
+++ b/Source/Informes/InformeListadoFacturasProveedor.fr3
@@ -1,5 +1,5 @@
-
+
@@ -7,7 +7,7 @@
-
+
@@ -23,7 +23,7 @@
-
+
@@ -43,7 +43,7 @@
-
+
diff --git a/Source/Informes/InformeListadoFacturasProveedorDesglosado.fr3 b/Source/Informes/InformeListadoFacturasProveedorDesglosado.fr3
index e699e3e..d58ce69 100644
--- a/Source/Informes/InformeListadoFacturasProveedorDesglosado.fr3
+++ b/Source/Informes/InformeListadoFacturasProveedorDesglosado.fr3
@@ -1,5 +1,5 @@
-
+
@@ -7,7 +7,7 @@
-
+
@@ -23,7 +23,7 @@
-
+
@@ -47,7 +47,7 @@
-
+
diff --git a/Source/Informes/InformeListadoFacturasProveedorPendientes.fr3 b/Source/Informes/InformeListadoFacturasProveedorPendientes.fr3
index c484f5d..1bb836a 100644
--- a/Source/Informes/InformeListadoFacturasProveedorPendientes.fr3
+++ b/Source/Informes/InformeListadoFacturasProveedorPendientes.fr3
@@ -1,5 +1,5 @@
-
+
@@ -7,7 +7,7 @@
-
+
@@ -21,7 +21,7 @@
-
+
@@ -38,7 +38,7 @@
-
+
diff --git a/Source/Informes/InformeListadoFacturasProveedorPendientesDesglosado.fr3 b/Source/Informes/InformeListadoFacturasProveedorPendientesDesglosado.fr3
index 7901990..e0c4042 100644
--- a/Source/Informes/InformeListadoFacturasProveedorPendientesDesglosado.fr3
+++ b/Source/Informes/InformeListadoFacturasProveedorPendientesDesglosado.fr3
@@ -1,5 +1,5 @@
-
+
@@ -7,7 +7,7 @@
-
+
@@ -21,7 +21,7 @@
-
+
@@ -42,7 +42,7 @@
-
+
diff --git a/Source/Informes/InformeListadoFacturasRecibosCliente.fr3 b/Source/Informes/InformeListadoFacturasRecibosCliente.fr3
index 227d5ac..f745f8a 100644
--- a/Source/Informes/InformeListadoFacturasRecibosCliente.fr3
+++ b/Source/Informes/InformeListadoFacturasRecibosCliente.fr3
@@ -1,5 +1,5 @@
-
+
@@ -7,13 +7,13 @@
-
+
-
+
@@ -26,7 +26,7 @@
-
+
@@ -38,7 +38,7 @@
-
+
diff --git a/Source/Informes/InformeListadoPresupuestos.fr3 b/Source/Informes/InformeListadoPresupuestos.fr3
index e820f70..2c53b3a 100644
--- a/Source/Informes/InformeListadoPresupuestos.fr3
+++ b/Source/Informes/InformeListadoPresupuestos.fr3
@@ -1,5 +1,5 @@
-
+
@@ -9,7 +9,7 @@
-
+
@@ -24,7 +24,7 @@
-
+
diff --git a/Source/Informes/InformeListadoPresupuestosDesglosado.fr3 b/Source/Informes/InformeListadoPresupuestosDesglosado.fr3
index da24346..fde6f67 100644
--- a/Source/Informes/InformeListadoPresupuestosDesglosado.fr3
+++ b/Source/Informes/InformeListadoPresupuestosDesglosado.fr3
@@ -1,5 +1,5 @@
-
+
@@ -9,7 +9,7 @@
-
+
@@ -24,7 +24,7 @@
-
+
diff --git a/Source/Informes/InformeListadoRecibosCliPendientes.fr3 b/Source/Informes/InformeListadoRecibosCliPendientes.fr3
index 78408ac..a0b2fe5 100644
--- a/Source/Informes/InformeListadoRecibosCliPendientes.fr3
+++ b/Source/Informes/InformeListadoRecibosCliPendientes.fr3
@@ -1,12 +1,12 @@
-
+
-
+
@@ -25,7 +25,7 @@
-
+
diff --git a/Source/Informes/InformeListadoRecibosCliPendientesDesglosado.fr3 b/Source/Informes/InformeListadoRecibosCliPendientesDesglosado.fr3
index 29fe803..c6ca133 100644
--- a/Source/Informes/InformeListadoRecibosCliPendientesDesglosado.fr3
+++ b/Source/Informes/InformeListadoRecibosCliPendientesDesglosado.fr3
@@ -1,12 +1,12 @@
-
+
-
+
@@ -25,7 +25,7 @@
-
+
diff --git a/Source/Informes/InformeListadoRecibosCliente.fr3 b/Source/Informes/InformeListadoRecibosCliente.fr3
index 7600f8d..9096cb6 100644
--- a/Source/Informes/InformeListadoRecibosCliente.fr3
+++ b/Source/Informes/InformeListadoRecibosCliente.fr3
@@ -1,11 +1,11 @@
-
+
-
+
@@ -24,7 +24,7 @@
-
+
diff --git a/Source/Informes/InformeListadoRecibosClienteDesglosado.fr3 b/Source/Informes/InformeListadoRecibosClienteDesglosado.fr3
index 2fc26d1..dc84b1e 100644
--- a/Source/Informes/InformeListadoRecibosClienteDesglosado.fr3
+++ b/Source/Informes/InformeListadoRecibosClienteDesglosado.fr3
@@ -1,5 +1,5 @@
-
+
@@ -9,7 +9,7 @@
-
+
@@ -24,7 +24,7 @@
-
+
diff --git a/Source/Informes/InformeListadoRecibosProvPendientes.fr3 b/Source/Informes/InformeListadoRecibosProvPendientes.fr3
index 9c1a566..58e4182 100644
--- a/Source/Informes/InformeListadoRecibosProvPendientes.fr3
+++ b/Source/Informes/InformeListadoRecibosProvPendientes.fr3
@@ -1,15 +1,15 @@
-
+
-
+
-
+
@@ -24,7 +24,7 @@
-
+
diff --git a/Source/Informes/InformeListadoRecibosProvPendientesDesglosado.fr3 b/Source/Informes/InformeListadoRecibosProvPendientesDesglosado.fr3
index 3da9ef2..5df8b6c 100644
--- a/Source/Informes/InformeListadoRecibosProvPendientesDesglosado.fr3
+++ b/Source/Informes/InformeListadoRecibosProvPendientesDesglosado.fr3
@@ -1,15 +1,15 @@
-
+
-
+
-
+
@@ -24,7 +24,7 @@
-
+
diff --git a/Source/Informes/InformeListadoRecibosProveedor.fr3 b/Source/Informes/InformeListadoRecibosProveedor.fr3
index 029524c..ab1e850 100644
--- a/Source/Informes/InformeListadoRecibosProveedor.fr3
+++ b/Source/Informes/InformeListadoRecibosProveedor.fr3
@@ -1,15 +1,15 @@
-
+
-
+
-
+
@@ -24,7 +24,7 @@
-
+
diff --git a/Source/Informes/InformeListadoRecibosProveedorDesglosado.fr3 b/Source/Informes/InformeListadoRecibosProveedorDesglosado.fr3
index ea85915..6a147a5 100644
--- a/Source/Informes/InformeListadoRecibosProveedorDesglosado.fr3
+++ b/Source/Informes/InformeListadoRecibosProveedorDesglosado.fr3
@@ -1,15 +1,15 @@
-
+
-
+
-
+
@@ -24,7 +24,7 @@
-
+
diff --git a/Source/Modulos/Contactos/Views/Contactos_view.dproj b/Source/Modulos/Contactos/Views/Contactos_view.dproj
index 7443283..d03d2f1 100644
--- a/Source/Modulos/Contactos/Views/Contactos_view.dproj
+++ b/Source/Modulos/Contactos/Views/Contactos_view.dproj
@@ -47,41 +47,41 @@
MainSource
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
diff --git a/Source/Modulos/Contactos/Views/uEditorClientes.dfm b/Source/Modulos/Contactos/Views/uEditorClientes.dfm
index 427814a..0377ad5 100644
--- a/Source/Modulos/Contactos/Views/uEditorClientes.dfm
+++ b/Source/Modulos/Contactos/Views/uEditorClientes.dfm
@@ -158,6 +158,7 @@ inherited fEditorClientes: TfEditorClientes
end
inherited pnlAgrupaciones: TTBXDockablePanel
Top = 368
+ Visible = True
ExplicitTop = 368
ExplicitWidth = 786
inherited TBXAlignmentPanel1: TTBXAlignmentPanel
diff --git a/Source/Modulos/Contactos/Views/uEditorContactos.dfm b/Source/Modulos/Contactos/Views/uEditorContactos.dfm
index 67952d3..4e62bb8 100644
--- a/Source/Modulos/Contactos/Views/uEditorContactos.dfm
+++ b/Source/Modulos/Contactos/Views/uEditorContactos.dfm
@@ -2,6 +2,7 @@ inherited fEditorContactos: TfEditorContactos
Left = 285
Top = 448
Caption = 'Lista de contactos'
+ ExplicitWidth = 320
ExplicitHeight = 482
PixelsPerInch = 96
TextHeight = 13
diff --git a/Source/Modulos/Contactos/Views/uViewClientes.dfm b/Source/Modulos/Contactos/Views/uViewClientes.dfm
index 1d697ae..9a686a0 100644
--- a/Source/Modulos/Contactos/Views/uViewClientes.dfm
+++ b/Source/Modulos/Contactos/Views/uViewClientes.dfm
@@ -51,6 +51,10 @@ inherited frViewClientes: TfrViewClientes
Caption = 'Persona contacto'
DataBinding.FieldName = 'PERSONA_CONTACTO'
end
+ object cxGridViewPROCEDENCIA_CLIENTE: TcxGridDBColumn [9]
+ Caption = 'Procedencia'
+ DataBinding.FieldName = 'PROCEDENCIA_CLIENTE'
+ end
end
end
inherited frViewFiltroBase1: TfrViewFiltroBase
@@ -108,6 +112,11 @@ inherited frViewClientes: TfrViewClientes
inherited TBXToolbar1: TTBXToolbar
Width = 623
ExplicitWidth = 623
+ object TBXSeparatorItem1: TTBXSeparatorItem
+ end
+ object TBXItem2: TTBXItem
+ Action = actProcedencia
+ end
end
end
end
@@ -125,6 +134,13 @@ inherited frViewClientes: TfrViewClientes
inherited cxViewGridPopupMenu: TcxGridPopupMenu
Left = 32
end
+ inherited ActionList1: TActionList
+ object actProcedencia: TAction
+ Caption = 'Procedencia'
+ OnExecute = actProcedenciaExecute
+ OnUpdate = actProcedenciaUpdate
+ end
+ end
inherited GridPNGImageList: TPngImageList
PngImages = <
item
diff --git a/Source/Modulos/Contactos/Views/uViewClientes.pas b/Source/Modulos/Contactos/Views/uViewClientes.pas
index 64ca704..5ca910f 100644
--- a/Source/Modulos/Contactos/Views/uViewClientes.pas
+++ b/Source/Modulos/Contactos/Views/uViewClientes.pas
@@ -26,9 +26,15 @@ type
cxGridViewBLOQUEADO: TcxGridDBColumn;
cxGridViewTiendaWeb: TcxGridDBColumn;
cxGridViewPERSONA_CONTACTO: TcxGridDBColumn;
+ cxGridViewPROCEDENCIA_CLIENTE: TcxGridDBColumn;
+ actProcedencia: TAction;
+ TBXSeparatorItem1: TTBXSeparatorItem;
+ TBXItem2: TTBXItem;
procedure cxGridViewCODIGOCustomDrawCell(Sender: TcxCustomGridTableView;
ACanvas: TcxCanvas; AViewInfo: TcxGridTableDataCellViewInfo;
var ADone: Boolean);
+ procedure actProcedenciaExecute(Sender: TObject);
+ procedure actProcedenciaUpdate(Sender: TObject);
end;
@@ -40,6 +46,27 @@ uses uViewGridBase;
{$R *.dfm}
+procedure TfrViewClientes.actProcedenciaExecute(Sender: TObject);
+begin
+ inherited;
+ if (cxGridViewPROCEDENCIA_CLIENTE.GroupIndex < 0) then
+ begin
+ cxGridViewPROCEDENCIA_CLIENTE.GroupIndex := cxGridView.GroupedColumnCount;
+ cxGridViewPROCEDENCIA_CLIENTE.Visible := False;
+ end
+ else
+ begin
+ cxGridViewPROCEDENCIA_CLIENTE.GroupIndex := -1;
+ cxGridViewPROCEDENCIA_CLIENTE.Visible := True;
+ end;
+end;
+
+procedure TfrViewClientes.actProcedenciaUpdate(Sender: TObject);
+begin
+ inherited;
+ (Sender as TAction).Checked := not (cxGridViewPROCEDENCIA_CLIENTE.GroupIndex < 0);
+end;
+
procedure TfrViewClientes.cxGridViewCODIGOCustomDrawCell(
Sender: TcxCustomGridTableView; ACanvas: TcxCanvas;
AViewInfo: TcxGridTableDataCellViewInfo; var ADone: Boolean);
diff --git a/Source/Modulos/Contratos de cliente/Data/ContratosCliente_data.RES b/Source/Modulos/Contratos de cliente/Data/ContratosCliente_data.RES
index 1641339..8b251f3 100644
Binary files a/Source/Modulos/Contratos de cliente/Data/ContratosCliente_data.RES and b/Source/Modulos/Contratos de cliente/Data/ContratosCliente_data.RES differ
diff --git a/Source/Modulos/Contratos de cliente/Data/uDataModuleContratosCliente.dfm b/Source/Modulos/Contratos de cliente/Data/uDataModuleContratosCliente.dfm
index e1be470..23533f4 100644
--- a/Source/Modulos/Contratos de cliente/Data/uDataModuleContratosCliente.dfm
+++ b/Source/Modulos/Contratos de cliente/Data/uDataModuleContratosCliente.dfm
@@ -66,6 +66,11 @@ inherited DataModuleContratosCliente: TDataModuleContratosCliente
DisplayLabel = 'ContratosCliente_NOMBRE_COMERCIAL_CLIENTE'
DictionaryEntry = 'ContratosCliente_NOMBRE_COMERCIAL_CLIENTE'
end
+ item
+ Name = 'PROCEDENCIA_CLIENTE'
+ DataType = datString
+ Size = 255
+ end
item
Name = 'NIF_CIF'
DataType = datString
diff --git a/Source/Modulos/Contratos de cliente/Model/schContratosClienteClient_Intf.pas b/Source/Modulos/Contratos de cliente/Model/schContratosClienteClient_Intf.pas
index e601b28..f4519ff 100644
--- a/Source/Modulos/Contratos de cliente/Model/schContratosClienteClient_Intf.pas
+++ b/Source/Modulos/Contratos de cliente/Model/schContratosClienteClient_Intf.pas
@@ -3,19 +3,19 @@ unit schContratosClienteClient_Intf;
interface
uses
- Classes, DB, SysUtils, uROClasses, uDAInterfaces, uDADataTable, FmtBCD, uROXMLIntf;
+ Classes, DB, schBase_Intf, SysUtils, uROClasses, uDAInterfaces, uDADataTable, FmtBCD, uROXMLIntf;
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_Valores = '{EFD1F7C2-8E8E-4AAE-B2C5-7B343C56CABC}';
- RID_Propiedades = '{4820AA98-F3FF-4077-9FEB-C2E4736BB23B}';
- RID_ListaAnosContratos = '{3D3572A5-2C27-483B-AA9B-3143CB5C9BA1}';
- RID_ContratosClienteBeneficios = '{329FBEE1-47CA-4E16-BA30-0FE155B5FDA5}';
- RID_ContratosCliente = '{3EBF8421-AFE3-42F9-9B07-525AEE7A2348}';
- RID_TiposCapitulos = '{342EFE89-C164-4DF7-8324-ADBB8C121644}';
- RID_ContratosCliente_Detalles = '{A2EF3306-B4B6-4109-96EF-20C9F6D82300}';
+ RID_Valores = '{9AD797AA-D46B-4AE9-9DD1-6BAC6654143D}';
+ RID_Propiedades = '{09573259-D2FE-4AB6-A029-AC941F33783C}';
+ RID_ListaAnosContratos = '{3285A04A-70B8-4A60-A13F-F7D07D7E7225}';
+ RID_ContratosClienteBeneficios = '{E0BAE351-BBAD-4095-93FB-18C3A4BECCA0}';
+ RID_ContratosCliente = '{36DCC1AC-A433-4CD3-B597-F8599DDEBEE5}';
+ RID_TiposCapitulos = '{B2D4D441-CBF5-4C00-8D77-C97B1B99524B}';
+ RID_ContratosCliente_Detalles = '{873F4990-695B-4AEE-9DB2-AA2EB812982A}';
{ Data table names }
nme_Valores = 'Valores';
@@ -93,6 +93,7 @@ const
fld_ContratosClienteNOMBRE_CLIENTE = 'NOMBRE_CLIENTE';
fld_ContratosClienteREF_CLIENTE = 'REF_CLIENTE';
fld_ContratosClienteNOMBRE_COMERCIAL_CLIENTE = 'NOMBRE_COMERCIAL_CLIENTE';
+ fld_ContratosClientePROCEDENCIA_CLIENTE = 'PROCEDENCIA_CLIENTE';
fld_ContratosClienteNIF_CIF = 'NIF_CIF';
fld_ContratosClienteNOMBRE = 'NOMBRE';
fld_ContratosClienteID_DIRECCION = 'ID_DIRECCION';
@@ -142,47 +143,48 @@ const
idx_ContratosClienteNOMBRE_CLIENTE = 3;
idx_ContratosClienteREF_CLIENTE = 4;
idx_ContratosClienteNOMBRE_COMERCIAL_CLIENTE = 5;
- idx_ContratosClienteNIF_CIF = 6;
- idx_ContratosClienteNOMBRE = 7;
- idx_ContratosClienteID_DIRECCION = 8;
- idx_ContratosClienteCALLE = 9;
- idx_ContratosClientePOBLACION = 10;
- idx_ContratosClientePROVINCIA = 11;
- idx_ContratosClienteCODIGO_POSTAL = 12;
- idx_ContratosClienteTELEFONO = 13;
- idx_ContratosClienteMOVIL = 14;
- idx_ContratosClienteREFERENCIA = 15;
- idx_ContratosClienteFECHA_CONTRATO = 16;
- idx_ContratosClienteSITUACION = 17;
- idx_ContratosClienteFORMA_PAGO = 18;
- idx_ContratosClientePLAZO_ENTREGA = 19;
- idx_ContratosClienteOBSERVACIONES = 20;
- idx_ContratosClienteINCIDENCIAS = 21;
- idx_ContratosClienteINCIDENCIAS_ACTIVAS = 22;
- idx_ContratosClienteFECHA_ALTA = 23;
- idx_ContratosClienteFECHA_MODIFICACION = 24;
- idx_ContratosClienteUSUARIO = 25;
- idx_ContratosClienteRECARGO_EQUIVALENCIA = 26;
- idx_ContratosClienteRE = 27;
- idx_ContratosClienteIMPORTE_RE = 28;
- idx_ContratosClienteID_TIPO_IVA = 29;
- idx_ContratosClienteIVA = 30;
- idx_ContratosClienteIMPORTE_IVA = 31;
- idx_ContratosClienteIMPORTE_NETO = 32;
- idx_ContratosClienteIMPORTE_PORTE = 33;
- idx_ContratosClienteID_TIENDA = 34;
- idx_ContratosClienteTIENDA = 35;
- idx_ContratosClienteBASE_IMPONIBLE = 36;
- idx_ContratosClienteDESCUENTO = 37;
- idx_ContratosClienteIMPORTE_DESCUENTO = 38;
- idx_ContratosClienteIMPORTE_TOTAL = 39;
- idx_ContratosClienteID_FORMA_PAGO = 40;
- idx_ContratosClienteID_VENDEDOR = 41;
- idx_ContratosClienteVENDEDOR = 42;
- idx_ContratosClientePERSONA_CONTACTO = 43;
- idx_ContratosClienteTIPO_CONTRATO = 44;
- idx_ContratosClienteREFERENCIA_CLIENTE = 45;
- idx_ContratosClienteFACTURA_ASOCIADA = 46;
+ idx_ContratosClientePROCEDENCIA_CLIENTE = 6;
+ idx_ContratosClienteNIF_CIF = 7;
+ idx_ContratosClienteNOMBRE = 8;
+ idx_ContratosClienteID_DIRECCION = 9;
+ idx_ContratosClienteCALLE = 10;
+ idx_ContratosClientePOBLACION = 11;
+ idx_ContratosClientePROVINCIA = 12;
+ idx_ContratosClienteCODIGO_POSTAL = 13;
+ idx_ContratosClienteTELEFONO = 14;
+ idx_ContratosClienteMOVIL = 15;
+ idx_ContratosClienteREFERENCIA = 16;
+ idx_ContratosClienteFECHA_CONTRATO = 17;
+ idx_ContratosClienteSITUACION = 18;
+ idx_ContratosClienteFORMA_PAGO = 19;
+ idx_ContratosClientePLAZO_ENTREGA = 20;
+ idx_ContratosClienteOBSERVACIONES = 21;
+ idx_ContratosClienteINCIDENCIAS = 22;
+ idx_ContratosClienteINCIDENCIAS_ACTIVAS = 23;
+ idx_ContratosClienteFECHA_ALTA = 24;
+ idx_ContratosClienteFECHA_MODIFICACION = 25;
+ idx_ContratosClienteUSUARIO = 26;
+ idx_ContratosClienteRECARGO_EQUIVALENCIA = 27;
+ idx_ContratosClienteRE = 28;
+ idx_ContratosClienteIMPORTE_RE = 29;
+ idx_ContratosClienteID_TIPO_IVA = 30;
+ idx_ContratosClienteIVA = 31;
+ idx_ContratosClienteIMPORTE_IVA = 32;
+ idx_ContratosClienteIMPORTE_NETO = 33;
+ idx_ContratosClienteIMPORTE_PORTE = 34;
+ idx_ContratosClienteID_TIENDA = 35;
+ idx_ContratosClienteTIENDA = 36;
+ idx_ContratosClienteBASE_IMPONIBLE = 37;
+ idx_ContratosClienteDESCUENTO = 38;
+ idx_ContratosClienteIMPORTE_DESCUENTO = 39;
+ idx_ContratosClienteIMPORTE_TOTAL = 40;
+ idx_ContratosClienteID_FORMA_PAGO = 41;
+ idx_ContratosClienteID_VENDEDOR = 42;
+ idx_ContratosClienteVENDEDOR = 43;
+ idx_ContratosClientePERSONA_CONTACTO = 44;
+ idx_ContratosClienteTIPO_CONTRATO = 45;
+ idx_ContratosClienteREFERENCIA_CLIENTE = 46;
+ idx_ContratosClienteFACTURA_ASOCIADA = 47;
{ TiposCapitulos fields }
fld_TiposCapitulosID = 'ID';
@@ -241,7 +243,7 @@ const
type
{ IValores }
IValores = interface(IDAStronglyTypedDataTable)
- ['{F9BF1948-763A-4CB4-9DF1-35E6C948DDB4}']
+ ['{6E74F489-85F3-46DC-AC2E-4B4AE491D53B}']
{ Property getters and setters }
function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer);
@@ -267,7 +269,7 @@ type
end;
{ TValoresDataTableRules }
- TValoresDataTableRules = class(TDADataTableRules, IValores)
+ TValoresDataTableRules = class(TIntfObjectDADataTableRules, IValores)
private
protected
{ Property getters and setters }
@@ -300,7 +302,7 @@ type
{ IPropiedades }
IPropiedades = interface(IDAStronglyTypedDataTable)
- ['{AC649959-C638-4C8A-8B1D-764BB1751371}']
+ ['{2DB5F8D6-C637-46EE-AA32-88BEAA1E914B}']
{ Property getters and setters }
function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer);
@@ -326,7 +328,7 @@ type
end;
{ TPropiedadesDataTableRules }
- TPropiedadesDataTableRules = class(TDADataTableRules, IPropiedades)
+ TPropiedadesDataTableRules = class(TIntfObjectDADataTableRules, IPropiedades)
private
protected
{ Property getters and setters }
@@ -359,7 +361,7 @@ type
{ IListaAnosContratos }
IListaAnosContratos = interface(IDAStronglyTypedDataTable)
- ['{A739B752-2CAA-42C8-A07D-BD0A28068E5E}']
+ ['{7EF2538F-7F91-41F2-BBA5-8E90D546307F}']
{ Property getters and setters }
function GetANOValue: String;
procedure SetANOValue(const aValue: String);
@@ -373,7 +375,7 @@ type
end;
{ TListaAnosContratosDataTableRules }
- TListaAnosContratosDataTableRules = class(TDADataTableRules, IListaAnosContratos)
+ TListaAnosContratosDataTableRules = class(TIntfObjectDADataTableRules, IListaAnosContratos)
private
protected
{ Property getters and setters }
@@ -394,7 +396,7 @@ type
{ IContratosClienteBeneficios }
IContratosClienteBeneficios = interface(IDAStronglyTypedDataTable)
- ['{E7667437-590B-4D1C-9762-7242E8107E1A}']
+ ['{175DC6DA-9682-4343-A2AD-311257C2692A}']
{ Property getters and setters }
function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer);
@@ -492,7 +494,7 @@ type
end;
{ TContratosClienteBeneficiosDataTableRules }
- TContratosClienteBeneficiosDataTableRules = class(TDADataTableRules, IContratosClienteBeneficios)
+ TContratosClienteBeneficiosDataTableRules = class(TIntfObjectDADataTableRules, IContratosClienteBeneficios)
private
protected
{ Property getters and setters }
@@ -597,7 +599,7 @@ type
{ IContratosCliente }
IContratosCliente = interface(IDAStronglyTypedDataTable)
- ['{A6237FAB-2A10-4BBF-B5A6-CF29A326D98F}']
+ ['{EE4BBA7B-8F6D-4221-9573-423F0D44B0A1}']
{ Property getters and setters }
function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer);
@@ -623,6 +625,10 @@ type
procedure SetNOMBRE_COMERCIAL_CLIENTEValue(const aValue: String);
function GetNOMBRE_COMERCIAL_CLIENTEIsNull: Boolean;
procedure SetNOMBRE_COMERCIAL_CLIENTEIsNull(const aValue: Boolean);
+ function GetPROCEDENCIA_CLIENTEValue: String;
+ procedure SetPROCEDENCIA_CLIENTEValue(const aValue: String);
+ function GetPROCEDENCIA_CLIENTEIsNull: Boolean;
+ procedure SetPROCEDENCIA_CLIENTEIsNull(const aValue: Boolean);
function GetNIF_CIFValue: String;
procedure SetNIF_CIFValue(const aValue: String);
function GetNIF_CIFIsNull: Boolean;
@@ -798,6 +804,8 @@ type
property REF_CLIENTEIsNull: Boolean read GetREF_CLIENTEIsNull write SetREF_CLIENTEIsNull;
property NOMBRE_COMERCIAL_CLIENTE: String read GetNOMBRE_COMERCIAL_CLIENTEValue write SetNOMBRE_COMERCIAL_CLIENTEValue;
property NOMBRE_COMERCIAL_CLIENTEIsNull: Boolean read GetNOMBRE_COMERCIAL_CLIENTEIsNull write SetNOMBRE_COMERCIAL_CLIENTEIsNull;
+ property PROCEDENCIA_CLIENTE: String read GetPROCEDENCIA_CLIENTEValue write SetPROCEDENCIA_CLIENTEValue;
+ property PROCEDENCIA_CLIENTEIsNull: Boolean read GetPROCEDENCIA_CLIENTEIsNull write SetPROCEDENCIA_CLIENTEIsNull;
property NIF_CIF: String read GetNIF_CIFValue write SetNIF_CIFValue;
property NIF_CIFIsNull: Boolean read GetNIF_CIFIsNull write SetNIF_CIFIsNull;
property NOMBRE: String read GetNOMBREValue write SetNOMBREValue;
@@ -883,7 +891,7 @@ type
end;
{ TContratosClienteDataTableRules }
- TContratosClienteDataTableRules = class(TDADataTableRules, IContratosCliente)
+ TContratosClienteDataTableRules = class(TIntfObjectDADataTableRules, IContratosCliente)
private
f_FORMA_PAGO: IROStrings;
f_PLAZO_ENTREGA: IROStrings;
@@ -919,6 +927,10 @@ type
procedure SetNOMBRE_COMERCIAL_CLIENTEValue(const aValue: String); virtual;
function GetNOMBRE_COMERCIAL_CLIENTEIsNull: Boolean; virtual;
procedure SetNOMBRE_COMERCIAL_CLIENTEIsNull(const aValue: Boolean); virtual;
+ function GetPROCEDENCIA_CLIENTEValue: String; virtual;
+ procedure SetPROCEDENCIA_CLIENTEValue(const aValue: String); virtual;
+ function GetPROCEDENCIA_CLIENTEIsNull: Boolean; virtual;
+ procedure SetPROCEDENCIA_CLIENTEIsNull(const aValue: Boolean); virtual;
function GetNIF_CIFValue: String; virtual;
procedure SetNIF_CIFValue(const aValue: String); virtual;
function GetNIF_CIFIsNull: Boolean; virtual;
@@ -1093,6 +1105,8 @@ type
property REF_CLIENTEIsNull: Boolean read GetREF_CLIENTEIsNull write SetREF_CLIENTEIsNull;
property NOMBRE_COMERCIAL_CLIENTE: String read GetNOMBRE_COMERCIAL_CLIENTEValue write SetNOMBRE_COMERCIAL_CLIENTEValue;
property NOMBRE_COMERCIAL_CLIENTEIsNull: Boolean read GetNOMBRE_COMERCIAL_CLIENTEIsNull write SetNOMBRE_COMERCIAL_CLIENTEIsNull;
+ property PROCEDENCIA_CLIENTE: String read GetPROCEDENCIA_CLIENTEValue write SetPROCEDENCIA_CLIENTEValue;
+ property PROCEDENCIA_CLIENTEIsNull: Boolean read GetPROCEDENCIA_CLIENTEIsNull write SetPROCEDENCIA_CLIENTEIsNull;
property NIF_CIF: String read GetNIF_CIFValue write SetNIF_CIFValue;
property NIF_CIFIsNull: Boolean read GetNIF_CIFIsNull write SetNIF_CIFIsNull;
property NOMBRE: String read GetNOMBREValue write SetNOMBREValue;
@@ -1187,7 +1201,7 @@ type
}
{ ITiposCapitulos }
ITiposCapitulos = interface(IDAStronglyTypedDataTable)
- ['{5AE90EC7-AD94-4636-A2B9-44465BB62E8D}']
+ ['{2B50B74F-8959-47A2-BED3-7B4812D6187A}']
{ Property getters and setters }
function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer);
@@ -1231,7 +1245,7 @@ type
end;
{ TTiposCapitulosDataTableRules }
- TTiposCapitulosDataTableRules = class(TDADataTableRules, ITiposCapitulos)
+ TTiposCapitulosDataTableRules = class(TIntfObjectDADataTableRules, ITiposCapitulos)
private
protected
{ Property getters and setters }
@@ -1282,7 +1296,7 @@ type
{ IContratosCliente_Detalles }
IContratosCliente_Detalles = interface(IDAStronglyTypedDataTable)
- ['{D463BB1A-F962-4B97-AE5E-FDBB7D58439E}']
+ ['{7CDC601E-7E87-402A-8C14-0C92B0C123E9}']
{ Property getters and setters }
function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer);
@@ -1392,7 +1406,7 @@ type
end;
{ TContratosCliente_DetallesDataTableRules }
- TContratosCliente_DetallesDataTableRules = class(TDADataTableRules, IContratosCliente_Detalles)
+ TContratosCliente_DetallesDataTableRules = class(TIntfObjectDADataTableRules, IContratosCliente_Detalles)
private
protected
{ Property getters and setters }
@@ -2196,6 +2210,27 @@ begin
DataTable.Fields[idx_ContratosClienteNOMBRE_COMERCIAL_CLIENTE].AsVariant := Null;
end;
+function TContratosClienteDataTableRules.GetPROCEDENCIA_CLIENTEValue: String;
+begin
+ result := DataTable.Fields[idx_ContratosClientePROCEDENCIA_CLIENTE].AsString;
+end;
+
+procedure TContratosClienteDataTableRules.SetPROCEDENCIA_CLIENTEValue(const aValue: String);
+begin
+ DataTable.Fields[idx_ContratosClientePROCEDENCIA_CLIENTE].AsString := aValue;
+end;
+
+function TContratosClienteDataTableRules.GetPROCEDENCIA_CLIENTEIsNull: boolean;
+begin
+ result := DataTable.Fields[idx_ContratosClientePROCEDENCIA_CLIENTE].IsNull;
+end;
+
+procedure TContratosClienteDataTableRules.SetPROCEDENCIA_CLIENTEIsNull(const aValue: Boolean);
+begin
+ if aValue then
+ DataTable.Fields[idx_ContratosClientePROCEDENCIA_CLIENTE].AsVariant := Null;
+end;
+
function TContratosClienteDataTableRules.GetNIF_CIFValue: String;
begin
result := DataTable.Fields[idx_ContratosClienteNIF_CIF].AsString;
diff --git a/Source/Modulos/Contratos de cliente/Model/schContratosClienteServer_Intf.pas b/Source/Modulos/Contratos de cliente/Model/schContratosClienteServer_Intf.pas
index cbe227d..e5ad346 100644
--- a/Source/Modulos/Contratos de cliente/Model/schContratosClienteServer_Intf.pas
+++ b/Source/Modulos/Contratos de cliente/Model/schContratosClienteServer_Intf.pas
@@ -9,18 +9,18 @@ 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_ValoresDelta = '{6D64F831-7B58-4A9E-9180-0CE187DC1F33}';
- RID_PropiedadesDelta = '{00F00B68-D182-4416-83C1-3850142A5B63}';
- RID_ListaAnosContratosDelta = '{7E698FA6-63C1-49A6-BAF4-5958D8B922E1}';
- RID_ContratosClienteBeneficiosDelta = '{ACA5ABBD-4284-4E2B-AE63-9F9DACC26E93}';
- RID_ContratosClienteDelta = '{E74263B4-9F80-48FF-8228-19422AFDBA51}';
- RID_TiposCapitulosDelta = '{82C3C976-5C8E-41F2-A0A9-B8028E119613}';
- RID_ContratosCliente_DetallesDelta = '{55A68F42-1449-47F7-BCD9-E5613C7AED8B}';
+ RID_ValoresDelta = '{C3B5AAD1-9E86-48CC-BB2A-F57573EF5C77}';
+ RID_PropiedadesDelta = '{DD5F6AC0-3F77-4E30-A969-7914F1E20C35}';
+ RID_ListaAnosContratosDelta = '{A6AD38DE-D89D-4026-8EC6-4C6544AAFF71}';
+ RID_ContratosClienteBeneficiosDelta = '{636C6919-7CB6-4F1D-A7BB-8880E13A3B4A}';
+ RID_ContratosClienteDelta = '{5F703D9D-DB14-4081-A55C-18940FC569D1}';
+ RID_TiposCapitulosDelta = '{1F7BEA81-2AD5-42AB-9113-8AA803914CFE}';
+ RID_ContratosCliente_DetallesDelta = '{9DB335CB-ADD8-4604-8213-C5EDCFE7B5A9}';
type
{ IValoresDelta }
IValoresDelta = interface(IValores)
- ['{6D64F831-7B58-4A9E-9180-0CE187DC1F33}']
+ ['{C3B5AAD1-9E86-48CC-BB2A-F57573EF5C77}']
{ Property getters and setters }
function GetOldIDValue : Integer;
function GetOldID_PROPIEDADValue : Integer;
@@ -78,7 +78,7 @@ type
{ IPropiedadesDelta }
IPropiedadesDelta = interface(IPropiedades)
- ['{00F00B68-D182-4416-83C1-3850142A5B63}']
+ ['{DD5F6AC0-3F77-4E30-A969-7914F1E20C35}']
{ Property getters and setters }
function GetOldIDValue : Integer;
function GetOldDESCRIPCIONValue : String;
@@ -136,7 +136,7 @@ type
{ IListaAnosContratosDelta }
IListaAnosContratosDelta = interface(IListaAnosContratos)
- ['{7E698FA6-63C1-49A6-BAF4-5958D8B922E1}']
+ ['{A6AD38DE-D89D-4026-8EC6-4C6544AAFF71}']
{ Property getters and setters }
function GetOldANOValue : String;
@@ -170,7 +170,7 @@ type
{ IContratosClienteBeneficiosDelta }
IContratosClienteBeneficiosDelta = interface(IContratosClienteBeneficios)
- ['{ACA5ABBD-4284-4E2B-AE63-9F9DACC26E93}']
+ ['{636C6919-7CB6-4F1D-A7BB-8880E13A3B4A}']
{ Property getters and setters }
function GetOldIDValue : Integer;
function GetOldREFERENCIAValue : String;
@@ -372,7 +372,7 @@ type
{ IContratosClienteDelta }
IContratosClienteDelta = interface(IContratosCliente)
- ['{E74263B4-9F80-48FF-8228-19422AFDBA51}']
+ ['{5F703D9D-DB14-4081-A55C-18940FC569D1}']
{ Property getters and setters }
function GetOldIDValue : Integer;
function GetOldID_EMPRESAValue : Integer;
@@ -380,6 +380,7 @@ type
function GetOldNOMBRE_CLIENTEValue : String;
function GetOldREF_CLIENTEValue : String;
function GetOldNOMBRE_COMERCIAL_CLIENTEValue : String;
+ function GetOldPROCEDENCIA_CLIENTEValue : String;
function GetOldNIF_CIFValue : String;
function GetOldNOMBREValue : String;
function GetOldID_DIRECCIONValue : Integer;
@@ -429,6 +430,7 @@ type
property OldNOMBRE_CLIENTE : String read GetOldNOMBRE_CLIENTEValue;
property OldREF_CLIENTE : String read GetOldREF_CLIENTEValue;
property OldNOMBRE_COMERCIAL_CLIENTE : String read GetOldNOMBRE_COMERCIAL_CLIENTEValue;
+ property OldPROCEDENCIA_CLIENTE : String read GetOldPROCEDENCIA_CLIENTEValue;
property OldNIF_CIF : String read GetOldNIF_CIFValue;
property OldNOMBRE : String read GetOldNOMBREValue;
property OldID_DIRECCION : Integer read GetOldID_DIRECCIONValue;
@@ -521,6 +523,12 @@ type
function GetOldNOMBRE_COMERCIAL_CLIENTEIsNull: Boolean; virtual;
procedure SetNOMBRE_COMERCIAL_CLIENTEValue(const aValue: String); virtual;
procedure SetNOMBRE_COMERCIAL_CLIENTEIsNull(const aValue: Boolean); virtual;
+ function GetPROCEDENCIA_CLIENTEValue: String; virtual;
+ function GetPROCEDENCIA_CLIENTEIsNull: Boolean; virtual;
+ function GetOldPROCEDENCIA_CLIENTEValue: String; virtual;
+ function GetOldPROCEDENCIA_CLIENTEIsNull: Boolean; virtual;
+ procedure SetPROCEDENCIA_CLIENTEValue(const aValue: String); virtual;
+ procedure SetPROCEDENCIA_CLIENTEIsNull(const aValue: Boolean); virtual;
function GetNIF_CIFValue: String; virtual;
function GetNIF_CIFIsNull: Boolean; virtual;
function GetOldNIF_CIFValue: String; virtual;
@@ -789,6 +797,10 @@ type
property NOMBRE_COMERCIAL_CLIENTEIsNull : Boolean read GetNOMBRE_COMERCIAL_CLIENTEIsNull write SetNOMBRE_COMERCIAL_CLIENTEIsNull;
property OldNOMBRE_COMERCIAL_CLIENTE : String read GetOldNOMBRE_COMERCIAL_CLIENTEValue;
property OldNOMBRE_COMERCIAL_CLIENTEIsNull : Boolean read GetOldNOMBRE_COMERCIAL_CLIENTEIsNull;
+ property PROCEDENCIA_CLIENTE : String read GetPROCEDENCIA_CLIENTEValue write SetPROCEDENCIA_CLIENTEValue;
+ property PROCEDENCIA_CLIENTEIsNull : Boolean read GetPROCEDENCIA_CLIENTEIsNull write SetPROCEDENCIA_CLIENTEIsNull;
+ property OldPROCEDENCIA_CLIENTE : String read GetOldPROCEDENCIA_CLIENTEValue;
+ property OldPROCEDENCIA_CLIENTEIsNull : Boolean read GetOldPROCEDENCIA_CLIENTEIsNull;
property NIF_CIF : String read GetNIF_CIFValue write SetNIF_CIFValue;
property NIF_CIFIsNull : Boolean read GetNIF_CIFIsNull write SetNIF_CIFIsNull;
property OldNIF_CIF : String read GetOldNIF_CIFValue;
@@ -962,7 +974,7 @@ type
{ ITiposCapitulosDelta }
ITiposCapitulosDelta = interface(ITiposCapitulos)
- ['{82C3C976-5C8E-41F2-A0A9-B8028E119613}']
+ ['{1F7BEA81-2AD5-42AB-9113-8AA803914CFE}']
{ Property getters and setters }
function GetOldIDValue : Integer;
function GetOldPOSICIONValue : Integer;
@@ -1056,7 +1068,7 @@ type
{ IContratosCliente_DetallesDelta }
IContratosCliente_DetallesDelta = interface(IContratosCliente_Detalles)
- ['{55A68F42-1449-47F7-BCD9-E5613C7AED8B}']
+ ['{9DB335CB-ADD8-4604-8213-C5EDCFE7B5A9}']
{ Property getters and setters }
function GetOldIDValue : Integer;
function GetOldID_CONTRATOValue : Integer;
@@ -2250,6 +2262,37 @@ begin
BusinessProcessor.CurrentChange.NewValueByName[fld_ContratosClienteNOMBRE_COMERCIAL_CLIENTE] := Null;
end;
+function TContratosClienteBusinessProcessorRules.GetPROCEDENCIA_CLIENTEValue: String;
+begin
+ result := BusinessProcessor.CurrentChange.NewValueByName[fld_ContratosClientePROCEDENCIA_CLIENTE];
+end;
+
+function TContratosClienteBusinessProcessorRules.GetPROCEDENCIA_CLIENTEIsNull: Boolean;
+begin
+ result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_ContratosClientePROCEDENCIA_CLIENTE]);
+end;
+
+function TContratosClienteBusinessProcessorRules.GetOldPROCEDENCIA_CLIENTEValue: String;
+begin
+ result := BusinessProcessor.CurrentChange.OldValueByName[fld_ContratosClientePROCEDENCIA_CLIENTE];
+end;
+
+function TContratosClienteBusinessProcessorRules.GetOldPROCEDENCIA_CLIENTEIsNull: Boolean;
+begin
+ result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_ContratosClientePROCEDENCIA_CLIENTE]);
+end;
+
+procedure TContratosClienteBusinessProcessorRules.SetPROCEDENCIA_CLIENTEValue(const aValue: String);
+begin
+ BusinessProcessor.CurrentChange.NewValueByName[fld_ContratosClientePROCEDENCIA_CLIENTE] := aValue;
+end;
+
+procedure TContratosClienteBusinessProcessorRules.SetPROCEDENCIA_CLIENTEIsNull(const aValue: Boolean);
+begin
+ if aValue then
+ BusinessProcessor.CurrentChange.NewValueByName[fld_ContratosClientePROCEDENCIA_CLIENTE] := Null;
+end;
+
function TContratosClienteBusinessProcessorRules.GetNIF_CIFValue: String;
begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_ContratosClienteNIF_CIF];
diff --git a/Source/Modulos/Contratos de cliente/Servidor/srvContratosCliente_Impl.dfm b/Source/Modulos/Contratos de cliente/Servidor/srvContratosCliente_Impl.dfm
index f25897e..12c16cf 100644
--- a/Source/Modulos/Contratos de cliente/Servidor/srvContratosCliente_Impl.dfm
+++ b/Source/Modulos/Contratos de cliente/Servidor/srvContratosCliente_Impl.dfm
@@ -469,6 +469,10 @@ object srvContratosCliente: TsrvContratosCliente
item
DatasetField = 'FACTURA_ASOCIADA'
TableField = 'FACTURA_ASOCIADA'
+ end
+ item
+ DatasetField = 'PROCEDENCIA_CLIENTE'
+ TableField = 'PROCEDENCIA_CLIENTE'
end>
end>
Name = 'ContratosCliente'
@@ -509,6 +513,11 @@ object srvContratosCliente: TsrvContratosCliente
Size = 255
DictionaryEntry = 'ContratosCliente_NOMBRE_COMERCIAL_CLIENTE'
end
+ item
+ Name = 'PROCEDENCIA_CLIENTE'
+ DataType = datString
+ Size = 255
+ end
item
Name = 'NIF_CIF'
DataType = datString
diff --git a/Source/Modulos/Contratos de cliente/Views/ContratosCliente_view.RES b/Source/Modulos/Contratos de cliente/Views/ContratosCliente_view.RES
index 1641339..8b251f3 100644
Binary files a/Source/Modulos/Contratos de cliente/Views/ContratosCliente_view.RES and b/Source/Modulos/Contratos de cliente/Views/ContratosCliente_view.RES differ
diff --git a/Source/Modulos/Contratos de cliente/Views/uViewContratosCliente.dfm b/Source/Modulos/Contratos de cliente/Views/uViewContratosCliente.dfm
index 4336463..5d049eb 100644
--- a/Source/Modulos/Contratos de cliente/Views/uViewContratosCliente.dfm
+++ b/Source/Modulos/Contratos de cliente/Views/uViewContratosCliente.dfm
@@ -96,6 +96,10 @@ inherited frViewContratosCliente: TfrViewContratosCliente
BestFitMaxWidth = 25
Width = 75
end
+ object cxGridViewPROCEDENCIA_CLIENTE: TcxGridDBColumn
+ Caption = 'Procedencia'
+ DataBinding.FieldName = 'PROCEDENCIA_CLIENTE'
+ end
object cxGridViewNOMBRE: TcxGridDBColumn
Caption = 'Nombre'
DataBinding.FieldName = 'NOMBRE'
@@ -213,6 +217,11 @@ inherited frViewContratosCliente: TfrViewContratosCliente
object TBXItem3: TTBXItem
Action = actCliente
end
+ object TBXSeparatorItem1: TTBXSeparatorItem
+ end
+ object TBXItem2: TTBXItem
+ Action = actProcedencia
+ end
end
end
end
@@ -238,6 +247,11 @@ inherited frViewContratosCliente: TfrViewContratosCliente
OnExecute = actClienteExecute
OnUpdate = actClienteUpdate
end
+ object actProcedencia: TAction
+ Caption = 'Procedencia'
+ OnExecute = actProcedenciaExecute
+ OnUpdate = actProcedenciaUpdate
+ end
end
inherited GridPNGImageList: TPngImageList
PngImages = <
diff --git a/Source/Modulos/Contratos de cliente/Views/uViewContratosCliente.pas b/Source/Modulos/Contratos de cliente/Views/uViewContratosCliente.pas
index 954d4a8..ccf2806 100644
--- a/Source/Modulos/Contratos de cliente/Views/uViewContratosCliente.pas
+++ b/Source/Modulos/Contratos de cliente/Views/uViewContratosCliente.pas
@@ -46,6 +46,10 @@ type
cxGridViewIVA: TcxGridDBColumn;
cxGridViewBASE_IMPONIBLE: TcxGridDBColumn;
cxGridViewNOMBRE_COMERCIAL_CLIENTE: TcxGridDBColumn;
+ cxGridViewPROCEDENCIA_CLIENTE: TcxGridDBColumn;
+ TBXSeparatorItem1: TTBXSeparatorItem;
+ TBXItem2: TTBXItem;
+ actProcedencia: TAction;
procedure cxGridActiveTabChanged(Sender: TcxCustomGrid; ALevel:
TcxGridLevel);
procedure cxGridViewStylesGetContentStyle(Sender: TcxCustomGridTableView;
@@ -65,6 +69,8 @@ type
ADataController: TcxCustomDataController; ARecordIndex1, ARecordIndex2,
AItemIndex: Integer; const V1, V2: Variant; var Compare: Integer);
procedure frViewFiltroBase1actQuitarFiltroExecute(Sender: TObject);
+ procedure actProcedenciaExecute(Sender: TObject);
+ procedure actProcedenciaUpdate(Sender: TObject);
private
//Filtros relativos a la vista
@@ -110,6 +116,26 @@ begin
(Sender as TAction).Checked := not (cxGridViewNOMBRE.GroupIndex < 0);
end;
+procedure TfrViewContratosCliente.actProcedenciaExecute(Sender: TObject);
+begin
+ if (cxGridViewPROCEDENCIA_CLIENTE.GroupIndex < 0) then
+ begin
+ cxGridViewPROCEDENCIA_CLIENTE.GroupIndex := cxGridView.GroupedColumnCount;
+ cxGridViewPROCEDENCIA_CLIENTE.Visible := False;
+ end
+ else
+ begin
+ cxGridViewPROCEDENCIA_CLIENTE.GroupIndex := -1;
+ cxGridViewPROCEDENCIA_CLIENTE.Visible := True;
+ end;
+end;
+
+procedure TfrViewContratosCliente.actProcedenciaUpdate(Sender: TObject);
+begin
+ inherited;
+ (Sender as TAction).Checked := not (cxGridViewREFERENCIA_CLIENTE.GroupIndex < 0);
+end;
+
procedure TfrViewContratosCliente.AnadirFiltroFechas;
var
Columna: TcxGridDBColumn;
diff --git a/Source/Modulos/Facturas de cliente/Data/uDataModuleFacturasCliente.dfm b/Source/Modulos/Facturas de cliente/Data/uDataModuleFacturasCliente.dfm
index 3adf71d..7cc42b3 100644
--- a/Source/Modulos/Facturas de cliente/Data/uDataModuleFacturasCliente.dfm
+++ b/Source/Modulos/Facturas de cliente/Data/uDataModuleFacturasCliente.dfm
@@ -164,6 +164,11 @@ inherited DataModuleFacturasCliente: TDataModuleFacturasCliente
ServerAutoRefresh = True
DictionaryEntry = 'FacturasCliente_NOMBRE_COMERCIAL_CLIENTE'
end
+ item
+ Name = 'PROCEDENCIA_CLIENTE'
+ DataType = datString
+ Size = 255
+ end
item
Name = 'NIF_CIF'
DataType = datString
diff --git a/Source/Modulos/Facturas de cliente/Model/schFacturasClienteClient_Intf.pas b/Source/Modulos/Facturas de cliente/Model/schFacturasClienteClient_Intf.pas
index 1b39e66..2451ef9 100644
--- a/Source/Modulos/Facturas de cliente/Model/schFacturasClienteClient_Intf.pas
+++ b/Source/Modulos/Facturas de cliente/Model/schFacturasClienteClient_Intf.pas
@@ -9,9 +9,9 @@ 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_ListaAnosFacturas = '{7D65E46A-1501-412C-A702-00A1827BA01E}';
- RID_FacturasCliente = '{7CBEA816-E87B-47DF-AF37-8A26F50A8F89}';
- RID_FacturasCliente_Detalles = '{01274CC5-0F80-420B-9D15-D762FD8FAACA}';
+ RID_ListaAnosFacturas = '{B9CBCAB7-D06E-41B6-A2AF-5DE26CB818F4}';
+ RID_FacturasCliente = '{C3E309EB-4021-4446-81DD-452C015CA0FA}';
+ RID_FacturasCliente_Detalles = '{AF710A72-947F-483D-8DAD-66A9E58E0541}';
{ Data table names }
nme_ListaAnosFacturas = 'ListaAnosFacturas';
@@ -46,6 +46,7 @@ const
fld_FacturasClienteREFERENCIA_CLIENTE = 'REFERENCIA_CLIENTE';
fld_FacturasClienteNOMBRE_CLIENTE = 'NOMBRE_CLIENTE';
fld_FacturasClienteNOMBRE_COMERCIAL_CLIENTE = 'NOMBRE_COMERCIAL_CLIENTE';
+ fld_FacturasClientePROCEDENCIA_CLIENTE = 'PROCEDENCIA_CLIENTE';
fld_FacturasClienteNIF_CIF = 'NIF_CIF';
fld_FacturasClienteNOMBRE = 'NOMBRE';
fld_FacturasClienteID_DIRECCION = 'ID_DIRECCION';
@@ -101,38 +102,39 @@ const
idx_FacturasClienteREFERENCIA_CLIENTE = 18;
idx_FacturasClienteNOMBRE_CLIENTE = 19;
idx_FacturasClienteNOMBRE_COMERCIAL_CLIENTE = 20;
- idx_FacturasClienteNIF_CIF = 21;
- idx_FacturasClienteNOMBRE = 22;
- idx_FacturasClienteID_DIRECCION = 23;
- idx_FacturasClienteCALLE = 24;
- idx_FacturasClientePOBLACION = 25;
- idx_FacturasClientePROVINCIA = 26;
- idx_FacturasClienteCODIGO_POSTAL = 27;
- idx_FacturasClienteFECHA_ALTA = 28;
- idx_FacturasClienteFECHA_MODIFICACION = 29;
- idx_FacturasClienteUSUARIO = 30;
- idx_FacturasClienteID_FORMA_PAGO = 31;
- idx_FacturasClienteRECARGO_EQUIVALENCIA = 32;
- idx_FacturasClienteID_TIPO_IVA = 33;
- idx_FacturasClienteIMPORTE_NETO = 34;
- idx_FacturasClienteIMPORTE_PORTE = 35;
- idx_FacturasClienteID_AGENTE = 36;
- idx_FacturasClienteREFERENCIA_COMISION = 37;
- idx_FacturasClienteIGNORAR_CONTABILIDAD = 38;
- idx_FacturasClienteID_TIENDA = 39;
- idx_FacturasClienteTIENDA = 40;
- idx_FacturasClienteID_SUBCUENTA = 41;
- idx_FacturasClienteSUBCUENTA = 42;
- idx_FacturasClienteID_EJERCICIO = 43;
- idx_FacturasClienteESTADO_EJERCICIO = 44;
- idx_FacturasClienteASIENTO_PUNTEADO = 45;
- idx_FacturasClienteID_CONTRATO = 46;
- idx_FacturasClienteREF_CONTRATO = 47;
- idx_FacturasClienteREF_CLI_CONTRATO = 48;
- idx_FacturasClienteSIN_COMISION = 49;
- idx_FacturasClienteRETENCION = 50;
- idx_FacturasClienteIMPORTE_RETENCION = 51;
- idx_FacturasClienteFECHA_RETENCION = 52;
+ idx_FacturasClientePROCEDENCIA_CLIENTE = 21;
+ idx_FacturasClienteNIF_CIF = 22;
+ idx_FacturasClienteNOMBRE = 23;
+ idx_FacturasClienteID_DIRECCION = 24;
+ idx_FacturasClienteCALLE = 25;
+ idx_FacturasClientePOBLACION = 26;
+ idx_FacturasClientePROVINCIA = 27;
+ idx_FacturasClienteCODIGO_POSTAL = 28;
+ idx_FacturasClienteFECHA_ALTA = 29;
+ idx_FacturasClienteFECHA_MODIFICACION = 30;
+ idx_FacturasClienteUSUARIO = 31;
+ idx_FacturasClienteID_FORMA_PAGO = 32;
+ idx_FacturasClienteRECARGO_EQUIVALENCIA = 33;
+ idx_FacturasClienteID_TIPO_IVA = 34;
+ idx_FacturasClienteIMPORTE_NETO = 35;
+ idx_FacturasClienteIMPORTE_PORTE = 36;
+ idx_FacturasClienteID_AGENTE = 37;
+ idx_FacturasClienteREFERENCIA_COMISION = 38;
+ idx_FacturasClienteIGNORAR_CONTABILIDAD = 39;
+ idx_FacturasClienteID_TIENDA = 40;
+ idx_FacturasClienteTIENDA = 41;
+ idx_FacturasClienteID_SUBCUENTA = 42;
+ idx_FacturasClienteSUBCUENTA = 43;
+ idx_FacturasClienteID_EJERCICIO = 44;
+ idx_FacturasClienteESTADO_EJERCICIO = 45;
+ idx_FacturasClienteASIENTO_PUNTEADO = 46;
+ idx_FacturasClienteID_CONTRATO = 47;
+ idx_FacturasClienteREF_CONTRATO = 48;
+ idx_FacturasClienteREF_CLI_CONTRATO = 49;
+ idx_FacturasClienteSIN_COMISION = 50;
+ idx_FacturasClienteRETENCION = 51;
+ idx_FacturasClienteIMPORTE_RETENCION = 52;
+ idx_FacturasClienteFECHA_RETENCION = 53;
{ FacturasCliente_Detalles fields }
fld_FacturasCliente_DetallesID = 'ID';
@@ -171,7 +173,7 @@ const
type
{ IListaAnosFacturas }
IListaAnosFacturas = interface(IDAStronglyTypedDataTable)
- ['{C550D0F5-A742-4987-B656-2D1B8536B137}']
+ ['{BFABF626-A281-4D4E-B44B-7B40EADA006D}']
{ Property getters and setters }
function GetANOValue: String;
procedure SetANOValue(const aValue: String);
@@ -206,7 +208,7 @@ type
{ IFacturasCliente }
IFacturasCliente = interface(IDAStronglyTypedDataTable)
- ['{5952F24E-C317-4659-B13F-23500E1555FF}']
+ ['{9539259F-170A-4008-BB16-3F91D42113EB}']
{ Property getters and setters }
function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer);
@@ -291,6 +293,10 @@ type
procedure SetNOMBRE_COMERCIAL_CLIENTEValue(const aValue: String);
function GetNOMBRE_COMERCIAL_CLIENTEIsNull: Boolean;
procedure SetNOMBRE_COMERCIAL_CLIENTEIsNull(const aValue: Boolean);
+ function GetPROCEDENCIA_CLIENTEValue: String;
+ procedure SetPROCEDENCIA_CLIENTEValue(const aValue: String);
+ function GetPROCEDENCIA_CLIENTEIsNull: Boolean;
+ procedure SetPROCEDENCIA_CLIENTEIsNull(const aValue: Boolean);
function GetNIF_CIFValue: String;
procedure SetNIF_CIFValue(const aValue: String);
function GetNIF_CIFIsNull: Boolean;
@@ -464,6 +470,8 @@ type
property NOMBRE_CLIENTEIsNull: Boolean read GetNOMBRE_CLIENTEIsNull write SetNOMBRE_CLIENTEIsNull;
property NOMBRE_COMERCIAL_CLIENTE: String read GetNOMBRE_COMERCIAL_CLIENTEValue write SetNOMBRE_COMERCIAL_CLIENTEValue;
property NOMBRE_COMERCIAL_CLIENTEIsNull: Boolean read GetNOMBRE_COMERCIAL_CLIENTEIsNull write SetNOMBRE_COMERCIAL_CLIENTEIsNull;
+ property PROCEDENCIA_CLIENTE: String read GetPROCEDENCIA_CLIENTEValue write SetPROCEDENCIA_CLIENTEValue;
+ property PROCEDENCIA_CLIENTEIsNull: Boolean read GetPROCEDENCIA_CLIENTEIsNull write SetPROCEDENCIA_CLIENTEIsNull;
property NIF_CIF: String read GetNIF_CIFValue write SetNIF_CIFValue;
property NIF_CIFIsNull: Boolean read GetNIF_CIFIsNull write SetNIF_CIFIsNull;
property NOMBRE: String read GetNOMBREValue write SetNOMBREValue;
@@ -620,6 +628,10 @@ type
procedure SetNOMBRE_COMERCIAL_CLIENTEValue(const aValue: String); virtual;
function GetNOMBRE_COMERCIAL_CLIENTEIsNull: Boolean; virtual;
procedure SetNOMBRE_COMERCIAL_CLIENTEIsNull(const aValue: Boolean); virtual;
+ function GetPROCEDENCIA_CLIENTEValue: String; virtual;
+ procedure SetPROCEDENCIA_CLIENTEValue(const aValue: String); virtual;
+ function GetPROCEDENCIA_CLIENTEIsNull: Boolean; virtual;
+ procedure SetPROCEDENCIA_CLIENTEIsNull(const aValue: Boolean); virtual;
function GetNIF_CIFValue: String; virtual;
procedure SetNIF_CIFValue(const aValue: String); virtual;
function GetNIF_CIFIsNull: Boolean; virtual;
@@ -792,6 +804,8 @@ type
property NOMBRE_CLIENTEIsNull: Boolean read GetNOMBRE_CLIENTEIsNull write SetNOMBRE_CLIENTEIsNull;
property NOMBRE_COMERCIAL_CLIENTE: String read GetNOMBRE_COMERCIAL_CLIENTEValue write SetNOMBRE_COMERCIAL_CLIENTEValue;
property NOMBRE_COMERCIAL_CLIENTEIsNull: Boolean read GetNOMBRE_COMERCIAL_CLIENTEIsNull write SetNOMBRE_COMERCIAL_CLIENTEIsNull;
+ property PROCEDENCIA_CLIENTE: String read GetPROCEDENCIA_CLIENTEValue write SetPROCEDENCIA_CLIENTEValue;
+ property PROCEDENCIA_CLIENTEIsNull: Boolean read GetPROCEDENCIA_CLIENTEIsNull write SetPROCEDENCIA_CLIENTEIsNull;
property NIF_CIF: String read GetNIF_CIFValue write SetNIF_CIFValue;
property NIF_CIFIsNull: Boolean read GetNIF_CIFIsNull write SetNIF_CIFIsNull;
property NOMBRE: String read GetNOMBREValue write SetNOMBREValue;
@@ -865,7 +879,7 @@ type
{ IFacturasCliente_Detalles }
IFacturasCliente_Detalles = interface(IDAStronglyTypedDataTable)
- ['{75045275-7B22-4D9A-A1BF-D5169B86855C}']
+ ['{FE6D0998-F3A0-4271-9C1D-1840F9E1F578}']
{ Property getters and setters }
function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer);
@@ -1562,6 +1576,27 @@ begin
DataTable.Fields[idx_FacturasClienteNOMBRE_COMERCIAL_CLIENTE].AsVariant := Null;
end;
+function TFacturasClienteDataTableRules.GetPROCEDENCIA_CLIENTEValue: String;
+begin
+ result := DataTable.Fields[idx_FacturasClientePROCEDENCIA_CLIENTE].AsString;
+end;
+
+procedure TFacturasClienteDataTableRules.SetPROCEDENCIA_CLIENTEValue(const aValue: String);
+begin
+ DataTable.Fields[idx_FacturasClientePROCEDENCIA_CLIENTE].AsString := aValue;
+end;
+
+function TFacturasClienteDataTableRules.GetPROCEDENCIA_CLIENTEIsNull: boolean;
+begin
+ result := DataTable.Fields[idx_FacturasClientePROCEDENCIA_CLIENTE].IsNull;
+end;
+
+procedure TFacturasClienteDataTableRules.SetPROCEDENCIA_CLIENTEIsNull(const aValue: Boolean);
+begin
+ if aValue then
+ DataTable.Fields[idx_FacturasClientePROCEDENCIA_CLIENTE].AsVariant := Null;
+end;
+
function TFacturasClienteDataTableRules.GetNIF_CIFValue: String;
begin
result := DataTable.Fields[idx_FacturasClienteNIF_CIF].AsString;
diff --git a/Source/Modulos/Facturas de cliente/Model/schFacturasClienteServer_Intf.pas b/Source/Modulos/Facturas de cliente/Model/schFacturasClienteServer_Intf.pas
index b14e0e9..7efa8fa 100644
--- a/Source/Modulos/Facturas de cliente/Model/schFacturasClienteServer_Intf.pas
+++ b/Source/Modulos/Facturas de cliente/Model/schFacturasClienteServer_Intf.pas
@@ -9,14 +9,14 @@ 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_ListaAnosFacturasDelta = '{491A2F25-2666-44F0-9840-E59A6F5FE91C}';
- RID_FacturasClienteDelta = '{E71F6BB9-24D4-45DC-872F-63B1B6081CEA}';
- RID_FacturasCliente_DetallesDelta = '{1AA87512-9077-40A2-80E2-62DEBD690640}';
+ RID_ListaAnosFacturasDelta = '{488EEBD9-F334-4412-B42F-CD53EDADEFF2}';
+ RID_FacturasClienteDelta = '{75964CD6-B60B-485C-BEA0-AF384F111E00}';
+ RID_FacturasCliente_DetallesDelta = '{D8C6075B-EF61-4846-9BC6-F4CD5D416FBD}';
type
{ IListaAnosFacturasDelta }
IListaAnosFacturasDelta = interface(IListaAnosFacturas)
- ['{491A2F25-2666-44F0-9840-E59A6F5FE91C}']
+ ['{488EEBD9-F334-4412-B42F-CD53EDADEFF2}']
{ Property getters and setters }
function GetOldANOValue : String;
@@ -50,7 +50,7 @@ type
{ IFacturasClienteDelta }
IFacturasClienteDelta = interface(IFacturasCliente)
- ['{E71F6BB9-24D4-45DC-872F-63B1B6081CEA}']
+ ['{75964CD6-B60B-485C-BEA0-AF384F111E00}']
{ Property getters and setters }
function GetOldIDValue : Integer;
function GetOldID_EMPRESAValue : Integer;
@@ -73,6 +73,7 @@ type
function GetOldREFERENCIA_CLIENTEValue : String;
function GetOldNOMBRE_CLIENTEValue : String;
function GetOldNOMBRE_COMERCIAL_CLIENTEValue : String;
+ function GetOldPROCEDENCIA_CLIENTEValue : String;
function GetOldNIF_CIFValue : String;
function GetOldNOMBREValue : String;
function GetOldID_DIRECCIONValue : Integer;
@@ -128,6 +129,7 @@ type
property OldREFERENCIA_CLIENTE : String read GetOldREFERENCIA_CLIENTEValue;
property OldNOMBRE_CLIENTE : String read GetOldNOMBRE_CLIENTEValue;
property OldNOMBRE_COMERCIAL_CLIENTE : String read GetOldNOMBRE_COMERCIAL_CLIENTEValue;
+ property OldPROCEDENCIA_CLIENTE : String read GetOldPROCEDENCIA_CLIENTEValue;
property OldNIF_CIF : String read GetOldNIF_CIFValue;
property OldNOMBRE : String read GetOldNOMBREValue;
property OldID_DIRECCION : Integer read GetOldID_DIRECCIONValue;
@@ -294,6 +296,12 @@ type
function GetOldNOMBRE_COMERCIAL_CLIENTEIsNull: Boolean; virtual;
procedure SetNOMBRE_COMERCIAL_CLIENTEValue(const aValue: String); virtual;
procedure SetNOMBRE_COMERCIAL_CLIENTEIsNull(const aValue: Boolean); virtual;
+ function GetPROCEDENCIA_CLIENTEValue: String; virtual;
+ function GetPROCEDENCIA_CLIENTEIsNull: Boolean; virtual;
+ function GetOldPROCEDENCIA_CLIENTEValue: String; virtual;
+ function GetOldPROCEDENCIA_CLIENTEIsNull: Boolean; virtual;
+ procedure SetPROCEDENCIA_CLIENTEValue(const aValue: String); virtual;
+ procedure SetPROCEDENCIA_CLIENTEIsNull(const aValue: Boolean); virtual;
function GetNIF_CIFValue: String; virtual;
function GetNIF_CIFIsNull: Boolean; virtual;
function GetOldNIF_CIFValue: String; virtual;
@@ -572,6 +580,10 @@ type
property NOMBRE_COMERCIAL_CLIENTEIsNull : Boolean read GetNOMBRE_COMERCIAL_CLIENTEIsNull write SetNOMBRE_COMERCIAL_CLIENTEIsNull;
property OldNOMBRE_COMERCIAL_CLIENTE : String read GetOldNOMBRE_COMERCIAL_CLIENTEValue;
property OldNOMBRE_COMERCIAL_CLIENTEIsNull : Boolean read GetOldNOMBRE_COMERCIAL_CLIENTEIsNull;
+ property PROCEDENCIA_CLIENTE : String read GetPROCEDENCIA_CLIENTEValue write SetPROCEDENCIA_CLIENTEValue;
+ property PROCEDENCIA_CLIENTEIsNull : Boolean read GetPROCEDENCIA_CLIENTEIsNull write SetPROCEDENCIA_CLIENTEIsNull;
+ property OldPROCEDENCIA_CLIENTE : String read GetOldPROCEDENCIA_CLIENTEValue;
+ property OldPROCEDENCIA_CLIENTEIsNull : Boolean read GetOldPROCEDENCIA_CLIENTEIsNull;
property NIF_CIF : String read GetNIF_CIFValue write SetNIF_CIFValue;
property NIF_CIFIsNull : Boolean read GetNIF_CIFIsNull write SetNIF_CIFIsNull;
property OldNIF_CIF : String read GetOldNIF_CIFValue;
@@ -709,7 +721,7 @@ type
{ IFacturasCliente_DetallesDelta }
IFacturasCliente_DetallesDelta = interface(IFacturasCliente_Detalles)
- ['{1AA87512-9077-40A2-80E2-62DEBD690640}']
+ ['{D8C6075B-EF61-4846-9BC6-F4CD5D416FBD}']
{ Property getters and setters }
function GetOldIDValue : Integer;
function GetOldID_FACTURAValue : Integer;
@@ -1627,6 +1639,37 @@ begin
BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasClienteNOMBRE_COMERCIAL_CLIENTE] := Null;
end;
+function TFacturasClienteBusinessProcessorRules.GetPROCEDENCIA_CLIENTEValue: String;
+begin
+ result := BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasClientePROCEDENCIA_CLIENTE];
+end;
+
+function TFacturasClienteBusinessProcessorRules.GetPROCEDENCIA_CLIENTEIsNull: Boolean;
+begin
+ result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasClientePROCEDENCIA_CLIENTE]);
+end;
+
+function TFacturasClienteBusinessProcessorRules.GetOldPROCEDENCIA_CLIENTEValue: String;
+begin
+ result := BusinessProcessor.CurrentChange.OldValueByName[fld_FacturasClientePROCEDENCIA_CLIENTE];
+end;
+
+function TFacturasClienteBusinessProcessorRules.GetOldPROCEDENCIA_CLIENTEIsNull: Boolean;
+begin
+ result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_FacturasClientePROCEDENCIA_CLIENTE]);
+end;
+
+procedure TFacturasClienteBusinessProcessorRules.SetPROCEDENCIA_CLIENTEValue(const aValue: String);
+begin
+ BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasClientePROCEDENCIA_CLIENTE] := aValue;
+end;
+
+procedure TFacturasClienteBusinessProcessorRules.SetPROCEDENCIA_CLIENTEIsNull(const aValue: Boolean);
+begin
+ if aValue then
+ BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasClientePROCEDENCIA_CLIENTE] := Null;
+end;
+
function TFacturasClienteBusinessProcessorRules.GetNIF_CIFValue: String;
begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasClienteNIF_CIF];
diff --git a/Source/Modulos/Facturas de cliente/Servidor/srvFacturasCliente_Impl.dfm b/Source/Modulos/Facturas de cliente/Servidor/srvFacturasCliente_Impl.dfm
index 33c9d01..2e86588 100644
--- a/Source/Modulos/Facturas de cliente/Servidor/srvFacturasCliente_Impl.dfm
+++ b/Source/Modulos/Facturas de cliente/Servidor/srvFacturasCliente_Impl.dfm
@@ -259,6 +259,10 @@ object srvFacturasCliente: TsrvFacturasCliente
item
DatasetField = 'FECHA_RETENCION'
TableField = 'FECHA_RETENCION'
+ end
+ item
+ DatasetField = 'PROCEDENCIA_CLIENTE'
+ TableField = 'PROCEDENCIA_CLIENTE'
end>
end>
Name = 'FacturasCliente'
@@ -378,6 +382,11 @@ object srvFacturasCliente: TsrvFacturasCliente
ServerAutoRefresh = True
DictionaryEntry = 'FacturasCliente_NOMBRE_COMERCIAL_CLIENTE'
end
+ item
+ Name = 'PROCEDENCIA_CLIENTE'
+ DataType = datString
+ Size = 255
+ end
item
Name = 'NIF_CIF'
DataType = datString
diff --git a/Source/Modulos/Facturas de cliente/Views/uViewFacturasCliente.dfm b/Source/Modulos/Facturas de cliente/Views/uViewFacturasCliente.dfm
index 865b831..55de7e2 100644
--- a/Source/Modulos/Facturas de cliente/Views/uViewFacturasCliente.dfm
+++ b/Source/Modulos/Facturas de cliente/Views/uViewFacturasCliente.dfm
@@ -68,6 +68,10 @@ inherited frViewFacturasCliente: TfrViewFacturasCliente
DataBinding.FieldName = 'NIF_CIF'
Visible = False
end
+ object cxGridViewPROCEDENCIA_CLIENTE: TcxGridDBColumn
+ Caption = 'Procedencia'
+ DataBinding.FieldName = 'PROCEDENCIA_CLIENTE'
+ end
object cxGridViewNOMBRE: TcxGridDBColumn
Caption = 'Raz'#243'n social'
DataBinding.FieldName = 'NOMBRE'
@@ -249,6 +253,11 @@ inherited frViewFacturasCliente: TfrViewFacturasCliente
object TBXItem2: TTBXItem
Action = actProvincia
end
+ object TBXSeparatorItem3: TTBXSeparatorItem
+ end
+ object TBXItem4: TTBXItem
+ Action = actProcedencia
+ end
end
end
end
@@ -269,6 +278,11 @@ inherited frViewFacturasCliente: TfrViewFacturasCliente
OnExecute = actProvinciaExecute
OnUpdate = actProvinciaUpdate
end
+ object actProcedencia: TAction
+ Caption = 'Procedencia'
+ OnExecute = actProcedenciaExecute
+ OnUpdate = actProcedenciaUpdate
+ end
end
inherited GridPNGImageList: TPngImageList
PngImages = <
diff --git a/Source/Modulos/Facturas de cliente/Views/uViewFacturasCliente.pas b/Source/Modulos/Facturas de cliente/Views/uViewFacturasCliente.pas
index dc98867..b82b51d 100644
--- a/Source/Modulos/Facturas de cliente/Views/uViewFacturasCliente.pas
+++ b/Source/Modulos/Facturas de cliente/Views/uViewFacturasCliente.pas
@@ -64,6 +64,10 @@ type
cxGridViewFECHA_VENCIMIENTO: TcxGridDBColumn;
cxGridViewREF_CLI_CONTRATO: TcxGridDBColumn;
cxGridViewIMPORTE_RETENIDO: TcxGridDBColumn;
+ cxGridViewPROCEDENCIA_CLIENTE: TcxGridDBColumn;
+ actProcedencia: TAction;
+ TBXSeparatorItem3: TTBXSeparatorItem;
+ TBXItem4: TTBXItem;
procedure cxGridViewStylesGetContentStyle(Sender: TcxCustomGridTableView;
ARecord: TcxCustomGridRecord; AItem: TcxCustomGridTableItem;
out AStyle: TcxStyle);
@@ -72,6 +76,8 @@ type
procedure actProvinciaExecute(Sender: TObject);
procedure actProvinciaUpdate(Sender: TObject);
procedure actClienteUpdate(Sender: TObject);
+ procedure actProcedenciaExecute(Sender: TObject);
+ procedure actProcedenciaUpdate(Sender: TObject);
private
//Filtros relativos a la vista
@@ -118,6 +124,26 @@ begin
(Sender as TAction).Checked := not (cxGridViewNOMBRE.GroupIndex < 0);
end;
+procedure TfrViewFacturasCliente.actProcedenciaExecute(Sender: TObject);
+begin
+ if (cxGridViewPROCEDENCIA_CLIENTE.GroupIndex < 0) then
+ begin
+ cxGridViewPROCEDENCIA_CLIENTE.GroupIndex := cxGridView.GroupedColumnCount;
+ cxGridViewPROCEDENCIA_CLIENTE.Visible := False;
+ end
+ else
+ begin
+ cxGridViewPROCEDENCIA_CLIENTE.GroupIndex := -1;
+ cxGridViewPROCEDENCIA_CLIENTE.Visible := True;
+ end;
+end;
+
+procedure TfrViewFacturasCliente.actProcedenciaUpdate(Sender: TObject);
+begin
+ inherited;
+ (Sender as TAction).Checked := not (cxGridViewPROCEDENCIA_CLIENTE.GroupIndex < 0);
+end;
+
procedure TfrViewFacturasCliente.actProvinciaExecute(Sender: TObject);
begin
if (cxGridViewPROVINCIA.GroupIndex < 0) then
diff --git a/Source/Modulos/Presupuestos de cliente/Data/uDataModulePresupuestosCliente.dfm b/Source/Modulos/Presupuestos de cliente/Data/uDataModulePresupuestosCliente.dfm
index 66de96c..0448cd6 100644
--- a/Source/Modulos/Presupuestos de cliente/Data/uDataModulePresupuestosCliente.dfm
+++ b/Source/Modulos/Presupuestos de cliente/Data/uDataModulePresupuestosCliente.dfm
@@ -105,6 +105,11 @@ inherited DataModulePresupuestosCliente: TDataModulePresupuestosCliente
DataType = datString
Size = 255
end
+ item
+ Name = 'PROCEDENCIA_CLIENTE'
+ DataType = datString
+ Size = 255
+ end
item
Name = 'PERSONA_CONTACTO'
DataType = datString
diff --git a/Source/Modulos/Presupuestos de cliente/Model/schPresupuestosClienteClient_Intf.pas b/Source/Modulos/Presupuestos de cliente/Model/schPresupuestosClienteClient_Intf.pas
index 763fd65..f366b3f 100644
--- a/Source/Modulos/Presupuestos de cliente/Model/schPresupuestosClienteClient_Intf.pas
+++ b/Source/Modulos/Presupuestos de cliente/Model/schPresupuestosClienteClient_Intf.pas
@@ -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_Valores = '{A5458B62-066F-4E1D-BD46-485BD2F56B42}';
- RID_Propiedades = '{D524BE56-1004-41BB-BD04-5CF981EC5029}';
- RID_ListaAnosPresupuestos = '{BC6293D8-84F1-413E-9723-49BEF6862023}';
- RID_PresupuestosCliente = '{6738C9B3-0BA6-4368-AAF4-C7D8969E6641}';
- RID_CapitulosPresupuesto = '{171AFE2B-90DF-4D2C-876F-7D95CB7837A4}';
- RID_PresupuestosCliente_Detalles = '{3942E16E-4EDC-4292-94DA-DF8391A78D86}';
+ RID_Valores = '{0834AA93-E35A-49DC-AF94-E773B6A9CA62}';
+ RID_Propiedades = '{17AE7480-03AB-4A41-8EF3-E69A56680E19}';
+ RID_ListaAnosPresupuestos = '{70FAE6E3-983F-4DE6-B1E1-413CF42FDF31}';
+ RID_PresupuestosCliente = '{1A1E5F0C-CE49-4D41-A724-1983AB59CBDC}';
+ RID_CapitulosPresupuesto = '{6661C54C-E40A-4951-B048-96586EE3AA6B}';
+ RID_PresupuestosCliente_Detalles = '{97D6EAE0-93C9-4BF4-8E35-B51AB572428B}';
{ Data table names }
nme_Valores = 'Valores';
@@ -68,6 +68,7 @@ const
fld_PresupuestosClienteNIF_CIF = 'NIF_CIF';
fld_PresupuestosClienteNOMBRE = 'NOMBRE';
fld_PresupuestosClienteNOMBRE_COMERCIAL_CLIENTE = 'NOMBRE_COMERCIAL_CLIENTE';
+ fld_PresupuestosClientePROCEDENCIA_CLIENTE = 'PROCEDENCIA_CLIENTE';
fld_PresupuestosClientePERSONA_CONTACTO = 'PERSONA_CONTACTO';
fld_PresupuestosClienteFORMA_PAGO = 'FORMA_PAGO';
fld_PresupuestosClientePLAZO_ENTREGA = 'PLAZO_ENTREGA';
@@ -113,36 +114,37 @@ const
idx_PresupuestosClienteNIF_CIF = 10;
idx_PresupuestosClienteNOMBRE = 11;
idx_PresupuestosClienteNOMBRE_COMERCIAL_CLIENTE = 12;
- idx_PresupuestosClientePERSONA_CONTACTO = 13;
- idx_PresupuestosClienteFORMA_PAGO = 14;
- idx_PresupuestosClientePLAZO_ENTREGA = 15;
- idx_PresupuestosClienteOBSERVACIONES = 16;
- idx_PresupuestosClienteINCIDENCIAS = 17;
- idx_PresupuestosClienteINCIDENCIAS_ACTIVAS = 18;
- idx_PresupuestosClienteFECHA_ALTA = 19;
- idx_PresupuestosClienteFECHA_MODIFICACION = 20;
- idx_PresupuestosClienteUSUARIO = 21;
- idx_PresupuestosClienteIMPORTE_NETO = 22;
- idx_PresupuestosClienteIMPORTE_PORTE = 23;
- idx_PresupuestosClienteDESCUENTO = 24;
- idx_PresupuestosClienteIMPORTE_DESCUENTO = 25;
- idx_PresupuestosClienteBASE_IMPONIBLE = 26;
- idx_PresupuestosClienteID_TIPO_IVA = 27;
- idx_PresupuestosClienteIVA = 28;
- idx_PresupuestosClienteIMPORTE_IVA = 29;
- idx_PresupuestosClienteRE = 30;
- idx_PresupuestosClienteIMPORTE_RE = 31;
- idx_PresupuestosClienteRECARGO_EQUIVALENCIA = 32;
- idx_PresupuestosClienteIMPORTE_TOTAL = 33;
- idx_PresupuestosClienteID_FORMA_PAGO = 34;
- idx_PresupuestosClienteID_TIENDA = 35;
- idx_PresupuestosClienteTIENDA = 36;
- idx_PresupuestosClienteID_VENDEDOR = 37;
- idx_PresupuestosClienteVENDEDOR = 38;
- idx_PresupuestosClienteID_CONTRATO = 39;
- idx_PresupuestosClienteREF_CONTRATO = 40;
- idx_PresupuestosClienteNO_VALORADO = 41;
- idx_PresupuestosClienteTIPO_PRESUPUESTO = 42;
+ idx_PresupuestosClientePROCEDENCIA_CLIENTE = 13;
+ idx_PresupuestosClientePERSONA_CONTACTO = 14;
+ idx_PresupuestosClienteFORMA_PAGO = 15;
+ idx_PresupuestosClientePLAZO_ENTREGA = 16;
+ idx_PresupuestosClienteOBSERVACIONES = 17;
+ idx_PresupuestosClienteINCIDENCIAS = 18;
+ idx_PresupuestosClienteINCIDENCIAS_ACTIVAS = 19;
+ idx_PresupuestosClienteFECHA_ALTA = 20;
+ idx_PresupuestosClienteFECHA_MODIFICACION = 21;
+ idx_PresupuestosClienteUSUARIO = 22;
+ idx_PresupuestosClienteIMPORTE_NETO = 23;
+ idx_PresupuestosClienteIMPORTE_PORTE = 24;
+ idx_PresupuestosClienteDESCUENTO = 25;
+ idx_PresupuestosClienteIMPORTE_DESCUENTO = 26;
+ idx_PresupuestosClienteBASE_IMPONIBLE = 27;
+ idx_PresupuestosClienteID_TIPO_IVA = 28;
+ idx_PresupuestosClienteIVA = 29;
+ idx_PresupuestosClienteIMPORTE_IVA = 30;
+ idx_PresupuestosClienteRE = 31;
+ idx_PresupuestosClienteIMPORTE_RE = 32;
+ idx_PresupuestosClienteRECARGO_EQUIVALENCIA = 33;
+ idx_PresupuestosClienteIMPORTE_TOTAL = 34;
+ idx_PresupuestosClienteID_FORMA_PAGO = 35;
+ idx_PresupuestosClienteID_TIENDA = 36;
+ idx_PresupuestosClienteTIENDA = 37;
+ idx_PresupuestosClienteID_VENDEDOR = 38;
+ idx_PresupuestosClienteVENDEDOR = 39;
+ idx_PresupuestosClienteID_CONTRATO = 40;
+ idx_PresupuestosClienteREF_CONTRATO = 41;
+ idx_PresupuestosClienteNO_VALORADO = 42;
+ idx_PresupuestosClienteTIPO_PRESUPUESTO = 43;
{ CapitulosPresupuesto fields }
fld_CapitulosPresupuestoID = 'ID';
@@ -213,7 +215,7 @@ const
type
{ IValores }
IValores = interface(IDAStronglyTypedDataTable)
- ['{82BB1B56-C980-46F2-83B4-E19163603D0E}']
+ ['{D282ECEC-B93F-4EA3-ABFA-A965C3757F91}']
{ Property getters and setters }
function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer);
@@ -308,7 +310,7 @@ type
{ IPropiedades }
IPropiedades = interface(IDAStronglyTypedDataTable)
- ['{A2B5287A-DDBA-4FE4-A590-0EF30C217613}']
+ ['{E198EC3C-9CF6-49F8-B5C3-249BE63015FA}']
{ Property getters and setters }
function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer);
@@ -355,7 +357,7 @@ type
{ IListaAnosPresupuestos }
IListaAnosPresupuestos = interface(IDAStronglyTypedDataTable)
- ['{0F73757A-1F3C-4249-8624-047E665CC979}']
+ ['{622A6F88-A7CA-4CEA-BAFD-E442F4381D6B}']
{ Property getters and setters }
function GetANOValue: String;
procedure SetANOValue(const aValue: String);
@@ -390,7 +392,7 @@ type
{ IPresupuestosCliente }
IPresupuestosCliente = interface(IDAStronglyTypedDataTable)
- ['{FB47C1AF-80A4-45E1-B9EF-C1A9C6200DD4}']
+ ['{5453A9D9-9D4E-45A0-B568-6230714F144E}']
{ Property getters and setters }
function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer);
@@ -444,6 +446,10 @@ type
procedure SetNOMBRE_COMERCIAL_CLIENTEValue(const aValue: String);
function GetNOMBRE_COMERCIAL_CLIENTEIsNull: Boolean;
procedure SetNOMBRE_COMERCIAL_CLIENTEIsNull(const aValue: Boolean);
+ function GetPROCEDENCIA_CLIENTEValue: String;
+ procedure SetPROCEDENCIA_CLIENTEValue(const aValue: String);
+ function GetPROCEDENCIA_CLIENTEIsNull: Boolean;
+ procedure SetPROCEDENCIA_CLIENTEIsNull(const aValue: Boolean);
function GetPERSONA_CONTACTOValue: String;
procedure SetPERSONA_CONTACTOValue(const aValue: String);
function GetPERSONA_CONTACTOIsNull: Boolean;
@@ -589,6 +595,8 @@ type
property NOMBREIsNull: Boolean read GetNOMBREIsNull write SetNOMBREIsNull;
property NOMBRE_COMERCIAL_CLIENTE: String read GetNOMBRE_COMERCIAL_CLIENTEValue write SetNOMBRE_COMERCIAL_CLIENTEValue;
property NOMBRE_COMERCIAL_CLIENTEIsNull: Boolean read GetNOMBRE_COMERCIAL_CLIENTEIsNull write SetNOMBRE_COMERCIAL_CLIENTEIsNull;
+ property PROCEDENCIA_CLIENTE: String read GetPROCEDENCIA_CLIENTEValue write SetPROCEDENCIA_CLIENTEValue;
+ property PROCEDENCIA_CLIENTEIsNull: Boolean read GetPROCEDENCIA_CLIENTEIsNull write SetPROCEDENCIA_CLIENTEIsNull;
property PERSONA_CONTACTO: String read GetPERSONA_CONTACTOValue write SetPERSONA_CONTACTOValue;
property PERSONA_CONTACTOIsNull: Boolean read GetPERSONA_CONTACTOIsNull write SetPERSONA_CONTACTOIsNull;
property FORMA_PAGO: IROStrings read GetFORMA_PAGOValue;
@@ -716,6 +724,10 @@ type
procedure SetNOMBRE_COMERCIAL_CLIENTEValue(const aValue: String); virtual;
function GetNOMBRE_COMERCIAL_CLIENTEIsNull: Boolean; virtual;
procedure SetNOMBRE_COMERCIAL_CLIENTEIsNull(const aValue: Boolean); virtual;
+ function GetPROCEDENCIA_CLIENTEValue: String; virtual;
+ procedure SetPROCEDENCIA_CLIENTEValue(const aValue: String); virtual;
+ function GetPROCEDENCIA_CLIENTEIsNull: Boolean; virtual;
+ procedure SetPROCEDENCIA_CLIENTEIsNull(const aValue: Boolean); virtual;
function GetPERSONA_CONTACTOValue: String; virtual;
procedure SetPERSONA_CONTACTOValue(const aValue: String); virtual;
function GetPERSONA_CONTACTOIsNull: Boolean; virtual;
@@ -860,6 +872,8 @@ type
property NOMBREIsNull: Boolean read GetNOMBREIsNull write SetNOMBREIsNull;
property NOMBRE_COMERCIAL_CLIENTE: String read GetNOMBRE_COMERCIAL_CLIENTEValue write SetNOMBRE_COMERCIAL_CLIENTEValue;
property NOMBRE_COMERCIAL_CLIENTEIsNull: Boolean read GetNOMBRE_COMERCIAL_CLIENTEIsNull write SetNOMBRE_COMERCIAL_CLIENTEIsNull;
+ property PROCEDENCIA_CLIENTE: String read GetPROCEDENCIA_CLIENTEValue write SetPROCEDENCIA_CLIENTEValue;
+ property PROCEDENCIA_CLIENTEIsNull: Boolean read GetPROCEDENCIA_CLIENTEIsNull write SetPROCEDENCIA_CLIENTEIsNull;
property PERSONA_CONTACTO: String read GetPERSONA_CONTACTOValue write SetPERSONA_CONTACTOValue;
property PERSONA_CONTACTOIsNull: Boolean read GetPERSONA_CONTACTOIsNull write SetPERSONA_CONTACTOIsNull;
property FORMA_PAGO: IROStrings read GetFORMA_PAGOValue;
@@ -929,7 +943,7 @@ type
{ ICapitulosPresupuesto }
ICapitulosPresupuesto = interface(IDAStronglyTypedDataTable)
- ['{D7F2C20E-B842-4066-924B-0A8C8B4E27EF}']
+ ['{00C195F2-9264-45E8-BC16-E58B3A124BF4}']
{ Property getters and setters }
function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer);
@@ -1096,7 +1110,7 @@ type
{ IPresupuestosCliente_Detalles }
IPresupuestosCliente_Detalles = interface(IDAStronglyTypedDataTable)
- ['{54C5E7E0-D737-4603-A4E4-B8507C4870EE}']
+ ['{18A3A177-29EF-45FC-8198-A8BB9F8EAC46}']
{ Property getters and setters }
function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer);
@@ -1872,6 +1886,27 @@ begin
DataTable.Fields[idx_PresupuestosClienteNOMBRE_COMERCIAL_CLIENTE].AsVariant := Null;
end;
+function TPresupuestosClienteDataTableRules.GetPROCEDENCIA_CLIENTEValue: String;
+begin
+ result := DataTable.Fields[idx_PresupuestosClientePROCEDENCIA_CLIENTE].AsString;
+end;
+
+procedure TPresupuestosClienteDataTableRules.SetPROCEDENCIA_CLIENTEValue(const aValue: String);
+begin
+ DataTable.Fields[idx_PresupuestosClientePROCEDENCIA_CLIENTE].AsString := aValue;
+end;
+
+function TPresupuestosClienteDataTableRules.GetPROCEDENCIA_CLIENTEIsNull: boolean;
+begin
+ result := DataTable.Fields[idx_PresupuestosClientePROCEDENCIA_CLIENTE].IsNull;
+end;
+
+procedure TPresupuestosClienteDataTableRules.SetPROCEDENCIA_CLIENTEIsNull(const aValue: Boolean);
+begin
+ if aValue then
+ DataTable.Fields[idx_PresupuestosClientePROCEDENCIA_CLIENTE].AsVariant := Null;
+end;
+
function TPresupuestosClienteDataTableRules.GetPERSONA_CONTACTOValue: String;
begin
result := DataTable.Fields[idx_PresupuestosClientePERSONA_CONTACTO].AsString;
diff --git a/Source/Modulos/Presupuestos de cliente/Model/schPresupuestosClienteServer_Intf.pas b/Source/Modulos/Presupuestos de cliente/Model/schPresupuestosClienteServer_Intf.pas
index 28b0ff5..4e2dcde 100644
--- a/Source/Modulos/Presupuestos de cliente/Model/schPresupuestosClienteServer_Intf.pas
+++ b/Source/Modulos/Presupuestos de cliente/Model/schPresupuestosClienteServer_Intf.pas
@@ -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_ValoresDelta = '{0CBA7710-1287-477B-820B-9EF7C4400800}';
- RID_PropiedadesDelta = '{1CD26D05-AA8C-485F-A54A-129C397B225D}';
- RID_ListaAnosPresupuestosDelta = '{B432068B-A238-4DCA-B2BA-8D3C702695B3}';
- RID_PresupuestosClienteDelta = '{B57C42EA-9FBE-44AF-BAEB-ADA925E76098}';
- RID_CapitulosPresupuestoDelta = '{D4A184E8-DC2B-470F-86FB-2B056293EE0B}';
- RID_PresupuestosCliente_DetallesDelta = '{2B8FD7B3-7D95-4CCC-A0ED-AD1418D4E8E1}';
+ RID_ValoresDelta = '{28CC51B6-31EB-4D5A-AB3E-BCF14B10D91B}';
+ RID_PropiedadesDelta = '{E07D5389-62DE-43D8-BAAE-2F6B04B93095}';
+ RID_ListaAnosPresupuestosDelta = '{1E840130-4E9F-4E9D-8029-856D45DB6840}';
+ RID_PresupuestosClienteDelta = '{3AADD78B-C307-4D80-8720-66E9EDBD28E8}';
+ RID_CapitulosPresupuestoDelta = '{71EB45E6-C9F6-4019-B67C-311A77D7C0B5}';
+ RID_PresupuestosCliente_DetallesDelta = '{B1775824-481D-4B82-9DC5-4FC61FE98E4B}';
type
{ IValoresDelta }
IValoresDelta = interface(IValores)
- ['{0CBA7710-1287-477B-820B-9EF7C4400800}']
+ ['{28CC51B6-31EB-4D5A-AB3E-BCF14B10D91B}']
{ Property getters and setters }
function GetOldIDValue : Integer;
function GetOldID_EMPRESAValue : Integer;
@@ -113,7 +113,7 @@ type
{ IPropiedadesDelta }
IPropiedadesDelta = interface(IPropiedades)
- ['{1CD26D05-AA8C-485F-A54A-129C397B225D}']
+ ['{E07D5389-62DE-43D8-BAAE-2F6B04B93095}']
{ Property getters and setters }
function GetOldIDValue : Integer;
function GetOldDESCRIPCIONValue : String;
@@ -159,7 +159,7 @@ type
{ IListaAnosPresupuestosDelta }
IListaAnosPresupuestosDelta = interface(IListaAnosPresupuestos)
- ['{B432068B-A238-4DCA-B2BA-8D3C702695B3}']
+ ['{1E840130-4E9F-4E9D-8029-856D45DB6840}']
{ Property getters and setters }
function GetOldANOValue : String;
@@ -193,7 +193,7 @@ type
{ IPresupuestosClienteDelta }
IPresupuestosClienteDelta = interface(IPresupuestosCliente)
- ['{B57C42EA-9FBE-44AF-BAEB-ADA925E76098}']
+ ['{3AADD78B-C307-4D80-8720-66E9EDBD28E8}']
{ Property getters and setters }
function GetOldIDValue : Integer;
function GetOldID_EMPRESAValue : Integer;
@@ -208,6 +208,7 @@ type
function GetOldNIF_CIFValue : String;
function GetOldNOMBREValue : String;
function GetOldNOMBRE_COMERCIAL_CLIENTEValue : String;
+ function GetOldPROCEDENCIA_CLIENTEValue : String;
function GetOldPERSONA_CONTACTOValue : String;
function GetOldFORMA_PAGOValue : IROStrings;
function GetOldPLAZO_ENTREGAValue : IROStrings;
@@ -253,6 +254,7 @@ type
property OldNIF_CIF : String read GetOldNIF_CIFValue;
property OldNOMBRE : String read GetOldNOMBREValue;
property OldNOMBRE_COMERCIAL_CLIENTE : String read GetOldNOMBRE_COMERCIAL_CLIENTEValue;
+ property OldPROCEDENCIA_CLIENTE : String read GetOldPROCEDENCIA_CLIENTEValue;
property OldPERSONA_CONTACTO : String read GetOldPERSONA_CONTACTOValue;
property OldFORMA_PAGO : IROStrings read GetOldFORMA_PAGOValue;
property OldPLAZO_ENTREGA : IROStrings read GetOldPLAZO_ENTREGAValue;
@@ -376,6 +378,12 @@ type
function GetOldNOMBRE_COMERCIAL_CLIENTEIsNull: Boolean; virtual;
procedure SetNOMBRE_COMERCIAL_CLIENTEValue(const aValue: String); virtual;
procedure SetNOMBRE_COMERCIAL_CLIENTEIsNull(const aValue: Boolean); virtual;
+ function GetPROCEDENCIA_CLIENTEValue: String; virtual;
+ function GetPROCEDENCIA_CLIENTEIsNull: Boolean; virtual;
+ function GetOldPROCEDENCIA_CLIENTEValue: String; virtual;
+ function GetOldPROCEDENCIA_CLIENTEIsNull: Boolean; virtual;
+ procedure SetPROCEDENCIA_CLIENTEValue(const aValue: String); virtual;
+ procedure SetPROCEDENCIA_CLIENTEIsNull(const aValue: Boolean); virtual;
function GetPERSONA_CONTACTOValue: String; virtual;
function GetPERSONA_CONTACTOIsNull: Boolean; virtual;
function GetOldPERSONA_CONTACTOValue: String; virtual;
@@ -606,6 +614,10 @@ type
property NOMBRE_COMERCIAL_CLIENTEIsNull : Boolean read GetNOMBRE_COMERCIAL_CLIENTEIsNull write SetNOMBRE_COMERCIAL_CLIENTEIsNull;
property OldNOMBRE_COMERCIAL_CLIENTE : String read GetOldNOMBRE_COMERCIAL_CLIENTEValue;
property OldNOMBRE_COMERCIAL_CLIENTEIsNull : Boolean read GetOldNOMBRE_COMERCIAL_CLIENTEIsNull;
+ property PROCEDENCIA_CLIENTE : String read GetPROCEDENCIA_CLIENTEValue write SetPROCEDENCIA_CLIENTEValue;
+ property PROCEDENCIA_CLIENTEIsNull : Boolean read GetPROCEDENCIA_CLIENTEIsNull write SetPROCEDENCIA_CLIENTEIsNull;
+ property OldPROCEDENCIA_CLIENTE : String read GetOldPROCEDENCIA_CLIENTEValue;
+ property OldPROCEDENCIA_CLIENTEIsNull : Boolean read GetOldPROCEDENCIA_CLIENTEIsNull;
property PERSONA_CONTACTO : String read GetPERSONA_CONTACTOValue write SetPERSONA_CONTACTOValue;
property PERSONA_CONTACTOIsNull : Boolean read GetPERSONA_CONTACTOIsNull write SetPERSONA_CONTACTOIsNull;
property OldPERSONA_CONTACTO : String read GetOldPERSONA_CONTACTOValue;
@@ -735,7 +747,7 @@ type
{ ICapitulosPresupuestoDelta }
ICapitulosPresupuestoDelta = interface(ICapitulosPresupuesto)
- ['{D4A184E8-DC2B-470F-86FB-2B056293EE0B}']
+ ['{71EB45E6-C9F6-4019-B67C-311A77D7C0B5}']
{ Property getters and setters }
function GetOldIDValue : Integer;
function GetOldPOSICIONValue : Integer;
@@ -901,7 +913,7 @@ type
{ IPresupuestosCliente_DetallesDelta }
IPresupuestosCliente_DetallesDelta = interface(IPresupuestosCliente_Detalles)
- ['{2B8FD7B3-7D95-4CCC-A0ED-AD1418D4E8E1}']
+ ['{B1775824-481D-4B82-9DC5-4FC61FE98E4B}']
{ Property getters and setters }
function GetOldIDValue : Integer;
function GetOldID_PRESUPUESTOValue : Integer;
@@ -1897,6 +1909,37 @@ begin
BusinessProcessor.CurrentChange.NewValueByName[fld_PresupuestosClienteNOMBRE_COMERCIAL_CLIENTE] := Null;
end;
+function TPresupuestosClienteBusinessProcessorRules.GetPROCEDENCIA_CLIENTEValue: String;
+begin
+ result := BusinessProcessor.CurrentChange.NewValueByName[fld_PresupuestosClientePROCEDENCIA_CLIENTE];
+end;
+
+function TPresupuestosClienteBusinessProcessorRules.GetPROCEDENCIA_CLIENTEIsNull: Boolean;
+begin
+ result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_PresupuestosClientePROCEDENCIA_CLIENTE]);
+end;
+
+function TPresupuestosClienteBusinessProcessorRules.GetOldPROCEDENCIA_CLIENTEValue: String;
+begin
+ result := BusinessProcessor.CurrentChange.OldValueByName[fld_PresupuestosClientePROCEDENCIA_CLIENTE];
+end;
+
+function TPresupuestosClienteBusinessProcessorRules.GetOldPROCEDENCIA_CLIENTEIsNull: Boolean;
+begin
+ result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_PresupuestosClientePROCEDENCIA_CLIENTE]);
+end;
+
+procedure TPresupuestosClienteBusinessProcessorRules.SetPROCEDENCIA_CLIENTEValue(const aValue: String);
+begin
+ BusinessProcessor.CurrentChange.NewValueByName[fld_PresupuestosClientePROCEDENCIA_CLIENTE] := aValue;
+end;
+
+procedure TPresupuestosClienteBusinessProcessorRules.SetPROCEDENCIA_CLIENTEIsNull(const aValue: Boolean);
+begin
+ if aValue then
+ BusinessProcessor.CurrentChange.NewValueByName[fld_PresupuestosClientePROCEDENCIA_CLIENTE] := Null;
+end;
+
function TPresupuestosClienteBusinessProcessorRules.GetPERSONA_CONTACTOValue: String;
begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_PresupuestosClientePERSONA_CONTACTO];
diff --git a/Source/Modulos/Presupuestos de cliente/Servidor/srvPresupuestosCliente_Impl.dfm b/Source/Modulos/Presupuestos de cliente/Servidor/srvPresupuestosCliente_Impl.dfm
index 6976b68..74fb0d8 100644
--- a/Source/Modulos/Presupuestos de cliente/Servidor/srvPresupuestosCliente_Impl.dfm
+++ b/Source/Modulos/Presupuestos de cliente/Servidor/srvPresupuestosCliente_Impl.dfm
@@ -324,6 +324,10 @@ object srvPresupuestosCliente: TsrvPresupuestosCliente
item
DatasetField = 'NOMBRE_COMERCIAL_CLIENTE'
TableField = 'NOMBRE_COMERCIAL_CLIENTE'
+ end
+ item
+ DatasetField = 'PROCEDENCIA_CLIENTE'
+ TableField = 'PROCEDENCIA_CLIENTE'
end>
end>
Name = 'PresupuestosCliente'
@@ -400,6 +404,11 @@ object srvPresupuestosCliente: TsrvPresupuestosCliente
DataType = datString
Size = 255
end
+ item
+ Name = 'PROCEDENCIA_CLIENTE'
+ DataType = datString
+ Size = 255
+ end
item
Name = 'PERSONA_CONTACTO'
DataType = datString
diff --git a/Source/Modulos/Presupuestos de cliente/Views/uViewPresupuestosCliente.dfm b/Source/Modulos/Presupuestos de cliente/Views/uViewPresupuestosCliente.dfm
index cdeb729..91826d3 100644
--- a/Source/Modulos/Presupuestos de cliente/Views/uViewPresupuestosCliente.dfm
+++ b/Source/Modulos/Presupuestos de cliente/Views/uViewPresupuestosCliente.dfm
@@ -108,6 +108,10 @@ inherited frViewPresupuestosCliente: TfrViewPresupuestosCliente
DataBinding.FieldName = 'NOMBRE'
Width = 271
end
+ object cxGridViewPROCEDENCIA_CLIENTE: TcxGridDBColumn
+ Caption = 'Procendencia'
+ DataBinding.FieldName = 'PROCEDENCIA_CLIENTE'
+ end
object cxGridViewBASE_IMPONIBLE: TcxGridDBColumn
Caption = 'Base Imponible'
DataBinding.FieldName = 'BASE_IMPONIBLE'
@@ -216,6 +220,7 @@ inherited frViewPresupuestosCliente: TfrViewPresupuestosCliente
ExplicitWidth = 903
inherited TBXAlignmentPanel1: TTBXAlignmentPanel
Width = 903
+ ExplicitTop = 6
ExplicitWidth = 903
inherited TBXToolbar1: TTBXToolbar
Width = 893
@@ -232,6 +237,11 @@ inherited frViewPresupuestosCliente: TfrViewPresupuestosCliente
Action = actProvincia
Visible = False
end
+ object TBXSeparatorItem3: TTBXSeparatorItem
+ end
+ object TBXItem4: TTBXItem
+ Action = actProcedencia
+ end
end
end
end
@@ -262,6 +272,11 @@ inherited frViewPresupuestosCliente: TfrViewPresupuestosCliente
OnExecute = actProvinciaExecute
OnUpdate = actProvinciaUpdate
end
+ object actProcedencia: TAction
+ Caption = 'Procedencia'
+ OnExecute = actProcedenciaExecute
+ OnUpdate = actProcedenciaUpdate
+ end
end
inherited GridPNGImageList: TPngImageList
PngImages = <
diff --git a/Source/Modulos/Presupuestos de cliente/Views/uViewPresupuestosCliente.pas b/Source/Modulos/Presupuestos de cliente/Views/uViewPresupuestosCliente.pas
index 55cf55d..492c1f3 100644
--- a/Source/Modulos/Presupuestos de cliente/Views/uViewPresupuestosCliente.pas
+++ b/Source/Modulos/Presupuestos de cliente/Views/uViewPresupuestosCliente.pas
@@ -51,6 +51,10 @@ type
cxGridViewIMPORTE_IVA: TcxGridDBColumn;
cxGridViewIVA: TcxGridDBColumn;
cxGridViewNOMBRE_COMERCIAL_CLIENTE: TcxGridDBColumn;
+ cxGridViewPROCEDENCIA_CLIENTE: TcxGridDBColumn;
+ TBXSeparatorItem3: TTBXSeparatorItem;
+ TBXItem4: TTBXItem;
+ actProcedencia: TAction;
procedure cxGridActiveTabChanged(Sender: TcxCustomGrid; ALevel:
TcxGridLevel);
procedure cxGridViewStylesGetContentStyle(Sender: TcxCustomGridTableView;
@@ -76,6 +80,8 @@ type
procedure CustomViewDestroy(Sender: TObject);
procedure CustomViewShow(Sender: TObject);
procedure frViewFiltroBase1actQuitarFiltroExecute(Sender: TObject);
+ procedure actProcedenciaExecute(Sender: TObject);
+ procedure actProcedenciaUpdate(Sender: TObject);
private
//Filtros relativos a la vista
@@ -122,6 +128,26 @@ begin
(Sender as TAction).Checked := not (cxGridViewNOMBRE.GroupIndex < 0);
end;
+procedure TfrViewPresupuestosCliente.actProcedenciaExecute(Sender: TObject);
+begin
+ if (cxGridViewPROCEDENCIA_CLIENTE.GroupIndex < 0) then
+ begin
+ cxGridViewPROCEDENCIA_CLIENTE.GroupIndex := cxGridView.GroupedColumnCount;
+ cxGridViewPROCEDENCIA_CLIENTE.Visible := False;
+ end
+ else
+ begin
+ cxGridViewPROCEDENCIA_CLIENTE.GroupIndex := -1;
+ cxGridViewPROCEDENCIA_CLIENTE.Visible := True;
+ end;
+end;
+
+procedure TfrViewPresupuestosCliente.actProcedenciaUpdate(Sender: TObject);
+begin
+ inherited;
+ (Sender as TAction).Checked := not (cxGridViewPROCEDENCIA_CLIENTE.GroupIndex < 0);
+end;
+
procedure TfrViewPresupuestosCliente.actProvinciaExecute(Sender: TObject);
begin
{
@@ -143,7 +169,7 @@ begin
{
inherited;
(Sender as TAction).Checked := not (cxGridViewPROVINCIA.GroupIndex < 0);
-}
+}
end;
procedure TfrViewPresupuestosCliente.AnadirFiltroFechas;
diff --git a/Source/Modulos/Recibos de cliente/Data/RecibosCliente_data.res b/Source/Modulos/Recibos de cliente/Data/RecibosCliente_data.res
index 1641339..8b251f3 100644
Binary files a/Source/Modulos/Recibos de cliente/Data/RecibosCliente_data.res and b/Source/Modulos/Recibos de cliente/Data/RecibosCliente_data.res differ
diff --git a/Source/Servidor/FactuGES_Server.dpr b/Source/Servidor/FactuGES_Server.dpr
index 57faecf..017d9e0 100644
--- a/Source/Servidor/FactuGES_Server.dpr
+++ b/Source/Servidor/FactuGES_Server.dpr
@@ -135,14 +135,14 @@ uses
schAlbaranesClienteClient_Intf in '..\Modulos\Albaranes de cliente\Model\schAlbaranesClienteClient_Intf.pas',
schAlbaranesClienteServer_Intf in '..\Modulos\Albaranes de cliente\Model\schAlbaranesClienteServer_Intf.pas',
uNumUtils in '..\Base\Utiles\uNumUtils.pas',
- schFacturasClienteClient_Intf in '..\Modulos\Facturas de cliente\Model\schFacturasClienteClient_Intf.pas',
- schFacturasClienteServer_Intf in '..\Modulos\Facturas de cliente\Model\schFacturasClienteServer_Intf.pas',
schContactosClient_Intf in '..\Modulos\Contactos\Model\schContactosClient_Intf.pas',
schContactosServer_Intf in '..\Modulos\Contactos\Model\schContactosServer_Intf.pas',
schPresupuestosClienteClient_Intf in '..\Modulos\Presupuestos de cliente\Model\schPresupuestosClienteClient_Intf.pas',
schPresupuestosClienteServer_Intf in '..\Modulos\Presupuestos de cliente\Model\schPresupuestosClienteServer_Intf.pas',
schContratosClienteClient_Intf in '..\Modulos\Contratos de cliente\Model\schContratosClienteClient_Intf.pas',
- schContratosClienteServer_Intf in '..\Modulos\Contratos de cliente\Model\schContratosClienteServer_Intf.pas';
+ schContratosClienteServer_Intf in '..\Modulos\Contratos de cliente\Model\schContratosClienteServer_Intf.pas',
+ schFacturasClienteClient_Intf in '..\Modulos\Facturas de cliente\Model\schFacturasClienteClient_Intf.pas',
+ schFacturasClienteServer_Intf in '..\Modulos\Facturas de cliente\Model\schFacturasClienteServer_Intf.pas';
{$R *.res}
{$R ..\Servicios\RODLFile.res}
diff --git a/Source/Servidor/FactuGES_Server.dproj b/Source/Servidor/FactuGES_Server.dproj
index 35e3dcd..68ac818 100644
--- a/Source/Servidor/FactuGES_Server.dproj
+++ b/Source/Servidor/FactuGES_Server.dproj
@@ -1,310 +1,309 @@
-
+
-
- {ebdcd25d-40d7-4146-91ec-a0ea4aa1dcd1}
- FactuGES_Server.dpr
- Debug
- AnyCPU
- DCC32
- ..\..\Output\Debug\Servidor\FactuGES_Server.exe
-
-
- 7.0
- False
- False
- 0
- 3
- ..\..\Output\Release\Servidor
- RELEASE
-
-
- 7.0
- 3
- ..\..\Output\Debug\Servidor
- DEBUG;
- True
-
-
- Delphi.Personality
-
-
-FalseTrueFalseTrueFalse2680FalseFalseFalseFalseFalse30821252Rodax Software S.L.2.6.8.0FactuGES (Servidor)2.6.8.0lunes, 11 de abril de 2016 13:37
-
- File C:\Documents and Settings\All Users\Documentos\RAD Studio\5.0\Bpl\dxPScxScheduler2LnkD11.bpl not found
- FactuGES_Server.dpr
-
-
-
-
- MainSource
-
-
-
-
-
-
- TDataAbstractService
-
-
-
-
-
- TDARemoteService
-
-
-
- TRORemoteDataModule
-
-
-
-
-
-
-
-
-
-
-
-
-
-
- TDataAbstractService
-
-
-
-
-
-
- TDataAbstractService
-
-
-
-
-
- TDARemoteService
-
-
-
-
-
-
-
-
-
- TDataModule
-
-
-
- TDataAbstractService
-
-
-
-
-
-
- TDataAbstractService
-
-
-
-
-
-
-
-
-
- TDataModule
-
-
-
- TDARemoteService
-
-
-
-
-
-
-
-
-
- TDataAbstractService
-
-
-
-
-
-
- TDataModule
-
-
-
- TDataAbstractService
-
-
-
-
-
-
- TDataModule
-
-
-
- TDataAbstractService
-
-
-
-
-
-
-
-
-
- TDataAbstractService
-
-
-
- TDataAbstractService
-
-
-
-
-
- TDataAbstractService
-
-
-
-
-
- TDataAbstractService
-
-
-
-
-
-
- TDataAbstractService
-
-
-
-
-
-
-
-
-
- TDataAbstractService
-
-
-
-
-
-
-
- TDataModule
-
-
-
- TDataAbstractService
-
-
-
-
-
-
-
- TDataModule
-
-
-
- TDataAbstractService
-
-
-
-
-
- TDataAbstractService
-
-
-
-
-
-
- TDataModule
-
-
-
- TDataAbstractService
-
-
-
-
-
-
- TDataModule
-
-
-
- TDataAbstractService
-
-
-
-
-
- TDataAbstractService
-
-
-
-
-
-
-
-
- TDataAbstractService
-
-
-
-
-
- TDataAbstractService
-
-
-
- TFrame
-
-
-
- TFrame
-
-
-
- TForm
-
-
-
- TFrame
-
-
-
- TDARemoteService
-
-
-
-
-
-
- TDataModule
-
-
-
-
-
-
-
-
-
-
-
-
-
+
+ {ebdcd25d-40d7-4146-91ec-a0ea4aa1dcd1}
+ FactuGES_Server.dpr
+ Debug
+ AnyCPU
+ DCC32
+ ..\..\Output\Debug\Servidor\FactuGES_Server.exe
+
+
+ 7.0
+ False
+ False
+ 0
+ 3
+ ..\..\Output\Release\Servidor
+ RELEASE
+
+
+ 7.0
+ 3
+ ..\..\Output\Debug\Servidor
+ DEBUG;
+ True
+
+
+ Delphi.Personality
+
+
+ FalseTrueFalseTrueFalse2690FalseFalseFalseFalseFalse30821252Rodax Software S.L.2.6.9.0FactuGES (Servidor)2.6.9.0jueves, 10 de noviembre de 2016 12:17
+ File C:\Documents and Settings\All Users\Documentos\RAD Studio\5.0\Bpl\dxPScxScheduler2LnkD11.bpl not found
+ FactuGES_Server.dpr
+
+
+
+
+ MainSource
+
+
+
+
+
+
+ TDataAbstractService
+
+
+
+
+
+ TDARemoteService
+
+
+
+ TRORemoteDataModule
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+ TDataAbstractService
+
+
+
+
+
+
+ TDataAbstractService
+
+
+
+
+
+ TDARemoteService
+
+
+
+
+
+
+
+
+
+ TDataModule
+
+
+
+ TDataAbstractService
+
+
+
+
+
+
+ TDataAbstractService
+
+
+
+
+
+
+
+
+
+ TDataModule
+
+
+
+ TDARemoteService
+
+
+
+
+
+
+
+
+
+ TDataAbstractService
+
+
+
+
+
+
+ TDataModule
+
+
+
+ TDataAbstractService
+
+
+
+
+
+
+ TDataModule
+
+
+
+ TDataAbstractService
+
+
+
+
+
+
+
+
+
+ TDataAbstractService
+
+
+
+ TDataAbstractService
+
+
+
+
+
+ TDataAbstractService
+
+
+
+
+
+ TDataAbstractService
+
+
+
+
+
+
+ TDataAbstractService
+
+
+
+
+
+
+
+
+
+ TDataAbstractService
+
+
+
+
+
+
+
+ TDataModule
+
+
+
+ TDataAbstractService
+
+
+
+
+
+
+
+ TDataModule
+
+
+
+ TDataAbstractService
+
+
+
+
+
+ TDataAbstractService
+
+
+
+
+
+
+ TDataModule
+
+
+
+ TDataAbstractService
+
+
+
+
+
+
+ TDataModule
+
+
+
+ TDataAbstractService
+
+
+
+
+
+ TDataAbstractService
+
+
+
+
+
+
+
+
+ TDataAbstractService
+
+
+
+
+
+ TDataAbstractService
+
+
+
+ TFrame
+
+
+
+ TFrame
+
+
+
+ TForm
+
+
+
+ TFrame
+
+
+
+ TDARemoteService
+
+
+
+
+
+
+ TDataModule
+
+
+
+
+
+
+
+
+
+
+
+
+