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> <Borland.ProjectType>Package</Borland.ProjectType>
<BorlandProject> <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> <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="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\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> <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"> <DelphiCompile Include="ApplicationBase.dpk">
<MainSource>MainSource</MainSource> <MainSource>MainSource</MainSource>
</DelphiCompile> </DelphiCompile>
<DCCReference Include="..\Servidor\adortl.dcp" /> <DCCReference Include="..\Modulos\Facturas de cliente\adortl.dcp" />
<DCCReference Include="..\Servidor\Base.dcp" /> <DCCReference Include="..\Modulos\Facturas de cliente\Base.dcp" />
<DCCReference Include="..\Servidor\ccpackD11.dcp" /> <DCCReference Include="..\Modulos\Facturas de cliente\ccpackD11.dcp" />
<DCCReference Include="..\Servidor\cfpack_d11.dcp" /> <DCCReference Include="..\Modulos\Facturas de cliente\cfpack_d11.dcp" />
<DCCReference Include="..\Servidor\cxDataD11.dcp" /> <DCCReference Include="..\Modulos\Facturas de cliente\cxDataD11.dcp" />
<DCCReference Include="..\Servidor\cxEditorsD11.dcp" /> <DCCReference Include="..\Modulos\Facturas de cliente\cxEditorsD11.dcp" />
<DCCReference Include="..\Servidor\cxExtEditorsD11.dcp" /> <DCCReference Include="..\Modulos\Facturas de cliente\cxExtEditorsD11.dcp" />
<DCCReference Include="..\Servidor\cxLibraryD11.dcp" /> <DCCReference Include="..\Modulos\Facturas de cliente\cxLibraryD11.dcp" />
<DCCReference Include="..\Servidor\DataAbstract_Core_D11.dcp" /> <DCCReference Include="..\Modulos\Facturas de cliente\DataAbstract_Core_D11.dcp" />
<DCCReference Include="..\Servidor\dbrtl.dcp" /> <DCCReference Include="..\Modulos\Facturas de cliente\dbrtl.dcp" />
<DCCReference Include="..\Servidor\designide.dcp" /> <DCCReference Include="..\Modulos\Facturas de cliente\designide.dcp" />
<DCCReference Include="..\Servidor\dsnap.dcp" /> <DCCReference Include="..\Modulos\Facturas de cliente\dsnap.dcp" />
<DCCReference Include="..\Servidor\dxCoreD11.dcp" /> <DCCReference Include="..\Modulos\Facturas de cliente\dxCoreD11.dcp" />
<DCCReference Include="..\Servidor\dxGDIPlusD11.dcp" /> <DCCReference Include="..\Modulos\Facturas de cliente\dxGDIPlusD11.dcp" />
<DCCReference Include="..\Servidor\dxNavBarD11.dcp" /> <DCCReference Include="..\Modulos\Facturas de cliente\dxNavBarD11.dcp" />
<DCCReference Include="..\Servidor\dxThemeD11.dcp" /> <DCCReference Include="..\Modulos\Facturas de cliente\dxThemeD11.dcp" />
<DCCReference Include="..\Servidor\GUIBase.dcp" /> <DCCReference Include="..\Modulos\Facturas de cliente\GUIBase.dcp" />
<DCCReference Include="..\Servidor\GUISDK_D11R.dcp" /> <DCCReference Include="..\Modulos\Facturas de cliente\GUISDK_D11R.dcp" />
<DCCReference Include="..\Servidor\Jcl.dcp" /> <DCCReference Include="..\Modulos\Facturas de cliente\Jcl.dcp" />
<DCCReference Include="..\Servidor\JclVcl.dcp" /> <DCCReference Include="..\Modulos\Facturas de cliente\JclVcl.dcp" />
<DCCReference Include="..\Servidor\JvCoreD11R.dcp" /> <DCCReference Include="..\Modulos\Facturas de cliente\JvCoreD11R.dcp" />
<DCCReference Include="..\Servidor\JvCtrlsD11R.dcp" /> <DCCReference Include="..\Modulos\Facturas de cliente\JvCtrlsD11R.dcp" />
<DCCReference Include="..\Servidor\JvJansD11R.dcp" /> <DCCReference Include="..\Modulos\Facturas de cliente\JvJansD11R.dcp" />
<DCCReference Include="..\Servidor\JvMMD11R.dcp" /> <DCCReference Include="..\Modulos\Facturas de cliente\JvMMD11R.dcp" />
<DCCReference Include="..\Servidor\JvStdCtrlsD11R.dcp" /> <DCCReference Include="..\Modulos\Facturas de cliente\JvStdCtrlsD11R.dcp" />
<DCCReference Include="..\Servidor\JvSystemD11R.dcp" /> <DCCReference Include="..\Modulos\Facturas de cliente\JvSystemD11R.dcp" />
<DCCReference Include="..\Servidor\PluginSDK_D11R.dcp" /> <DCCReference Include="..\Modulos\Facturas de cliente\PluginSDK_D11R.dcp" />
<DCCReference Include="..\Servidor\PngComponentsD10.dcp" /> <DCCReference Include="..\Modulos\Facturas de cliente\PngComponentsD10.dcp" />
<DCCReference Include="..\Servidor\PNG_D10.dcp" /> <DCCReference Include="..\Modulos\Facturas de cliente\PNG_D10.dcp" />
<DCCReference Include="..\Servidor\RemObjects_Core_D11.dcp" /> <DCCReference Include="..\Modulos\Facturas de cliente\RemObjects_Core_D11.dcp" />
<DCCReference Include="..\Servidor\rtl.dcp" /> <DCCReference Include="..\Modulos\Facturas de cliente\rtl.dcp" />
<DCCReference Include="..\Servidor\vcl.dcp" /> <DCCReference Include="..\Modulos\Facturas de cliente\vcl.dcp" />
<DCCReference Include="..\Servidor\vclactnband.dcp" /> <DCCReference Include="..\Modulos\Facturas de cliente\vclactnband.dcp" />
<DCCReference Include="..\Servidor\vcldb.dcp" /> <DCCReference Include="..\Modulos\Facturas de cliente\vcldb.dcp" />
<DCCReference Include="..\Servidor\vcljpg.dcp" /> <DCCReference Include="..\Modulos\Facturas de cliente\vcljpg.dcp" />
<DCCReference Include="..\Servidor\vclx.dcp" /> <DCCReference Include="..\Modulos\Facturas de cliente\vclx.dcp" />
<DCCReference Include="..\Servidor\xmlrtl.dcp" /> <DCCReference Include="..\Modulos\Facturas de cliente\xmlrtl.dcp" />
<DCCReference Include="Configuracion\Controller\uConfiguracionController.pas" /> <DCCReference Include="Configuracion\Controller\uConfiguracionController.pas" />
<DCCReference Include="Configuracion\Controller\Views\uIViewConfiguracionBase.pas" /> <DCCReference Include="Configuracion\Controller\Views\uIViewConfiguracionBase.pas" />
<DCCReference Include="Configuracion\Views\uEditorConfiguracion.pas"> <DCCReference Include="Configuracion\Views\uEditorConfiguracion.pas">

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

@ -113,7 +113,7 @@ end;
procedure TfEditorLogin.FormShow(Sender: TObject); procedure TfEditorLogin.FormShow(Sender: TObject);
begin begin
Self.Caption := AppFactuGES.AppFullName; Self.Caption := AppFactuGES.AppFullName;
JvFormStorage1.RestoreFormPlacement; // JvFormStorage1.RestoreFormPlacement;
// Hacer login automática si hay usuario/password y no hay más de una base // Hacer login automática si hay usuario/password y no hay más de una base
// de datos como opción para conectarse. // 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; dsUsuario.DataTable := FUsuario.DataTable;
if FUsuario.EsNuevo then if FUsuario.EsNuevo then
begin begin
dxLayoutControlArticuloGroup5.Visible := True; // dxLayoutControlArticuloGroup5.Visible := True;
cbPerfil.Text := cbPerfil.Properties.Items[0]; cbPerfil.Text := cbPerfil.Properties.Items[0];
end end
else begin else begin
dxLayoutControlArticuloGroup5.Visible := False; // dxLayoutControlArticuloGroup5.Visible := False;
cbPerfil.Text := cbPerfil.Properties.Items[0]; cbPerfil.Text := cbPerfil.Properties.Items[0];
for i := 0 to FListaPerfiles.Count-1 do for i := 0 to FListaPerfiles.Count-1 do

8
Source/ApplicationBase/uFactuGES_App.pas
View File

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

103
Source/Base/Base.dproj
View File

@ -44,13 +44,6 @@
<Borland.ProjectType>Package</Borland.ProjectType> <Borland.ProjectType>Package</Borland.ProjectType>
<BorlandProject> <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> <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\dclintraweb_90_100.bpl">VCL for the Web Design Package for CodeGear RAD Studio</Excluded_Packages>
<Excluded_Packages Name="$(BDS)\bin\dclwebsnap100.bpl">CodeGear WebSnap Components</Excluded_Packages> <Excluded_Packages Name="$(BDS)\bin\dclwebsnap100.bpl">CodeGear WebSnap Components</Excluded_Packages>
<Excluded_Packages Name="$(BDS)\bin\dclsoap100.bpl">CodeGear SOAP Components</Excluded_Packages> <Excluded_Packages Name="$(BDS)\bin\dclsoap100.bpl">CodeGear SOAP Components</Excluded_Packages>
@ -65,55 +58,55 @@
<DelphiCompile Include="Base.dpk"> <DelphiCompile Include="Base.dpk">
<MainSource>MainSource</MainSource> <MainSource>MainSource</MainSource>
</DelphiCompile> </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="..\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"> <DCCReference Include="Conexion\uConfigurarConexion.pas">
<Form>fConfigurarConexion</Form> <Form>fConfigurarConexion</Form>
<DesignClass>TForm</DesignClass> <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.Personality>Delphi.Personality</Borland.Personality>
<Borland.ProjectType>VCLApplication</Borland.ProjectType> <Borland.ProjectType>VCLApplication</Borland.ProjectType>
<BorlandProject> <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 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> </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 if Assigned(AListaEmpresasItem) then
begin begin
AEmpresas := AppFactuGES.EmpresasController.BuscarTodos; AEmpresas := AppFactuGES.EmpresasController.BuscarTodos(AppFactuGES.UsuarioActivo.ID_PERFIL);
try try
AEmpresas.DataTable.Active := True; AEmpresas.DataTable.Active := True;
while not AEmpresas.DataTable.EOF do while not AEmpresas.DataTable.EOF do

2
Source/Cliente/uNavPaneController.pas
View File

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

9
Source/Cliente/uPantallaPrincipal.pas
View File

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

56
Source/GUIBase/GUIBase.dproj
View File

@ -58,34 +58,34 @@
<DelphiCompile Include="GUIBase.dpk"> <DelphiCompile Include="GUIBase.dpk">
<MainSource>MainSource</MainSource> <MainSource>MainSource</MainSource>
</DelphiCompile> </DelphiCompile>
<DCCReference Include="C:\Documents and Settings\Usuario\Base.dcp" /> <DCCReference Include="..\Modulos\Facturas de cliente\Base.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\ccpackD11.dcp" /> <DCCReference Include="..\Modulos\Facturas de cliente\ccpackD11.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\cxDataD11.dcp" /> <DCCReference Include="..\Modulos\Facturas de cliente\cxDataD11.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\cxEditorsD11.dcp" /> <DCCReference Include="..\Modulos\Facturas de cliente\cxEditorsD11.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\cxExportD11.dcp" /> <DCCReference Include="..\Modulos\Facturas de cliente\cxExportD11.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\cxLibraryD11.dcp" /> <DCCReference Include="..\Modulos\Facturas de cliente\cxLibraryD11.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\dbrtl.dcp" /> <DCCReference Include="..\Modulos\Facturas de cliente\dbrtl.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\dxGDIPlusD11.dcp" /> <DCCReference Include="..\Modulos\Facturas de cliente\dxGDIPlusD11.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\dxLayoutControlD11.dcp" /> <DCCReference Include="..\Modulos\Facturas de cliente\dxLayoutControlD11.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\dxPScxCommonD11.dcp" /> <DCCReference Include="..\Modulos\Facturas de cliente\dxPScxCommonD11.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\dxPScxGrid6LnkD11.dcp" /> <DCCReference Include="..\Modulos\Facturas de cliente\dxPScxGrid6LnkD11.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\dxThemeD11.dcp" /> <DCCReference Include="..\Modulos\Facturas de cliente\dxThemeD11.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\frx11.dcp" /> <DCCReference Include="..\Modulos\Facturas de cliente\frx11.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\frxe11.dcp" /> <DCCReference Include="..\Modulos\Facturas de cliente\frxe11.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\fs11.dcp" /> <DCCReference Include="..\Modulos\Facturas de cliente\fs11.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\JvAppFrmD11R.dcp" /> <DCCReference Include="..\Modulos\Facturas de cliente\JvAppFrmD11R.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\JvCtrlsD11R.dcp" /> <DCCReference Include="..\Modulos\Facturas de cliente\JvCtrlsD11R.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\JvGlobusD11R.dcp" /> <DCCReference Include="..\Modulos\Facturas de cliente\JvGlobusD11R.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\PngComponentsD10.dcp" /> <DCCReference Include="..\Modulos\Facturas de cliente\PngComponentsD10.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\PNG_D10.dcp" /> <DCCReference Include="..\Modulos\Facturas de cliente\PNG_D10.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\rtl.dcp" /> <DCCReference Include="..\Modulos\Facturas de cliente\rtl.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\tb2k_d10.dcp" /> <DCCReference Include="..\Modulos\Facturas de cliente\tb2k_d10.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\tbx_d10.dcp" /> <DCCReference Include="..\Modulos\Facturas de cliente\tbx_d10.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\vcl.dcp" /> <DCCReference Include="..\Modulos\Facturas de cliente\vcl.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\vclactnband.dcp" /> <DCCReference Include="..\Modulos\Facturas de cliente\vclactnband.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\vcldb.dcp" /> <DCCReference Include="..\Modulos\Facturas de cliente\vcldb.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\vcljpg.dcp" /> <DCCReference Include="..\Modulos\Facturas de cliente\vcljpg.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\vclx.dcp" /> <DCCReference Include="..\Modulos\Facturas de cliente\vclx.dcp" />
<DCCReference Include="uDialogBase.pas"> <DCCReference Include="uDialogBase.pas">
<Form>fDialogBase</Form> <Form>fDialogBase</Form>
</DCCReference> </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"?> <?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"/> <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=""> <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"> <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"/> <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="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="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> </TfrxPageHeader>
<TfrxPageFooter Name="" Height="23,77953" Left="0" Top="271" Width="680,321226775416" PrintOnLastPage="False"> <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="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=""/> <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> </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="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"/> <TfrxSubreport Name="Subreport2" ShiftMode="smDontShift" Left="302" Top="3" Width="377" Height="20" ShowHint="False" Page="Page3" PrintOnParent="True"/>
</TfrxMasterData> </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="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"/> <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> </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="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="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;]"/> <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> </TfrxGroupFooter>
</TfrxReportPage> </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=""> <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="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="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;]"/> <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"?> <?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"/> <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=""> <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"> <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"/> <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="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="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> </TfrxPageHeader>
<TfrxPageFooter Name="" Height="23,77953" Left="0" Top="271" Width="680,321226775416" PrintOnLastPage="False"> <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="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=""/> <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> </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="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"/> <TfrxSubreport Name="Subreport2" ShiftMode="smDontShift" Left="302" Top="3" Width="377" Height="20" ShowHint="False" Page="Page3" PrintOnParent="True"/>
</TfrxMasterData> </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="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"/> <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> </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="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="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;]"/> <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> </TfrxGroupFooter>
</TfrxReportPage> </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=""> <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="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="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;]"/> <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"?> <?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"/> <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=""> <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"> <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"/> <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="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="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> </TfrxPageHeader>
<TfrxPageFooter Name="" Height="23,77953" Left="0" Top="271" Width="680,321226775416" PrintOnLastPage="False"> <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="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=""/> <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> </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="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"/> <TfrxSubreport Name="Subreport2" ShiftMode="smDontShift" Left="302" Top="3" Width="377" Height="20" ShowHint="False" Page="Page3" PrintOnParent="True"/>
</TfrxMasterData> </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="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"/> <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> </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="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="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;]"/> <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> </TfrxGroupFooter>
</TfrxReportPage> </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=""> <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="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="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;]"/> <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"> <DelphiCompile Include="Contactos_view.dpk">
<MainSource>MainSource</MainSource> <MainSource>MainSource</MainSource>
</DelphiCompile> </DelphiCompile>
<DCCReference Include="C:\Documents and Settings\Usuario\adortl.dcp" /> <DCCReference Include="..\adortl.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\ApplicationBase.dcp" /> <DCCReference Include="..\ApplicationBase.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\Base.dcp" /> <DCCReference Include="..\Base.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\bdertl.dcp" /> <DCCReference Include="..\bdertl.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\Contactos_controller.dcp" /> <DCCReference Include="..\Contactos_controller.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\Contactos_model.dcp" /> <DCCReference Include="..\Contactos_model.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\cxDataD11.dcp" /> <DCCReference Include="..\cxDataD11.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\cxEditorsD11.dcp" /> <DCCReference Include="..\cxEditorsD11.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\cxLibraryD11.dcp" /> <DCCReference Include="..\cxLibraryD11.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\DataAbstract_Core_D11.dcp" /> <DCCReference Include="..\DataAbstract_Core_D11.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\dbrtl.dcp" /> <DCCReference Include="..\dbrtl.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\designide.dcp" /> <DCCReference Include="..\designide.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\dsnap.dcp" /> <DCCReference Include="..\dsnap.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\dxGDIPlusD11.dcp" /> <DCCReference Include="..\dxGDIPlusD11.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\dxThemeD11.dcp" /> <DCCReference Include="..\dxThemeD11.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\FormasPago_controller.dcp" /> <DCCReference Include="..\FormasPago_controller.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\FormasPago_model.dcp" /> <DCCReference Include="..\FormasPago_model.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\GestorInformes_controller.dcp" /> <DCCReference Include="..\GestorInformes_controller.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\GUIBase.dcp" /> <DCCReference Include="..\GUIBase.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\GUISDK_D11R.dcp" /> <DCCReference Include="..\GUISDK_D11R.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\Jcl.dcp" /> <DCCReference Include="..\Jcl.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\JclVcl.dcp" /> <DCCReference Include="..\JclVcl.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\JvCoreD11R.dcp" /> <DCCReference Include="..\JvCoreD11R.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\JvGlobusD11R.dcp" /> <DCCReference Include="..\JvGlobusD11R.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\JvSystemD11R.dcp" /> <DCCReference Include="..\JvSystemD11R.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\RemObjects_Core_D11.dcp" /> <DCCReference Include="..\RemObjects_Core_D11.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\rtl.dcp" /> <DCCReference Include="..\rtl.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\TiposIVA_controller.dcp" /> <DCCReference Include="..\TiposIVA_controller.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\TiposIVA_model.dcp" /> <DCCReference Include="..\TiposIVA_model.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\vcl.dcp" /> <DCCReference Include="..\vcl.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\vclactnband.dcp" /> <DCCReference Include="..\vclactnband.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\vcldb.dcp" /> <DCCReference Include="..\vcldb.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\vcljpg.dcp" /> <DCCReference Include="..\vcljpg.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\vclx.dcp" /> <DCCReference Include="..\vclx.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\xmlrtl.dcp" /> <DCCReference Include="..\xmlrtl.dcp" />
<DCCReference Include="uContactosViewRegister.pas" /> <DCCReference Include="uContactosViewRegister.pas" />
<DCCReference Include="uEditorCliente.pas"> <DCCReference Include="uEditorCliente.pas">
<Form>fEditorCliente</Form> <Form>fEditorCliente</Form>

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

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

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

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

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

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

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

@ -26,9 +26,15 @@ type
cxGridViewBLOQUEADO: TcxGridDBColumn; cxGridViewBLOQUEADO: TcxGridDBColumn;
cxGridViewTiendaWeb: TcxGridDBColumn; cxGridViewTiendaWeb: TcxGridDBColumn;
cxGridViewPERSONA_CONTACTO: TcxGridDBColumn; cxGridViewPERSONA_CONTACTO: TcxGridDBColumn;
cxGridViewPROCEDENCIA_CLIENTE: TcxGridDBColumn;
actProcedencia: TAction;
TBXSeparatorItem1: TTBXSeparatorItem;
TBXItem2: TTBXItem;
procedure cxGridViewCODIGOCustomDrawCell(Sender: TcxCustomGridTableView; procedure cxGridViewCODIGOCustomDrawCell(Sender: TcxCustomGridTableView;
ACanvas: TcxCanvas; AViewInfo: TcxGridTableDataCellViewInfo; ACanvas: TcxCanvas; AViewInfo: TcxGridTableDataCellViewInfo;
var ADone: Boolean); var ADone: Boolean);
procedure actProcedenciaExecute(Sender: TObject);
procedure actProcedenciaUpdate(Sender: TObject);
end; end;
@ -40,6 +46,27 @@ uses uViewGridBase;
{$R *.dfm} {$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( procedure TfrViewClientes.cxGridViewCODIGOCustomDrawCell(
Sender: TcxCustomGridTableView; ACanvas: TcxCanvas; Sender: TcxCustomGridTableView; ACanvas: TcxCanvas;
AViewInfo: TcxGridTableDataCellViewInfo; var ADone: Boolean); 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' DisplayLabel = 'ContratosCliente_NOMBRE_COMERCIAL_CLIENTE'
DictionaryEntry = 'ContratosCliente_NOMBRE_COMERCIAL_CLIENTE' DictionaryEntry = 'ContratosCliente_NOMBRE_COMERCIAL_CLIENTE'
end end
item
Name = 'PROCEDENCIA_CLIENTE'
DataType = datString
Size = 255
end
item item
Name = 'NIF_CIF' Name = 'NIF_CIF'
DataType = datString DataType = datString

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

@ -3,19 +3,19 @@ unit schContratosClienteClient_Intf;
interface interface
uses uses
Classes, DB, SysUtils, uROClasses, uDAInterfaces, uDADataTable, FmtBCD, uROXMLIntf; Classes, DB, schBase_Intf, SysUtils, uROClasses, uDAInterfaces, uDADataTable, FmtBCD, uROXMLIntf;
const const
{ Data table rules ids { Data table rules ids
Feel free to change them to something more human readable Feel free to change them to something more human readable
but make sure they are unique in the context of your application } but make sure they are unique in the context of your application }
RID_Valores = '{EFD1F7C2-8E8E-4AAE-B2C5-7B343C56CABC}'; RID_Valores = '{9AD797AA-D46B-4AE9-9DD1-6BAC6654143D}';
RID_Propiedades = '{4820AA98-F3FF-4077-9FEB-C2E4736BB23B}'; RID_Propiedades = '{09573259-D2FE-4AB6-A029-AC941F33783C}';
RID_ListaAnosContratos = '{3D3572A5-2C27-483B-AA9B-3143CB5C9BA1}'; RID_ListaAnosContratos = '{3285A04A-70B8-4A60-A13F-F7D07D7E7225}';
RID_ContratosClienteBeneficios = '{329FBEE1-47CA-4E16-BA30-0FE155B5FDA5}'; RID_ContratosClienteBeneficios = '{E0BAE351-BBAD-4095-93FB-18C3A4BECCA0}';
RID_ContratosCliente = '{3EBF8421-AFE3-42F9-9B07-525AEE7A2348}'; RID_ContratosCliente = '{36DCC1AC-A433-4CD3-B597-F8599DDEBEE5}';
RID_TiposCapitulos = '{342EFE89-C164-4DF7-8324-ADBB8C121644}'; RID_TiposCapitulos = '{B2D4D441-CBF5-4C00-8D77-C97B1B99524B}';
RID_ContratosCliente_Detalles = '{A2EF3306-B4B6-4109-96EF-20C9F6D82300}'; RID_ContratosCliente_Detalles = '{873F4990-695B-4AEE-9DB2-AA2EB812982A}';
{ Data table names } { Data table names }
nme_Valores = 'Valores'; nme_Valores = 'Valores';
@ -93,6 +93,7 @@ const
fld_ContratosClienteNOMBRE_CLIENTE = 'NOMBRE_CLIENTE'; fld_ContratosClienteNOMBRE_CLIENTE = 'NOMBRE_CLIENTE';
fld_ContratosClienteREF_CLIENTE = 'REF_CLIENTE'; fld_ContratosClienteREF_CLIENTE = 'REF_CLIENTE';
fld_ContratosClienteNOMBRE_COMERCIAL_CLIENTE = 'NOMBRE_COMERCIAL_CLIENTE'; fld_ContratosClienteNOMBRE_COMERCIAL_CLIENTE = 'NOMBRE_COMERCIAL_CLIENTE';
fld_ContratosClientePROCEDENCIA_CLIENTE = 'PROCEDENCIA_CLIENTE';
fld_ContratosClienteNIF_CIF = 'NIF_CIF'; fld_ContratosClienteNIF_CIF = 'NIF_CIF';
fld_ContratosClienteNOMBRE = 'NOMBRE'; fld_ContratosClienteNOMBRE = 'NOMBRE';
fld_ContratosClienteID_DIRECCION = 'ID_DIRECCION'; fld_ContratosClienteID_DIRECCION = 'ID_DIRECCION';
@ -142,47 +143,48 @@ const
idx_ContratosClienteNOMBRE_CLIENTE = 3; idx_ContratosClienteNOMBRE_CLIENTE = 3;
idx_ContratosClienteREF_CLIENTE = 4; idx_ContratosClienteREF_CLIENTE = 4;
idx_ContratosClienteNOMBRE_COMERCIAL_CLIENTE = 5; idx_ContratosClienteNOMBRE_COMERCIAL_CLIENTE = 5;
idx_ContratosClienteNIF_CIF = 6; idx_ContratosClientePROCEDENCIA_CLIENTE = 6;
idx_ContratosClienteNOMBRE = 7; idx_ContratosClienteNIF_CIF = 7;
idx_ContratosClienteID_DIRECCION = 8; idx_ContratosClienteNOMBRE = 8;
idx_ContratosClienteCALLE = 9; idx_ContratosClienteID_DIRECCION = 9;
idx_ContratosClientePOBLACION = 10; idx_ContratosClienteCALLE = 10;
idx_ContratosClientePROVINCIA = 11; idx_ContratosClientePOBLACION = 11;
idx_ContratosClienteCODIGO_POSTAL = 12; idx_ContratosClientePROVINCIA = 12;
idx_ContratosClienteTELEFONO = 13; idx_ContratosClienteCODIGO_POSTAL = 13;
idx_ContratosClienteMOVIL = 14; idx_ContratosClienteTELEFONO = 14;
idx_ContratosClienteREFERENCIA = 15; idx_ContratosClienteMOVIL = 15;
idx_ContratosClienteFECHA_CONTRATO = 16; idx_ContratosClienteREFERENCIA = 16;
idx_ContratosClienteSITUACION = 17; idx_ContratosClienteFECHA_CONTRATO = 17;
idx_ContratosClienteFORMA_PAGO = 18; idx_ContratosClienteSITUACION = 18;
idx_ContratosClientePLAZO_ENTREGA = 19; idx_ContratosClienteFORMA_PAGO = 19;
idx_ContratosClienteOBSERVACIONES = 20; idx_ContratosClientePLAZO_ENTREGA = 20;
idx_ContratosClienteINCIDENCIAS = 21; idx_ContratosClienteOBSERVACIONES = 21;
idx_ContratosClienteINCIDENCIAS_ACTIVAS = 22; idx_ContratosClienteINCIDENCIAS = 22;
idx_ContratosClienteFECHA_ALTA = 23; idx_ContratosClienteINCIDENCIAS_ACTIVAS = 23;
idx_ContratosClienteFECHA_MODIFICACION = 24; idx_ContratosClienteFECHA_ALTA = 24;
idx_ContratosClienteUSUARIO = 25; idx_ContratosClienteFECHA_MODIFICACION = 25;
idx_ContratosClienteRECARGO_EQUIVALENCIA = 26; idx_ContratosClienteUSUARIO = 26;
idx_ContratosClienteRE = 27; idx_ContratosClienteRECARGO_EQUIVALENCIA = 27;
idx_ContratosClienteIMPORTE_RE = 28; idx_ContratosClienteRE = 28;
idx_ContratosClienteID_TIPO_IVA = 29; idx_ContratosClienteIMPORTE_RE = 29;
idx_ContratosClienteIVA = 30; idx_ContratosClienteID_TIPO_IVA = 30;
idx_ContratosClienteIMPORTE_IVA = 31; idx_ContratosClienteIVA = 31;
idx_ContratosClienteIMPORTE_NETO = 32; idx_ContratosClienteIMPORTE_IVA = 32;
idx_ContratosClienteIMPORTE_PORTE = 33; idx_ContratosClienteIMPORTE_NETO = 33;
idx_ContratosClienteID_TIENDA = 34; idx_ContratosClienteIMPORTE_PORTE = 34;
idx_ContratosClienteTIENDA = 35; idx_ContratosClienteID_TIENDA = 35;
idx_ContratosClienteBASE_IMPONIBLE = 36; idx_ContratosClienteTIENDA = 36;
idx_ContratosClienteDESCUENTO = 37; idx_ContratosClienteBASE_IMPONIBLE = 37;
idx_ContratosClienteIMPORTE_DESCUENTO = 38; idx_ContratosClienteDESCUENTO = 38;
idx_ContratosClienteIMPORTE_TOTAL = 39; idx_ContratosClienteIMPORTE_DESCUENTO = 39;
idx_ContratosClienteID_FORMA_PAGO = 40; idx_ContratosClienteIMPORTE_TOTAL = 40;
idx_ContratosClienteID_VENDEDOR = 41; idx_ContratosClienteID_FORMA_PAGO = 41;
idx_ContratosClienteVENDEDOR = 42; idx_ContratosClienteID_VENDEDOR = 42;
idx_ContratosClientePERSONA_CONTACTO = 43; idx_ContratosClienteVENDEDOR = 43;
idx_ContratosClienteTIPO_CONTRATO = 44; idx_ContratosClientePERSONA_CONTACTO = 44;
idx_ContratosClienteREFERENCIA_CLIENTE = 45; idx_ContratosClienteTIPO_CONTRATO = 45;
idx_ContratosClienteFACTURA_ASOCIADA = 46; idx_ContratosClienteREFERENCIA_CLIENTE = 46;
idx_ContratosClienteFACTURA_ASOCIADA = 47;
{ TiposCapitulos fields } { TiposCapitulos fields }
fld_TiposCapitulosID = 'ID'; fld_TiposCapitulosID = 'ID';
@ -241,7 +243,7 @@ const
type type
{ IValores } { IValores }
IValores = interface(IDAStronglyTypedDataTable) IValores = interface(IDAStronglyTypedDataTable)
['{F9BF1948-763A-4CB4-9DF1-35E6C948DDB4}'] ['{6E74F489-85F3-46DC-AC2E-4B4AE491D53B}']
{ Property getters and setters } { Property getters and setters }
function GetIDValue: Integer; function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer); procedure SetIDValue(const aValue: Integer);
@ -267,7 +269,7 @@ type
end; end;
{ TValoresDataTableRules } { TValoresDataTableRules }
TValoresDataTableRules = class(TDADataTableRules, IValores) TValoresDataTableRules = class(TIntfObjectDADataTableRules, IValores)
private private
protected protected
{ Property getters and setters } { Property getters and setters }
@ -300,7 +302,7 @@ type
{ IPropiedades } { IPropiedades }
IPropiedades = interface(IDAStronglyTypedDataTable) IPropiedades = interface(IDAStronglyTypedDataTable)
['{AC649959-C638-4C8A-8B1D-764BB1751371}'] ['{2DB5F8D6-C637-46EE-AA32-88BEAA1E914B}']
{ Property getters and setters } { Property getters and setters }
function GetIDValue: Integer; function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer); procedure SetIDValue(const aValue: Integer);
@ -326,7 +328,7 @@ type
end; end;
{ TPropiedadesDataTableRules } { TPropiedadesDataTableRules }
TPropiedadesDataTableRules = class(TDADataTableRules, IPropiedades) TPropiedadesDataTableRules = class(TIntfObjectDADataTableRules, IPropiedades)
private private
protected protected
{ Property getters and setters } { Property getters and setters }
@ -359,7 +361,7 @@ type
{ IListaAnosContratos } { IListaAnosContratos }
IListaAnosContratos = interface(IDAStronglyTypedDataTable) IListaAnosContratos = interface(IDAStronglyTypedDataTable)
['{A739B752-2CAA-42C8-A07D-BD0A28068E5E}'] ['{7EF2538F-7F91-41F2-BBA5-8E90D546307F}']
{ Property getters and setters } { Property getters and setters }
function GetANOValue: String; function GetANOValue: String;
procedure SetANOValue(const aValue: String); procedure SetANOValue(const aValue: String);
@ -373,7 +375,7 @@ type
end; end;
{ TListaAnosContratosDataTableRules } { TListaAnosContratosDataTableRules }
TListaAnosContratosDataTableRules = class(TDADataTableRules, IListaAnosContratos) TListaAnosContratosDataTableRules = class(TIntfObjectDADataTableRules, IListaAnosContratos)
private private
protected protected
{ Property getters and setters } { Property getters and setters }
@ -394,7 +396,7 @@ type
{ IContratosClienteBeneficios } { IContratosClienteBeneficios }
IContratosClienteBeneficios = interface(IDAStronglyTypedDataTable) IContratosClienteBeneficios = interface(IDAStronglyTypedDataTable)
['{E7667437-590B-4D1C-9762-7242E8107E1A}'] ['{175DC6DA-9682-4343-A2AD-311257C2692A}']
{ Property getters and setters } { Property getters and setters }
function GetIDValue: Integer; function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer); procedure SetIDValue(const aValue: Integer);
@ -492,7 +494,7 @@ type
end; end;
{ TContratosClienteBeneficiosDataTableRules } { TContratosClienteBeneficiosDataTableRules }
TContratosClienteBeneficiosDataTableRules = class(TDADataTableRules, IContratosClienteBeneficios) TContratosClienteBeneficiosDataTableRules = class(TIntfObjectDADataTableRules, IContratosClienteBeneficios)
private private
protected protected
{ Property getters and setters } { Property getters and setters }
@ -597,7 +599,7 @@ type
{ IContratosCliente } { IContratosCliente }
IContratosCliente = interface(IDAStronglyTypedDataTable) IContratosCliente = interface(IDAStronglyTypedDataTable)
['{A6237FAB-2A10-4BBF-B5A6-CF29A326D98F}'] ['{EE4BBA7B-8F6D-4221-9573-423F0D44B0A1}']
{ Property getters and setters } { Property getters and setters }
function GetIDValue: Integer; function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer); procedure SetIDValue(const aValue: Integer);
@ -623,6 +625,10 @@ type
procedure SetNOMBRE_COMERCIAL_CLIENTEValue(const aValue: String); procedure SetNOMBRE_COMERCIAL_CLIENTEValue(const aValue: String);
function GetNOMBRE_COMERCIAL_CLIENTEIsNull: Boolean; function GetNOMBRE_COMERCIAL_CLIENTEIsNull: Boolean;
procedure SetNOMBRE_COMERCIAL_CLIENTEIsNull(const aValue: 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; function GetNIF_CIFValue: String;
procedure SetNIF_CIFValue(const aValue: String); procedure SetNIF_CIFValue(const aValue: String);
function GetNIF_CIFIsNull: Boolean; function GetNIF_CIFIsNull: Boolean;
@ -798,6 +804,8 @@ type
property REF_CLIENTEIsNull: Boolean read GetREF_CLIENTEIsNull write SetREF_CLIENTEIsNull; 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_CLIENTE: String read GetNOMBRE_COMERCIAL_CLIENTEValue write SetNOMBRE_COMERCIAL_CLIENTEValue;
property NOMBRE_COMERCIAL_CLIENTEIsNull: Boolean read GetNOMBRE_COMERCIAL_CLIENTEIsNull write SetNOMBRE_COMERCIAL_CLIENTEIsNull; 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_CIF: String read GetNIF_CIFValue write SetNIF_CIFValue;
property NIF_CIFIsNull: Boolean read GetNIF_CIFIsNull write SetNIF_CIFIsNull; property NIF_CIFIsNull: Boolean read GetNIF_CIFIsNull write SetNIF_CIFIsNull;
property NOMBRE: String read GetNOMBREValue write SetNOMBREValue; property NOMBRE: String read GetNOMBREValue write SetNOMBREValue;
@ -883,7 +891,7 @@ type
end; end;
{ TContratosClienteDataTableRules } { TContratosClienteDataTableRules }
TContratosClienteDataTableRules = class(TDADataTableRules, IContratosCliente) TContratosClienteDataTableRules = class(TIntfObjectDADataTableRules, IContratosCliente)
private private
f_FORMA_PAGO: IROStrings; f_FORMA_PAGO: IROStrings;
f_PLAZO_ENTREGA: IROStrings; f_PLAZO_ENTREGA: IROStrings;
@ -919,6 +927,10 @@ type
procedure SetNOMBRE_COMERCIAL_CLIENTEValue(const aValue: String); virtual; procedure SetNOMBRE_COMERCIAL_CLIENTEValue(const aValue: String); virtual;
function GetNOMBRE_COMERCIAL_CLIENTEIsNull: Boolean; virtual; function GetNOMBRE_COMERCIAL_CLIENTEIsNull: Boolean; virtual;
procedure SetNOMBRE_COMERCIAL_CLIENTEIsNull(const aValue: 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; function GetNIF_CIFValue: String; virtual;
procedure SetNIF_CIFValue(const aValue: String); virtual; procedure SetNIF_CIFValue(const aValue: String); virtual;
function GetNIF_CIFIsNull: Boolean; virtual; function GetNIF_CIFIsNull: Boolean; virtual;
@ -1093,6 +1105,8 @@ type
property REF_CLIENTEIsNull: Boolean read GetREF_CLIENTEIsNull write SetREF_CLIENTEIsNull; 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_CLIENTE: String read GetNOMBRE_COMERCIAL_CLIENTEValue write SetNOMBRE_COMERCIAL_CLIENTEValue;
property NOMBRE_COMERCIAL_CLIENTEIsNull: Boolean read GetNOMBRE_COMERCIAL_CLIENTEIsNull write SetNOMBRE_COMERCIAL_CLIENTEIsNull; 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_CIF: String read GetNIF_CIFValue write SetNIF_CIFValue;
property NIF_CIFIsNull: Boolean read GetNIF_CIFIsNull write SetNIF_CIFIsNull; property NIF_CIFIsNull: Boolean read GetNIF_CIFIsNull write SetNIF_CIFIsNull;
property NOMBRE: String read GetNOMBREValue write SetNOMBREValue; property NOMBRE: String read GetNOMBREValue write SetNOMBREValue;
@ -1187,7 +1201,7 @@ type
} }
{ ITiposCapitulos } { ITiposCapitulos }
ITiposCapitulos = interface(IDAStronglyTypedDataTable) ITiposCapitulos = interface(IDAStronglyTypedDataTable)
['{5AE90EC7-AD94-4636-A2B9-44465BB62E8D}'] ['{2B50B74F-8959-47A2-BED3-7B4812D6187A}']
{ Property getters and setters } { Property getters and setters }
function GetIDValue: Integer; function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer); procedure SetIDValue(const aValue: Integer);
@ -1231,7 +1245,7 @@ type
end; end;
{ TTiposCapitulosDataTableRules } { TTiposCapitulosDataTableRules }
TTiposCapitulosDataTableRules = class(TDADataTableRules, ITiposCapitulos) TTiposCapitulosDataTableRules = class(TIntfObjectDADataTableRules, ITiposCapitulos)
private private
protected protected
{ Property getters and setters } { Property getters and setters }
@ -1282,7 +1296,7 @@ type
{ IContratosCliente_Detalles } { IContratosCliente_Detalles }
IContratosCliente_Detalles = interface(IDAStronglyTypedDataTable) IContratosCliente_Detalles = interface(IDAStronglyTypedDataTable)
['{D463BB1A-F962-4B97-AE5E-FDBB7D58439E}'] ['{7CDC601E-7E87-402A-8C14-0C92B0C123E9}']
{ Property getters and setters } { Property getters and setters }
function GetIDValue: Integer; function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer); procedure SetIDValue(const aValue: Integer);
@ -1392,7 +1406,7 @@ type
end; end;
{ TContratosCliente_DetallesDataTableRules } { TContratosCliente_DetallesDataTableRules }
TContratosCliente_DetallesDataTableRules = class(TDADataTableRules, IContratosCliente_Detalles) TContratosCliente_DetallesDataTableRules = class(TIntfObjectDADataTableRules, IContratosCliente_Detalles)
private private
protected protected
{ Property getters and setters } { Property getters and setters }
@ -2196,6 +2210,27 @@ begin
DataTable.Fields[idx_ContratosClienteNOMBRE_COMERCIAL_CLIENTE].AsVariant := Null; DataTable.Fields[idx_ContratosClienteNOMBRE_COMERCIAL_CLIENTE].AsVariant := Null;
end; 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; function TContratosClienteDataTableRules.GetNIF_CIFValue: String;
begin begin
result := DataTable.Fields[idx_ContratosClienteNIF_CIF].AsString; 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 { Delta rules ids
Feel free to change them to something more human readable Feel free to change them to something more human readable
but make sure they are unique in the context of your application } but make sure they are unique in the context of your application }
RID_ValoresDelta = '{6D64F831-7B58-4A9E-9180-0CE187DC1F33}'; RID_ValoresDelta = '{C3B5AAD1-9E86-48CC-BB2A-F57573EF5C77}';
RID_PropiedadesDelta = '{00F00B68-D182-4416-83C1-3850142A5B63}'; RID_PropiedadesDelta = '{DD5F6AC0-3F77-4E30-A969-7914F1E20C35}';
RID_ListaAnosContratosDelta = '{7E698FA6-63C1-49A6-BAF4-5958D8B922E1}'; RID_ListaAnosContratosDelta = '{A6AD38DE-D89D-4026-8EC6-4C6544AAFF71}';
RID_ContratosClienteBeneficiosDelta = '{ACA5ABBD-4284-4E2B-AE63-9F9DACC26E93}'; RID_ContratosClienteBeneficiosDelta = '{636C6919-7CB6-4F1D-A7BB-8880E13A3B4A}';
RID_ContratosClienteDelta = '{E74263B4-9F80-48FF-8228-19422AFDBA51}'; RID_ContratosClienteDelta = '{5F703D9D-DB14-4081-A55C-18940FC569D1}';
RID_TiposCapitulosDelta = '{82C3C976-5C8E-41F2-A0A9-B8028E119613}'; RID_TiposCapitulosDelta = '{1F7BEA81-2AD5-42AB-9113-8AA803914CFE}';
RID_ContratosCliente_DetallesDelta = '{55A68F42-1449-47F7-BCD9-E5613C7AED8B}'; RID_ContratosCliente_DetallesDelta = '{9DB335CB-ADD8-4604-8213-C5EDCFE7B5A9}';
type type
{ IValoresDelta } { IValoresDelta }
IValoresDelta = interface(IValores) IValoresDelta = interface(IValores)
['{6D64F831-7B58-4A9E-9180-0CE187DC1F33}'] ['{C3B5AAD1-9E86-48CC-BB2A-F57573EF5C77}']
{ Property getters and setters } { Property getters and setters }
function GetOldIDValue : Integer; function GetOldIDValue : Integer;
function GetOldID_PROPIEDADValue : Integer; function GetOldID_PROPIEDADValue : Integer;
@ -78,7 +78,7 @@ type
{ IPropiedadesDelta } { IPropiedadesDelta }
IPropiedadesDelta = interface(IPropiedades) IPropiedadesDelta = interface(IPropiedades)
['{00F00B68-D182-4416-83C1-3850142A5B63}'] ['{DD5F6AC0-3F77-4E30-A969-7914F1E20C35}']
{ Property getters and setters } { Property getters and setters }
function GetOldIDValue : Integer; function GetOldIDValue : Integer;
function GetOldDESCRIPCIONValue : String; function GetOldDESCRIPCIONValue : String;
@ -136,7 +136,7 @@ type
{ IListaAnosContratosDelta } { IListaAnosContratosDelta }
IListaAnosContratosDelta = interface(IListaAnosContratos) IListaAnosContratosDelta = interface(IListaAnosContratos)
['{7E698FA6-63C1-49A6-BAF4-5958D8B922E1}'] ['{A6AD38DE-D89D-4026-8EC6-4C6544AAFF71}']
{ Property getters and setters } { Property getters and setters }
function GetOldANOValue : String; function GetOldANOValue : String;
@ -170,7 +170,7 @@ type
{ IContratosClienteBeneficiosDelta } { IContratosClienteBeneficiosDelta }
IContratosClienteBeneficiosDelta = interface(IContratosClienteBeneficios) IContratosClienteBeneficiosDelta = interface(IContratosClienteBeneficios)
['{ACA5ABBD-4284-4E2B-AE63-9F9DACC26E93}'] ['{636C6919-7CB6-4F1D-A7BB-8880E13A3B4A}']
{ Property getters and setters } { Property getters and setters }
function GetOldIDValue : Integer; function GetOldIDValue : Integer;
function GetOldREFERENCIAValue : String; function GetOldREFERENCIAValue : String;
@ -372,7 +372,7 @@ type
{ IContratosClienteDelta } { IContratosClienteDelta }
IContratosClienteDelta = interface(IContratosCliente) IContratosClienteDelta = interface(IContratosCliente)
['{E74263B4-9F80-48FF-8228-19422AFDBA51}'] ['{5F703D9D-DB14-4081-A55C-18940FC569D1}']
{ Property getters and setters } { Property getters and setters }
function GetOldIDValue : Integer; function GetOldIDValue : Integer;
function GetOldID_EMPRESAValue : Integer; function GetOldID_EMPRESAValue : Integer;
@ -380,6 +380,7 @@ type
function GetOldNOMBRE_CLIENTEValue : String; function GetOldNOMBRE_CLIENTEValue : String;
function GetOldREF_CLIENTEValue : String; function GetOldREF_CLIENTEValue : String;
function GetOldNOMBRE_COMERCIAL_CLIENTEValue : String; function GetOldNOMBRE_COMERCIAL_CLIENTEValue : String;
function GetOldPROCEDENCIA_CLIENTEValue : String;
function GetOldNIF_CIFValue : String; function GetOldNIF_CIFValue : String;
function GetOldNOMBREValue : String; function GetOldNOMBREValue : String;
function GetOldID_DIRECCIONValue : Integer; function GetOldID_DIRECCIONValue : Integer;
@ -429,6 +430,7 @@ type
property OldNOMBRE_CLIENTE : String read GetOldNOMBRE_CLIENTEValue; property OldNOMBRE_CLIENTE : String read GetOldNOMBRE_CLIENTEValue;
property OldREF_CLIENTE : String read GetOldREF_CLIENTEValue; property OldREF_CLIENTE : String read GetOldREF_CLIENTEValue;
property OldNOMBRE_COMERCIAL_CLIENTE : String read GetOldNOMBRE_COMERCIAL_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 OldNIF_CIF : String read GetOldNIF_CIFValue;
property OldNOMBRE : String read GetOldNOMBREValue; property OldNOMBRE : String read GetOldNOMBREValue;
property OldID_DIRECCION : Integer read GetOldID_DIRECCIONValue; property OldID_DIRECCION : Integer read GetOldID_DIRECCIONValue;
@ -521,6 +523,12 @@ type
function GetOldNOMBRE_COMERCIAL_CLIENTEIsNull: Boolean; virtual; function GetOldNOMBRE_COMERCIAL_CLIENTEIsNull: Boolean; virtual;
procedure SetNOMBRE_COMERCIAL_CLIENTEValue(const aValue: String); virtual; procedure SetNOMBRE_COMERCIAL_CLIENTEValue(const aValue: String); virtual;
procedure SetNOMBRE_COMERCIAL_CLIENTEIsNull(const aValue: Boolean); 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_CIFValue: String; virtual;
function GetNIF_CIFIsNull: Boolean; virtual; function GetNIF_CIFIsNull: Boolean; virtual;
function GetOldNIF_CIFValue: String; 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 NOMBRE_COMERCIAL_CLIENTEIsNull : Boolean read GetNOMBRE_COMERCIAL_CLIENTEIsNull write SetNOMBRE_COMERCIAL_CLIENTEIsNull;
property OldNOMBRE_COMERCIAL_CLIENTE : String read GetOldNOMBRE_COMERCIAL_CLIENTEValue; property OldNOMBRE_COMERCIAL_CLIENTE : String read GetOldNOMBRE_COMERCIAL_CLIENTEValue;
property OldNOMBRE_COMERCIAL_CLIENTEIsNull : Boolean read GetOldNOMBRE_COMERCIAL_CLIENTEIsNull; 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_CIF : String read GetNIF_CIFValue write SetNIF_CIFValue;
property NIF_CIFIsNull : Boolean read GetNIF_CIFIsNull write SetNIF_CIFIsNull; property NIF_CIFIsNull : Boolean read GetNIF_CIFIsNull write SetNIF_CIFIsNull;
property OldNIF_CIF : String read GetOldNIF_CIFValue; property OldNIF_CIF : String read GetOldNIF_CIFValue;
@ -962,7 +974,7 @@ type
{ ITiposCapitulosDelta } { ITiposCapitulosDelta }
ITiposCapitulosDelta = interface(ITiposCapitulos) ITiposCapitulosDelta = interface(ITiposCapitulos)
['{82C3C976-5C8E-41F2-A0A9-B8028E119613}'] ['{1F7BEA81-2AD5-42AB-9113-8AA803914CFE}']
{ Property getters and setters } { Property getters and setters }
function GetOldIDValue : Integer; function GetOldIDValue : Integer;
function GetOldPOSICIONValue : Integer; function GetOldPOSICIONValue : Integer;
@ -1056,7 +1068,7 @@ type
{ IContratosCliente_DetallesDelta } { IContratosCliente_DetallesDelta }
IContratosCliente_DetallesDelta = interface(IContratosCliente_Detalles) IContratosCliente_DetallesDelta = interface(IContratosCliente_Detalles)
['{55A68F42-1449-47F7-BCD9-E5613C7AED8B}'] ['{9DB335CB-ADD8-4604-8213-C5EDCFE7B5A9}']
{ Property getters and setters } { Property getters and setters }
function GetOldIDValue : Integer; function GetOldIDValue : Integer;
function GetOldID_CONTRATOValue : Integer; function GetOldID_CONTRATOValue : Integer;
@ -2250,6 +2262,37 @@ begin
BusinessProcessor.CurrentChange.NewValueByName[fld_ContratosClienteNOMBRE_COMERCIAL_CLIENTE] := Null; BusinessProcessor.CurrentChange.NewValueByName[fld_ContratosClienteNOMBRE_COMERCIAL_CLIENTE] := Null;
end; 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; function TContratosClienteBusinessProcessorRules.GetNIF_CIFValue: String;
begin begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_ContratosClienteNIF_CIF]; 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 item
DatasetField = 'FACTURA_ASOCIADA' DatasetField = 'FACTURA_ASOCIADA'
TableField = 'FACTURA_ASOCIADA' TableField = 'FACTURA_ASOCIADA'
end
item
DatasetField = 'PROCEDENCIA_CLIENTE'
TableField = 'PROCEDENCIA_CLIENTE'
end> end>
end> end>
Name = 'ContratosCliente' Name = 'ContratosCliente'
@ -509,6 +513,11 @@ object srvContratosCliente: TsrvContratosCliente
Size = 255 Size = 255
DictionaryEntry = 'ContratosCliente_NOMBRE_COMERCIAL_CLIENTE' DictionaryEntry = 'ContratosCliente_NOMBRE_COMERCIAL_CLIENTE'
end end
item
Name = 'PROCEDENCIA_CLIENTE'
DataType = datString
Size = 255
end
item item
Name = 'NIF_CIF' Name = 'NIF_CIF'
DataType = datString 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 BestFitMaxWidth = 25
Width = 75 Width = 75
end end
object cxGridViewPROCEDENCIA_CLIENTE: TcxGridDBColumn
Caption = 'Procedencia'
DataBinding.FieldName = 'PROCEDENCIA_CLIENTE'
end
object cxGridViewNOMBRE: TcxGridDBColumn object cxGridViewNOMBRE: TcxGridDBColumn
Caption = 'Nombre' Caption = 'Nombre'
DataBinding.FieldName = 'NOMBRE' DataBinding.FieldName = 'NOMBRE'
@ -213,6 +217,11 @@ inherited frViewContratosCliente: TfrViewContratosCliente
object TBXItem3: TTBXItem object TBXItem3: TTBXItem
Action = actCliente Action = actCliente
end end
object TBXSeparatorItem1: TTBXSeparatorItem
end
object TBXItem2: TTBXItem
Action = actProcedencia
end
end end
end end
end end
@ -238,6 +247,11 @@ inherited frViewContratosCliente: TfrViewContratosCliente
OnExecute = actClienteExecute OnExecute = actClienteExecute
OnUpdate = actClienteUpdate OnUpdate = actClienteUpdate
end end
object actProcedencia: TAction
Caption = 'Procedencia'
OnExecute = actProcedenciaExecute
OnUpdate = actProcedenciaUpdate
end
end end
inherited GridPNGImageList: TPngImageList inherited GridPNGImageList: TPngImageList
PngImages = < PngImages = <

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

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

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

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

111
Source/Modulos/Facturas de cliente/Model/schFacturasClienteClient_Intf.pas
View File

@ -9,9 +9,9 @@ const
{ Data table rules ids { Data table rules ids
Feel free to change them to something more human readable Feel free to change them to something more human readable
but make sure they are unique in the context of your application } but make sure they are unique in the context of your application }
RID_ListaAnosFacturas = '{7D65E46A-1501-412C-A702-00A1827BA01E}'; RID_ListaAnosFacturas = '{B9CBCAB7-D06E-41B6-A2AF-5DE26CB818F4}';
RID_FacturasCliente = '{7CBEA816-E87B-47DF-AF37-8A26F50A8F89}'; RID_FacturasCliente = '{C3E309EB-4021-4446-81DD-452C015CA0FA}';
RID_FacturasCliente_Detalles = '{01274CC5-0F80-420B-9D15-D762FD8FAACA}'; RID_FacturasCliente_Detalles = '{AF710A72-947F-483D-8DAD-66A9E58E0541}';
{ Data table names } { Data table names }
nme_ListaAnosFacturas = 'ListaAnosFacturas'; nme_ListaAnosFacturas = 'ListaAnosFacturas';
@ -46,6 +46,7 @@ const
fld_FacturasClienteREFERENCIA_CLIENTE = 'REFERENCIA_CLIENTE'; fld_FacturasClienteREFERENCIA_CLIENTE = 'REFERENCIA_CLIENTE';
fld_FacturasClienteNOMBRE_CLIENTE = 'NOMBRE_CLIENTE'; fld_FacturasClienteNOMBRE_CLIENTE = 'NOMBRE_CLIENTE';
fld_FacturasClienteNOMBRE_COMERCIAL_CLIENTE = 'NOMBRE_COMERCIAL_CLIENTE'; fld_FacturasClienteNOMBRE_COMERCIAL_CLIENTE = 'NOMBRE_COMERCIAL_CLIENTE';
fld_FacturasClientePROCEDENCIA_CLIENTE = 'PROCEDENCIA_CLIENTE';
fld_FacturasClienteNIF_CIF = 'NIF_CIF'; fld_FacturasClienteNIF_CIF = 'NIF_CIF';
fld_FacturasClienteNOMBRE = 'NOMBRE'; fld_FacturasClienteNOMBRE = 'NOMBRE';
fld_FacturasClienteID_DIRECCION = 'ID_DIRECCION'; fld_FacturasClienteID_DIRECCION = 'ID_DIRECCION';
@ -101,38 +102,39 @@ const
idx_FacturasClienteREFERENCIA_CLIENTE = 18; idx_FacturasClienteREFERENCIA_CLIENTE = 18;
idx_FacturasClienteNOMBRE_CLIENTE = 19; idx_FacturasClienteNOMBRE_CLIENTE = 19;
idx_FacturasClienteNOMBRE_COMERCIAL_CLIENTE = 20; idx_FacturasClienteNOMBRE_COMERCIAL_CLIENTE = 20;
idx_FacturasClienteNIF_CIF = 21; idx_FacturasClientePROCEDENCIA_CLIENTE = 21;
idx_FacturasClienteNOMBRE = 22; idx_FacturasClienteNIF_CIF = 22;
idx_FacturasClienteID_DIRECCION = 23; idx_FacturasClienteNOMBRE = 23;
idx_FacturasClienteCALLE = 24; idx_FacturasClienteID_DIRECCION = 24;
idx_FacturasClientePOBLACION = 25; idx_FacturasClienteCALLE = 25;
idx_FacturasClientePROVINCIA = 26; idx_FacturasClientePOBLACION = 26;
idx_FacturasClienteCODIGO_POSTAL = 27; idx_FacturasClientePROVINCIA = 27;
idx_FacturasClienteFECHA_ALTA = 28; idx_FacturasClienteCODIGO_POSTAL = 28;
idx_FacturasClienteFECHA_MODIFICACION = 29; idx_FacturasClienteFECHA_ALTA = 29;
idx_FacturasClienteUSUARIO = 30; idx_FacturasClienteFECHA_MODIFICACION = 30;
idx_FacturasClienteID_FORMA_PAGO = 31; idx_FacturasClienteUSUARIO = 31;
idx_FacturasClienteRECARGO_EQUIVALENCIA = 32; idx_FacturasClienteID_FORMA_PAGO = 32;
idx_FacturasClienteID_TIPO_IVA = 33; idx_FacturasClienteRECARGO_EQUIVALENCIA = 33;
idx_FacturasClienteIMPORTE_NETO = 34; idx_FacturasClienteID_TIPO_IVA = 34;
idx_FacturasClienteIMPORTE_PORTE = 35; idx_FacturasClienteIMPORTE_NETO = 35;
idx_FacturasClienteID_AGENTE = 36; idx_FacturasClienteIMPORTE_PORTE = 36;
idx_FacturasClienteREFERENCIA_COMISION = 37; idx_FacturasClienteID_AGENTE = 37;
idx_FacturasClienteIGNORAR_CONTABILIDAD = 38; idx_FacturasClienteREFERENCIA_COMISION = 38;
idx_FacturasClienteID_TIENDA = 39; idx_FacturasClienteIGNORAR_CONTABILIDAD = 39;
idx_FacturasClienteTIENDA = 40; idx_FacturasClienteID_TIENDA = 40;
idx_FacturasClienteID_SUBCUENTA = 41; idx_FacturasClienteTIENDA = 41;
idx_FacturasClienteSUBCUENTA = 42; idx_FacturasClienteID_SUBCUENTA = 42;
idx_FacturasClienteID_EJERCICIO = 43; idx_FacturasClienteSUBCUENTA = 43;
idx_FacturasClienteESTADO_EJERCICIO = 44; idx_FacturasClienteID_EJERCICIO = 44;
idx_FacturasClienteASIENTO_PUNTEADO = 45; idx_FacturasClienteESTADO_EJERCICIO = 45;
idx_FacturasClienteID_CONTRATO = 46; idx_FacturasClienteASIENTO_PUNTEADO = 46;
idx_FacturasClienteREF_CONTRATO = 47; idx_FacturasClienteID_CONTRATO = 47;
idx_FacturasClienteREF_CLI_CONTRATO = 48; idx_FacturasClienteREF_CONTRATO = 48;
idx_FacturasClienteSIN_COMISION = 49; idx_FacturasClienteREF_CLI_CONTRATO = 49;
idx_FacturasClienteRETENCION = 50; idx_FacturasClienteSIN_COMISION = 50;
idx_FacturasClienteIMPORTE_RETENCION = 51; idx_FacturasClienteRETENCION = 51;
idx_FacturasClienteFECHA_RETENCION = 52; idx_FacturasClienteIMPORTE_RETENCION = 52;
idx_FacturasClienteFECHA_RETENCION = 53;
{ FacturasCliente_Detalles fields } { FacturasCliente_Detalles fields }
fld_FacturasCliente_DetallesID = 'ID'; fld_FacturasCliente_DetallesID = 'ID';
@ -171,7 +173,7 @@ const
type type
{ IListaAnosFacturas } { IListaAnosFacturas }
IListaAnosFacturas = interface(IDAStronglyTypedDataTable) IListaAnosFacturas = interface(IDAStronglyTypedDataTable)
['{C550D0F5-A742-4987-B656-2D1B8536B137}'] ['{BFABF626-A281-4D4E-B44B-7B40EADA006D}']
{ Property getters and setters } { Property getters and setters }
function GetANOValue: String; function GetANOValue: String;
procedure SetANOValue(const aValue: String); procedure SetANOValue(const aValue: String);
@ -206,7 +208,7 @@ type
{ IFacturasCliente } { IFacturasCliente }
IFacturasCliente = interface(IDAStronglyTypedDataTable) IFacturasCliente = interface(IDAStronglyTypedDataTable)
['{5952F24E-C317-4659-B13F-23500E1555FF}'] ['{9539259F-170A-4008-BB16-3F91D42113EB}']
{ Property getters and setters } { Property getters and setters }
function GetIDValue: Integer; function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer); procedure SetIDValue(const aValue: Integer);
@ -291,6 +293,10 @@ type
procedure SetNOMBRE_COMERCIAL_CLIENTEValue(const aValue: String); procedure SetNOMBRE_COMERCIAL_CLIENTEValue(const aValue: String);
function GetNOMBRE_COMERCIAL_CLIENTEIsNull: Boolean; function GetNOMBRE_COMERCIAL_CLIENTEIsNull: Boolean;
procedure SetNOMBRE_COMERCIAL_CLIENTEIsNull(const aValue: 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; function GetNIF_CIFValue: String;
procedure SetNIF_CIFValue(const aValue: String); procedure SetNIF_CIFValue(const aValue: String);
function GetNIF_CIFIsNull: Boolean; function GetNIF_CIFIsNull: Boolean;
@ -464,6 +470,8 @@ type
property NOMBRE_CLIENTEIsNull: Boolean read GetNOMBRE_CLIENTEIsNull write SetNOMBRE_CLIENTEIsNull; 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_CLIENTE: String read GetNOMBRE_COMERCIAL_CLIENTEValue write SetNOMBRE_COMERCIAL_CLIENTEValue;
property NOMBRE_COMERCIAL_CLIENTEIsNull: Boolean read GetNOMBRE_COMERCIAL_CLIENTEIsNull write SetNOMBRE_COMERCIAL_CLIENTEIsNull; 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_CIF: String read GetNIF_CIFValue write SetNIF_CIFValue;
property NIF_CIFIsNull: Boolean read GetNIF_CIFIsNull write SetNIF_CIFIsNull; property NIF_CIFIsNull: Boolean read GetNIF_CIFIsNull write SetNIF_CIFIsNull;
property NOMBRE: String read GetNOMBREValue write SetNOMBREValue; property NOMBRE: String read GetNOMBREValue write SetNOMBREValue;
@ -620,6 +628,10 @@ type
procedure SetNOMBRE_COMERCIAL_CLIENTEValue(const aValue: String); virtual; procedure SetNOMBRE_COMERCIAL_CLIENTEValue(const aValue: String); virtual;
function GetNOMBRE_COMERCIAL_CLIENTEIsNull: Boolean; virtual; function GetNOMBRE_COMERCIAL_CLIENTEIsNull: Boolean; virtual;
procedure SetNOMBRE_COMERCIAL_CLIENTEIsNull(const aValue: 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; function GetNIF_CIFValue: String; virtual;
procedure SetNIF_CIFValue(const aValue: String); virtual; procedure SetNIF_CIFValue(const aValue: String); virtual;
function GetNIF_CIFIsNull: Boolean; virtual; function GetNIF_CIFIsNull: Boolean; virtual;
@ -792,6 +804,8 @@ type
property NOMBRE_CLIENTEIsNull: Boolean read GetNOMBRE_CLIENTEIsNull write SetNOMBRE_CLIENTEIsNull; 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_CLIENTE: String read GetNOMBRE_COMERCIAL_CLIENTEValue write SetNOMBRE_COMERCIAL_CLIENTEValue;
property NOMBRE_COMERCIAL_CLIENTEIsNull: Boolean read GetNOMBRE_COMERCIAL_CLIENTEIsNull write SetNOMBRE_COMERCIAL_CLIENTEIsNull; 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_CIF: String read GetNIF_CIFValue write SetNIF_CIFValue;
property NIF_CIFIsNull: Boolean read GetNIF_CIFIsNull write SetNIF_CIFIsNull; property NIF_CIFIsNull: Boolean read GetNIF_CIFIsNull write SetNIF_CIFIsNull;
property NOMBRE: String read GetNOMBREValue write SetNOMBREValue; property NOMBRE: String read GetNOMBREValue write SetNOMBREValue;
@ -865,7 +879,7 @@ type
{ IFacturasCliente_Detalles } { IFacturasCliente_Detalles }
IFacturasCliente_Detalles = interface(IDAStronglyTypedDataTable) IFacturasCliente_Detalles = interface(IDAStronglyTypedDataTable)
['{75045275-7B22-4D9A-A1BF-D5169B86855C}'] ['{FE6D0998-F3A0-4271-9C1D-1840F9E1F578}']
{ Property getters and setters } { Property getters and setters }
function GetIDValue: Integer; function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer); procedure SetIDValue(const aValue: Integer);
@ -1562,6 +1576,27 @@ begin
DataTable.Fields[idx_FacturasClienteNOMBRE_COMERCIAL_CLIENTE].AsVariant := Null; DataTable.Fields[idx_FacturasClienteNOMBRE_COMERCIAL_CLIENTE].AsVariant := Null;
end; 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; function TFacturasClienteDataTableRules.GetNIF_CIFValue: String;
begin begin
result := DataTable.Fields[idx_FacturasClienteNIF_CIF].AsString; 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 { Delta rules ids
Feel free to change them to something more human readable Feel free to change them to something more human readable
but make sure they are unique in the context of your application } but make sure they are unique in the context of your application }
RID_ListaAnosFacturasDelta = '{491A2F25-2666-44F0-9840-E59A6F5FE91C}'; RID_ListaAnosFacturasDelta = '{488EEBD9-F334-4412-B42F-CD53EDADEFF2}';
RID_FacturasClienteDelta = '{E71F6BB9-24D4-45DC-872F-63B1B6081CEA}'; RID_FacturasClienteDelta = '{75964CD6-B60B-485C-BEA0-AF384F111E00}';
RID_FacturasCliente_DetallesDelta = '{1AA87512-9077-40A2-80E2-62DEBD690640}'; RID_FacturasCliente_DetallesDelta = '{D8C6075B-EF61-4846-9BC6-F4CD5D416FBD}';
type type
{ IListaAnosFacturasDelta } { IListaAnosFacturasDelta }
IListaAnosFacturasDelta = interface(IListaAnosFacturas) IListaAnosFacturasDelta = interface(IListaAnosFacturas)
['{491A2F25-2666-44F0-9840-E59A6F5FE91C}'] ['{488EEBD9-F334-4412-B42F-CD53EDADEFF2}']
{ Property getters and setters } { Property getters and setters }
function GetOldANOValue : String; function GetOldANOValue : String;
@ -50,7 +50,7 @@ type
{ IFacturasClienteDelta } { IFacturasClienteDelta }
IFacturasClienteDelta = interface(IFacturasCliente) IFacturasClienteDelta = interface(IFacturasCliente)
['{E71F6BB9-24D4-45DC-872F-63B1B6081CEA}'] ['{75964CD6-B60B-485C-BEA0-AF384F111E00}']
{ Property getters and setters } { Property getters and setters }
function GetOldIDValue : Integer; function GetOldIDValue : Integer;
function GetOldID_EMPRESAValue : Integer; function GetOldID_EMPRESAValue : Integer;
@ -73,6 +73,7 @@ type
function GetOldREFERENCIA_CLIENTEValue : String; function GetOldREFERENCIA_CLIENTEValue : String;
function GetOldNOMBRE_CLIENTEValue : String; function GetOldNOMBRE_CLIENTEValue : String;
function GetOldNOMBRE_COMERCIAL_CLIENTEValue : String; function GetOldNOMBRE_COMERCIAL_CLIENTEValue : String;
function GetOldPROCEDENCIA_CLIENTEValue : String;
function GetOldNIF_CIFValue : String; function GetOldNIF_CIFValue : String;
function GetOldNOMBREValue : String; function GetOldNOMBREValue : String;
function GetOldID_DIRECCIONValue : Integer; function GetOldID_DIRECCIONValue : Integer;
@ -128,6 +129,7 @@ type
property OldREFERENCIA_CLIENTE : String read GetOldREFERENCIA_CLIENTEValue; property OldREFERENCIA_CLIENTE : String read GetOldREFERENCIA_CLIENTEValue;
property OldNOMBRE_CLIENTE : String read GetOldNOMBRE_CLIENTEValue; property OldNOMBRE_CLIENTE : String read GetOldNOMBRE_CLIENTEValue;
property OldNOMBRE_COMERCIAL_CLIENTE : String read GetOldNOMBRE_COMERCIAL_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 OldNIF_CIF : String read GetOldNIF_CIFValue;
property OldNOMBRE : String read GetOldNOMBREValue; property OldNOMBRE : String read GetOldNOMBREValue;
property OldID_DIRECCION : Integer read GetOldID_DIRECCIONValue; property OldID_DIRECCION : Integer read GetOldID_DIRECCIONValue;
@ -294,6 +296,12 @@ type
function GetOldNOMBRE_COMERCIAL_CLIENTEIsNull: Boolean; virtual; function GetOldNOMBRE_COMERCIAL_CLIENTEIsNull: Boolean; virtual;
procedure SetNOMBRE_COMERCIAL_CLIENTEValue(const aValue: String); virtual; procedure SetNOMBRE_COMERCIAL_CLIENTEValue(const aValue: String); virtual;
procedure SetNOMBRE_COMERCIAL_CLIENTEIsNull(const aValue: Boolean); 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_CIFValue: String; virtual;
function GetNIF_CIFIsNull: Boolean; virtual; function GetNIF_CIFIsNull: Boolean; virtual;
function GetOldNIF_CIFValue: String; 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 NOMBRE_COMERCIAL_CLIENTEIsNull : Boolean read GetNOMBRE_COMERCIAL_CLIENTEIsNull write SetNOMBRE_COMERCIAL_CLIENTEIsNull;
property OldNOMBRE_COMERCIAL_CLIENTE : String read GetOldNOMBRE_COMERCIAL_CLIENTEValue; property OldNOMBRE_COMERCIAL_CLIENTE : String read GetOldNOMBRE_COMERCIAL_CLIENTEValue;
property OldNOMBRE_COMERCIAL_CLIENTEIsNull : Boolean read GetOldNOMBRE_COMERCIAL_CLIENTEIsNull; 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_CIF : String read GetNIF_CIFValue write SetNIF_CIFValue;
property NIF_CIFIsNull : Boolean read GetNIF_CIFIsNull write SetNIF_CIFIsNull; property NIF_CIFIsNull : Boolean read GetNIF_CIFIsNull write SetNIF_CIFIsNull;
property OldNIF_CIF : String read GetOldNIF_CIFValue; property OldNIF_CIF : String read GetOldNIF_CIFValue;
@ -709,7 +721,7 @@ type
{ IFacturasCliente_DetallesDelta } { IFacturasCliente_DetallesDelta }
IFacturasCliente_DetallesDelta = interface(IFacturasCliente_Detalles) IFacturasCliente_DetallesDelta = interface(IFacturasCliente_Detalles)
['{1AA87512-9077-40A2-80E2-62DEBD690640}'] ['{D8C6075B-EF61-4846-9BC6-F4CD5D416FBD}']
{ Property getters and setters } { Property getters and setters }
function GetOldIDValue : Integer; function GetOldIDValue : Integer;
function GetOldID_FACTURAValue : Integer; function GetOldID_FACTURAValue : Integer;
@ -1627,6 +1639,37 @@ begin
BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasClienteNOMBRE_COMERCIAL_CLIENTE] := Null; BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasClienteNOMBRE_COMERCIAL_CLIENTE] := Null;
end; 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; function TFacturasClienteBusinessProcessorRules.GetNIF_CIFValue: String;
begin begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasClienteNIF_CIF]; 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 item
DatasetField = 'FECHA_RETENCION' DatasetField = 'FECHA_RETENCION'
TableField = 'FECHA_RETENCION' TableField = 'FECHA_RETENCION'
end
item
DatasetField = 'PROCEDENCIA_CLIENTE'
TableField = 'PROCEDENCIA_CLIENTE'
end> end>
end> end>
Name = 'FacturasCliente' Name = 'FacturasCliente'
@ -378,6 +382,11 @@ object srvFacturasCliente: TsrvFacturasCliente
ServerAutoRefresh = True ServerAutoRefresh = True
DictionaryEntry = 'FacturasCliente_NOMBRE_COMERCIAL_CLIENTE' DictionaryEntry = 'FacturasCliente_NOMBRE_COMERCIAL_CLIENTE'
end end
item
Name = 'PROCEDENCIA_CLIENTE'
DataType = datString
Size = 255
end
item item
Name = 'NIF_CIF' Name = 'NIF_CIF'
DataType = datString DataType = datString

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

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

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

@ -64,6 +64,10 @@ type
cxGridViewFECHA_VENCIMIENTO: TcxGridDBColumn; cxGridViewFECHA_VENCIMIENTO: TcxGridDBColumn;
cxGridViewREF_CLI_CONTRATO: TcxGridDBColumn; cxGridViewREF_CLI_CONTRATO: TcxGridDBColumn;
cxGridViewIMPORTE_RETENIDO: TcxGridDBColumn; cxGridViewIMPORTE_RETENIDO: TcxGridDBColumn;
cxGridViewPROCEDENCIA_CLIENTE: TcxGridDBColumn;
actProcedencia: TAction;
TBXSeparatorItem3: TTBXSeparatorItem;
TBXItem4: TTBXItem;
procedure cxGridViewStylesGetContentStyle(Sender: TcxCustomGridTableView; procedure cxGridViewStylesGetContentStyle(Sender: TcxCustomGridTableView;
ARecord: TcxCustomGridRecord; AItem: TcxCustomGridTableItem; ARecord: TcxCustomGridRecord; AItem: TcxCustomGridTableItem;
out AStyle: TcxStyle); out AStyle: TcxStyle);
@ -72,6 +76,8 @@ type
procedure actProvinciaExecute(Sender: TObject); procedure actProvinciaExecute(Sender: TObject);
procedure actProvinciaUpdate(Sender: TObject); procedure actProvinciaUpdate(Sender: TObject);
procedure actClienteUpdate(Sender: TObject); procedure actClienteUpdate(Sender: TObject);
procedure actProcedenciaExecute(Sender: TObject);
procedure actProcedenciaUpdate(Sender: TObject);
private private
//Filtros relativos a la vista //Filtros relativos a la vista
@ -118,6 +124,26 @@ begin
(Sender as TAction).Checked := not (cxGridViewNOMBRE.GroupIndex < 0); (Sender as TAction).Checked := not (cxGridViewNOMBRE.GroupIndex < 0);
end; 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); procedure TfrViewFacturasCliente.actProvinciaExecute(Sender: TObject);
begin begin
if (cxGridViewPROVINCIA.GroupIndex < 0) then 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 DataType = datString
Size = 255 Size = 255
end end
item
Name = 'PROCEDENCIA_CLIENTE'
DataType = datString
Size = 255
end
item item
Name = 'PERSONA_CONTACTO' Name = 'PERSONA_CONTACTO'
DataType = datString DataType = datString

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

@ -9,12 +9,12 @@ const
{ Data table rules ids { Data table rules ids
Feel free to change them to something more human readable Feel free to change them to something more human readable
but make sure they are unique in the context of your application } but make sure they are unique in the context of your application }
RID_Valores = '{A5458B62-066F-4E1D-BD46-485BD2F56B42}'; RID_Valores = '{0834AA93-E35A-49DC-AF94-E773B6A9CA62}';
RID_Propiedades = '{D524BE56-1004-41BB-BD04-5CF981EC5029}'; RID_Propiedades = '{17AE7480-03AB-4A41-8EF3-E69A56680E19}';
RID_ListaAnosPresupuestos = '{BC6293D8-84F1-413E-9723-49BEF6862023}'; RID_ListaAnosPresupuestos = '{70FAE6E3-983F-4DE6-B1E1-413CF42FDF31}';
RID_PresupuestosCliente = '{6738C9B3-0BA6-4368-AAF4-C7D8969E6641}'; RID_PresupuestosCliente = '{1A1E5F0C-CE49-4D41-A724-1983AB59CBDC}';
RID_CapitulosPresupuesto = '{171AFE2B-90DF-4D2C-876F-7D95CB7837A4}'; RID_CapitulosPresupuesto = '{6661C54C-E40A-4951-B048-96586EE3AA6B}';
RID_PresupuestosCliente_Detalles = '{3942E16E-4EDC-4292-94DA-DF8391A78D86}'; RID_PresupuestosCliente_Detalles = '{97D6EAE0-93C9-4BF4-8E35-B51AB572428B}';
{ Data table names } { Data table names }
nme_Valores = 'Valores'; nme_Valores = 'Valores';
@ -68,6 +68,7 @@ const
fld_PresupuestosClienteNIF_CIF = 'NIF_CIF'; fld_PresupuestosClienteNIF_CIF = 'NIF_CIF';
fld_PresupuestosClienteNOMBRE = 'NOMBRE'; fld_PresupuestosClienteNOMBRE = 'NOMBRE';
fld_PresupuestosClienteNOMBRE_COMERCIAL_CLIENTE = 'NOMBRE_COMERCIAL_CLIENTE'; fld_PresupuestosClienteNOMBRE_COMERCIAL_CLIENTE = 'NOMBRE_COMERCIAL_CLIENTE';
fld_PresupuestosClientePROCEDENCIA_CLIENTE = 'PROCEDENCIA_CLIENTE';
fld_PresupuestosClientePERSONA_CONTACTO = 'PERSONA_CONTACTO'; fld_PresupuestosClientePERSONA_CONTACTO = 'PERSONA_CONTACTO';
fld_PresupuestosClienteFORMA_PAGO = 'FORMA_PAGO'; fld_PresupuestosClienteFORMA_PAGO = 'FORMA_PAGO';
fld_PresupuestosClientePLAZO_ENTREGA = 'PLAZO_ENTREGA'; fld_PresupuestosClientePLAZO_ENTREGA = 'PLAZO_ENTREGA';
@ -113,36 +114,37 @@ const
idx_PresupuestosClienteNIF_CIF = 10; idx_PresupuestosClienteNIF_CIF = 10;
idx_PresupuestosClienteNOMBRE = 11; idx_PresupuestosClienteNOMBRE = 11;
idx_PresupuestosClienteNOMBRE_COMERCIAL_CLIENTE = 12; idx_PresupuestosClienteNOMBRE_COMERCIAL_CLIENTE = 12;
idx_PresupuestosClientePERSONA_CONTACTO = 13; idx_PresupuestosClientePROCEDENCIA_CLIENTE = 13;
idx_PresupuestosClienteFORMA_PAGO = 14; idx_PresupuestosClientePERSONA_CONTACTO = 14;
idx_PresupuestosClientePLAZO_ENTREGA = 15; idx_PresupuestosClienteFORMA_PAGO = 15;
idx_PresupuestosClienteOBSERVACIONES = 16; idx_PresupuestosClientePLAZO_ENTREGA = 16;
idx_PresupuestosClienteINCIDENCIAS = 17; idx_PresupuestosClienteOBSERVACIONES = 17;
idx_PresupuestosClienteINCIDENCIAS_ACTIVAS = 18; idx_PresupuestosClienteINCIDENCIAS = 18;
idx_PresupuestosClienteFECHA_ALTA = 19; idx_PresupuestosClienteINCIDENCIAS_ACTIVAS = 19;
idx_PresupuestosClienteFECHA_MODIFICACION = 20; idx_PresupuestosClienteFECHA_ALTA = 20;
idx_PresupuestosClienteUSUARIO = 21; idx_PresupuestosClienteFECHA_MODIFICACION = 21;
idx_PresupuestosClienteIMPORTE_NETO = 22; idx_PresupuestosClienteUSUARIO = 22;
idx_PresupuestosClienteIMPORTE_PORTE = 23; idx_PresupuestosClienteIMPORTE_NETO = 23;
idx_PresupuestosClienteDESCUENTO = 24; idx_PresupuestosClienteIMPORTE_PORTE = 24;
idx_PresupuestosClienteIMPORTE_DESCUENTO = 25; idx_PresupuestosClienteDESCUENTO = 25;
idx_PresupuestosClienteBASE_IMPONIBLE = 26; idx_PresupuestosClienteIMPORTE_DESCUENTO = 26;
idx_PresupuestosClienteID_TIPO_IVA = 27; idx_PresupuestosClienteBASE_IMPONIBLE = 27;
idx_PresupuestosClienteIVA = 28; idx_PresupuestosClienteID_TIPO_IVA = 28;
idx_PresupuestosClienteIMPORTE_IVA = 29; idx_PresupuestosClienteIVA = 29;
idx_PresupuestosClienteRE = 30; idx_PresupuestosClienteIMPORTE_IVA = 30;
idx_PresupuestosClienteIMPORTE_RE = 31; idx_PresupuestosClienteRE = 31;
idx_PresupuestosClienteRECARGO_EQUIVALENCIA = 32; idx_PresupuestosClienteIMPORTE_RE = 32;
idx_PresupuestosClienteIMPORTE_TOTAL = 33; idx_PresupuestosClienteRECARGO_EQUIVALENCIA = 33;
idx_PresupuestosClienteID_FORMA_PAGO = 34; idx_PresupuestosClienteIMPORTE_TOTAL = 34;
idx_PresupuestosClienteID_TIENDA = 35; idx_PresupuestosClienteID_FORMA_PAGO = 35;
idx_PresupuestosClienteTIENDA = 36; idx_PresupuestosClienteID_TIENDA = 36;
idx_PresupuestosClienteID_VENDEDOR = 37; idx_PresupuestosClienteTIENDA = 37;
idx_PresupuestosClienteVENDEDOR = 38; idx_PresupuestosClienteID_VENDEDOR = 38;
idx_PresupuestosClienteID_CONTRATO = 39; idx_PresupuestosClienteVENDEDOR = 39;
idx_PresupuestosClienteREF_CONTRATO = 40; idx_PresupuestosClienteID_CONTRATO = 40;
idx_PresupuestosClienteNO_VALORADO = 41; idx_PresupuestosClienteREF_CONTRATO = 41;
idx_PresupuestosClienteTIPO_PRESUPUESTO = 42; idx_PresupuestosClienteNO_VALORADO = 42;
idx_PresupuestosClienteTIPO_PRESUPUESTO = 43;
{ CapitulosPresupuesto fields } { CapitulosPresupuesto fields }
fld_CapitulosPresupuestoID = 'ID'; fld_CapitulosPresupuestoID = 'ID';
@ -213,7 +215,7 @@ const
type type
{ IValores } { IValores }
IValores = interface(IDAStronglyTypedDataTable) IValores = interface(IDAStronglyTypedDataTable)
['{82BB1B56-C980-46F2-83B4-E19163603D0E}'] ['{D282ECEC-B93F-4EA3-ABFA-A965C3757F91}']
{ Property getters and setters } { Property getters and setters }
function GetIDValue: Integer; function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer); procedure SetIDValue(const aValue: Integer);
@ -308,7 +310,7 @@ type
{ IPropiedades } { IPropiedades }
IPropiedades = interface(IDAStronglyTypedDataTable) IPropiedades = interface(IDAStronglyTypedDataTable)
['{A2B5287A-DDBA-4FE4-A590-0EF30C217613}'] ['{E198EC3C-9CF6-49F8-B5C3-249BE63015FA}']
{ Property getters and setters } { Property getters and setters }
function GetIDValue: Integer; function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer); procedure SetIDValue(const aValue: Integer);
@ -355,7 +357,7 @@ type
{ IListaAnosPresupuestos } { IListaAnosPresupuestos }
IListaAnosPresupuestos = interface(IDAStronglyTypedDataTable) IListaAnosPresupuestos = interface(IDAStronglyTypedDataTable)
['{0F73757A-1F3C-4249-8624-047E665CC979}'] ['{622A6F88-A7CA-4CEA-BAFD-E442F4381D6B}']
{ Property getters and setters } { Property getters and setters }
function GetANOValue: String; function GetANOValue: String;
procedure SetANOValue(const aValue: String); procedure SetANOValue(const aValue: String);
@ -390,7 +392,7 @@ type
{ IPresupuestosCliente } { IPresupuestosCliente }
IPresupuestosCliente = interface(IDAStronglyTypedDataTable) IPresupuestosCliente = interface(IDAStronglyTypedDataTable)
['{FB47C1AF-80A4-45E1-B9EF-C1A9C6200DD4}'] ['{5453A9D9-9D4E-45A0-B568-6230714F144E}']
{ Property getters and setters } { Property getters and setters }
function GetIDValue: Integer; function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer); procedure SetIDValue(const aValue: Integer);
@ -444,6 +446,10 @@ type
procedure SetNOMBRE_COMERCIAL_CLIENTEValue(const aValue: String); procedure SetNOMBRE_COMERCIAL_CLIENTEValue(const aValue: String);
function GetNOMBRE_COMERCIAL_CLIENTEIsNull: Boolean; function GetNOMBRE_COMERCIAL_CLIENTEIsNull: Boolean;
procedure SetNOMBRE_COMERCIAL_CLIENTEIsNull(const aValue: 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; function GetPERSONA_CONTACTOValue: String;
procedure SetPERSONA_CONTACTOValue(const aValue: String); procedure SetPERSONA_CONTACTOValue(const aValue: String);
function GetPERSONA_CONTACTOIsNull: Boolean; function GetPERSONA_CONTACTOIsNull: Boolean;
@ -589,6 +595,8 @@ type
property NOMBREIsNull: Boolean read GetNOMBREIsNull write SetNOMBREIsNull; property NOMBREIsNull: Boolean read GetNOMBREIsNull write SetNOMBREIsNull;
property NOMBRE_COMERCIAL_CLIENTE: String read GetNOMBRE_COMERCIAL_CLIENTEValue write SetNOMBRE_COMERCIAL_CLIENTEValue; 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 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_CONTACTO: String read GetPERSONA_CONTACTOValue write SetPERSONA_CONTACTOValue;
property PERSONA_CONTACTOIsNull: Boolean read GetPERSONA_CONTACTOIsNull write SetPERSONA_CONTACTOIsNull; property PERSONA_CONTACTOIsNull: Boolean read GetPERSONA_CONTACTOIsNull write SetPERSONA_CONTACTOIsNull;
property FORMA_PAGO: IROStrings read GetFORMA_PAGOValue; property FORMA_PAGO: IROStrings read GetFORMA_PAGOValue;
@ -716,6 +724,10 @@ type
procedure SetNOMBRE_COMERCIAL_CLIENTEValue(const aValue: String); virtual; procedure SetNOMBRE_COMERCIAL_CLIENTEValue(const aValue: String); virtual;
function GetNOMBRE_COMERCIAL_CLIENTEIsNull: Boolean; virtual; function GetNOMBRE_COMERCIAL_CLIENTEIsNull: Boolean; virtual;
procedure SetNOMBRE_COMERCIAL_CLIENTEIsNull(const aValue: 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; function GetPERSONA_CONTACTOValue: String; virtual;
procedure SetPERSONA_CONTACTOValue(const aValue: String); virtual; procedure SetPERSONA_CONTACTOValue(const aValue: String); virtual;
function GetPERSONA_CONTACTOIsNull: Boolean; virtual; function GetPERSONA_CONTACTOIsNull: Boolean; virtual;
@ -860,6 +872,8 @@ type
property NOMBREIsNull: Boolean read GetNOMBREIsNull write SetNOMBREIsNull; property NOMBREIsNull: Boolean read GetNOMBREIsNull write SetNOMBREIsNull;
property NOMBRE_COMERCIAL_CLIENTE: String read GetNOMBRE_COMERCIAL_CLIENTEValue write SetNOMBRE_COMERCIAL_CLIENTEValue; 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 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_CONTACTO: String read GetPERSONA_CONTACTOValue write SetPERSONA_CONTACTOValue;
property PERSONA_CONTACTOIsNull: Boolean read GetPERSONA_CONTACTOIsNull write SetPERSONA_CONTACTOIsNull; property PERSONA_CONTACTOIsNull: Boolean read GetPERSONA_CONTACTOIsNull write SetPERSONA_CONTACTOIsNull;
property FORMA_PAGO: IROStrings read GetFORMA_PAGOValue; property FORMA_PAGO: IROStrings read GetFORMA_PAGOValue;
@ -929,7 +943,7 @@ type
{ ICapitulosPresupuesto } { ICapitulosPresupuesto }
ICapitulosPresupuesto = interface(IDAStronglyTypedDataTable) ICapitulosPresupuesto = interface(IDAStronglyTypedDataTable)
['{D7F2C20E-B842-4066-924B-0A8C8B4E27EF}'] ['{00C195F2-9264-45E8-BC16-E58B3A124BF4}']
{ Property getters and setters } { Property getters and setters }
function GetIDValue: Integer; function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer); procedure SetIDValue(const aValue: Integer);
@ -1096,7 +1110,7 @@ type
{ IPresupuestosCliente_Detalles } { IPresupuestosCliente_Detalles }
IPresupuestosCliente_Detalles = interface(IDAStronglyTypedDataTable) IPresupuestosCliente_Detalles = interface(IDAStronglyTypedDataTable)
['{54C5E7E0-D737-4603-A4E4-B8507C4870EE}'] ['{18A3A177-29EF-45FC-8198-A8BB9F8EAC46}']
{ Property getters and setters } { Property getters and setters }
function GetIDValue: Integer; function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer); procedure SetIDValue(const aValue: Integer);
@ -1872,6 +1886,27 @@ begin
DataTable.Fields[idx_PresupuestosClienteNOMBRE_COMERCIAL_CLIENTE].AsVariant := Null; DataTable.Fields[idx_PresupuestosClienteNOMBRE_COMERCIAL_CLIENTE].AsVariant := Null;
end; 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; function TPresupuestosClienteDataTableRules.GetPERSONA_CONTACTOValue: String;
begin begin
result := DataTable.Fields[idx_PresupuestosClientePERSONA_CONTACTO].AsString; 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 { Delta rules ids
Feel free to change them to something more human readable Feel free to change them to something more human readable
but make sure they are unique in the context of your application } but make sure they are unique in the context of your application }
RID_ValoresDelta = '{0CBA7710-1287-477B-820B-9EF7C4400800}'; RID_ValoresDelta = '{28CC51B6-31EB-4D5A-AB3E-BCF14B10D91B}';
RID_PropiedadesDelta = '{1CD26D05-AA8C-485F-A54A-129C397B225D}'; RID_PropiedadesDelta = '{E07D5389-62DE-43D8-BAAE-2F6B04B93095}';
RID_ListaAnosPresupuestosDelta = '{B432068B-A238-4DCA-B2BA-8D3C702695B3}'; RID_ListaAnosPresupuestosDelta = '{1E840130-4E9F-4E9D-8029-856D45DB6840}';
RID_PresupuestosClienteDelta = '{B57C42EA-9FBE-44AF-BAEB-ADA925E76098}'; RID_PresupuestosClienteDelta = '{3AADD78B-C307-4D80-8720-66E9EDBD28E8}';
RID_CapitulosPresupuestoDelta = '{D4A184E8-DC2B-470F-86FB-2B056293EE0B}'; RID_CapitulosPresupuestoDelta = '{71EB45E6-C9F6-4019-B67C-311A77D7C0B5}';
RID_PresupuestosCliente_DetallesDelta = '{2B8FD7B3-7D95-4CCC-A0ED-AD1418D4E8E1}'; RID_PresupuestosCliente_DetallesDelta = '{B1775824-481D-4B82-9DC5-4FC61FE98E4B}';
type type
{ IValoresDelta } { IValoresDelta }
IValoresDelta = interface(IValores) IValoresDelta = interface(IValores)
['{0CBA7710-1287-477B-820B-9EF7C4400800}'] ['{28CC51B6-31EB-4D5A-AB3E-BCF14B10D91B}']
{ Property getters and setters } { Property getters and setters }
function GetOldIDValue : Integer; function GetOldIDValue : Integer;
function GetOldID_EMPRESAValue : Integer; function GetOldID_EMPRESAValue : Integer;
@ -113,7 +113,7 @@ type
{ IPropiedadesDelta } { IPropiedadesDelta }
IPropiedadesDelta = interface(IPropiedades) IPropiedadesDelta = interface(IPropiedades)
['{1CD26D05-AA8C-485F-A54A-129C397B225D}'] ['{E07D5389-62DE-43D8-BAAE-2F6B04B93095}']
{ Property getters and setters } { Property getters and setters }
function GetOldIDValue : Integer; function GetOldIDValue : Integer;
function GetOldDESCRIPCIONValue : String; function GetOldDESCRIPCIONValue : String;
@ -159,7 +159,7 @@ type
{ IListaAnosPresupuestosDelta } { IListaAnosPresupuestosDelta }
IListaAnosPresupuestosDelta = interface(IListaAnosPresupuestos) IListaAnosPresupuestosDelta = interface(IListaAnosPresupuestos)
['{B432068B-A238-4DCA-B2BA-8D3C702695B3}'] ['{1E840130-4E9F-4E9D-8029-856D45DB6840}']
{ Property getters and setters } { Property getters and setters }
function GetOldANOValue : String; function GetOldANOValue : String;
@ -193,7 +193,7 @@ type
{ IPresupuestosClienteDelta } { IPresupuestosClienteDelta }
IPresupuestosClienteDelta = interface(IPresupuestosCliente) IPresupuestosClienteDelta = interface(IPresupuestosCliente)
['{B57C42EA-9FBE-44AF-BAEB-ADA925E76098}'] ['{3AADD78B-C307-4D80-8720-66E9EDBD28E8}']
{ Property getters and setters } { Property getters and setters }
function GetOldIDValue : Integer; function GetOldIDValue : Integer;
function GetOldID_EMPRESAValue : Integer; function GetOldID_EMPRESAValue : Integer;
@ -208,6 +208,7 @@ type
function GetOldNIF_CIFValue : String; function GetOldNIF_CIFValue : String;
function GetOldNOMBREValue : String; function GetOldNOMBREValue : String;
function GetOldNOMBRE_COMERCIAL_CLIENTEValue : String; function GetOldNOMBRE_COMERCIAL_CLIENTEValue : String;
function GetOldPROCEDENCIA_CLIENTEValue : String;
function GetOldPERSONA_CONTACTOValue : String; function GetOldPERSONA_CONTACTOValue : String;
function GetOldFORMA_PAGOValue : IROStrings; function GetOldFORMA_PAGOValue : IROStrings;
function GetOldPLAZO_ENTREGAValue : IROStrings; function GetOldPLAZO_ENTREGAValue : IROStrings;
@ -253,6 +254,7 @@ type
property OldNIF_CIF : String read GetOldNIF_CIFValue; property OldNIF_CIF : String read GetOldNIF_CIFValue;
property OldNOMBRE : String read GetOldNOMBREValue; property OldNOMBRE : String read GetOldNOMBREValue;
property OldNOMBRE_COMERCIAL_CLIENTE : String read GetOldNOMBRE_COMERCIAL_CLIENTEValue; property OldNOMBRE_COMERCIAL_CLIENTE : String read GetOldNOMBRE_COMERCIAL_CLIENTEValue;
property OldPROCEDENCIA_CLIENTE : String read GetOldPROCEDENCIA_CLIENTEValue;
property OldPERSONA_CONTACTO : String read GetOldPERSONA_CONTACTOValue; property OldPERSONA_CONTACTO : String read GetOldPERSONA_CONTACTOValue;
property OldFORMA_PAGO : IROStrings read GetOldFORMA_PAGOValue; property OldFORMA_PAGO : IROStrings read GetOldFORMA_PAGOValue;
property OldPLAZO_ENTREGA : IROStrings read GetOldPLAZO_ENTREGAValue; property OldPLAZO_ENTREGA : IROStrings read GetOldPLAZO_ENTREGAValue;
@ -376,6 +378,12 @@ type
function GetOldNOMBRE_COMERCIAL_CLIENTEIsNull: Boolean; virtual; function GetOldNOMBRE_COMERCIAL_CLIENTEIsNull: Boolean; virtual;
procedure SetNOMBRE_COMERCIAL_CLIENTEValue(const aValue: String); virtual; procedure SetNOMBRE_COMERCIAL_CLIENTEValue(const aValue: String); virtual;
procedure SetNOMBRE_COMERCIAL_CLIENTEIsNull(const aValue: Boolean); 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_CONTACTOValue: String; virtual;
function GetPERSONA_CONTACTOIsNull: Boolean; virtual; function GetPERSONA_CONTACTOIsNull: Boolean; virtual;
function GetOldPERSONA_CONTACTOValue: String; 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 NOMBRE_COMERCIAL_CLIENTEIsNull : Boolean read GetNOMBRE_COMERCIAL_CLIENTEIsNull write SetNOMBRE_COMERCIAL_CLIENTEIsNull;
property OldNOMBRE_COMERCIAL_CLIENTE : String read GetOldNOMBRE_COMERCIAL_CLIENTEValue; property OldNOMBRE_COMERCIAL_CLIENTE : String read GetOldNOMBRE_COMERCIAL_CLIENTEValue;
property OldNOMBRE_COMERCIAL_CLIENTEIsNull : Boolean read GetOldNOMBRE_COMERCIAL_CLIENTEIsNull; 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_CONTACTO : String read GetPERSONA_CONTACTOValue write SetPERSONA_CONTACTOValue;
property PERSONA_CONTACTOIsNull : Boolean read GetPERSONA_CONTACTOIsNull write SetPERSONA_CONTACTOIsNull; property PERSONA_CONTACTOIsNull : Boolean read GetPERSONA_CONTACTOIsNull write SetPERSONA_CONTACTOIsNull;
property OldPERSONA_CONTACTO : String read GetOldPERSONA_CONTACTOValue; property OldPERSONA_CONTACTO : String read GetOldPERSONA_CONTACTOValue;
@ -735,7 +747,7 @@ type
{ ICapitulosPresupuestoDelta } { ICapitulosPresupuestoDelta }
ICapitulosPresupuestoDelta = interface(ICapitulosPresupuesto) ICapitulosPresupuestoDelta = interface(ICapitulosPresupuesto)
['{D4A184E8-DC2B-470F-86FB-2B056293EE0B}'] ['{71EB45E6-C9F6-4019-B67C-311A77D7C0B5}']
{ Property getters and setters } { Property getters and setters }
function GetOldIDValue : Integer; function GetOldIDValue : Integer;
function GetOldPOSICIONValue : Integer; function GetOldPOSICIONValue : Integer;
@ -901,7 +913,7 @@ type
{ IPresupuestosCliente_DetallesDelta } { IPresupuestosCliente_DetallesDelta }
IPresupuestosCliente_DetallesDelta = interface(IPresupuestosCliente_Detalles) IPresupuestosCliente_DetallesDelta = interface(IPresupuestosCliente_Detalles)
['{2B8FD7B3-7D95-4CCC-A0ED-AD1418D4E8E1}'] ['{B1775824-481D-4B82-9DC5-4FC61FE98E4B}']
{ Property getters and setters } { Property getters and setters }
function GetOldIDValue : Integer; function GetOldIDValue : Integer;
function GetOldID_PRESUPUESTOValue : Integer; function GetOldID_PRESUPUESTOValue : Integer;
@ -1897,6 +1909,37 @@ begin
BusinessProcessor.CurrentChange.NewValueByName[fld_PresupuestosClienteNOMBRE_COMERCIAL_CLIENTE] := Null; BusinessProcessor.CurrentChange.NewValueByName[fld_PresupuestosClienteNOMBRE_COMERCIAL_CLIENTE] := Null;
end; 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; function TPresupuestosClienteBusinessProcessorRules.GetPERSONA_CONTACTOValue: String;
begin begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_PresupuestosClientePERSONA_CONTACTO]; 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 item
DatasetField = 'NOMBRE_COMERCIAL_CLIENTE' DatasetField = 'NOMBRE_COMERCIAL_CLIENTE'
TableField = 'NOMBRE_COMERCIAL_CLIENTE' TableField = 'NOMBRE_COMERCIAL_CLIENTE'
end
item
DatasetField = 'PROCEDENCIA_CLIENTE'
TableField = 'PROCEDENCIA_CLIENTE'
end> end>
end> end>
Name = 'PresupuestosCliente' Name = 'PresupuestosCliente'
@ -400,6 +404,11 @@ object srvPresupuestosCliente: TsrvPresupuestosCliente
DataType = datString DataType = datString
Size = 255 Size = 255
end end
item
Name = 'PROCEDENCIA_CLIENTE'
DataType = datString
Size = 255
end
item item
Name = 'PERSONA_CONTACTO' Name = 'PERSONA_CONTACTO'
DataType = datString DataType = datString

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

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

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

@ -51,6 +51,10 @@ type
cxGridViewIMPORTE_IVA: TcxGridDBColumn; cxGridViewIMPORTE_IVA: TcxGridDBColumn;
cxGridViewIVA: TcxGridDBColumn; cxGridViewIVA: TcxGridDBColumn;
cxGridViewNOMBRE_COMERCIAL_CLIENTE: TcxGridDBColumn; cxGridViewNOMBRE_COMERCIAL_CLIENTE: TcxGridDBColumn;
cxGridViewPROCEDENCIA_CLIENTE: TcxGridDBColumn;
TBXSeparatorItem3: TTBXSeparatorItem;
TBXItem4: TTBXItem;
actProcedencia: TAction;
procedure cxGridActiveTabChanged(Sender: TcxCustomGrid; ALevel: procedure cxGridActiveTabChanged(Sender: TcxCustomGrid; ALevel:
TcxGridLevel); TcxGridLevel);
procedure cxGridViewStylesGetContentStyle(Sender: TcxCustomGridTableView; procedure cxGridViewStylesGetContentStyle(Sender: TcxCustomGridTableView;
@ -76,6 +80,8 @@ type
procedure CustomViewDestroy(Sender: TObject); procedure CustomViewDestroy(Sender: TObject);
procedure CustomViewShow(Sender: TObject); procedure CustomViewShow(Sender: TObject);
procedure frViewFiltroBase1actQuitarFiltroExecute(Sender: TObject); procedure frViewFiltroBase1actQuitarFiltroExecute(Sender: TObject);
procedure actProcedenciaExecute(Sender: TObject);
procedure actProcedenciaUpdate(Sender: TObject);
private private
//Filtros relativos a la vista //Filtros relativos a la vista
@ -122,6 +128,26 @@ begin
(Sender as TAction).Checked := not (cxGridViewNOMBRE.GroupIndex < 0); (Sender as TAction).Checked := not (cxGridViewNOMBRE.GroupIndex < 0);
end; 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); procedure TfrViewPresupuestosCliente.actProvinciaExecute(Sender: TObject);
begin begin
{ {
@ -143,7 +169,7 @@ begin
{ {
inherited; inherited;
(Sender as TAction).Checked := not (cxGridViewPROVINCIA.GroupIndex < 0); (Sender as TAction).Checked := not (cxGridViewPROVINCIA.GroupIndex < 0);
} }
end; end;
procedure TfrViewPresupuestosCliente.AnadirFiltroFechas; 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', schAlbaranesClienteClient_Intf in '..\Modulos\Albaranes de cliente\Model\schAlbaranesClienteClient_Intf.pas',
schAlbaranesClienteServer_Intf in '..\Modulos\Albaranes de cliente\Model\schAlbaranesClienteServer_Intf.pas', schAlbaranesClienteServer_Intf in '..\Modulos\Albaranes de cliente\Model\schAlbaranesClienteServer_Intf.pas',
uNumUtils in '..\Base\Utiles\uNumUtils.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', schContactosClient_Intf in '..\Modulos\Contactos\Model\schContactosClient_Intf.pas',
schContactosServer_Intf in '..\Modulos\Contactos\Model\schContactosServer_Intf.pas', schContactosServer_Intf in '..\Modulos\Contactos\Model\schContactosServer_Intf.pas',
schPresupuestosClienteClient_Intf in '..\Modulos\Presupuestos de cliente\Model\schPresupuestosClienteClient_Intf.pas', schPresupuestosClienteClient_Intf in '..\Modulos\Presupuestos de cliente\Model\schPresupuestosClienteClient_Intf.pas',
schPresupuestosClienteServer_Intf in '..\Modulos\Presupuestos de cliente\Model\schPresupuestosClienteServer_Intf.pas', schPresupuestosClienteServer_Intf in '..\Modulos\Presupuestos de cliente\Model\schPresupuestosClienteServer_Intf.pas',
schContratosClienteClient_Intf in '..\Modulos\Contratos de cliente\Model\schContratosClienteClient_Intf.pas', schContratosClienteClient_Intf in '..\Modulos\Contratos de cliente\Model\schContratosClienteClient_Intf.pas',
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 *.res}
{$R ..\Servicios\RODLFile.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"> <Project xmlns="http://schemas.microsoft.com/developer/msbuild/2003">
<PropertyGroup> <PropertyGroup>
<ProjectGuid>{ebdcd25d-40d7-4146-91ec-a0ea4aa1dcd1}</ProjectGuid> <ProjectGuid>{ebdcd25d-40d7-4146-91ec-a0ea4aa1dcd1}</ProjectGuid>
<MainSource>FactuGES_Server.dpr</MainSource> <MainSource>FactuGES_Server.dpr</MainSource>
<Configuration Condition=" '$(Configuration)' == '' ">Debug</Configuration> <Configuration Condition=" '$(Configuration)' == '' ">Debug</Configuration>
<Platform Condition=" '$(Platform)' == '' ">AnyCPU</Platform> <Platform Condition=" '$(Platform)' == '' ">AnyCPU</Platform>
<DCC_DCCCompiler>DCC32</DCC_DCCCompiler> <DCC_DCCCompiler>DCC32</DCC_DCCCompiler>
<DCC_DependencyCheckOutputName>..\..\Output\Debug\Servidor\FactuGES_Server.exe</DCC_DependencyCheckOutputName> <DCC_DependencyCheckOutputName>..\..\Output\Debug\Servidor\FactuGES_Server.exe</DCC_DependencyCheckOutputName>
</PropertyGroup> </PropertyGroup>
<PropertyGroup Condition=" '$(Configuration)|$(Platform)' == 'Release|AnyCPU' "> <PropertyGroup Condition=" '$(Configuration)|$(Platform)' == 'Release|AnyCPU' ">
<Version>7.0</Version> <Version>7.0</Version>
<DCC_DebugInformation>False</DCC_DebugInformation> <DCC_DebugInformation>False</DCC_DebugInformation>
<DCC_LocalDebugSymbols>False</DCC_LocalDebugSymbols> <DCC_LocalDebugSymbols>False</DCC_LocalDebugSymbols>
<DCC_SymbolReferenceInfo>0</DCC_SymbolReferenceInfo> <DCC_SymbolReferenceInfo>0</DCC_SymbolReferenceInfo>
<DCC_MapFile>3</DCC_MapFile> <DCC_MapFile>3</DCC_MapFile>
<DCC_ExeOutput>..\..\Output\Release\Servidor</DCC_ExeOutput> <DCC_ExeOutput>..\..\Output\Release\Servidor</DCC_ExeOutput>
<DCC_Define>RELEASE</DCC_Define> <DCC_Define>RELEASE</DCC_Define>
</PropertyGroup> </PropertyGroup>
<PropertyGroup Condition=" '$(Configuration)|$(Platform)' == 'Debug|AnyCPU' "> <PropertyGroup Condition=" '$(Configuration)|$(Platform)' == 'Debug|AnyCPU' ">
<Version>7.0</Version> <Version>7.0</Version>
<DCC_MapFile>3</DCC_MapFile> <DCC_MapFile>3</DCC_MapFile>
<DCC_ExeOutput>..\..\Output\Debug\Servidor</DCC_ExeOutput> <DCC_ExeOutput>..\..\Output\Debug\Servidor</DCC_ExeOutput>
<DCC_Define>DEBUG;</DCC_Define> <DCC_Define>DEBUG;</DCC_Define>
<DCC_GenerateStackFrames>True</DCC_GenerateStackFrames> <DCC_GenerateStackFrames>True</DCC_GenerateStackFrames>
</PropertyGroup> </PropertyGroup>
<ProjectExtensions> <ProjectExtensions>
<Borland.Personality>Delphi.Personality</Borland.Personality> <Borland.Personality>Delphi.Personality</Borland.Personality>
<Borland.ProjectType /> <Borland.ProjectType/>
<BorlandProject> <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> <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 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>
</Excluded_Packages><Source><Source Name="MainSource">FactuGES_Server.dpr</Source></Source></Delphi.Personality></BorlandProject></BorlandProject> </ProjectExtensions>
</ProjectExtensions> <Import Project="$(MSBuildBinPath)\Borland.Delphi.Targets"/>
<Import Project="$(MSBuildBinPath)\Borland.Delphi.Targets" /> <ItemGroup>
<ItemGroup> <DelphiCompile Include="FactuGES_Server.dpr">
<DelphiCompile Include="FactuGES_Server.dpr"> <MainSource>MainSource</MainSource>
<MainSource>MainSource</MainSource> </DelphiCompile>
</DelphiCompile> <DCCReference Include="..\ApplicationBase\Ejercicios\Model\schEjerciciosClient_Intf.pas"/>
<DCCReference Include="..\ApplicationBase\Ejercicios\Model\schEjerciciosClient_Intf.pas" /> <DCCReference Include="..\ApplicationBase\Ejercicios\Model\schEjerciciosServer_Intf.pas"/>
<DCCReference Include="..\ApplicationBase\Ejercicios\Model\schEjerciciosServer_Intf.pas" /> <DCCReference Include="..\ApplicationBase\Ejercicios\Model\uBizEjerciciosServer.pas"/>
<DCCReference Include="..\ApplicationBase\Ejercicios\Model\uBizEjerciciosServer.pas" /> <DCCReference Include="..\ApplicationBase\Ejercicios\Servidor\srvEjercicios_Impl.pas">
<DCCReference Include="..\ApplicationBase\Ejercicios\Servidor\srvEjercicios_Impl.pas"> <Form>srvEjercicios</Form>
<Form>srvEjercicios</Form> <DesignClass>TDataAbstractService</DesignClass>
<DesignClass>TDataAbstractService</DesignClass> </DCCReference>
</DCCReference> <DCCReference Include="..\ApplicationBase\Empresas\Model\schEmpresasClient_Intf.pas"/>
<DCCReference Include="..\ApplicationBase\Empresas\Model\schEmpresasClient_Intf.pas" /> <DCCReference Include="..\ApplicationBase\Empresas\Model\schEmpresasServer_Intf.pas"/>
<DCCReference Include="..\ApplicationBase\Empresas\Model\schEmpresasServer_Intf.pas" /> <DCCReference Include="..\ApplicationBase\Empresas\Servidor\srvEmpresas_Impl.pas">
<DCCReference Include="..\ApplicationBase\Empresas\Servidor\srvEmpresas_Impl.pas"> <Form>srvEmpresas</Form>
<Form>srvEmpresas</Form> <DesignClass>TDARemoteService</DesignClass>
<DesignClass>TDARemoteService</DesignClass> </DCCReference>
</DCCReference> <DCCReference Include="..\ApplicationBase\ProvinciasPoblaciones\Servidor\srvProvinciasPoblaciones_Impl.pas">
<DCCReference Include="..\ApplicationBase\ProvinciasPoblaciones\Servidor\srvProvinciasPoblaciones_Impl.pas"> <Form>srvProvinciasPoblaciones</Form>
<Form>srvProvinciasPoblaciones</Form> <DesignClass>TRORemoteDataModule</DesignClass>
<DesignClass>TRORemoteDataModule</DesignClass> </DCCReference>
</DCCReference> <DCCReference Include="..\ApplicationBase\Usuarios\Model\schUsuariosClient_Intf.pas"/>
<DCCReference Include="..\ApplicationBase\Usuarios\Model\schUsuariosClient_Intf.pas" /> <DCCReference Include="..\ApplicationBase\Usuarios\Model\schUsuariosServer_Intf.pas"/>
<DCCReference Include="..\ApplicationBase\Usuarios\Model\schUsuariosServer_Intf.pas" /> <DCCReference Include="..\ApplicationBase\Usuarios\Servidor\srvUsuarios_Impl.pas"/>
<DCCReference Include="..\ApplicationBase\Usuarios\Servidor\srvUsuarios_Impl.pas" /> <DCCReference Include="..\Base\schBase_Intf.pas"/>
<DCCReference Include="..\Base\schBase_Intf.pas" /> <DCCReference Include="..\Base\Utiles\uNumUtils.pas"/>
<DCCReference Include="..\Base\Utiles\uNumUtils.pas" /> <DCCReference Include="..\Base\Utiles\uSistemaFunc.pas"/>
<DCCReference Include="..\Base\Utiles\uSistemaFunc.pas" /> <DCCReference Include="..\Base\Utiles\uStringsUtils.pas"/>
<DCCReference Include="..\Base\Utiles\uStringsUtils.pas" /> <DCCReference Include="..\Modulos\Albaranes de cliente\Model\schAlbaranesClienteClient_Intf.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\schAlbaranesClienteServer_Intf.pas" /> <DCCReference Include="..\Modulos\Albaranes de cliente\Model\uBizAlbaranClienteServer.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\Reports\uRptAlbaranesCliente_Server.pas" /> <DCCReference Include="..\Modulos\Albaranes de cliente\Servidor\srvAlbaranesCliente_Impl.pas">
<DCCReference Include="..\Modulos\Albaranes de cliente\Servidor\srvAlbaranesCliente_Impl.pas"> <Form>srvAlbaranesCliente</Form>
<Form>srvAlbaranesCliente</Form> <DesignClass>TDataAbstractService</DesignClass>
<DesignClass>TDataAbstractService</DesignClass> </DCCReference>
</DCCReference> <DCCReference Include="..\Modulos\Albaranes de proveedor\Model\schAlbaranesProveedorClient_Intf.pas"/>
<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\schAlbaranesProveedorServer_Intf.pas" /> <DCCReference Include="..\Modulos\Albaranes de proveedor\Model\uBizAlbaranProveedorServer.PAS"/>
<DCCReference Include="..\Modulos\Albaranes de proveedor\Model\uBizAlbaranProveedorServer.PAS" /> <DCCReference Include="..\Modulos\Albaranes de proveedor\Servidor\srvAlbaranesProveedor_Impl.pas">
<DCCReference Include="..\Modulos\Albaranes de proveedor\Servidor\srvAlbaranesProveedor_Impl.pas"> <Form>srvAlbaranesProveedor</Form>
<Form>srvAlbaranesProveedor</Form> <DesignClass>TDataAbstractService</DesignClass>
<DesignClass>TDataAbstractService</DesignClass> </DCCReference>
</DCCReference> <DCCReference Include="..\Modulos\Almacenes\Model\schAlmacenesClient_Intf.pas"/>
<DCCReference Include="..\Modulos\Almacenes\Model\schAlmacenesClient_Intf.pas" /> <DCCReference Include="..\Modulos\Almacenes\Model\schAlmacenesServer_Intf.pas"/>
<DCCReference Include="..\Modulos\Almacenes\Model\schAlmacenesServer_Intf.pas" /> <DCCReference Include="..\Modulos\Almacenes\Servidor\srvAlmacenes_Impl.pas">
<DCCReference Include="..\Modulos\Almacenes\Servidor\srvAlmacenes_Impl.pas"> <Form>srvAlmacenes</Form>
<Form>srvAlmacenes</Form> <DesignClass>TDARemoteService</DesignClass>
<DesignClass>TDARemoteService</DesignClass> </DCCReference>
</DCCReference> <DCCReference Include="..\Modulos\Articulos\Model\schArticulosClient_Intf.pas"/>
<DCCReference Include="..\Modulos\Articulos\Model\schArticulosClient_Intf.pas" /> <DCCReference Include="..\Modulos\Articulos\Model\schArticulosServer_Intf.pas"/>
<DCCReference Include="..\Modulos\Articulos\Model\schArticulosServer_Intf.pas" /> <DCCReference Include="..\Modulos\Articulos\Servidor\srvArticulos_Impl.pas"/>
<DCCReference Include="..\Modulos\Articulos\Servidor\srvArticulos_Impl.pas" /> <DCCReference Include="..\Modulos\Comisiones\Model\schComisionesClient_Intf.pas"/>
<DCCReference Include="..\Modulos\Comisiones\Model\schComisionesClient_Intf.pas" /> <DCCReference Include="..\Modulos\Comisiones\Model\schComisionesServer_Intf.pas"/>
<DCCReference Include="..\Modulos\Comisiones\Model\schComisionesServer_Intf.pas" /> <DCCReference Include="..\Modulos\Comisiones\Model\uBizComisionesServer.pas"/>
<DCCReference Include="..\Modulos\Comisiones\Model\uBizComisionesServer.pas" /> <DCCReference Include="..\Modulos\Comisiones\Reports\uRptComisiones_Server.pas">
<DCCReference Include="..\Modulos\Comisiones\Reports\uRptComisiones_Server.pas"> <Form>RptComisiones</Form>
<Form>RptComisiones</Form> <DesignClass>TDataModule</DesignClass>
<DesignClass>TDataModule</DesignClass> </DCCReference>
</DCCReference> <DCCReference Include="..\Modulos\Comisiones\Servidor\srvComisiones_Impl.pas">
<DCCReference Include="..\Modulos\Comisiones\Servidor\srvComisiones_Impl.pas"> <Form>srvComisiones</Form>
<Form>srvComisiones</Form> <DesignClass>TDataAbstractService</DesignClass>
<DesignClass>TDataAbstractService</DesignClass> </DCCReference>
</DCCReference> <DCCReference Include="..\Modulos\Contabilidad\Model\schContabilidadClient_Intf.pas"/>
<DCCReference Include="..\Modulos\Contabilidad\Model\schContabilidadClient_Intf.pas" /> <DCCReference Include="..\Modulos\Contabilidad\Model\schContabilidadServer_Intf.pas"/>
<DCCReference Include="..\Modulos\Contabilidad\Model\schContabilidadServer_Intf.pas" /> <DCCReference Include="..\Modulos\Contabilidad\Model\uBizAsientosServer.pas"/>
<DCCReference Include="..\Modulos\Contabilidad\Model\uBizAsientosServer.pas" /> <DCCReference Include="..\Modulos\Contabilidad\Servidor\srvContabilidad_Impl.pas">
<DCCReference Include="..\Modulos\Contabilidad\Servidor\srvContabilidad_Impl.pas"> <Form>srvContabilidad</Form>
<Form>srvContabilidad</Form> <DesignClass>TDataAbstractService</DesignClass>
<DesignClass>TDataAbstractService</DesignClass> </DCCReference>
</DCCReference> <DCCReference Include="..\Modulos\Contactos\Model\schContactosClient_Intf.pas"/>
<DCCReference Include="..\Modulos\Contactos\Model\schContactosClient_Intf.pas" /> <DCCReference Include="..\Modulos\Contactos\Model\schContactosServer_Intf.pas"/>
<DCCReference Include="..\Modulos\Contactos\Model\schContactosServer_Intf.pas" /> <DCCReference Include="..\Modulos\Contactos\Model\uBizClientesServer.pas"/>
<DCCReference Include="..\Modulos\Contactos\Model\uBizClientesServer.pas" /> <DCCReference Include="..\Modulos\Contactos\Model\uBizContactosServer.pas"/>
<DCCReference Include="..\Modulos\Contactos\Model\uBizContactosServer.pas" /> <DCCReference Include="..\Modulos\Contactos\Model\uBizProveedoresServer.pas"/>
<DCCReference Include="..\Modulos\Contactos\Model\uBizProveedoresServer.pas" /> <DCCReference Include="..\Modulos\Contactos\Model\uBizVendedoresServer.pas"/>
<DCCReference Include="..\Modulos\Contactos\Model\uBizVendedoresServer.pas" /> <DCCReference Include="..\Modulos\Contactos\Reports\uRptEtiquetasContacto_Server.pas">
<DCCReference Include="..\Modulos\Contactos\Reports\uRptEtiquetasContacto_Server.pas"> <Form>RptEtiquetasContacto</Form>
<Form>RptEtiquetasContacto</Form> <DesignClass>TDataModule</DesignClass>
<DesignClass>TDataModule</DesignClass> </DCCReference>
</DCCReference> <DCCReference Include="..\Modulos\Contactos\Servidor\srvContactos_Impl.pas">
<DCCReference Include="..\Modulos\Contactos\Servidor\srvContactos_Impl.pas"> <Form>srvContactos</Form>
<Form>srvContactos</Form> <DesignClass>TDARemoteService</DesignClass>
<DesignClass>TDARemoteService</DesignClass> </DCCReference>
</DCCReference> <DCCReference Include="..\Modulos\Contratos de cliente\Model\schContratosClienteClient_Intf.pas"/>
<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\schContratosClienteServer_Intf.pas" /> <DCCReference Include="..\Modulos\Contratos de cliente\Model\uBizContratosClienteServer.pas"/>
<DCCReference Include="..\Modulos\Contratos de cliente\Model\uBizContratosClienteServer.pas" /> <DCCReference Include="..\Modulos\Contratos de cliente\Reports\uRptContratosCliente_Server.pas">
<DCCReference Include="..\Modulos\Contratos de cliente\Reports\uRptContratosCliente_Server.pas"> <Form>RptContratosCliente</Form>
<Form>RptContratosCliente</Form> </DCCReference>
</DCCReference> <DCCReference Include="..\Modulos\Contratos de cliente\Servidor\srvContratosCliente_Impl.pas">
<DCCReference Include="..\Modulos\Contratos de cliente\Servidor\srvContratosCliente_Impl.pas"> <Form>srvContratosCliente</Form>
<Form>srvContratosCliente</Form> <DesignClass>TDataAbstractService</DesignClass>
<DesignClass>TDataAbstractService</DesignClass> </DCCReference>
</DCCReference> <DCCReference Include="..\Modulos\Facturas de cliente\Model\schFacturasClienteClient_Intf.pas"/>
<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\schFacturasClienteServer_Intf.pas" /> <DCCReference Include="..\Modulos\Facturas de cliente\Model\uBizFacturasClienteServer.pas"/>
<DCCReference Include="..\Modulos\Facturas de cliente\Model\uBizFacturasClienteServer.pas" /> <DCCReference Include="..\Modulos\Facturas de cliente\Reports\uRptFacturasCliente_Server.pas">
<DCCReference Include="..\Modulos\Facturas de cliente\Reports\uRptFacturasCliente_Server.pas"> <Form>RptFacturasCliente</Form>
<Form>RptFacturasCliente</Form> <DesignClass>TDataModule</DesignClass>
<DesignClass>TDataModule</DesignClass> </DCCReference>
</DCCReference> <DCCReference Include="..\Modulos\Facturas de cliente\Servidor\srvFacturasCliente_Impl.pas">
<DCCReference Include="..\Modulos\Facturas de cliente\Servidor\srvFacturasCliente_Impl.pas"> <Form>srvFacturasCliente</Form>
<Form>srvFacturasCliente</Form> <DesignClass>TDataAbstractService</DesignClass>
<DesignClass>TDataAbstractService</DesignClass> </DCCReference>
</DCCReference> <DCCReference Include="..\Modulos\Facturas de proveedor\Model\schFacturasProveedorClient_Intf.pas"/>
<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\schFacturasProveedorServer_Intf.pas" /> <DCCReference Include="..\Modulos\Facturas de proveedor\Model\uBizFacturasProveedorServer.pas"/>
<DCCReference Include="..\Modulos\Facturas de proveedor\Model\uBizFacturasProveedorServer.pas" /> <DCCReference Include="..\Modulos\Facturas de proveedor\Reports\uRptFacturasProveedor_Server.pas">
<DCCReference Include="..\Modulos\Facturas de proveedor\Reports\uRptFacturasProveedor_Server.pas"> <Form>RptFacturasProveedor</Form>
<Form>RptFacturasProveedor</Form> <DesignClass>TDataModule</DesignClass>
<DesignClass>TDataModule</DesignClass> </DCCReference>
</DCCReference> <DCCReference Include="..\Modulos\Facturas de proveedor\Servidor\srvFacturasProveedor_Impl.pas">
<DCCReference Include="..\Modulos\Facturas de proveedor\Servidor\srvFacturasProveedor_Impl.pas"> <Form>srvFacturasProveedor</Form>
<Form>srvFacturasProveedor</Form> <DesignClass>TDataAbstractService</DesignClass>
<DesignClass>TDataAbstractService</DesignClass> </DCCReference>
</DCCReference> <DCCReference Include="..\Modulos\Familias\Model\schFamiliasClient_Intf.pas"/>
<DCCReference Include="..\Modulos\Familias\Model\schFamiliasClient_Intf.pas" /> <DCCReference Include="..\Modulos\Familias\Model\schFamiliasServer_Intf.pas"/>
<DCCReference Include="..\Modulos\Familias\Model\schFamiliasServer_Intf.pas" /> <DCCReference Include="..\Modulos\Familias\Servidor\srvFamilias_Impl.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\schFormasPagoClient_Intf.pas" /> <DCCReference Include="..\Modulos\Formas de pago\Model\schFormasPagoServer_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\Formas de pago\Servidor\srvFormasPago_Impl.pas" /> <DCCReference Include="..\Modulos\Gestion de documentos\Servidor\srvGestorDocumentos_Impl.pas">
<DCCReference Include="..\Modulos\Gestion de documentos\Servidor\srvGestorDocumentos_Impl.pas"> <Form>srvGestorDocumentos</Form>
<Form>srvGestorDocumentos</Form> <DesignClass>TDataAbstractService</DesignClass>
<DesignClass>TDataAbstractService</DesignClass> </DCCReference>
</DCCReference> <DCCReference Include="..\Modulos\Gestor de informes\Servidor\srvGestorInformes_Impl.pas">
<DCCReference Include="..\Modulos\Gestor de informes\Servidor\srvGestorInformes_Impl.pas"> <Form>srvGestorInformes</Form>
<Form>srvGestorInformes</Form> <DesignClass>TDataAbstractService</DesignClass>
<DesignClass>TDataAbstractService</DesignClass> </DCCReference>
</DCCReference> <DCCReference Include="..\Modulos\Historico de movimientos\Model\schHistoricoMovimientosClient_Intf.pas"/>
<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\Model\schHistoricoMovimientosServer_Intf.pas" /> <DCCReference Include="..\Modulos\Historico de movimientos\Servidor\srvHistoricoMovimientos_Impl.pas">
<DCCReference Include="..\Modulos\Historico de movimientos\Servidor\srvHistoricoMovimientos_Impl.pas"> <Form>srvHistoricoMovimientos</Form>
<Form>srvHistoricoMovimientos</Form> <DesignClass>TDataAbstractService</DesignClass>
<DesignClass>TDataAbstractService</DesignClass> </DCCReference>
</DCCReference> <DCCReference Include="..\Modulos\Inventario\Model\schInventarioClient_Intf.pas"/>
<DCCReference Include="..\Modulos\Inventario\Model\schInventarioClient_Intf.pas" /> <DCCReference Include="..\Modulos\Inventario\Model\schInventarioServer_Intf.pas"/>
<DCCReference Include="..\Modulos\Inventario\Model\schInventarioServer_Intf.pas" /> <DCCReference Include="..\Modulos\Inventario\Servidor\srvInventario_Impl.pas">
<DCCReference Include="..\Modulos\Inventario\Servidor\srvInventario_Impl.pas"> <Form>srvInventario</Form>
<Form>srvInventario</Form> <DesignClass>TDataAbstractService</DesignClass>
<DesignClass>TDataAbstractService</DesignClass> </DCCReference>
</DCCReference> <DCCReference Include="..\Modulos\Pedidos a proveedor\Model\schPedidosProveedorClient_Intf.pas"/>
<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\schPedidosProveedorServer_Intf.pas" /> <DCCReference Include="..\Modulos\Pedidos a proveedor\Model\uBizPedidosProveedorServer.pas"/>
<DCCReference Include="..\Modulos\Pedidos a proveedor\Model\uBizPedidosProveedorServer.pas" /> <DCCReference Include="..\Modulos\Pedidos a proveedor\Servidor\srvPedidosProveedor_Impl.pas">
<DCCReference Include="..\Modulos\Pedidos a proveedor\Servidor\srvPedidosProveedor_Impl.pas"> <Form>srvPedidosProveedor</Form>
<Form>srvPedidosProveedor</Form> <DesignClass>TDataAbstractService</DesignClass>
<DesignClass>TDataAbstractService</DesignClass> </DCCReference>
</DCCReference> <DCCReference Include="..\Modulos\Presupuestos de cliente\Model\schPresupuestosClienteClient_Intf.pas"/>
<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\schPresupuestosClienteServer_Intf.pas" /> <DCCReference Include="..\Modulos\Presupuestos de cliente\Model\uBizPresupuestosClienteServer.pas"/>
<DCCReference Include="..\Modulos\Presupuestos de cliente\Model\uBizPresupuestosClienteServer.pas" /> <DCCReference Include="..\Modulos\Presupuestos de cliente\Reports\uRptPresupuestosCliente_Server.pas">
<DCCReference Include="..\Modulos\Presupuestos de cliente\Reports\uRptPresupuestosCliente_Server.pas"> <Form>RptPresupuestosCliente</Form>
<Form>RptPresupuestosCliente</Form> </DCCReference>
</DCCReference> <DCCReference Include="..\Modulos\Presupuestos de cliente\Servidor\srvPresupuestosCliente_Impl.pas">
<DCCReference Include="..\Modulos\Presupuestos de cliente\Servidor\srvPresupuestosCliente_Impl.pas"> <Form>srvPresupuestosCliente</Form>
<Form>srvPresupuestosCliente</Form> <DesignClass>TDataAbstractService</DesignClass>
<DesignClass>TDataAbstractService</DesignClass> </DCCReference>
</DCCReference> <DCCReference Include="..\Modulos\Recibos de cliente\Model\schRecibosClienteClient_Intf.pas"/>
<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\schRecibosClienteServer_Intf.pas" /> <DCCReference Include="..\Modulos\Recibos de cliente\Model\uBizPagosClienteServer.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\Model\uBizRecibosClienteServer.pas" /> <DCCReference Include="..\Modulos\Recibos de cliente\Reports\uRptRecibosCliente_Server.pas">
<DCCReference Include="..\Modulos\Recibos de cliente\Reports\uRptRecibosCliente_Server.pas"> <Form>RptRecibosCliente</Form>
<Form>RptRecibosCliente</Form> <DesignClass>TDataModule</DesignClass>
<DesignClass>TDataModule</DesignClass> </DCCReference>
</DCCReference> <DCCReference Include="..\Modulos\Recibos de cliente\Servidor\srvRecibosCliente_Impl.pas">
<DCCReference Include="..\Modulos\Recibos de cliente\Servidor\srvRecibosCliente_Impl.pas"> <Form>srvRecibosCliente</Form>
<Form>srvRecibosCliente</Form> <DesignClass>TDataAbstractService</DesignClass>
<DesignClass>TDataAbstractService</DesignClass> </DCCReference>
</DCCReference> <DCCReference Include="..\Modulos\Recibos de proveedor\Model\schRecibosProveedorClient_Intf.pas"/>
<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\schRecibosProveedorServer_Intf.pas" /> <DCCReference Include="..\Modulos\Recibos de proveedor\Model\uBizPagosProveedorServer.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\Model\uBizRecibosProveedorServer.pas" /> <DCCReference Include="..\Modulos\Recibos de proveedor\Reports\uRptRecibosProveedor_Server.pas">
<DCCReference Include="..\Modulos\Recibos de proveedor\Reports\uRptRecibosProveedor_Server.pas"> <Form>RptRecibosProveedor</Form>
<Form>RptRecibosProveedor</Form> <DesignClass>TDataModule</DesignClass>
<DesignClass>TDataModule</DesignClass> </DCCReference>
</DCCReference> <DCCReference Include="..\Modulos\Recibos de proveedor\Servidor\srvRecibosProveedor_Impl.pas">
<DCCReference Include="..\Modulos\Recibos de proveedor\Servidor\srvRecibosProveedor_Impl.pas"> <Form>srvRecibosProveedor</Form>
<Form>srvRecibosProveedor</Form> <DesignClass>TDataAbstractService</DesignClass>
<DesignClass>TDataAbstractService</DesignClass> </DCCReference>
</DCCReference> <DCCReference Include="..\Modulos\Referencias\Model\schReferenciasClient_Intf.pas"/>
<DCCReference Include="..\Modulos\Referencias\Model\schReferenciasClient_Intf.pas" /> <DCCReference Include="..\Modulos\Referencias\Model\schReferenciasServer_Intf.pas"/>
<DCCReference Include="..\Modulos\Referencias\Model\schReferenciasServer_Intf.pas" /> <DCCReference Include="..\Modulos\Referencias\Servidor\srvReferencias_Impl.pas">
<DCCReference Include="..\Modulos\Referencias\Servidor\srvReferencias_Impl.pas"> <Form>srvReferencias</Form>
<Form>srvReferencias</Form> <DesignClass>TDataAbstractService</DesignClass>
<DesignClass>TDataAbstractService</DesignClass> </DCCReference>
</DCCReference> <DCCReference Include="..\Modulos\Remesas de cliente\Model\schRemesasClienteClient_Intf.pas"/>
<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\schRemesasClienteServer_Intf.pas" /> <DCCReference Include="..\Modulos\Remesas de cliente\Model\uBizRemesasClienteServer.pas"/>
<DCCReference Include="..\Modulos\Remesas de cliente\Model\uBizRemesasClienteServer.pas" /> <DCCReference Include="..\Modulos\Remesas de cliente\Reports\uRptRemesasCliente_Server.pas">
<DCCReference Include="..\Modulos\Remesas de cliente\Reports\uRptRemesasCliente_Server.pas"> <Form>RptRemesasCliente</Form>
<Form>RptRemesasCliente</Form> <DesignClass>TDataModule</DesignClass>
<DesignClass>TDataModule</DesignClass> </DCCReference>
</DCCReference> <DCCReference Include="..\Modulos\Remesas de cliente\Servidor\srvRemesasCliente_Impl.pas">
<DCCReference Include="..\Modulos\Remesas de cliente\Servidor\srvRemesasCliente_Impl.pas"> <Form>srvRemesasCliente</Form>
<Form>srvRemesasCliente</Form> <DesignClass>TDataAbstractService</DesignClass>
<DesignClass>TDataAbstractService</DesignClass> </DCCReference>
</DCCReference> <DCCReference Include="..\Modulos\Remesas de proveedor\Model\schRemesasProveedorClient_Intf.pas"/>
<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\schRemesasProveedorServer_Intf.pas" /> <DCCReference Include="..\Modulos\Remesas de proveedor\Model\uBizRemesasProveedorServer.pas"/>
<DCCReference Include="..\Modulos\Remesas de proveedor\Model\uBizRemesasProveedorServer.pas" /> <DCCReference Include="..\Modulos\Remesas de proveedor\Reports\uRptRemesasProveedor_Server.pas">
<DCCReference Include="..\Modulos\Remesas de proveedor\Reports\uRptRemesasProveedor_Server.pas"> <Form>RptRemesasProveedor</Form>
<Form>RptRemesasProveedor</Form> <DesignClass>TDataModule</DesignClass>
<DesignClass>TDataModule</DesignClass> </DCCReference>
</DCCReference> <DCCReference Include="..\Modulos\Remesas de proveedor\Servidor\srvRemesasProveedor_Impl.pas">
<DCCReference Include="..\Modulos\Remesas de proveedor\Servidor\srvRemesasProveedor_Impl.pas"> <Form>srvRemesasProveedor</Form>
<Form>srvRemesasProveedor</Form> <DesignClass>TDataAbstractService</DesignClass>
<DesignClass>TDataAbstractService</DesignClass> </DCCReference>
</DCCReference> <DCCReference Include="..\Modulos\Subfamilias\Model\schSubfamiliasClient_Intf.pas"/>
<DCCReference Include="..\Modulos\Subfamilias\Model\schSubfamiliasClient_Intf.pas" /> <DCCReference Include="..\Modulos\Subfamilias\Model\schSubfamiliasServer_Intf.pas"/>
<DCCReference Include="..\Modulos\Subfamilias\Model\schSubfamiliasServer_Intf.pas" /> <DCCReference Include="..\Modulos\Subfamilias\Servidor\srvSubfamilias_Impl.pas">
<DCCReference Include="..\Modulos\Subfamilias\Servidor\srvSubfamilias_Impl.pas"> <Form>srvSubfamilias</Form>
<Form>srvSubfamilias</Form> <DesignClass>TDataAbstractService</DesignClass>
<DesignClass>TDataAbstractService</DesignClass> </DCCReference>
</DCCReference> <DCCReference Include="..\Modulos\Tipos de IVA\Model\schTiposIVAClient_Intf.pas"/>
<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\Model\schTiposIVAServer_Intf.pas" /> <DCCReference Include="..\Modulos\Tipos de IVA\Servidor\srvTiposIVA_Impl.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\schUnidadesMedidaClient_Intf.pas" /> <DCCReference Include="..\Modulos\Unidades de medida\Model\schUnidadesMedidaServer_Intf.pas"/>
<DCCReference Include="..\Modulos\Unidades de medida\Model\schUnidadesMedidaServer_Intf.pas" /> <DCCReference Include="..\Modulos\Unidades de medida\Servidor\srvUnidadesMedida_Impl.pas">
<DCCReference Include="..\Modulos\Unidades de medida\Servidor\srvUnidadesMedida_Impl.pas"> <Form>srvUnidadesMedida</Form>
<Form>srvUnidadesMedida</Form> <DesignClass>TDataAbstractService</DesignClass>
<DesignClass>TDataAbstractService</DesignClass> </DCCReference>
</DCCReference> <DCCReference Include="..\Servicios\FactuGES_Intf.pas"/>
<DCCReference Include="..\Servicios\FactuGES_Intf.pas" /> <DCCReference Include="..\Servicios\FactuGES_Invk.pas"/>
<DCCReference Include="..\Servicios\FactuGES_Invk.pas" /> <DCCReference Include="Configuracion\srvConfiguracion_Impl.pas">
<DCCReference Include="Configuracion\srvConfiguracion_Impl.pas"> <Form>srvConfiguracion</Form>
<Form>srvConfiguracion</Form> <DesignClass>TDataAbstractService</DesignClass>
<DesignClass>TDataAbstractService</DesignClass> </DCCReference>
</DCCReference> <DCCReference Include="Configuracion\uConexionBD.pas">
<DCCReference Include="Configuracion\uConexionBD.pas"> <Form>frConexionBD</Form>
<Form>frConexionBD</Form> <DesignClass>TFrame</DesignClass>
<DesignClass>TFrame</DesignClass> </DCCReference>
</DCCReference> <DCCReference Include="Configuracion\uConfGeneral.pas">
<DCCReference Include="Configuracion\uConfGeneral.pas"> <Form>frConfGeneral</Form>
<Form>frConfGeneral</Form> <DesignClass>TFrame</DesignClass>
<DesignClass>TFrame</DesignClass> </DCCReference>
</DCCReference> <DCCReference Include="Configuracion\uConfiguracion.pas">
<DCCReference Include="Configuracion\uConfiguracion.pas"> <Form>fConfiguracion</Form>
<Form>fConfiguracion</Form> <DesignClass>TForm</DesignClass>
<DesignClass>TForm</DesignClass> </DCCReference>
</DCCReference> <DCCReference Include="Configuracion\uFrameConfiguracion.pas">
<DCCReference Include="Configuracion\uFrameConfiguracion.pas"> <Form>FrameConfiguracion</Form>
<Form>FrameConfiguracion</Form> <DesignClass>TFrame</DesignClass>
<DesignClass>TFrame</DesignClass> </DCCReference>
</DCCReference> <DCCReference Include="srvLogin_Impl.pas">
<DCCReference Include="srvLogin_Impl.pas"> <Form>srvLogin</Form>
<Form>srvLogin</Form> <DesignClass>TDARemoteService</DesignClass>
<DesignClass>TDARemoteService</DesignClass> </DCCReference>
</DCCReference> <DCCReference Include="uAcercaDe.pas">
<DCCReference Include="uAcercaDe.pas"> <Form>fAcercaDe</Form>
<Form>fAcercaDe</Form> </DCCReference>
</DCCReference> <DCCReference Include="uDataModuleServer.pas">
<DCCReference Include="uDataModuleServer.pas"> <Form>dmServer</Form>
<Form>dmServer</Form> <DesignClass>TDataModule</DesignClass>
<DesignClass>TDataModule</DesignClass> </DCCReference>
</DCCReference> <DCCReference Include="uServerMainForm.pas">
<DCCReference Include="uServerMainForm.pas"> <Form>fServerForm</Form>
<Form>fServerForm</Form> </DCCReference>
</DCCReference> <DCCReference Include="Utiles\RegExpr.pas"/>
<DCCReference Include="Utiles\RegExpr.pas" /> <DCCReference Include="Utiles\uBusinessUtils.pas"/>
<DCCReference Include="Utiles\uBusinessUtils.pas" /> <DCCReference Include="Utiles\uDatabaseUtils.pas"/>
<DCCReference Include="Utiles\uDatabaseUtils.pas" /> <DCCReference Include="Utiles\uReferenciasUtils.pas"/>
<DCCReference Include="Utiles\uReferenciasUtils.pas" /> <DCCReference Include="Utiles\uRestriccionesUsuarioUtils.pas"/>
<DCCReference Include="Utiles\uRestriccionesUsuarioUtils.pas" /> <DCCReference Include="Utiles\uSchemaUtilsServer.pas"/>
<DCCReference Include="Utiles\uSchemaUtilsServer.pas" /> <DCCReference Include="Utiles\uServerAppUtils.pas"/>
<DCCReference Include="Utiles\uServerAppUtils.pas" /> <DCCReference Include="Utiles\uSesionesUtils.pas"/>
<DCCReference Include="Utiles\uSesionesUtils.pas" /> </ItemGroup>
</ItemGroup>
</Project> </Project>
<!-- EurekaLog First Line <!-- EurekaLog First Line
[Exception Log] [Exception Log]

BIN
Source/Servidor/FactuGES_Server.res
View File

Binary file not shown.