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)
['{2F0AB21C-4F19-446E-87C4-B9C1038850FC}']
function Buscar(const ID: Integer): IBizEmpresa;
function BuscarTodos: IBizEmpresa;
function BuscarTodos: IBizEmpresa; overload;
function BuscarTodos(const ID_PERFIL: Integer): IBizEmpresa; overload;
procedure Ver(AEmpresa : IBizEmpresa);
procedure VerTodos(AEmpresas: IBizEmpresa);
function Nuevo : IBizEmpresa;
@ -54,7 +55,8 @@ type
procedure Anadir(AEmpresa : IBizEmpresa); virtual;
function Buscar(const ID: Integer): IBizEmpresa; virtual;
function BuscarTodos: IBizEmpresa; virtual;
function BuscarTodos: IBizEmpresa; overload; virtual;
function BuscarTodos(const ID_PERFIL: Integer): IBizEmpresa; overload;
function Nuevo : IBizEmpresa; virtual;
procedure Ver(AEmpresa : IBizEmpresa); virtual;
procedure VerTodos(AEmpresas: IBizEmpresa); virtual;
@ -73,8 +75,8 @@ type
implementation
uses
uEditorRegistryUtils, cxControls, DB, uFactuGES_App,
uDataModuleEmpresas, uIEditorEmpresa, uStringsUtils;
uDAInterfaces, uEditorRegistryUtils, cxControls, DB, uFactuGES_App,
uDataModuleEmpresas, uIEditorEmpresa, uStringsUtils, schEmpresasClient_Intf;
{ TEmpresasController }
@ -121,6 +123,30 @@ begin
Result := FDataModule.GetItem(ID)
end;
function TEmpresasController.BuscarTodos(const ID_PERFIL: Integer): IBizEmpresa;
var
Condicion: TDAWhereExpression;
begin
ShowHourglassCursor;
try
Result := BuscarTodos;
with Result.DataTable.DynamicWhere do
begin
// ID_PERFIL
Condicion := NewBinaryExpression(NewField('', fld_EmpresasID_PERFIL), NewConstant(ID_PERFIL, datInteger), dboEqual);
if IsEmpty then
Expression := Condicion
else
Expression := NewBinaryExpression(Expression, Condicion, dboAnd);
end;
Result.open;
finally
HideHourglassCursor;
end;
end;
function TEmpresasController.BuscarTodos: IBizEmpresa;
begin
Result := FDataModule.GetItems;

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

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

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

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

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

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

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

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

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

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

2
Source/ApplicationBase/uFactuGES_App.pas
View File

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

15
Source/ApplicationBase/uPlugins_Intf.pas
View File

@ -14,10 +14,11 @@ const
MODULENAME_RECIBOS_CLIENTE = 'RecibosCliente_plugin.bpl';
}
MODULENAME_PEDIDOS_PROVEEDOR = 'PedidosProveedor_plugin.bpl';
MODULENAME_FACTURAS_PROVEEDOR = 'FacturasProveedor_plugin.bpl';
{
MODULENAME_ALBARANES_PROVEEDOR = 'AlbaranesProveedor_plugin.bpl';
MODULENAME_FACTURAS_PROVEEDOR = 'FacturasProveedor_plugin.bpl';
MODULENAME_RECIBOS_PROVEEDOR = 'RecibosProveedor_plugin.bpl';
MODULENAME_PROCESO_PRESUPUESTOS_CLIENTE = 'ProcesoPresupuestosCliente_plugin.bpl';
}
@ -81,12 +82,12 @@ type
end;
}
// IMCFacturasProveedor = interface(IInterface)
// ['{8A48058F-490E-4BF4-9BBB-09654B66CEED}']
{ procedure VerFacturas(const ID_Proveedor: Integer;
const ANombreProveedor : String = '');
IMCFacturasProveedor = interface(IInterface)
['{8A48058F-490E-4BF4-9BBB-09654B66CEED}']
// procedure VerFacturas(const ID_Proveedor: Integer; const ANombreProveedor : String = '');
procedure VerFacturasContrato(Const ID_Contrato: Integer; Ref_Contrato: String = ''; NomCLi_Contrato: String = '');
end;
}
// IMCRecibosProveedor = interface(IInterface)
// ['{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\dclwebsnap100.bpl">CodeGear WebSnap Components</Excluded_Packages>
@ -79,54 +72,54 @@
<DelphiCompile Include="Base.dpk">
<MainSource>MainSource</MainSource>
</DelphiCompile>
<DCCReference Include="..\Modulos\Recibos de cliente\adortl.dcp" />
<DCCReference Include="..\Modulos\Recibos de cliente\cxDataD11.dcp" />
<DCCReference Include="..\Modulos\Recibos de cliente\cxEditorsD11.dcp" />
<DCCReference Include="..\Modulos\Recibos de cliente\cxExtEditorsD11.dcp" />
<DCCReference Include="..\Modulos\Recibos de cliente\cxGridD11.dcp" />
<DCCReference Include="..\Modulos\Recibos de cliente\cxLibraryD11.dcp" />
<DCCReference Include="..\Modulos\Recibos de cliente\cxPageControlD11.dcp" />
<DCCReference Include="..\Modulos\Recibos de cliente\DataAbstract_Core_D11.dcp" />
<DCCReference Include="..\Modulos\Recibos de cliente\dbrtl.dcp" />
<DCCReference Include="..\Modulos\Recibos de cliente\dclIndyCore.dcp" />
<DCCReference Include="..\Modulos\Recibos de cliente\designide.dcp" />
<DCCReference Include="..\Modulos\Recibos de cliente\dsnap.dcp" />
<DCCReference Include="..\Modulos\Recibos de cliente\dxGDIPlusD11.dcp" />
<DCCReference Include="..\Modulos\Recibos de cliente\dxPSCoreD11.dcp" />
<DCCReference Include="..\Modulos\Recibos de cliente\dxThemeD11.dcp" />
<DCCReference Include="..\Modulos\Recibos de cliente\GUISDK_D11R.dcp" />
<DCCReference Include="..\Modulos\Recibos de cliente\IndyCore.dcp" />
<DCCReference Include="..\Modulos\Recibos de cliente\IndyProtocols.dcp" />
<DCCReference Include="..\Modulos\Recibos de cliente\IndySystem.dcp" />
<DCCReference Include="..\Modulos\Recibos de cliente\Jcl.dcp" />
<DCCReference Include="..\Modulos\Recibos de cliente\JclVcl.dcp" />
<DCCReference Include="..\Modulos\Recibos de cliente\JSDialog100.dcp" />
<DCCReference Include="..\Modulos\Recibos de cliente\JvCmpD11R.dcp" />
<DCCReference Include="..\Modulos\Recibos de cliente\JvCoreD11R.dcp" />
<DCCReference Include="..\Modulos\Recibos de cliente\JvCtrlsD11R.dcp" />
<DCCReference Include="..\Modulos\Recibos de cliente\JvDlgsD11R.dcp" />
<DCCReference Include="..\Modulos\Recibos de cliente\JvMMD11R.dcp" />
<DCCReference Include="..\Modulos\Recibos de cliente\JvNetD11R.dcp" />
<DCCReference Include="..\Modulos\Recibos de cliente\JvPageCompsD11R.dcp" />
<DCCReference Include="..\Modulos\Recibos de cliente\JvStdCtrlsD11R.dcp" />
<DCCReference Include="..\Modulos\Recibos de cliente\JvSystemD11R.dcp" />
<DCCReference Include="..\Modulos\Recibos de cliente\pckMD5.dcp" />
<DCCReference Include="..\Modulos\Recibos de cliente\pckUCDataConnector.dcp" />
<DCCReference Include="..\Modulos\Recibos de cliente\pckUserControl_RT.dcp" />
<DCCReference Include="..\Modulos\Recibos de cliente\PluginSDK_D11R.dcp" />
<DCCReference Include="..\Modulos\Recibos de cliente\PngComponentsD10.dcp" />
<DCCReference Include="..\Modulos\Recibos de cliente\PNG_D10.dcp" />
<DCCReference Include="..\Modulos\Recibos de cliente\RemObjects_Core_D11.dcp" />
<DCCReference Include="..\Modulos\Recibos de cliente\rtl.dcp" />
<DCCReference Include="..\Modulos\Recibos de cliente\TB2k_D10.dcp" />
<DCCReference Include="..\Modulos\Recibos de cliente\tbx_d10.dcp" />
<DCCReference Include="..\Modulos\Recibos de cliente\vcl.dcp" />
<DCCReference Include="..\Modulos\Recibos de cliente\vclactnband.dcp" />
<DCCReference Include="..\Modulos\Recibos de cliente\vcldb.dcp" />
<DCCReference Include="..\Modulos\Recibos de cliente\vcljpg.dcp" />
<DCCReference Include="..\Modulos\Recibos de cliente\VclSmp.dcp" />
<DCCReference Include="..\Modulos\Recibos de cliente\vclx.dcp" />
<DCCReference Include="..\Modulos\Recibos de cliente\xmlrtl.dcp" />
<DCCReference Include="..\Modulos\Facturas de proveedor\Model\adortl.dcp" />
<DCCReference Include="..\Modulos\Facturas de proveedor\Model\cxDataD11.dcp" />
<DCCReference Include="..\Modulos\Facturas de proveedor\Model\cxEditorsD11.dcp" />
<DCCReference Include="..\Modulos\Facturas de proveedor\Model\cxExtEditorsD11.dcp" />
<DCCReference Include="..\Modulos\Facturas de proveedor\Model\cxGridD11.dcp" />
<DCCReference Include="..\Modulos\Facturas de proveedor\Model\cxLibraryD11.dcp" />
<DCCReference Include="..\Modulos\Facturas de proveedor\Model\cxPageControlD11.dcp" />
<DCCReference Include="..\Modulos\Facturas de proveedor\Model\DataAbstract_Core_D11.dcp" />
<DCCReference Include="..\Modulos\Facturas de proveedor\Model\dbrtl.dcp" />
<DCCReference Include="..\Modulos\Facturas de proveedor\Model\dclIndyCore.dcp" />
<DCCReference Include="..\Modulos\Facturas de proveedor\Model\designide.dcp" />
<DCCReference Include="..\Modulos\Facturas de proveedor\Model\dsnap.dcp" />
<DCCReference Include="..\Modulos\Facturas de proveedor\Model\dxGDIPlusD11.dcp" />
<DCCReference Include="..\Modulos\Facturas de proveedor\Model\dxPSCoreD11.dcp" />
<DCCReference Include="..\Modulos\Facturas de proveedor\Model\dxThemeD11.dcp" />
<DCCReference Include="..\Modulos\Facturas de proveedor\Model\GUISDK_D11R.dcp" />
<DCCReference Include="..\Modulos\Facturas de proveedor\Model\IndyCore.dcp" />
<DCCReference Include="..\Modulos\Facturas de proveedor\Model\IndyProtocols.dcp" />
<DCCReference Include="..\Modulos\Facturas de proveedor\Model\IndySystem.dcp" />
<DCCReference Include="..\Modulos\Facturas de proveedor\Model\Jcl.dcp" />
<DCCReference Include="..\Modulos\Facturas de proveedor\Model\JclVcl.dcp" />
<DCCReference Include="..\Modulos\Facturas de proveedor\Model\JSDialog100.dcp" />
<DCCReference Include="..\Modulos\Facturas de proveedor\Model\JvCmpD11R.dcp" />
<DCCReference Include="..\Modulos\Facturas de proveedor\Model\JvCoreD11R.dcp" />
<DCCReference Include="..\Modulos\Facturas de proveedor\Model\JvCtrlsD11R.dcp" />
<DCCReference Include="..\Modulos\Facturas de proveedor\Model\JvDlgsD11R.dcp" />
<DCCReference Include="..\Modulos\Facturas de proveedor\Model\JvMMD11R.dcp" />
<DCCReference Include="..\Modulos\Facturas de proveedor\Model\JvNetD11R.dcp" />
<DCCReference Include="..\Modulos\Facturas de proveedor\Model\JvPageCompsD11R.dcp" />
<DCCReference Include="..\Modulos\Facturas de proveedor\Model\JvStdCtrlsD11R.dcp" />
<DCCReference Include="..\Modulos\Facturas de proveedor\Model\JvSystemD11R.dcp" />
<DCCReference Include="..\Modulos\Facturas de proveedor\Model\pckMD5.dcp" />
<DCCReference Include="..\Modulos\Facturas de proveedor\Model\pckUCDataConnector.dcp" />
<DCCReference Include="..\Modulos\Facturas de proveedor\Model\pckUserControl_RT.dcp" />
<DCCReference Include="..\Modulos\Facturas de proveedor\Model\PluginSDK_D11R.dcp" />
<DCCReference Include="..\Modulos\Facturas de proveedor\Model\PngComponentsD10.dcp" />
<DCCReference Include="..\Modulos\Facturas de proveedor\Model\PNG_D10.dcp" />
<DCCReference Include="..\Modulos\Facturas de proveedor\Model\RemObjects_Core_D11.dcp" />
<DCCReference Include="..\Modulos\Facturas de proveedor\Model\rtl.dcp" />
<DCCReference Include="..\Modulos\Facturas de proveedor\Model\TB2k_D10.dcp" />
<DCCReference Include="..\Modulos\Facturas de proveedor\Model\tbx_d10.dcp" />
<DCCReference Include="..\Modulos\Facturas de proveedor\Model\vcl.dcp" />
<DCCReference Include="..\Modulos\Facturas de proveedor\Model\vclactnband.dcp" />
<DCCReference Include="..\Modulos\Facturas de proveedor\Model\vcldb.dcp" />
<DCCReference Include="..\Modulos\Facturas de proveedor\Model\vcljpg.dcp" />
<DCCReference Include="..\Modulos\Facturas de proveedor\Model\VclSmp.dcp" />
<DCCReference Include="..\Modulos\Facturas de proveedor\Model\vclx.dcp" />
<DCCReference Include="..\Modulos\Facturas de proveedor\Model\xmlrtl.dcp" />
<DCCReference Include="..\Servicios\FactuGES_Intf.pas" />
<DCCReference Include="Conexion\uConfigurarConexion.pas">
<Form>fConfigurarConexion</Form>

2
Source/Cliente/uMainMenuController.pas
View File

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

2
Source/Cliente/uNavPaneController.pas
View File

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

2
Source/Cliente/uPantallaPrincipal.dfm
View File

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

24
Source/Cliente/uPantallaPrincipal.pas
View File

@ -195,7 +195,29 @@ end;
procedure TfPantallaPrincipal.FormShow(Sender: TObject);
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;
//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;
procedure TfPantallaPrincipal.RefrescarUI;
@ -346,7 +368,7 @@ begin
NavPaneController.InitNavPane;
try
AListaEmpresas := AppFactuGES.EmpresasController.BuscarTodos;
AListaEmpresas := AppFactuGES.EmpresasController.BuscarTodos(AppFactuGES.UsuarioActivo.ID_PERFIL);
if Assigned(AListaEmpresas) then
begin
AListaEmpresas.Active := True;

56
Source/GUIBase/GUIBase.dproj
View File

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

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

@ -62,6 +62,11 @@ constructor TPluginComisiones.Create(AOwner: TComponent);
begin
inherited;
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;
destructor TPluginComisiones.Destroy;

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

@ -183,6 +183,14 @@ constructor TPluginContabilidad.Create(AOwner: TComponent);
begin
inherited;
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;
destructor TPluginContabilidad.Destroy;

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

@ -97,15 +97,6 @@
<Target Name="Contabilidad_controller:Make">
<MSBuild Projects="..\Contabilidad\Controller\Contabilidad_controller.dproj" Targets="Make" />
</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">
<MSBuild Projects="Controller\Contactos_controller.dproj" Targets="" />
</Target>
@ -115,6 +106,15 @@
<Target Name="Contactos_controller:Make">
<MSBuild Projects="Controller\Contactos_controller.dproj" Targets="Make" />
</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">
<MSBuild Projects="Plugin\Contactos_plugin.dproj" Targets="" />
</Target>
@ -152,13 +152,13 @@
<MSBuild Projects="..\..\Servidor\FactuGES_Server.dproj" Targets="Make" />
</Target>
<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 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 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>
<Import Condition="Exists('$(MSBuildBinPath)\Borland.Group.Targets')" Project="$(MSBuildBinPath)\Borland.Group.Targets" />
</Project>

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

@ -143,6 +143,10 @@ constructor TPluginContactos.Create(AOwner: TComponent);
begin
inherited;
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;
destructor TPluginContactos.Destroy;

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

@ -2,6 +2,8 @@ inherited fEditorContactos: TfEditorContactos
Left = 285
Top = 448
Caption = 'Lista de contactos'
ExplicitWidth = 320
ExplicitHeight = 240
PixelsPerInch = 96
TextHeight = 13
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\Model\Contactos_model.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\Plugin\PedidosProveedor_plugin.dproj" />
<Projects Include="..\Pedidos a proveedor\Views\PedidosProveedor_view.dproj" />
@ -261,14 +263,32 @@
<Target Name="PedidosProveedor_view:Make">
<MSBuild Projects="..\Pedidos a proveedor\Views\PedidosProveedor_view.dproj" Targets="Make" />
</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">
<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 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 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>
<Import Condition="Exists('$(MSBuildBinPath)\Borland.Group.Targets')" Project="$(MSBuildBinPath)\Borland.Group.Targets" />
</Project>

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

@ -49,15 +49,15 @@
<DelphiCompile Include="ContratosCliente_controller.dpk">
<MainSource>MainSource</MainSource>
</DelphiCompile>
<DCCReference Include="..\..\Presupuestos de cliente\ApplicationBase.dcp" />
<DCCReference Include="..\..\Presupuestos de cliente\Articulos_controller.dcp" />
<DCCReference Include="..\..\Presupuestos de cliente\Contactos_controller.dcp" />
<DCCReference Include="..\..\Presupuestos de cliente\ContratosCliente_data.dcp" />
<DCCReference Include="..\..\Presupuestos de cliente\ContratosCliente_model.dcp" />
<DCCReference Include="..\..\Presupuestos de cliente\GestorDocumentos_controller.dcp" />
<DCCReference Include="..\..\Presupuestos de cliente\GUIBase.dcp" />
<DCCReference Include="..\..\Presupuestos de cliente\PresupuestosCliente_controller.dcp" />
<DCCReference Include="..\..\Presupuestos de cliente\PresupuestosCliente_model.dcp" />
<DCCReference Include="..\..\Facturas de proveedor\Plugin\ApplicationBase.dcp" />
<DCCReference Include="..\..\Facturas de proveedor\Plugin\Articulos_controller.dcp" />
<DCCReference Include="..\..\Facturas de proveedor\Plugin\Contactos_controller.dcp" />
<DCCReference Include="..\..\Facturas de proveedor\Plugin\ContratosCliente_data.dcp" />
<DCCReference Include="..\..\Facturas de proveedor\Plugin\ContratosCliente_model.dcp" />
<DCCReference Include="..\..\Facturas de proveedor\Plugin\GestorDocumentos_controller.dcp" />
<DCCReference Include="..\..\Facturas de proveedor\Plugin\GUIBase.dcp" />
<DCCReference Include="..\..\Facturas de proveedor\Plugin\PresupuestosCliente_controller.dcp" />
<DCCReference Include="..\..\Facturas de proveedor\Plugin\PresupuestosCliente_model.dcp" />
<DCCReference Include="uArticulosContratoClienteController.pas" />
<DCCReference Include="uContratosClienteController.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 VerListadoBeneficios;
procedure VerPedidosProveedor(AContrato : IBizContratoCliente);
procedure VerFacturasProveedor(AContrato : IBizContratoCliente);
procedure CopiarDireccion (const ADireccion: IBizDireccionesContacto; AContrato: IBizContratoCliente);
end;
@ -140,6 +141,7 @@ type
procedure FiltrarAno(AContrato: IBizContratoCliente; ADynWhereDataTable: WideString; const Ano: String);
procedure VerListadoBeneficios;
procedure VerPedidosProveedor(AContrato : IBizContratoCliente);
procedure VerFacturasProveedor(AContrato : IBizContratoCliente);
procedure CopiarDireccion (const ADireccion: IBizDireccionesContacto; AContrato: IBizContratoCliente);
end;
@ -524,6 +526,27 @@ begin
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;
var
AContratosClienteBeneficios: IBizContratosClienteBeneficios;

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

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

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

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

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

@ -471,6 +471,20 @@ inherited DataModuleFacturasProveedor: TDataModuleFacturasProveedor
DataType = datCurrency
DisplayLabel = '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>
Params = <>
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="..\Contratos de cliente\Controller\ContratosCliente_controller.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="..\Recibos de proveedor\Controller\RecibosProveedor_controller.dproj" />
<Projects Include="Controller\FacturasProveedor_controller.dproj" />
@ -241,14 +242,23 @@
<Target Name="ContratosCliente_controller:Make">
<MSBuild Projects="..\Contratos de cliente\Controller\ContratosCliente_controller.dproj" Targets="Make" />
</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">
<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 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 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>
<Import Condition="Exists('$(MSBuildBinPath)\Borland.Group.Targets')" Project="$(MSBuildBinPath)\Borland.Group.Targets" />
</Project>

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

@ -9,10 +9,10 @@ const
{ Data table rules ids
Feel free to change them to something more human readable
but make sure they are unique in the context of your application }
RID_ListaAnosFacturas = '{E4006E34-9471-4B45-8BFB-34D795EE5B47}';
RID_FacturasProveedor_Contratos = '{AEFE41C5-3FCA-46FB-8174-2704B20E2905}';
RID_FacturasProveedor = '{4621460A-3688-408C-9676-B526823EC8EF}';
RID_FacturasProveedor_Detalles = '{13D46CB1-CC91-4B2C-83B0-6265D005B1E1}';
RID_ListaAnosFacturas = '{9DA12B35-FF8C-4FC7-B9B2-D27D6192588D}';
RID_FacturasProveedor_Contratos = '{0B279D2E-FC78-4842-A4C9-2C3CA9C0B5AD}';
RID_FacturasProveedor = '{BE1C4615-1771-48A5-A934-4BCF08BF02A4}';
RID_FacturasProveedor_Detalles = '{F91F9389-AE70-46CB-AA45-D3F63027E132}';
{ Data table names }
nme_ListaAnosFacturas = 'ListaAnosFacturas';
@ -34,6 +34,9 @@ const
fld_FacturasProveedor_ContratosNOMBRE = 'NOMBRE';
fld_FacturasProveedor_ContratosNIF_CIF = 'NIF_CIF';
fld_FacturasProveedor_ContratosIMPORTE = 'IMPORTE';
fld_FacturasProveedor_ContratosREFERENCIA1 = 'REFERENCIA1';
fld_FacturasProveedor_ContratosNOMBRE1 = 'NOMBRE1';
fld_FacturasProveedor_ContratosBASE_IMPONIBLE = 'BASE_IMPONIBLE';
{ FacturasProveedor_Contratos field indexes }
idx_FacturasProveedor_ContratosID = 0;
@ -43,6 +46,9 @@ const
idx_FacturasProveedor_ContratosNOMBRE = 4;
idx_FacturasProveedor_ContratosNIF_CIF = 5;
idx_FacturasProveedor_ContratosIMPORTE = 6;
idx_FacturasProveedor_ContratosREFERENCIA1 = 7;
idx_FacturasProveedor_ContratosNOMBRE1 = 8;
idx_FacturasProveedor_ContratosBASE_IMPONIBLE = 9;
{ FacturasProveedor fields }
fld_FacturasProveedorID = 'ID';
@ -167,7 +173,7 @@ const
type
{ IListaAnosFacturas }
IListaAnosFacturas = interface(IDAStronglyTypedDataTable)
['{FC0D46EE-86BF-4511-819E-E9791181DC39}']
['{D700BF3D-8D70-44CF-ACC3-8B9E567A3713}']
{ Property getters and setters }
function GetANOValue: String;
procedure SetANOValue(const aValue: String);
@ -202,7 +208,7 @@ type
{ IFacturasProveedor_Contratos }
IFacturasProveedor_Contratos = interface(IDAStronglyTypedDataTable)
['{DDCB3A4E-D047-4E73-8B5C-7E5879061F5E}']
['{E9A001E7-1B6C-4C4B-B04A-ABBF9A035D58}']
{ Property getters and setters }
function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer);
@ -232,6 +238,18 @@ type
procedure SetIMPORTEValue(const aValue: Currency);
function GetIMPORTEIsNull: 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 }
@ -249,6 +267,12 @@ type
property NIF_CIFIsNull: Boolean read GetNIF_CIFIsNull write SetNIF_CIFIsNull;
property IMPORTE: Currency read GetIMPORTEValue write SetIMPORTEValue;
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;
{ TFacturasProveedor_ContratosDataTableRules }
@ -284,6 +308,18 @@ type
procedure SetIMPORTEValue(const aValue: Currency); virtual;
function GetIMPORTEIsNull: 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 }
property ID: Integer read GetIDValue write SetIDValue;
@ -300,6 +336,12 @@ type
property NIF_CIFIsNull: Boolean read GetNIF_CIFIsNull write SetNIF_CIFIsNull;
property IMPORTE: Currency read GetIMPORTEValue write SetIMPORTEValue;
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
constructor Create(aDataTable: TDADataTable); override;
@ -309,7 +351,7 @@ type
{ IFacturasProveedor }
IFacturasProveedor = interface(IDAStronglyTypedDataTable)
['{1D01094B-37F3-499C-84DD-5C94D01CE360}']
['{95F785E2-C98F-4DDC-A1BB-95E6F3A32493}']
{ Property getters and setters }
function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer);
@ -836,7 +878,7 @@ type
{ IFacturasProveedor_Detalles }
IFacturasProveedor_Detalles = interface(IDAStronglyTypedDataTable)
['{4D3A6663-3708-42B0-8D14-5C4E213D48FC}']
['{8682A80B-C184-4AAB-8184-A571B747DF3C}']
{ Property getters and setters }
function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer);
@ -1220,6 +1262,69 @@ begin
DataTable.Fields[idx_FacturasProveedor_ContratosIMPORTE].AsVariant := Null;
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 }
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
Feel free to change them to something more human readable
but make sure they are unique in the context of your application }
RID_ListaAnosFacturasDelta = '{89FAA336-EE10-4D08-A890-EFD959DA9FB3}';
RID_FacturasProveedor_ContratosDelta = '{2BF7C867-86B7-42EB-9FFA-92DF6E9874F0}';
RID_FacturasProveedorDelta = '{FB90A42D-E182-4F49-9873-E549CD6C3519}';
RID_FacturasProveedor_DetallesDelta = '{25250ECD-8E6B-4B25-9F0A-00B4B207C317}';
RID_ListaAnosFacturasDelta = '{AC0CC688-6329-4EF0-93EF-6AC7B08E5101}';
RID_FacturasProveedor_ContratosDelta = '{D7D38D2A-1168-4C6B-B57D-7BD5119CA3F5}';
RID_FacturasProveedorDelta = '{456F1F41-BBFB-4A9C-9565-1F8FF749CC34}';
RID_FacturasProveedor_DetallesDelta = '{6C81FBAB-0CDF-488E-BD58-F27BF4B72866}';
type
{ IListaAnosFacturasDelta }
IListaAnosFacturasDelta = interface(IListaAnosFacturas)
['{89FAA336-EE10-4D08-A890-EFD959DA9FB3}']
['{AC0CC688-6329-4EF0-93EF-6AC7B08E5101}']
{ Property getters and setters }
function GetOldANOValue : String;
@ -51,7 +51,7 @@ type
{ IFacturasProveedor_ContratosDelta }
IFacturasProveedor_ContratosDelta = interface(IFacturasProveedor_Contratos)
['{2BF7C867-86B7-42EB-9FFA-92DF6E9874F0}']
['{D7D38D2A-1168-4C6B-B57D-7BD5119CA3F5}']
{ Property getters and setters }
function GetOldIDValue : Integer;
function GetOldID_FACTURAValue : Integer;
@ -60,6 +60,9 @@ type
function GetOldNOMBREValue : String;
function GetOldNIF_CIFValue : String;
function GetOldIMPORTEValue : Currency;
function GetOldREFERENCIA1Value : String;
function GetOldNOMBRE1Value : String;
function GetOldBASE_IMPONIBLEValue : Currency;
{ Properties }
property OldID : Integer read GetOldIDValue;
@ -69,6 +72,9 @@ type
property OldNOMBRE : String read GetOldNOMBREValue;
property OldNIF_CIF : String read GetOldNIF_CIFValue;
property OldIMPORTE : Currency read GetOldIMPORTEValue;
property OldREFERENCIA1 : String read GetOldREFERENCIA1Value;
property OldNOMBRE1 : String read GetOldNOMBRE1Value;
property OldBASE_IMPONIBLE : Currency read GetOldBASE_IMPONIBLEValue;
end;
{ TFacturasProveedor_ContratosBusinessProcessorRules }
@ -118,6 +124,24 @@ type
function GetOldIMPORTEIsNull: Boolean; virtual;
procedure SetIMPORTEValue(const aValue: Currency); 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 }
property ID : Integer read GetIDValue write SetIDValue;
@ -148,6 +172,18 @@ type
property IMPORTEIsNull : Boolean read GetIMPORTEIsNull write SetIMPORTEIsNull;
property OldIMPORTE : Currency read GetOldIMPORTEValue;
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
constructor Create(aBusinessProcessor: TDABusinessProcessor); override;
@ -157,7 +193,7 @@ type
{ IFacturasProveedorDelta }
IFacturasProveedorDelta = interface(IFacturasProveedor)
['{FB90A42D-E182-4F49-9873-E549CD6C3519}']
['{456F1F41-BBFB-4A9C-9565-1F8FF749CC34}']
{ Property getters and setters }
function GetOldIDValue : Integer;
function GetOldID_EMPRESAValue : Integer;
@ -684,7 +720,7 @@ type
{ IFacturasProveedor_DetallesDelta }
IFacturasProveedor_DetallesDelta = interface(IFacturasProveedor_Detalles)
['{25250ECD-8E6B-4B25-9F0A-00B4B207C317}']
['{6C81FBAB-0CDF-488E-BD58-F27BF4B72866}']
{ Property getters and setters }
function GetOldIDValue : Integer;
function GetOldID_FACTURAValue : Integer;
@ -1148,6 +1184,99 @@ begin
BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasProveedor_ContratosIMPORTE] := Null;
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 }
constructor TFacturasProveedorBusinessProcessorRules.Create(aBusinessProcessor: TDABusinessProcessor);

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

@ -4,13 +4,9 @@ interface
uses
uModuleController, uInterfaces, uHostManager, Menus, Classes, ActnList,
ImgList, Controls, PngImageList;
ImgList, Controls, PngImageList, uPlugins_Intf;
type
IMCFacturasProveedor = interface(IInterface)
['{271C68BC-F755-46B1-AEFF-769AC5172815}']
end;
TPluginFacturasProveedor = class(TModuleController, IMCFacturasProveedor)
actFacturasProveedor: TAction;
ExtraImages: TPngImageList;
@ -24,6 +20,7 @@ type
public
constructor Create(AOwner: TComponent); override;
destructor Destroy; override;
procedure VerFacturasContrato(Const ID_Contrato: Integer; Ref_Contrato: String = ''; NomCLi_Contrato: String = '');
end;
implementation
@ -31,7 +28,7 @@ implementation
{$R *.dfm}
uses
Forms, Dialogs, SysUtils,
Forms, Dialogs, SysUtils, cxControls,
uFacturasProveedorController, uBizFacturasProveedor, uFacturasProveedorViewRegister;
function GetModule : TModuleController;
@ -56,6 +53,7 @@ end;
constructor TPluginFacturasProveedor.Create(AOwner: TComponent);
begin
inherited;
ModuleName := MODULENAME_FACTURAS_PROVEEDOR;
uFacturasProveedorViewRegister.RegisterViews;
end;
@ -65,6 +63,29 @@ begin
inherited;
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
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_' +
'CONTRATOS.ID_FACTURA, FACTURAS_PROVEEDOR_CONTRATOS.ID_CONTRATO,'#10 +
' contratos_cliente.referencia, contratos_cliente.nombre, cont' +
'ratos_cliente.nif_cif,'#10' FACTURAS_PROVEEDOR_CONTRATOS.IMPORTE'#10 +
' FROM'#10' FACTURAS_PROVEEDOR_CONTRATOS'#10' left join contratos_cl' +
'iente on (contratos_cliente.id = FACTURAS_PROVEEDOR_CONTRATOS.id' +
'_contrato)'#10' WHERE {Where}'#10
'ratos_cliente.nif_cif,'#10' FACTURAS_PROVEEDOR_CONTRATOS.IMPORTE,' +
' facturas_proveedor.REFERENCIA, facturas_proveedor.nombre, factu' +
'ras_proveedor.base_imponible'#10' FROM'#10' FACTURAS_PROVEEDOR_CONTR' +
'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
ColumnMappings = <
item
@ -88,6 +91,21 @@ object srvFacturasProveedor: TsrvFacturasProveedor
DatasetField = 'REFERENCIA'
TableField = '<unknown>'
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>
Name = 'FacturasProveedor_Contratos'
@ -131,6 +149,20 @@ object srvFacturasProveedor: TsrvFacturasProveedor
Name = 'IMPORTE'
DataType = datCurrency
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
item

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

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

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

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

2
Source/Modulos/Inventario/Views/uEditorInventario.pas
View File

@ -17,7 +17,7 @@ uses
type
TfEditorInventario = class(TfEditorGridBase, IEditorInventario)
actRecibirPedido: TAction;
actRecibirPedido: TAction;
actTrasladar: TAction;
actReservar: TAction;
actLiberar: TAction;

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

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

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

Binary file not shown.

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

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

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

Binary file not shown.

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

@ -276,7 +276,8 @@ begin
APedido.FECHA_ENTREGA := AFechaRecepcion;
APedido.Post;
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;
finally
APedido.DataTable.EnableControls;
@ -805,7 +806,7 @@ begin
try
APedido.DataTable.ApplyUpdates;
Result := True;
finally
HideHourglassCursor;

10
Source/Servidor/FactuGES_Server.dpr
View File

@ -111,14 +111,10 @@ uses
schAlbaranesProveedorServer_Intf in '..\Modulos\Albaranes de proveedor\Model\schAlbaranesProveedorServer_Intf.pas',
schInventarioClient_Intf in '..\Modulos\Inventario\Model\schInventarioClient_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',
schFamiliasServer_Intf in '..\Modulos\Familias\Model\schFamiliasServer_Intf.pas',
schArticulosClient_Intf in '..\Modulos\Articulos\Model\schArticulosClient_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',
schPresupuestosClienteServer_Intf in '..\Modulos\Presupuestos de cliente\Model\schPresupuestosClienteServer_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',
schRecibosProveedorServer_Intf in '..\Modulos\Recibos de proveedor\Model\schRecibosProveedorServer_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 ..\Servicios\RODLFile.res}

2
Source/Servidor/FactuGES_Server.rc
View File

@ -16,7 +16,7 @@ BEGIN
VALUE "FileVersion", "2.8.8.0\0"
VALUE "ProductName", "FactuGES (Servidor)\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
BLOCK "VarFileInfo"

BIN
Source/Servidor/FactuGES_Server.res
View File

Binary file not shown.