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

Se prepara subida con privilegios de usuarios, inventario primera fasa articulos libres, ver facturas de proveedor asociadas a contrato

Browse Source 
git-svn-id: https://192.168.0.254/svn/Proyectos.Acana_FactuGES2/trunk@674 f4e31baf-9722-1c47-927c-6f952f962d4b
This commit is contained in:
roberto 2019-03-19 16:34:55 +00:00
parent 33bcb9038d
commit 4f9e10b198
43 changed files with 783 additions and 228 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

34
Source/ApplicationBase/Empresas/Controller/uEmpresasController.pas
View File

@ -12,7 +12,8 @@ type
IEmpresasController = interface(IControllerBase) IEmpresasController = interface(IControllerBase)
['{2F0AB21C-4F19-446E-87C4-B9C1038850FC}'] ['{2F0AB21C-4F19-446E-87C4-B9C1038850FC}']
function Buscar(const ID: Integer): IBizEmpresa; 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 Ver(AEmpresa : IBizEmpresa);
procedure VerTodos(AEmpresas: IBizEmpresa); procedure VerTodos(AEmpresas: IBizEmpresa);
function Nuevo : IBizEmpresa; function Nuevo : IBizEmpresa;
@ -54,7 +55,8 @@ type
procedure Anadir(AEmpresa : IBizEmpresa); virtual; procedure Anadir(AEmpresa : IBizEmpresa); virtual;
function Buscar(const ID: Integer): 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; function Nuevo : IBizEmpresa; virtual;
procedure Ver(AEmpresa : IBizEmpresa); virtual; procedure Ver(AEmpresa : IBizEmpresa); virtual;
procedure VerTodos(AEmpresas: IBizEmpresa); virtual; procedure VerTodos(AEmpresas: IBizEmpresa); virtual;
@ -73,8 +75,8 @@ type
implementation implementation
uses uses
uEditorRegistryUtils, cxControls, DB, uFactuGES_App, uDAInterfaces, uEditorRegistryUtils, cxControls, DB, uFactuGES_App,
uDataModuleEmpresas, uIEditorEmpresa, uStringsUtils; uDataModuleEmpresas, uIEditorEmpresa, uStringsUtils, schEmpresasClient_Intf;
{ TEmpresasController } { TEmpresasController }
@ -121,6 +123,30 @@ begin
Result := FDataModule.GetItem(ID) Result := FDataModule.GetItem(ID)
end; 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; function TEmpresasController.BuscarTodos: IBizEmpresa;
begin begin
Result := FDataModule.GetItems; Result := FDataModule.GetItems;

4
Source/ApplicationBase/Empresas/Data/uDataModuleEmpresas.dfm
View File

@ -195,6 +195,10 @@ inherited DataModuleEmpresas: TDataModuleEmpresas
item item
Name = 'NUM_ORDEN' Name = 'NUM_ORDEN'
DataType = datSmallInt DataType = datSmallInt
end
item
Name = 'ID_PERFIL'
DataType = datInteger
end> end>
Params = <> Params = <>
StreamingOptions = [soDisableEventsWhileStreaming] StreamingOptions = [soDisableEventsWhileStreaming]

47
Source/ApplicationBase/Empresas/Model/schEmpresasClient_Intf.pas
View File

@ -9,9 +9,9 @@ const
{ Data table rules ids { Data table rules ids
Feel free to change them to something more human readable Feel free to change them to something more human readable
but make sure they are unique in the context of your application } but make sure they are unique in the context of your application }
RID_EmpresasTiendas = '{2D0CBF0D-F553-4B27-A97E-69F0CB992B85}'; RID_EmpresasTiendas = '{3533FE9D-1F57-4EAD-ADCF-41E9BAE8E0A8}';
RID_Empresas = '{5F68CAB3-AA6C-4548-AA3D-9B2892E399D5}'; RID_Empresas = '{AB7C71EF-D2F3-43E3-928E-83E62A65AD60}';
RID_EmpresasDatosBanco = '{ADA2DFEA-5B7B-4213-AC8B-052718814CFB}'; RID_EmpresasDatosBanco = '{6B72546D-7B98-462F-849E-EC7C95FE01B8}';
{ Data table names } { Data table names }
nme_EmpresasTiendas = 'EmpresasTiendas'; nme_EmpresasTiendas = 'EmpresasTiendas';
@ -81,6 +81,7 @@ const
fld_EmpresasID_FORMA_PAGO = 'ID_FORMA_PAGO'; fld_EmpresasID_FORMA_PAGO = 'ID_FORMA_PAGO';
fld_EmpresasVALIDEZ_PRESUPUESTOS = 'VALIDEZ_PRESUPUESTOS'; fld_EmpresasVALIDEZ_PRESUPUESTOS = 'VALIDEZ_PRESUPUESTOS';
fld_EmpresasNUM_ORDEN = 'NUM_ORDEN'; fld_EmpresasNUM_ORDEN = 'NUM_ORDEN';
fld_EmpresasID_PERFIL = 'ID_PERFIL';
{ Empresas field indexes } { Empresas field indexes }
idx_EmpresasID = 0; idx_EmpresasID = 0;
@ -109,6 +110,7 @@ const
idx_EmpresasID_FORMA_PAGO = 23; idx_EmpresasID_FORMA_PAGO = 23;
idx_EmpresasVALIDEZ_PRESUPUESTOS = 24; idx_EmpresasVALIDEZ_PRESUPUESTOS = 24;
idx_EmpresasNUM_ORDEN = 25; idx_EmpresasNUM_ORDEN = 25;
idx_EmpresasID_PERFIL = 26;
{ EmpresasDatosBanco fields } { EmpresasDatosBanco fields }
fld_EmpresasDatosBancoID = 'ID'; fld_EmpresasDatosBancoID = 'ID';
@ -135,7 +137,7 @@ const
type type
{ IEmpresasTiendas } { IEmpresasTiendas }
IEmpresasTiendas = interface(IDAStronglyTypedDataTable) IEmpresasTiendas = interface(IDAStronglyTypedDataTable)
['{B17D4A25-3C95-4075-9307-CC0A359DA23D}'] ['{DE6BE283-469C-4253-9A99-60E55A11E17C}']
{ Property getters and setters } { Property getters and setters }
function GetIDValue: Integer; function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer); procedure SetIDValue(const aValue: Integer);
@ -350,7 +352,7 @@ type
{ IEmpresas } { IEmpresas }
IEmpresas = interface(IDAStronglyTypedDataTable) IEmpresas = interface(IDAStronglyTypedDataTable)
['{30C607F7-704F-4BB8-B0A3-60242A0731FC}'] ['{D210073A-3C0F-46FD-97FD-3928459451E7}']
{ Property getters and setters } { Property getters and setters }
function GetIDValue: Integer; function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer); procedure SetIDValue(const aValue: Integer);
@ -454,6 +456,10 @@ type
procedure SetNUM_ORDENValue(const aValue: SmallInt); procedure SetNUM_ORDENValue(const aValue: SmallInt);
function GetNUM_ORDENIsNull: Boolean; function GetNUM_ORDENIsNull: Boolean;
procedure SetNUM_ORDENIsNull(const aValue: Boolean); procedure SetNUM_ORDENIsNull(const aValue: Boolean);
function GetID_PERFILValue: Integer;
procedure SetID_PERFILValue(const aValue: Integer);
function GetID_PERFILIsNull: Boolean;
procedure SetID_PERFILIsNull(const aValue: Boolean);
{ Properties } { Properties }
@ -509,6 +515,8 @@ type
property VALIDEZ_PRESUPUESTOSIsNull: Boolean read GetVALIDEZ_PRESUPUESTOSIsNull write SetVALIDEZ_PRESUPUESTOSIsNull; property VALIDEZ_PRESUPUESTOSIsNull: Boolean read GetVALIDEZ_PRESUPUESTOSIsNull write SetVALIDEZ_PRESUPUESTOSIsNull;
property NUM_ORDEN: SmallInt read GetNUM_ORDENValue write SetNUM_ORDENValue; property NUM_ORDEN: SmallInt read GetNUM_ORDENValue write SetNUM_ORDENValue;
property NUM_ORDENIsNull: Boolean read GetNUM_ORDENIsNull write SetNUM_ORDENIsNull; property NUM_ORDENIsNull: Boolean read GetNUM_ORDENIsNull write SetNUM_ORDENIsNull;
property ID_PERFIL: Integer read GetID_PERFILValue write SetID_PERFILValue;
property ID_PERFILIsNull: Boolean read GetID_PERFILIsNull write SetID_PERFILIsNull;
end; end;
{ TEmpresasDataTableRules } { TEmpresasDataTableRules }
@ -622,6 +630,10 @@ type
procedure SetNUM_ORDENValue(const aValue: SmallInt); virtual; procedure SetNUM_ORDENValue(const aValue: SmallInt); virtual;
function GetNUM_ORDENIsNull: Boolean; virtual; function GetNUM_ORDENIsNull: Boolean; virtual;
procedure SetNUM_ORDENIsNull(const aValue: Boolean); virtual; procedure SetNUM_ORDENIsNull(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 } { Properties }
property ID: Integer read GetIDValue write SetIDValue; property ID: Integer read GetIDValue write SetIDValue;
@ -676,6 +688,8 @@ type
property VALIDEZ_PRESUPUESTOSIsNull: Boolean read GetVALIDEZ_PRESUPUESTOSIsNull write SetVALIDEZ_PRESUPUESTOSIsNull; property VALIDEZ_PRESUPUESTOSIsNull: Boolean read GetVALIDEZ_PRESUPUESTOSIsNull write SetVALIDEZ_PRESUPUESTOSIsNull;
property NUM_ORDEN: SmallInt read GetNUM_ORDENValue write SetNUM_ORDENValue; property NUM_ORDEN: SmallInt read GetNUM_ORDENValue write SetNUM_ORDENValue;
property NUM_ORDENIsNull: Boolean read GetNUM_ORDENIsNull write SetNUM_ORDENIsNull; property NUM_ORDENIsNull: Boolean read GetNUM_ORDENIsNull write SetNUM_ORDENIsNull;
property ID_PERFIL: Integer read GetID_PERFILValue write SetID_PERFILValue;
property ID_PERFILIsNull: Boolean read GetID_PERFILIsNull write SetID_PERFILIsNull;
public public
constructor Create(aDataTable: TDADataTable); override; constructor Create(aDataTable: TDADataTable); override;
@ -685,7 +699,7 @@ type
{ IEmpresasDatosBanco } { IEmpresasDatosBanco }
IEmpresasDatosBanco = interface(IDAStronglyTypedDataTable) IEmpresasDatosBanco = interface(IDAStronglyTypedDataTable)
['{F7F1B489-BB1D-40BC-A59A-22B602496003}'] ['{DF6BEEB5-1CC8-4419-A432-D1FC275D5852}']
{ Property getters and setters } { Property getters and setters }
function GetIDValue: Integer; function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer); procedure SetIDValue(const aValue: Integer);
@ -1747,6 +1761,27 @@ begin
DataTable.Fields[idx_EmpresasNUM_ORDEN].AsVariant := Null; DataTable.Fields[idx_EmpresasNUM_ORDEN].AsVariant := Null;
end; 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 } { TEmpresasDatosBancoDataTableRules }
constructor TEmpresasDatosBancoDataTableRules.Create(aDataTable: TDADataTable); constructor TEmpresasDatosBancoDataTableRules.Create(aDataTable: TDADataTable);

55
Source/ApplicationBase/Empresas/Model/schEmpresasServer_Intf.pas
View File

@ -9,14 +9,14 @@ const
{ Delta rules ids { Delta rules ids
Feel free to change them to something more human readable Feel free to change them to something more human readable
but make sure they are unique in the context of your application } but make sure they are unique in the context of your application }
RID_EmpresasTiendasDelta = '{2B441BBC-0852-4F43-9F92-A80D1AEA0015}'; RID_EmpresasTiendasDelta = '{13E84D72-2300-4184-9F8C-B1F4F117CD4A}';
RID_EmpresasDelta = '{075BBDAF-2A9C-4297-B998-07956394B428}'; RID_EmpresasDelta = '{C652CB8F-D35A-4C25-80C6-C18C214FF9F8}';
RID_EmpresasDatosBancoDelta = '{CF3899EF-A340-48E6-ACC6-463D9FB867F1}'; RID_EmpresasDatosBancoDelta = '{D8E33A1D-2CF4-408D-A7EE-68711A3EE24F}';
type type
{ IEmpresasTiendasDelta } { IEmpresasTiendasDelta }
IEmpresasTiendasDelta = interface(IEmpresasTiendas) IEmpresasTiendasDelta = interface(IEmpresasTiendas)
['{2B441BBC-0852-4F43-9F92-A80D1AEA0015}'] ['{13E84D72-2300-4184-9F8C-B1F4F117CD4A}']
{ Property getters and setters } { Property getters and setters }
function GetOldIDValue : Integer; function GetOldIDValue : Integer;
function GetOldID_EMPRESAValue : Integer; function GetOldID_EMPRESAValue : Integer;
@ -231,7 +231,7 @@ type
{ IEmpresasDelta } { IEmpresasDelta }
IEmpresasDelta = interface(IEmpresas) IEmpresasDelta = interface(IEmpresas)
['{075BBDAF-2A9C-4297-B998-07956394B428}'] ['{C652CB8F-D35A-4C25-80C6-C18C214FF9F8}']
{ Property getters and setters } { Property getters and setters }
function GetOldIDValue : Integer; function GetOldIDValue : Integer;
function GetOldNIF_CIFValue : String; function GetOldNIF_CIFValue : String;
@ -259,6 +259,7 @@ type
function GetOldID_FORMA_PAGOValue : SmallInt; function GetOldID_FORMA_PAGOValue : SmallInt;
function GetOldVALIDEZ_PRESUPUESTOSValue : SmallInt; function GetOldVALIDEZ_PRESUPUESTOSValue : SmallInt;
function GetOldNUM_ORDENValue : SmallInt; function GetOldNUM_ORDENValue : SmallInt;
function GetOldID_PERFILValue : Integer;
{ Properties } { Properties }
property OldID : Integer read GetOldIDValue; property OldID : Integer read GetOldIDValue;
@ -287,6 +288,7 @@ type
property OldID_FORMA_PAGO : SmallInt read GetOldID_FORMA_PAGOValue; property OldID_FORMA_PAGO : SmallInt read GetOldID_FORMA_PAGOValue;
property OldVALIDEZ_PRESUPUESTOS : SmallInt read GetOldVALIDEZ_PRESUPUESTOSValue; property OldVALIDEZ_PRESUPUESTOS : SmallInt read GetOldVALIDEZ_PRESUPUESTOSValue;
property OldNUM_ORDEN : SmallInt read GetOldNUM_ORDENValue; property OldNUM_ORDEN : SmallInt read GetOldNUM_ORDENValue;
property OldID_PERFIL : Integer read GetOldID_PERFILValue;
end; end;
{ TEmpresasBusinessProcessorRules } { TEmpresasBusinessProcessorRules }
@ -452,6 +454,12 @@ type
function GetOldNUM_ORDENIsNull: Boolean; virtual; function GetOldNUM_ORDENIsNull: Boolean; virtual;
procedure SetNUM_ORDENValue(const aValue: SmallInt); virtual; procedure SetNUM_ORDENValue(const aValue: SmallInt); virtual;
procedure SetNUM_ORDENIsNull(const aValue: Boolean); virtual; procedure SetNUM_ORDENIsNull(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 } { Properties }
property ID : Integer read GetIDValue write SetIDValue; property ID : Integer read GetIDValue write SetIDValue;
@ -558,6 +566,10 @@ type
property NUM_ORDENIsNull : Boolean read GetNUM_ORDENIsNull write SetNUM_ORDENIsNull; property NUM_ORDENIsNull : Boolean read GetNUM_ORDENIsNull write SetNUM_ORDENIsNull;
property OldNUM_ORDEN : SmallInt read GetOldNUM_ORDENValue; property OldNUM_ORDEN : SmallInt read GetOldNUM_ORDENValue;
property OldNUM_ORDENIsNull : Boolean read GetOldNUM_ORDENIsNull; property OldNUM_ORDENIsNull : Boolean read GetOldNUM_ORDENIsNull;
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 public
constructor Create(aBusinessProcessor: TDABusinessProcessor); override; constructor Create(aBusinessProcessor: TDABusinessProcessor); override;
@ -567,7 +579,7 @@ type
{ IEmpresasDatosBancoDelta } { IEmpresasDatosBancoDelta }
IEmpresasDatosBancoDelta = interface(IEmpresasDatosBanco) IEmpresasDatosBancoDelta = interface(IEmpresasDatosBanco)
['{CF3899EF-A340-48E6-ACC6-463D9FB867F1}'] ['{D8E33A1D-2CF4-408D-A7EE-68711A3EE24F}']
{ Property getters and setters } { Property getters and setters }
function GetOldIDValue : Integer; function GetOldIDValue : Integer;
function GetOldID_EMPRESAValue : Integer; function GetOldID_EMPRESAValue : Integer;
@ -2052,6 +2064,37 @@ begin
BusinessProcessor.CurrentChange.NewValueByName[fld_EmpresasNUM_ORDEN] := Null; BusinessProcessor.CurrentChange.NewValueByName[fld_EmpresasNUM_ORDEN] := Null;
end; 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 } { TEmpresasDatosBancoBusinessProcessorRules }
constructor TEmpresasDatosBancoBusinessProcessorRules.Create(aBusinessProcessor: TDABusinessProcessor); constructor TEmpresasDatosBancoBusinessProcessorRules.Create(aBusinessProcessor: TDABusinessProcessor);

14
Source/ApplicationBase/Empresas/Servidor/srvEmpresas_Impl.dfm
View File

@ -299,6 +299,10 @@ object srvEmpresas: TsrvEmpresas
item item
DatasetField = 'NUM_ORDEN' DatasetField = 'NUM_ORDEN'
TableField = 'NUM_ORDEN' TableField = 'NUM_ORDEN'
end
item
DatasetField = 'ID_PERFIL'
TableField = 'ID_PERFIL'
end> end>
end> end>
Name = 'Empresas' Name = 'Empresas'
@ -449,6 +453,10 @@ object srvEmpresas: TsrvEmpresas
item item
Name = 'NUM_ORDEN' Name = 'NUM_ORDEN'
DataType = datSmallInt DataType = datSmallInt
end
item
Name = 'ID_PERFIL'
DataType = datInteger
end> end>
end end
item item
@ -1228,9 +1236,9 @@ object srvEmpresas: TsrvEmpresas
Top = 90 Top = 90
DiagramData = DiagramData =
'<Diagrams>'#13#10' <Diagram Name="New Diagram" Left="200" Top="200" W' + '<Diagrams>'#13#10' <Diagram Name="New Diagram" Left="200" Top="200" W' +
'idth="400" Height="300">'#13#10' <Entity Name="EmpresasDatosBanco" ' + 'idth="400" Height="300">'#13#10' <Entity Name="Empresas" Left="0,00' +
'Left="308,00" Top="0,00" />'#13#10' <Entity Name="Empresas" Left="0' + '" Top="1,00" />'#13#10' <Entity Name="EmpresasDatosBanco" Left="308' +
',00" Top="1,00" />'#13#10' </Diagram>'#13#10'</Diagrams>'#13#10 ',00" Top="0,00" />'#13#10' </Diagram>'#13#10'</Diagrams>'#13#10
end end
object DABin2DataStreamer: TDABin2DataStreamer object DABin2DataStreamer: TDABin2DataStreamer
Left = 48 Left = 48

2
Source/ApplicationBase/Empresas/Servidor/srvEmpresas_Impl.pas
View File

@ -22,9 +22,9 @@ type
TsrvEmpresas = class(TDataAbstractService, IsrvEmpresas) TsrvEmpresas = class(TDataAbstractService, IsrvEmpresas)
Diagrams: TDADiagrams; Diagrams: TDADiagrams;
DABin2DataStreamer: TDABin2DataStreamer; DABin2DataStreamer: TDABin2DataStreamer;
bpEmpresas: TDABusinessProcessor;
schEmpresas: TDASchema; schEmpresas: TDASchema;
DataDictionary: TDADataDictionary; DataDictionary: TDADataDictionary;
bpEmpresas: TDABusinessProcessor;
procedure DARemoteServiceCreate(Sender: TObject); procedure DARemoteServiceCreate(Sender: TObject);
procedure DataAbstractServiceBeforeAcquireConnection(aSender: TObject; procedure DataAbstractServiceBeforeAcquireConnection(aSender: TObject;
var aConnectionName: string); var aConnectionName: string);

2
Source/ApplicationBase/uFactuGES_App.pas
View File

@ -552,7 +552,7 @@ begin
//Añadimos las diferentes empresas que existan //Añadimos las diferentes empresas que existan
AEmpresasController := TEmpresasController.Create; AEmpresasController := TEmpresasController.Create;
AEmpresas := AEmpresasController.BuscarTodos; AEmpresas := AEmpresasController.BuscarTodos(AppFactuGES.UsuarioActivo.ID_PERFIL);
AEmpresas.DataTable.Active := True; AEmpresas.DataTable.Active := True;
AEmpresas.Datatable.First; AEmpresas.Datatable.First;

13
Source/ApplicationBase/uPlugins_Intf.pas
View File

@ -14,10 +14,11 @@ const
MODULENAME_RECIBOS_CLIENTE = 'RecibosCliente_plugin.bpl'; MODULENAME_RECIBOS_CLIENTE = 'RecibosCliente_plugin.bpl';
} }
MODULENAME_PEDIDOS_PROVEEDOR = 'PedidosProveedor_plugin.bpl'; MODULENAME_PEDIDOS_PROVEEDOR = 'PedidosProveedor_plugin.bpl';
MODULENAME_FACTURAS_PROVEEDOR = 'FacturasProveedor_plugin.bpl';
{ {
MODULENAME_ALBARANES_PROVEEDOR = 'AlbaranesProveedor_plugin.bpl'; MODULENAME_ALBARANES_PROVEEDOR = 'AlbaranesProveedor_plugin.bpl';
MODULENAME_FACTURAS_PROVEEDOR = 'FacturasProveedor_plugin.bpl';
MODULENAME_RECIBOS_PROVEEDOR = 'RecibosProveedor_plugin.bpl'; MODULENAME_RECIBOS_PROVEEDOR = 'RecibosProveedor_plugin.bpl';
MODULENAME_PROCESO_PRESUPUESTOS_CLIENTE = 'ProcesoPresupuestosCliente_plugin.bpl'; MODULENAME_PROCESO_PRESUPUESTOS_CLIENTE = 'ProcesoPresupuestosCliente_plugin.bpl';
} }
@ -81,12 +82,12 @@ type
end; end;
} }
// IMCFacturasProveedor = interface(IInterface) IMCFacturasProveedor = interface(IInterface)
// ['{8A48058F-490E-4BF4-9BBB-09654B66CEED}'] ['{8A48058F-490E-4BF4-9BBB-09654B66CEED}']
{ procedure VerFacturas(const ID_Proveedor: Integer; // procedure VerFacturas(const ID_Proveedor: Integer; const ANombreProveedor : String = '');
const ANombreProveedor : String = ''); procedure VerFacturasContrato(Const ID_Contrato: Integer; Ref_Contrato: String = ''; NomCLi_Contrato: String = '');
end; end;
}
// IMCRecibosProveedor = interface(IInterface) // IMCRecibosProveedor = interface(IInterface)
// ['{24A23E95-D148-404C-9987-B1ED4A19D3CA}'] // ['{24A23E95-D148-404C-9987-B1ED4A19D3CA}']

103
Source/Base/Base.dproj
View File

@ -57,13 +57,6 @@
<Excluded_Packages Name="$(BDS)\Bin\dclintraweb_90_100.bpl">VCL for the Web Design Package for CodeGear RAD Studio</Excluded_Packages> <Excluded_Packages Name="$(BDS)\Bin\dclintraweb_90_100.bpl">VCL for the Web Design Package for CodeGear RAD Studio</Excluded_Packages>
<Excluded_Packages Name="$(BDS)\bin\dclwebsnap100.bpl">CodeGear WebSnap Components</Excluded_Packages> <Excluded_Packages Name="$(BDS)\bin\dclwebsnap100.bpl">CodeGear WebSnap Components</Excluded_Packages>
@ -79,54 +72,54 @@
<DelphiCompile Include="Base.dpk"> <DelphiCompile Include="Base.dpk">
<MainSource>MainSource</MainSource> <MainSource>MainSource</MainSource>
</DelphiCompile> </DelphiCompile>
<DCCReference Include="..\Modulos\Recibos de cliente\adortl.dcp" /> <DCCReference Include="..\Modulos\Facturas de proveedor\Model\adortl.dcp" />
<DCCReference Include="..\Modulos\Recibos de cliente\cxDataD11.dcp" /> <DCCReference Include="..\Modulos\Facturas de proveedor\Model\cxDataD11.dcp" />
<DCCReference Include="..\Modulos\Recibos de cliente\cxEditorsD11.dcp" /> <DCCReference Include="..\Modulos\Facturas de proveedor\Model\cxEditorsD11.dcp" />
<DCCReference Include="..\Modulos\Recibos de cliente\cxExtEditorsD11.dcp" /> <DCCReference Include="..\Modulos\Facturas de proveedor\Model\cxExtEditorsD11.dcp" />
<DCCReference Include="..\Modulos\Recibos de cliente\cxGridD11.dcp" /> <DCCReference Include="..\Modulos\Facturas de proveedor\Model\cxGridD11.dcp" />
<DCCReference Include="..\Modulos\Recibos de cliente\cxLibraryD11.dcp" /> <DCCReference Include="..\Modulos\Facturas de proveedor\Model\cxLibraryD11.dcp" />
<DCCReference Include="..\Modulos\Recibos de cliente\cxPageControlD11.dcp" /> <DCCReference Include="..\Modulos\Facturas de proveedor\Model\cxPageControlD11.dcp" />
<DCCReference Include="..\Modulos\Recibos de cliente\DataAbstract_Core_D11.dcp" /> <DCCReference Include="..\Modulos\Facturas de proveedor\Model\DataAbstract_Core_D11.dcp" />
<DCCReference Include="..\Modulos\Recibos de cliente\dbrtl.dcp" /> <DCCReference Include="..\Modulos\Facturas de proveedor\Model\dbrtl.dcp" />
<DCCReference Include="..\Modulos\Recibos de cliente\dclIndyCore.dcp" /> <DCCReference Include="..\Modulos\Facturas de proveedor\Model\dclIndyCore.dcp" />
<DCCReference Include="..\Modulos\Recibos de cliente\designide.dcp" /> <DCCReference Include="..\Modulos\Facturas de proveedor\Model\designide.dcp" />
<DCCReference Include="..\Modulos\Recibos de cliente\dsnap.dcp" /> <DCCReference Include="..\Modulos\Facturas de proveedor\Model\dsnap.dcp" />
<DCCReference Include="..\Modulos\Recibos de cliente\dxGDIPlusD11.dcp" /> <DCCReference Include="..\Modulos\Facturas de proveedor\Model\dxGDIPlusD11.dcp" />
<DCCReference Include="..\Modulos\Recibos de cliente\dxPSCoreD11.dcp" /> <DCCReference Include="..\Modulos\Facturas de proveedor\Model\dxPSCoreD11.dcp" />
<DCCReference Include="..\Modulos\Recibos de cliente\dxThemeD11.dcp" /> <DCCReference Include="..\Modulos\Facturas de proveedor\Model\dxThemeD11.dcp" />
<DCCReference Include="..\Modulos\Recibos de cliente\GUISDK_D11R.dcp" /> <DCCReference Include="..\Modulos\Facturas de proveedor\Model\GUISDK_D11R.dcp" />
<DCCReference Include="..\Modulos\Recibos de cliente\IndyCore.dcp" /> <DCCReference Include="..\Modulos\Facturas de proveedor\Model\IndyCore.dcp" />
<DCCReference Include="..\Modulos\Recibos de cliente\IndyProtocols.dcp" /> <DCCReference Include="..\Modulos\Facturas de proveedor\Model\IndyProtocols.dcp" />
<DCCReference Include="..\Modulos\Recibos de cliente\IndySystem.dcp" /> <DCCReference Include="..\Modulos\Facturas de proveedor\Model\IndySystem.dcp" />
<DCCReference Include="..\Modulos\Recibos de cliente\Jcl.dcp" /> <DCCReference Include="..\Modulos\Facturas de proveedor\Model\Jcl.dcp" />
<DCCReference Include="..\Modulos\Recibos de cliente\JclVcl.dcp" /> <DCCReference Include="..\Modulos\Facturas de proveedor\Model\JclVcl.dcp" />
<DCCReference Include="..\Modulos\Recibos de cliente\JSDialog100.dcp" /> <DCCReference Include="..\Modulos\Facturas de proveedor\Model\JSDialog100.dcp" />
<DCCReference Include="..\Modulos\Recibos de cliente\JvCmpD11R.dcp" /> <DCCReference Include="..\Modulos\Facturas de proveedor\Model\JvCmpD11R.dcp" />
<DCCReference Include="..\Modulos\Recibos de cliente\JvCoreD11R.dcp" /> <DCCReference Include="..\Modulos\Facturas de proveedor\Model\JvCoreD11R.dcp" />
<DCCReference Include="..\Modulos\Recibos de cliente\JvCtrlsD11R.dcp" /> <DCCReference Include="..\Modulos\Facturas de proveedor\Model\JvCtrlsD11R.dcp" />
<DCCReference Include="..\Modulos\Recibos de cliente\JvDlgsD11R.dcp" /> <DCCReference Include="..\Modulos\Facturas de proveedor\Model\JvDlgsD11R.dcp" />
<DCCReference Include="..\Modulos\Recibos de cliente\JvMMD11R.dcp" /> <DCCReference Include="..\Modulos\Facturas de proveedor\Model\JvMMD11R.dcp" />
<DCCReference Include="..\Modulos\Recibos de cliente\JvNetD11R.dcp" /> <DCCReference Include="..\Modulos\Facturas de proveedor\Model\JvNetD11R.dcp" />
<DCCReference Include="..\Modulos\Recibos de cliente\JvPageCompsD11R.dcp" /> <DCCReference Include="..\Modulos\Facturas de proveedor\Model\JvPageCompsD11R.dcp" />
<DCCReference Include="..\Modulos\Recibos de cliente\JvStdCtrlsD11R.dcp" /> <DCCReference Include="..\Modulos\Facturas de proveedor\Model\JvStdCtrlsD11R.dcp" />
<DCCReference Include="..\Modulos\Recibos de cliente\JvSystemD11R.dcp" /> <DCCReference Include="..\Modulos\Facturas de proveedor\Model\JvSystemD11R.dcp" />
<DCCReference Include="..\Modulos\Recibos de cliente\pckMD5.dcp" /> <DCCReference Include="..\Modulos\Facturas de proveedor\Model\pckMD5.dcp" />
<DCCReference Include="..\Modulos\Recibos de cliente\pckUCDataConnector.dcp" /> <DCCReference Include="..\Modulos\Facturas de proveedor\Model\pckUCDataConnector.dcp" />
<DCCReference Include="..\Modulos\Recibos de cliente\pckUserControl_RT.dcp" /> <DCCReference Include="..\Modulos\Facturas de proveedor\Model\pckUserControl_RT.dcp" />
<DCCReference Include="..\Modulos\Recibos de cliente\PluginSDK_D11R.dcp" /> <DCCReference Include="..\Modulos\Facturas de proveedor\Model\PluginSDK_D11R.dcp" />
<DCCReference Include="..\Modulos\Recibos de cliente\PngComponentsD10.dcp" /> <DCCReference Include="..\Modulos\Facturas de proveedor\Model\PngComponentsD10.dcp" />
<DCCReference Include="..\Modulos\Recibos de cliente\PNG_D10.dcp" /> <DCCReference Include="..\Modulos\Facturas de proveedor\Model\PNG_D10.dcp" />
<DCCReference Include="..\Modulos\Recibos de cliente\RemObjects_Core_D11.dcp" /> <DCCReference Include="..\Modulos\Facturas de proveedor\Model\RemObjects_Core_D11.dcp" />
<DCCReference Include="..\Modulos\Recibos de cliente\rtl.dcp" /> <DCCReference Include="..\Modulos\Facturas de proveedor\Model\rtl.dcp" />
<DCCReference Include="..\Modulos\Recibos de cliente\TB2k_D10.dcp" /> <DCCReference Include="..\Modulos\Facturas de proveedor\Model\TB2k_D10.dcp" />
<DCCReference Include="..\Modulos\Recibos de cliente\tbx_d10.dcp" /> <DCCReference Include="..\Modulos\Facturas de proveedor\Model\tbx_d10.dcp" />
<DCCReference Include="..\Modulos\Recibos de cliente\vcl.dcp" /> <DCCReference Include="..\Modulos\Facturas de proveedor\Model\vcl.dcp" />
<DCCReference Include="..\Modulos\Recibos de cliente\vclactnband.dcp" /> <DCCReference Include="..\Modulos\Facturas de proveedor\Model\vclactnband.dcp" />
<DCCReference Include="..\Modulos\Recibos de cliente\vcldb.dcp" /> <DCCReference Include="..\Modulos\Facturas de proveedor\Model\vcldb.dcp" />
<DCCReference Include="..\Modulos\Recibos de cliente\vcljpg.dcp" /> <DCCReference Include="..\Modulos\Facturas de proveedor\Model\vcljpg.dcp" />
<DCCReference Include="..\Modulos\Recibos de cliente\VclSmp.dcp" /> <DCCReference Include="..\Modulos\Facturas de proveedor\Model\VclSmp.dcp" />
<DCCReference Include="..\Modulos\Recibos de cliente\vclx.dcp" /> <DCCReference Include="..\Modulos\Facturas de proveedor\Model\vclx.dcp" />
<DCCReference Include="..\Modulos\Recibos de cliente\xmlrtl.dcp" /> <DCCReference Include="..\Modulos\Facturas de proveedor\Model\xmlrtl.dcp" />
<DCCReference Include="..\Servicios\FactuGES_Intf.pas" /> <DCCReference Include="..\Servicios\FactuGES_Intf.pas" />
<DCCReference Include="Conexion\uConfigurarConexion.pas"> <DCCReference Include="Conexion\uConfigurarConexion.pas">
<Form>fConfigurarConexion</Form> <Form>fConfigurarConexion</Form>

2
Source/Cliente/uMainMenuController.pas
View File

@ -78,7 +78,7 @@ begin
if Assigned(AListaEmpresasItem) then if Assigned(AListaEmpresasItem) then
begin begin
AEmpresas := AppFactuGES.EmpresasController.BuscarTodos; AEmpresas := AppFactuGES.EmpresasController.BuscarTodos(AppFactuGES.UsuarioActivo.ID_PERFIL);;
try try
AEmpresas.DataTable.Active := True; AEmpresas.DataTable.Active := True;
while not AEmpresas.DataTable.EOF do while not AEmpresas.DataTable.EOF do

2
Source/Cliente/uNavPaneController.pas
View File

@ -127,7 +127,7 @@ begin
end; end;
// Crear páginas con empresas y rellenarlas // Crear páginas con empresas y rellenarlas
AEmpresas := AppFactuGES.EmpresasController.BuscarTodos; AEmpresas := AppFactuGES.EmpresasController.BuscarTodos(AppFactuGES.UsuarioActivo.ID_PERFIL);;
try try
AEmpresas.DataTable.Active := True; AEmpresas.DataTable.Active := True;

2
Source/Cliente/uPantallaPrincipal.dfm
View File

@ -273,8 +273,6 @@ object fPantallaPrincipal: TfPantallaPrincipal
object actMenuLogistica: TAction object actMenuLogistica: TAction
Category = 'Menus' Category = 'Menus'
Caption = 'Log'#237'stica' Caption = 'Log'#237'stica'
Enabled = False
Visible = False
OnExecute = actMenuLogisticaExecute OnExecute = actMenuLogisticaExecute
OnUpdate = actMenuComprasUpdate OnUpdate = actMenuComprasUpdate
end end

24
Source/Cliente/uPantallaPrincipal.pas
View File

@ -195,7 +195,29 @@ end;
procedure TfPantallaPrincipal.FormShow(Sender: TObject); procedure TfPantallaPrincipal.FormShow(Sender: TObject);
begin begin
//El usuario vendedor y logistica será restringido
if ((AppFactuGES.UsuarioActivo.ID_PERFIL = 5) OR (AppFactuGES.UsuarioActivo.ID_PERFIL = 4)) then
begin
Informes1.Enabled := False;
Informes1.Visible := False;
Contabilidad1.Enabled := False;
Contabilidad1.Visible := False;
Informacindeempresa1.Visible := False;
end;
InicializarUI; InicializarUI;
//Solo verá administracion de usuarios el perfil Administrador(3), están en la tabla usuarios
if (AppFactuGES.UsuarioActivo.ID_PERFIL <> 2) then
begin
Administracin1.Visible := False;
if (AppFactuGES.UsuarioActivo.ID_PERFIL <> 3) then
ConfigurarFactuGES1.Visible := False;
end;
//perfil logistica
if (AppFactuGES.UsuarioActivo.ID_PERFIL <> 5) then
Logistica1.Visible := False;
end; end;
procedure TfPantallaPrincipal.RefrescarUI; procedure TfPantallaPrincipal.RefrescarUI;
@ -346,7 +368,7 @@ begin
NavPaneController.InitNavPane; NavPaneController.InitNavPane;
try try
AListaEmpresas := AppFactuGES.EmpresasController.BuscarTodos; AListaEmpresas := AppFactuGES.EmpresasController.BuscarTodos(AppFactuGES.UsuarioActivo.ID_PERFIL);
if Assigned(AListaEmpresas) then if Assigned(AListaEmpresas) then
begin begin
AListaEmpresas.Active := True; AListaEmpresas.Active := True;

56
Source/GUIBase/GUIBase.dproj
View File

@ -58,34 +58,34 @@
<DelphiCompile Include="GUIBase.dpk"> <DelphiCompile Include="GUIBase.dpk">
<MainSource>MainSource</MainSource> <MainSource>MainSource</MainSource>
</DelphiCompile> </DelphiCompile>
<DCCReference Include="..\Modulos\Pedidos a proveedor\Base.dcp" /> <DCCReference Include="..\Modulos\Contratos de cliente\Base.dcp" />
<DCCReference Include="..\Modulos\Pedidos a proveedor\ccpackD11.dcp" /> <DCCReference Include="..\Modulos\Contratos de cliente\ccpackD11.dcp" />
<DCCReference Include="..\Modulos\Pedidos a proveedor\cxDataD11.dcp" /> <DCCReference Include="..\Modulos\Contratos de cliente\cxDataD11.dcp" />
<DCCReference Include="..\Modulos\Pedidos a proveedor\cxEditorsD11.dcp" /> <DCCReference Include="..\Modulos\Contratos de cliente\cxEditorsD11.dcp" />
<DCCReference Include="..\Modulos\Pedidos a proveedor\cxExportD11.dcp" /> <DCCReference Include="..\Modulos\Contratos de cliente\cxExportD11.dcp" />
<DCCReference Include="..\Modulos\Pedidos a proveedor\cxLibraryD11.dcp" /> <DCCReference Include="..\Modulos\Contratos de cliente\cxLibraryD11.dcp" />
<DCCReference Include="..\Modulos\Pedidos a proveedor\dbrtl.dcp" /> <DCCReference Include="..\Modulos\Contratos de cliente\dbrtl.dcp" />
<DCCReference Include="..\Modulos\Pedidos a proveedor\dxGDIPlusD11.dcp" /> <DCCReference Include="..\Modulos\Contratos de cliente\dxGDIPlusD11.dcp" />
<DCCReference Include="..\Modulos\Pedidos a proveedor\dxLayoutControlD11.dcp" /> <DCCReference Include="..\Modulos\Contratos de cliente\dxLayoutControlD11.dcp" />
<DCCReference Include="..\Modulos\Pedidos a proveedor\dxPScxCommonD11.dcp" /> <DCCReference Include="..\Modulos\Contratos de cliente\dxPScxCommonD11.dcp" />
<DCCReference Include="..\Modulos\Pedidos a proveedor\dxPScxGrid6LnkD11.dcp" /> <DCCReference Include="..\Modulos\Contratos de cliente\dxPScxGrid6LnkD11.dcp" />
<DCCReference Include="..\Modulos\Pedidos a proveedor\dxThemeD11.dcp" /> <DCCReference Include="..\Modulos\Contratos de cliente\dxThemeD11.dcp" />
<DCCReference Include="..\Modulos\Pedidos a proveedor\frx11.dcp" /> <DCCReference Include="..\Modulos\Contratos de cliente\frx11.dcp" />
<DCCReference Include="..\Modulos\Pedidos a proveedor\frxe11.dcp" /> <DCCReference Include="..\Modulos\Contratos de cliente\frxe11.dcp" />
<DCCReference Include="..\Modulos\Pedidos a proveedor\fs11.dcp" /> <DCCReference Include="..\Modulos\Contratos de cliente\fs11.dcp" />
<DCCReference Include="..\Modulos\Pedidos a proveedor\JvAppFrmD11R.dcp" /> <DCCReference Include="..\Modulos\Contratos de cliente\JvAppFrmD11R.dcp" />
<DCCReference Include="..\Modulos\Pedidos a proveedor\JvCtrlsD11R.dcp" /> <DCCReference Include="..\Modulos\Contratos de cliente\JvCtrlsD11R.dcp" />
<DCCReference Include="..\Modulos\Pedidos a proveedor\JvGlobusD11R.dcp" /> <DCCReference Include="..\Modulos\Contratos de cliente\JvGlobusD11R.dcp" />
<DCCReference Include="..\Modulos\Pedidos a proveedor\PngComponentsD10.dcp" /> <DCCReference Include="..\Modulos\Contratos de cliente\PngComponentsD10.dcp" />
<DCCReference Include="..\Modulos\Pedidos a proveedor\PNG_D10.dcp" /> <DCCReference Include="..\Modulos\Contratos de cliente\PNG_D10.dcp" />
<DCCReference Include="..\Modulos\Pedidos a proveedor\rtl.dcp" /> <DCCReference Include="..\Modulos\Contratos de cliente\rtl.dcp" />
<DCCReference Include="..\Modulos\Pedidos a proveedor\tb2k_d10.dcp" /> <DCCReference Include="..\Modulos\Contratos de cliente\tb2k_d10.dcp" />
<DCCReference Include="..\Modulos\Pedidos a proveedor\tbx_d10.dcp" /> <DCCReference Include="..\Modulos\Contratos de cliente\tbx_d10.dcp" />
<DCCReference Include="..\Modulos\Pedidos a proveedor\vcl.dcp" /> <DCCReference Include="..\Modulos\Contratos de cliente\vcl.dcp" />
<DCCReference Include="..\Modulos\Pedidos a proveedor\vclactnband.dcp" /> <DCCReference Include="..\Modulos\Contratos de cliente\vclactnband.dcp" />
<DCCReference Include="..\Modulos\Pedidos a proveedor\vcldb.dcp" /> <DCCReference Include="..\Modulos\Contratos de cliente\vcldb.dcp" />
<DCCReference Include="..\Modulos\Pedidos a proveedor\vcljpg.dcp" /> <DCCReference Include="..\Modulos\Contratos de cliente\vcljpg.dcp" />
<DCCReference Include="..\Modulos\Pedidos a proveedor\vclx.dcp" /> <DCCReference Include="..\Modulos\Contratos de cliente\vclx.dcp" />
<DCCReference Include="uDialogBase.pas"> <DCCReference Include="uDialogBase.pas">
<Form>fDialogBase</Form> <Form>fDialogBase</Form>
</DCCReference> </DCCReference>

5
Source/Modulos/Comisiones/Plugin/uPluginComisiones.pas
View File

@ -62,6 +62,11 @@ constructor TPluginComisiones.Create(AOwner: TComponent);
begin begin
inherited; inherited;
uComisionesViewRegister.RegisterViews; uComisionesViewRegister.RegisterViews;
//El usuario vendedor y logistica será restringido
if ((AppFactuGES.UsuarioActivo.ID_PERFIL = 5) OR (AppFactuGES.UsuarioActivo.ID_PERFIL = 4)) then
actComisiones.Visible := False;
end; end;
destructor TPluginComisiones.Destroy; destructor TPluginComisiones.Destroy;

8
Source/Modulos/Contabilidad/Plugin/uPluginContabilidad.pas
View File

@ -183,6 +183,14 @@ constructor TPluginContabilidad.Create(AOwner: TComponent);
begin begin
inherited; inherited;
uContabilidadViewRegister.RegisterViews; uContabilidadViewRegister.RegisterViews;
//El usuario vendedor y logistica será restringido
if ((AppFactuGES.UsuarioActivo.ID_PERFIL = 5) OR (AppFactuGES.UsuarioActivo.ID_PERFIL = 4)) then
begin
actCuentasEspeciales.Visible := False;
actBalances.Visible := False;
end;
end; end;
destructor TPluginContabilidad.Destroy; destructor TPluginContabilidad.Destroy;

24
Source/Modulos/Contactos/Contactos_Group.groupproj
View File

@ -97,15 +97,6 @@
<Target Name="Contabilidad_controller:Make"> <Target Name="Contabilidad_controller:Make">
<MSBuild Projects="..\Contabilidad\Controller\Contabilidad_controller.dproj" Targets="Make" /> <MSBuild Projects="..\Contabilidad\Controller\Contabilidad_controller.dproj" Targets="Make" />
</Target> </Target>
<Target Name="Contactos_view">
<MSBuild Projects="Views\Contactos_view.dproj" Targets="" />
</Target>
<Target Name="Contactos_view:Clean">
<MSBuild Projects="Views\Contactos_view.dproj" Targets="Clean" />
</Target>
<Target Name="Contactos_view:Make">
<MSBuild Projects="Views\Contactos_view.dproj" Targets="Make" />
</Target>
<Target Name="Contactos_controller"> <Target Name="Contactos_controller">
<MSBuild Projects="Controller\Contactos_controller.dproj" Targets="" /> <MSBuild Projects="Controller\Contactos_controller.dproj" Targets="" />
</Target> </Target>
@ -115,6 +106,15 @@
<Target Name="Contactos_controller:Make"> <Target Name="Contactos_controller:Make">
<MSBuild Projects="Controller\Contactos_controller.dproj" Targets="Make" /> <MSBuild Projects="Controller\Contactos_controller.dproj" Targets="Make" />
</Target> </Target>
<Target Name="Contactos_view">
<MSBuild Projects="Views\Contactos_view.dproj" Targets="" />
</Target>
<Target Name="Contactos_view:Clean">
<MSBuild Projects="Views\Contactos_view.dproj" Targets="Clean" />
</Target>
<Target Name="Contactos_view:Make">
<MSBuild Projects="Views\Contactos_view.dproj" Targets="Make" />
</Target>
<Target Name="Contactos_plugin"> <Target Name="Contactos_plugin">
<MSBuild Projects="Plugin\Contactos_plugin.dproj" Targets="" /> <MSBuild Projects="Plugin\Contactos_plugin.dproj" Targets="" />
</Target> </Target>
@ -152,13 +152,13 @@
<MSBuild Projects="..\..\Servidor\FactuGES_Server.dproj" Targets="Make" /> <MSBuild Projects="..\..\Servidor\FactuGES_Server.dproj" Targets="Make" />
</Target> </Target>
<Target Name="Build"> <Target Name="Build">
<CallTarget Targets="Base;GUIBase;ApplicationBase;Contactos_model;Contactos_data;Contabilidad_model;Contabilidad_data;Contabilidad_controller;Contactos_view;Contactos_controller;Contactos_plugin;Contabilidad_view;FactuGES;FactuGES_Server" /> <CallTarget Targets="Base;GUIBase;ApplicationBase;Contactos_model;Contactos_data;Contabilidad_model;Contabilidad_data;Contabilidad_controller;Contactos_controller;Contactos_view;Contactos_plugin;Contabilidad_view;FactuGES;FactuGES_Server" />
</Target> </Target>
<Target Name="Clean"> <Target Name="Clean">
<CallTarget Targets="Base:Clean;GUIBase:Clean;ApplicationBase:Clean;Contactos_model:Clean;Contactos_data:Clean;Contabilidad_model:Clean;Contabilidad_data:Clean;Contabilidad_controller:Clean;Contactos_view:Clean;Contactos_controller:Clean;Contactos_plugin:Clean;Contabilidad_view:Clean;FactuGES:Clean;FactuGES_Server:Clean" /> <CallTarget Targets="Base:Clean;GUIBase:Clean;ApplicationBase:Clean;Contactos_model:Clean;Contactos_data:Clean;Contabilidad_model:Clean;Contabilidad_data:Clean;Contabilidad_controller:Clean;Contactos_controller:Clean;Contactos_view:Clean;Contactos_plugin:Clean;Contabilidad_view:Clean;FactuGES:Clean;FactuGES_Server:Clean" />
</Target> </Target>
<Target Name="Make"> <Target Name="Make">
<CallTarget Targets="Base:Make;GUIBase:Make;ApplicationBase:Make;Contactos_model:Make;Contactos_data:Make;Contabilidad_model:Make;Contabilidad_data:Make;Contabilidad_controller:Make;Contactos_view:Make;Contactos_controller:Make;Contactos_plugin:Make;Contabilidad_view:Make;FactuGES:Make;FactuGES_Server:Make" /> <CallTarget Targets="Base:Make;GUIBase:Make;ApplicationBase:Make;Contactos_model:Make;Contactos_data:Make;Contabilidad_model:Make;Contabilidad_data:Make;Contabilidad_controller:Make;Contactos_controller:Make;Contactos_view:Make;Contactos_plugin:Make;Contabilidad_view:Make;FactuGES:Make;FactuGES_Server:Make" />
</Target> </Target>
<Import Condition="Exists('$(MSBuildBinPath)\Borland.Group.Targets')" Project="$(MSBuildBinPath)\Borland.Group.Targets" /> <Import Condition="Exists('$(MSBuildBinPath)\Borland.Group.Targets')" Project="$(MSBuildBinPath)\Borland.Group.Targets" />
</Project> </Project>

4
Source/Modulos/Contactos/Plugin/uPluginContactos.pas
View File

@ -143,6 +143,10 @@ constructor TPluginContactos.Create(AOwner: TComponent);
begin begin
inherited; inherited;
uContactosViewRegister.RegisterViews; uContactosViewRegister.RegisterViews;
//El usuario vendedor y logistica será restringido
if ((AppFactuGES.UsuarioActivo.ID_PERFIL = 5) OR (AppFactuGES.UsuarioActivo.ID_PERFIL = 4)) then
actVendedores.Visible := False;
end; end;
destructor TPluginContactos.Destroy; destructor TPluginContactos.Destroy;

2
Source/Modulos/Contactos/Views/uEditorContactos.dfm
View File

@ -2,6 +2,8 @@ inherited fEditorContactos: TfEditorContactos
Left = 285 Left = 285
Top = 448 Top = 448
Caption = 'Lista de contactos' Caption = 'Lista de contactos'
ExplicitWidth = 320
ExplicitHeight = 240
PixelsPerInch = 96 PixelsPerInch = 96
TextHeight = 13 TextHeight = 13
inherited JvNavPanelHeader: TJvNavPanelHeader inherited JvNavPanelHeader: TJvNavPanelHeader

26
Source/Modulos/Contratos de cliente/ContratosCliente_Group.groupproj
View File

@ -16,6 +16,8 @@
<Projects Include="..\Contactos\Data\Contactos_data.dproj" /> <Projects Include="..\Contactos\Data\Contactos_data.dproj" />
<Projects Include="..\Contactos\Model\Contactos_model.dproj" /> <Projects Include="..\Contactos\Model\Contactos_model.dproj" />
<Projects Include="..\Contactos\Views\Contactos_view.dproj" /> <Projects Include="..\Contactos\Views\Contactos_view.dproj" />
<Projects Include="..\Facturas de proveedor\Controller\FacturasProveedor_controller.dproj" />
<Projects Include="..\Facturas de proveedor\Plugin\FacturasProveedor_plugin.dproj" />
<Projects Include="..\Pedidos a proveedor\Controller\PedidosProveedor_controller.dproj" /> <Projects Include="..\Pedidos a proveedor\Controller\PedidosProveedor_controller.dproj" />
<Projects Include="..\Pedidos a proveedor\Plugin\PedidosProveedor_plugin.dproj" /> <Projects Include="..\Pedidos a proveedor\Plugin\PedidosProveedor_plugin.dproj" />
<Projects Include="..\Pedidos a proveedor\Views\PedidosProveedor_view.dproj" /> <Projects Include="..\Pedidos a proveedor\Views\PedidosProveedor_view.dproj" />
@ -261,14 +263,32 @@
<Target Name="PedidosProveedor_view:Make"> <Target Name="PedidosProveedor_view:Make">
<MSBuild Projects="..\Pedidos a proveedor\Views\PedidosProveedor_view.dproj" Targets="Make" /> <MSBuild Projects="..\Pedidos a proveedor\Views\PedidosProveedor_view.dproj" Targets="Make" />
</Target> </Target>
<Target Name="FacturasProveedor_plugin">
<MSBuild Projects="..\Facturas de proveedor\Plugin\FacturasProveedor_plugin.dproj" Targets="" />
</Target>
<Target Name="FacturasProveedor_plugin:Clean">
<MSBuild Projects="..\Facturas de proveedor\Plugin\FacturasProveedor_plugin.dproj" Targets="Clean" />
</Target>
<Target Name="FacturasProveedor_plugin:Make">
<MSBuild Projects="..\Facturas de proveedor\Plugin\FacturasProveedor_plugin.dproj" Targets="Make" />
</Target>
<Target Name="FacturasProveedor_controller">
<MSBuild Projects="..\Facturas de proveedor\Controller\FacturasProveedor_controller.dproj" Targets="" />
</Target>
<Target Name="FacturasProveedor_controller:Clean">
<MSBuild Projects="..\Facturas de proveedor\Controller\FacturasProveedor_controller.dproj" Targets="Clean" />
</Target>
<Target Name="FacturasProveedor_controller:Make">
<MSBuild Projects="..\Facturas de proveedor\Controller\FacturasProveedor_controller.dproj" Targets="Make" />
</Target>
<Target Name="Build"> <Target Name="Build">
<CallTarget Targets="Base;GUIBase;ApplicationBase;Contactos_model;Contactos_data;Contactos_controller;Contactos_view;Articulos_data;Articulos_controller;Articulos_view;ContratosCliente_model;ContratosCliente_data;ContratosCliente_controller;ConCli_AlbCli_relation;ConCli_FacCli_relation;PreCli_ConCli_relation;ConCli_PedProv_relation;ContratosCliente_view;ContratosCliente_plugin;FactuGES;FactuGES_Server;PresupuestosCliente_view;PedidosProveedor_controller;PedidosProveedor_plugin;PedidosProveedor_view" /> <CallTarget Targets="Base;GUIBase;ApplicationBase;Contactos_model;Contactos_data;Contactos_controller;Contactos_view;Articulos_data;Articulos_controller;Articulos_view;ContratosCliente_model;ContratosCliente_data;ContratosCliente_controller;ConCli_AlbCli_relation;ConCli_FacCli_relation;PreCli_ConCli_relation;ConCli_PedProv_relation;ContratosCliente_view;ContratosCliente_plugin;FactuGES;FactuGES_Server;PresupuestosCliente_view;PedidosProveedor_controller;PedidosProveedor_plugin;PedidosProveedor_view;FacturasProveedor_plugin;FacturasProveedor_controller" />
</Target> </Target>
<Target Name="Clean"> <Target Name="Clean">
<CallTarget Targets="Base:Clean;GUIBase:Clean;ApplicationBase:Clean;Contactos_model:Clean;Contactos_data:Clean;Contactos_controller:Clean;Contactos_view:Clean;Articulos_data:Clean;Articulos_controller:Clean;Articulos_view:Clean;ContratosCliente_model:Clean;ContratosCliente_data:Clean;ContratosCliente_controller:Clean;ConCli_AlbCli_relation:Clean;ConCli_FacCli_relation:Clean;PreCli_ConCli_relation:Clean;ConCli_PedProv_relation:Clean;ContratosCliente_view:Clean;ContratosCliente_plugin:Clean;FactuGES:Clean;FactuGES_Server:Clean;PresupuestosCliente_view:Clean;PedidosProveedor_controller:Clean;PedidosProveedor_plugin:Clean;PedidosProveedor_view:Clean" /> <CallTarget Targets="Base:Clean;GUIBase:Clean;ApplicationBase:Clean;Contactos_model:Clean;Contactos_data:Clean;Contactos_controller:Clean;Contactos_view:Clean;Articulos_data:Clean;Articulos_controller:Clean;Articulos_view:Clean;ContratosCliente_model:Clean;ContratosCliente_data:Clean;ContratosCliente_controller:Clean;ConCli_AlbCli_relation:Clean;ConCli_FacCli_relation:Clean;PreCli_ConCli_relation:Clean;ConCli_PedProv_relation:Clean;ContratosCliente_view:Clean;ContratosCliente_plugin:Clean;FactuGES:Clean;FactuGES_Server:Clean;PresupuestosCliente_view:Clean;PedidosProveedor_controller:Clean;PedidosProveedor_plugin:Clean;PedidosProveedor_view:Clean;FacturasProveedor_plugin:Clean;FacturasProveedor_controller:Clean" />
</Target> </Target>
<Target Name="Make"> <Target Name="Make">
<CallTarget Targets="Base:Make;GUIBase:Make;ApplicationBase:Make;Contactos_model:Make;Contactos_data:Make;Contactos_controller:Make;Contactos_view:Make;Articulos_data:Make;Articulos_controller:Make;Articulos_view:Make;ContratosCliente_model:Make;ContratosCliente_data:Make;ContratosCliente_controller:Make;ConCli_AlbCli_relation:Make;ConCli_FacCli_relation:Make;PreCli_ConCli_relation:Make;ConCli_PedProv_relation:Make;ContratosCliente_view:Make;ContratosCliente_plugin:Make;FactuGES:Make;FactuGES_Server:Make;PresupuestosCliente_view:Make;PedidosProveedor_controller:Make;PedidosProveedor_plugin:Make;PedidosProveedor_view:Make" /> <CallTarget Targets="Base:Make;GUIBase:Make;ApplicationBase:Make;Contactos_model:Make;Contactos_data:Make;Contactos_controller:Make;Contactos_view:Make;Articulos_data:Make;Articulos_controller:Make;Articulos_view:Make;ContratosCliente_model:Make;ContratosCliente_data:Make;ContratosCliente_controller:Make;ConCli_AlbCli_relation:Make;ConCli_FacCli_relation:Make;PreCli_ConCli_relation:Make;ConCli_PedProv_relation:Make;ContratosCliente_view:Make;ContratosCliente_plugin:Make;FactuGES:Make;FactuGES_Server:Make;PresupuestosCliente_view:Make;PedidosProveedor_controller:Make;PedidosProveedor_plugin:Make;PedidosProveedor_view:Make;FacturasProveedor_plugin:Make;FacturasProveedor_controller:Make" />
</Target> </Target>
<Import Condition="Exists('$(MSBuildBinPath)\Borland.Group.Targets')" Project="$(MSBuildBinPath)\Borland.Group.Targets" /> <Import Condition="Exists('$(MSBuildBinPath)\Borland.Group.Targets')" Project="$(MSBuildBinPath)\Borland.Group.Targets" />
</Project> </Project>

18
Source/Modulos/Contratos de cliente/Controller/ContratosCliente_controller.dproj
View File

@ -49,15 +49,15 @@
<DelphiCompile Include="ContratosCliente_controller.dpk"> <DelphiCompile Include="ContratosCliente_controller.dpk">
<MainSource>MainSource</MainSource> <MainSource>MainSource</MainSource>
</DelphiCompile> </DelphiCompile>
<DCCReference Include="..\..\Presupuestos de cliente\ApplicationBase.dcp" /> <DCCReference Include="..\..\Facturas de proveedor\Plugin\ApplicationBase.dcp" />
<DCCReference Include="..\..\Presupuestos de cliente\Articulos_controller.dcp" /> <DCCReference Include="..\..\Facturas de proveedor\Plugin\Articulos_controller.dcp" />
<DCCReference Include="..\..\Presupuestos de cliente\Contactos_controller.dcp" /> <DCCReference Include="..\..\Facturas de proveedor\Plugin\Contactos_controller.dcp" />
<DCCReference Include="..\..\Presupuestos de cliente\ContratosCliente_data.dcp" /> <DCCReference Include="..\..\Facturas de proveedor\Plugin\ContratosCliente_data.dcp" />
<DCCReference Include="..\..\Presupuestos de cliente\ContratosCliente_model.dcp" /> <DCCReference Include="..\..\Facturas de proveedor\Plugin\ContratosCliente_model.dcp" />
<DCCReference Include="..\..\Presupuestos de cliente\GestorDocumentos_controller.dcp" /> <DCCReference Include="..\..\Facturas de proveedor\Plugin\GestorDocumentos_controller.dcp" />
<DCCReference Include="..\..\Presupuestos de cliente\GUIBase.dcp" /> <DCCReference Include="..\..\Facturas de proveedor\Plugin\GUIBase.dcp" />
<DCCReference Include="..\..\Presupuestos de cliente\PresupuestosCliente_controller.dcp" /> <DCCReference Include="..\..\Facturas de proveedor\Plugin\PresupuestosCliente_controller.dcp" />
<DCCReference Include="..\..\Presupuestos de cliente\PresupuestosCliente_model.dcp" /> <DCCReference Include="..\..\Facturas de proveedor\Plugin\PresupuestosCliente_model.dcp" />
<DCCReference Include="uArticulosContratoClienteController.pas" /> <DCCReference Include="uArticulosContratoClienteController.pas" />
<DCCReference Include="uContratosClienteController.pas" /> <DCCReference Include="uContratosClienteController.pas" />
<DCCReference Include="uContratosClienteReportController.pas" /> <DCCReference Include="uContratosClienteReportController.pas" />

23
Source/Modulos/Contratos de cliente/Controller/uContratosClienteController.pas
View File

@ -64,6 +64,7 @@ type
procedure FiltrarAno(AContrato: IBizContratoCliente; ADynWhereDataTable: WideString; const Ano: String); procedure FiltrarAno(AContrato: IBizContratoCliente; ADynWhereDataTable: WideString; const Ano: String);
procedure VerListadoBeneficios; procedure VerListadoBeneficios;
procedure VerPedidosProveedor(AContrato : IBizContratoCliente); procedure VerPedidosProveedor(AContrato : IBizContratoCliente);
procedure VerFacturasProveedor(AContrato : IBizContratoCliente);
procedure CopiarDireccion (const ADireccion: IBizDireccionesContacto; AContrato: IBizContratoCliente); procedure CopiarDireccion (const ADireccion: IBizDireccionesContacto; AContrato: IBizContratoCliente);
end; end;
@ -140,6 +141,7 @@ type
procedure FiltrarAno(AContrato: IBizContratoCliente; ADynWhereDataTable: WideString; const Ano: String); procedure FiltrarAno(AContrato: IBizContratoCliente; ADynWhereDataTable: WideString; const Ano: String);
procedure VerListadoBeneficios; procedure VerListadoBeneficios;
procedure VerPedidosProveedor(AContrato : IBizContratoCliente); procedure VerPedidosProveedor(AContrato : IBizContratoCliente);
procedure VerFacturasProveedor(AContrato : IBizContratoCliente);
procedure CopiarDireccion (const ADireccion: IBizDireccionesContacto; AContrato: IBizContratoCliente); procedure CopiarDireccion (const ADireccion: IBizDireccionesContacto; AContrato: IBizContratoCliente);
end; end;
@ -524,6 +526,27 @@ begin
end; end;
end; end;
procedure TContratosClienteController.VerFacturasProveedor(AContrato: IBizContratoCliente);
var
AModule : TModuleController;
APlugin : IMCFacturasProveedor;
begin
if not Assigned(AContrato) then
raise Exception.Create ('Contrato no asignado (VerFacturasProveedor)');
if not AContrato.DataTable.Active then
AContrato.DataTable.Active := True;
AModule := AppFactuGES.GetModule(MODULENAME_FACTURAS_PROVEEDOR);
if Assigned(AModule) then
try
if Supports(AModule, IMCFacturasProveedor, APlugin) then
APlugin.VerFacturasContrato(AContrato.ID, AContrato.REFERENCIA, AContrato.NOMBRE);
finally
APlugin := NIL;
end;
end;
procedure TContratosClienteController.VerListadoBeneficios; procedure TContratosClienteController.VerListadoBeneficios;
var var
AContratosClienteBeneficios: IBizContratosClienteBeneficios; AContratosClienteBeneficios: IBizContratosClienteBeneficios;

11
Source/Modulos/Contratos de cliente/Views/uEditorContratosCliente.dfm
View File

@ -202,7 +202,7 @@ inherited fEditorContratosCliente: TfEditorContratosCliente
DockPos = 343 DockPos = 343
Visible = True Visible = True
ExplicitLeft = 431 ExplicitLeft = 431
ExplicitWidth = 687 ExplicitWidth = 688
object TBXSeparatorItem18: TTBXSeparatorItem object TBXSeparatorItem18: TTBXSeparatorItem
end end
object TBXItem44: TTBXItem object TBXItem44: TTBXItem
@ -232,6 +232,9 @@ inherited fEditorContratosCliente: TfEditorContratosCliente
Action = actListadoBeneficios Action = actListadoBeneficios
DisplayMode = nbdmImageAndText DisplayMode = nbdmImageAndText
end end
object TBXItem49: TTBXItem
Action = actVerFacturasProveedor
end
end end
end end
inherited StatusBar: TJvStatusBar inherited StatusBar: TJvStatusBar
@ -298,6 +301,12 @@ inherited fEditorContratosCliente: TfEditorContratosCliente
ImageIndex = 6 ImageIndex = 6
OnExecute = actVerPedidosProveedorExecute OnExecute = actVerPedidosProveedorExecute
end end
object actVerFacturasProveedor: TAction
Category = 'Acciones'
Caption = 'Ver facturas prov relacionadas'
ImageIndex = 6
OnExecute = actVerFacturasProveedorExecute
end
end end
inherited SmallImages: TPngImageList inherited SmallImages: TPngImageList
PngImages = < PngImages = <

10
Source/Modulos/Contratos de cliente/Views/uEditorContratosCliente.pas
View File

@ -52,6 +52,8 @@ type
actVerPedidosProveedor: TAction; actVerPedidosProveedor: TAction;
TBXItem48: TTBXItem; TBXItem48: TTBXItem;
TBXSeparatorItem20: TTBXSeparatorItem; TBXSeparatorItem20: TTBXSeparatorItem;
actVerFacturasProveedor: TAction;
TBXItem49: TTBXItem;
procedure FormShow(Sender: TObject); procedure FormShow(Sender: TObject);
procedure actGenerarAlbaranCliExecute(Sender: TObject); procedure actGenerarAlbaranCliExecute(Sender: TObject);
procedure actEliminarUpdate(Sender: TObject); procedure actEliminarUpdate(Sender: TObject);
@ -78,6 +80,7 @@ type
procedure actGenerarPedidoProvExecute(Sender: TObject); procedure actGenerarPedidoProvExecute(Sender: TObject);
procedure actGenerarPedidoProvUpdate(Sender: TObject); procedure actGenerarPedidoProvUpdate(Sender: TObject);
procedure actVerPedidosProveedorExecute(Sender: TObject); procedure actVerPedidosProveedorExecute(Sender: TObject);
procedure actVerFacturasProveedorExecute(Sender: TObject);
protected protected
FContratos: IBizContratoCliente; FContratos: IBizContratoCliente;
@ -358,6 +361,13 @@ begin
FController.VerListadoBeneficios; FController.VerListadoBeneficios;
end; end;
procedure TfEditorContratosCliente.actVerFacturasProveedorExecute(
Sender: TObject);
begin
inherited;
FController.VerFacturasProveedor(Contratos);
end;
procedure TfEditorContratosCliente.actVerPedidosProveedorExecute( procedure TfEditorContratosCliente.actVerPedidosProveedorExecute(
Sender: TObject); Sender: TObject);
begin begin

14
Source/Modulos/Facturas de proveedor/Data/uDataModuleFacturasProveedor.dfm
View File

@ -471,6 +471,20 @@ inherited DataModuleFacturasProveedor: TDataModuleFacturasProveedor
DataType = datCurrency DataType = datCurrency
DisplayLabel = 'FacturasProveedor_Contratos_IMPORTE' DisplayLabel = 'FacturasProveedor_Contratos_IMPORTE'
DictionaryEntry = 'FacturasProveedor_Contratos_IMPORTE' DictionaryEntry = 'FacturasProveedor_Contratos_IMPORTE'
end
item
Name = 'REFERENCIA1'
DataType = datString
Size = 255
end
item
Name = 'NOMBRE1'
DataType = datString
Size = 255
end
item
Name = 'BASE_IMPONIBLE'
DataType = datCurrency
end> end>
Params = <> Params = <>
MasterMappingMode = mmWhere MasterMappingMode = mmWhere

16
Source/Modulos/Facturas de proveedor/FacturasProveedor_Group.groupproj
View File

@ -20,6 +20,7 @@
<Projects Include="..\Contactos\Views\Contactos_view.dproj" /> <Projects Include="..\Contactos\Views\Contactos_view.dproj" />
<Projects Include="..\Contratos de cliente\Controller\ContratosCliente_controller.dproj" /> <Projects Include="..\Contratos de cliente\Controller\ContratosCliente_controller.dproj" />
<Projects Include="..\Contratos de cliente\Views\ContratosCliente_view.dproj" /> <Projects Include="..\Contratos de cliente\Views\ContratosCliente_view.dproj" />
<Projects Include="..\Facturas de cliente\Controller\FacturasCliente_controller.dproj" />
<Projects Include="..\Pedidos a proveedor\Controller\PedidosProveedor_controller.dproj" /> <Projects Include="..\Pedidos a proveedor\Controller\PedidosProveedor_controller.dproj" />
<Projects Include="..\Recibos de proveedor\Controller\RecibosProveedor_controller.dproj" /> <Projects Include="..\Recibos de proveedor\Controller\RecibosProveedor_controller.dproj" />
<Projects Include="Controller\FacturasProveedor_controller.dproj" /> <Projects Include="Controller\FacturasProveedor_controller.dproj" />
@ -241,14 +242,23 @@
<Target Name="ContratosCliente_controller:Make"> <Target Name="ContratosCliente_controller:Make">
<MSBuild Projects="..\Contratos de cliente\Controller\ContratosCliente_controller.dproj" Targets="Make" /> <MSBuild Projects="..\Contratos de cliente\Controller\ContratosCliente_controller.dproj" Targets="Make" />
</Target> </Target>
<Target Name="FacturasCliente_controller">
<MSBuild Projects="..\Facturas de cliente\Controller\FacturasCliente_controller.dproj" Targets="" />
</Target>
<Target Name="FacturasCliente_controller:Clean">
<MSBuild Projects="..\Facturas de cliente\Controller\FacturasCliente_controller.dproj" Targets="Clean" />
</Target>
<Target Name="FacturasCliente_controller:Make">
<MSBuild Projects="..\Facturas de cliente\Controller\FacturasCliente_controller.dproj" Targets="Make" />
</Target>
<Target Name="Build"> <Target Name="Build">
<CallTarget Targets="Base;GUIBase;ApplicationBase;Contactos_view;Articulos_controller;Articulos_view;PedidosProveedor_controller;AlbaranesProveedor_controller;RecibosProveedor_controller;FacturasProveedor_model;FacturasProveedor_data;FacturasProveedor_controller;FacturasProveedor_view;FacturasProveedor_plugin;FactuGES;FactuGES_Server;Contabilidad_view;Contabilidad_controller;Contactos_model;Contactos_controller;Contactos_data;ContratosCliente_view;ContratosCliente_controller" /> <CallTarget Targets="Base;GUIBase;ApplicationBase;Contactos_view;Articulos_controller;Articulos_view;PedidosProveedor_controller;AlbaranesProveedor_controller;RecibosProveedor_controller;FacturasProveedor_model;FacturasProveedor_data;FacturasProveedor_controller;FacturasProveedor_view;FacturasProveedor_plugin;FactuGES;FactuGES_Server;Contabilidad_view;Contabilidad_controller;Contactos_model;Contactos_controller;Contactos_data;ContratosCliente_view;ContratosCliente_controller;FacturasCliente_controller" />
</Target> </Target>
<Target Name="Clean"> <Target Name="Clean">
<CallTarget Targets="Base:Clean;GUIBase:Clean;ApplicationBase:Clean;Contactos_view:Clean;Articulos_controller:Clean;Articulos_view:Clean;PedidosProveedor_controller:Clean;AlbaranesProveedor_controller:Clean;RecibosProveedor_controller:Clean;FacturasProveedor_model:Clean;FacturasProveedor_data:Clean;FacturasProveedor_controller:Clean;FacturasProveedor_view:Clean;FacturasProveedor_plugin:Clean;FactuGES:Clean;FactuGES_Server:Clean;Contabilidad_view:Clean;Contabilidad_controller:Clean;Contactos_model:Clean;Contactos_controller:Clean;Contactos_data:Clean;ContratosCliente_view:Clean;ContratosCliente_controller:Clean" /> <CallTarget Targets="Base:Clean;GUIBase:Clean;ApplicationBase:Clean;Contactos_view:Clean;Articulos_controller:Clean;Articulos_view:Clean;PedidosProveedor_controller:Clean;AlbaranesProveedor_controller:Clean;RecibosProveedor_controller:Clean;FacturasProveedor_model:Clean;FacturasProveedor_data:Clean;FacturasProveedor_controller:Clean;FacturasProveedor_view:Clean;FacturasProveedor_plugin:Clean;FactuGES:Clean;FactuGES_Server:Clean;Contabilidad_view:Clean;Contabilidad_controller:Clean;Contactos_model:Clean;Contactos_controller:Clean;Contactos_data:Clean;ContratosCliente_view:Clean;ContratosCliente_controller:Clean;FacturasCliente_controller:Clean" />
</Target> </Target>
<Target Name="Make"> <Target Name="Make">
<CallTarget Targets="Base:Make;GUIBase:Make;ApplicationBase:Make;Contactos_view:Make;Articulos_controller:Make;Articulos_view:Make;PedidosProveedor_controller:Make;AlbaranesProveedor_controller:Make;RecibosProveedor_controller:Make;FacturasProveedor_model:Make;FacturasProveedor_data:Make;FacturasProveedor_controller:Make;FacturasProveedor_view:Make;FacturasProveedor_plugin:Make;FactuGES:Make;FactuGES_Server:Make;Contabilidad_view:Make;Contabilidad_controller:Make;Contactos_model:Make;Contactos_controller:Make;Contactos_data:Make;ContratosCliente_view:Make;ContratosCliente_controller:Make" /> <CallTarget Targets="Base:Make;GUIBase:Make;ApplicationBase:Make;Contactos_view:Make;Articulos_controller:Make;Articulos_view:Make;PedidosProveedor_controller:Make;AlbaranesProveedor_controller:Make;RecibosProveedor_controller:Make;FacturasProveedor_model:Make;FacturasProveedor_data:Make;FacturasProveedor_controller:Make;FacturasProveedor_view:Make;FacturasProveedor_plugin:Make;FactuGES:Make;FactuGES_Server:Make;Contabilidad_view:Make;Contabilidad_controller:Make;Contactos_model:Make;Contactos_controller:Make;Contactos_data:Make;ContratosCliente_view:Make;ContratosCliente_controller:Make;FacturasCliente_controller:Make" />
</Target> </Target>
<Import Condition="Exists('$(MSBuildBinPath)\Borland.Group.Targets')" Project="$(MSBuildBinPath)\Borland.Group.Targets" /> <Import Condition="Exists('$(MSBuildBinPath)\Borland.Group.Targets')" Project="$(MSBuildBinPath)\Borland.Group.Targets" />
</Project> </Project>

121
Source/Modulos/Facturas de proveedor/Model/schFacturasProveedorClient_Intf.pas
View File

@ -9,10 +9,10 @@ const
{ Data table rules ids { Data table rules ids
Feel free to change them to something more human readable Feel free to change them to something more human readable
but make sure they are unique in the context of your application } but make sure they are unique in the context of your application }
RID_ListaAnosFacturas = '{E4006E34-9471-4B45-8BFB-34D795EE5B47}'; RID_ListaAnosFacturas = '{9DA12B35-FF8C-4FC7-B9B2-D27D6192588D}';
RID_FacturasProveedor_Contratos = '{AEFE41C5-3FCA-46FB-8174-2704B20E2905}'; RID_FacturasProveedor_Contratos = '{0B279D2E-FC78-4842-A4C9-2C3CA9C0B5AD}';
RID_FacturasProveedor = '{4621460A-3688-408C-9676-B526823EC8EF}'; RID_FacturasProveedor = '{BE1C4615-1771-48A5-A934-4BCF08BF02A4}';
RID_FacturasProveedor_Detalles = '{13D46CB1-CC91-4B2C-83B0-6265D005B1E1}'; RID_FacturasProveedor_Detalles = '{F91F9389-AE70-46CB-AA45-D3F63027E132}';
{ Data table names } { Data table names }
nme_ListaAnosFacturas = 'ListaAnosFacturas'; nme_ListaAnosFacturas = 'ListaAnosFacturas';
@ -34,6 +34,9 @@ const
fld_FacturasProveedor_ContratosNOMBRE = 'NOMBRE'; fld_FacturasProveedor_ContratosNOMBRE = 'NOMBRE';
fld_FacturasProveedor_ContratosNIF_CIF = 'NIF_CIF'; fld_FacturasProveedor_ContratosNIF_CIF = 'NIF_CIF';
fld_FacturasProveedor_ContratosIMPORTE = 'IMPORTE'; fld_FacturasProveedor_ContratosIMPORTE = 'IMPORTE';
fld_FacturasProveedor_ContratosREFERENCIA1 = 'REFERENCIA1';
fld_FacturasProveedor_ContratosNOMBRE1 = 'NOMBRE1';
fld_FacturasProveedor_ContratosBASE_IMPONIBLE = 'BASE_IMPONIBLE';
{ FacturasProveedor_Contratos field indexes } { FacturasProveedor_Contratos field indexes }
idx_FacturasProveedor_ContratosID = 0; idx_FacturasProveedor_ContratosID = 0;
@ -43,6 +46,9 @@ const
idx_FacturasProveedor_ContratosNOMBRE = 4; idx_FacturasProveedor_ContratosNOMBRE = 4;
idx_FacturasProveedor_ContratosNIF_CIF = 5; idx_FacturasProveedor_ContratosNIF_CIF = 5;
idx_FacturasProveedor_ContratosIMPORTE = 6; idx_FacturasProveedor_ContratosIMPORTE = 6;
idx_FacturasProveedor_ContratosREFERENCIA1 = 7;
idx_FacturasProveedor_ContratosNOMBRE1 = 8;
idx_FacturasProveedor_ContratosBASE_IMPONIBLE = 9;
{ FacturasProveedor fields } { FacturasProveedor fields }
fld_FacturasProveedorID = 'ID'; fld_FacturasProveedorID = 'ID';
@ -167,7 +173,7 @@ const
type type
{ IListaAnosFacturas } { IListaAnosFacturas }
IListaAnosFacturas = interface(IDAStronglyTypedDataTable) IListaAnosFacturas = interface(IDAStronglyTypedDataTable)
['{FC0D46EE-86BF-4511-819E-E9791181DC39}'] ['{D700BF3D-8D70-44CF-ACC3-8B9E567A3713}']
{ Property getters and setters } { Property getters and setters }
function GetANOValue: String; function GetANOValue: String;
procedure SetANOValue(const aValue: String); procedure SetANOValue(const aValue: String);
@ -202,7 +208,7 @@ type
{ IFacturasProveedor_Contratos } { IFacturasProveedor_Contratos }
IFacturasProveedor_Contratos = interface(IDAStronglyTypedDataTable) IFacturasProveedor_Contratos = interface(IDAStronglyTypedDataTable)
['{DDCB3A4E-D047-4E73-8B5C-7E5879061F5E}'] ['{E9A001E7-1B6C-4C4B-B04A-ABBF9A035D58}']
{ Property getters and setters } { Property getters and setters }
function GetIDValue: Integer; function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer); procedure SetIDValue(const aValue: Integer);
@ -232,6 +238,18 @@ type
procedure SetIMPORTEValue(const aValue: Currency); procedure SetIMPORTEValue(const aValue: Currency);
function GetIMPORTEIsNull: Boolean; function GetIMPORTEIsNull: Boolean;
procedure SetIMPORTEIsNull(const aValue: Boolean); procedure SetIMPORTEIsNull(const aValue: Boolean);
function GetREFERENCIA1Value: String;
procedure SetREFERENCIA1Value(const aValue: String);
function GetREFERENCIA1IsNull: Boolean;
procedure SetREFERENCIA1IsNull(const aValue: Boolean);
function GetNOMBRE1Value: String;
procedure SetNOMBRE1Value(const aValue: String);
function GetNOMBRE1IsNull: Boolean;
procedure SetNOMBRE1IsNull(const aValue: Boolean);
function GetBASE_IMPONIBLEValue: Currency;
procedure SetBASE_IMPONIBLEValue(const aValue: Currency);
function GetBASE_IMPONIBLEIsNull: Boolean;
procedure SetBASE_IMPONIBLEIsNull(const aValue: Boolean);
{ Properties } { Properties }
@ -249,6 +267,12 @@ type
property NIF_CIFIsNull: Boolean read GetNIF_CIFIsNull write SetNIF_CIFIsNull; property NIF_CIFIsNull: Boolean read GetNIF_CIFIsNull write SetNIF_CIFIsNull;
property IMPORTE: Currency read GetIMPORTEValue write SetIMPORTEValue; property IMPORTE: Currency read GetIMPORTEValue write SetIMPORTEValue;
property IMPORTEIsNull: Boolean read GetIMPORTEIsNull write SetIMPORTEIsNull; property IMPORTEIsNull: Boolean read GetIMPORTEIsNull write SetIMPORTEIsNull;
property REFERENCIA1: String read GetREFERENCIA1Value write SetREFERENCIA1Value;
property REFERENCIA1IsNull: Boolean read GetREFERENCIA1IsNull write SetREFERENCIA1IsNull;
property NOMBRE1: String read GetNOMBRE1Value write SetNOMBRE1Value;
property NOMBRE1IsNull: Boolean read GetNOMBRE1IsNull write SetNOMBRE1IsNull;
property BASE_IMPONIBLE: Currency read GetBASE_IMPONIBLEValue write SetBASE_IMPONIBLEValue;
property BASE_IMPONIBLEIsNull: Boolean read GetBASE_IMPONIBLEIsNull write SetBASE_IMPONIBLEIsNull;
end; end;
{ TFacturasProveedor_ContratosDataTableRules } { TFacturasProveedor_ContratosDataTableRules }
@ -284,6 +308,18 @@ type
procedure SetIMPORTEValue(const aValue: Currency); virtual; procedure SetIMPORTEValue(const aValue: Currency); virtual;
function GetIMPORTEIsNull: Boolean; virtual; function GetIMPORTEIsNull: Boolean; virtual;
procedure SetIMPORTEIsNull(const aValue: Boolean); virtual; procedure SetIMPORTEIsNull(const aValue: Boolean); virtual;
function GetREFERENCIA1Value: String; virtual;
procedure SetREFERENCIA1Value(const aValue: String); virtual;
function GetREFERENCIA1IsNull: Boolean; virtual;
procedure SetREFERENCIA1IsNull(const aValue: Boolean); virtual;
function GetNOMBRE1Value: String; virtual;
procedure SetNOMBRE1Value(const aValue: String); virtual;
function GetNOMBRE1IsNull: Boolean; virtual;
procedure SetNOMBRE1IsNull(const aValue: Boolean); virtual;
function GetBASE_IMPONIBLEValue: Currency; virtual;
procedure SetBASE_IMPONIBLEValue(const aValue: Currency); virtual;
function GetBASE_IMPONIBLEIsNull: Boolean; virtual;
procedure SetBASE_IMPONIBLEIsNull(const aValue: Boolean); virtual;
{ Properties } { Properties }
property ID: Integer read GetIDValue write SetIDValue; property ID: Integer read GetIDValue write SetIDValue;
@ -300,6 +336,12 @@ type
property NIF_CIFIsNull: Boolean read GetNIF_CIFIsNull write SetNIF_CIFIsNull; property NIF_CIFIsNull: Boolean read GetNIF_CIFIsNull write SetNIF_CIFIsNull;
property IMPORTE: Currency read GetIMPORTEValue write SetIMPORTEValue; property IMPORTE: Currency read GetIMPORTEValue write SetIMPORTEValue;
property IMPORTEIsNull: Boolean read GetIMPORTEIsNull write SetIMPORTEIsNull; property IMPORTEIsNull: Boolean read GetIMPORTEIsNull write SetIMPORTEIsNull;
property REFERENCIA1: String read GetREFERENCIA1Value write SetREFERENCIA1Value;
property REFERENCIA1IsNull: Boolean read GetREFERENCIA1IsNull write SetREFERENCIA1IsNull;
property NOMBRE1: String read GetNOMBRE1Value write SetNOMBRE1Value;
property NOMBRE1IsNull: Boolean read GetNOMBRE1IsNull write SetNOMBRE1IsNull;
property BASE_IMPONIBLE: Currency read GetBASE_IMPONIBLEValue write SetBASE_IMPONIBLEValue;
property BASE_IMPONIBLEIsNull: Boolean read GetBASE_IMPONIBLEIsNull write SetBASE_IMPONIBLEIsNull;
public public
constructor Create(aDataTable: TDADataTable); override; constructor Create(aDataTable: TDADataTable); override;
@ -309,7 +351,7 @@ type
{ IFacturasProveedor } { IFacturasProveedor }
IFacturasProveedor = interface(IDAStronglyTypedDataTable) IFacturasProveedor = interface(IDAStronglyTypedDataTable)
['{1D01094B-37F3-499C-84DD-5C94D01CE360}'] ['{95F785E2-C98F-4DDC-A1BB-95E6F3A32493}']
{ Property getters and setters } { Property getters and setters }
function GetIDValue: Integer; function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer); procedure SetIDValue(const aValue: Integer);
@ -836,7 +878,7 @@ type
{ IFacturasProveedor_Detalles } { IFacturasProveedor_Detalles }
IFacturasProveedor_Detalles = interface(IDAStronglyTypedDataTable) IFacturasProveedor_Detalles = interface(IDAStronglyTypedDataTable)
['{4D3A6663-3708-42B0-8D14-5C4E213D48FC}'] ['{8682A80B-C184-4AAB-8184-A571B747DF3C}']
{ Property getters and setters } { Property getters and setters }
function GetIDValue: Integer; function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer); procedure SetIDValue(const aValue: Integer);
@ -1220,6 +1262,69 @@ begin
DataTable.Fields[idx_FacturasProveedor_ContratosIMPORTE].AsVariant := Null; DataTable.Fields[idx_FacturasProveedor_ContratosIMPORTE].AsVariant := Null;
end; end;
function TFacturasProveedor_ContratosDataTableRules.GetREFERENCIA1Value: String;
begin
result := DataTable.Fields[idx_FacturasProveedor_ContratosREFERENCIA1].AsString;
end;
procedure TFacturasProveedor_ContratosDataTableRules.SetREFERENCIA1Value(const aValue: String);
begin
DataTable.Fields[idx_FacturasProveedor_ContratosREFERENCIA1].AsString := aValue;
end;
function TFacturasProveedor_ContratosDataTableRules.GetREFERENCIA1IsNull: boolean;
begin
result := DataTable.Fields[idx_FacturasProveedor_ContratosREFERENCIA1].IsNull;
end;
procedure TFacturasProveedor_ContratosDataTableRules.SetREFERENCIA1IsNull(const aValue: Boolean);
begin
if aValue then
DataTable.Fields[idx_FacturasProveedor_ContratosREFERENCIA1].AsVariant := Null;
end;
function TFacturasProveedor_ContratosDataTableRules.GetNOMBRE1Value: String;
begin
result := DataTable.Fields[idx_FacturasProveedor_ContratosNOMBRE1].AsString;
end;
procedure TFacturasProveedor_ContratosDataTableRules.SetNOMBRE1Value(const aValue: String);
begin
DataTable.Fields[idx_FacturasProveedor_ContratosNOMBRE1].AsString := aValue;
end;
function TFacturasProveedor_ContratosDataTableRules.GetNOMBRE1IsNull: boolean;
begin
result := DataTable.Fields[idx_FacturasProveedor_ContratosNOMBRE1].IsNull;
end;
procedure TFacturasProveedor_ContratosDataTableRules.SetNOMBRE1IsNull(const aValue: Boolean);
begin
if aValue then
DataTable.Fields[idx_FacturasProveedor_ContratosNOMBRE1].AsVariant := Null;
end;
function TFacturasProveedor_ContratosDataTableRules.GetBASE_IMPONIBLEValue: Currency;
begin
result := DataTable.Fields[idx_FacturasProveedor_ContratosBASE_IMPONIBLE].AsCurrency;
end;
procedure TFacturasProveedor_ContratosDataTableRules.SetBASE_IMPONIBLEValue(const aValue: Currency);
begin
DataTable.Fields[idx_FacturasProveedor_ContratosBASE_IMPONIBLE].AsCurrency := aValue;
end;
function TFacturasProveedor_ContratosDataTableRules.GetBASE_IMPONIBLEIsNull: boolean;
begin
result := DataTable.Fields[idx_FacturasProveedor_ContratosBASE_IMPONIBLE].IsNull;
end;
procedure TFacturasProveedor_ContratosDataTableRules.SetBASE_IMPONIBLEIsNull(const aValue: Boolean);
begin
if aValue then
DataTable.Fields[idx_FacturasProveedor_ContratosBASE_IMPONIBLE].AsVariant := Null;
end;
{ TFacturasProveedorDataTableRules } { TFacturasProveedorDataTableRules }
constructor TFacturasProveedorDataTableRules.Create(aDataTable: TDADataTable); constructor TFacturasProveedorDataTableRules.Create(aDataTable: TDADataTable);

145
Source/Modulos/Facturas de proveedor/Model/schFacturasProveedorServer_Intf.pas
View File

@ -9,15 +9,15 @@ const
{ Delta rules ids { Delta rules ids
Feel free to change them to something more human readable Feel free to change them to something more human readable
but make sure they are unique in the context of your application } but make sure they are unique in the context of your application }
RID_ListaAnosFacturasDelta = '{89FAA336-EE10-4D08-A890-EFD959DA9FB3}'; RID_ListaAnosFacturasDelta = '{AC0CC688-6329-4EF0-93EF-6AC7B08E5101}';
RID_FacturasProveedor_ContratosDelta = '{2BF7C867-86B7-42EB-9FFA-92DF6E9874F0}'; RID_FacturasProveedor_ContratosDelta = '{D7D38D2A-1168-4C6B-B57D-7BD5119CA3F5}';
RID_FacturasProveedorDelta = '{FB90A42D-E182-4F49-9873-E549CD6C3519}'; RID_FacturasProveedorDelta = '{456F1F41-BBFB-4A9C-9565-1F8FF749CC34}';
RID_FacturasProveedor_DetallesDelta = '{25250ECD-8E6B-4B25-9F0A-00B4B207C317}'; RID_FacturasProveedor_DetallesDelta = '{6C81FBAB-0CDF-488E-BD58-F27BF4B72866}';
type type
{ IListaAnosFacturasDelta } { IListaAnosFacturasDelta }
IListaAnosFacturasDelta = interface(IListaAnosFacturas) IListaAnosFacturasDelta = interface(IListaAnosFacturas)
['{89FAA336-EE10-4D08-A890-EFD959DA9FB3}'] ['{AC0CC688-6329-4EF0-93EF-6AC7B08E5101}']
{ Property getters and setters } { Property getters and setters }
function GetOldANOValue : String; function GetOldANOValue : String;
@ -51,7 +51,7 @@ type
{ IFacturasProveedor_ContratosDelta } { IFacturasProveedor_ContratosDelta }
IFacturasProveedor_ContratosDelta = interface(IFacturasProveedor_Contratos) IFacturasProveedor_ContratosDelta = interface(IFacturasProveedor_Contratos)
['{2BF7C867-86B7-42EB-9FFA-92DF6E9874F0}'] ['{D7D38D2A-1168-4C6B-B57D-7BD5119CA3F5}']
{ Property getters and setters } { Property getters and setters }
function GetOldIDValue : Integer; function GetOldIDValue : Integer;
function GetOldID_FACTURAValue : Integer; function GetOldID_FACTURAValue : Integer;
@ -60,6 +60,9 @@ type
function GetOldNOMBREValue : String; function GetOldNOMBREValue : String;
function GetOldNIF_CIFValue : String; function GetOldNIF_CIFValue : String;
function GetOldIMPORTEValue : Currency; function GetOldIMPORTEValue : Currency;
function GetOldREFERENCIA1Value : String;
function GetOldNOMBRE1Value : String;
function GetOldBASE_IMPONIBLEValue : Currency;
{ Properties } { Properties }
property OldID : Integer read GetOldIDValue; property OldID : Integer read GetOldIDValue;
@ -69,6 +72,9 @@ type
property OldNOMBRE : String read GetOldNOMBREValue; property OldNOMBRE : String read GetOldNOMBREValue;
property OldNIF_CIF : String read GetOldNIF_CIFValue; property OldNIF_CIF : String read GetOldNIF_CIFValue;
property OldIMPORTE : Currency read GetOldIMPORTEValue; property OldIMPORTE : Currency read GetOldIMPORTEValue;
property OldREFERENCIA1 : String read GetOldREFERENCIA1Value;
property OldNOMBRE1 : String read GetOldNOMBRE1Value;
property OldBASE_IMPONIBLE : Currency read GetOldBASE_IMPONIBLEValue;
end; end;
{ TFacturasProveedor_ContratosBusinessProcessorRules } { TFacturasProveedor_ContratosBusinessProcessorRules }
@ -118,6 +124,24 @@ type
function GetOldIMPORTEIsNull: Boolean; virtual; function GetOldIMPORTEIsNull: Boolean; virtual;
procedure SetIMPORTEValue(const aValue: Currency); virtual; procedure SetIMPORTEValue(const aValue: Currency); virtual;
procedure SetIMPORTEIsNull(const aValue: Boolean); virtual; procedure SetIMPORTEIsNull(const aValue: Boolean); virtual;
function GetREFERENCIA1Value: String; virtual;
function GetREFERENCIA1IsNull: Boolean; virtual;
function GetOldREFERENCIA1Value: String; virtual;
function GetOldREFERENCIA1IsNull: Boolean; virtual;
procedure SetREFERENCIA1Value(const aValue: String); virtual;
procedure SetREFERENCIA1IsNull(const aValue: Boolean); virtual;
function GetNOMBRE1Value: String; virtual;
function GetNOMBRE1IsNull: Boolean; virtual;
function GetOldNOMBRE1Value: String; virtual;
function GetOldNOMBRE1IsNull: Boolean; virtual;
procedure SetNOMBRE1Value(const aValue: String); virtual;
procedure SetNOMBRE1IsNull(const aValue: Boolean); virtual;
function GetBASE_IMPONIBLEValue: Currency; virtual;
function GetBASE_IMPONIBLEIsNull: Boolean; virtual;
function GetOldBASE_IMPONIBLEValue: Currency; virtual;
function GetOldBASE_IMPONIBLEIsNull: Boolean; virtual;
procedure SetBASE_IMPONIBLEValue(const aValue: Currency); virtual;
procedure SetBASE_IMPONIBLEIsNull(const aValue: Boolean); virtual;
{ Properties } { Properties }
property ID : Integer read GetIDValue write SetIDValue; property ID : Integer read GetIDValue write SetIDValue;
@ -148,6 +172,18 @@ type
property IMPORTEIsNull : Boolean read GetIMPORTEIsNull write SetIMPORTEIsNull; property IMPORTEIsNull : Boolean read GetIMPORTEIsNull write SetIMPORTEIsNull;
property OldIMPORTE : Currency read GetOldIMPORTEValue; property OldIMPORTE : Currency read GetOldIMPORTEValue;
property OldIMPORTEIsNull : Boolean read GetOldIMPORTEIsNull; property OldIMPORTEIsNull : Boolean read GetOldIMPORTEIsNull;
property REFERENCIA1 : String read GetREFERENCIA1Value write SetREFERENCIA1Value;
property REFERENCIA1IsNull : Boolean read GetREFERENCIA1IsNull write SetREFERENCIA1IsNull;
property OldREFERENCIA1 : String read GetOldREFERENCIA1Value;
property OldREFERENCIA1IsNull : Boolean read GetOldREFERENCIA1IsNull;
property NOMBRE1 : String read GetNOMBRE1Value write SetNOMBRE1Value;
property NOMBRE1IsNull : Boolean read GetNOMBRE1IsNull write SetNOMBRE1IsNull;
property OldNOMBRE1 : String read GetOldNOMBRE1Value;
property OldNOMBRE1IsNull : Boolean read GetOldNOMBRE1IsNull;
property BASE_IMPONIBLE : Currency read GetBASE_IMPONIBLEValue write SetBASE_IMPONIBLEValue;
property BASE_IMPONIBLEIsNull : Boolean read GetBASE_IMPONIBLEIsNull write SetBASE_IMPONIBLEIsNull;
property OldBASE_IMPONIBLE : Currency read GetOldBASE_IMPONIBLEValue;
property OldBASE_IMPONIBLEIsNull : Boolean read GetOldBASE_IMPONIBLEIsNull;
public public
constructor Create(aBusinessProcessor: TDABusinessProcessor); override; constructor Create(aBusinessProcessor: TDABusinessProcessor); override;
@ -157,7 +193,7 @@ type
{ IFacturasProveedorDelta } { IFacturasProveedorDelta }
IFacturasProveedorDelta = interface(IFacturasProveedor) IFacturasProveedorDelta = interface(IFacturasProveedor)
['{FB90A42D-E182-4F49-9873-E549CD6C3519}'] ['{456F1F41-BBFB-4A9C-9565-1F8FF749CC34}']
{ Property getters and setters } { Property getters and setters }
function GetOldIDValue : Integer; function GetOldIDValue : Integer;
function GetOldID_EMPRESAValue : Integer; function GetOldID_EMPRESAValue : Integer;
@ -684,7 +720,7 @@ type
{ IFacturasProveedor_DetallesDelta } { IFacturasProveedor_DetallesDelta }
IFacturasProveedor_DetallesDelta = interface(IFacturasProveedor_Detalles) IFacturasProveedor_DetallesDelta = interface(IFacturasProveedor_Detalles)
['{25250ECD-8E6B-4B25-9F0A-00B4B207C317}'] ['{6C81FBAB-0CDF-488E-BD58-F27BF4B72866}']
{ Property getters and setters } { Property getters and setters }
function GetOldIDValue : Integer; function GetOldIDValue : Integer;
function GetOldID_FACTURAValue : Integer; function GetOldID_FACTURAValue : Integer;
@ -1148,6 +1184,99 @@ begin
BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasProveedor_ContratosIMPORTE] := Null; BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasProveedor_ContratosIMPORTE] := Null;
end; end;
function TFacturasProveedor_ContratosBusinessProcessorRules.GetREFERENCIA1Value: String;
begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasProveedor_ContratosREFERENCIA1];
end;
function TFacturasProveedor_ContratosBusinessProcessorRules.GetREFERENCIA1IsNull: Boolean;
begin
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasProveedor_ContratosREFERENCIA1]);
end;
function TFacturasProveedor_ContratosBusinessProcessorRules.GetOldREFERENCIA1Value: String;
begin
result := BusinessProcessor.CurrentChange.OldValueByName[fld_FacturasProveedor_ContratosREFERENCIA1];
end;
function TFacturasProveedor_ContratosBusinessProcessorRules.GetOldREFERENCIA1IsNull: Boolean;
begin
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_FacturasProveedor_ContratosREFERENCIA1]);
end;
procedure TFacturasProveedor_ContratosBusinessProcessorRules.SetREFERENCIA1Value(const aValue: String);
begin
BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasProveedor_ContratosREFERENCIA1] := aValue;
end;
procedure TFacturasProveedor_ContratosBusinessProcessorRules.SetREFERENCIA1IsNull(const aValue: Boolean);
begin
if aValue then
BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasProveedor_ContratosREFERENCIA1] := Null;
end;
function TFacturasProveedor_ContratosBusinessProcessorRules.GetNOMBRE1Value: String;
begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasProveedor_ContratosNOMBRE1];
end;
function TFacturasProveedor_ContratosBusinessProcessorRules.GetNOMBRE1IsNull: Boolean;
begin
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasProveedor_ContratosNOMBRE1]);
end;
function TFacturasProveedor_ContratosBusinessProcessorRules.GetOldNOMBRE1Value: String;
begin
result := BusinessProcessor.CurrentChange.OldValueByName[fld_FacturasProveedor_ContratosNOMBRE1];
end;
function TFacturasProveedor_ContratosBusinessProcessorRules.GetOldNOMBRE1IsNull: Boolean;
begin
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_FacturasProveedor_ContratosNOMBRE1]);
end;
procedure TFacturasProveedor_ContratosBusinessProcessorRules.SetNOMBRE1Value(const aValue: String);
begin
BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasProveedor_ContratosNOMBRE1] := aValue;
end;
procedure TFacturasProveedor_ContratosBusinessProcessorRules.SetNOMBRE1IsNull(const aValue: Boolean);
begin
if aValue then
BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasProveedor_ContratosNOMBRE1] := Null;
end;
function TFacturasProveedor_ContratosBusinessProcessorRules.GetBASE_IMPONIBLEValue: Currency;
begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasProveedor_ContratosBASE_IMPONIBLE];
end;
function TFacturasProveedor_ContratosBusinessProcessorRules.GetBASE_IMPONIBLEIsNull: Boolean;
begin
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasProveedor_ContratosBASE_IMPONIBLE]);
end;
function TFacturasProveedor_ContratosBusinessProcessorRules.GetOldBASE_IMPONIBLEValue: Currency;
begin
result := BusinessProcessor.CurrentChange.OldValueByName[fld_FacturasProveedor_ContratosBASE_IMPONIBLE];
end;
function TFacturasProveedor_ContratosBusinessProcessorRules.GetOldBASE_IMPONIBLEIsNull: Boolean;
begin
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_FacturasProveedor_ContratosBASE_IMPONIBLE]);
end;
procedure TFacturasProveedor_ContratosBusinessProcessorRules.SetBASE_IMPONIBLEValue(const aValue: Currency);
begin
BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasProveedor_ContratosBASE_IMPONIBLE] := aValue;
end;
procedure TFacturasProveedor_ContratosBusinessProcessorRules.SetBASE_IMPONIBLEIsNull(const aValue: Boolean);
begin
if aValue then
BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasProveedor_ContratosBASE_IMPONIBLE] := Null;
end;
{ TFacturasProveedorBusinessProcessorRules } { TFacturasProveedorBusinessProcessorRules }
constructor TFacturasProveedorBusinessProcessorRules.Create(aBusinessProcessor: TDABusinessProcessor); constructor TFacturasProveedorBusinessProcessorRules.Create(aBusinessProcessor: TDABusinessProcessor);

33
Source/Modulos/Facturas de proveedor/Plugin/uPluginFacturasProveedor.pas
View File

@ -4,13 +4,9 @@ interface
uses uses
uModuleController, uInterfaces, uHostManager, Menus, Classes, ActnList, uModuleController, uInterfaces, uHostManager, Menus, Classes, ActnList,
ImgList, Controls, PngImageList; ImgList, Controls, PngImageList, uPlugins_Intf;
type type
IMCFacturasProveedor = interface(IInterface)
['{271C68BC-F755-46B1-AEFF-769AC5172815}']
end;
TPluginFacturasProveedor = class(TModuleController, IMCFacturasProveedor) TPluginFacturasProveedor = class(TModuleController, IMCFacturasProveedor)
actFacturasProveedor: TAction; actFacturasProveedor: TAction;
ExtraImages: TPngImageList; ExtraImages: TPngImageList;
@ -24,6 +20,7 @@ type
public public
constructor Create(AOwner: TComponent); override; constructor Create(AOwner: TComponent); override;
destructor Destroy; override; destructor Destroy; override;
procedure VerFacturasContrato(Const ID_Contrato: Integer; Ref_Contrato: String = ''; NomCLi_Contrato: String = '');
end; end;
implementation implementation
@ -31,7 +28,7 @@ implementation
{$R *.dfm} {$R *.dfm}
uses uses
Forms, Dialogs, SysUtils, Forms, Dialogs, SysUtils, cxControls,
uFacturasProveedorController, uBizFacturasProveedor, uFacturasProveedorViewRegister; uFacturasProveedorController, uBizFacturasProveedor, uFacturasProveedorViewRegister;
function GetModule : TModuleController; function GetModule : TModuleController;
@ -56,6 +53,7 @@ end;
constructor TPluginFacturasProveedor.Create(AOwner: TComponent); constructor TPluginFacturasProveedor.Create(AOwner: TComponent);
begin begin
inherited; inherited;
ModuleName := MODULENAME_FACTURAS_PROVEEDOR;
uFacturasProveedorViewRegister.RegisterViews; uFacturasProveedorViewRegister.RegisterViews;
end; end;
@ -65,6 +63,29 @@ begin
inherited; inherited;
end; end;
procedure TPluginFacturasProveedor.VerFacturasContrato(
const ID_Contrato: Integer; Ref_Contrato, NomCLi_Contrato: String);
var
AFacturasProveedorController : IFacturasProveedorController;
AFacturas : IBizFacturaProveedor;
AText : String;
begin
AText := Format('Lista de facturas a proveedor del contrato %s - %s', [Ref_Contrato, NomCLi_Contrato]);
AFacturasProveedorController := TFacturasProveedorController.Create;
try
ShowHourglassCursor;
try
AFacturas := AFacturasProveedorController.BuscarTodos; // BuscarDelContrato(ID_Contrato);
finally
HideHourglassCursor;
end;
AFacturasProveedorController.VerTodos(AFacturas); //, True, AText);
finally
AFacturas := NIL;
AFacturasProveedorController := NIL;
end;
end;
initialization initialization
RegisterModuleClass(TPluginFacturasProveedor); RegisterModuleClass(TPluginFacturasProveedor);

40
Source/Modulos/Facturas de proveedor/Servidor/srvFacturasProveedor_Impl.dfm
View File

@ -52,10 +52,13 @@ object srvFacturasProveedor: TsrvFacturasProveedor
'SELECT '#10' FACTURAS_PROVEEDOR_CONTRATOS.ID, FACTURAS_PROVEEDOR_' + 'SELECT '#10' FACTURAS_PROVEEDOR_CONTRATOS.ID, FACTURAS_PROVEEDOR_' +
'CONTRATOS.ID_FACTURA, FACTURAS_PROVEEDOR_CONTRATOS.ID_CONTRATO,'#10 + 'CONTRATOS.ID_FACTURA, FACTURAS_PROVEEDOR_CONTRATOS.ID_CONTRATO,'#10 +
' contratos_cliente.referencia, contratos_cliente.nombre, cont' + ' contratos_cliente.referencia, contratos_cliente.nombre, cont' +
'ratos_cliente.nif_cif,'#10' FACTURAS_PROVEEDOR_CONTRATOS.IMPORTE'#10 + 'ratos_cliente.nif_cif,'#10' FACTURAS_PROVEEDOR_CONTRATOS.IMPORTE,' +
' FROM'#10' FACTURAS_PROVEEDOR_CONTRATOS'#10' left join contratos_cl' + ' facturas_proveedor.REFERENCIA, facturas_proveedor.nombre, factu' +
'iente on (contratos_cliente.id = FACTURAS_PROVEEDOR_CONTRATOS.id' + 'ras_proveedor.base_imponible'#10' FROM'#10' FACTURAS_PROVEEDOR_CONTR' +
'_contrato)'#10' WHERE {Where}'#10 'ATOS'#10' left join contratos_cliente on (contratos_cliente.id = FA' +
'CTURAS_PROVEEDOR_CONTRATOS.id_contrato)'#10' left join facturas_pro' +
'veedor on (facturas_proveedor.id = FACTURAS_PROVEEDOR_CONTRATOS.' +
'id_factura)'#10' WHERE {Where}'#10
StatementType = stSQL StatementType = stSQL
ColumnMappings = < ColumnMappings = <
item item
@ -88,6 +91,21 @@ object srvFacturasProveedor: TsrvFacturasProveedor
DatasetField = 'REFERENCIA' DatasetField = 'REFERENCIA'
TableField = '<unknown>' TableField = '<unknown>'
SQLOrigin = 'REFERENCIA' SQLOrigin = 'REFERENCIA'
end
item
DatasetField = 'REFERENCIA1'
TableField = '<unknown>'
SQLOrigin = 'REFERENCIA1'
end
item
DatasetField = 'NOMBRE1'
TableField = '<unknown>'
SQLOrigin = 'NOMBRE1'
end
item
DatasetField = 'BASE_IMPONIBLE'
TableField = '<unknown>'
SQLOrigin = 'BASE_IMPONIBLE'
end> end>
end> end>
Name = 'FacturasProveedor_Contratos' Name = 'FacturasProveedor_Contratos'
@ -131,6 +149,20 @@ object srvFacturasProveedor: TsrvFacturasProveedor
Name = 'IMPORTE' Name = 'IMPORTE'
DataType = datCurrency DataType = datCurrency
DictionaryEntry = 'FacturasProveedor_Contratos_IMPORTE' DictionaryEntry = 'FacturasProveedor_Contratos_IMPORTE'
end
item
Name = 'REFERENCIA1'
DataType = datString
Size = 255
end
item
Name = 'NOMBRE1'
DataType = datString
Size = 255
end
item
Name = 'BASE_IMPONIBLE'
DataType = datCurrency
end> end>
end end
item item

52
Source/Modulos/Inventario/Data/uDataModuleInventario.dfm
View File

@ -144,121 +144,121 @@ inherited DataModuleInventario: TDataModuleInventario
item item
Name = 'ID_ALMACEN' Name = 'ID_ALMACEN'
DataType = datInteger DataType = datInteger
DictionaryEntry = 'INVENTARIO_ID_ALMACEN' DictionaryEntry = 'Inventario_ID_ALMACEN'
end end
item item
Name = 'ID_ARTICULO' Name = 'ID_ARTICULO'
DataType = datInteger DataType = datInteger
DictionaryEntry = 'INVENTARIO_ID_ARTICULO' DictionaryEntry = 'Inventario_ID_ARTICULO'
end end
item item
Name = 'ALMACEN' Name = 'ALMACEN'
DataType = datString DataType = datString
Size = 255 Size = 255
DictionaryEntry = 'INVENTARIO_ALMACEN' DictionaryEntry = 'Inventario_ALMACEN'
end end
item item
Name = 'ID_EMPRESA' Name = 'ID_EMPRESA'
DataType = datInteger DataType = datInteger
DictionaryEntry = 'INVENTARIO_ID_EMPRESA' DictionaryEntry = 'Inventario_ID_EMPRESA'
end end
item item
Name = 'REFERENCIA' Name = 'REFERENCIA'
DataType = datString DataType = datString
Size = 255 Size = 255
DisplayLabel = 'INVENTARIO_REFERENCIA' DisplayLabel = 'INVENTARIO_REFERENCIA'
DictionaryEntry = 'INVENTARIO_REFERENCIA' DictionaryEntry = 'Inventario_REFERENCIA'
end end
item item
Name = 'FAMILIA' Name = 'FAMILIA'
DataType = datString DataType = datString
Size = 255 Size = 255
DictionaryEntry = 'INVENTARIO_FAMILIA' DictionaryEntry = 'Inventario_FAMILIA'
end end
item item
Name = 'DESCRIPCION' Name = 'DESCRIPCION'
DataType = datString DataType = datString
Size = 255 Size = 255
DictionaryEntry = 'INVENTARIO_DESCRIPCION' DictionaryEntry = 'Inventario_DESCRIPCION'
end end
item item
Name = 'REFERENCIA_PROVEEDOR' Name = 'REFERENCIA_PROVEEDOR'
DataType = datString DataType = datString
Size = 255 Size = 255
DictionaryEntry = 'INVENTARIO_REFERENCIA_PROVEEDOR' DictionaryEntry = 'Inventario_REFERENCIA_PROVEEDOR'
end end
item item
Name = 'PRECIO_NETO' Name = 'PRECIO_NETO'
DataType = datCurrency DataType = datCurrency
DisplayLabel = 'Precio unidad' DisplayLabel = 'Precio unidad'
Alignment = taRightJustify Alignment = taRightJustify
DictionaryEntry = 'INVENTARIO_PRECIO_NETO' DictionaryEntry = 'Inventario_PRECIO_NETO'
end end
item item
Name = 'STOCK' Name = 'STOCK'
DataType = datLargeInt DataType = datFloat
DisplayLabel = 'Stock disponible' DisplayLabel = 'Stock disponible'
DictionaryEntry = 'INVENTARIO_STOCK' DictionaryEntry = 'Inventario_STOCK'
end end
item item
Name = 'UNIDADES_ALMACEN' Name = 'UNIDADES_ALMACEN'
DataType = datLargeInt DataType = datFloat
DisplayLabel = 'U. Almac'#195#169'n' DisplayLabel = 'U. Almac'#233'n'
DictionaryEntry = 'INVENTARIO_UNIDADES_ALMACEN' DictionaryEntry = 'Inventario_UNIDADES_ALMACEN'
end end
item item
Name = 'COSTE_UNIDADES' Name = 'COSTE_UNIDADES'
DataType = datCurrency DataType = datCurrency
DisplayLabel = 'Coste unidades' DisplayLabel = 'Coste unidades'
Alignment = taRightJustify Alignment = taRightJustify
DictionaryEntry = 'INVENTARIO_COSTE_UNIDADES' DictionaryEntry = 'Inventario_COSTE_UNIDADES'
end end
item item
Name = 'RESERVA' Name = 'RESERVA'
DataType = datLargeInt DataType = datFloat
DisplayLabel = 'Reservado' DisplayLabel = 'Reservado'
DictionaryEntry = 'INVENTARIO_RESERVA' DictionaryEntry = 'Inventario_RESERVA'
end end
item item
Name = 'PENDIENTE_RECEPCION' Name = 'PENDIENTE_RECEPCION'
DataType = datLargeInt DataType = datFloat
DisplayLabel = 'Pendiente de recibir' DisplayLabel = 'Pendiente de recibir'
DictionaryEntry = 'INVENTARIO_PENDIENTE_RECEPCION' DictionaryEntry = 'Inventario_PENDIENTE_RECEPCION'
end end
item item
Name = 'ID' Name = 'ID'
DataType = datInteger DataType = datInteger
LogChanges = False LogChanges = False
DisplayLabel = 'INVENTARIO_ID' DisplayLabel = 'INVENTARIO_ID'
DictionaryEntry = 'INVENTARIO_ID' DictionaryEntry = 'Inventario_ID'
InPrimaryKey = True InPrimaryKey = True
Calculated = True Calculated = True
end end
item item
Name = 'CANTIDAD' Name = 'CANTIDAD'
DataType = datInteger DataType = datFloat
DisplayLabel = 'INVENTARIO_CANTIDAD' DisplayLabel = 'INVENTARIO_CANTIDAD'
DictionaryEntry = 'INVENTARIO_CANTIDAD' DictionaryEntry = 'Inventario_CANTIDAD'
end end
item item
Name = 'FECHA_MOVIMIENTO' Name = 'FECHA_MOVIMIENTO'
DataType = datDateTime DataType = datDateTime
DisplayLabel = 'INVENTARIO_FECHA_MOVIMIENTO' DisplayLabel = 'INVENTARIO_FECHA_MOVIMIENTO'
DictionaryEntry = 'INVENTARIO_FECHA_MOVIMIENTO' DictionaryEntry = 'Inventario_FECHA_MOVIMIENTO'
end end
item item
Name = 'CAUSA' Name = 'CAUSA'
DataType = datString DataType = datString
Size = 255 Size = 1
DisplayLabel = 'INVENTARIO_CAUSA' DisplayLabel = 'INVENTARIO_CAUSA'
DictionaryEntry = 'INVENTARIO_CAUSA' DictionaryEntry = 'Inventario_CAUSA'
end end
item item
Name = 'TIPO' Name = 'TIPO'
DataType = datString DataType = datString
Size = 1 Size = 1
DisplayLabel = 'INVENTARIO_TIPO' DisplayLabel = 'INVENTARIO_TIPO'
DictionaryEntry = 'INVENTARIO_TIPO' DictionaryEntry = 'Inventario_TIPO'
end> end>
Params = <> Params = <>
StreamingOptions = [soDisableEventsWhileStreaming] StreamingOptions = [soDisableEventsWhileStreaming]

14
Source/Modulos/Inventario/Views/uEditorInventario.dfm
View File

@ -170,15 +170,27 @@ inherited fEditorInventario: TfEditorInventario
Width = 669 Width = 669
ExplicitWidth = 669 ExplicitWidth = 669
inherited txtFiltroTodo: TcxTextEdit inherited txtFiltroTodo: TcxTextEdit
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitWidth = 468 ExplicitWidth = 468
Width = 468 Width = 468
end end
inherited edtFechaIniFiltro: TcxDateEdit inherited edtFechaIniFiltro: TcxDateEdit
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitWidth = 246 ExplicitWidth = 246
Width = 246 Width = 246
end end
inherited edtFechaFinFiltro: TcxDateEdit inherited edtFechaFinFiltro: TcxDateEdit
Left = 412 Left = 412
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitLeft = 412 ExplicitLeft = 412
ExplicitWidth = 205 ExplicitWidth = 205
Width = 205 Width = 205
@ -252,6 +264,7 @@ inherited fEditorInventario: TfEditorInventario
object actRecibirPedido: TAction object actRecibirPedido: TAction
Category = 'Logistica' Category = 'Logistica'
Caption = 'Recibir pedido' Caption = 'Recibir pedido'
Enabled = False
ImageIndex = 24 ImageIndex = 24
OnExecute = actRecibirPedidoExecute OnExecute = actRecibirPedidoExecute
end end
@ -292,6 +305,7 @@ inherited fEditorInventario: TfEditorInventario
end end
object actReservados: TAction object actReservados: TAction
Caption = 'Ver reservados' Caption = 'Ver reservados'
Enabled = False
ImageIndex = 25 ImageIndex = 25
OnExecute = actReservadosExecute OnExecute = actReservadosExecute
OnUpdate = actReservadosUpdate OnUpdate = actReservadosUpdate

22
Source/Modulos/Inventario/Views/uViewDetalleReservas.dfm
View File

@ -46,7 +46,6 @@ inherited frViewDetalleReservas: TfrViewDetalleReservas
end> end>
OptionsCustomize.ColumnHidingOnGrouping = False OptionsCustomize.ColumnHidingOnGrouping = False
OptionsCustomize.GroupBySorting = True OptionsCustomize.GroupBySorting = True
OptionsView.GroupRowStyle = grsOffice11
object cxGridViewRecID: TcxGridDBColumn object cxGridViewRecID: TcxGridDBColumn
DataBinding.FieldName = 'RecID' DataBinding.FieldName = 'RecID'
Visible = False Visible = False
@ -105,14 +104,26 @@ inherited frViewDetalleReservas: TfrViewDetalleReservas
inherited TBXDockablePanel1: TTBXDockablePanel inherited TBXDockablePanel1: TTBXDockablePanel
inherited dxLayoutControl1: TdxLayoutControl inherited dxLayoutControl1: TdxLayoutControl
inherited txtFiltroTodo: TcxTextEdit inherited txtFiltroTodo: TcxTextEdit
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitWidth = 273 ExplicitWidth = 273
Width = 273 Width = 273
end end
inherited edtFechaIniFiltro: TcxDateEdit inherited edtFechaIniFiltro: TcxDateEdit
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitWidth = 121 ExplicitWidth = 121
Width = 121 Width = 121
end end
inherited edtFechaFinFiltro: TcxDateEdit inherited edtFechaFinFiltro: TcxDateEdit
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitWidth = 121 ExplicitWidth = 121
Width = 121 Width = 121
end end
@ -125,13 +136,12 @@ inherited frViewDetalleReservas: TfrViewDetalleReservas
BuiltInReportLink = True BuiltInReportLink = True
end end
end end
inherited cxStyleRepository1: TcxStyleRepository inherited cxStyleRepositoryInforme: TcxStyleRepository
inherited cxStyleEven: TcxStyle inherited cxStyleContentInforme: TcxStyle
AssignedValues = [svFont]
end
inherited cxStyleOdd: TcxStyle
AssignedValues = [svColor, svFont] AssignedValues = [svColor, svFont]
end end
end
inherited cxStyleRepository1: TcxStyleRepository
inherited cxStyleSelection: TcxStyle inherited cxStyleSelection: TcxStyle
AssignedValues = [svColor, svFont, svTextColor] AssignedValues = [svColor, svFont, svTextColor]
end end

BIN
Source/Modulos/Inventario/Views/uViewDetalleReservas.pas
View File

Binary file not shown.

21
Source/Modulos/Inventario/Views/uViewElegirArticulosCatalogo.dfm
View File

@ -4,29 +4,32 @@ inherited frViewElegirArticulosCatalogo: TfrViewElegirArticulosCatalogo
inherited cxGridViewPRECIO_COSTE: TcxGridDBColumn inherited cxGridViewPRECIO_COSTE: TcxGridDBColumn
Visible = False Visible = False
end end
inherited cxGridViewDESCUENTO: TcxGridDBColumn
Visible = False
end
inherited cxGridViewPRECIO_NETO: TcxGridDBColumn
Visible = False
end
inherited cxGridViewPRECIO_PORTE: TcxGridDBColumn
Visible = False
end
end end
end end
inherited frViewFiltroBase1: TfrViewFiltroBase inherited frViewFiltroBase1: TfrViewFiltroBase
inherited TBXDockablePanel1: TTBXDockablePanel inherited TBXDockablePanel1: TTBXDockablePanel
inherited dxLayoutControl1: TdxLayoutControl inherited dxLayoutControl1: TdxLayoutControl
inherited txtFiltroTodo: TcxTextEdit inherited txtFiltroTodo: TcxTextEdit
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitWidth = 273 ExplicitWidth = 273
Width = 273 Width = 273
end end
inherited edtFechaIniFiltro: TcxDateEdit inherited edtFechaIniFiltro: TcxDateEdit
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitWidth = 121 ExplicitWidth = 121
Width = 121 Width = 121
end end
inherited edtFechaFinFiltro: TcxDateEdit inherited edtFechaFinFiltro: TcxDateEdit
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitWidth = 121 ExplicitWidth = 121
Width = 121 Width = 121
end end

BIN
Source/Modulos/Inventario/Views/uViewElegirArticulosCatalogo.pas
View File

Binary file not shown.

19
Source/Modulos/Inventario/Views/uViewInventario.dfm
View File

@ -48,7 +48,6 @@ inherited frViewInventario: TfrViewInventario
end> end>
OptionsCustomize.ColumnHidingOnGrouping = False OptionsCustomize.ColumnHidingOnGrouping = False
OptionsCustomize.GroupBySorting = True OptionsCustomize.GroupBySorting = True
OptionsView.GroupRowStyle = grsOffice11
object cxGridViewID_ALMACEN: TcxGridDBColumn object cxGridViewID_ALMACEN: TcxGridDBColumn
DataBinding.FieldName = 'ID_ALMACEN' DataBinding.FieldName = 'ID_ALMACEN'
Visible = False Visible = False
@ -147,14 +146,26 @@ inherited frViewInventario: TfrViewInventario
inherited TBXDockablePanel1: TTBXDockablePanel inherited TBXDockablePanel1: TTBXDockablePanel
inherited dxLayoutControl1: TdxLayoutControl inherited dxLayoutControl1: TdxLayoutControl
inherited txtFiltroTodo: TcxTextEdit inherited txtFiltroTodo: TcxTextEdit
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitWidth = 273 ExplicitWidth = 273
Width = 273 Width = 273
end end
inherited edtFechaIniFiltro: TcxDateEdit inherited edtFechaIniFiltro: TcxDateEdit
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitWidth = 121 ExplicitWidth = 121
Width = 121 Width = 121
end end
inherited edtFechaFinFiltro: TcxDateEdit inherited edtFechaFinFiltro: TcxDateEdit
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitWidth = 121 ExplicitWidth = 121
Width = 121 Width = 121
end end
@ -168,12 +179,6 @@ inherited frViewInventario: TfrViewInventario
end end
end end
inherited cxStyleRepository1: TcxStyleRepository inherited cxStyleRepository1: TcxStyleRepository
inherited cxStyleEven: TcxStyle
AssignedValues = [svFont]
end
inherited cxStyleOdd: TcxStyle
AssignedValues = [svColor, svFont]
end
inherited cxStyleSelection: TcxStyle inherited cxStyleSelection: TcxStyle
AssignedValues = [svColor, svFont, svTextColor] AssignedValues = [svColor, svFont, svTextColor]
end end

BIN
Source/Modulos/Inventario/Views/uViewInventario.pas
View File

Binary file not shown.

3
Source/Modulos/Pedidos a proveedor/Controller/uPedidosProveedorController.pas
View File

@ -276,7 +276,8 @@ begin
APedido.FECHA_ENTREGA := AFechaRecepcion; APedido.FECHA_ENTREGA := AFechaRecepcion;
APedido.Post; APedido.Post;
if DoPost then if DoPost then
Guardar(APedido); APedido.DataTable.ApplyUpdates;
// Guardar(APedido); Hace que cambie el proveedor asignado al pedido en la validación ya que se reasigna el id del proveedor al validar el pedido
Result := True; Result := True;
finally finally
APedido.DataTable.EnableControls; APedido.DataTable.EnableControls;

10
Source/Servidor/FactuGES_Server.dpr
View File

@ -111,14 +111,10 @@ uses
schAlbaranesProveedorServer_Intf in '..\Modulos\Albaranes de proveedor\Model\schAlbaranesProveedorServer_Intf.pas', schAlbaranesProveedorServer_Intf in '..\Modulos\Albaranes de proveedor\Model\schAlbaranesProveedorServer_Intf.pas',
schInventarioClient_Intf in '..\Modulos\Inventario\Model\schInventarioClient_Intf.pas', schInventarioClient_Intf in '..\Modulos\Inventario\Model\schInventarioClient_Intf.pas',
schInventarioServer_Intf in '..\Modulos\Inventario\Model\schInventarioServer_Intf.pas', schInventarioServer_Intf in '..\Modulos\Inventario\Model\schInventarioServer_Intf.pas',
schFacturasProveedorClient_Intf in '..\Modulos\Facturas de proveedor\Model\schFacturasProveedorClient_Intf.pas',
schFacturasProveedorServer_Intf in '..\Modulos\Facturas de proveedor\Model\schFacturasProveedorServer_Intf.pas',
schFamiliasClient_Intf in '..\Modulos\Familias\Model\schFamiliasClient_Intf.pas', schFamiliasClient_Intf in '..\Modulos\Familias\Model\schFamiliasClient_Intf.pas',
schFamiliasServer_Intf in '..\Modulos\Familias\Model\schFamiliasServer_Intf.pas', schFamiliasServer_Intf in '..\Modulos\Familias\Model\schFamiliasServer_Intf.pas',
schArticulosClient_Intf in '..\Modulos\Articulos\Model\schArticulosClient_Intf.pas', schArticulosClient_Intf in '..\Modulos\Articulos\Model\schArticulosClient_Intf.pas',
schArticulosServer_Intf in '..\Modulos\Articulos\Model\schArticulosServer_Intf.pas', schArticulosServer_Intf in '..\Modulos\Articulos\Model\schArticulosServer_Intf.pas',
schEmpresasClient_Intf in '..\ApplicationBase\Empresas\Model\schEmpresasClient_Intf.pas',
schEmpresasServer_Intf in '..\ApplicationBase\Empresas\Model\schEmpresasServer_Intf.pas',
schPresupuestosClienteClient_Intf in '..\Modulos\Presupuestos de cliente\Model\schPresupuestosClienteClient_Intf.pas', schPresupuestosClienteClient_Intf in '..\Modulos\Presupuestos de cliente\Model\schPresupuestosClienteClient_Intf.pas',
schPresupuestosClienteServer_Intf in '..\Modulos\Presupuestos de cliente\Model\schPresupuestosClienteServer_Intf.pas', schPresupuestosClienteServer_Intf in '..\Modulos\Presupuestos de cliente\Model\schPresupuestosClienteServer_Intf.pas',
schContratosClienteClient_Intf in '..\Modulos\Contratos de cliente\Model\schContratosClienteClient_Intf.pas', schContratosClienteClient_Intf in '..\Modulos\Contratos de cliente\Model\schContratosClienteClient_Intf.pas',
@ -138,7 +134,11 @@ uses
schRecibosProveedorClient_Intf in '..\Modulos\Recibos de proveedor\Model\schRecibosProveedorClient_Intf.pas', schRecibosProveedorClient_Intf in '..\Modulos\Recibos de proveedor\Model\schRecibosProveedorClient_Intf.pas',
schRecibosProveedorServer_Intf in '..\Modulos\Recibos de proveedor\Model\schRecibosProveedorServer_Intf.pas', schRecibosProveedorServer_Intf in '..\Modulos\Recibos de proveedor\Model\schRecibosProveedorServer_Intf.pas',
schFormasPagoClient_Intf in '..\Modulos\Formas de pago\Model\schFormasPagoClient_Intf.pas', schFormasPagoClient_Intf in '..\Modulos\Formas de pago\Model\schFormasPagoClient_Intf.pas',
schFormasPagoServer_Intf in '..\Modulos\Formas de pago\Model\schFormasPagoServer_Intf.pas'; schFormasPagoServer_Intf in '..\Modulos\Formas de pago\Model\schFormasPagoServer_Intf.pas',
schFacturasProveedorClient_Intf in '..\Modulos\Facturas de proveedor\Model\schFacturasProveedorClient_Intf.pas',
schFacturasProveedorServer_Intf in '..\Modulos\Facturas de proveedor\Model\schFacturasProveedorServer_Intf.pas',
schEmpresasClient_Intf in '..\ApplicationBase\Empresas\Model\schEmpresasClient_Intf.pas',
schEmpresasServer_Intf in '..\ApplicationBase\Empresas\Model\schEmpresasServer_Intf.pas';
{$R *.res} {$R *.res}
{$R ..\Servicios\RODLFile.res} {$R ..\Servicios\RODLFile.res}

2
Source/Servidor/FactuGES_Server.rc
View File

@ -16,7 +16,7 @@ BEGIN
VALUE "FileVersion", "2.8.8.0\0" VALUE "FileVersion", "2.8.8.0\0"
VALUE "ProductName", "FactuGES (Servidor)\0" VALUE "ProductName", "FactuGES (Servidor)\0"
VALUE "ProductVersion", "2.8.8.0\0" VALUE "ProductVersion", "2.8.8.0\0"
VALUE "CompileDate", "miércoles, 10 de octubre de 2018 16:29\0" VALUE "CompileDate", "martes, 19 de marzo de 2019 17:24\0"
END END
END END
BLOCK "VarFileInfo" BLOCK "VarFileInfo"

BIN
Source/Servidor/FactuGES_Server.res
View File

Binary file not shown.