Uecko/AbetoDesign_FactuGES2
2
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Version 2.6.9

Browse Source 
Privilegios de usuarios para empresas

git-svn-id: https://192.168.0.254/svn/Proyectos.AbetoDesign_FactuGES/trunk@120 93f398dd-4eb6-7a46-baf6-13f46f578da2
This commit is contained in:
roberto 2016-11-10 17:05:04 +00:00
parent 6d9cdf76e1
commit ce9c0b4699
95 changed files with 1495 additions and 846 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

BIN
Build/Build.fbl6
View File

Binary file not shown.

89
Source/ApplicationBase/ApplicationBase.dproj
View File

@ -46,6 +46,21 @@
<Borland.ProjectType>Package</Borland.ProjectType>
<BorlandProject>
<BorlandProject><Delphi.Personality><Parameters><Parameters Name="UseLauncher">False</Parameters><Parameters Name="LoadAllSymbols">True</Parameters><Parameters Name="LoadUnspecifiedSymbols">False</Parameters></Parameters><Package_Options><Package_Options Name="ImplicitBuild">False</Package_Options><Package_Options Name="DesigntimeOnly">False</Package_Options><Package_Options Name="RuntimeOnly">False</Package_Options></Package_Options><VersionInfo><VersionInfo Name="IncludeVerInfo">True</VersionInfo><VersionInfo Name="AutoIncBuild">False</VersionInfo><VersionInfo Name="MajorVer">1</VersionInfo><VersionInfo Name="MinorVer">0</VersionInfo><VersionInfo Name="Release">0</VersionInfo><VersionInfo Name="Build">0</VersionInfo><VersionInfo Name="Debug">False</VersionInfo><VersionInfo Name="PreRelease">False</VersionInfo><VersionInfo Name="Special">False</VersionInfo><VersionInfo Name="Private">False</VersionInfo><VersionInfo Name="DLL">False</VersionInfo><VersionInfo Name="Locale">3082</VersionInfo><VersionInfo Name="CodePage">1252</VersionInfo></VersionInfo><VersionInfoKeys><VersionInfoKeys Name="CompanyName"></VersionInfoKeys><VersionInfoKeys Name="FileDescription"></VersionInfoKeys><VersionInfoKeys Name="FileVersion">1.0.0.0</VersionInfoKeys><VersionInfoKeys Name="InternalName"></VersionInfoKeys><VersionInfoKeys Name="LegalCopyright"></VersionInfoKeys><VersionInfoKeys Name="LegalTrademarks"></VersionInfoKeys><VersionInfoKeys Name="OriginalFilename"></VersionInfoKeys><VersionInfoKeys Name="ProductName"></VersionInfoKeys><VersionInfoKeys Name="ProductVersion">1.0.0.0</VersionInfoKeys><VersionInfoKeys Name="Comments"></VersionInfoKeys></VersionInfoKeys><Excluded_Packages>
<Excluded_Packages Name="C:\Documents and Settings\All Users\Documentos\RAD Studio\5.0\Bpl\DataAbstract_SQLiteDriver_D11.bpl">RemObjects Data Abstract - SQLite Driver</Excluded_Packages>
<Excluded_Packages Name="$(BDS)\bin\dcloffice2k100.bpl">Microsoft Office 2000 Sample Automation Server Wrapper Components</Excluded_Packages>
<Excluded_Packages Name="$(BDS)\bin\dclofficexp100.bpl">Microsoft Office XP Sample Automation Server Wrapper Components</Excluded_Packages>
@ -56,43 +71,43 @@
<DelphiCompile Include="ApplicationBase.dpk">
<MainSource>MainSource</MainSource>
</DelphiCompile>
<DCCReference Include="..\Servidor\adortl.dcp" />
<DCCReference Include="..\Servidor\Base.dcp" />
<DCCReference Include="..\Servidor\ccpackD11.dcp" />
<DCCReference Include="..\Servidor\cfpack_d11.dcp" />
<DCCReference Include="..\Servidor\cxDataD11.dcp" />
<DCCReference Include="..\Servidor\cxEditorsD11.dcp" />
<DCCReference Include="..\Servidor\cxExtEditorsD11.dcp" />
<DCCReference Include="..\Servidor\cxLibraryD11.dcp" />
<DCCReference Include="..\Servidor\DataAbstract_Core_D11.dcp" />
<DCCReference Include="..\Servidor\dbrtl.dcp" />
<DCCReference Include="..\Servidor\designide.dcp" />
<DCCReference Include="..\Servidor\dsnap.dcp" />
<DCCReference Include="..\Servidor\dxCoreD11.dcp" />
<DCCReference Include="..\Servidor\dxGDIPlusD11.dcp" />
<DCCReference Include="..\Servidor\dxNavBarD11.dcp" />
<DCCReference Include="..\Servidor\dxThemeD11.dcp" />
<DCCReference Include="..\Servidor\GUIBase.dcp" />
<DCCReference Include="..\Servidor\GUISDK_D11R.dcp" />
<DCCReference Include="..\Servidor\Jcl.dcp" />
<DCCReference Include="..\Servidor\JclVcl.dcp" />
<DCCReference Include="..\Servidor\JvCoreD11R.dcp" />
<DCCReference Include="..\Servidor\JvCtrlsD11R.dcp" />
<DCCReference Include="..\Servidor\JvJansD11R.dcp" />
<DCCReference Include="..\Servidor\JvMMD11R.dcp" />
<DCCReference Include="..\Servidor\JvStdCtrlsD11R.dcp" />
<DCCReference Include="..\Servidor\JvSystemD11R.dcp" />
<DCCReference Include="..\Servidor\PluginSDK_D11R.dcp" />
<DCCReference Include="..\Servidor\PngComponentsD10.dcp" />
<DCCReference Include="..\Servidor\PNG_D10.dcp" />
<DCCReference Include="..\Servidor\RemObjects_Core_D11.dcp" />
<DCCReference Include="..\Servidor\rtl.dcp" />
<DCCReference Include="..\Servidor\vcl.dcp" />
<DCCReference Include="..\Servidor\vclactnband.dcp" />
<DCCReference Include="..\Servidor\vcldb.dcp" />
<DCCReference Include="..\Servidor\vcljpg.dcp" />
<DCCReference Include="..\Servidor\vclx.dcp" />
<DCCReference Include="..\Servidor\xmlrtl.dcp" />
<DCCReference Include="..\Modulos\Facturas de cliente\adortl.dcp" />
<DCCReference Include="..\Modulos\Facturas de cliente\Base.dcp" />
<DCCReference Include="..\Modulos\Facturas de cliente\ccpackD11.dcp" />
<DCCReference Include="..\Modulos\Facturas de cliente\cfpack_d11.dcp" />
<DCCReference Include="..\Modulos\Facturas de cliente\cxDataD11.dcp" />
<DCCReference Include="..\Modulos\Facturas de cliente\cxEditorsD11.dcp" />
<DCCReference Include="..\Modulos\Facturas de cliente\cxExtEditorsD11.dcp" />
<DCCReference Include="..\Modulos\Facturas de cliente\cxLibraryD11.dcp" />
<DCCReference Include="..\Modulos\Facturas de cliente\DataAbstract_Core_D11.dcp" />
<DCCReference Include="..\Modulos\Facturas de cliente\dbrtl.dcp" />
<DCCReference Include="..\Modulos\Facturas de cliente\designide.dcp" />
<DCCReference Include="..\Modulos\Facturas de cliente\dsnap.dcp" />
<DCCReference Include="..\Modulos\Facturas de cliente\dxCoreD11.dcp" />
<DCCReference Include="..\Modulos\Facturas de cliente\dxGDIPlusD11.dcp" />
<DCCReference Include="..\Modulos\Facturas de cliente\dxNavBarD11.dcp" />
<DCCReference Include="..\Modulos\Facturas de cliente\dxThemeD11.dcp" />
<DCCReference Include="..\Modulos\Facturas de cliente\GUIBase.dcp" />
<DCCReference Include="..\Modulos\Facturas de cliente\GUISDK_D11R.dcp" />
<DCCReference Include="..\Modulos\Facturas de cliente\Jcl.dcp" />
<DCCReference Include="..\Modulos\Facturas de cliente\JclVcl.dcp" />
<DCCReference Include="..\Modulos\Facturas de cliente\JvCoreD11R.dcp" />
<DCCReference Include="..\Modulos\Facturas de cliente\JvCtrlsD11R.dcp" />
<DCCReference Include="..\Modulos\Facturas de cliente\JvJansD11R.dcp" />
<DCCReference Include="..\Modulos\Facturas de cliente\JvMMD11R.dcp" />
<DCCReference Include="..\Modulos\Facturas de cliente\JvStdCtrlsD11R.dcp" />
<DCCReference Include="..\Modulos\Facturas de cliente\JvSystemD11R.dcp" />
<DCCReference Include="..\Modulos\Facturas de cliente\PluginSDK_D11R.dcp" />
<DCCReference Include="..\Modulos\Facturas de cliente\PngComponentsD10.dcp" />
<DCCReference Include="..\Modulos\Facturas de cliente\PNG_D10.dcp" />
<DCCReference Include="..\Modulos\Facturas de cliente\RemObjects_Core_D11.dcp" />
<DCCReference Include="..\Modulos\Facturas de cliente\rtl.dcp" />
<DCCReference Include="..\Modulos\Facturas de cliente\vcl.dcp" />
<DCCReference Include="..\Modulos\Facturas de cliente\vclactnband.dcp" />
<DCCReference Include="..\Modulos\Facturas de cliente\vcldb.dcp" />
<DCCReference Include="..\Modulos\Facturas de cliente\vcljpg.dcp" />
<DCCReference Include="..\Modulos\Facturas de cliente\vclx.dcp" />
<DCCReference Include="..\Modulos\Facturas de cliente\xmlrtl.dcp" />
<DCCReference Include="Configuracion\Controller\uConfiguracionController.pas" />
<DCCReference Include="Configuracion\Controller\Views\uIViewConfiguracionBase.pas" />
<DCCReference Include="Configuracion\Views\uEditorConfiguracion.pas">

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

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

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

51
Source/ApplicationBase/Empresas/Model/schEmpresasClient_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_EmpresasTiendas = '{24354065-34FB-4D22-9253-5CC082F7F289}';
RID_DarNombre = '{908C8404-6D2A-40FA-B291-D2E17BF5ED33}';
RID_Empresas = '{1B9E49DD-EA45-4FDC-9438-299F6CD8D55F}';
RID_EmpresasDatosBanco = '{281E9067-263E-447E-896F-E5D3C8B51D73}';
RID_EmpresasTiendas = '{7846BBE0-04FC-42FE-B6E1-87982D99298D}';
RID_DarNombre = '{30F80B13-9686-43DF-AD79-CF2BA063FC0D}';
RID_Empresas = '{3DD75D7B-B6BF-4F23-8315-A79A8D0FEBF1}';
RID_EmpresasDatosBanco = '{8F6E24FD-A920-4DF1-A800-33A13DAAA5A9}';
{ Data table names }
nme_EmpresasTiendas = 'EmpresasTiendas';
@ -90,6 +90,7 @@ const
fld_EmpresasID_FORMA_PAGO = 'ID_FORMA_PAGO';
fld_EmpresasVALIDEZ_PRESUPUESTOS = 'VALIDEZ_PRESUPUESTOS';
fld_EmpresasPRECIO_PUNTO = 'PRECIO_PUNTO';
fld_EmpresasID_PERFIL = 'ID_PERFIL';
{ Empresas field indexes }
idx_EmpresasID = 0;
@ -119,6 +120,7 @@ const
idx_EmpresasID_FORMA_PAGO = 24;
idx_EmpresasVALIDEZ_PRESUPUESTOS = 25;
idx_EmpresasPRECIO_PUNTO = 26;
idx_EmpresasID_PERFIL = 27;
{ EmpresasDatosBanco fields }
fld_EmpresasDatosBancoID = 'ID';
@ -145,7 +147,7 @@ const
type
{ IEmpresasTiendas }
IEmpresasTiendas = interface(IDAStronglyTypedDataTable)
['{072C4F53-5CB8-42B1-8E7B-1B9F9566A489}']
['{29F8DDC0-32B5-4D18-889E-7CD5295C4768}']
{ Property getters and setters }
function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer);
@ -360,7 +362,7 @@ type
{ IDarNombre }
IDarNombre = interface(IDAStronglyTypedDataTable)
['{36C6DE99-879C-4CD9-BAC2-86D29EA32BA0}']
['{F9833C20-3E16-439F-AF60-1188C3F7FA77}']
{ Property getters and setters }
function GetNOMBREValue: String;
procedure SetNOMBREValue(const aValue: String);
@ -395,7 +397,7 @@ type
{ IEmpresas }
IEmpresas = interface(IDAStronglyTypedDataTable)
['{E55587B7-F61A-4FE3-A87E-23B2937651C9}']
['{2E98270D-135A-465B-B784-E826CFED21AD}']
{ Property getters and setters }
function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer);
@ -503,6 +505,10 @@ type
procedure SetPRECIO_PUNTOValue(const aValue: Currency);
function GetPRECIO_PUNTOIsNull: Boolean;
procedure SetPRECIO_PUNTOIsNull(const aValue: Boolean);
function GetID_PERFILValue: Integer;
procedure SetID_PERFILValue(const aValue: Integer);
function GetID_PERFILIsNull: Boolean;
procedure SetID_PERFILIsNull(const aValue: Boolean);
{ Properties }
@ -560,6 +566,8 @@ type
property VALIDEZ_PRESUPUESTOSIsNull: Boolean read GetVALIDEZ_PRESUPUESTOSIsNull write SetVALIDEZ_PRESUPUESTOSIsNull;
property PRECIO_PUNTO: Currency read GetPRECIO_PUNTOValue write SetPRECIO_PUNTOValue;
property PRECIO_PUNTOIsNull: Boolean read GetPRECIO_PUNTOIsNull write SetPRECIO_PUNTOIsNull;
property ID_PERFIL: Integer read GetID_PERFILValue write SetID_PERFILValue;
property ID_PERFILIsNull: Boolean read GetID_PERFILIsNull write SetID_PERFILIsNull;
end;
{ TEmpresasDataTableRules }
@ -677,6 +685,10 @@ type
procedure SetPRECIO_PUNTOValue(const aValue: Currency); virtual;
function GetPRECIO_PUNTOIsNull: Boolean; virtual;
procedure SetPRECIO_PUNTOIsNull(const aValue: Boolean); virtual;
function GetID_PERFILValue: Integer; virtual;
procedure SetID_PERFILValue(const aValue: Integer); virtual;
function GetID_PERFILIsNull: Boolean; virtual;
procedure SetID_PERFILIsNull(const aValue: Boolean); virtual;
{ Properties }
property ID: Integer read GetIDValue write SetIDValue;
@ -733,6 +745,8 @@ type
property VALIDEZ_PRESUPUESTOSIsNull: Boolean read GetVALIDEZ_PRESUPUESTOSIsNull write SetVALIDEZ_PRESUPUESTOSIsNull;
property PRECIO_PUNTO: Currency read GetPRECIO_PUNTOValue write SetPRECIO_PUNTOValue;
property PRECIO_PUNTOIsNull: Boolean read GetPRECIO_PUNTOIsNull write SetPRECIO_PUNTOIsNull;
property ID_PERFIL: Integer read GetID_PERFILValue write SetID_PERFILValue;
property ID_PERFILIsNull: Boolean read GetID_PERFILIsNull write SetID_PERFILIsNull;
public
constructor Create(aDataTable: TDADataTable); override;
@ -742,7 +756,7 @@ type
{ IEmpresasDatosBanco }
IEmpresasDatosBanco = interface(IDAStronglyTypedDataTable)
['{BE056627-D7CE-45E0-9C9B-9A8EEEE21DC7}']
['{7933C562-157E-4235-85D5-849DCC1B27E3}']
{ Property getters and setters }
function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer);
@ -1858,6 +1872,27 @@ begin
DataTable.Fields[idx_EmpresasPRECIO_PUNTO].AsVariant := Null;
end;
function TEmpresasDataTableRules.GetID_PERFILValue: Integer;
begin
result := DataTable.Fields[idx_EmpresasID_PERFIL].AsInteger;
end;
procedure TEmpresasDataTableRules.SetID_PERFILValue(const aValue: Integer);
begin
DataTable.Fields[idx_EmpresasID_PERFIL].AsInteger := aValue;
end;
function TEmpresasDataTableRules.GetID_PERFILIsNull: boolean;
begin
result := DataTable.Fields[idx_EmpresasID_PERFIL].IsNull;
end;
procedure TEmpresasDataTableRules.SetID_PERFILIsNull(const aValue: Boolean);
begin
if aValue then
DataTable.Fields[idx_EmpresasID_PERFIL].AsVariant := Null;
end;
{ TEmpresasDatosBancoDataTableRules }
constructor TEmpresasDatosBancoDataTableRules.Create(aDataTable: TDADataTable);

59
Source/ApplicationBase/Empresas/Model/schEmpresasServer_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_EmpresasTiendasDelta = '{C2DF8351-F4BD-45D9-B158-5B6229017A94}';
RID_DarNombreDelta = '{E132F7C4-76CF-4381-A65F-3FE396C43927}';
RID_EmpresasDelta = '{7F3E50C3-3DF3-44E3-A6DF-5159F721FC65}';
RID_EmpresasDatosBancoDelta = '{8444CEF5-4F93-4913-ADC9-EA4151961E85}';
RID_EmpresasTiendasDelta = '{5F6B8574-3D34-4053-9C3D-C9D54E35385B}';
RID_DarNombreDelta = '{0FE165AC-2657-4B35-8198-CA4352B14F63}';
RID_EmpresasDelta = '{ED3707F2-AED9-42AA-A712-2982BE6DE6E7}';
RID_EmpresasDatosBancoDelta = '{86C78EE4-9661-47CA-B3DB-ECF4F3A8DD27}';
type
{ IEmpresasTiendasDelta }
IEmpresasTiendasDelta = interface(IEmpresasTiendas)
['{C2DF8351-F4BD-45D9-B158-5B6229017A94}']
['{5F6B8574-3D34-4053-9C3D-C9D54E35385B}']
{ Property getters and setters }
function GetOldIDValue : Integer;
function GetOldID_EMPRESAValue : Integer;
@ -232,7 +232,7 @@ type
{ IDarNombreDelta }
IDarNombreDelta = interface(IDarNombre)
['{E132F7C4-76CF-4381-A65F-3FE396C43927}']
['{0FE165AC-2657-4B35-8198-CA4352B14F63}']
{ Property getters and setters }
function GetOldNOMBREValue : String;
@ -266,7 +266,7 @@ type
{ IEmpresasDelta }
IEmpresasDelta = interface(IEmpresas)
['{7F3E50C3-3DF3-44E3-A6DF-5159F721FC65}']
['{ED3707F2-AED9-42AA-A712-2982BE6DE6E7}']
{ Property getters and setters }
function GetOldIDValue : Integer;
function GetOldNIF_CIFValue : String;
@ -295,6 +295,7 @@ type
function GetOldID_FORMA_PAGOValue : Integer;
function GetOldVALIDEZ_PRESUPUESTOSValue : SmallInt;
function GetOldPRECIO_PUNTOValue : Currency;
function GetOldID_PERFILValue : Integer;
{ Properties }
property OldID : Integer read GetOldIDValue;
@ -324,6 +325,7 @@ type
property OldID_FORMA_PAGO : Integer read GetOldID_FORMA_PAGOValue;
property OldVALIDEZ_PRESUPUESTOS : SmallInt read GetOldVALIDEZ_PRESUPUESTOSValue;
property OldPRECIO_PUNTO : Currency read GetOldPRECIO_PUNTOValue;
property OldID_PERFIL : Integer read GetOldID_PERFILValue;
end;
{ TEmpresasBusinessProcessorRules }
@ -495,6 +497,12 @@ type
function GetOldPRECIO_PUNTOIsNull: Boolean; virtual;
procedure SetPRECIO_PUNTOValue(const aValue: Currency); virtual;
procedure SetPRECIO_PUNTOIsNull(const aValue: Boolean); virtual;
function GetID_PERFILValue: Integer; virtual;
function GetID_PERFILIsNull: Boolean; virtual;
function GetOldID_PERFILValue: Integer; virtual;
function GetOldID_PERFILIsNull: Boolean; virtual;
procedure SetID_PERFILValue(const aValue: Integer); virtual;
procedure SetID_PERFILIsNull(const aValue: Boolean); virtual;
{ Properties }
property ID : Integer read GetIDValue write SetIDValue;
@ -605,6 +613,10 @@ type
property PRECIO_PUNTOIsNull : Boolean read GetPRECIO_PUNTOIsNull write SetPRECIO_PUNTOIsNull;
property OldPRECIO_PUNTO : Currency read GetOldPRECIO_PUNTOValue;
property OldPRECIO_PUNTOIsNull : Boolean read GetOldPRECIO_PUNTOIsNull;
property ID_PERFIL : Integer read GetID_PERFILValue write SetID_PERFILValue;
property ID_PERFILIsNull : Boolean read GetID_PERFILIsNull write SetID_PERFILIsNull;
property OldID_PERFIL : Integer read GetOldID_PERFILValue;
property OldID_PERFILIsNull : Boolean read GetOldID_PERFILIsNull;
public
constructor Create(aBusinessProcessor: TDABusinessProcessor); override;
@ -614,7 +626,7 @@ type
{ IEmpresasDatosBancoDelta }
IEmpresasDatosBancoDelta = interface(IEmpresasDatosBanco)
['{8444CEF5-4F93-4913-ADC9-EA4151961E85}']
['{86C78EE4-9661-47CA-B3DB-ECF4F3A8DD27}']
{ Property getters and setters }
function GetOldIDValue : Integer;
function GetOldID_EMPRESAValue : Integer;
@ -2173,6 +2185,37 @@ begin
BusinessProcessor.CurrentChange.NewValueByName[fld_EmpresasPRECIO_PUNTO] := Null;
end;
function TEmpresasBusinessProcessorRules.GetID_PERFILValue: Integer;
begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_EmpresasID_PERFIL];
end;
function TEmpresasBusinessProcessorRules.GetID_PERFILIsNull: Boolean;
begin
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_EmpresasID_PERFIL]);
end;
function TEmpresasBusinessProcessorRules.GetOldID_PERFILValue: Integer;
begin
result := BusinessProcessor.CurrentChange.OldValueByName[fld_EmpresasID_PERFIL];
end;
function TEmpresasBusinessProcessorRules.GetOldID_PERFILIsNull: Boolean;
begin
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_EmpresasID_PERFIL]);
end;
procedure TEmpresasBusinessProcessorRules.SetID_PERFILValue(const aValue: Integer);
begin
BusinessProcessor.CurrentChange.NewValueByName[fld_EmpresasID_PERFIL] := aValue;
end;
procedure TEmpresasBusinessProcessorRules.SetID_PERFILIsNull(const aValue: Boolean);
begin
if aValue then
BusinessProcessor.CurrentChange.NewValueByName[fld_EmpresasID_PERFIL] := Null;
end;
{ TEmpresasDatosBancoBusinessProcessorRules }
constructor TEmpresasDatosBancoBusinessProcessorRules.Create(aBusinessProcessor: TDABusinessProcessor);

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

@ -331,6 +331,10 @@ object srvEmpresas: TsrvEmpresas
item
DatasetField = 'IVA'
TableField = 'IVA'
end
item
DatasetField = 'ID_PERFIL'
TableField = 'ID_PERFIL'
end>
end>
Name = 'Empresas'
@ -485,6 +489,10 @@ object srvEmpresas: TsrvEmpresas
item
Name = 'PRECIO_PUNTO'
DataType = datCurrency
end
item
Name = 'ID_PERFIL'
DataType = datInteger
end>
end
item

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);

3
Source/ApplicationBase/Usuarios/Views/uEditorLogin.dfm
View File

@ -1089,8 +1089,7 @@ object fEditorLogin: TfEditorLogin
AppStoragePath = '\'
Options = []
StoredProps.Strings = (
'edtUser.Text'
'edtPassword.Text')
'edtUser.Text')
StoredValues = <
item
Name = 'Ruta'

2
Source/ApplicationBase/Usuarios/Views/uEditorLogin.pas
View File

@ -113,7 +113,7 @@ end;
procedure TfEditorLogin.FormShow(Sender: TObject);
begin
Self.Caption := AppFactuGES.AppFullName;
JvFormStorage1.RestoreFormPlacement;
// JvFormStorage1.RestoreFormPlacement;
// Hacer login automática si hay usuario/password y no hay más de una base
// de datos como opción para conectarse.

4
Source/ApplicationBase/Usuarios/Views/uViewUsuario.pas
View File

@ -184,11 +184,11 @@ begin
dsUsuario.DataTable := FUsuario.DataTable;
if FUsuario.EsNuevo then
begin
dxLayoutControlArticuloGroup5.Visible := True;
// dxLayoutControlArticuloGroup5.Visible := True;
cbPerfil.Text := cbPerfil.Properties.Items[0];
end
else begin
dxLayoutControlArticuloGroup5.Visible := False;
// dxLayoutControlArticuloGroup5.Visible := False;
cbPerfil.Text := cbPerfil.Properties.Items[0];
for i := 0 to FListaPerfiles.Count-1 do

8
Source/ApplicationBase/uFactuGES_App.pas
View File

@ -54,7 +54,7 @@ type
procedure SeleccionarEmpresa;
procedure CambiarEmpresa(const AIDEmpresa : Integer);
procedure CambiarEmpresaPorDefecto;
// procedure CambiarEmpresaPorDefecto;
procedure CambiarEjercicio(const AIDEmpresa : Integer);
procedure ShowSplashForm;
@ -160,7 +160,7 @@ type
procedure SeleccionarEmpresa;
procedure CambiarEmpresa(const AIDEmpresa : Integer);
procedure CambiarEmpresaPorDefecto;
// procedure CambiarEmpresaPorDefecto;
procedure CambiarEjercicio(const AIDEmpresa : Integer);
property AppVersion : String read GetAppVersion;
@ -238,6 +238,7 @@ begin
BuscarTiendaPorDefecto;
end;
{
procedure TAppFactuGES.CambiarEmpresaPorDefecto;
var
AEmpresas : IBizEmpresa;
@ -252,6 +253,7 @@ begin
AEmpresas := NIL;
end;
end;
}
procedure TAppFactuGES.CargarModulos;
begin
@ -515,7 +517,7 @@ begin
//Añadimos las diferentes empresas que existan
AEmpresasController := TEmpresasController.Create;
AEmpresas := AEmpresasController.BuscarTodos;
AEmpresas := AEmpresasController.BuscarTodos(AppFactuGES.UsuarioActivo.ID_PERFIL);
AEmpresas.DataTable.Active := True;
AEmpresas.Datatable.First;

103
Source/Base/Base.dproj
View File

@ -44,13 +44,6 @@
<Borland.ProjectType>Package</Borland.ProjectType>
<BorlandProject>
<BorlandProject><Delphi.Personality><Parameters><Parameters Name="UseLauncher">False</Parameters><Parameters Name="LoadAllSymbols">True</Parameters><Parameters Name="LoadUnspecifiedSymbols">False</Parameters></Parameters><Package_Options><Package_Options Name="PackageDescription">Libreria base de FactuGES</Package_Options><Package_Options Name="ImplicitBuild">False</Package_Options><Package_Options Name="DesigntimeOnly">False</Package_Options><Package_Options Name="RuntimeOnly">False</Package_Options></Package_Options><VersionInfo><VersionInfo Name="IncludeVerInfo">True</VersionInfo><VersionInfo Name="AutoIncBuild">False</VersionInfo><VersionInfo Name="MajorVer">1</VersionInfo><VersionInfo Name="MinorVer">0</VersionInfo><VersionInfo Name="Release">0</VersionInfo><VersionInfo Name="Build">0</VersionInfo><VersionInfo Name="Debug">False</VersionInfo><VersionInfo Name="PreRelease">False</VersionInfo><VersionInfo Name="Special">False</VersionInfo><VersionInfo Name="Private">False</VersionInfo><VersionInfo Name="DLL">False</VersionInfo><VersionInfo Name="Locale">3082</VersionInfo><VersionInfo Name="CodePage">1252</VersionInfo></VersionInfo><VersionInfoKeys><VersionInfoKeys Name="CompanyName"></VersionInfoKeys><VersionInfoKeys Name="FileDescription"></VersionInfoKeys><VersionInfoKeys Name="FileVersion">1.0.0.0</VersionInfoKeys><VersionInfoKeys Name="InternalName"></VersionInfoKeys><VersionInfoKeys Name="LegalCopyright"></VersionInfoKeys><VersionInfoKeys Name="LegalTrademarks"></VersionInfoKeys><VersionInfoKeys Name="OriginalFilename"></VersionInfoKeys><VersionInfoKeys Name="ProductName"></VersionInfoKeys><VersionInfoKeys Name="ProductVersion">1.0.0.0</VersionInfoKeys></VersionInfoKeys><Excluded_Packages>
<Excluded_Packages Name="$(BDS)\Bin\dclintraweb_90_100.bpl">VCL for the Web Design Package for CodeGear RAD Studio</Excluded_Packages>
<Excluded_Packages Name="$(BDS)\bin\dclwebsnap100.bpl">CodeGear WebSnap Components</Excluded_Packages>
<Excluded_Packages Name="$(BDS)\bin\dclsoap100.bpl">CodeGear SOAP Components</Excluded_Packages>
@ -65,55 +58,55 @@
<DelphiCompile Include="Base.dpk">
<MainSource>MainSource</MainSource>
</DelphiCompile>
<DCCReference Include="..\Modulos\Facturas de cliente\adortl.dcp" />
<DCCReference Include="..\Modulos\Facturas de cliente\cxDataD11.dcp" />
<DCCReference Include="..\Modulos\Facturas de cliente\cxEditorsD11.dcp" />
<DCCReference Include="..\Modulos\Facturas de cliente\cxExtEditorsD11.dcp" />
<DCCReference Include="..\Modulos\Facturas de cliente\cxGridD11.dcp" />
<DCCReference Include="..\Modulos\Facturas de cliente\cxLibraryD11.dcp" />
<DCCReference Include="..\Modulos\Facturas de cliente\cxPageControlD11.dcp" />
<DCCReference Include="..\Modulos\Facturas de cliente\DataAbstract_Core_D11.dcp" />
<DCCReference Include="..\Modulos\Facturas de cliente\dbrtl.dcp" />
<DCCReference Include="..\Modulos\Facturas de cliente\dclIndyCore.dcp" />
<DCCReference Include="..\Modulos\Facturas de cliente\designide.dcp" />
<DCCReference Include="..\Modulos\Facturas de cliente\dsnap.dcp" />
<DCCReference Include="..\Modulos\Facturas de cliente\dxGDIPlusD11.dcp" />
<DCCReference Include="..\Modulos\Facturas de cliente\dxPSCoreD11.dcp" />
<DCCReference Include="..\Modulos\Facturas de cliente\dxThemeD11.dcp" />
<DCCReference Include="..\Modulos\Facturas de cliente\GUISDK_D11R.dcp" />
<DCCReference Include="..\Modulos\Facturas de cliente\IndyCore.dcp" />
<DCCReference Include="..\Modulos\Facturas de cliente\IndyProtocols.dcp" />
<DCCReference Include="..\Modulos\Facturas de cliente\IndySystem.dcp" />
<DCCReference Include="..\Modulos\Facturas de cliente\Jcl.dcp" />
<DCCReference Include="..\Modulos\Facturas de cliente\JclVcl.dcp" />
<DCCReference Include="..\Modulos\Facturas de cliente\JSDialog100.dcp" />
<DCCReference Include="..\Modulos\Facturas de cliente\JvCmpD11R.dcp" />
<DCCReference Include="..\Modulos\Facturas de cliente\JvCoreD11R.dcp" />
<DCCReference Include="..\Modulos\Facturas de cliente\JvCtrlsD11R.dcp" />
<DCCReference Include="..\Modulos\Facturas de cliente\JvDlgsD11R.dcp" />
<DCCReference Include="..\Modulos\Facturas de cliente\JvMMD11R.dcp" />
<DCCReference Include="..\Modulos\Facturas de cliente\JvNetD11R.dcp" />
<DCCReference Include="..\Modulos\Facturas de cliente\JvPageCompsD11R.dcp" />
<DCCReference Include="..\Modulos\Facturas de cliente\JvStdCtrlsD11R.dcp" />
<DCCReference Include="..\Modulos\Facturas de cliente\JvSystemD11R.dcp" />
<DCCReference Include="..\Modulos\Facturas de cliente\pckMD5.dcp" />
<DCCReference Include="..\Modulos\Facturas de cliente\pckUCDataConnector.dcp" />
<DCCReference Include="..\Modulos\Facturas de cliente\pckUserControl_RT.dcp" />
<DCCReference Include="..\Modulos\Facturas de cliente\PluginSDK_D11R.dcp" />
<DCCReference Include="..\Modulos\Facturas de cliente\PngComponentsD10.dcp" />
<DCCReference Include="..\Modulos\Facturas de cliente\PNG_D10.dcp" />
<DCCReference Include="..\Modulos\Facturas de cliente\RemObjects_Core_D11.dcp" />
<DCCReference Include="..\Modulos\Facturas de cliente\rtl.dcp" />
<DCCReference Include="..\Modulos\Facturas de cliente\TB2k_D10.dcp" />
<DCCReference Include="..\Modulos\Facturas de cliente\tbx_d10.dcp" />
<DCCReference Include="..\Modulos\Facturas de cliente\vcl.dcp" />
<DCCReference Include="..\Modulos\Facturas de cliente\vclactnband.dcp" />
<DCCReference Include="..\Modulos\Facturas de cliente\vcldb.dcp" />
<DCCReference Include="..\Modulos\Facturas de cliente\vcljpg.dcp" />
<DCCReference Include="..\Modulos\Facturas de cliente\VclSmp.dcp" />
<DCCReference Include="..\Modulos\Facturas de cliente\vclx.dcp" />
<DCCReference Include="..\Modulos\Facturas de cliente\xmlrtl.dcp" />
<DCCReference Include="..\Servicios\FactuGES_Intf.pas" />
<DCCReference Include="C:\Documents and Settings\Usuario\adortl.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\cxDataD11.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\cxEditorsD11.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\cxExtEditorsD11.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\cxGridD11.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\cxLibraryD11.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\cxPageControlD11.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\DataAbstract_Core_D11.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\dbrtl.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\dclIndyCore.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\designide.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\dsnap.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\dxGDIPlusD11.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\dxPSCoreD11.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\dxThemeD11.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\GUISDK_D11R.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\IndyCore.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\IndyProtocols.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\IndySystem.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\Jcl.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\JclVcl.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\JSDialog100.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\JvCmpD11R.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\JvCoreD11R.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\JvCtrlsD11R.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\JvDlgsD11R.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\JvMMD11R.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\JvNetD11R.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\JvPageCompsD11R.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\JvStdCtrlsD11R.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\JvSystemD11R.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\pckMD5.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\pckUCDataConnector.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\pckUserControl_RT.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\PluginSDK_D11R.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\PngComponentsD10.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\PNG_D10.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\RemObjects_Core_D11.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\rtl.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\TB2k_D10.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\tbx_d10.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\vcl.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\vclactnband.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\vcldb.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\vcljpg.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\VclSmp.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\vclx.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\xmlrtl.dcp" />
<DCCReference Include="Conexion\uConfigurarConexion.pas">
<Form>fConfigurarConexion</Form>
<DesignClass>TForm</DesignClass>

BIN
Source/Base/Base.res
View File

Binary file not shown.

3
Source/Cliente/FactuGES.dproj
View File

@ -51,7 +51,8 @@
<Borland.Personality>Delphi.Personality</Borland.Personality>
<Borland.ProjectType>VCLApplication</Borland.ProjectType>
<BorlandProject>
<BorlandProject><Delphi.Personality><Parameters><Parameters Name="UseLauncher">False</Parameters><Parameters Name="LoadAllSymbols">True</Parameters><Parameters Name="LoadUnspecifiedSymbols">False</Parameters></Parameters><Language><Language Name="RootDir">C:\Archivos de programa\Borland\Delphi7\Bin\</Language></Language><VersionInfo><VersionInfo Name="IncludeVerInfo">True</VersionInfo><VersionInfo Name="AutoIncBuild">False</VersionInfo><VersionInfo Name="MajorVer">2</VersionInfo><VersionInfo Name="MinorVer">6</VersionInfo><VersionInfo Name="Release">8</VersionInfo><VersionInfo Name="Build">0</VersionInfo><VersionInfo Name="Debug">False</VersionInfo><VersionInfo Name="PreRelease">False</VersionInfo><VersionInfo Name="Special">False</VersionInfo><VersionInfo Name="Private">False</VersionInfo><VersionInfo Name="DLL">False</VersionInfo><VersionInfo Name="Locale">3082</VersionInfo><VersionInfo Name="CodePage">1252</VersionInfo></VersionInfo><VersionInfoKeys><VersionInfoKeys Name="CompanyName">Rodax Software S.L.</VersionInfoKeys><VersionInfoKeys Name="FileDescription"></VersionInfoKeys><VersionInfoKeys Name="FileVersion">2.6.8.0</VersionInfoKeys><VersionInfoKeys Name="InternalName">FactuGES</VersionInfoKeys><VersionInfoKeys Name="LegalCopyright"></VersionInfoKeys><VersionInfoKeys Name="LegalTrademarks"></VersionInfoKeys><VersionInfoKeys Name="OriginalFilename"></VersionInfoKeys><VersionInfoKeys Name="ProductName">FactuGES</VersionInfoKeys><VersionInfoKeys Name="ProductVersion">2.6.8.0</VersionInfoKeys><VersionInfoKeys Name="Comments"></VersionInfoKeys></VersionInfoKeys><Excluded_Packages>
<BorlandProject><Delphi.Personality><Parameters><Parameters Name="UseLauncher">False</Parameters><Parameters Name="LoadAllSymbols">True</Parameters><Parameters Name="LoadUnspecifiedSymbols">False</Parameters></Parameters><Language><Language Name="RootDir">C:\Archivos de programa\Borland\Delphi7\Bin\</Language></Language><VersionInfo><VersionInfo Name="IncludeVerInfo">True</VersionInfo><VersionInfo Name="AutoIncBuild">False</VersionInfo><VersionInfo Name="MajorVer">2</VersionInfo><VersionInfo Name="MinorVer">6</VersionInfo><VersionInfo Name="Release">9</VersionInfo><VersionInfo Name="Build">0</VersionInfo><VersionInfo Name="Debug">False</VersionInfo><VersionInfo Name="PreRelease">False</VersionInfo><VersionInfo Name="Special">False</VersionInfo><VersionInfo Name="Private">False</VersionInfo><VersionInfo Name="DLL">False</VersionInfo><VersionInfo Name="Locale">3082</VersionInfo><VersionInfo Name="CodePage">1252</VersionInfo></VersionInfo><VersionInfoKeys><VersionInfoKeys Name="CompanyName">Rodax Software S.L.</VersionInfoKeys><VersionInfoKeys Name="FileDescription"></VersionInfoKeys><VersionInfoKeys Name="FileVersion">2.6.9.0</VersionInfoKeys><VersionInfoKeys Name="InternalName">FactuGES</VersionInfoKeys><VersionInfoKeys Name="LegalCopyright"></VersionInfoKeys><VersionInfoKeys Name="LegalTrademarks"></VersionInfoKeys><VersionInfoKeys Name="OriginalFilename"></VersionInfoKeys><VersionInfoKeys Name="ProductName">FactuGES</VersionInfoKeys><VersionInfoKeys Name="ProductVersion">2.6.9.0</VersionInfoKeys><VersionInfoKeys Name="Comments"></VersionInfoKeys></VersionInfoKeys><Excluded_Packages>
<Excluded_Packages Name="C:\Documents and Settings\All Users\Documentos\RAD Studio\5.0\Bpl\dxPScxScheduler2LnkD11.bpl">File C:\Documents and Settings\All Users\Documentos\RAD Studio\5.0\Bpl\dxPScxScheduler2LnkD11.bpl not found</Excluded_Packages>
</Excluded_Packages><Source><Source Name="MainSource">FactuGES.dpr</Source></Source></Delphi.Personality><ModelSupport>False</ModelSupport></BorlandProject></BorlandProject>

BIN
Source/Cliente/FactuGES.res
View File

Binary file not shown.

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;

9
Source/Cliente/uPantallaPrincipal.pas
View File

@ -195,6 +195,13 @@ end;
procedure TfPantallaPrincipal.FormShow(Sender: TObject);
begin
InicializarUI;
//Solo verá los informes el perfil Administrador(3), están en la tabla usuarios
if (AppFactuGES.UsuarioActivo.ID_PERFIL <> 3) then
begin
// Perfiles1.Visible := False;
Administracin1.Visible := False;
end;
end;
procedure TfPantallaPrincipal.RefrescarUI;
@ -338,7 +345,7 @@ begin
NavPaneController.InitNavPane;
try
AListaEmpresas := AppFactuGES.EmpresasController.BuscarTodos;
AListaEmpresas := AppFactuGES.EmpresasController.BuscarTodos(AppFactuGES.UsuarioActivo.ID_PERFIL);
if Assigned(AListaEmpresas) then
begin
AListaEmpresas.Active := True;

56
Source/GUIBase/GUIBase.dproj
View File

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

4
Source/Informes/1/InfAlbaranCliente.fr3
View File

File diff suppressed because one or more lines are too long

4
Source/Informes/1/InfContratoCliente.fr3
View File

File diff suppressed because one or more lines are too long

6
Source/Informes/1/InfFacturaCliente.fr3
View File

File diff suppressed because one or more lines are too long

75
Source/Informes/1/InfFacturaCliente_original.fr3 Normal file
View File

File diff suppressed because one or more lines are too long

4
Source/Informes/1/InfPresupuestoCliente.fr3
View File

File diff suppressed because one or more lines are too long

10
Source/Informes/1/InformeListadoFacturasRecibosCliente.fr3
View File

@ -1,5 +1,5 @@
<?xml version="1.0" encoding="utf-8"?>
<TfrxReport Version="4.8.11" DotMatrixReport="False" EngineOptions.DoublePass="True" IniFile="\Software\Fast Reports" PreviewOptions.Buttons="4095" PreviewOptions.Zoom="1" PrintOptions.Printer="Por defecto" PrintOptions.PrintOnSheet="0" ReportOptions.CreateDate="37800,8077143519" ReportOptions.Description.Text="" ReportOptions.LastChange="41536,7259066898" ScriptLanguage="PascalScript" ScriptText.Text="procedure mContinuaOnBeforePrint(Sender: TfrxComponent);&#13;&#10;begin&#13;&#10; if Engine.FinalPass then&#13;&#10; begin&#13;&#10; if (&#60;Page#&#62; = &#60;TotalPages#&#62;) then&#13;&#10; begin &#13;&#10; mContinua.Visible := False;&#13;&#10; end &#13;&#10; else&#13;&#10; begin &#13;&#10; mContinua.Visible := True;&#13;&#10; end &#13;&#10; end; &#13;&#10;end;&#13;&#10;&#13;&#10;begin&#13;&#10;&#13;&#10;end. " ShowProgress="False" StoreInDFM="False" OnStartReport="frxReportOnStartReport" PropData="044C65667403A90003546F70021008446174617365747301010C5000000020446174615365743D226672784442496E666F726D654C69737461646F46616374757261732220446174615365744E616D653D226672784442496E666F726D654C69737461646F46616374757261732200010C4E00000020446174615365743D226672784442496E666F726D654C69737461646F52656369626F732220446174615365744E616D653D226672784442496E666F726D654C69737461646F52656369626F73220000095661726961626C657301010C13000000204E616D653D2220506172616D6574726F732200010C17000000204E616D653D22546578746F506172616D6574726F73220000055374796C650100">
<TfrxReport Version="4.8.11" DotMatrixReport="False" EngineOptions.DoublePass="True" IniFile="\Software\Fast Reports" PreviewOptions.Buttons="4095" PreviewOptions.Zoom="1" PrintOptions.Printer="Por defecto" PrintOptions.PrintOnSheet="0" ReportOptions.CreateDate="37800,8077143519" ReportOptions.Description.Text="" ReportOptions.LastChange="42669,7412590394" ScriptLanguage="PascalScript" ScriptText.Text="procedure mContinuaOnBeforePrint(Sender: TfrxComponent);&#13;&#10;begin&#13;&#10; if Engine.FinalPass then&#13;&#10; begin&#13;&#10; if (&#60;Page#&#62; = &#60;TotalPages#&#62;) then&#13;&#10; begin &#13;&#10; mContinua.Visible := False;&#13;&#10; end &#13;&#10; else&#13;&#10; begin &#13;&#10; mContinua.Visible := True;&#13;&#10; end &#13;&#10; end; &#13;&#10;end;&#13;&#10;&#13;&#10;begin&#13;&#10;&#13;&#10;end. " ShowProgress="False" StoreInDFM="False" OnStartReport="frxReportOnStartReport" PropData="044C65667403A90003546F70021008446174617365747301010C2A00000020446174615365744E616D653D226672784442496E666F726D654C69737461646F46616374757261732200010C2900000020446174615365744E616D653D226672784442496E666F726D654C69737461646F52656369626F73220000095661726961626C657301010C13000000204E616D653D2220506172616D6574726F732200010C17000000204E616D653D22546578746F506172616D6574726F73220000055374796C650100">
<TfrxDataPage Name="Data" Height="1000" Left="0" Top="0" Width="1000"/>
<TfrxReportPage Name="Page1" PaperWidth="210" PaperHeight="297" PaperSize="9" LeftMargin="14,9992291666667" RightMargin="14,9992291666667" TopMargin="14,9992291666667" BottomMargin="19,9998541666667" Columns="1" ColumnWidth="180,001333333333" ColumnPositions.Text="0" LargeDesignHeight="True" HGuides.Text="" VGuides.Text="">
<TfrxPageHeader Name="Band1" Height="107,10235" Left="0" Top="16" Width="680,321226775416" OnBeforePrint="Band1OnBeforePrint">
@ -7,13 +7,13 @@
<TfrxShapeView Name="Shape5" Left="362,03154" Top="6,10235" Width="310" Height="97" ShowHint="False" Shape="skRoundRectangle"/>
<TfrxMemoView Name="NombreCliente" Left="366,11008" Top="11,10235" Width="301,88992" Height="22,66141" ShowHint="False" StretchMode="smMaxHeight" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="0" Font.Height="-13" Font.Name="Tahoma" Font.Style="1" HAlign="haRight" ParentFont="False" Text="Listado de facturas/recibos de cliente"/>
<TfrxMemoView Name="Memo3" Left="366,11008" Top="36,10235" Width="302,88992" Height="60,35436" ShowHint="False" StretchMode="smMaxHeight" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="0" Font.Height="-12" Font.Name="Tahoma" Font.Style="0" HAlign="haRight" ParentFont="False" Text="Fecha del listado: [&#60;Date&#62;] - Página [Page#] de [TotalPages#]&#13;&#10;[TextoParametros]"/>
<TfrxMemoView Name="Memo1" Left="4" Top="10" Width="226" Height="77" ShowHint="False" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="6382696" Font.Height="-8" Font.Name="Tahoma" Font.Style="0" HAlign="haRight" ParentFont="False" Text="Plaza San Juan de la Cruz, 8. 28003 Madrid&#13;&#10;Tel. 91 533 18 00 - Fax 91 533 18 09&#13;&#10;tienda@abetodesign.com - www.abetodesign.com&#13;&#10;&#13;&#10;Calle Belmez, 22 (P.I. ALbarreja). 28946 Fuenlabrada (Madrid)&#13;&#10;Tel. 91 609 93 94 - Fax 91 690 20 54&#13;&#10;fabrica@abetodesign.com - www.abetodesign.com"/>
<TfrxMemoView Name="Memo1" Left="4" Top="10" Width="226" Height="77" ShowHint="False" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="6382696" Font.Height="-8" Font.Name="Tahoma" Font.Style="0" HAlign="haRight" ParentFont="False" Text="Plaza San Juan de la Cruz, 8. 28003 Madrid&#13;&#10;Tel. 91 533 18 00 &#13;&#10;tienda@abetodesign.com - www.abetodesign.com&#13;&#10;&#13;&#10;Calle Belmez, 22 (P.I. ALbarreja). 28946 Fuenlabrada (Madrid)&#13;&#10;Tel. 91 609 93 94 &#13;&#10;fabrica@abetodesign.com - www.abetodesign.com"/>
</TfrxPageHeader>
<TfrxPageFooter Name="" Height="23,77953" Left="0" Top="271" Width="680,321226775416" PrintOnLastPage="False">
<TfrxMemoView Name="mContinua" Left="925,98485" Top="4,77953" Width="81,08714" Height="16,77953" OnBeforePrint="mContinuaOnBeforePrint" ShowHint="False" StretchMode="smMaxHeight" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="16384" Font.Height="-12" Font.Name="Tahoma" Font.Style="0" HAlign="haRight" ParentFont="False" Text="Continúa ..."/>
<TfrxMemoView Name="Memo2" Left="609,32122678" Top="8,38559" Width="71" Height="13" OnBeforePrint="Memo2OnBeforePrint" ShowHint="False" StretchMode="smMaxHeight" Font.Charset="1" Font.Color="0" Font.Height="-9" Font.Name="Tahoma" Font.Style="0" HAlign="haRight" ParentFont="False" VAlign="vaCenter" Text=""/>
</TfrxPageFooter>
<TfrxMasterData Name="MasterData2" Height="28" Left="0" Top="183" Width="680,321226775416" ColumnWidth="0" ColumnGap="0" DataSet="frxDBInformeListadoRecibos" DataSetName="frxDBInformeListadoRecibos" RowCount="0" Stretched="True">
<TfrxMasterData Name="MasterData2" Height="28" Left="0" Top="183" Width="680,321226775416" ColumnWidth="0" ColumnGap="0" DataSetName="frxDBInformeListadoRecibos" RowCount="0" Stretched="True">
<TfrxSubreport Name="Subreport1" Left="1" Top="4" Width="298" Height="20" ShowHint="False" Page="Page2" PrintOnParent="True"/>
<TfrxSubreport Name="Subreport2" ShiftMode="smDontShift" Left="302" Top="3" Width="377" Height="20" ShowHint="False" Page="Page3" PrintOnParent="True"/>
</TfrxMasterData>
@ -26,7 +26,7 @@
<TfrxMemoView Name="Memo7" Align="baLeft" Left="0" Top="3,77953" Width="339,37013" Height="15,11811024" ShowHint="False" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="16384" Font.Height="-12" Font.Name="Tahoma" Font.Style="1" Frame.Color="8421504" ParentFont="False" Text="Facturas de [frxDBInformeListadoFacturas.&#34;NOMBRE&#34;]"/>
<TfrxMemoView Name="Memo5" Align="baLeft" Left="140" Top="25" Width="60" Height="15" ShowHint="False" Color="13556733" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Tahoma" Font.Style="1" Frame.Typ="15" ParentFont="False" VAlign="vaCenter" Text="Situación"/>
</TfrxGroupHeader>
<TfrxMasterData Name="DatosMaestros1" Height="17,00787402" Left="0" Top="76" Width="680,321226775416" Columns="1" ColumnWidth="200" ColumnGap="0" DataSet="frxDBInformeListadoFacturas" DataSetName="frxDBInformeListadoFacturas" RowCount="0">
<TfrxMasterData Name="DatosMaestros1" Height="17,00787402" Left="0" Top="76" Width="680,321226775416" Columns="1" ColumnWidth="200" ColumnGap="0" DataSetName="frxDBInformeListadoFacturas" RowCount="0">
<TfrxMemoView Name="Memo21" Align="baLeft" Left="80" Top="0" Width="60" Height="17,00787402" ShowHint="False" StretchMode="smMaxHeight" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="16384" Font.Height="-9" Font.Name="Tahoma" Font.Style="0" Frame.Typ="15" ParentFont="False" Text=" [frxDBInformeListadoFacturas.&#34;FECHA_FACTURA&#34;]"/>
<TfrxMemoView Name="Memo18" Align="baLeft" Left="0" Top="0" Width="80" Height="17,00787402" ShowHint="False" StretchMode="smMaxHeight" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="16384" Font.Height="-9" Font.Name="Tahoma" Font.Style="0" Frame.Typ="15" ParentFont="False" Text=" [frxDBInformeListadoFacturas.&#34;REFERENCIA&#34;]"/>
<TfrxMemoView Name="Memo31" Align="baLeft" Left="200" Top="0" Width="85" Height="17,00787402" ShowHint="False" StretchMode="smMaxHeight" DisplayFormat.DecimalSeparator="," DisplayFormat.FormatStr="%2.2m" DisplayFormat.Kind="fkNumeric" Font.Charset="1" Font.Color="16384" Font.Height="-9" Font.Name="Tahoma" Font.Style="0" Frame.Typ="15" HAlign="haRight" ParentFont="False" Text="[frxDBInformeListadoFacturas.&#34;IMPORTE_TOTAL&#34;]"/>
@ -38,7 +38,7 @@
</TfrxGroupFooter>
</TfrxReportPage>
<TfrxReportPage Name="Page3" PaperWidth="210" PaperHeight="297" PaperSize="9" LeftMargin="14,9992291666667" RightMargin="14,9992291666667" TopMargin="14,9992291666667" BottomMargin="19,9998541666667" Columns="1" ColumnWidth="180,001333333333" ColumnPositions.Text="0" BackPictureVisible="False" BackPicturePrintable="False" LargeDesignHeight="True" TitleBeforeHeader="False" HGuides.Text="" VGuides.Text="">
<TfrxMasterData Name="MasterData1" Height="17" Left="0" Top="76" Width="680,321226775416" ColumnWidth="0" ColumnGap="0" DataSet="frxDBInformeListadoRecibos" DataSetName="frxDBInformeListadoRecibos" RowCount="0">
<TfrxMasterData Name="MasterData1" Height="17" Left="0" Top="76" Width="680,321226775416" ColumnWidth="0" ColumnGap="0" DataSetName="frxDBInformeListadoRecibos" RowCount="0">
<TfrxMemoView Name="Memo4" Left="0" Top="0" Width="90" Height="17" ShowHint="False" StretchMode="smMaxHeight" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="16384" Font.Height="-9" Font.Name="Tahoma" Font.Style="0" Frame.Typ="15" ParentFont="False" Text=" [frxDBInformeListadoRecibos.&#34;REFERENCIA&#34;]"/>
<TfrxMemoView Name="Memo14" Align="baLeft" Left="90" Top="0" Width="80" Height="17" ShowHint="False" StretchMode="smMaxHeight" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="16384" Font.Height="-9" Font.Name="Tahoma" Font.Style="0" Frame.Typ="15" ParentFont="False" Text=" [frxDBInformeListadoRecibos.&#34;FECHA_EMISION&#34;]"/>
<TfrxMemoView Name="Memo15" Align="baLeft" Left="240" Top="0" Width="65" Height="17" ShowHint="False" StretchMode="smMaxHeight" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="16384" Font.Height="-9" Font.Name="Tahoma" Font.Style="0" Frame.Typ="15" ParentFont="False" Text=" [frxDBInformeListadoRecibos.&#34;SITUACION&#34;]"/>

6
Source/Informes/2/InfAlbaranCliente.fr3
View File

File diff suppressed because one or more lines are too long

8
Source/Informes/2/InfContratoCliente.fr3
View File

File diff suppressed because one or more lines are too long

8
Source/Informes/2/InfFacturaCliente.fr3
View File

File diff suppressed because one or more lines are too long

8
Source/Informes/2/InfPresupuestoCliente.fr3
View File

File diff suppressed because one or more lines are too long

6
Source/Informes/2/InfReciboCliente.fr3
View File

File diff suppressed because one or more lines are too long

6
Source/Informes/2/InformeListadoFacturasRecibosCliente.fr3
View File

File diff suppressed because one or more lines are too long

6
Source/Informes/3/InfAlbaranCliente.fr3
View File

File diff suppressed because one or more lines are too long

8
Source/Informes/3/InfContratoCliente.fr3
View File

File diff suppressed because one or more lines are too long

8
Source/Informes/3/InfFacturaCliente.fr3
View File

File diff suppressed because one or more lines are too long

8
Source/Informes/3/InfPresupuestoCliente.fr3
View File

File diff suppressed because one or more lines are too long

6
Source/Informes/3/InfReciboCliente.fr3
View File

File diff suppressed because one or more lines are too long

6
Source/Informes/3/InformeListadoFacturasRecibosCliente.fr3
View File

File diff suppressed because one or more lines are too long

4
Source/Informes/4/InfAlbaranCliente.fr3
View File

File diff suppressed because one or more lines are too long

4
Source/Informes/4/InfContratoCliente.fr3
View File

File diff suppressed because one or more lines are too long

6
Source/Informes/4/InfFacturaCliente.fr3
View File

File diff suppressed because one or more lines are too long

4
Source/Informes/4/InfPresupuestoCliente.fr3
View File

File diff suppressed because one or more lines are too long

10
Source/Informes/4/InformeListadoFacturasRecibosCliente.fr3
View File

@ -1,5 +1,5 @@
<?xml version="1.0" encoding="utf-8"?>
<TfrxReport Version="4.8.11" DotMatrixReport="False" EngineOptions.DoublePass="True" IniFile="\Software\Fast Reports" PreviewOptions.Buttons="4095" PreviewOptions.Zoom="1" PrintOptions.Printer="Por defecto" PrintOptions.PrintOnSheet="0" ReportOptions.CreateDate="37800,8077143519" ReportOptions.Description.Text="" ReportOptions.LastChange="41536,7259066898" ScriptLanguage="PascalScript" ScriptText.Text="procedure mContinuaOnBeforePrint(Sender: TfrxComponent);&#13;&#10;begin&#13;&#10; if Engine.FinalPass then&#13;&#10; begin&#13;&#10; if (&#60;Page#&#62; = &#60;TotalPages#&#62;) then&#13;&#10; begin &#13;&#10; mContinua.Visible := False;&#13;&#10; end &#13;&#10; else&#13;&#10; begin &#13;&#10; mContinua.Visible := True;&#13;&#10; end &#13;&#10; end; &#13;&#10;end;&#13;&#10;&#13;&#10;begin&#13;&#10;&#13;&#10;end. " ShowProgress="False" StoreInDFM="False" OnStartReport="frxReportOnStartReport" PropData="044C65667403A90003546F70021008446174617365747301010C5000000020446174615365743D226672784442496E666F726D654C69737461646F46616374757261732220446174615365744E616D653D226672784442496E666F726D654C69737461646F46616374757261732200010C4E00000020446174615365743D226672784442496E666F726D654C69737461646F52656369626F732220446174615365744E616D653D226672784442496E666F726D654C69737461646F52656369626F73220000095661726961626C657301010C13000000204E616D653D2220506172616D6574726F732200010C17000000204E616D653D22546578746F506172616D6574726F73220000055374796C650100">
<TfrxReport Version="4.8.11" DotMatrixReport="False" EngineOptions.DoublePass="True" IniFile="\Software\Fast Reports" PreviewOptions.Buttons="4095" PreviewOptions.Zoom="1" PrintOptions.Printer="Por defecto" PrintOptions.PrintOnSheet="0" ReportOptions.CreateDate="37800,8077143519" ReportOptions.Description.Text="" ReportOptions.LastChange="42669,7457826968" ScriptLanguage="PascalScript" ScriptText.Text="procedure mContinuaOnBeforePrint(Sender: TfrxComponent);&#13;&#10;begin&#13;&#10; if Engine.FinalPass then&#13;&#10; begin&#13;&#10; if (&#60;Page#&#62; = &#60;TotalPages#&#62;) then&#13;&#10; begin &#13;&#10; mContinua.Visible := False;&#13;&#10; end &#13;&#10; else&#13;&#10; begin &#13;&#10; mContinua.Visible := True;&#13;&#10; end &#13;&#10; end; &#13;&#10;end;&#13;&#10;&#13;&#10;begin&#13;&#10;&#13;&#10;end. " ShowProgress="False" StoreInDFM="False" OnStartReport="frxReportOnStartReport" PropData="044C65667403A90003546F70021008446174617365747301010C2A00000020446174615365744E616D653D226672784442496E666F726D654C69737461646F46616374757261732200010C2900000020446174615365744E616D653D226672784442496E666F726D654C69737461646F52656369626F73220000095661726961626C657301010C13000000204E616D653D2220506172616D6574726F732200010C17000000204E616D653D22546578746F506172616D6574726F73220000055374796C650100">
<TfrxDataPage Name="Data" Height="1000" Left="0" Top="0" Width="1000"/>
<TfrxReportPage Name="Page1" PaperWidth="210" PaperHeight="297" PaperSize="9" LeftMargin="14,9992291666667" RightMargin="14,9992291666667" TopMargin="14,9992291666667" BottomMargin="19,9998541666667" Columns="1" ColumnWidth="180,001333333333" ColumnPositions.Text="0" LargeDesignHeight="True" HGuides.Text="" VGuides.Text="">
<TfrxPageHeader Name="Band1" Height="107,10235" Left="0" Top="16" Width="680,321226775416" OnBeforePrint="Band1OnBeforePrint">
@ -7,13 +7,13 @@
<TfrxShapeView Name="Shape5" Left="362,03154" Top="6,10235" Width="310" Height="97" ShowHint="False" Shape="skRoundRectangle"/>
<TfrxMemoView Name="NombreCliente" Left="366,11008" Top="11,10235" Width="301,88992" Height="22,66141" ShowHint="False" StretchMode="smMaxHeight" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="0" Font.Height="-13" Font.Name="Tahoma" Font.Style="1" HAlign="haRight" ParentFont="False" Text="Listado de facturas/recibos de cliente"/>
<TfrxMemoView Name="Memo3" Left="366,11008" Top="36,10235" Width="302,88992" Height="60,35436" ShowHint="False" StretchMode="smMaxHeight" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="0" Font.Height="-12" Font.Name="Tahoma" Font.Style="0" HAlign="haRight" ParentFont="False" Text="Fecha del listado: [&#60;Date&#62;] - Página [Page#] de [TotalPages#]&#13;&#10;[TextoParametros]"/>
<TfrxMemoView Name="Memo1" Left="4" Top="10" Width="226" Height="77" ShowHint="False" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="6382696" Font.Height="-8" Font.Name="Tahoma" Font.Style="0" HAlign="haRight" ParentFont="False" Text="Plaza San Juan de la Cruz, 8. 28003 Madrid&#13;&#10;Tel. 91 533 18 00 - Fax 91 533 18 09&#13;&#10;tienda@abetodesign.com - www.abetodesign.com&#13;&#10;&#13;&#10;Calle Belmez, 22 (P.I. ALbarreja). 28946 Fuenlabrada (Madrid)&#13;&#10;Tel. 91 609 93 94 - Fax 91 690 20 54&#13;&#10;fabrica@abetodesign.com - www.abetodesign.com"/>
<TfrxMemoView Name="Memo1" Left="4" Top="10" Width="226" Height="77" ShowHint="False" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="6382696" Font.Height="-8" Font.Name="Tahoma" Font.Style="0" HAlign="haRight" ParentFont="False" Text="Plaza San Juan de la Cruz, 8. 28003 Madrid&#13;&#10;Tel. 91 533 18 00 &#13;&#10;tienda@abetodesign.com - www.abetodesign.com&#13;&#10;&#13;&#10;Calle Belmez, 22 (P.I. ALbarreja). 28946 Fuenlabrada (Madrid)&#13;&#10;Tel. 91 609 93 94 &#13;&#10;fabrica@abetodesign.com - www.abetodesign.com"/>
</TfrxPageHeader>
<TfrxPageFooter Name="" Height="23,77953" Left="0" Top="271" Width="680,321226775416" PrintOnLastPage="False">
<TfrxMemoView Name="mContinua" Left="925,98485" Top="4,77953" Width="81,08714" Height="16,77953" OnBeforePrint="mContinuaOnBeforePrint" ShowHint="False" StretchMode="smMaxHeight" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="16384" Font.Height="-12" Font.Name="Tahoma" Font.Style="0" HAlign="haRight" ParentFont="False" Text="Continúa ..."/>
<TfrxMemoView Name="Memo2" Left="609,32122678" Top="8,38559" Width="71" Height="13" OnBeforePrint="Memo2OnBeforePrint" ShowHint="False" StretchMode="smMaxHeight" Font.Charset="1" Font.Color="0" Font.Height="-9" Font.Name="Tahoma" Font.Style="0" HAlign="haRight" ParentFont="False" VAlign="vaCenter" Text=""/>
</TfrxPageFooter>
<TfrxMasterData Name="MasterData2" Height="28" Left="0" Top="183" Width="680,321226775416" ColumnWidth="0" ColumnGap="0" DataSet="frxDBInformeListadoRecibos" DataSetName="frxDBInformeListadoRecibos" RowCount="0" Stretched="True">
<TfrxMasterData Name="MasterData2" Height="28" Left="0" Top="183" Width="680,321226775416" ColumnWidth="0" ColumnGap="0" DataSetName="frxDBInformeListadoRecibos" RowCount="0" Stretched="True">
<TfrxSubreport Name="Subreport1" Left="1" Top="4" Width="298" Height="20" ShowHint="False" Page="Page2" PrintOnParent="True"/>
<TfrxSubreport Name="Subreport2" ShiftMode="smDontShift" Left="302" Top="3" Width="377" Height="20" ShowHint="False" Page="Page3" PrintOnParent="True"/>
</TfrxMasterData>
@ -26,7 +26,7 @@
<TfrxMemoView Name="Memo7" Align="baLeft" Left="0" Top="3,77953" Width="339,37013" Height="15,11811024" ShowHint="False" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="16384" Font.Height="-12" Font.Name="Tahoma" Font.Style="1" Frame.Color="8421504" ParentFont="False" Text="Facturas de [frxDBInformeListadoFacturas.&#34;NOMBRE&#34;]"/>
<TfrxMemoView Name="Memo5" Align="baLeft" Left="140" Top="25" Width="60" Height="15" ShowHint="False" Color="13556733" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Tahoma" Font.Style="1" Frame.Typ="15" ParentFont="False" VAlign="vaCenter" Text="Situación"/>
</TfrxGroupHeader>
<TfrxMasterData Name="DatosMaestros1" Height="17,00787402" Left="0" Top="76" Width="680,321226775416" Columns="1" ColumnWidth="200" ColumnGap="0" DataSet="frxDBInformeListadoFacturas" DataSetName="frxDBInformeListadoFacturas" RowCount="0">
<TfrxMasterData Name="DatosMaestros1" Height="17,00787402" Left="0" Top="76" Width="680,321226775416" Columns="1" ColumnWidth="200" ColumnGap="0" DataSetName="frxDBInformeListadoFacturas" RowCount="0">
<TfrxMemoView Name="Memo21" Align="baLeft" Left="80" Top="0" Width="60" Height="17,00787402" ShowHint="False" StretchMode="smMaxHeight" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="16384" Font.Height="-9" Font.Name="Tahoma" Font.Style="0" Frame.Typ="15" ParentFont="False" Text=" [frxDBInformeListadoFacturas.&#34;FECHA_FACTURA&#34;]"/>
<TfrxMemoView Name="Memo18" Align="baLeft" Left="0" Top="0" Width="80" Height="17,00787402" ShowHint="False" StretchMode="smMaxHeight" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="16384" Font.Height="-9" Font.Name="Tahoma" Font.Style="0" Frame.Typ="15" ParentFont="False" Text=" [frxDBInformeListadoFacturas.&#34;REFERENCIA&#34;]"/>
<TfrxMemoView Name="Memo31" Align="baLeft" Left="200" Top="0" Width="85" Height="17,00787402" ShowHint="False" StretchMode="smMaxHeight" DisplayFormat.DecimalSeparator="," DisplayFormat.FormatStr="%2.2m" DisplayFormat.Kind="fkNumeric" Font.Charset="1" Font.Color="16384" Font.Height="-9" Font.Name="Tahoma" Font.Style="0" Frame.Typ="15" HAlign="haRight" ParentFont="False" Text="[frxDBInformeListadoFacturas.&#34;IMPORTE_TOTAL&#34;]"/>
@ -38,7 +38,7 @@
</TfrxGroupFooter>
</TfrxReportPage>
<TfrxReportPage Name="Page3" PaperWidth="210" PaperHeight="297" PaperSize="9" LeftMargin="14,9992291666667" RightMargin="14,9992291666667" TopMargin="14,9992291666667" BottomMargin="19,9998541666667" Columns="1" ColumnWidth="180,001333333333" ColumnPositions.Text="0" BackPictureVisible="False" BackPicturePrintable="False" LargeDesignHeight="True" TitleBeforeHeader="False" HGuides.Text="" VGuides.Text="">
<TfrxMasterData Name="MasterData1" Height="17" Left="0" Top="76" Width="680,321226775416" ColumnWidth="0" ColumnGap="0" DataSet="frxDBInformeListadoRecibos" DataSetName="frxDBInformeListadoRecibos" RowCount="0">
<TfrxMasterData Name="MasterData1" Height="17" Left="0" Top="76" Width="680,321226775416" ColumnWidth="0" ColumnGap="0" DataSetName="frxDBInformeListadoRecibos" RowCount="0">
<TfrxMemoView Name="Memo4" Left="0" Top="0" Width="90" Height="17" ShowHint="False" StretchMode="smMaxHeight" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="16384" Font.Height="-9" Font.Name="Tahoma" Font.Style="0" Frame.Typ="15" ParentFont="False" Text=" [frxDBInformeListadoRecibos.&#34;REFERENCIA&#34;]"/>
<TfrxMemoView Name="Memo14" Align="baLeft" Left="90" Top="0" Width="80" Height="17" ShowHint="False" StretchMode="smMaxHeight" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="16384" Font.Height="-9" Font.Name="Tahoma" Font.Style="0" Frame.Typ="15" ParentFont="False" Text=" [frxDBInformeListadoRecibos.&#34;FECHA_EMISION&#34;]"/>
<TfrxMemoView Name="Memo15" Align="baLeft" Left="240" Top="0" Width="65" Height="17" ShowHint="False" StretchMode="smMaxHeight" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="16384" Font.Height="-9" Font.Name="Tahoma" Font.Style="0" Frame.Typ="15" ParentFont="False" Text=" [frxDBInformeListadoRecibos.&#34;SITUACION&#34;]"/>

8
Source/Informes/InformeIVAClientes.fr3
View File

File diff suppressed because one or more lines are too long

8
Source/Informes/InformeIVAClientesDesglosado.fr3
View File

File diff suppressed because one or more lines are too long

10
Source/Informes/InformeIVAProveedores.fr3
View File

File diff suppressed because one or more lines are too long

38
Source/Informes/InformeIVAProveedoresDesglosado.fr3
View File

File diff suppressed because one or more lines are too long

8
Source/Informes/InformeListadoFacturasCliente.fr3
View File

File diff suppressed because one or more lines are too long

8
Source/Informes/InformeListadoFacturasClienteDesglosado.fr3
View File

File diff suppressed because one or more lines are too long

8
Source/Informes/InformeListadoFacturasClientePendientes.fr3
View File

File diff suppressed because one or more lines are too long

8
Source/Informes/InformeListadoFacturasClientePendientesDesglosado.fr3
View File

File diff suppressed because one or more lines are too long

8
Source/Informes/InformeListadoFacturasProveedor.fr3
View File

File diff suppressed because one or more lines are too long

8
Source/Informes/InformeListadoFacturasProveedorDesglosado.fr3
View File

File diff suppressed because one or more lines are too long

8
Source/Informes/InformeListadoFacturasProveedorPendientes.fr3
View File

File diff suppressed because one or more lines are too long

8
Source/Informes/InformeListadoFacturasProveedorPendientesDesglosado.fr3
View File

File diff suppressed because one or more lines are too long

10
Source/Informes/InformeListadoFacturasRecibosCliente.fr3
View File

@ -1,5 +1,5 @@
<?xml version="1.0" encoding="utf-8"?>
<TfrxReport Version="4.8.11" DotMatrixReport="False" EngineOptions.DoublePass="True" IniFile="\Software\Fast Reports" PreviewOptions.Buttons="4095" PreviewOptions.Zoom="1" PrintOptions.Printer="Por defecto" PrintOptions.PrintOnSheet="0" ReportOptions.CreateDate="37800,8077143519" ReportOptions.Description.Text="" ReportOptions.LastChange="41536,7259066898" ScriptLanguage="PascalScript" ScriptText.Text="procedure mContinuaOnBeforePrint(Sender: TfrxComponent);&#13;&#10;begin&#13;&#10; if Engine.FinalPass then&#13;&#10; begin&#13;&#10; if (&#60;Page#&#62; = &#60;TotalPages#&#62;) then&#13;&#10; begin &#13;&#10; mContinua.Visible := False;&#13;&#10; end &#13;&#10; else&#13;&#10; begin &#13;&#10; mContinua.Visible := True;&#13;&#10; end &#13;&#10; end; &#13;&#10;end;&#13;&#10;&#13;&#10;begin&#13;&#10;&#13;&#10;end. " ShowProgress="False" StoreInDFM="False" OnStartReport="frxReportOnStartReport" PropData="044C65667403A90003546F70021008446174617365747301010C5000000020446174615365743D226672784442496E666F726D654C69737461646F46616374757261732220446174615365744E616D653D226672784442496E666F726D654C69737461646F46616374757261732200010C4E00000020446174615365743D226672784442496E666F726D654C69737461646F52656369626F732220446174615365744E616D653D226672784442496E666F726D654C69737461646F52656369626F73220000095661726961626C657301010C13000000204E616D653D2220506172616D6574726F732200010C17000000204E616D653D22546578746F506172616D6574726F73220000055374796C650100">
<TfrxReport Version="4.8.11" DotMatrixReport="False" EngineOptions.DoublePass="True" IniFile="\Software\Fast Reports" PreviewOptions.Buttons="4095" PreviewOptions.Zoom="1" PrintOptions.Printer="Por defecto" PrintOptions.PrintOnSheet="0" ReportOptions.CreateDate="37800,8077143519" ReportOptions.Description.Text="" ReportOptions.LastChange="42669,7490925116" ScriptLanguage="PascalScript" ScriptText.Text="procedure mContinuaOnBeforePrint(Sender: TfrxComponent);&#13;&#10;begin&#13;&#10; if Engine.FinalPass then&#13;&#10; begin&#13;&#10; if (&#60;Page#&#62; = &#60;TotalPages#&#62;) then&#13;&#10; begin &#13;&#10; mContinua.Visible := False;&#13;&#10; end &#13;&#10; else&#13;&#10; begin &#13;&#10; mContinua.Visible := True;&#13;&#10; end &#13;&#10; end; &#13;&#10;end;&#13;&#10;&#13;&#10;begin&#13;&#10;&#13;&#10;end. " ShowProgress="False" StoreInDFM="False" OnStartReport="frxReportOnStartReport" PropData="044C65667403A90003546F70021008446174617365747301010C2A00000020446174615365744E616D653D226672784442496E666F726D654C69737461646F46616374757261732200010C2900000020446174615365744E616D653D226672784442496E666F726D654C69737461646F52656369626F73220000095661726961626C657301010C13000000204E616D653D2220506172616D6574726F732200010C17000000204E616D653D22546578746F506172616D6574726F73220000055374796C650100">
<TfrxDataPage Name="Data" Height="1000" Left="0" Top="0" Width="1000"/>
<TfrxReportPage Name="Page1" PaperWidth="210" PaperHeight="297" PaperSize="9" LeftMargin="14,9992291666667" RightMargin="14,9992291666667" TopMargin="14,9992291666667" BottomMargin="19,9998541666667" Columns="1" ColumnWidth="180,001333333333" ColumnPositions.Text="0" LargeDesignHeight="True" HGuides.Text="" VGuides.Text="">
<TfrxPageHeader Name="Band1" Height="107,10235" Left="0" Top="16" Width="680,321226775416" OnBeforePrint="Band1OnBeforePrint">
@ -7,13 +7,13 @@
<TfrxShapeView Name="Shape5" Left="362,03154" Top="6,10235" Width="310" Height="97" ShowHint="False" Shape="skRoundRectangle"/>
<TfrxMemoView Name="NombreCliente" Left="366,11008" Top="11,10235" Width="301,88992" Height="22,66141" ShowHint="False" StretchMode="smMaxHeight" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="0" Font.Height="-13" Font.Name="Tahoma" Font.Style="1" HAlign="haRight" ParentFont="False" Text="Listado de facturas/recibos de cliente"/>
<TfrxMemoView Name="Memo3" Left="366,11008" Top="36,10235" Width="302,88992" Height="60,35436" ShowHint="False" StretchMode="smMaxHeight" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="0" Font.Height="-12" Font.Name="Tahoma" Font.Style="0" HAlign="haRight" ParentFont="False" Text="Fecha del listado: [&#60;Date&#62;] - Página [Page#] de [TotalPages#]&#13;&#10;[TextoParametros]"/>
<TfrxMemoView Name="Memo1" Left="4" Top="10" Width="226" Height="77" ShowHint="False" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="6382696" Font.Height="-8" Font.Name="Tahoma" Font.Style="0" HAlign="haRight" ParentFont="False" Text="Plaza San Juan de la Cruz, 8. 28003 Madrid&#13;&#10;Tel. 91 533 18 00 - Fax 91 533 18 09&#13;&#10;tienda@abetodesign.com - www.abetodesign.com&#13;&#10;&#13;&#10;Calle Belmez, 22 (P.I. ALbarreja). 28946 Fuenlabrada (Madrid)&#13;&#10;Tel. 91 609 93 94 - Fax 91 690 20 54&#13;&#10;fabrica@abetodesign.com - www.abetodesign.com"/>
<TfrxMemoView Name="Memo1" Left="4" Top="10" Width="226" Height="77" ShowHint="False" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="6382696" Font.Height="-8" Font.Name="Tahoma" Font.Style="0" HAlign="haRight" ParentFont="False" Text="Plaza San Juan de la Cruz, 8. 28003 Madrid&#13;&#10;Tel. 91 533 18 00 &#13;&#10;tienda@abetodesign.com - www.abetodesign.com&#13;&#10;&#13;&#10;Calle Belmez, 22 (P.I. ALbarreja). 28946 Fuenlabrada (Madrid)&#13;&#10;Tel. 91 609 93 94 &#13;&#10;fabrica@abetodesign.com - www.abetodesign.com"/>
</TfrxPageHeader>
<TfrxPageFooter Name="" Height="23,77953" Left="0" Top="271" Width="680,321226775416" PrintOnLastPage="False">
<TfrxMemoView Name="mContinua" Left="925,98485" Top="4,77953" Width="81,08714" Height="16,77953" OnBeforePrint="mContinuaOnBeforePrint" ShowHint="False" StretchMode="smMaxHeight" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="16384" Font.Height="-12" Font.Name="Tahoma" Font.Style="0" HAlign="haRight" ParentFont="False" Text="Continúa ..."/>
<TfrxMemoView Name="Memo2" Left="609,32122678" Top="8,38559" Width="71" Height="13" OnBeforePrint="Memo2OnBeforePrint" ShowHint="False" StretchMode="smMaxHeight" Font.Charset="1" Font.Color="0" Font.Height="-9" Font.Name="Tahoma" Font.Style="0" HAlign="haRight" ParentFont="False" VAlign="vaCenter" Text=""/>
</TfrxPageFooter>
<TfrxMasterData Name="MasterData2" Height="28" Left="0" Top="183" Width="680,321226775416" ColumnWidth="0" ColumnGap="0" DataSet="frxDBInformeListadoRecibos" DataSetName="frxDBInformeListadoRecibos" RowCount="0" Stretched="True">
<TfrxMasterData Name="MasterData2" Height="28" Left="0" Top="183" Width="680,321226775416" ColumnWidth="0" ColumnGap="0" DataSetName="frxDBInformeListadoRecibos" RowCount="0" Stretched="True">
<TfrxSubreport Name="Subreport1" Left="1" Top="4" Width="298" Height="20" ShowHint="False" Page="Page2" PrintOnParent="True"/>
<TfrxSubreport Name="Subreport2" ShiftMode="smDontShift" Left="302" Top="3" Width="377" Height="20" ShowHint="False" Page="Page3" PrintOnParent="True"/>
</TfrxMasterData>
@ -26,7 +26,7 @@
<TfrxMemoView Name="Memo7" Align="baLeft" Left="0" Top="3,77953" Width="339,37013" Height="15,11811024" ShowHint="False" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="16384" Font.Height="-12" Font.Name="Tahoma" Font.Style="1" Frame.Color="8421504" ParentFont="False" Text="Facturas de [frxDBInformeListadoFacturas.&#34;NOMBRE&#34;]"/>
<TfrxMemoView Name="Memo5" Align="baLeft" Left="140" Top="25" Width="60" Height="15" ShowHint="False" Color="13556733" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Tahoma" Font.Style="1" Frame.Typ="15" ParentFont="False" VAlign="vaCenter" Text="Situación"/>
</TfrxGroupHeader>
<TfrxMasterData Name="DatosMaestros1" Height="17,00787402" Left="0" Top="76" Width="680,321226775416" Columns="1" ColumnWidth="200" ColumnGap="0" DataSet="frxDBInformeListadoFacturas" DataSetName="frxDBInformeListadoFacturas" RowCount="0">
<TfrxMasterData Name="DatosMaestros1" Height="17,00787402" Left="0" Top="76" Width="680,321226775416" Columns="1" ColumnWidth="200" ColumnGap="0" DataSetName="frxDBInformeListadoFacturas" RowCount="0">
<TfrxMemoView Name="Memo21" Align="baLeft" Left="80" Top="0" Width="60" Height="17,00787402" ShowHint="False" StretchMode="smMaxHeight" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="16384" Font.Height="-9" Font.Name="Tahoma" Font.Style="0" Frame.Typ="15" ParentFont="False" Text=" [frxDBInformeListadoFacturas.&#34;FECHA_FACTURA&#34;]"/>
<TfrxMemoView Name="Memo18" Align="baLeft" Left="0" Top="0" Width="80" Height="17,00787402" ShowHint="False" StretchMode="smMaxHeight" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="16384" Font.Height="-9" Font.Name="Tahoma" Font.Style="0" Frame.Typ="15" ParentFont="False" Text=" [frxDBInformeListadoFacturas.&#34;REFERENCIA&#34;]"/>
<TfrxMemoView Name="Memo31" Align="baLeft" Left="200" Top="0" Width="85" Height="17,00787402" ShowHint="False" StretchMode="smMaxHeight" DisplayFormat.DecimalSeparator="," DisplayFormat.FormatStr="%2.2m" DisplayFormat.Kind="fkNumeric" Font.Charset="1" Font.Color="16384" Font.Height="-9" Font.Name="Tahoma" Font.Style="0" Frame.Typ="15" HAlign="haRight" ParentFont="False" Text="[frxDBInformeListadoFacturas.&#34;IMPORTE_TOTAL&#34;]"/>
@ -38,7 +38,7 @@
</TfrxGroupFooter>
</TfrxReportPage>
<TfrxReportPage Name="Page3" PaperWidth="210" PaperHeight="297" PaperSize="9" LeftMargin="14,9992291666667" RightMargin="14,9992291666667" TopMargin="14,9992291666667" BottomMargin="19,9998541666667" Columns="1" ColumnWidth="180,001333333333" ColumnPositions.Text="0" BackPictureVisible="False" BackPicturePrintable="False" LargeDesignHeight="True" TitleBeforeHeader="False" HGuides.Text="" VGuides.Text="">
<TfrxMasterData Name="MasterData1" Height="17" Left="0" Top="76" Width="680,321226775416" ColumnWidth="0" ColumnGap="0" DataSet="frxDBInformeListadoRecibos" DataSetName="frxDBInformeListadoRecibos" RowCount="0">
<TfrxMasterData Name="MasterData1" Height="17" Left="0" Top="76" Width="680,321226775416" ColumnWidth="0" ColumnGap="0" DataSetName="frxDBInformeListadoRecibos" RowCount="0">
<TfrxMemoView Name="Memo4" Left="0" Top="0" Width="90" Height="17" ShowHint="False" StretchMode="smMaxHeight" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="16384" Font.Height="-9" Font.Name="Tahoma" Font.Style="0" Frame.Typ="15" ParentFont="False" Text=" [frxDBInformeListadoRecibos.&#34;REFERENCIA&#34;]"/>
<TfrxMemoView Name="Memo14" Align="baLeft" Left="90" Top="0" Width="80" Height="17" ShowHint="False" StretchMode="smMaxHeight" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="16384" Font.Height="-9" Font.Name="Tahoma" Font.Style="0" Frame.Typ="15" ParentFont="False" Text=" [frxDBInformeListadoRecibos.&#34;FECHA_EMISION&#34;]"/>
<TfrxMemoView Name="Memo15" Align="baLeft" Left="240" Top="0" Width="65" Height="17" ShowHint="False" StretchMode="smMaxHeight" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="16384" Font.Height="-9" Font.Name="Tahoma" Font.Style="0" Frame.Typ="15" ParentFont="False" Text=" [frxDBInformeListadoRecibos.&#34;SITUACION&#34;]"/>

6
Source/Informes/InformeListadoPresupuestos.fr3
View File

File diff suppressed because one or more lines are too long

6
Source/Informes/InformeListadoPresupuestosDesglosado.fr3
View File

File diff suppressed because one or more lines are too long

6
Source/Informes/InformeListadoRecibosCliPendientes.fr3
View File

File diff suppressed because one or more lines are too long

6
Source/Informes/InformeListadoRecibosCliPendientesDesglosado.fr3
View File

File diff suppressed because one or more lines are too long

6
Source/Informes/InformeListadoRecibosCliente.fr3
View File

File diff suppressed because one or more lines are too long

6
Source/Informes/InformeListadoRecibosClienteDesglosado.fr3
View File

File diff suppressed because one or more lines are too long

8
Source/Informes/InformeListadoRecibosProvPendientes.fr3
View File

File diff suppressed because one or more lines are too long

8
Source/Informes/InformeListadoRecibosProvPendientesDesglosado.fr3
View File

File diff suppressed because one or more lines are too long

8
Source/Informes/InformeListadoRecibosProveedor.fr3
View File

File diff suppressed because one or more lines are too long

8
Source/Informes/InformeListadoRecibosProveedorDesglosado.fr3
View File

File diff suppressed because one or more lines are too long

70
Source/Modulos/Contactos/Views/Contactos_view.dproj
View File

@ -47,41 +47,41 @@
<DelphiCompile Include="Contactos_view.dpk">
<MainSource>MainSource</MainSource>
</DelphiCompile>
<DCCReference Include="C:\Documents and Settings\Usuario\adortl.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\ApplicationBase.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\Base.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\bdertl.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\Contactos_controller.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\Contactos_model.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\cxDataD11.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\cxEditorsD11.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\cxLibraryD11.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\DataAbstract_Core_D11.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\dbrtl.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\designide.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\dsnap.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\dxGDIPlusD11.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\dxThemeD11.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\FormasPago_controller.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\FormasPago_model.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\GestorInformes_controller.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\GUIBase.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\GUISDK_D11R.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\Jcl.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\JclVcl.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\JvCoreD11R.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\JvGlobusD11R.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\JvSystemD11R.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\RemObjects_Core_D11.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\rtl.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\TiposIVA_controller.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\TiposIVA_model.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\vcl.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\vclactnband.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\vcldb.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\vcljpg.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\vclx.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\xmlrtl.dcp" />
<DCCReference Include="..\adortl.dcp" />
<DCCReference Include="..\ApplicationBase.dcp" />
<DCCReference Include="..\Base.dcp" />
<DCCReference Include="..\bdertl.dcp" />
<DCCReference Include="..\Contactos_controller.dcp" />
<DCCReference Include="..\Contactos_model.dcp" />
<DCCReference Include="..\cxDataD11.dcp" />
<DCCReference Include="..\cxEditorsD11.dcp" />
<DCCReference Include="..\cxLibraryD11.dcp" />
<DCCReference Include="..\DataAbstract_Core_D11.dcp" />
<DCCReference Include="..\dbrtl.dcp" />
<DCCReference Include="..\designide.dcp" />
<DCCReference Include="..\dsnap.dcp" />
<DCCReference Include="..\dxGDIPlusD11.dcp" />
<DCCReference Include="..\dxThemeD11.dcp" />
<DCCReference Include="..\FormasPago_controller.dcp" />
<DCCReference Include="..\FormasPago_model.dcp" />
<DCCReference Include="..\GestorInformes_controller.dcp" />
<DCCReference Include="..\GUIBase.dcp" />
<DCCReference Include="..\GUISDK_D11R.dcp" />
<DCCReference Include="..\Jcl.dcp" />
<DCCReference Include="..\JclVcl.dcp" />
<DCCReference Include="..\JvCoreD11R.dcp" />
<DCCReference Include="..\JvGlobusD11R.dcp" />
<DCCReference Include="..\JvSystemD11R.dcp" />
<DCCReference Include="..\RemObjects_Core_D11.dcp" />
<DCCReference Include="..\rtl.dcp" />
<DCCReference Include="..\TiposIVA_controller.dcp" />
<DCCReference Include="..\TiposIVA_model.dcp" />
<DCCReference Include="..\vcl.dcp" />
<DCCReference Include="..\vclactnband.dcp" />
<DCCReference Include="..\vcldb.dcp" />
<DCCReference Include="..\vcljpg.dcp" />
<DCCReference Include="..\vclx.dcp" />
<DCCReference Include="..\xmlrtl.dcp" />
<DCCReference Include="uContactosViewRegister.pas" />
<DCCReference Include="uEditorCliente.pas">
<Form>fEditorCliente</Form>

1
Source/Modulos/Contactos/Views/uEditorClientes.dfm
View File

@ -158,6 +158,7 @@ inherited fEditorClientes: TfEditorClientes
end
inherited pnlAgrupaciones: TTBXDockablePanel
Top = 368
Visible = True
ExplicitTop = 368
ExplicitWidth = 786
inherited TBXAlignmentPanel1: TTBXAlignmentPanel

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

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

16
Source/Modulos/Contactos/Views/uViewClientes.dfm
View File

@ -51,6 +51,10 @@ inherited frViewClientes: TfrViewClientes
Caption = 'Persona contacto'
DataBinding.FieldName = 'PERSONA_CONTACTO'
end
object cxGridViewPROCEDENCIA_CLIENTE: TcxGridDBColumn [9]
Caption = 'Procedencia'
DataBinding.FieldName = 'PROCEDENCIA_CLIENTE'
end
end
end
inherited frViewFiltroBase1: TfrViewFiltroBase
@ -108,6 +112,11 @@ inherited frViewClientes: TfrViewClientes
inherited TBXToolbar1: TTBXToolbar
Width = 623
ExplicitWidth = 623
object TBXSeparatorItem1: TTBXSeparatorItem
end
object TBXItem2: TTBXItem
Action = actProcedencia
end
end
end
end
@ -125,6 +134,13 @@ inherited frViewClientes: TfrViewClientes
inherited cxViewGridPopupMenu: TcxGridPopupMenu
Left = 32
end
inherited ActionList1: TActionList
object actProcedencia: TAction
Caption = 'Procedencia'
OnExecute = actProcedenciaExecute
OnUpdate = actProcedenciaUpdate
end
end
inherited GridPNGImageList: TPngImageList
PngImages = <
item

27
Source/Modulos/Contactos/Views/uViewClientes.pas
View File

@ -26,9 +26,15 @@ type
cxGridViewBLOQUEADO: TcxGridDBColumn;
cxGridViewTiendaWeb: TcxGridDBColumn;
cxGridViewPERSONA_CONTACTO: TcxGridDBColumn;
cxGridViewPROCEDENCIA_CLIENTE: TcxGridDBColumn;
actProcedencia: TAction;
TBXSeparatorItem1: TTBXSeparatorItem;
TBXItem2: TTBXItem;
procedure cxGridViewCODIGOCustomDrawCell(Sender: TcxCustomGridTableView;
ACanvas: TcxCanvas; AViewInfo: TcxGridTableDataCellViewInfo;
var ADone: Boolean);
procedure actProcedenciaExecute(Sender: TObject);
procedure actProcedenciaUpdate(Sender: TObject);
end;
@ -40,6 +46,27 @@ uses uViewGridBase;
{$R *.dfm}
procedure TfrViewClientes.actProcedenciaExecute(Sender: TObject);
begin
inherited;
if (cxGridViewPROCEDENCIA_CLIENTE.GroupIndex < 0) then
begin
cxGridViewPROCEDENCIA_CLIENTE.GroupIndex := cxGridView.GroupedColumnCount;
cxGridViewPROCEDENCIA_CLIENTE.Visible := False;
end
else
begin
cxGridViewPROCEDENCIA_CLIENTE.GroupIndex := -1;
cxGridViewPROCEDENCIA_CLIENTE.Visible := True;
end;
end;
procedure TfrViewClientes.actProcedenciaUpdate(Sender: TObject);
begin
inherited;
(Sender as TAction).Checked := not (cxGridViewPROCEDENCIA_CLIENTE.GroupIndex < 0);
end;
procedure TfrViewClientes.cxGridViewCODIGOCustomDrawCell(
Sender: TcxCustomGridTableView; ACanvas: TcxCanvas;
AViewInfo: TcxGridTableDataCellViewInfo; var ADone: Boolean);

BIN
Source/Modulos/Contratos de cliente/Data/ContratosCliente_data.RES
View File

Binary file not shown.

5
Source/Modulos/Contratos de cliente/Data/uDataModuleContratosCliente.dfm
View File

@ -66,6 +66,11 @@ inherited DataModuleContratosCliente: TDataModuleContratosCliente
DisplayLabel = 'ContratosCliente_NOMBRE_COMERCIAL_CLIENTE'
DictionaryEntry = 'ContratosCliente_NOMBRE_COMERCIAL_CLIENTE'
end
item
Name = 'PROCEDENCIA_CLIENTE'
DataType = datString
Size = 255
end
item
Name = 'NIF_CIF'
DataType = datString

161
Source/Modulos/Contratos de cliente/Model/schContratosClienteClient_Intf.pas
View File

@ -3,19 +3,19 @@ unit schContratosClienteClient_Intf;
interface
uses
Classes, DB, SysUtils, uROClasses, uDAInterfaces, uDADataTable, FmtBCD, uROXMLIntf;
Classes, DB, schBase_Intf, SysUtils, uROClasses, uDAInterfaces, uDADataTable, FmtBCD, uROXMLIntf;
const
{ Data table rules ids
Feel free to change them to something more human readable
but make sure they are unique in the context of your application }
RID_Valores = '{EFD1F7C2-8E8E-4AAE-B2C5-7B343C56CABC}';
RID_Propiedades = '{4820AA98-F3FF-4077-9FEB-C2E4736BB23B}';
RID_ListaAnosContratos = '{3D3572A5-2C27-483B-AA9B-3143CB5C9BA1}';
RID_ContratosClienteBeneficios = '{329FBEE1-47CA-4E16-BA30-0FE155B5FDA5}';
RID_ContratosCliente = '{3EBF8421-AFE3-42F9-9B07-525AEE7A2348}';
RID_TiposCapitulos = '{342EFE89-C164-4DF7-8324-ADBB8C121644}';
RID_ContratosCliente_Detalles = '{A2EF3306-B4B6-4109-96EF-20C9F6D82300}';
RID_Valores = '{9AD797AA-D46B-4AE9-9DD1-6BAC6654143D}';
RID_Propiedades = '{09573259-D2FE-4AB6-A029-AC941F33783C}';
RID_ListaAnosContratos = '{3285A04A-70B8-4A60-A13F-F7D07D7E7225}';
RID_ContratosClienteBeneficios = '{E0BAE351-BBAD-4095-93FB-18C3A4BECCA0}';
RID_ContratosCliente = '{36DCC1AC-A433-4CD3-B597-F8599DDEBEE5}';
RID_TiposCapitulos = '{B2D4D441-CBF5-4C00-8D77-C97B1B99524B}';
RID_ContratosCliente_Detalles = '{873F4990-695B-4AEE-9DB2-AA2EB812982A}';
{ Data table names }
nme_Valores = 'Valores';
@ -93,6 +93,7 @@ const
fld_ContratosClienteNOMBRE_CLIENTE = 'NOMBRE_CLIENTE';
fld_ContratosClienteREF_CLIENTE = 'REF_CLIENTE';
fld_ContratosClienteNOMBRE_COMERCIAL_CLIENTE = 'NOMBRE_COMERCIAL_CLIENTE';
fld_ContratosClientePROCEDENCIA_CLIENTE = 'PROCEDENCIA_CLIENTE';
fld_ContratosClienteNIF_CIF = 'NIF_CIF';
fld_ContratosClienteNOMBRE = 'NOMBRE';
fld_ContratosClienteID_DIRECCION = 'ID_DIRECCION';
@ -142,47 +143,48 @@ const
idx_ContratosClienteNOMBRE_CLIENTE = 3;
idx_ContratosClienteREF_CLIENTE = 4;
idx_ContratosClienteNOMBRE_COMERCIAL_CLIENTE = 5;
idx_ContratosClienteNIF_CIF = 6;
idx_ContratosClienteNOMBRE = 7;
idx_ContratosClienteID_DIRECCION = 8;
idx_ContratosClienteCALLE = 9;
idx_ContratosClientePOBLACION = 10;
idx_ContratosClientePROVINCIA = 11;
idx_ContratosClienteCODIGO_POSTAL = 12;
idx_ContratosClienteTELEFONO = 13;
idx_ContratosClienteMOVIL = 14;
idx_ContratosClienteREFERENCIA = 15;
idx_ContratosClienteFECHA_CONTRATO = 16;
idx_ContratosClienteSITUACION = 17;
idx_ContratosClienteFORMA_PAGO = 18;
idx_ContratosClientePLAZO_ENTREGA = 19;
idx_ContratosClienteOBSERVACIONES = 20;
idx_ContratosClienteINCIDENCIAS = 21;
idx_ContratosClienteINCIDENCIAS_ACTIVAS = 22;
idx_ContratosClienteFECHA_ALTA = 23;
idx_ContratosClienteFECHA_MODIFICACION = 24;
idx_ContratosClienteUSUARIO = 25;
idx_ContratosClienteRECARGO_EQUIVALENCIA = 26;
idx_ContratosClienteRE = 27;
idx_ContratosClienteIMPORTE_RE = 28;
idx_ContratosClienteID_TIPO_IVA = 29;
idx_ContratosClienteIVA = 30;
idx_ContratosClienteIMPORTE_IVA = 31;
idx_ContratosClienteIMPORTE_NETO = 32;
idx_ContratosClienteIMPORTE_PORTE = 33;
idx_ContratosClienteID_TIENDA = 34;
idx_ContratosClienteTIENDA = 35;
idx_ContratosClienteBASE_IMPONIBLE = 36;
idx_ContratosClienteDESCUENTO = 37;
idx_ContratosClienteIMPORTE_DESCUENTO = 38;
idx_ContratosClienteIMPORTE_TOTAL = 39;
idx_ContratosClienteID_FORMA_PAGO = 40;
idx_ContratosClienteID_VENDEDOR = 41;
idx_ContratosClienteVENDEDOR = 42;
idx_ContratosClientePERSONA_CONTACTO = 43;
idx_ContratosClienteTIPO_CONTRATO = 44;
idx_ContratosClienteREFERENCIA_CLIENTE = 45;
idx_ContratosClienteFACTURA_ASOCIADA = 46;
idx_ContratosClientePROCEDENCIA_CLIENTE = 6;
idx_ContratosClienteNIF_CIF = 7;
idx_ContratosClienteNOMBRE = 8;
idx_ContratosClienteID_DIRECCION = 9;
idx_ContratosClienteCALLE = 10;
idx_ContratosClientePOBLACION = 11;
idx_ContratosClientePROVINCIA = 12;
idx_ContratosClienteCODIGO_POSTAL = 13;
idx_ContratosClienteTELEFONO = 14;
idx_ContratosClienteMOVIL = 15;
idx_ContratosClienteREFERENCIA = 16;
idx_ContratosClienteFECHA_CONTRATO = 17;
idx_ContratosClienteSITUACION = 18;
idx_ContratosClienteFORMA_PAGO = 19;
idx_ContratosClientePLAZO_ENTREGA = 20;
idx_ContratosClienteOBSERVACIONES = 21;
idx_ContratosClienteINCIDENCIAS = 22;
idx_ContratosClienteINCIDENCIAS_ACTIVAS = 23;
idx_ContratosClienteFECHA_ALTA = 24;
idx_ContratosClienteFECHA_MODIFICACION = 25;
idx_ContratosClienteUSUARIO = 26;
idx_ContratosClienteRECARGO_EQUIVALENCIA = 27;
idx_ContratosClienteRE = 28;
idx_ContratosClienteIMPORTE_RE = 29;
idx_ContratosClienteID_TIPO_IVA = 30;
idx_ContratosClienteIVA = 31;
idx_ContratosClienteIMPORTE_IVA = 32;
idx_ContratosClienteIMPORTE_NETO = 33;
idx_ContratosClienteIMPORTE_PORTE = 34;
idx_ContratosClienteID_TIENDA = 35;
idx_ContratosClienteTIENDA = 36;
idx_ContratosClienteBASE_IMPONIBLE = 37;
idx_ContratosClienteDESCUENTO = 38;
idx_ContratosClienteIMPORTE_DESCUENTO = 39;
idx_ContratosClienteIMPORTE_TOTAL = 40;
idx_ContratosClienteID_FORMA_PAGO = 41;
idx_ContratosClienteID_VENDEDOR = 42;
idx_ContratosClienteVENDEDOR = 43;
idx_ContratosClientePERSONA_CONTACTO = 44;
idx_ContratosClienteTIPO_CONTRATO = 45;
idx_ContratosClienteREFERENCIA_CLIENTE = 46;
idx_ContratosClienteFACTURA_ASOCIADA = 47;
{ TiposCapitulos fields }
fld_TiposCapitulosID = 'ID';
@ -241,7 +243,7 @@ const
type
{ IValores }
IValores = interface(IDAStronglyTypedDataTable)
['{F9BF1948-763A-4CB4-9DF1-35E6C948DDB4}']
['{6E74F489-85F3-46DC-AC2E-4B4AE491D53B}']
{ Property getters and setters }
function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer);
@ -267,7 +269,7 @@ type
end;
{ TValoresDataTableRules }
TValoresDataTableRules = class(TDADataTableRules, IValores)
TValoresDataTableRules = class(TIntfObjectDADataTableRules, IValores)
private
protected
{ Property getters and setters }
@ -300,7 +302,7 @@ type
{ IPropiedades }
IPropiedades = interface(IDAStronglyTypedDataTable)
['{AC649959-C638-4C8A-8B1D-764BB1751371}']
['{2DB5F8D6-C637-46EE-AA32-88BEAA1E914B}']
{ Property getters and setters }
function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer);
@ -326,7 +328,7 @@ type
end;
{ TPropiedadesDataTableRules }
TPropiedadesDataTableRules = class(TDADataTableRules, IPropiedades)
TPropiedadesDataTableRules = class(TIntfObjectDADataTableRules, IPropiedades)
private
protected
{ Property getters and setters }
@ -359,7 +361,7 @@ type
{ IListaAnosContratos }
IListaAnosContratos = interface(IDAStronglyTypedDataTable)
['{A739B752-2CAA-42C8-A07D-BD0A28068E5E}']
['{7EF2538F-7F91-41F2-BBA5-8E90D546307F}']
{ Property getters and setters }
function GetANOValue: String;
procedure SetANOValue(const aValue: String);
@ -373,7 +375,7 @@ type
end;
{ TListaAnosContratosDataTableRules }
TListaAnosContratosDataTableRules = class(TDADataTableRules, IListaAnosContratos)
TListaAnosContratosDataTableRules = class(TIntfObjectDADataTableRules, IListaAnosContratos)
private
protected
{ Property getters and setters }
@ -394,7 +396,7 @@ type
{ IContratosClienteBeneficios }
IContratosClienteBeneficios = interface(IDAStronglyTypedDataTable)
['{E7667437-590B-4D1C-9762-7242E8107E1A}']
['{175DC6DA-9682-4343-A2AD-311257C2692A}']
{ Property getters and setters }
function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer);
@ -492,7 +494,7 @@ type
end;
{ TContratosClienteBeneficiosDataTableRules }
TContratosClienteBeneficiosDataTableRules = class(TDADataTableRules, IContratosClienteBeneficios)
TContratosClienteBeneficiosDataTableRules = class(TIntfObjectDADataTableRules, IContratosClienteBeneficios)
private
protected
{ Property getters and setters }
@ -597,7 +599,7 @@ type
{ IContratosCliente }
IContratosCliente = interface(IDAStronglyTypedDataTable)
['{A6237FAB-2A10-4BBF-B5A6-CF29A326D98F}']
['{EE4BBA7B-8F6D-4221-9573-423F0D44B0A1}']
{ Property getters and setters }
function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer);
@ -623,6 +625,10 @@ type
procedure SetNOMBRE_COMERCIAL_CLIENTEValue(const aValue: String);
function GetNOMBRE_COMERCIAL_CLIENTEIsNull: Boolean;
procedure SetNOMBRE_COMERCIAL_CLIENTEIsNull(const aValue: Boolean);
function GetPROCEDENCIA_CLIENTEValue: String;
procedure SetPROCEDENCIA_CLIENTEValue(const aValue: String);
function GetPROCEDENCIA_CLIENTEIsNull: Boolean;
procedure SetPROCEDENCIA_CLIENTEIsNull(const aValue: Boolean);
function GetNIF_CIFValue: String;
procedure SetNIF_CIFValue(const aValue: String);
function GetNIF_CIFIsNull: Boolean;
@ -798,6 +804,8 @@ type
property REF_CLIENTEIsNull: Boolean read GetREF_CLIENTEIsNull write SetREF_CLIENTEIsNull;
property NOMBRE_COMERCIAL_CLIENTE: String read GetNOMBRE_COMERCIAL_CLIENTEValue write SetNOMBRE_COMERCIAL_CLIENTEValue;
property NOMBRE_COMERCIAL_CLIENTEIsNull: Boolean read GetNOMBRE_COMERCIAL_CLIENTEIsNull write SetNOMBRE_COMERCIAL_CLIENTEIsNull;
property PROCEDENCIA_CLIENTE: String read GetPROCEDENCIA_CLIENTEValue write SetPROCEDENCIA_CLIENTEValue;
property PROCEDENCIA_CLIENTEIsNull: Boolean read GetPROCEDENCIA_CLIENTEIsNull write SetPROCEDENCIA_CLIENTEIsNull;
property NIF_CIF: String read GetNIF_CIFValue write SetNIF_CIFValue;
property NIF_CIFIsNull: Boolean read GetNIF_CIFIsNull write SetNIF_CIFIsNull;
property NOMBRE: String read GetNOMBREValue write SetNOMBREValue;
@ -883,7 +891,7 @@ type
end;
{ TContratosClienteDataTableRules }
TContratosClienteDataTableRules = class(TDADataTableRules, IContratosCliente)
TContratosClienteDataTableRules = class(TIntfObjectDADataTableRules, IContratosCliente)
private
f_FORMA_PAGO: IROStrings;
f_PLAZO_ENTREGA: IROStrings;
@ -919,6 +927,10 @@ type
procedure SetNOMBRE_COMERCIAL_CLIENTEValue(const aValue: String); virtual;
function GetNOMBRE_COMERCIAL_CLIENTEIsNull: Boolean; virtual;
procedure SetNOMBRE_COMERCIAL_CLIENTEIsNull(const aValue: Boolean); virtual;
function GetPROCEDENCIA_CLIENTEValue: String; virtual;
procedure SetPROCEDENCIA_CLIENTEValue(const aValue: String); virtual;
function GetPROCEDENCIA_CLIENTEIsNull: Boolean; virtual;
procedure SetPROCEDENCIA_CLIENTEIsNull(const aValue: Boolean); virtual;
function GetNIF_CIFValue: String; virtual;
procedure SetNIF_CIFValue(const aValue: String); virtual;
function GetNIF_CIFIsNull: Boolean; virtual;
@ -1093,6 +1105,8 @@ type
property REF_CLIENTEIsNull: Boolean read GetREF_CLIENTEIsNull write SetREF_CLIENTEIsNull;
property NOMBRE_COMERCIAL_CLIENTE: String read GetNOMBRE_COMERCIAL_CLIENTEValue write SetNOMBRE_COMERCIAL_CLIENTEValue;
property NOMBRE_COMERCIAL_CLIENTEIsNull: Boolean read GetNOMBRE_COMERCIAL_CLIENTEIsNull write SetNOMBRE_COMERCIAL_CLIENTEIsNull;
property PROCEDENCIA_CLIENTE: String read GetPROCEDENCIA_CLIENTEValue write SetPROCEDENCIA_CLIENTEValue;
property PROCEDENCIA_CLIENTEIsNull: Boolean read GetPROCEDENCIA_CLIENTEIsNull write SetPROCEDENCIA_CLIENTEIsNull;
property NIF_CIF: String read GetNIF_CIFValue write SetNIF_CIFValue;
property NIF_CIFIsNull: Boolean read GetNIF_CIFIsNull write SetNIF_CIFIsNull;
property NOMBRE: String read GetNOMBREValue write SetNOMBREValue;
@ -1187,7 +1201,7 @@ type
}
{ ITiposCapitulos }
ITiposCapitulos = interface(IDAStronglyTypedDataTable)
['{5AE90EC7-AD94-4636-A2B9-44465BB62E8D}']
['{2B50B74F-8959-47A2-BED3-7B4812D6187A}']
{ Property getters and setters }
function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer);
@ -1231,7 +1245,7 @@ type
end;
{ TTiposCapitulosDataTableRules }
TTiposCapitulosDataTableRules = class(TDADataTableRules, ITiposCapitulos)
TTiposCapitulosDataTableRules = class(TIntfObjectDADataTableRules, ITiposCapitulos)
private
protected
{ Property getters and setters }
@ -1282,7 +1296,7 @@ type
{ IContratosCliente_Detalles }
IContratosCliente_Detalles = interface(IDAStronglyTypedDataTable)
['{D463BB1A-F962-4B97-AE5E-FDBB7D58439E}']
['{7CDC601E-7E87-402A-8C14-0C92B0C123E9}']
{ Property getters and setters }
function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer);
@ -1392,7 +1406,7 @@ type
end;
{ TContratosCliente_DetallesDataTableRules }
TContratosCliente_DetallesDataTableRules = class(TDADataTableRules, IContratosCliente_Detalles)
TContratosCliente_DetallesDataTableRules = class(TIntfObjectDADataTableRules, IContratosCliente_Detalles)
private
protected
{ Property getters and setters }
@ -2196,6 +2210,27 @@ begin
DataTable.Fields[idx_ContratosClienteNOMBRE_COMERCIAL_CLIENTE].AsVariant := Null;
end;
function TContratosClienteDataTableRules.GetPROCEDENCIA_CLIENTEValue: String;
begin
result := DataTable.Fields[idx_ContratosClientePROCEDENCIA_CLIENTE].AsString;
end;
procedure TContratosClienteDataTableRules.SetPROCEDENCIA_CLIENTEValue(const aValue: String);
begin
DataTable.Fields[idx_ContratosClientePROCEDENCIA_CLIENTE].AsString := aValue;
end;
function TContratosClienteDataTableRules.GetPROCEDENCIA_CLIENTEIsNull: boolean;
begin
result := DataTable.Fields[idx_ContratosClientePROCEDENCIA_CLIENTE].IsNull;
end;
procedure TContratosClienteDataTableRules.SetPROCEDENCIA_CLIENTEIsNull(const aValue: Boolean);
begin
if aValue then
DataTable.Fields[idx_ContratosClientePROCEDENCIA_CLIENTE].AsVariant := Null;
end;
function TContratosClienteDataTableRules.GetNIF_CIFValue: String;
begin
result := DataTable.Fields[idx_ContratosClienteNIF_CIF].AsString;

71
Source/Modulos/Contratos de cliente/Model/schContratosClienteServer_Intf.pas
View File

@ -9,18 +9,18 @@ const
{ Delta rules ids
Feel free to change them to something more human readable
but make sure they are unique in the context of your application }
RID_ValoresDelta = '{6D64F831-7B58-4A9E-9180-0CE187DC1F33}';
RID_PropiedadesDelta = '{00F00B68-D182-4416-83C1-3850142A5B63}';
RID_ListaAnosContratosDelta = '{7E698FA6-63C1-49A6-BAF4-5958D8B922E1}';
RID_ContratosClienteBeneficiosDelta = '{ACA5ABBD-4284-4E2B-AE63-9F9DACC26E93}';
RID_ContratosClienteDelta = '{E74263B4-9F80-48FF-8228-19422AFDBA51}';
RID_TiposCapitulosDelta = '{82C3C976-5C8E-41F2-A0A9-B8028E119613}';
RID_ContratosCliente_DetallesDelta = '{55A68F42-1449-47F7-BCD9-E5613C7AED8B}';
RID_ValoresDelta = '{C3B5AAD1-9E86-48CC-BB2A-F57573EF5C77}';
RID_PropiedadesDelta = '{DD5F6AC0-3F77-4E30-A969-7914F1E20C35}';
RID_ListaAnosContratosDelta = '{A6AD38DE-D89D-4026-8EC6-4C6544AAFF71}';
RID_ContratosClienteBeneficiosDelta = '{636C6919-7CB6-4F1D-A7BB-8880E13A3B4A}';
RID_ContratosClienteDelta = '{5F703D9D-DB14-4081-A55C-18940FC569D1}';
RID_TiposCapitulosDelta = '{1F7BEA81-2AD5-42AB-9113-8AA803914CFE}';
RID_ContratosCliente_DetallesDelta = '{9DB335CB-ADD8-4604-8213-C5EDCFE7B5A9}';
type
{ IValoresDelta }
IValoresDelta = interface(IValores)
['{6D64F831-7B58-4A9E-9180-0CE187DC1F33}']
['{C3B5AAD1-9E86-48CC-BB2A-F57573EF5C77}']
{ Property getters and setters }
function GetOldIDValue : Integer;
function GetOldID_PROPIEDADValue : Integer;
@ -78,7 +78,7 @@ type
{ IPropiedadesDelta }
IPropiedadesDelta = interface(IPropiedades)
['{00F00B68-D182-4416-83C1-3850142A5B63}']
['{DD5F6AC0-3F77-4E30-A969-7914F1E20C35}']
{ Property getters and setters }
function GetOldIDValue : Integer;
function GetOldDESCRIPCIONValue : String;
@ -136,7 +136,7 @@ type
{ IListaAnosContratosDelta }
IListaAnosContratosDelta = interface(IListaAnosContratos)
['{7E698FA6-63C1-49A6-BAF4-5958D8B922E1}']
['{A6AD38DE-D89D-4026-8EC6-4C6544AAFF71}']
{ Property getters and setters }
function GetOldANOValue : String;
@ -170,7 +170,7 @@ type
{ IContratosClienteBeneficiosDelta }
IContratosClienteBeneficiosDelta = interface(IContratosClienteBeneficios)
['{ACA5ABBD-4284-4E2B-AE63-9F9DACC26E93}']
['{636C6919-7CB6-4F1D-A7BB-8880E13A3B4A}']
{ Property getters and setters }
function GetOldIDValue : Integer;
function GetOldREFERENCIAValue : String;
@ -372,7 +372,7 @@ type
{ IContratosClienteDelta }
IContratosClienteDelta = interface(IContratosCliente)
['{E74263B4-9F80-48FF-8228-19422AFDBA51}']
['{5F703D9D-DB14-4081-A55C-18940FC569D1}']
{ Property getters and setters }
function GetOldIDValue : Integer;
function GetOldID_EMPRESAValue : Integer;
@ -380,6 +380,7 @@ type
function GetOldNOMBRE_CLIENTEValue : String;
function GetOldREF_CLIENTEValue : String;
function GetOldNOMBRE_COMERCIAL_CLIENTEValue : String;
function GetOldPROCEDENCIA_CLIENTEValue : String;
function GetOldNIF_CIFValue : String;
function GetOldNOMBREValue : String;
function GetOldID_DIRECCIONValue : Integer;
@ -429,6 +430,7 @@ type
property OldNOMBRE_CLIENTE : String read GetOldNOMBRE_CLIENTEValue;
property OldREF_CLIENTE : String read GetOldREF_CLIENTEValue;
property OldNOMBRE_COMERCIAL_CLIENTE : String read GetOldNOMBRE_COMERCIAL_CLIENTEValue;
property OldPROCEDENCIA_CLIENTE : String read GetOldPROCEDENCIA_CLIENTEValue;
property OldNIF_CIF : String read GetOldNIF_CIFValue;
property OldNOMBRE : String read GetOldNOMBREValue;
property OldID_DIRECCION : Integer read GetOldID_DIRECCIONValue;
@ -521,6 +523,12 @@ type
function GetOldNOMBRE_COMERCIAL_CLIENTEIsNull: Boolean; virtual;
procedure SetNOMBRE_COMERCIAL_CLIENTEValue(const aValue: String); virtual;
procedure SetNOMBRE_COMERCIAL_CLIENTEIsNull(const aValue: Boolean); virtual;
function GetPROCEDENCIA_CLIENTEValue: String; virtual;
function GetPROCEDENCIA_CLIENTEIsNull: Boolean; virtual;
function GetOldPROCEDENCIA_CLIENTEValue: String; virtual;
function GetOldPROCEDENCIA_CLIENTEIsNull: Boolean; virtual;
procedure SetPROCEDENCIA_CLIENTEValue(const aValue: String); virtual;
procedure SetPROCEDENCIA_CLIENTEIsNull(const aValue: Boolean); virtual;
function GetNIF_CIFValue: String; virtual;
function GetNIF_CIFIsNull: Boolean; virtual;
function GetOldNIF_CIFValue: String; virtual;
@ -789,6 +797,10 @@ type
property NOMBRE_COMERCIAL_CLIENTEIsNull : Boolean read GetNOMBRE_COMERCIAL_CLIENTEIsNull write SetNOMBRE_COMERCIAL_CLIENTEIsNull;
property OldNOMBRE_COMERCIAL_CLIENTE : String read GetOldNOMBRE_COMERCIAL_CLIENTEValue;
property OldNOMBRE_COMERCIAL_CLIENTEIsNull : Boolean read GetOldNOMBRE_COMERCIAL_CLIENTEIsNull;
property PROCEDENCIA_CLIENTE : String read GetPROCEDENCIA_CLIENTEValue write SetPROCEDENCIA_CLIENTEValue;
property PROCEDENCIA_CLIENTEIsNull : Boolean read GetPROCEDENCIA_CLIENTEIsNull write SetPROCEDENCIA_CLIENTEIsNull;
property OldPROCEDENCIA_CLIENTE : String read GetOldPROCEDENCIA_CLIENTEValue;
property OldPROCEDENCIA_CLIENTEIsNull : Boolean read GetOldPROCEDENCIA_CLIENTEIsNull;
property NIF_CIF : String read GetNIF_CIFValue write SetNIF_CIFValue;
property NIF_CIFIsNull : Boolean read GetNIF_CIFIsNull write SetNIF_CIFIsNull;
property OldNIF_CIF : String read GetOldNIF_CIFValue;
@ -962,7 +974,7 @@ type
{ ITiposCapitulosDelta }
ITiposCapitulosDelta = interface(ITiposCapitulos)
['{82C3C976-5C8E-41F2-A0A9-B8028E119613}']
['{1F7BEA81-2AD5-42AB-9113-8AA803914CFE}']
{ Property getters and setters }
function GetOldIDValue : Integer;
function GetOldPOSICIONValue : Integer;
@ -1056,7 +1068,7 @@ type
{ IContratosCliente_DetallesDelta }
IContratosCliente_DetallesDelta = interface(IContratosCliente_Detalles)
['{55A68F42-1449-47F7-BCD9-E5613C7AED8B}']
['{9DB335CB-ADD8-4604-8213-C5EDCFE7B5A9}']
{ Property getters and setters }
function GetOldIDValue : Integer;
function GetOldID_CONTRATOValue : Integer;
@ -2250,6 +2262,37 @@ begin
BusinessProcessor.CurrentChange.NewValueByName[fld_ContratosClienteNOMBRE_COMERCIAL_CLIENTE] := Null;
end;
function TContratosClienteBusinessProcessorRules.GetPROCEDENCIA_CLIENTEValue: String;
begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_ContratosClientePROCEDENCIA_CLIENTE];
end;
function TContratosClienteBusinessProcessorRules.GetPROCEDENCIA_CLIENTEIsNull: Boolean;
begin
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_ContratosClientePROCEDENCIA_CLIENTE]);
end;
function TContratosClienteBusinessProcessorRules.GetOldPROCEDENCIA_CLIENTEValue: String;
begin
result := BusinessProcessor.CurrentChange.OldValueByName[fld_ContratosClientePROCEDENCIA_CLIENTE];
end;
function TContratosClienteBusinessProcessorRules.GetOldPROCEDENCIA_CLIENTEIsNull: Boolean;
begin
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_ContratosClientePROCEDENCIA_CLIENTE]);
end;
procedure TContratosClienteBusinessProcessorRules.SetPROCEDENCIA_CLIENTEValue(const aValue: String);
begin
BusinessProcessor.CurrentChange.NewValueByName[fld_ContratosClientePROCEDENCIA_CLIENTE] := aValue;
end;
procedure TContratosClienteBusinessProcessorRules.SetPROCEDENCIA_CLIENTEIsNull(const aValue: Boolean);
begin
if aValue then
BusinessProcessor.CurrentChange.NewValueByName[fld_ContratosClientePROCEDENCIA_CLIENTE] := Null;
end;
function TContratosClienteBusinessProcessorRules.GetNIF_CIFValue: String;
begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_ContratosClienteNIF_CIF];

9
Source/Modulos/Contratos de cliente/Servidor/srvContratosCliente_Impl.dfm
View File

@ -469,6 +469,10 @@ object srvContratosCliente: TsrvContratosCliente
item
DatasetField = 'FACTURA_ASOCIADA'
TableField = 'FACTURA_ASOCIADA'
end
item
DatasetField = 'PROCEDENCIA_CLIENTE'
TableField = 'PROCEDENCIA_CLIENTE'
end>
end>
Name = 'ContratosCliente'
@ -509,6 +513,11 @@ object srvContratosCliente: TsrvContratosCliente
Size = 255
DictionaryEntry = 'ContratosCliente_NOMBRE_COMERCIAL_CLIENTE'
end
item
Name = 'PROCEDENCIA_CLIENTE'
DataType = datString
Size = 255
end
item
Name = 'NIF_CIF'
DataType = datString

BIN
Source/Modulos/Contratos de cliente/Views/ContratosCliente_view.RES
View File

Binary file not shown.

14
Source/Modulos/Contratos de cliente/Views/uViewContratosCliente.dfm
View File

@ -96,6 +96,10 @@ inherited frViewContratosCliente: TfrViewContratosCliente
BestFitMaxWidth = 25
Width = 75
end
object cxGridViewPROCEDENCIA_CLIENTE: TcxGridDBColumn
Caption = 'Procedencia'
DataBinding.FieldName = 'PROCEDENCIA_CLIENTE'
end
object cxGridViewNOMBRE: TcxGridDBColumn
Caption = 'Nombre'
DataBinding.FieldName = 'NOMBRE'
@ -213,6 +217,11 @@ inherited frViewContratosCliente: TfrViewContratosCliente
object TBXItem3: TTBXItem
Action = actCliente
end
object TBXSeparatorItem1: TTBXSeparatorItem
end
object TBXItem2: TTBXItem
Action = actProcedencia
end
end
end
end
@ -238,6 +247,11 @@ inherited frViewContratosCliente: TfrViewContratosCliente
OnExecute = actClienteExecute
OnUpdate = actClienteUpdate
end
object actProcedencia: TAction
Caption = 'Procedencia'
OnExecute = actProcedenciaExecute
OnUpdate = actProcedenciaUpdate
end
end
inherited GridPNGImageList: TPngImageList
PngImages = <

26
Source/Modulos/Contratos de cliente/Views/uViewContratosCliente.pas
View File

@ -46,6 +46,10 @@ type
cxGridViewIVA: TcxGridDBColumn;
cxGridViewBASE_IMPONIBLE: TcxGridDBColumn;
cxGridViewNOMBRE_COMERCIAL_CLIENTE: TcxGridDBColumn;
cxGridViewPROCEDENCIA_CLIENTE: TcxGridDBColumn;
TBXSeparatorItem1: TTBXSeparatorItem;
TBXItem2: TTBXItem;
actProcedencia: TAction;
procedure cxGridActiveTabChanged(Sender: TcxCustomGrid; ALevel:
TcxGridLevel);
procedure cxGridViewStylesGetContentStyle(Sender: TcxCustomGridTableView;
@ -65,6 +69,8 @@ type
ADataController: TcxCustomDataController; ARecordIndex1, ARecordIndex2,
AItemIndex: Integer; const V1, V2: Variant; var Compare: Integer);
procedure frViewFiltroBase1actQuitarFiltroExecute(Sender: TObject);
procedure actProcedenciaExecute(Sender: TObject);
procedure actProcedenciaUpdate(Sender: TObject);
private
//Filtros relativos a la vista
@ -110,6 +116,26 @@ begin
(Sender as TAction).Checked := not (cxGridViewNOMBRE.GroupIndex < 0);
end;
procedure TfrViewContratosCliente.actProcedenciaExecute(Sender: TObject);
begin
if (cxGridViewPROCEDENCIA_CLIENTE.GroupIndex < 0) then
begin
cxGridViewPROCEDENCIA_CLIENTE.GroupIndex := cxGridView.GroupedColumnCount;
cxGridViewPROCEDENCIA_CLIENTE.Visible := False;
end
else
begin
cxGridViewPROCEDENCIA_CLIENTE.GroupIndex := -1;
cxGridViewPROCEDENCIA_CLIENTE.Visible := True;
end;
end;
procedure TfrViewContratosCliente.actProcedenciaUpdate(Sender: TObject);
begin
inherited;
(Sender as TAction).Checked := not (cxGridViewREFERENCIA_CLIENTE.GroupIndex < 0);
end;
procedure TfrViewContratosCliente.AnadirFiltroFechas;
var
Columna: TcxGridDBColumn;

5
Source/Modulos/Facturas de cliente/Data/uDataModuleFacturasCliente.dfm
View File

@ -164,6 +164,11 @@ inherited DataModuleFacturasCliente: TDataModuleFacturasCliente
ServerAutoRefresh = True
DictionaryEntry = 'FacturasCliente_NOMBRE_COMERCIAL_CLIENTE'
end
item
Name = 'PROCEDENCIA_CLIENTE'
DataType = datString
Size = 255
end
item
Name = 'NIF_CIF'
DataType = datString

111
Source/Modulos/Facturas de cliente/Model/schFacturasClienteClient_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_ListaAnosFacturas = '{7D65E46A-1501-412C-A702-00A1827BA01E}';
RID_FacturasCliente = '{7CBEA816-E87B-47DF-AF37-8A26F50A8F89}';
RID_FacturasCliente_Detalles = '{01274CC5-0F80-420B-9D15-D762FD8FAACA}';
RID_ListaAnosFacturas = '{B9CBCAB7-D06E-41B6-A2AF-5DE26CB818F4}';
RID_FacturasCliente = '{C3E309EB-4021-4446-81DD-452C015CA0FA}';
RID_FacturasCliente_Detalles = '{AF710A72-947F-483D-8DAD-66A9E58E0541}';
{ Data table names }
nme_ListaAnosFacturas = 'ListaAnosFacturas';
@ -46,6 +46,7 @@ const
fld_FacturasClienteREFERENCIA_CLIENTE = 'REFERENCIA_CLIENTE';
fld_FacturasClienteNOMBRE_CLIENTE = 'NOMBRE_CLIENTE';
fld_FacturasClienteNOMBRE_COMERCIAL_CLIENTE = 'NOMBRE_COMERCIAL_CLIENTE';
fld_FacturasClientePROCEDENCIA_CLIENTE = 'PROCEDENCIA_CLIENTE';
fld_FacturasClienteNIF_CIF = 'NIF_CIF';
fld_FacturasClienteNOMBRE = 'NOMBRE';
fld_FacturasClienteID_DIRECCION = 'ID_DIRECCION';
@ -101,38 +102,39 @@ const
idx_FacturasClienteREFERENCIA_CLIENTE = 18;
idx_FacturasClienteNOMBRE_CLIENTE = 19;
idx_FacturasClienteNOMBRE_COMERCIAL_CLIENTE = 20;
idx_FacturasClienteNIF_CIF = 21;
idx_FacturasClienteNOMBRE = 22;
idx_FacturasClienteID_DIRECCION = 23;
idx_FacturasClienteCALLE = 24;
idx_FacturasClientePOBLACION = 25;
idx_FacturasClientePROVINCIA = 26;
idx_FacturasClienteCODIGO_POSTAL = 27;
idx_FacturasClienteFECHA_ALTA = 28;
idx_FacturasClienteFECHA_MODIFICACION = 29;
idx_FacturasClienteUSUARIO = 30;
idx_FacturasClienteID_FORMA_PAGO = 31;
idx_FacturasClienteRECARGO_EQUIVALENCIA = 32;
idx_FacturasClienteID_TIPO_IVA = 33;
idx_FacturasClienteIMPORTE_NETO = 34;
idx_FacturasClienteIMPORTE_PORTE = 35;
idx_FacturasClienteID_AGENTE = 36;
idx_FacturasClienteREFERENCIA_COMISION = 37;
idx_FacturasClienteIGNORAR_CONTABILIDAD = 38;
idx_FacturasClienteID_TIENDA = 39;
idx_FacturasClienteTIENDA = 40;
idx_FacturasClienteID_SUBCUENTA = 41;
idx_FacturasClienteSUBCUENTA = 42;
idx_FacturasClienteID_EJERCICIO = 43;
idx_FacturasClienteESTADO_EJERCICIO = 44;
idx_FacturasClienteASIENTO_PUNTEADO = 45;
idx_FacturasClienteID_CONTRATO = 46;
idx_FacturasClienteREF_CONTRATO = 47;
idx_FacturasClienteREF_CLI_CONTRATO = 48;
idx_FacturasClienteSIN_COMISION = 49;
idx_FacturasClienteRETENCION = 50;
idx_FacturasClienteIMPORTE_RETENCION = 51;
idx_FacturasClienteFECHA_RETENCION = 52;
idx_FacturasClientePROCEDENCIA_CLIENTE = 21;
idx_FacturasClienteNIF_CIF = 22;
idx_FacturasClienteNOMBRE = 23;
idx_FacturasClienteID_DIRECCION = 24;
idx_FacturasClienteCALLE = 25;
idx_FacturasClientePOBLACION = 26;
idx_FacturasClientePROVINCIA = 27;
idx_FacturasClienteCODIGO_POSTAL = 28;
idx_FacturasClienteFECHA_ALTA = 29;
idx_FacturasClienteFECHA_MODIFICACION = 30;
idx_FacturasClienteUSUARIO = 31;
idx_FacturasClienteID_FORMA_PAGO = 32;
idx_FacturasClienteRECARGO_EQUIVALENCIA = 33;
idx_FacturasClienteID_TIPO_IVA = 34;
idx_FacturasClienteIMPORTE_NETO = 35;
idx_FacturasClienteIMPORTE_PORTE = 36;
idx_FacturasClienteID_AGENTE = 37;
idx_FacturasClienteREFERENCIA_COMISION = 38;
idx_FacturasClienteIGNORAR_CONTABILIDAD = 39;
idx_FacturasClienteID_TIENDA = 40;
idx_FacturasClienteTIENDA = 41;
idx_FacturasClienteID_SUBCUENTA = 42;
idx_FacturasClienteSUBCUENTA = 43;
idx_FacturasClienteID_EJERCICIO = 44;
idx_FacturasClienteESTADO_EJERCICIO = 45;
idx_FacturasClienteASIENTO_PUNTEADO = 46;
idx_FacturasClienteID_CONTRATO = 47;
idx_FacturasClienteREF_CONTRATO = 48;
idx_FacturasClienteREF_CLI_CONTRATO = 49;
idx_FacturasClienteSIN_COMISION = 50;
idx_FacturasClienteRETENCION = 51;
idx_FacturasClienteIMPORTE_RETENCION = 52;
idx_FacturasClienteFECHA_RETENCION = 53;
{ FacturasCliente_Detalles fields }
fld_FacturasCliente_DetallesID = 'ID';
@ -171,7 +173,7 @@ const
type
{ IListaAnosFacturas }
IListaAnosFacturas = interface(IDAStronglyTypedDataTable)
['{C550D0F5-A742-4987-B656-2D1B8536B137}']
['{BFABF626-A281-4D4E-B44B-7B40EADA006D}']
{ Property getters and setters }
function GetANOValue: String;
procedure SetANOValue(const aValue: String);
@ -206,7 +208,7 @@ type
{ IFacturasCliente }
IFacturasCliente = interface(IDAStronglyTypedDataTable)
['{5952F24E-C317-4659-B13F-23500E1555FF}']
['{9539259F-170A-4008-BB16-3F91D42113EB}']
{ Property getters and setters }
function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer);
@ -291,6 +293,10 @@ type
procedure SetNOMBRE_COMERCIAL_CLIENTEValue(const aValue: String);
function GetNOMBRE_COMERCIAL_CLIENTEIsNull: Boolean;
procedure SetNOMBRE_COMERCIAL_CLIENTEIsNull(const aValue: Boolean);
function GetPROCEDENCIA_CLIENTEValue: String;
procedure SetPROCEDENCIA_CLIENTEValue(const aValue: String);
function GetPROCEDENCIA_CLIENTEIsNull: Boolean;
procedure SetPROCEDENCIA_CLIENTEIsNull(const aValue: Boolean);
function GetNIF_CIFValue: String;
procedure SetNIF_CIFValue(const aValue: String);
function GetNIF_CIFIsNull: Boolean;
@ -464,6 +470,8 @@ type
property NOMBRE_CLIENTEIsNull: Boolean read GetNOMBRE_CLIENTEIsNull write SetNOMBRE_CLIENTEIsNull;
property NOMBRE_COMERCIAL_CLIENTE: String read GetNOMBRE_COMERCIAL_CLIENTEValue write SetNOMBRE_COMERCIAL_CLIENTEValue;
property NOMBRE_COMERCIAL_CLIENTEIsNull: Boolean read GetNOMBRE_COMERCIAL_CLIENTEIsNull write SetNOMBRE_COMERCIAL_CLIENTEIsNull;
property PROCEDENCIA_CLIENTE: String read GetPROCEDENCIA_CLIENTEValue write SetPROCEDENCIA_CLIENTEValue;
property PROCEDENCIA_CLIENTEIsNull: Boolean read GetPROCEDENCIA_CLIENTEIsNull write SetPROCEDENCIA_CLIENTEIsNull;
property NIF_CIF: String read GetNIF_CIFValue write SetNIF_CIFValue;
property NIF_CIFIsNull: Boolean read GetNIF_CIFIsNull write SetNIF_CIFIsNull;
property NOMBRE: String read GetNOMBREValue write SetNOMBREValue;
@ -620,6 +628,10 @@ type
procedure SetNOMBRE_COMERCIAL_CLIENTEValue(const aValue: String); virtual;
function GetNOMBRE_COMERCIAL_CLIENTEIsNull: Boolean; virtual;
procedure SetNOMBRE_COMERCIAL_CLIENTEIsNull(const aValue: Boolean); virtual;
function GetPROCEDENCIA_CLIENTEValue: String; virtual;
procedure SetPROCEDENCIA_CLIENTEValue(const aValue: String); virtual;
function GetPROCEDENCIA_CLIENTEIsNull: Boolean; virtual;
procedure SetPROCEDENCIA_CLIENTEIsNull(const aValue: Boolean); virtual;
function GetNIF_CIFValue: String; virtual;
procedure SetNIF_CIFValue(const aValue: String); virtual;
function GetNIF_CIFIsNull: Boolean; virtual;
@ -792,6 +804,8 @@ type
property NOMBRE_CLIENTEIsNull: Boolean read GetNOMBRE_CLIENTEIsNull write SetNOMBRE_CLIENTEIsNull;
property NOMBRE_COMERCIAL_CLIENTE: String read GetNOMBRE_COMERCIAL_CLIENTEValue write SetNOMBRE_COMERCIAL_CLIENTEValue;
property NOMBRE_COMERCIAL_CLIENTEIsNull: Boolean read GetNOMBRE_COMERCIAL_CLIENTEIsNull write SetNOMBRE_COMERCIAL_CLIENTEIsNull;
property PROCEDENCIA_CLIENTE: String read GetPROCEDENCIA_CLIENTEValue write SetPROCEDENCIA_CLIENTEValue;
property PROCEDENCIA_CLIENTEIsNull: Boolean read GetPROCEDENCIA_CLIENTEIsNull write SetPROCEDENCIA_CLIENTEIsNull;
property NIF_CIF: String read GetNIF_CIFValue write SetNIF_CIFValue;
property NIF_CIFIsNull: Boolean read GetNIF_CIFIsNull write SetNIF_CIFIsNull;
property NOMBRE: String read GetNOMBREValue write SetNOMBREValue;
@ -865,7 +879,7 @@ type
{ IFacturasCliente_Detalles }
IFacturasCliente_Detalles = interface(IDAStronglyTypedDataTable)
['{75045275-7B22-4D9A-A1BF-D5169B86855C}']
['{FE6D0998-F3A0-4271-9C1D-1840F9E1F578}']
{ Property getters and setters }
function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer);
@ -1562,6 +1576,27 @@ begin
DataTable.Fields[idx_FacturasClienteNOMBRE_COMERCIAL_CLIENTE].AsVariant := Null;
end;
function TFacturasClienteDataTableRules.GetPROCEDENCIA_CLIENTEValue: String;
begin
result := DataTable.Fields[idx_FacturasClientePROCEDENCIA_CLIENTE].AsString;
end;
procedure TFacturasClienteDataTableRules.SetPROCEDENCIA_CLIENTEValue(const aValue: String);
begin
DataTable.Fields[idx_FacturasClientePROCEDENCIA_CLIENTE].AsString := aValue;
end;
function TFacturasClienteDataTableRules.GetPROCEDENCIA_CLIENTEIsNull: boolean;
begin
result := DataTable.Fields[idx_FacturasClientePROCEDENCIA_CLIENTE].IsNull;
end;
procedure TFacturasClienteDataTableRules.SetPROCEDENCIA_CLIENTEIsNull(const aValue: Boolean);
begin
if aValue then
DataTable.Fields[idx_FacturasClientePROCEDENCIA_CLIENTE].AsVariant := Null;
end;
function TFacturasClienteDataTableRules.GetNIF_CIFValue: String;
begin
result := DataTable.Fields[idx_FacturasClienteNIF_CIF].AsString;

55
Source/Modulos/Facturas de cliente/Model/schFacturasClienteServer_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_ListaAnosFacturasDelta = '{491A2F25-2666-44F0-9840-E59A6F5FE91C}';
RID_FacturasClienteDelta = '{E71F6BB9-24D4-45DC-872F-63B1B6081CEA}';
RID_FacturasCliente_DetallesDelta = '{1AA87512-9077-40A2-80E2-62DEBD690640}';
RID_ListaAnosFacturasDelta = '{488EEBD9-F334-4412-B42F-CD53EDADEFF2}';
RID_FacturasClienteDelta = '{75964CD6-B60B-485C-BEA0-AF384F111E00}';
RID_FacturasCliente_DetallesDelta = '{D8C6075B-EF61-4846-9BC6-F4CD5D416FBD}';
type
{ IListaAnosFacturasDelta }
IListaAnosFacturasDelta = interface(IListaAnosFacturas)
['{491A2F25-2666-44F0-9840-E59A6F5FE91C}']
['{488EEBD9-F334-4412-B42F-CD53EDADEFF2}']
{ Property getters and setters }
function GetOldANOValue : String;
@ -50,7 +50,7 @@ type
{ IFacturasClienteDelta }
IFacturasClienteDelta = interface(IFacturasCliente)
['{E71F6BB9-24D4-45DC-872F-63B1B6081CEA}']
['{75964CD6-B60B-485C-BEA0-AF384F111E00}']
{ Property getters and setters }
function GetOldIDValue : Integer;
function GetOldID_EMPRESAValue : Integer;
@ -73,6 +73,7 @@ type
function GetOldREFERENCIA_CLIENTEValue : String;
function GetOldNOMBRE_CLIENTEValue : String;
function GetOldNOMBRE_COMERCIAL_CLIENTEValue : String;
function GetOldPROCEDENCIA_CLIENTEValue : String;
function GetOldNIF_CIFValue : String;
function GetOldNOMBREValue : String;
function GetOldID_DIRECCIONValue : Integer;
@ -128,6 +129,7 @@ type
property OldREFERENCIA_CLIENTE : String read GetOldREFERENCIA_CLIENTEValue;
property OldNOMBRE_CLIENTE : String read GetOldNOMBRE_CLIENTEValue;
property OldNOMBRE_COMERCIAL_CLIENTE : String read GetOldNOMBRE_COMERCIAL_CLIENTEValue;
property OldPROCEDENCIA_CLIENTE : String read GetOldPROCEDENCIA_CLIENTEValue;
property OldNIF_CIF : String read GetOldNIF_CIFValue;
property OldNOMBRE : String read GetOldNOMBREValue;
property OldID_DIRECCION : Integer read GetOldID_DIRECCIONValue;
@ -294,6 +296,12 @@ type
function GetOldNOMBRE_COMERCIAL_CLIENTEIsNull: Boolean; virtual;
procedure SetNOMBRE_COMERCIAL_CLIENTEValue(const aValue: String); virtual;
procedure SetNOMBRE_COMERCIAL_CLIENTEIsNull(const aValue: Boolean); virtual;
function GetPROCEDENCIA_CLIENTEValue: String; virtual;
function GetPROCEDENCIA_CLIENTEIsNull: Boolean; virtual;
function GetOldPROCEDENCIA_CLIENTEValue: String; virtual;
function GetOldPROCEDENCIA_CLIENTEIsNull: Boolean; virtual;
procedure SetPROCEDENCIA_CLIENTEValue(const aValue: String); virtual;
procedure SetPROCEDENCIA_CLIENTEIsNull(const aValue: Boolean); virtual;
function GetNIF_CIFValue: String; virtual;
function GetNIF_CIFIsNull: Boolean; virtual;
function GetOldNIF_CIFValue: String; virtual;
@ -572,6 +580,10 @@ type
property NOMBRE_COMERCIAL_CLIENTEIsNull : Boolean read GetNOMBRE_COMERCIAL_CLIENTEIsNull write SetNOMBRE_COMERCIAL_CLIENTEIsNull;
property OldNOMBRE_COMERCIAL_CLIENTE : String read GetOldNOMBRE_COMERCIAL_CLIENTEValue;
property OldNOMBRE_COMERCIAL_CLIENTEIsNull : Boolean read GetOldNOMBRE_COMERCIAL_CLIENTEIsNull;
property PROCEDENCIA_CLIENTE : String read GetPROCEDENCIA_CLIENTEValue write SetPROCEDENCIA_CLIENTEValue;
property PROCEDENCIA_CLIENTEIsNull : Boolean read GetPROCEDENCIA_CLIENTEIsNull write SetPROCEDENCIA_CLIENTEIsNull;
property OldPROCEDENCIA_CLIENTE : String read GetOldPROCEDENCIA_CLIENTEValue;
property OldPROCEDENCIA_CLIENTEIsNull : Boolean read GetOldPROCEDENCIA_CLIENTEIsNull;
property NIF_CIF : String read GetNIF_CIFValue write SetNIF_CIFValue;
property NIF_CIFIsNull : Boolean read GetNIF_CIFIsNull write SetNIF_CIFIsNull;
property OldNIF_CIF : String read GetOldNIF_CIFValue;
@ -709,7 +721,7 @@ type
{ IFacturasCliente_DetallesDelta }
IFacturasCliente_DetallesDelta = interface(IFacturasCliente_Detalles)
['{1AA87512-9077-40A2-80E2-62DEBD690640}']
['{D8C6075B-EF61-4846-9BC6-F4CD5D416FBD}']
{ Property getters and setters }
function GetOldIDValue : Integer;
function GetOldID_FACTURAValue : Integer;
@ -1627,6 +1639,37 @@ begin
BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasClienteNOMBRE_COMERCIAL_CLIENTE] := Null;
end;
function TFacturasClienteBusinessProcessorRules.GetPROCEDENCIA_CLIENTEValue: String;
begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasClientePROCEDENCIA_CLIENTE];
end;
function TFacturasClienteBusinessProcessorRules.GetPROCEDENCIA_CLIENTEIsNull: Boolean;
begin
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasClientePROCEDENCIA_CLIENTE]);
end;
function TFacturasClienteBusinessProcessorRules.GetOldPROCEDENCIA_CLIENTEValue: String;
begin
result := BusinessProcessor.CurrentChange.OldValueByName[fld_FacturasClientePROCEDENCIA_CLIENTE];
end;
function TFacturasClienteBusinessProcessorRules.GetOldPROCEDENCIA_CLIENTEIsNull: Boolean;
begin
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_FacturasClientePROCEDENCIA_CLIENTE]);
end;
procedure TFacturasClienteBusinessProcessorRules.SetPROCEDENCIA_CLIENTEValue(const aValue: String);
begin
BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasClientePROCEDENCIA_CLIENTE] := aValue;
end;
procedure TFacturasClienteBusinessProcessorRules.SetPROCEDENCIA_CLIENTEIsNull(const aValue: Boolean);
begin
if aValue then
BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasClientePROCEDENCIA_CLIENTE] := Null;
end;
function TFacturasClienteBusinessProcessorRules.GetNIF_CIFValue: String;
begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasClienteNIF_CIF];

9
Source/Modulos/Facturas de cliente/Servidor/srvFacturasCliente_Impl.dfm
View File

@ -259,6 +259,10 @@ object srvFacturasCliente: TsrvFacturasCliente
item
DatasetField = 'FECHA_RETENCION'
TableField = 'FECHA_RETENCION'
end
item
DatasetField = 'PROCEDENCIA_CLIENTE'
TableField = 'PROCEDENCIA_CLIENTE'
end>
end>
Name = 'FacturasCliente'
@ -378,6 +382,11 @@ object srvFacturasCliente: TsrvFacturasCliente
ServerAutoRefresh = True
DictionaryEntry = 'FacturasCliente_NOMBRE_COMERCIAL_CLIENTE'
end
item
Name = 'PROCEDENCIA_CLIENTE'
DataType = datString
Size = 255
end
item
Name = 'NIF_CIF'
DataType = datString

14
Source/Modulos/Facturas de cliente/Views/uViewFacturasCliente.dfm
View File

@ -68,6 +68,10 @@ inherited frViewFacturasCliente: TfrViewFacturasCliente
DataBinding.FieldName = 'NIF_CIF'
Visible = False
end
object cxGridViewPROCEDENCIA_CLIENTE: TcxGridDBColumn
Caption = 'Procedencia'
DataBinding.FieldName = 'PROCEDENCIA_CLIENTE'
end
object cxGridViewNOMBRE: TcxGridDBColumn
Caption = 'Raz'#243'n social'
DataBinding.FieldName = 'NOMBRE'
@ -249,6 +253,11 @@ inherited frViewFacturasCliente: TfrViewFacturasCliente
object TBXItem2: TTBXItem
Action = actProvincia
end
object TBXSeparatorItem3: TTBXSeparatorItem
end
object TBXItem4: TTBXItem
Action = actProcedencia
end
end
end
end
@ -269,6 +278,11 @@ inherited frViewFacturasCliente: TfrViewFacturasCliente
OnExecute = actProvinciaExecute
OnUpdate = actProvinciaUpdate
end
object actProcedencia: TAction
Caption = 'Procedencia'
OnExecute = actProcedenciaExecute
OnUpdate = actProcedenciaUpdate
end
end
inherited GridPNGImageList: TPngImageList
PngImages = <

26
Source/Modulos/Facturas de cliente/Views/uViewFacturasCliente.pas
View File

@ -64,6 +64,10 @@ type
cxGridViewFECHA_VENCIMIENTO: TcxGridDBColumn;
cxGridViewREF_CLI_CONTRATO: TcxGridDBColumn;
cxGridViewIMPORTE_RETENIDO: TcxGridDBColumn;
cxGridViewPROCEDENCIA_CLIENTE: TcxGridDBColumn;
actProcedencia: TAction;
TBXSeparatorItem3: TTBXSeparatorItem;
TBXItem4: TTBXItem;
procedure cxGridViewStylesGetContentStyle(Sender: TcxCustomGridTableView;
ARecord: TcxCustomGridRecord; AItem: TcxCustomGridTableItem;
out AStyle: TcxStyle);
@ -72,6 +76,8 @@ type
procedure actProvinciaExecute(Sender: TObject);
procedure actProvinciaUpdate(Sender: TObject);
procedure actClienteUpdate(Sender: TObject);
procedure actProcedenciaExecute(Sender: TObject);
procedure actProcedenciaUpdate(Sender: TObject);
private
//Filtros relativos a la vista
@ -118,6 +124,26 @@ begin
(Sender as TAction).Checked := not (cxGridViewNOMBRE.GroupIndex < 0);
end;
procedure TfrViewFacturasCliente.actProcedenciaExecute(Sender: TObject);
begin
if (cxGridViewPROCEDENCIA_CLIENTE.GroupIndex < 0) then
begin
cxGridViewPROCEDENCIA_CLIENTE.GroupIndex := cxGridView.GroupedColumnCount;
cxGridViewPROCEDENCIA_CLIENTE.Visible := False;
end
else
begin
cxGridViewPROCEDENCIA_CLIENTE.GroupIndex := -1;
cxGridViewPROCEDENCIA_CLIENTE.Visible := True;
end;
end;
procedure TfrViewFacturasCliente.actProcedenciaUpdate(Sender: TObject);
begin
inherited;
(Sender as TAction).Checked := not (cxGridViewPROCEDENCIA_CLIENTE.GroupIndex < 0);
end;
procedure TfrViewFacturasCliente.actProvinciaExecute(Sender: TObject);
begin
if (cxGridViewPROVINCIA.GroupIndex < 0) then

5
Source/Modulos/Presupuestos de cliente/Data/uDataModulePresupuestosCliente.dfm
View File

@ -105,6 +105,11 @@ inherited DataModulePresupuestosCliente: TDataModulePresupuestosCliente
DataType = datString
Size = 255
end
item
Name = 'PROCEDENCIA_CLIENTE'
DataType = datString
Size = 255
end
item
Name = 'PERSONA_CONTACTO'
DataType = datString

119
Source/Modulos/Presupuestos de cliente/Model/schPresupuestosClienteClient_Intf.pas
View File

@ -9,12 +9,12 @@ const
{ Data table rules ids
Feel free to change them to something more human readable
but make sure they are unique in the context of your application }
RID_Valores = '{A5458B62-066F-4E1D-BD46-485BD2F56B42}';
RID_Propiedades = '{D524BE56-1004-41BB-BD04-5CF981EC5029}';
RID_ListaAnosPresupuestos = '{BC6293D8-84F1-413E-9723-49BEF6862023}';
RID_PresupuestosCliente = '{6738C9B3-0BA6-4368-AAF4-C7D8969E6641}';
RID_CapitulosPresupuesto = '{171AFE2B-90DF-4D2C-876F-7D95CB7837A4}';
RID_PresupuestosCliente_Detalles = '{3942E16E-4EDC-4292-94DA-DF8391A78D86}';
RID_Valores = '{0834AA93-E35A-49DC-AF94-E773B6A9CA62}';
RID_Propiedades = '{17AE7480-03AB-4A41-8EF3-E69A56680E19}';
RID_ListaAnosPresupuestos = '{70FAE6E3-983F-4DE6-B1E1-413CF42FDF31}';
RID_PresupuestosCliente = '{1A1E5F0C-CE49-4D41-A724-1983AB59CBDC}';
RID_CapitulosPresupuesto = '{6661C54C-E40A-4951-B048-96586EE3AA6B}';
RID_PresupuestosCliente_Detalles = '{97D6EAE0-93C9-4BF4-8E35-B51AB572428B}';
{ Data table names }
nme_Valores = 'Valores';
@ -68,6 +68,7 @@ const
fld_PresupuestosClienteNIF_CIF = 'NIF_CIF';
fld_PresupuestosClienteNOMBRE = 'NOMBRE';
fld_PresupuestosClienteNOMBRE_COMERCIAL_CLIENTE = 'NOMBRE_COMERCIAL_CLIENTE';
fld_PresupuestosClientePROCEDENCIA_CLIENTE = 'PROCEDENCIA_CLIENTE';
fld_PresupuestosClientePERSONA_CONTACTO = 'PERSONA_CONTACTO';
fld_PresupuestosClienteFORMA_PAGO = 'FORMA_PAGO';
fld_PresupuestosClientePLAZO_ENTREGA = 'PLAZO_ENTREGA';
@ -113,36 +114,37 @@ const
idx_PresupuestosClienteNIF_CIF = 10;
idx_PresupuestosClienteNOMBRE = 11;
idx_PresupuestosClienteNOMBRE_COMERCIAL_CLIENTE = 12;
idx_PresupuestosClientePERSONA_CONTACTO = 13;
idx_PresupuestosClienteFORMA_PAGO = 14;
idx_PresupuestosClientePLAZO_ENTREGA = 15;
idx_PresupuestosClienteOBSERVACIONES = 16;
idx_PresupuestosClienteINCIDENCIAS = 17;
idx_PresupuestosClienteINCIDENCIAS_ACTIVAS = 18;
idx_PresupuestosClienteFECHA_ALTA = 19;
idx_PresupuestosClienteFECHA_MODIFICACION = 20;
idx_PresupuestosClienteUSUARIO = 21;
idx_PresupuestosClienteIMPORTE_NETO = 22;
idx_PresupuestosClienteIMPORTE_PORTE = 23;
idx_PresupuestosClienteDESCUENTO = 24;
idx_PresupuestosClienteIMPORTE_DESCUENTO = 25;
idx_PresupuestosClienteBASE_IMPONIBLE = 26;
idx_PresupuestosClienteID_TIPO_IVA = 27;
idx_PresupuestosClienteIVA = 28;
idx_PresupuestosClienteIMPORTE_IVA = 29;
idx_PresupuestosClienteRE = 30;
idx_PresupuestosClienteIMPORTE_RE = 31;
idx_PresupuestosClienteRECARGO_EQUIVALENCIA = 32;
idx_PresupuestosClienteIMPORTE_TOTAL = 33;
idx_PresupuestosClienteID_FORMA_PAGO = 34;
idx_PresupuestosClienteID_TIENDA = 35;
idx_PresupuestosClienteTIENDA = 36;
idx_PresupuestosClienteID_VENDEDOR = 37;
idx_PresupuestosClienteVENDEDOR = 38;
idx_PresupuestosClienteID_CONTRATO = 39;
idx_PresupuestosClienteREF_CONTRATO = 40;
idx_PresupuestosClienteNO_VALORADO = 41;
idx_PresupuestosClienteTIPO_PRESUPUESTO = 42;
idx_PresupuestosClientePROCEDENCIA_CLIENTE = 13;
idx_PresupuestosClientePERSONA_CONTACTO = 14;
idx_PresupuestosClienteFORMA_PAGO = 15;
idx_PresupuestosClientePLAZO_ENTREGA = 16;
idx_PresupuestosClienteOBSERVACIONES = 17;
idx_PresupuestosClienteINCIDENCIAS = 18;
idx_PresupuestosClienteINCIDENCIAS_ACTIVAS = 19;
idx_PresupuestosClienteFECHA_ALTA = 20;
idx_PresupuestosClienteFECHA_MODIFICACION = 21;
idx_PresupuestosClienteUSUARIO = 22;
idx_PresupuestosClienteIMPORTE_NETO = 23;
idx_PresupuestosClienteIMPORTE_PORTE = 24;
idx_PresupuestosClienteDESCUENTO = 25;
idx_PresupuestosClienteIMPORTE_DESCUENTO = 26;
idx_PresupuestosClienteBASE_IMPONIBLE = 27;
idx_PresupuestosClienteID_TIPO_IVA = 28;
idx_PresupuestosClienteIVA = 29;
idx_PresupuestosClienteIMPORTE_IVA = 30;
idx_PresupuestosClienteRE = 31;
idx_PresupuestosClienteIMPORTE_RE = 32;
idx_PresupuestosClienteRECARGO_EQUIVALENCIA = 33;
idx_PresupuestosClienteIMPORTE_TOTAL = 34;
idx_PresupuestosClienteID_FORMA_PAGO = 35;
idx_PresupuestosClienteID_TIENDA = 36;
idx_PresupuestosClienteTIENDA = 37;
idx_PresupuestosClienteID_VENDEDOR = 38;
idx_PresupuestosClienteVENDEDOR = 39;
idx_PresupuestosClienteID_CONTRATO = 40;
idx_PresupuestosClienteREF_CONTRATO = 41;
idx_PresupuestosClienteNO_VALORADO = 42;
idx_PresupuestosClienteTIPO_PRESUPUESTO = 43;
{ CapitulosPresupuesto fields }
fld_CapitulosPresupuestoID = 'ID';
@ -213,7 +215,7 @@ const
type
{ IValores }
IValores = interface(IDAStronglyTypedDataTable)
['{82BB1B56-C980-46F2-83B4-E19163603D0E}']
['{D282ECEC-B93F-4EA3-ABFA-A965C3757F91}']
{ Property getters and setters }
function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer);
@ -308,7 +310,7 @@ type
{ IPropiedades }
IPropiedades = interface(IDAStronglyTypedDataTable)
['{A2B5287A-DDBA-4FE4-A590-0EF30C217613}']
['{E198EC3C-9CF6-49F8-B5C3-249BE63015FA}']
{ Property getters and setters }
function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer);
@ -355,7 +357,7 @@ type
{ IListaAnosPresupuestos }
IListaAnosPresupuestos = interface(IDAStronglyTypedDataTable)
['{0F73757A-1F3C-4249-8624-047E665CC979}']
['{622A6F88-A7CA-4CEA-BAFD-E442F4381D6B}']
{ Property getters and setters }
function GetANOValue: String;
procedure SetANOValue(const aValue: String);
@ -390,7 +392,7 @@ type
{ IPresupuestosCliente }
IPresupuestosCliente = interface(IDAStronglyTypedDataTable)
['{FB47C1AF-80A4-45E1-B9EF-C1A9C6200DD4}']
['{5453A9D9-9D4E-45A0-B568-6230714F144E}']
{ Property getters and setters }
function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer);
@ -444,6 +446,10 @@ type
procedure SetNOMBRE_COMERCIAL_CLIENTEValue(const aValue: String);
function GetNOMBRE_COMERCIAL_CLIENTEIsNull: Boolean;
procedure SetNOMBRE_COMERCIAL_CLIENTEIsNull(const aValue: Boolean);
function GetPROCEDENCIA_CLIENTEValue: String;
procedure SetPROCEDENCIA_CLIENTEValue(const aValue: String);
function GetPROCEDENCIA_CLIENTEIsNull: Boolean;
procedure SetPROCEDENCIA_CLIENTEIsNull(const aValue: Boolean);
function GetPERSONA_CONTACTOValue: String;
procedure SetPERSONA_CONTACTOValue(const aValue: String);
function GetPERSONA_CONTACTOIsNull: Boolean;
@ -589,6 +595,8 @@ type
property NOMBREIsNull: Boolean read GetNOMBREIsNull write SetNOMBREIsNull;
property NOMBRE_COMERCIAL_CLIENTE: String read GetNOMBRE_COMERCIAL_CLIENTEValue write SetNOMBRE_COMERCIAL_CLIENTEValue;
property NOMBRE_COMERCIAL_CLIENTEIsNull: Boolean read GetNOMBRE_COMERCIAL_CLIENTEIsNull write SetNOMBRE_COMERCIAL_CLIENTEIsNull;
property PROCEDENCIA_CLIENTE: String read GetPROCEDENCIA_CLIENTEValue write SetPROCEDENCIA_CLIENTEValue;
property PROCEDENCIA_CLIENTEIsNull: Boolean read GetPROCEDENCIA_CLIENTEIsNull write SetPROCEDENCIA_CLIENTEIsNull;
property PERSONA_CONTACTO: String read GetPERSONA_CONTACTOValue write SetPERSONA_CONTACTOValue;
property PERSONA_CONTACTOIsNull: Boolean read GetPERSONA_CONTACTOIsNull write SetPERSONA_CONTACTOIsNull;
property FORMA_PAGO: IROStrings read GetFORMA_PAGOValue;
@ -716,6 +724,10 @@ type
procedure SetNOMBRE_COMERCIAL_CLIENTEValue(const aValue: String); virtual;
function GetNOMBRE_COMERCIAL_CLIENTEIsNull: Boolean; virtual;
procedure SetNOMBRE_COMERCIAL_CLIENTEIsNull(const aValue: Boolean); virtual;
function GetPROCEDENCIA_CLIENTEValue: String; virtual;
procedure SetPROCEDENCIA_CLIENTEValue(const aValue: String); virtual;
function GetPROCEDENCIA_CLIENTEIsNull: Boolean; virtual;
procedure SetPROCEDENCIA_CLIENTEIsNull(const aValue: Boolean); virtual;
function GetPERSONA_CONTACTOValue: String; virtual;
procedure SetPERSONA_CONTACTOValue(const aValue: String); virtual;
function GetPERSONA_CONTACTOIsNull: Boolean; virtual;
@ -860,6 +872,8 @@ type
property NOMBREIsNull: Boolean read GetNOMBREIsNull write SetNOMBREIsNull;
property NOMBRE_COMERCIAL_CLIENTE: String read GetNOMBRE_COMERCIAL_CLIENTEValue write SetNOMBRE_COMERCIAL_CLIENTEValue;
property NOMBRE_COMERCIAL_CLIENTEIsNull: Boolean read GetNOMBRE_COMERCIAL_CLIENTEIsNull write SetNOMBRE_COMERCIAL_CLIENTEIsNull;
property PROCEDENCIA_CLIENTE: String read GetPROCEDENCIA_CLIENTEValue write SetPROCEDENCIA_CLIENTEValue;
property PROCEDENCIA_CLIENTEIsNull: Boolean read GetPROCEDENCIA_CLIENTEIsNull write SetPROCEDENCIA_CLIENTEIsNull;
property PERSONA_CONTACTO: String read GetPERSONA_CONTACTOValue write SetPERSONA_CONTACTOValue;
property PERSONA_CONTACTOIsNull: Boolean read GetPERSONA_CONTACTOIsNull write SetPERSONA_CONTACTOIsNull;
property FORMA_PAGO: IROStrings read GetFORMA_PAGOValue;
@ -929,7 +943,7 @@ type
{ ICapitulosPresupuesto }
ICapitulosPresupuesto = interface(IDAStronglyTypedDataTable)
['{D7F2C20E-B842-4066-924B-0A8C8B4E27EF}']
['{00C195F2-9264-45E8-BC16-E58B3A124BF4}']
{ Property getters and setters }
function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer);
@ -1096,7 +1110,7 @@ type
{ IPresupuestosCliente_Detalles }
IPresupuestosCliente_Detalles = interface(IDAStronglyTypedDataTable)
['{54C5E7E0-D737-4603-A4E4-B8507C4870EE}']
['{18A3A177-29EF-45FC-8198-A8BB9F8EAC46}']
{ Property getters and setters }
function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer);
@ -1872,6 +1886,27 @@ begin
DataTable.Fields[idx_PresupuestosClienteNOMBRE_COMERCIAL_CLIENTE].AsVariant := Null;
end;
function TPresupuestosClienteDataTableRules.GetPROCEDENCIA_CLIENTEValue: String;
begin
result := DataTable.Fields[idx_PresupuestosClientePROCEDENCIA_CLIENTE].AsString;
end;
procedure TPresupuestosClienteDataTableRules.SetPROCEDENCIA_CLIENTEValue(const aValue: String);
begin
DataTable.Fields[idx_PresupuestosClientePROCEDENCIA_CLIENTE].AsString := aValue;
end;
function TPresupuestosClienteDataTableRules.GetPROCEDENCIA_CLIENTEIsNull: boolean;
begin
result := DataTable.Fields[idx_PresupuestosClientePROCEDENCIA_CLIENTE].IsNull;
end;
procedure TPresupuestosClienteDataTableRules.SetPROCEDENCIA_CLIENTEIsNull(const aValue: Boolean);
begin
if aValue then
DataTable.Fields[idx_PresupuestosClientePROCEDENCIA_CLIENTE].AsVariant := Null;
end;
function TPresupuestosClienteDataTableRules.GetPERSONA_CONTACTOValue: String;
begin
result := DataTable.Fields[idx_PresupuestosClientePERSONA_CONTACTO].AsString;

67
Source/Modulos/Presupuestos de cliente/Model/schPresupuestosClienteServer_Intf.pas
View File

@ -9,17 +9,17 @@ const
{ Delta rules ids
Feel free to change them to something more human readable
but make sure they are unique in the context of your application }
RID_ValoresDelta = '{0CBA7710-1287-477B-820B-9EF7C4400800}';
RID_PropiedadesDelta = '{1CD26D05-AA8C-485F-A54A-129C397B225D}';
RID_ListaAnosPresupuestosDelta = '{B432068B-A238-4DCA-B2BA-8D3C702695B3}';
RID_PresupuestosClienteDelta = '{B57C42EA-9FBE-44AF-BAEB-ADA925E76098}';
RID_CapitulosPresupuestoDelta = '{D4A184E8-DC2B-470F-86FB-2B056293EE0B}';
RID_PresupuestosCliente_DetallesDelta = '{2B8FD7B3-7D95-4CCC-A0ED-AD1418D4E8E1}';
RID_ValoresDelta = '{28CC51B6-31EB-4D5A-AB3E-BCF14B10D91B}';
RID_PropiedadesDelta = '{E07D5389-62DE-43D8-BAAE-2F6B04B93095}';
RID_ListaAnosPresupuestosDelta = '{1E840130-4E9F-4E9D-8029-856D45DB6840}';
RID_PresupuestosClienteDelta = '{3AADD78B-C307-4D80-8720-66E9EDBD28E8}';
RID_CapitulosPresupuestoDelta = '{71EB45E6-C9F6-4019-B67C-311A77D7C0B5}';
RID_PresupuestosCliente_DetallesDelta = '{B1775824-481D-4B82-9DC5-4FC61FE98E4B}';
type
{ IValoresDelta }
IValoresDelta = interface(IValores)
['{0CBA7710-1287-477B-820B-9EF7C4400800}']
['{28CC51B6-31EB-4D5A-AB3E-BCF14B10D91B}']
{ Property getters and setters }
function GetOldIDValue : Integer;
function GetOldID_EMPRESAValue : Integer;
@ -113,7 +113,7 @@ type
{ IPropiedadesDelta }
IPropiedadesDelta = interface(IPropiedades)
['{1CD26D05-AA8C-485F-A54A-129C397B225D}']
['{E07D5389-62DE-43D8-BAAE-2F6B04B93095}']
{ Property getters and setters }
function GetOldIDValue : Integer;
function GetOldDESCRIPCIONValue : String;
@ -159,7 +159,7 @@ type
{ IListaAnosPresupuestosDelta }
IListaAnosPresupuestosDelta = interface(IListaAnosPresupuestos)
['{B432068B-A238-4DCA-B2BA-8D3C702695B3}']
['{1E840130-4E9F-4E9D-8029-856D45DB6840}']
{ Property getters and setters }
function GetOldANOValue : String;
@ -193,7 +193,7 @@ type
{ IPresupuestosClienteDelta }
IPresupuestosClienteDelta = interface(IPresupuestosCliente)
['{B57C42EA-9FBE-44AF-BAEB-ADA925E76098}']
['{3AADD78B-C307-4D80-8720-66E9EDBD28E8}']
{ Property getters and setters }
function GetOldIDValue : Integer;
function GetOldID_EMPRESAValue : Integer;
@ -208,6 +208,7 @@ type
function GetOldNIF_CIFValue : String;
function GetOldNOMBREValue : String;
function GetOldNOMBRE_COMERCIAL_CLIENTEValue : String;
function GetOldPROCEDENCIA_CLIENTEValue : String;
function GetOldPERSONA_CONTACTOValue : String;
function GetOldFORMA_PAGOValue : IROStrings;
function GetOldPLAZO_ENTREGAValue : IROStrings;
@ -253,6 +254,7 @@ type
property OldNIF_CIF : String read GetOldNIF_CIFValue;
property OldNOMBRE : String read GetOldNOMBREValue;
property OldNOMBRE_COMERCIAL_CLIENTE : String read GetOldNOMBRE_COMERCIAL_CLIENTEValue;
property OldPROCEDENCIA_CLIENTE : String read GetOldPROCEDENCIA_CLIENTEValue;
property OldPERSONA_CONTACTO : String read GetOldPERSONA_CONTACTOValue;
property OldFORMA_PAGO : IROStrings read GetOldFORMA_PAGOValue;
property OldPLAZO_ENTREGA : IROStrings read GetOldPLAZO_ENTREGAValue;
@ -376,6 +378,12 @@ type
function GetOldNOMBRE_COMERCIAL_CLIENTEIsNull: Boolean; virtual;
procedure SetNOMBRE_COMERCIAL_CLIENTEValue(const aValue: String); virtual;
procedure SetNOMBRE_COMERCIAL_CLIENTEIsNull(const aValue: Boolean); virtual;
function GetPROCEDENCIA_CLIENTEValue: String; virtual;
function GetPROCEDENCIA_CLIENTEIsNull: Boolean; virtual;
function GetOldPROCEDENCIA_CLIENTEValue: String; virtual;
function GetOldPROCEDENCIA_CLIENTEIsNull: Boolean; virtual;
procedure SetPROCEDENCIA_CLIENTEValue(const aValue: String); virtual;
procedure SetPROCEDENCIA_CLIENTEIsNull(const aValue: Boolean); virtual;
function GetPERSONA_CONTACTOValue: String; virtual;
function GetPERSONA_CONTACTOIsNull: Boolean; virtual;
function GetOldPERSONA_CONTACTOValue: String; virtual;
@ -606,6 +614,10 @@ type
property NOMBRE_COMERCIAL_CLIENTEIsNull : Boolean read GetNOMBRE_COMERCIAL_CLIENTEIsNull write SetNOMBRE_COMERCIAL_CLIENTEIsNull;
property OldNOMBRE_COMERCIAL_CLIENTE : String read GetOldNOMBRE_COMERCIAL_CLIENTEValue;
property OldNOMBRE_COMERCIAL_CLIENTEIsNull : Boolean read GetOldNOMBRE_COMERCIAL_CLIENTEIsNull;
property PROCEDENCIA_CLIENTE : String read GetPROCEDENCIA_CLIENTEValue write SetPROCEDENCIA_CLIENTEValue;
property PROCEDENCIA_CLIENTEIsNull : Boolean read GetPROCEDENCIA_CLIENTEIsNull write SetPROCEDENCIA_CLIENTEIsNull;
property OldPROCEDENCIA_CLIENTE : String read GetOldPROCEDENCIA_CLIENTEValue;
property OldPROCEDENCIA_CLIENTEIsNull : Boolean read GetOldPROCEDENCIA_CLIENTEIsNull;
property PERSONA_CONTACTO : String read GetPERSONA_CONTACTOValue write SetPERSONA_CONTACTOValue;
property PERSONA_CONTACTOIsNull : Boolean read GetPERSONA_CONTACTOIsNull write SetPERSONA_CONTACTOIsNull;
property OldPERSONA_CONTACTO : String read GetOldPERSONA_CONTACTOValue;
@ -735,7 +747,7 @@ type
{ ICapitulosPresupuestoDelta }
ICapitulosPresupuestoDelta = interface(ICapitulosPresupuesto)
['{D4A184E8-DC2B-470F-86FB-2B056293EE0B}']
['{71EB45E6-C9F6-4019-B67C-311A77D7C0B5}']
{ Property getters and setters }
function GetOldIDValue : Integer;
function GetOldPOSICIONValue : Integer;
@ -901,7 +913,7 @@ type
{ IPresupuestosCliente_DetallesDelta }
IPresupuestosCliente_DetallesDelta = interface(IPresupuestosCliente_Detalles)
['{2B8FD7B3-7D95-4CCC-A0ED-AD1418D4E8E1}']
['{B1775824-481D-4B82-9DC5-4FC61FE98E4B}']
{ Property getters and setters }
function GetOldIDValue : Integer;
function GetOldID_PRESUPUESTOValue : Integer;
@ -1897,6 +1909,37 @@ begin
BusinessProcessor.CurrentChange.NewValueByName[fld_PresupuestosClienteNOMBRE_COMERCIAL_CLIENTE] := Null;
end;
function TPresupuestosClienteBusinessProcessorRules.GetPROCEDENCIA_CLIENTEValue: String;
begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_PresupuestosClientePROCEDENCIA_CLIENTE];
end;
function TPresupuestosClienteBusinessProcessorRules.GetPROCEDENCIA_CLIENTEIsNull: Boolean;
begin
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_PresupuestosClientePROCEDENCIA_CLIENTE]);
end;
function TPresupuestosClienteBusinessProcessorRules.GetOldPROCEDENCIA_CLIENTEValue: String;
begin
result := BusinessProcessor.CurrentChange.OldValueByName[fld_PresupuestosClientePROCEDENCIA_CLIENTE];
end;
function TPresupuestosClienteBusinessProcessorRules.GetOldPROCEDENCIA_CLIENTEIsNull: Boolean;
begin
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_PresupuestosClientePROCEDENCIA_CLIENTE]);
end;
procedure TPresupuestosClienteBusinessProcessorRules.SetPROCEDENCIA_CLIENTEValue(const aValue: String);
begin
BusinessProcessor.CurrentChange.NewValueByName[fld_PresupuestosClientePROCEDENCIA_CLIENTE] := aValue;
end;
procedure TPresupuestosClienteBusinessProcessorRules.SetPROCEDENCIA_CLIENTEIsNull(const aValue: Boolean);
begin
if aValue then
BusinessProcessor.CurrentChange.NewValueByName[fld_PresupuestosClientePROCEDENCIA_CLIENTE] := Null;
end;
function TPresupuestosClienteBusinessProcessorRules.GetPERSONA_CONTACTOValue: String;
begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_PresupuestosClientePERSONA_CONTACTO];

9
Source/Modulos/Presupuestos de cliente/Servidor/srvPresupuestosCliente_Impl.dfm
View File

@ -324,6 +324,10 @@ object srvPresupuestosCliente: TsrvPresupuestosCliente
item
DatasetField = 'NOMBRE_COMERCIAL_CLIENTE'
TableField = 'NOMBRE_COMERCIAL_CLIENTE'
end
item
DatasetField = 'PROCEDENCIA_CLIENTE'
TableField = 'PROCEDENCIA_CLIENTE'
end>
end>
Name = 'PresupuestosCliente'
@ -400,6 +404,11 @@ object srvPresupuestosCliente: TsrvPresupuestosCliente
DataType = datString
Size = 255
end
item
Name = 'PROCEDENCIA_CLIENTE'
DataType = datString
Size = 255
end
item
Name = 'PERSONA_CONTACTO'
DataType = datString

15
Source/Modulos/Presupuestos de cliente/Views/uViewPresupuestosCliente.dfm
View File

@ -108,6 +108,10 @@ inherited frViewPresupuestosCliente: TfrViewPresupuestosCliente
DataBinding.FieldName = 'NOMBRE'
Width = 271
end
object cxGridViewPROCEDENCIA_CLIENTE: TcxGridDBColumn
Caption = 'Procendencia'
DataBinding.FieldName = 'PROCEDENCIA_CLIENTE'
end
object cxGridViewBASE_IMPONIBLE: TcxGridDBColumn
Caption = 'Base Imponible'
DataBinding.FieldName = 'BASE_IMPONIBLE'
@ -216,6 +220,7 @@ inherited frViewPresupuestosCliente: TfrViewPresupuestosCliente
ExplicitWidth = 903
inherited TBXAlignmentPanel1: TTBXAlignmentPanel
Width = 903
ExplicitTop = 6
ExplicitWidth = 903
inherited TBXToolbar1: TTBXToolbar
Width = 893
@ -232,6 +237,11 @@ inherited frViewPresupuestosCliente: TfrViewPresupuestosCliente
Action = actProvincia
Visible = False
end
object TBXSeparatorItem3: TTBXSeparatorItem
end
object TBXItem4: TTBXItem
Action = actProcedencia
end
end
end
end
@ -262,6 +272,11 @@ inherited frViewPresupuestosCliente: TfrViewPresupuestosCliente
OnExecute = actProvinciaExecute
OnUpdate = actProvinciaUpdate
end
object actProcedencia: TAction
Caption = 'Procedencia'
OnExecute = actProcedenciaExecute
OnUpdate = actProcedenciaUpdate
end
end
inherited GridPNGImageList: TPngImageList
PngImages = <

28
Source/Modulos/Presupuestos de cliente/Views/uViewPresupuestosCliente.pas
View File

@ -51,6 +51,10 @@ type
cxGridViewIMPORTE_IVA: TcxGridDBColumn;
cxGridViewIVA: TcxGridDBColumn;
cxGridViewNOMBRE_COMERCIAL_CLIENTE: TcxGridDBColumn;
cxGridViewPROCEDENCIA_CLIENTE: TcxGridDBColumn;
TBXSeparatorItem3: TTBXSeparatorItem;
TBXItem4: TTBXItem;
actProcedencia: TAction;
procedure cxGridActiveTabChanged(Sender: TcxCustomGrid; ALevel:
TcxGridLevel);
procedure cxGridViewStylesGetContentStyle(Sender: TcxCustomGridTableView;
@ -76,6 +80,8 @@ type
procedure CustomViewDestroy(Sender: TObject);
procedure CustomViewShow(Sender: TObject);
procedure frViewFiltroBase1actQuitarFiltroExecute(Sender: TObject);
procedure actProcedenciaExecute(Sender: TObject);
procedure actProcedenciaUpdate(Sender: TObject);
private
//Filtros relativos a la vista
@ -122,6 +128,26 @@ begin
(Sender as TAction).Checked := not (cxGridViewNOMBRE.GroupIndex < 0);
end;
procedure TfrViewPresupuestosCliente.actProcedenciaExecute(Sender: TObject);
begin
if (cxGridViewPROCEDENCIA_CLIENTE.GroupIndex < 0) then
begin
cxGridViewPROCEDENCIA_CLIENTE.GroupIndex := cxGridView.GroupedColumnCount;
cxGridViewPROCEDENCIA_CLIENTE.Visible := False;
end
else
begin
cxGridViewPROCEDENCIA_CLIENTE.GroupIndex := -1;
cxGridViewPROCEDENCIA_CLIENTE.Visible := True;
end;
end;
procedure TfrViewPresupuestosCliente.actProcedenciaUpdate(Sender: TObject);
begin
inherited;
(Sender as TAction).Checked := not (cxGridViewPROCEDENCIA_CLIENTE.GroupIndex < 0);
end;
procedure TfrViewPresupuestosCliente.actProvinciaExecute(Sender: TObject);
begin
{
@ -143,7 +169,7 @@ begin
{
inherited;
(Sender as TAction).Checked := not (cxGridViewPROVINCIA.GroupIndex < 0);
}
}
end;
procedure TfrViewPresupuestosCliente.AnadirFiltroFechas;

BIN
Source/Modulos/Recibos de cliente/Data/RecibosCliente_data.res
View File

Binary file not shown.

6
Source/Servidor/FactuGES_Server.dpr
View File

@ -135,14 +135,14 @@ uses
schAlbaranesClienteClient_Intf in '..\Modulos\Albaranes de cliente\Model\schAlbaranesClienteClient_Intf.pas',
schAlbaranesClienteServer_Intf in '..\Modulos\Albaranes de cliente\Model\schAlbaranesClienteServer_Intf.pas',
uNumUtils in '..\Base\Utiles\uNumUtils.pas',
schFacturasClienteClient_Intf in '..\Modulos\Facturas de cliente\Model\schFacturasClienteClient_Intf.pas',
schFacturasClienteServer_Intf in '..\Modulos\Facturas de cliente\Model\schFacturasClienteServer_Intf.pas',
schContactosClient_Intf in '..\Modulos\Contactos\Model\schContactosClient_Intf.pas',
schContactosServer_Intf in '..\Modulos\Contactos\Model\schContactosServer_Intf.pas',
schPresupuestosClienteClient_Intf in '..\Modulos\Presupuestos de cliente\Model\schPresupuestosClienteClient_Intf.pas',
schPresupuestosClienteServer_Intf in '..\Modulos\Presupuestos de cliente\Model\schPresupuestosClienteServer_Intf.pas',
schContratosClienteClient_Intf in '..\Modulos\Contratos de cliente\Model\schContratosClienteClient_Intf.pas',
schContratosClienteServer_Intf in '..\Modulos\Contratos de cliente\Model\schContratosClienteServer_Intf.pas';
schContratosClienteServer_Intf in '..\Modulos\Contratos de cliente\Model\schContratosClienteServer_Intf.pas',
schFacturasClienteClient_Intf in '..\Modulos\Facturas de cliente\Model\schFacturasClienteClient_Intf.pas',
schFacturasClienteServer_Intf in '..\Modulos\Facturas de cliente\Model\schFacturasClienteServer_Intf.pas';
{$R *.res}
{$R ..\Servicios\RODLFile.res}

611
Source/Servidor/FactuGES_Server.dproj
View File

@ -1,310 +1,309 @@
<?xml version="1.0" encoding="utf-8"?>
<?xml version="1.0" encoding="utf-8"?>
<Project xmlns="http://schemas.microsoft.com/developer/msbuild/2003">
<PropertyGroup>
<ProjectGuid>{ebdcd25d-40d7-4146-91ec-a0ea4aa1dcd1}</ProjectGuid>
<MainSource>FactuGES_Server.dpr</MainSource>
<Configuration Condition=" '$(Configuration)' == '' ">Debug</Configuration>
<Platform Condition=" '$(Platform)' == '' ">AnyCPU</Platform>
<DCC_DCCCompiler>DCC32</DCC_DCCCompiler>
<DCC_DependencyCheckOutputName>..\..\Output\Debug\Servidor\FactuGES_Server.exe</DCC_DependencyCheckOutputName>
</PropertyGroup>
<PropertyGroup Condition=" '$(Configuration)|$(Platform)' == 'Release|AnyCPU' ">
<Version>7.0</Version>
<DCC_DebugInformation>False</DCC_DebugInformation>
<DCC_LocalDebugSymbols>False</DCC_LocalDebugSymbols>
<DCC_SymbolReferenceInfo>0</DCC_SymbolReferenceInfo>
<DCC_MapFile>3</DCC_MapFile>
<DCC_ExeOutput>..\..\Output\Release\Servidor</DCC_ExeOutput>
<DCC_Define>RELEASE</DCC_Define>
</PropertyGroup>
<PropertyGroup Condition=" '$(Configuration)|$(Platform)' == 'Debug|AnyCPU' ">
<Version>7.0</Version>
<DCC_MapFile>3</DCC_MapFile>
<DCC_ExeOutput>..\..\Output\Debug\Servidor</DCC_ExeOutput>
<DCC_Define>DEBUG;</DCC_Define>
<DCC_GenerateStackFrames>True</DCC_GenerateStackFrames>
</PropertyGroup>
<ProjectExtensions>
<Borland.Personality>Delphi.Personality</Borland.Personality>
<Borland.ProjectType />
<BorlandProject>
<BorlandProject><Delphi.Personality><Parameters><Parameters Name="UseLauncher">False</Parameters><Parameters Name="LoadAllSymbols">True</Parameters><Parameters Name="LoadUnspecifiedSymbols">False</Parameters></Parameters><VersionInfo><VersionInfo Name="IncludeVerInfo">True</VersionInfo><VersionInfo Name="AutoIncBuild">False</VersionInfo><VersionInfo Name="MajorVer">2</VersionInfo><VersionInfo Name="MinorVer">6</VersionInfo><VersionInfo Name="Release">8</VersionInfo><VersionInfo Name="Build">0</VersionInfo><VersionInfo Name="Debug">False</VersionInfo><VersionInfo Name="PreRelease">False</VersionInfo><VersionInfo Name="Special">False</VersionInfo><VersionInfo Name="Private">False</VersionInfo><VersionInfo Name="DLL">False</VersionInfo><VersionInfo Name="Locale">3082</VersionInfo><VersionInfo Name="CodePage">1252</VersionInfo></VersionInfo><VersionInfoKeys><VersionInfoKeys Name="CompanyName">Rodax Software S.L.</VersionInfoKeys><VersionInfoKeys Name="FileDescription"></VersionInfoKeys><VersionInfoKeys Name="FileVersion">2.6.8.0</VersionInfoKeys><VersionInfoKeys Name="InternalName"></VersionInfoKeys><VersionInfoKeys Name="LegalCopyright"></VersionInfoKeys><VersionInfoKeys Name="LegalTrademarks"></VersionInfoKeys><VersionInfoKeys Name="OriginalFilename"></VersionInfoKeys><VersionInfoKeys Name="ProductName">FactuGES (Servidor)</VersionInfoKeys><VersionInfoKeys Name="ProductVersion">2.6.8.0</VersionInfoKeys><VersionInfoKeys Name="Comments"></VersionInfoKeys><VersionInfoKeys Name="CompileDate">lunes, 11 de abril de 2016 13:37</VersionInfoKeys></VersionInfoKeys><Excluded_Packages>
<Excluded_Packages Name="C:\Documents and Settings\All Users\Documentos\RAD Studio\5.0\Bpl\dxPScxScheduler2LnkD11.bpl">File C:\Documents and Settings\All Users\Documentos\RAD Studio\5.0\Bpl\dxPScxScheduler2LnkD11.bpl not found</Excluded_Packages>
</Excluded_Packages><Source><Source Name="MainSource">FactuGES_Server.dpr</Source></Source></Delphi.Personality></BorlandProject></BorlandProject>
</ProjectExtensions>
<Import Project="$(MSBuildBinPath)\Borland.Delphi.Targets" />
<ItemGroup>
<DelphiCompile Include="FactuGES_Server.dpr">
<MainSource>MainSource</MainSource>
</DelphiCompile>
<DCCReference Include="..\ApplicationBase\Ejercicios\Model\schEjerciciosClient_Intf.pas" />
<DCCReference Include="..\ApplicationBase\Ejercicios\Model\schEjerciciosServer_Intf.pas" />
<DCCReference Include="..\ApplicationBase\Ejercicios\Model\uBizEjerciciosServer.pas" />
<DCCReference Include="..\ApplicationBase\Ejercicios\Servidor\srvEjercicios_Impl.pas">
<Form>srvEjercicios</Form>
<DesignClass>TDataAbstractService</DesignClass>
</DCCReference>
<DCCReference Include="..\ApplicationBase\Empresas\Model\schEmpresasClient_Intf.pas" />
<DCCReference Include="..\ApplicationBase\Empresas\Model\schEmpresasServer_Intf.pas" />
<DCCReference Include="..\ApplicationBase\Empresas\Servidor\srvEmpresas_Impl.pas">
<Form>srvEmpresas</Form>
<DesignClass>TDARemoteService</DesignClass>
</DCCReference>
<DCCReference Include="..\ApplicationBase\ProvinciasPoblaciones\Servidor\srvProvinciasPoblaciones_Impl.pas">
<Form>srvProvinciasPoblaciones</Form>
<DesignClass>TRORemoteDataModule</DesignClass>
</DCCReference>
<DCCReference Include="..\ApplicationBase\Usuarios\Model\schUsuariosClient_Intf.pas" />
<DCCReference Include="..\ApplicationBase\Usuarios\Model\schUsuariosServer_Intf.pas" />
<DCCReference Include="..\ApplicationBase\Usuarios\Servidor\srvUsuarios_Impl.pas" />
<DCCReference Include="..\Base\schBase_Intf.pas" />
<DCCReference Include="..\Base\Utiles\uNumUtils.pas" />
<DCCReference Include="..\Base\Utiles\uSistemaFunc.pas" />
<DCCReference Include="..\Base\Utiles\uStringsUtils.pas" />
<DCCReference Include="..\Modulos\Albaranes de cliente\Model\schAlbaranesClienteClient_Intf.pas" />
<DCCReference Include="..\Modulos\Albaranes de cliente\Model\schAlbaranesClienteServer_Intf.pas" />
<DCCReference Include="..\Modulos\Albaranes de cliente\Model\uBizAlbaranClienteServer.pas" />
<DCCReference Include="..\Modulos\Albaranes de cliente\Reports\uRptAlbaranesCliente_Server.pas" />
<DCCReference Include="..\Modulos\Albaranes de cliente\Servidor\srvAlbaranesCliente_Impl.pas">
<Form>srvAlbaranesCliente</Form>
<DesignClass>TDataAbstractService</DesignClass>
</DCCReference>
<DCCReference Include="..\Modulos\Albaranes de proveedor\Model\schAlbaranesProveedorClient_Intf.pas" />
<DCCReference Include="..\Modulos\Albaranes de proveedor\Model\schAlbaranesProveedorServer_Intf.pas" />
<DCCReference Include="..\Modulos\Albaranes de proveedor\Model\uBizAlbaranProveedorServer.PAS" />
<DCCReference Include="..\Modulos\Albaranes de proveedor\Servidor\srvAlbaranesProveedor_Impl.pas">
<Form>srvAlbaranesProveedor</Form>
<DesignClass>TDataAbstractService</DesignClass>
</DCCReference>
<DCCReference Include="..\Modulos\Almacenes\Model\schAlmacenesClient_Intf.pas" />
<DCCReference Include="..\Modulos\Almacenes\Model\schAlmacenesServer_Intf.pas" />
<DCCReference Include="..\Modulos\Almacenes\Servidor\srvAlmacenes_Impl.pas">
<Form>srvAlmacenes</Form>
<DesignClass>TDARemoteService</DesignClass>
</DCCReference>
<DCCReference Include="..\Modulos\Articulos\Model\schArticulosClient_Intf.pas" />
<DCCReference Include="..\Modulos\Articulos\Model\schArticulosServer_Intf.pas" />
<DCCReference Include="..\Modulos\Articulos\Servidor\srvArticulos_Impl.pas" />
<DCCReference Include="..\Modulos\Comisiones\Model\schComisionesClient_Intf.pas" />
<DCCReference Include="..\Modulos\Comisiones\Model\schComisionesServer_Intf.pas" />
<DCCReference Include="..\Modulos\Comisiones\Model\uBizComisionesServer.pas" />
<DCCReference Include="..\Modulos\Comisiones\Reports\uRptComisiones_Server.pas">
<Form>RptComisiones</Form>
<DesignClass>TDataModule</DesignClass>
</DCCReference>
<DCCReference Include="..\Modulos\Comisiones\Servidor\srvComisiones_Impl.pas">
<Form>srvComisiones</Form>
<DesignClass>TDataAbstractService</DesignClass>
</DCCReference>
<DCCReference Include="..\Modulos\Contabilidad\Model\schContabilidadClient_Intf.pas" />
<DCCReference Include="..\Modulos\Contabilidad\Model\schContabilidadServer_Intf.pas" />
<DCCReference Include="..\Modulos\Contabilidad\Model\uBizAsientosServer.pas" />
<DCCReference Include="..\Modulos\Contabilidad\Servidor\srvContabilidad_Impl.pas">
<Form>srvContabilidad</Form>
<DesignClass>TDataAbstractService</DesignClass>
</DCCReference>
<DCCReference Include="..\Modulos\Contactos\Model\schContactosClient_Intf.pas" />
<DCCReference Include="..\Modulos\Contactos\Model\schContactosServer_Intf.pas" />
<DCCReference Include="..\Modulos\Contactos\Model\uBizClientesServer.pas" />
<DCCReference Include="..\Modulos\Contactos\Model\uBizContactosServer.pas" />
<DCCReference Include="..\Modulos\Contactos\Model\uBizProveedoresServer.pas" />
<DCCReference Include="..\Modulos\Contactos\Model\uBizVendedoresServer.pas" />
<DCCReference Include="..\Modulos\Contactos\Reports\uRptEtiquetasContacto_Server.pas">
<Form>RptEtiquetasContacto</Form>
<DesignClass>TDataModule</DesignClass>
</DCCReference>
<DCCReference Include="..\Modulos\Contactos\Servidor\srvContactos_Impl.pas">
<Form>srvContactos</Form>
<DesignClass>TDARemoteService</DesignClass>
</DCCReference>
<DCCReference Include="..\Modulos\Contratos de cliente\Model\schContratosClienteClient_Intf.pas" />
<DCCReference Include="..\Modulos\Contratos de cliente\Model\schContratosClienteServer_Intf.pas" />
<DCCReference Include="..\Modulos\Contratos de cliente\Model\uBizContratosClienteServer.pas" />
<DCCReference Include="..\Modulos\Contratos de cliente\Reports\uRptContratosCliente_Server.pas">
<Form>RptContratosCliente</Form>
</DCCReference>
<DCCReference Include="..\Modulos\Contratos de cliente\Servidor\srvContratosCliente_Impl.pas">
<Form>srvContratosCliente</Form>
<DesignClass>TDataAbstractService</DesignClass>
</DCCReference>
<DCCReference Include="..\Modulos\Facturas de cliente\Model\schFacturasClienteClient_Intf.pas" />
<DCCReference Include="..\Modulos\Facturas de cliente\Model\schFacturasClienteServer_Intf.pas" />
<DCCReference Include="..\Modulos\Facturas de cliente\Model\uBizFacturasClienteServer.pas" />
<DCCReference Include="..\Modulos\Facturas de cliente\Reports\uRptFacturasCliente_Server.pas">
<Form>RptFacturasCliente</Form>
<DesignClass>TDataModule</DesignClass>
</DCCReference>
<DCCReference Include="..\Modulos\Facturas de cliente\Servidor\srvFacturasCliente_Impl.pas">
<Form>srvFacturasCliente</Form>
<DesignClass>TDataAbstractService</DesignClass>
</DCCReference>
<DCCReference Include="..\Modulos\Facturas de proveedor\Model\schFacturasProveedorClient_Intf.pas" />
<DCCReference Include="..\Modulos\Facturas de proveedor\Model\schFacturasProveedorServer_Intf.pas" />
<DCCReference Include="..\Modulos\Facturas de proveedor\Model\uBizFacturasProveedorServer.pas" />
<DCCReference Include="..\Modulos\Facturas de proveedor\Reports\uRptFacturasProveedor_Server.pas">
<Form>RptFacturasProveedor</Form>
<DesignClass>TDataModule</DesignClass>
</DCCReference>
<DCCReference Include="..\Modulos\Facturas de proveedor\Servidor\srvFacturasProveedor_Impl.pas">
<Form>srvFacturasProveedor</Form>
<DesignClass>TDataAbstractService</DesignClass>
</DCCReference>
<DCCReference Include="..\Modulos\Familias\Model\schFamiliasClient_Intf.pas" />
<DCCReference Include="..\Modulos\Familias\Model\schFamiliasServer_Intf.pas" />
<DCCReference Include="..\Modulos\Familias\Servidor\srvFamilias_Impl.pas" />
<DCCReference Include="..\Modulos\Formas de pago\Model\schFormasPagoClient_Intf.pas" />
<DCCReference Include="..\Modulos\Formas de pago\Model\schFormasPagoServer_Intf.pas" />
<DCCReference Include="..\Modulos\Formas de pago\Servidor\srvFormasPago_Impl.pas" />
<DCCReference Include="..\Modulos\Gestion de documentos\Servidor\srvGestorDocumentos_Impl.pas">
<Form>srvGestorDocumentos</Form>
<DesignClass>TDataAbstractService</DesignClass>
</DCCReference>
<DCCReference Include="..\Modulos\Gestor de informes\Servidor\srvGestorInformes_Impl.pas">
<Form>srvGestorInformes</Form>
<DesignClass>TDataAbstractService</DesignClass>
</DCCReference>
<DCCReference Include="..\Modulos\Historico de movimientos\Model\schHistoricoMovimientosClient_Intf.pas" />
<DCCReference Include="..\Modulos\Historico de movimientos\Model\schHistoricoMovimientosServer_Intf.pas" />
<DCCReference Include="..\Modulos\Historico de movimientos\Servidor\srvHistoricoMovimientos_Impl.pas">
<Form>srvHistoricoMovimientos</Form>
<DesignClass>TDataAbstractService</DesignClass>
</DCCReference>
<DCCReference Include="..\Modulos\Inventario\Model\schInventarioClient_Intf.pas" />
<DCCReference Include="..\Modulos\Inventario\Model\schInventarioServer_Intf.pas" />
<DCCReference Include="..\Modulos\Inventario\Servidor\srvInventario_Impl.pas">
<Form>srvInventario</Form>
<DesignClass>TDataAbstractService</DesignClass>
</DCCReference>
<DCCReference Include="..\Modulos\Pedidos a proveedor\Model\schPedidosProveedorClient_Intf.pas" />
<DCCReference Include="..\Modulos\Pedidos a proveedor\Model\schPedidosProveedorServer_Intf.pas" />
<DCCReference Include="..\Modulos\Pedidos a proveedor\Model\uBizPedidosProveedorServer.pas" />
<DCCReference Include="..\Modulos\Pedidos a proveedor\Servidor\srvPedidosProveedor_Impl.pas">
<Form>srvPedidosProveedor</Form>
<DesignClass>TDataAbstractService</DesignClass>
</DCCReference>
<DCCReference Include="..\Modulos\Presupuestos de cliente\Model\schPresupuestosClienteClient_Intf.pas" />
<DCCReference Include="..\Modulos\Presupuestos de cliente\Model\schPresupuestosClienteServer_Intf.pas" />
<DCCReference Include="..\Modulos\Presupuestos de cliente\Model\uBizPresupuestosClienteServer.pas" />
<DCCReference Include="..\Modulos\Presupuestos de cliente\Reports\uRptPresupuestosCliente_Server.pas">
<Form>RptPresupuestosCliente</Form>
</DCCReference>
<DCCReference Include="..\Modulos\Presupuestos de cliente\Servidor\srvPresupuestosCliente_Impl.pas">
<Form>srvPresupuestosCliente</Form>
<DesignClass>TDataAbstractService</DesignClass>
</DCCReference>
<DCCReference Include="..\Modulos\Recibos de cliente\Model\schRecibosClienteClient_Intf.pas" />
<DCCReference Include="..\Modulos\Recibos de cliente\Model\schRecibosClienteServer_Intf.pas" />
<DCCReference Include="..\Modulos\Recibos de cliente\Model\uBizPagosClienteServer.pas" />
<DCCReference Include="..\Modulos\Recibos de cliente\Model\uBizRecibosClienteServer.pas" />
<DCCReference Include="..\Modulos\Recibos de cliente\Reports\uRptRecibosCliente_Server.pas">
<Form>RptRecibosCliente</Form>
<DesignClass>TDataModule</DesignClass>
</DCCReference>
<DCCReference Include="..\Modulos\Recibos de cliente\Servidor\srvRecibosCliente_Impl.pas">
<Form>srvRecibosCliente</Form>
<DesignClass>TDataAbstractService</DesignClass>
</DCCReference>
<DCCReference Include="..\Modulos\Recibos de proveedor\Model\schRecibosProveedorClient_Intf.pas" />
<DCCReference Include="..\Modulos\Recibos de proveedor\Model\schRecibosProveedorServer_Intf.pas" />
<DCCReference Include="..\Modulos\Recibos de proveedor\Model\uBizPagosProveedorServer.pas" />
<DCCReference Include="..\Modulos\Recibos de proveedor\Model\uBizRecibosProveedorServer.pas" />
<DCCReference Include="..\Modulos\Recibos de proveedor\Reports\uRptRecibosProveedor_Server.pas">
<Form>RptRecibosProveedor</Form>
<DesignClass>TDataModule</DesignClass>
</DCCReference>
<DCCReference Include="..\Modulos\Recibos de proveedor\Servidor\srvRecibosProveedor_Impl.pas">
<Form>srvRecibosProveedor</Form>
<DesignClass>TDataAbstractService</DesignClass>
</DCCReference>
<DCCReference Include="..\Modulos\Referencias\Model\schReferenciasClient_Intf.pas" />
<DCCReference Include="..\Modulos\Referencias\Model\schReferenciasServer_Intf.pas" />
<DCCReference Include="..\Modulos\Referencias\Servidor\srvReferencias_Impl.pas">
<Form>srvReferencias</Form>
<DesignClass>TDataAbstractService</DesignClass>
</DCCReference>
<DCCReference Include="..\Modulos\Remesas de cliente\Model\schRemesasClienteClient_Intf.pas" />
<DCCReference Include="..\Modulos\Remesas de cliente\Model\schRemesasClienteServer_Intf.pas" />
<DCCReference Include="..\Modulos\Remesas de cliente\Model\uBizRemesasClienteServer.pas" />
<DCCReference Include="..\Modulos\Remesas de cliente\Reports\uRptRemesasCliente_Server.pas">
<Form>RptRemesasCliente</Form>
<DesignClass>TDataModule</DesignClass>
</DCCReference>
<DCCReference Include="..\Modulos\Remesas de cliente\Servidor\srvRemesasCliente_Impl.pas">
<Form>srvRemesasCliente</Form>
<DesignClass>TDataAbstractService</DesignClass>
</DCCReference>
<DCCReference Include="..\Modulos\Remesas de proveedor\Model\schRemesasProveedorClient_Intf.pas" />
<DCCReference Include="..\Modulos\Remesas de proveedor\Model\schRemesasProveedorServer_Intf.pas" />
<DCCReference Include="..\Modulos\Remesas de proveedor\Model\uBizRemesasProveedorServer.pas" />
<DCCReference Include="..\Modulos\Remesas de proveedor\Reports\uRptRemesasProveedor_Server.pas">
<Form>RptRemesasProveedor</Form>
<DesignClass>TDataModule</DesignClass>
</DCCReference>
<DCCReference Include="..\Modulos\Remesas de proveedor\Servidor\srvRemesasProveedor_Impl.pas">
<Form>srvRemesasProveedor</Form>
<DesignClass>TDataAbstractService</DesignClass>
</DCCReference>
<DCCReference Include="..\Modulos\Subfamilias\Model\schSubfamiliasClient_Intf.pas" />
<DCCReference Include="..\Modulos\Subfamilias\Model\schSubfamiliasServer_Intf.pas" />
<DCCReference Include="..\Modulos\Subfamilias\Servidor\srvSubfamilias_Impl.pas">
<Form>srvSubfamilias</Form>
<DesignClass>TDataAbstractService</DesignClass>
</DCCReference>
<DCCReference Include="..\Modulos\Tipos de IVA\Model\schTiposIVAClient_Intf.pas" />
<DCCReference Include="..\Modulos\Tipos de IVA\Model\schTiposIVAServer_Intf.pas" />
<DCCReference Include="..\Modulos\Tipos de IVA\Servidor\srvTiposIVA_Impl.pas" />
<DCCReference Include="..\Modulos\Unidades de medida\Model\schUnidadesMedidaClient_Intf.pas" />
<DCCReference Include="..\Modulos\Unidades de medida\Model\schUnidadesMedidaServer_Intf.pas" />
<DCCReference Include="..\Modulos\Unidades de medida\Servidor\srvUnidadesMedida_Impl.pas">
<Form>srvUnidadesMedida</Form>
<DesignClass>TDataAbstractService</DesignClass>
</DCCReference>
<DCCReference Include="..\Servicios\FactuGES_Intf.pas" />
<DCCReference Include="..\Servicios\FactuGES_Invk.pas" />
<DCCReference Include="Configuracion\srvConfiguracion_Impl.pas">
<Form>srvConfiguracion</Form>
<DesignClass>TDataAbstractService</DesignClass>
</DCCReference>
<DCCReference Include="Configuracion\uConexionBD.pas">
<Form>frConexionBD</Form>
<DesignClass>TFrame</DesignClass>
</DCCReference>
<DCCReference Include="Configuracion\uConfGeneral.pas">
<Form>frConfGeneral</Form>
<DesignClass>TFrame</DesignClass>
</DCCReference>
<DCCReference Include="Configuracion\uConfiguracion.pas">
<Form>fConfiguracion</Form>
<DesignClass>TForm</DesignClass>
</DCCReference>
<DCCReference Include="Configuracion\uFrameConfiguracion.pas">
<Form>FrameConfiguracion</Form>
<DesignClass>TFrame</DesignClass>
</DCCReference>
<DCCReference Include="srvLogin_Impl.pas">
<Form>srvLogin</Form>
<DesignClass>TDARemoteService</DesignClass>
</DCCReference>
<DCCReference Include="uAcercaDe.pas">
<Form>fAcercaDe</Form>
</DCCReference>
<DCCReference Include="uDataModuleServer.pas">
<Form>dmServer</Form>
<DesignClass>TDataModule</DesignClass>
</DCCReference>
<DCCReference Include="uServerMainForm.pas">
<Form>fServerForm</Form>
</DCCReference>
<DCCReference Include="Utiles\RegExpr.pas" />
<DCCReference Include="Utiles\uBusinessUtils.pas" />
<DCCReference Include="Utiles\uDatabaseUtils.pas" />
<DCCReference Include="Utiles\uReferenciasUtils.pas" />
<DCCReference Include="Utiles\uRestriccionesUsuarioUtils.pas" />
<DCCReference Include="Utiles\uSchemaUtilsServer.pas" />
<DCCReference Include="Utiles\uServerAppUtils.pas" />
<DCCReference Include="Utiles\uSesionesUtils.pas" />
</ItemGroup>
<PropertyGroup>
<ProjectGuid>{ebdcd25d-40d7-4146-91ec-a0ea4aa1dcd1}</ProjectGuid>
<MainSource>FactuGES_Server.dpr</MainSource>
<Configuration Condition=" '$(Configuration)' == '' ">Debug</Configuration>
<Platform Condition=" '$(Platform)' == '' ">AnyCPU</Platform>
<DCC_DCCCompiler>DCC32</DCC_DCCCompiler>
<DCC_DependencyCheckOutputName>..\..\Output\Debug\Servidor\FactuGES_Server.exe</DCC_DependencyCheckOutputName>
</PropertyGroup>
<PropertyGroup Condition=" '$(Configuration)|$(Platform)' == 'Release|AnyCPU' ">
<Version>7.0</Version>
<DCC_DebugInformation>False</DCC_DebugInformation>
<DCC_LocalDebugSymbols>False</DCC_LocalDebugSymbols>
<DCC_SymbolReferenceInfo>0</DCC_SymbolReferenceInfo>
<DCC_MapFile>3</DCC_MapFile>
<DCC_ExeOutput>..\..\Output\Release\Servidor</DCC_ExeOutput>
<DCC_Define>RELEASE</DCC_Define>
</PropertyGroup>
<PropertyGroup Condition=" '$(Configuration)|$(Platform)' == 'Debug|AnyCPU' ">
<Version>7.0</Version>
<DCC_MapFile>3</DCC_MapFile>
<DCC_ExeOutput>..\..\Output\Debug\Servidor</DCC_ExeOutput>
<DCC_Define>DEBUG;</DCC_Define>
<DCC_GenerateStackFrames>True</DCC_GenerateStackFrames>
</PropertyGroup>
<ProjectExtensions>
<Borland.Personality>Delphi.Personality</Borland.Personality>
<Borland.ProjectType/>
<BorlandProject>
<BorlandProject><Delphi.Personality><Parameters><Parameters Name="UseLauncher">False</Parameters><Parameters Name="LoadAllSymbols">True</Parameters><Parameters Name="LoadUnspecifiedSymbols">False</Parameters></Parameters><VersionInfo><VersionInfo Name="IncludeVerInfo">True</VersionInfo><VersionInfo Name="AutoIncBuild">False</VersionInfo><VersionInfo Name="MajorVer">2</VersionInfo><VersionInfo Name="MinorVer">6</VersionInfo><VersionInfo Name="Release">9</VersionInfo><VersionInfo Name="Build">0</VersionInfo><VersionInfo Name="Debug">False</VersionInfo><VersionInfo Name="PreRelease">False</VersionInfo><VersionInfo Name="Special">False</VersionInfo><VersionInfo Name="Private">False</VersionInfo><VersionInfo Name="DLL">False</VersionInfo><VersionInfo Name="Locale">3082</VersionInfo><VersionInfo Name="CodePage">1252</VersionInfo></VersionInfo><VersionInfoKeys><VersionInfoKeys Name="CompanyName">Rodax Software S.L.</VersionInfoKeys><VersionInfoKeys Name="FileDescription"></VersionInfoKeys><VersionInfoKeys Name="FileVersion">2.6.9.0</VersionInfoKeys><VersionInfoKeys Name="InternalName"></VersionInfoKeys><VersionInfoKeys Name="LegalCopyright"></VersionInfoKeys><VersionInfoKeys Name="LegalTrademarks"></VersionInfoKeys><VersionInfoKeys Name="OriginalFilename"></VersionInfoKeys><VersionInfoKeys Name="ProductName">FactuGES (Servidor)</VersionInfoKeys><VersionInfoKeys Name="ProductVersion">2.6.9.0</VersionInfoKeys><VersionInfoKeys Name="Comments"></VersionInfoKeys><VersionInfoKeys Name="CompileDate">jueves, 10 de noviembre de 2016 12:17</VersionInfoKeys></VersionInfoKeys><Excluded_Packages>
<Excluded_Packages Name="C:\Documents and Settings\All Users\Documentos\RAD Studio\5.0\Bpl\dxPScxScheduler2LnkD11.bpl">File C:\Documents and Settings\All Users\Documentos\RAD Studio\5.0\Bpl\dxPScxScheduler2LnkD11.bpl not found</Excluded_Packages>
</Excluded_Packages><Source><Source Name="MainSource">FactuGES_Server.dpr</Source></Source></Delphi.Personality></BorlandProject></BorlandProject>
</ProjectExtensions>
<Import Project="$(MSBuildBinPath)\Borland.Delphi.Targets"/>
<ItemGroup>
<DelphiCompile Include="FactuGES_Server.dpr">
<MainSource>MainSource</MainSource>
</DelphiCompile>
<DCCReference Include="..\ApplicationBase\Ejercicios\Model\schEjerciciosClient_Intf.pas"/>
<DCCReference Include="..\ApplicationBase\Ejercicios\Model\schEjerciciosServer_Intf.pas"/>
<DCCReference Include="..\ApplicationBase\Ejercicios\Model\uBizEjerciciosServer.pas"/>
<DCCReference Include="..\ApplicationBase\Ejercicios\Servidor\srvEjercicios_Impl.pas">
<Form>srvEjercicios</Form>
<DesignClass>TDataAbstractService</DesignClass>
</DCCReference>
<DCCReference Include="..\ApplicationBase\Empresas\Model\schEmpresasClient_Intf.pas"/>
<DCCReference Include="..\ApplicationBase\Empresas\Model\schEmpresasServer_Intf.pas"/>
<DCCReference Include="..\ApplicationBase\Empresas\Servidor\srvEmpresas_Impl.pas">
<Form>srvEmpresas</Form>
<DesignClass>TDARemoteService</DesignClass>
</DCCReference>
<DCCReference Include="..\ApplicationBase\ProvinciasPoblaciones\Servidor\srvProvinciasPoblaciones_Impl.pas">
<Form>srvProvinciasPoblaciones</Form>
<DesignClass>TRORemoteDataModule</DesignClass>
</DCCReference>
<DCCReference Include="..\ApplicationBase\Usuarios\Model\schUsuariosClient_Intf.pas"/>
<DCCReference Include="..\ApplicationBase\Usuarios\Model\schUsuariosServer_Intf.pas"/>
<DCCReference Include="..\ApplicationBase\Usuarios\Servidor\srvUsuarios_Impl.pas"/>
<DCCReference Include="..\Base\schBase_Intf.pas"/>
<DCCReference Include="..\Base\Utiles\uNumUtils.pas"/>
<DCCReference Include="..\Base\Utiles\uSistemaFunc.pas"/>
<DCCReference Include="..\Base\Utiles\uStringsUtils.pas"/>
<DCCReference Include="..\Modulos\Albaranes de cliente\Model\schAlbaranesClienteClient_Intf.pas"/>
<DCCReference Include="..\Modulos\Albaranes de cliente\Model\schAlbaranesClienteServer_Intf.pas"/>
<DCCReference Include="..\Modulos\Albaranes de cliente\Model\uBizAlbaranClienteServer.pas"/>
<DCCReference Include="..\Modulos\Albaranes de cliente\Reports\uRptAlbaranesCliente_Server.pas"/>
<DCCReference Include="..\Modulos\Albaranes de cliente\Servidor\srvAlbaranesCliente_Impl.pas">
<Form>srvAlbaranesCliente</Form>
<DesignClass>TDataAbstractService</DesignClass>
</DCCReference>
<DCCReference Include="..\Modulos\Albaranes de proveedor\Model\schAlbaranesProveedorClient_Intf.pas"/>
<DCCReference Include="..\Modulos\Albaranes de proveedor\Model\schAlbaranesProveedorServer_Intf.pas"/>
<DCCReference Include="..\Modulos\Albaranes de proveedor\Model\uBizAlbaranProveedorServer.PAS"/>
<DCCReference Include="..\Modulos\Albaranes de proveedor\Servidor\srvAlbaranesProveedor_Impl.pas">
<Form>srvAlbaranesProveedor</Form>
<DesignClass>TDataAbstractService</DesignClass>
</DCCReference>
<DCCReference Include="..\Modulos\Almacenes\Model\schAlmacenesClient_Intf.pas"/>
<DCCReference Include="..\Modulos\Almacenes\Model\schAlmacenesServer_Intf.pas"/>
<DCCReference Include="..\Modulos\Almacenes\Servidor\srvAlmacenes_Impl.pas">
<Form>srvAlmacenes</Form>
<DesignClass>TDARemoteService</DesignClass>
</DCCReference>
<DCCReference Include="..\Modulos\Articulos\Model\schArticulosClient_Intf.pas"/>
<DCCReference Include="..\Modulos\Articulos\Model\schArticulosServer_Intf.pas"/>
<DCCReference Include="..\Modulos\Articulos\Servidor\srvArticulos_Impl.pas"/>
<DCCReference Include="..\Modulos\Comisiones\Model\schComisionesClient_Intf.pas"/>
<DCCReference Include="..\Modulos\Comisiones\Model\schComisionesServer_Intf.pas"/>
<DCCReference Include="..\Modulos\Comisiones\Model\uBizComisionesServer.pas"/>
<DCCReference Include="..\Modulos\Comisiones\Reports\uRptComisiones_Server.pas">
<Form>RptComisiones</Form>
<DesignClass>TDataModule</DesignClass>
</DCCReference>
<DCCReference Include="..\Modulos\Comisiones\Servidor\srvComisiones_Impl.pas">
<Form>srvComisiones</Form>
<DesignClass>TDataAbstractService</DesignClass>
</DCCReference>
<DCCReference Include="..\Modulos\Contabilidad\Model\schContabilidadClient_Intf.pas"/>
<DCCReference Include="..\Modulos\Contabilidad\Model\schContabilidadServer_Intf.pas"/>
<DCCReference Include="..\Modulos\Contabilidad\Model\uBizAsientosServer.pas"/>
<DCCReference Include="..\Modulos\Contabilidad\Servidor\srvContabilidad_Impl.pas">
<Form>srvContabilidad</Form>
<DesignClass>TDataAbstractService</DesignClass>
</DCCReference>
<DCCReference Include="..\Modulos\Contactos\Model\schContactosClient_Intf.pas"/>
<DCCReference Include="..\Modulos\Contactos\Model\schContactosServer_Intf.pas"/>
<DCCReference Include="..\Modulos\Contactos\Model\uBizClientesServer.pas"/>
<DCCReference Include="..\Modulos\Contactos\Model\uBizContactosServer.pas"/>
<DCCReference Include="..\Modulos\Contactos\Model\uBizProveedoresServer.pas"/>
<DCCReference Include="..\Modulos\Contactos\Model\uBizVendedoresServer.pas"/>
<DCCReference Include="..\Modulos\Contactos\Reports\uRptEtiquetasContacto_Server.pas">
<Form>RptEtiquetasContacto</Form>
<DesignClass>TDataModule</DesignClass>
</DCCReference>
<DCCReference Include="..\Modulos\Contactos\Servidor\srvContactos_Impl.pas">
<Form>srvContactos</Form>
<DesignClass>TDARemoteService</DesignClass>
</DCCReference>
<DCCReference Include="..\Modulos\Contratos de cliente\Model\schContratosClienteClient_Intf.pas"/>
<DCCReference Include="..\Modulos\Contratos de cliente\Model\schContratosClienteServer_Intf.pas"/>
<DCCReference Include="..\Modulos\Contratos de cliente\Model\uBizContratosClienteServer.pas"/>
<DCCReference Include="..\Modulos\Contratos de cliente\Reports\uRptContratosCliente_Server.pas">
<Form>RptContratosCliente</Form>
</DCCReference>
<DCCReference Include="..\Modulos\Contratos de cliente\Servidor\srvContratosCliente_Impl.pas">
<Form>srvContratosCliente</Form>
<DesignClass>TDataAbstractService</DesignClass>
</DCCReference>
<DCCReference Include="..\Modulos\Facturas de cliente\Model\schFacturasClienteClient_Intf.pas"/>
<DCCReference Include="..\Modulos\Facturas de cliente\Model\schFacturasClienteServer_Intf.pas"/>
<DCCReference Include="..\Modulos\Facturas de cliente\Model\uBizFacturasClienteServer.pas"/>
<DCCReference Include="..\Modulos\Facturas de cliente\Reports\uRptFacturasCliente_Server.pas">
<Form>RptFacturasCliente</Form>
<DesignClass>TDataModule</DesignClass>
</DCCReference>
<DCCReference Include="..\Modulos\Facturas de cliente\Servidor\srvFacturasCliente_Impl.pas">
<Form>srvFacturasCliente</Form>
<DesignClass>TDataAbstractService</DesignClass>
</DCCReference>
<DCCReference Include="..\Modulos\Facturas de proveedor\Model\schFacturasProveedorClient_Intf.pas"/>
<DCCReference Include="..\Modulos\Facturas de proveedor\Model\schFacturasProveedorServer_Intf.pas"/>
<DCCReference Include="..\Modulos\Facturas de proveedor\Model\uBizFacturasProveedorServer.pas"/>
<DCCReference Include="..\Modulos\Facturas de proveedor\Reports\uRptFacturasProveedor_Server.pas">
<Form>RptFacturasProveedor</Form>
<DesignClass>TDataModule</DesignClass>
</DCCReference>
<DCCReference Include="..\Modulos\Facturas de proveedor\Servidor\srvFacturasProveedor_Impl.pas">
<Form>srvFacturasProveedor</Form>
<DesignClass>TDataAbstractService</DesignClass>
</DCCReference>
<DCCReference Include="..\Modulos\Familias\Model\schFamiliasClient_Intf.pas"/>
<DCCReference Include="..\Modulos\Familias\Model\schFamiliasServer_Intf.pas"/>
<DCCReference Include="..\Modulos\Familias\Servidor\srvFamilias_Impl.pas"/>
<DCCReference Include="..\Modulos\Formas de pago\Model\schFormasPagoClient_Intf.pas"/>
<DCCReference Include="..\Modulos\Formas de pago\Model\schFormasPagoServer_Intf.pas"/>
<DCCReference Include="..\Modulos\Formas de pago\Servidor\srvFormasPago_Impl.pas"/>
<DCCReference Include="..\Modulos\Gestion de documentos\Servidor\srvGestorDocumentos_Impl.pas">
<Form>srvGestorDocumentos</Form>
<DesignClass>TDataAbstractService</DesignClass>
</DCCReference>
<DCCReference Include="..\Modulos\Gestor de informes\Servidor\srvGestorInformes_Impl.pas">
<Form>srvGestorInformes</Form>
<DesignClass>TDataAbstractService</DesignClass>
</DCCReference>
<DCCReference Include="..\Modulos\Historico de movimientos\Model\schHistoricoMovimientosClient_Intf.pas"/>
<DCCReference Include="..\Modulos\Historico de movimientos\Model\schHistoricoMovimientosServer_Intf.pas"/>
<DCCReference Include="..\Modulos\Historico de movimientos\Servidor\srvHistoricoMovimientos_Impl.pas">
<Form>srvHistoricoMovimientos</Form>
<DesignClass>TDataAbstractService</DesignClass>
</DCCReference>
<DCCReference Include="..\Modulos\Inventario\Model\schInventarioClient_Intf.pas"/>
<DCCReference Include="..\Modulos\Inventario\Model\schInventarioServer_Intf.pas"/>
<DCCReference Include="..\Modulos\Inventario\Servidor\srvInventario_Impl.pas">
<Form>srvInventario</Form>
<DesignClass>TDataAbstractService</DesignClass>
</DCCReference>
<DCCReference Include="..\Modulos\Pedidos a proveedor\Model\schPedidosProveedorClient_Intf.pas"/>
<DCCReference Include="..\Modulos\Pedidos a proveedor\Model\schPedidosProveedorServer_Intf.pas"/>
<DCCReference Include="..\Modulos\Pedidos a proveedor\Model\uBizPedidosProveedorServer.pas"/>
<DCCReference Include="..\Modulos\Pedidos a proveedor\Servidor\srvPedidosProveedor_Impl.pas">
<Form>srvPedidosProveedor</Form>
<DesignClass>TDataAbstractService</DesignClass>
</DCCReference>
<DCCReference Include="..\Modulos\Presupuestos de cliente\Model\schPresupuestosClienteClient_Intf.pas"/>
<DCCReference Include="..\Modulos\Presupuestos de cliente\Model\schPresupuestosClienteServer_Intf.pas"/>
<DCCReference Include="..\Modulos\Presupuestos de cliente\Model\uBizPresupuestosClienteServer.pas"/>
<DCCReference Include="..\Modulos\Presupuestos de cliente\Reports\uRptPresupuestosCliente_Server.pas">
<Form>RptPresupuestosCliente</Form>
</DCCReference>
<DCCReference Include="..\Modulos\Presupuestos de cliente\Servidor\srvPresupuestosCliente_Impl.pas">
<Form>srvPresupuestosCliente</Form>
<DesignClass>TDataAbstractService</DesignClass>
</DCCReference>
<DCCReference Include="..\Modulos\Recibos de cliente\Model\schRecibosClienteClient_Intf.pas"/>
<DCCReference Include="..\Modulos\Recibos de cliente\Model\schRecibosClienteServer_Intf.pas"/>
<DCCReference Include="..\Modulos\Recibos de cliente\Model\uBizPagosClienteServer.pas"/>
<DCCReference Include="..\Modulos\Recibos de cliente\Model\uBizRecibosClienteServer.pas"/>
<DCCReference Include="..\Modulos\Recibos de cliente\Reports\uRptRecibosCliente_Server.pas">
<Form>RptRecibosCliente</Form>
<DesignClass>TDataModule</DesignClass>
</DCCReference>
<DCCReference Include="..\Modulos\Recibos de cliente\Servidor\srvRecibosCliente_Impl.pas">
<Form>srvRecibosCliente</Form>
<DesignClass>TDataAbstractService</DesignClass>
</DCCReference>
<DCCReference Include="..\Modulos\Recibos de proveedor\Model\schRecibosProveedorClient_Intf.pas"/>
<DCCReference Include="..\Modulos\Recibos de proveedor\Model\schRecibosProveedorServer_Intf.pas"/>
<DCCReference Include="..\Modulos\Recibos de proveedor\Model\uBizPagosProveedorServer.pas"/>
<DCCReference Include="..\Modulos\Recibos de proveedor\Model\uBizRecibosProveedorServer.pas"/>
<DCCReference Include="..\Modulos\Recibos de proveedor\Reports\uRptRecibosProveedor_Server.pas">
<Form>RptRecibosProveedor</Form>
<DesignClass>TDataModule</DesignClass>
</DCCReference>
<DCCReference Include="..\Modulos\Recibos de proveedor\Servidor\srvRecibosProveedor_Impl.pas">
<Form>srvRecibosProveedor</Form>
<DesignClass>TDataAbstractService</DesignClass>
</DCCReference>
<DCCReference Include="..\Modulos\Referencias\Model\schReferenciasClient_Intf.pas"/>
<DCCReference Include="..\Modulos\Referencias\Model\schReferenciasServer_Intf.pas"/>
<DCCReference Include="..\Modulos\Referencias\Servidor\srvReferencias_Impl.pas">
<Form>srvReferencias</Form>
<DesignClass>TDataAbstractService</DesignClass>
</DCCReference>
<DCCReference Include="..\Modulos\Remesas de cliente\Model\schRemesasClienteClient_Intf.pas"/>
<DCCReference Include="..\Modulos\Remesas de cliente\Model\schRemesasClienteServer_Intf.pas"/>
<DCCReference Include="..\Modulos\Remesas de cliente\Model\uBizRemesasClienteServer.pas"/>
<DCCReference Include="..\Modulos\Remesas de cliente\Reports\uRptRemesasCliente_Server.pas">
<Form>RptRemesasCliente</Form>
<DesignClass>TDataModule</DesignClass>
</DCCReference>
<DCCReference Include="..\Modulos\Remesas de cliente\Servidor\srvRemesasCliente_Impl.pas">
<Form>srvRemesasCliente</Form>
<DesignClass>TDataAbstractService</DesignClass>
</DCCReference>
<DCCReference Include="..\Modulos\Remesas de proveedor\Model\schRemesasProveedorClient_Intf.pas"/>
<DCCReference Include="..\Modulos\Remesas de proveedor\Model\schRemesasProveedorServer_Intf.pas"/>
<DCCReference Include="..\Modulos\Remesas de proveedor\Model\uBizRemesasProveedorServer.pas"/>
<DCCReference Include="..\Modulos\Remesas de proveedor\Reports\uRptRemesasProveedor_Server.pas">
<Form>RptRemesasProveedor</Form>
<DesignClass>TDataModule</DesignClass>
</DCCReference>
<DCCReference Include="..\Modulos\Remesas de proveedor\Servidor\srvRemesasProveedor_Impl.pas">
<Form>srvRemesasProveedor</Form>
<DesignClass>TDataAbstractService</DesignClass>
</DCCReference>
<DCCReference Include="..\Modulos\Subfamilias\Model\schSubfamiliasClient_Intf.pas"/>
<DCCReference Include="..\Modulos\Subfamilias\Model\schSubfamiliasServer_Intf.pas"/>
<DCCReference Include="..\Modulos\Subfamilias\Servidor\srvSubfamilias_Impl.pas">
<Form>srvSubfamilias</Form>
<DesignClass>TDataAbstractService</DesignClass>
</DCCReference>
<DCCReference Include="..\Modulos\Tipos de IVA\Model\schTiposIVAClient_Intf.pas"/>
<DCCReference Include="..\Modulos\Tipos de IVA\Model\schTiposIVAServer_Intf.pas"/>
<DCCReference Include="..\Modulos\Tipos de IVA\Servidor\srvTiposIVA_Impl.pas"/>
<DCCReference Include="..\Modulos\Unidades de medida\Model\schUnidadesMedidaClient_Intf.pas"/>
<DCCReference Include="..\Modulos\Unidades de medida\Model\schUnidadesMedidaServer_Intf.pas"/>
<DCCReference Include="..\Modulos\Unidades de medida\Servidor\srvUnidadesMedida_Impl.pas">
<Form>srvUnidadesMedida</Form>
<DesignClass>TDataAbstractService</DesignClass>
</DCCReference>
<DCCReference Include="..\Servicios\FactuGES_Intf.pas"/>
<DCCReference Include="..\Servicios\FactuGES_Invk.pas"/>
<DCCReference Include="Configuracion\srvConfiguracion_Impl.pas">
<Form>srvConfiguracion</Form>
<DesignClass>TDataAbstractService</DesignClass>
</DCCReference>
<DCCReference Include="Configuracion\uConexionBD.pas">
<Form>frConexionBD</Form>
<DesignClass>TFrame</DesignClass>
</DCCReference>
<DCCReference Include="Configuracion\uConfGeneral.pas">
<Form>frConfGeneral</Form>
<DesignClass>TFrame</DesignClass>
</DCCReference>
<DCCReference Include="Configuracion\uConfiguracion.pas">
<Form>fConfiguracion</Form>
<DesignClass>TForm</DesignClass>
</DCCReference>
<DCCReference Include="Configuracion\uFrameConfiguracion.pas">
<Form>FrameConfiguracion</Form>
<DesignClass>TFrame</DesignClass>
</DCCReference>
<DCCReference Include="srvLogin_Impl.pas">
<Form>srvLogin</Form>
<DesignClass>TDARemoteService</DesignClass>
</DCCReference>
<DCCReference Include="uAcercaDe.pas">
<Form>fAcercaDe</Form>
</DCCReference>
<DCCReference Include="uDataModuleServer.pas">
<Form>dmServer</Form>
<DesignClass>TDataModule</DesignClass>
</DCCReference>
<DCCReference Include="uServerMainForm.pas">
<Form>fServerForm</Form>
</DCCReference>
<DCCReference Include="Utiles\RegExpr.pas"/>
<DCCReference Include="Utiles\uBusinessUtils.pas"/>
<DCCReference Include="Utiles\uDatabaseUtils.pas"/>
<DCCReference Include="Utiles\uReferenciasUtils.pas"/>
<DCCReference Include="Utiles\uRestriccionesUsuarioUtils.pas"/>
<DCCReference Include="Utiles\uSchemaUtilsServer.pas"/>
<DCCReference Include="Utiles\uServerAppUtils.pas"/>
<DCCReference Include="Utiles\uSesionesUtils.pas"/>
</ItemGroup>
</Project>
<!-- EurekaLog First Line
[Exception Log]

BIN
Source/Servidor/FactuGES_Server.res
View File

Binary file not shown.