AcotaCocinas/AlonsoYSal_FactuGES2
2
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Version 2.0.3

Browse Source 
git-svn-id: https://192.168.0.254/svn/Proyectos.AlonsoYSal_FactuGES2/trunk@21 40301925-124e-1c4e-b97d-170ad7a8785b
This commit is contained in:
roberto 2020-03-04 18:16:20 +00:00
parent 214b09c7cb
commit 5aad0ddbcb
56 changed files with 1028 additions and 432 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.

98
Source/Base/Base.dproj
View File

@ -58,56 +58,56 @@
<DelphiCompile Include="Base.dpk"> <DelphiCompile Include="Base.dpk">
<MainSource>MainSource</MainSource> <MainSource>MainSource</MainSource>
</DelphiCompile> </DelphiCompile>
<DCCReference Include="..\Modulos\Facturas de cliente\Data\adortl.dcp" />
<DCCReference Include="..\Modulos\Facturas de cliente\Data\cxDataD11.dcp" />
<DCCReference Include="..\Modulos\Facturas de cliente\Data\cxEditorsD11.dcp" />
<DCCReference Include="..\Modulos\Facturas de cliente\Data\cxExtEditorsD11.dcp" />
<DCCReference Include="..\Modulos\Facturas de cliente\Data\cxGridD11.dcp" />
<DCCReference Include="..\Modulos\Facturas de cliente\Data\cxLibraryD11.dcp" />
<DCCReference Include="..\Modulos\Facturas de cliente\Data\cxPageControlD11.dcp" />
<DCCReference Include="..\Modulos\Facturas de cliente\Data\DataAbstract_Core_D11.dcp" />
<DCCReference Include="..\Modulos\Facturas de cliente\Data\dbrtl.dcp" />
<DCCReference Include="..\Modulos\Facturas de cliente\Data\dclIndyCore.dcp" />
<DCCReference Include="..\Modulos\Facturas de cliente\Data\designide.dcp" />
<DCCReference Include="..\Modulos\Facturas de cliente\Data\dsnap.dcp" />
<DCCReference Include="..\Modulos\Facturas de cliente\Data\dxCoreD11.dcp" />
<DCCReference Include="..\Modulos\Facturas de cliente\Data\dxGDIPlusD11.dcp" />
<DCCReference Include="..\Modulos\Facturas de cliente\Data\dxPSCoreD11.dcp" />
<DCCReference Include="..\Modulos\Facturas de cliente\Data\dxThemeD11.dcp" />
<DCCReference Include="..\Modulos\Facturas de cliente\Data\GUISDK_D11R.dcp" />
<DCCReference Include="..\Modulos\Facturas de cliente\Data\IndyCore.dcp" />
<DCCReference Include="..\Modulos\Facturas de cliente\Data\IndyProtocols.dcp" />
<DCCReference Include="..\Modulos\Facturas de cliente\Data\IndySystem.dcp" />
<DCCReference Include="..\Modulos\Facturas de cliente\Data\Jcl.dcp" />
<DCCReference Include="..\Modulos\Facturas de cliente\Data\JclVcl.dcp" />
<DCCReference Include="..\Modulos\Facturas de cliente\Data\JSDialog100.dcp" />
<DCCReference Include="..\Modulos\Facturas de cliente\Data\JvCmpD11R.dcp" />
<DCCReference Include="..\Modulos\Facturas de cliente\Data\JvCoreD11R.dcp" />
<DCCReference Include="..\Modulos\Facturas de cliente\Data\JvCtrlsD11R.dcp" />
<DCCReference Include="..\Modulos\Facturas de cliente\Data\JvDlgsD11R.dcp" />
<DCCReference Include="..\Modulos\Facturas de cliente\Data\JvMMD11R.dcp" />
<DCCReference Include="..\Modulos\Facturas de cliente\Data\JvNetD11R.dcp" />
<DCCReference Include="..\Modulos\Facturas de cliente\Data\JvPageCompsD11R.dcp" />
<DCCReference Include="..\Modulos\Facturas de cliente\Data\JvStdCtrlsD11R.dcp" />
<DCCReference Include="..\Modulos\Facturas de cliente\Data\JvSystemD11R.dcp" />
<DCCReference Include="..\Modulos\Facturas de cliente\Data\pckMD5.dcp" />
<DCCReference Include="..\Modulos\Facturas de cliente\Data\pckUCDataConnector.dcp" />
<DCCReference Include="..\Modulos\Facturas de cliente\Data\pckUserControl_RT.dcp" />
<DCCReference Include="..\Modulos\Facturas de cliente\Data\PluginSDK_D11R.dcp" />
<DCCReference Include="..\Modulos\Facturas de cliente\Data\PngComponentsD10.dcp" />
<DCCReference Include="..\Modulos\Facturas de cliente\Data\PNG_D10.dcp" />
<DCCReference Include="..\Modulos\Facturas de cliente\Data\RemObjects_Core_D11.dcp" />
<DCCReference Include="..\Modulos\Facturas de cliente\Data\rtl.dcp" />
<DCCReference Include="..\Modulos\Facturas de cliente\Data\TB2k_D10.dcp" />
<DCCReference Include="..\Modulos\Facturas de cliente\Data\tbx_d10.dcp" />
<DCCReference Include="..\Modulos\Facturas de cliente\Data\vcl.dcp" />
<DCCReference Include="..\Modulos\Facturas de cliente\Data\vclactnband.dcp" />
<DCCReference Include="..\Modulos\Facturas de cliente\Data\vcldb.dcp" />
<DCCReference Include="..\Modulos\Facturas de cliente\Data\vcljpg.dcp" />
<DCCReference Include="..\Modulos\Facturas de cliente\Data\VclSmp.dcp" />
<DCCReference Include="..\Modulos\Facturas de cliente\Data\vclx.dcp" />
<DCCReference Include="..\Modulos\Facturas de cliente\Data\xmlrtl.dcp" />
<DCCReference Include="..\Servicios\FactuGES_Intf.pas" /> <DCCReference Include="..\Servicios\FactuGES_Intf.pas" />
<DCCReference Include="..\Servidor\adortl.dcp" />
<DCCReference Include="..\Servidor\cxDataD11.dcp" />
<DCCReference Include="..\Servidor\cxEditorsD11.dcp" />
<DCCReference Include="..\Servidor\cxExtEditorsD11.dcp" />
<DCCReference Include="..\Servidor\cxGridD11.dcp" />
<DCCReference Include="..\Servidor\cxLibraryD11.dcp" />
<DCCReference Include="..\Servidor\cxPageControlD11.dcp" />
<DCCReference Include="..\Servidor\DataAbstract_Core_D11.dcp" />
<DCCReference Include="..\Servidor\dbrtl.dcp" />
<DCCReference Include="..\Servidor\dclIndyCore.dcp" />
<DCCReference Include="..\Servidor\designide.dcp" />
<DCCReference Include="..\Servidor\dsnap.dcp" />
<DCCReference Include="..\Servidor\dxCoreD11.dcp" />
<DCCReference Include="..\Servidor\dxGDIPlusD11.dcp" />
<DCCReference Include="..\Servidor\dxPSCoreD11.dcp" />
<DCCReference Include="..\Servidor\dxThemeD11.dcp" />
<DCCReference Include="..\Servidor\GUISDK_D11R.dcp" />
<DCCReference Include="..\Servidor\IndyCore.dcp" />
<DCCReference Include="..\Servidor\IndyProtocols.dcp" />
<DCCReference Include="..\Servidor\IndySystem.dcp" />
<DCCReference Include="..\Servidor\Jcl.dcp" />
<DCCReference Include="..\Servidor\JclVcl.dcp" />
<DCCReference Include="..\Servidor\JSDialog100.dcp" />
<DCCReference Include="..\Servidor\JvCmpD11R.dcp" />
<DCCReference Include="..\Servidor\JvCoreD11R.dcp" />
<DCCReference Include="..\Servidor\JvCtrlsD11R.dcp" />
<DCCReference Include="..\Servidor\JvDlgsD11R.dcp" />
<DCCReference Include="..\Servidor\JvMMD11R.dcp" />
<DCCReference Include="..\Servidor\JvNetD11R.dcp" />
<DCCReference Include="..\Servidor\JvPageCompsD11R.dcp" />
<DCCReference Include="..\Servidor\JvStdCtrlsD11R.dcp" />
<DCCReference Include="..\Servidor\JvSystemD11R.dcp" />
<DCCReference Include="..\Servidor\pckMD5.dcp" />
<DCCReference Include="..\Servidor\pckUCDataConnector.dcp" />
<DCCReference Include="..\Servidor\pckUserControl_RT.dcp" />
<DCCReference Include="..\Servidor\PluginSDK_D11R.dcp" />
<DCCReference Include="..\Servidor\PngComponentsD10.dcp" />
<DCCReference Include="..\Servidor\PNG_D10.dcp" />
<DCCReference Include="..\Servidor\RemObjects_Core_D11.dcp" />
<DCCReference Include="..\Servidor\rtl.dcp" />
<DCCReference Include="..\Servidor\TB2k_D10.dcp" />
<DCCReference Include="..\Servidor\tbx_d10.dcp" />
<DCCReference Include="..\Servidor\vcl.dcp" />
<DCCReference Include="..\Servidor\vclactnband.dcp" />
<DCCReference Include="..\Servidor\vcldb.dcp" />
<DCCReference Include="..\Servidor\vcljpg.dcp" />
<DCCReference Include="..\Servidor\VclSmp.dcp" />
<DCCReference Include="..\Servidor\vclx.dcp" />
<DCCReference Include="..\Servidor\xmlrtl.dcp" />
<DCCReference Include="Conexion\uConfigurarConexion.pas"> <DCCReference Include="Conexion\uConfigurarConexion.pas">
<Form>fConfigurarConexion</Form> <Form>fConfigurarConexion</Form>
<DesignClass>TForm</DesignClass> <DesignClass>TForm</DesignClass>

2
Source/Cliente/FactuGES.dproj
View File

@ -52,7 +52,7 @@
<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">0</VersionInfo><VersionInfo Name="Release">2</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.0.2.0</VersionInfoKeys><VersionInfoKeys Name="InternalName">FactuGES v2</VersionInfoKeys><VersionInfoKeys Name="LegalCopyright"></VersionInfoKeys><VersionInfoKeys Name="LegalTrademarks"></VersionInfoKeys><VersionInfoKeys Name="OriginalFilename"></VersionInfoKeys><VersionInfoKeys Name="ProductName">FactuGES v2</VersionInfoKeys><VersionInfoKeys Name="ProductVersion">2.0.2.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">0</VersionInfo><VersionInfo Name="Release">3</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.0.3.0</VersionInfoKeys><VersionInfoKeys Name="InternalName">FactuGES v2</VersionInfoKeys><VersionInfoKeys Name="LegalCopyright"></VersionInfoKeys><VersionInfoKeys Name="LegalTrademarks"></VersionInfoKeys><VersionInfoKeys Name="OriginalFilename"></VersionInfoKeys><VersionInfoKeys Name="ProductName">FactuGES v2</VersionInfoKeys><VersionInfoKeys Name="ProductVersion">2.0.3.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.

56
Source/GUIBase/GUIBase.dproj
View File

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

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

File diff suppressed because one or more lines are too long

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

File diff suppressed because one or more lines are too long

BIN
Source/Lib/ApplicationBase.dcp
View File

Binary file not shown.

BIN
Source/Lib/Base.dcp
View File

Binary file not shown.

BIN
Source/Lib/GUIBase.dcp
View File

Binary file not shown.

15
Source/Modulos/Contactos/Controller/uClientesController.pas
View File

@ -22,7 +22,7 @@ type
procedure PrintInformeListaDatosContacto(ACliente : IBizCliente; AllItems: Boolean = false); procedure PrintInformeListaDatosContacto(ACliente : IBizCliente; AllItems: Boolean = false);
procedure SetTieneSubcuenta(ACliente: IBizCliente; AValue: Boolean); procedure SetTieneSubcuenta(ACliente: IBizCliente; AValue: Boolean);
procedure SetIgnorarContabilidad(ACliente: IBizCliente; AValue: Boolean); procedure SetIgnorarContabilidad(ACliente: IBizCliente; AValue: Boolean);
function AsignarLOPD(AClientes: IBizCliente): TStringList; function AsignarLOPD(AClientes: IBizCliente): Boolean;
end; end;
TClientesController = class(TContactosController, IClientesController) TClientesController = class(TContactosController, IClientesController)
@ -56,7 +56,7 @@ type
procedure PrintInformeListaDatosContacto(ACliente : IBizCliente; AllItems: Boolean = false); procedure PrintInformeListaDatosContacto(ACliente : IBizCliente; AllItems: Boolean = false);
procedure SetTieneSubcuenta(ACliente: IBizCliente; AValue: Boolean); procedure SetTieneSubcuenta(ACliente: IBizCliente; AValue: Boolean);
procedure SetIgnorarContabilidad(ACliente: IBizCliente; AValue: Boolean); procedure SetIgnorarContabilidad(ACliente: IBizCliente; AValue: Boolean);
function AsignarLOPD(AClientes: IBizCliente): TStringList; function AsignarLOPD(AClientes: IBizCliente): Boolean;
end; end;
implementation implementation
@ -69,13 +69,15 @@ uses
{ TClientesController } { TClientesController }
function TClientesController.AsignarLOPD(AClientes: IBizCliente): TStringList; function TClientesController.AsignarLOPD(AClientes: IBizCliente): Boolean;
//Devolverá la lista de clientes que no han podido ser cambiados a LOPD firmada //Devolverá true en el caso de tener que modificar algun elemento de Aclientes, en caso de no modificar nada devuelve false
begin begin
Result := TStringList.Create; Result := false;
if Assigned(AClientes) then if Assigned(AClientes) then
begin begin
if not AClientes.Datatable.Active then
AClientes.Datatable.Active := true;
with AClientes.DataTable do with AClientes.DataTable do
begin begin
First; First;
@ -85,6 +87,7 @@ begin
begin begin
Edit; Edit;
AClientes.LOPD := 1; AClientes.LOPD := 1;
Result := true;
Post; Post;
end; end;
Next; Next;

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

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

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

@ -98,12 +98,6 @@ inherited fEditorClientes: TfEditorClientes
ExplicitWidth = 786 ExplicitWidth = 786
ExplicitHeight = 270 ExplicitHeight = 270
inherited cxGridView: TcxGridDBTableView inherited cxGridView: TcxGridDBTableView
DataController.Summary.FooterSummaryItems = <
item
Format = '0 clientes'
Kind = skCount
Column = frViewClientes1.cxGridViewTIENDA
end>
end end
end end
inherited frViewFiltroBase1: TfrViewFiltroBase inherited frViewFiltroBase1: TfrViewFiltroBase

4
Source/Modulos/Contactos/Views/uEditorClientes.pas
View File

@ -80,9 +80,7 @@ begin
ViewGrid.RestoreGridStatus; ViewGrid.RestoreGridStatus;
end; end;
(Controller as IClientesController).AsignarLOPD(AClientes); if (Controller as IClientesController).AsignarLOPD(AClientes) then
if (AClientes.DataTable.RecordCount > 0) then
RefrescarInterno; RefrescarInterno;
end; end;

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

@ -13,7 +13,7 @@ inherited frViewClientes: TfrViewClientes
item item
Format = '0 clientes' Format = '0 clientes'
Kind = skCount Kind = skCount
Column = cxGridViewNIF_CIF Column = cxGridViewNOMBRE
end> end>
object cxGridViewLOPD: TcxGridDBColumn [1] object cxGridViewLOPD: TcxGridDBColumn [1]
Caption = 'GDPR' Caption = 'GDPR'

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

@ -59,6 +59,7 @@ type
procedure Print(AContrato : IBizContratoCliente; AllItems: Boolean = false); procedure Print(AContrato : IBizContratoCliente; AllItems: Boolean = false);
procedure EnviarContratoPorEMail(AContrato : IBizContratoCliente); procedure EnviarContratoPorEMail(AContrato : IBizContratoCliente);
function CambiarSituacion(AContrato : IBizContratoCliente; Situacion: String; FechaDecision: TDateTime; AllItems: Boolean = false): Boolean; function CambiarSituacion(AContrato : IBizContratoCliente; Situacion: String; FechaDecision: TDateTime; AllItems: Boolean = false): Boolean;
function AsignarLOPD(AContratos: IBizContratoCliente): Boolean;
function DarListaAnosContratos: TStringList; function DarListaAnosContratos: TStringList;
procedure FiltrarAno(AContrato: IBizContratoCliente; ADynWhereDataTable: WideString; const Ano: String); procedure FiltrarAno(AContrato: IBizContratoCliente; ADynWhereDataTable: WideString; const Ano: String);
@ -136,6 +137,7 @@ type
procedure Print(AContrato : IBizContratoCliente; AllItems: Boolean = false); procedure Print(AContrato : IBizContratoCliente; AllItems: Boolean = false);
procedure EnviarContratoPorEMail(AContrato : IBizContratoCliente); procedure EnviarContratoPorEMail(AContrato : IBizContratoCliente);
function CambiarSituacion(AContrato : IBizContratoCliente; Situacion: String; FechaDecision: TDateTime; AllItems: Boolean = false): Boolean; function CambiarSituacion(AContrato : IBizContratoCliente; Situacion: String; FechaDecision: TDateTime; AllItems: Boolean = false): Boolean;
function AsignarLOPD(AContratos: IBizContratoCliente): Boolean;
function DarListaAnosContratos: TStringList; function DarListaAnosContratos: TStringList;
procedure FiltrarAno(AContrato: IBizContratoCliente; ADynWhereDataTable: WideString; const Ano: String); procedure FiltrarAno(AContrato: IBizContratoCliente; ADynWhereDataTable: WideString; const Ano: String);
@ -205,6 +207,29 @@ begin
FDataModule := TDataModuleContratosCliente.Create(Nil); FDataModule := TDataModuleContratosCliente.Create(Nil);
end; end;
function TContratosClienteController.AsignarLOPD(AContratos: IBizContratoCliente): Boolean;
var
ACliente : IBizCliente;
AResultado : Boolean;
begin
Result := false;
if Assigned(AContratos) then
begin
with AContratos.DataTable do
begin
First;
while not EOF do
begin
ACliente := (FClienteController.Buscar(AContratos.ID_Cliente) as IBizCliente);
AResultado := FClienteController.AsignarLOPD(ACliente);
if not Result then
Result := AResultado;
Next;
end;
end;
end;
end;
function TContratosClienteController.Buscar(const ID: Integer): IBizContratoCliente; function TContratosClienteController.Buscar(const ID: Integer): IBizContratoCliente;
begin begin
Result := FDataModule.GetItem(ID); Result := FDataModule.GetItem(ID);
@ -757,7 +782,7 @@ begin
end; end;
ShowHourglassCursor; ShowHourglassCursor;
ATituloEnvio := 'Contrato ' + AContrato.Cliente.NOMBRE + ' - ' + AContrato.REFERENCIA_CLIENTE; ATituloEnvio := 'Presupuesto ' + AContrato.Cliente.NOMBRE + ' - ' + AContrato.REFERENCIA_CLIENTE;
AFicheroTMP := DarFicheroPDFTemporal(EscapeIllegalChars(ATituloEnvio)); AFicheroTMP := DarFicheroPDFTemporal(EscapeIllegalChars(ATituloEnvio));
AReportController := TContratosClienteReportController.Create; AReportController := TContratosClienteReportController.Create;
try try

11
Source/Modulos/Contratos de cliente/Controller/uContratosClienteReportController.pas
View File

@ -97,7 +97,7 @@ begin
try try
AEditor.Controller := Self; AEditor.Controller := Self;
AEditor.ListaID := AListaID; AEditor.ListaID := AListaID;
AEditor.Title := 'Contrato - ' + AppFactuGES.EmpresaActiva.NOMBRE; AEditor.Title := 'Presupuesto - ' + AppFactuGES.EmpresaActiva.NOMBRE;
AEditor.LoadFromStream(AStream); AEditor.LoadFromStream(AStream);
AEditor.Preview; AEditor.Preview;
finally finally
@ -114,15 +114,15 @@ begin
end; end;
procedure TContratosClienteReportController.Print(const AListaID : TIntegerList); procedure TContratosClienteReportController.Print(const AListaID : TIntegerList);
{var var
AStream: Binary; AStream: Binary;
AEditor : IEditorContratosClientePreview;} AEditor : IEditorContratosClientePreview;
begin begin
{ AEditor := NIL; AEditor := NIL;
ShowHourglassCursor; ShowHourglassCursor;
try try
AStream := FDataModule.GetRptPresupuestos(AListaID); AStream := FDataModule.GetRptContratos(AListaID);
try try
CreateEditor('EditorContratosClientePreview', IEditorContratosClientePreview, AEditor); CreateEditor('EditorContratosClientePreview', IEditorContratosClientePreview, AEditor);
if Assigned(AEditor) then if Assigned(AEditor) then
@ -144,7 +144,6 @@ begin
finally finally
HideHourglassCursor; HideHourglassCursor;
end; end;
}
end; end;
end. end.

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

@ -45,6 +45,10 @@ inherited DataModuleContratosCliente: TDataModuleContratosCliente
DataType = datInteger DataType = datInteger
DictionaryEntry = 'ContratosCliente_ID_CLIENTE' DictionaryEntry = 'ContratosCliente_ID_CLIENTE'
end end
item
Name = 'LOPD'
DataType = datSmallInt
end
item item
Name = 'NOMBRE_CLIENTE' Name = 'NOMBRE_CLIENTE'
DataType = datString DataType = datString

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

@ -9,13 +9,13 @@ 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 = '{15E11A92-F4CF-4E0E-B5D8-6184059DD8CE}'; RID_Valores = '{99FB7080-55D3-4F71-9776-CA0470AF1B16}';
RID_Propiedades = '{B429EF7C-4158-41C1-BE6D-922C169CF14E}'; RID_Propiedades = '{39955AC4-909B-43B5-BFC3-AAC1E85B4521}';
RID_ListaAnosContratos = '{30057A80-16CD-42BE-8D5D-EDAFE97E8C5A}'; RID_ListaAnosContratos = '{842CF7DF-5B01-44CC-88B8-EF63F5B7B3BD}';
RID_ContratosClienteBeneficios = '{2A70B854-D3DC-4787-87AD-051A0184E82C}'; RID_ContratosClienteBeneficios = '{CB3A4E53-B875-4D04-A53A-637A86A595CA}';
RID_ContratosCliente = '{0DB07217-A4E5-4685-BE8F-F2170E3AB1CA}'; RID_ContratosCliente = '{CFCB6098-A9BA-4688-BDA7-0CA8EF49CBD4}';
RID_TiposCapitulos = '{3C034371-9C2C-46CB-A282-6F62EFA16CB7}'; RID_TiposCapitulos = '{E3584A5B-938B-48B5-87B2-A23154011868}';
RID_ContratosCliente_Detalles = '{AC6A2500-FFA3-4A5B-A26B-AA952998F27F}'; RID_ContratosCliente_Detalles = '{78024C2B-F048-4252-A838-4636A2126824}';
{ Data table names } { Data table names }
nme_Valores = 'Valores'; nme_Valores = 'Valores';
@ -90,6 +90,7 @@ const
fld_ContratosClienteID = 'ID'; fld_ContratosClienteID = 'ID';
fld_ContratosClienteID_EMPRESA = 'ID_EMPRESA'; fld_ContratosClienteID_EMPRESA = 'ID_EMPRESA';
fld_ContratosClienteID_CLIENTE = 'ID_CLIENTE'; fld_ContratosClienteID_CLIENTE = 'ID_CLIENTE';
fld_ContratosClienteLOPD = 'LOPD';
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';
@ -145,56 +146,57 @@ const
idx_ContratosClienteID = 0; idx_ContratosClienteID = 0;
idx_ContratosClienteID_EMPRESA = 1; idx_ContratosClienteID_EMPRESA = 1;
idx_ContratosClienteID_CLIENTE = 2; idx_ContratosClienteID_CLIENTE = 2;
idx_ContratosClienteNOMBRE_CLIENTE = 3; idx_ContratosClienteLOPD = 3;
idx_ContratosClienteREF_CLIENTE = 4; idx_ContratosClienteNOMBRE_CLIENTE = 4;
idx_ContratosClienteNOMBRE_COMERCIAL_CLIENTE = 5; idx_ContratosClienteREF_CLIENTE = 5;
idx_ContratosClienteNIF_CIF = 6; idx_ContratosClienteNOMBRE_COMERCIAL_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_ContratosClienteCONDICIONES = 45; idx_ContratosClienteTIPO_CONTRATO = 45;
idx_ContratosClienteCALIDADES = 46; idx_ContratosClienteCONDICIONES = 46;
idx_ContratosClienteREFERENCIA_CLIENTE = 47; idx_ContratosClienteCALIDADES = 47;
idx_ContratosClienteLISTA_NOMBRES = 48; idx_ContratosClienteREFERENCIA_CLIENTE = 48;
idx_ContratosClienteFECHA_DECISION = 49; idx_ContratosClienteLISTA_NOMBRES = 49;
idx_ContratosClienteFACTURA_ASOCIADA = 50; idx_ContratosClienteFECHA_DECISION = 50;
idx_ContratosClienteFECHA_PREVISTA_MONTAJE = 51; idx_ContratosClienteFACTURA_ASOCIADA = 51;
idx_ContratosClienteCAMPO_LIBRE = 52; idx_ContratosClienteFECHA_PREVISTA_MONTAJE = 52;
idx_ContratosClienteCAMPO_LIBRE = 53;
{ TiposCapitulos fields } { TiposCapitulos fields }
fld_TiposCapitulosID = 'ID'; fld_TiposCapitulosID = 'ID';
@ -253,7 +255,7 @@ const
type type
{ IValores } { IValores }
IValores = interface(IDAStronglyTypedDataTable) IValores = interface(IDAStronglyTypedDataTable)
['{9648EEF6-67C0-48F2-98D0-3F28225AE35F}'] ['{09FAC198-D702-4643-8EC4-4EB93D4BF4F6}']
{ Property getters and setters } { Property getters and setters }
function GetIDValue: Integer; function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer); procedure SetIDValue(const aValue: Integer);
@ -312,7 +314,7 @@ type
{ IPropiedades } { IPropiedades }
IPropiedades = interface(IDAStronglyTypedDataTable) IPropiedades = interface(IDAStronglyTypedDataTable)
['{DAB78C0C-ABB8-4638-A964-D66FCE695D0B}'] ['{54CBB767-40EE-4C07-B6A5-63974D22B258}']
{ Property getters and setters } { Property getters and setters }
function GetIDValue: Integer; function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer); procedure SetIDValue(const aValue: Integer);
@ -371,7 +373,7 @@ type
{ IListaAnosContratos } { IListaAnosContratos }
IListaAnosContratos = interface(IDAStronglyTypedDataTable) IListaAnosContratos = interface(IDAStronglyTypedDataTable)
['{803D3DE4-AE98-4631-A877-1D0F20987BC1}'] ['{6B58BA26-5CD0-4833-8D04-BBCC26C3F2B5}']
{ Property getters and setters } { Property getters and setters }
function GetANOValue: String; function GetANOValue: String;
procedure SetANOValue(const aValue: String); procedure SetANOValue(const aValue: String);
@ -406,7 +408,7 @@ type
{ IContratosClienteBeneficios } { IContratosClienteBeneficios }
IContratosClienteBeneficios = interface(IDAStronglyTypedDataTable) IContratosClienteBeneficios = interface(IDAStronglyTypedDataTable)
['{80E97C0A-AA60-4FA0-9AE7-25932450F7FA}'] ['{4ED11DCC-83B2-4E5D-ABDB-ECD75EB2E34D}']
{ Property getters and setters } { Property getters and setters }
function GetIDValue: Integer; function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer); procedure SetIDValue(const aValue: Integer);
@ -609,7 +611,7 @@ type
{ IContratosCliente } { IContratosCliente }
IContratosCliente = interface(IDAStronglyTypedDataTable) IContratosCliente = interface(IDAStronglyTypedDataTable)
['{C90AFE40-BB27-4460-A9A5-3EF0A0DD8972}'] ['{F0ADB580-DB5D-4260-9065-0A37ED306068}']
{ 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 SetID_CLIENTEValue(const aValue: Integer); procedure SetID_CLIENTEValue(const aValue: Integer);
function GetID_CLIENTEIsNull: Boolean; function GetID_CLIENTEIsNull: Boolean;
procedure SetID_CLIENTEIsNull(const aValue: Boolean); procedure SetID_CLIENTEIsNull(const aValue: Boolean);
function GetLOPDValue: SmallInt;
procedure SetLOPDValue(const aValue: SmallInt);
function GetLOPDIsNull: Boolean;
procedure SetLOPDIsNull(const aValue: Boolean);
function GetNOMBRE_CLIENTEValue: String; function GetNOMBRE_CLIENTEValue: String;
procedure SetNOMBRE_CLIENTEValue(const aValue: String); procedure SetNOMBRE_CLIENTEValue(const aValue: String);
function GetNOMBRE_CLIENTEIsNull: Boolean; function GetNOMBRE_CLIENTEIsNull: Boolean;
@ -826,6 +832,8 @@ type
property ID_EMPRESAIsNull: Boolean read GetID_EMPRESAIsNull write SetID_EMPRESAIsNull; property ID_EMPRESAIsNull: Boolean read GetID_EMPRESAIsNull write SetID_EMPRESAIsNull;
property ID_CLIENTE: Integer read GetID_CLIENTEValue write SetID_CLIENTEValue; property ID_CLIENTE: Integer read GetID_CLIENTEValue write SetID_CLIENTEValue;
property ID_CLIENTEIsNull: Boolean read GetID_CLIENTEIsNull write SetID_CLIENTEIsNull; property ID_CLIENTEIsNull: Boolean read GetID_CLIENTEIsNull write SetID_CLIENTEIsNull;
property LOPD: SmallInt read GetLOPDValue write SetLOPDValue;
property LOPDIsNull: Boolean read GetLOPDIsNull write SetLOPDIsNull;
property NOMBRE_CLIENTE: String read GetNOMBRE_CLIENTEValue write SetNOMBRE_CLIENTEValue; property NOMBRE_CLIENTE: String read GetNOMBRE_CLIENTEValue write SetNOMBRE_CLIENTEValue;
property NOMBRE_CLIENTEIsNull: Boolean read GetNOMBRE_CLIENTEIsNull write SetNOMBRE_CLIENTEIsNull; property NOMBRE_CLIENTEIsNull: Boolean read GetNOMBRE_CLIENTEIsNull write SetNOMBRE_CLIENTEIsNull;
property REF_CLIENTE: String read GetREF_CLIENTEValue write SetREF_CLIENTEValue; property REF_CLIENTE: String read GetREF_CLIENTEValue write SetREF_CLIENTEValue;
@ -957,6 +965,10 @@ type
procedure SetID_CLIENTEValue(const aValue: Integer); virtual; procedure SetID_CLIENTEValue(const aValue: Integer); virtual;
function GetID_CLIENTEIsNull: Boolean; virtual; function GetID_CLIENTEIsNull: Boolean; virtual;
procedure SetID_CLIENTEIsNull(const aValue: Boolean); virtual; procedure SetID_CLIENTEIsNull(const aValue: Boolean); virtual;
function GetLOPDValue: SmallInt; virtual;
procedure SetLOPDValue(const aValue: SmallInt); virtual;
function GetLOPDIsNull: Boolean; virtual;
procedure SetLOPDIsNull(const aValue: Boolean); virtual;
function GetNOMBRE_CLIENTEValue: String; virtual; function GetNOMBRE_CLIENTEValue: String; virtual;
procedure SetNOMBRE_CLIENTEValue(const aValue: String); virtual; procedure SetNOMBRE_CLIENTEValue(const aValue: String); virtual;
function GetNOMBRE_CLIENTEIsNull: Boolean; virtual; function GetNOMBRE_CLIENTEIsNull: Boolean; virtual;
@ -1159,6 +1171,8 @@ type
property ID_EMPRESAIsNull: Boolean read GetID_EMPRESAIsNull write SetID_EMPRESAIsNull; property ID_EMPRESAIsNull: Boolean read GetID_EMPRESAIsNull write SetID_EMPRESAIsNull;
property ID_CLIENTE: Integer read GetID_CLIENTEValue write SetID_CLIENTEValue; property ID_CLIENTE: Integer read GetID_CLIENTEValue write SetID_CLIENTEValue;
property ID_CLIENTEIsNull: Boolean read GetID_CLIENTEIsNull write SetID_CLIENTEIsNull; property ID_CLIENTEIsNull: Boolean read GetID_CLIENTEIsNull write SetID_CLIENTEIsNull;
property LOPD: SmallInt read GetLOPDValue write SetLOPDValue;
property LOPDIsNull: Boolean read GetLOPDIsNull write SetLOPDIsNull;
property NOMBRE_CLIENTE: String read GetNOMBRE_CLIENTEValue write SetNOMBRE_CLIENTEValue; property NOMBRE_CLIENTE: String read GetNOMBRE_CLIENTEValue write SetNOMBRE_CLIENTEValue;
property NOMBRE_CLIENTEIsNull: Boolean read GetNOMBRE_CLIENTEIsNull write SetNOMBRE_CLIENTEIsNull; property NOMBRE_CLIENTEIsNull: Boolean read GetNOMBRE_CLIENTEIsNull write SetNOMBRE_CLIENTEIsNull;
property REF_CLIENTE: String read GetREF_CLIENTEValue write SetREF_CLIENTEValue; property REF_CLIENTE: String read GetREF_CLIENTEValue write SetREF_CLIENTEValue;
@ -1271,7 +1285,7 @@ type
} }
{ ITiposCapitulos } { ITiposCapitulos }
ITiposCapitulos = interface(IDAStronglyTypedDataTable) ITiposCapitulos = interface(IDAStronglyTypedDataTable)
['{1EAC55ED-FD74-4C09-BA7C-01071428BF24}'] ['{7F065E7D-C88C-4287-B4F1-4C90BDE4A5D0}']
{ Property getters and setters } { Property getters and setters }
function GetIDValue: Integer; function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer); procedure SetIDValue(const aValue: Integer);
@ -1366,7 +1380,7 @@ type
{ IContratosCliente_Detalles } { IContratosCliente_Detalles }
IContratosCliente_Detalles = interface(IDAStronglyTypedDataTable) IContratosCliente_Detalles = interface(IDAStronglyTypedDataTable)
['{0C09878D-60CA-4203-BC67-10838C9E8EAA}'] ['{FDC78645-413A-493D-8809-FC071D4847D8}']
{ Property getters and setters } { Property getters and setters }
function GetIDValue: Integer; function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer); procedure SetIDValue(const aValue: Integer);
@ -2235,6 +2249,27 @@ begin
DataTable.Fields[idx_ContratosClienteID_CLIENTE].AsVariant := Null; DataTable.Fields[idx_ContratosClienteID_CLIENTE].AsVariant := Null;
end; end;
function TContratosClienteDataTableRules.GetLOPDValue: SmallInt;
begin
result := DataTable.Fields[idx_ContratosClienteLOPD].AsSmallInt;
end;
procedure TContratosClienteDataTableRules.SetLOPDValue(const aValue: SmallInt);
begin
DataTable.Fields[idx_ContratosClienteLOPD].AsSmallInt := aValue;
end;
function TContratosClienteDataTableRules.GetLOPDIsNull: boolean;
begin
result := DataTable.Fields[idx_ContratosClienteLOPD].IsNull;
end;
procedure TContratosClienteDataTableRules.SetLOPDIsNull(const aValue: Boolean);
begin
if aValue then
DataTable.Fields[idx_ContratosClienteLOPD].AsVariant := Null;
end;
function TContratosClienteDataTableRules.GetNOMBRE_CLIENTEValue: String; function TContratosClienteDataTableRules.GetNOMBRE_CLIENTEValue: String;
begin begin
result := DataTable.Fields[idx_ContratosClienteNOMBRE_CLIENTE].AsString; result := DataTable.Fields[idx_ContratosClienteNOMBRE_CLIENTE].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 = '{3B063834-C8A8-4844-ACC8-234467330330}'; RID_ValoresDelta = '{632E5888-2F7A-4385-87BD-46FC070B09D8}';
RID_PropiedadesDelta = '{619FA028-3343-49AB-9A72-A6DF0667FC32}'; RID_PropiedadesDelta = '{5BFC3D15-E4D9-4699-8EC7-9B314CD76D61}';
RID_ListaAnosContratosDelta = '{7F13079B-DB22-4617-A28C-01007AF43172}'; RID_ListaAnosContratosDelta = '{92902251-E218-4288-839E-12C085E7E005}';
RID_ContratosClienteBeneficiosDelta = '{28BA457E-2509-4B11-9724-10E60AFB2BA9}'; RID_ContratosClienteBeneficiosDelta = '{8DB4D500-6D3F-4533-AC6F-99D59749A965}';
RID_ContratosClienteDelta = '{DFEAF2D7-9D59-40C6-8205-677DCCD6C526}'; RID_ContratosClienteDelta = '{65572B83-AD9B-4706-87EB-1454077273F4}';
RID_TiposCapitulosDelta = '{74EAAE1F-DEB6-49BD-BF6C-FAE257428A2D}'; RID_TiposCapitulosDelta = '{21A8FE37-27F9-4CC7-9EE9-553179AC7015}';
RID_ContratosCliente_DetallesDelta = '{72FC35AB-AC55-43FB-B58A-152274E2A1CC}'; RID_ContratosCliente_DetallesDelta = '{C96EC97B-D8F0-4CA9-891B-1483F39E2224}';
type type
{ IValoresDelta } { IValoresDelta }
IValoresDelta = interface(IValores) IValoresDelta = interface(IValores)
['{3B063834-C8A8-4844-ACC8-234467330330}'] ['{632E5888-2F7A-4385-87BD-46FC070B09D8}']
{ 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)
['{619FA028-3343-49AB-9A72-A6DF0667FC32}'] ['{5BFC3D15-E4D9-4699-8EC7-9B314CD76D61}']
{ 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)
['{7F13079B-DB22-4617-A28C-01007AF43172}'] ['{92902251-E218-4288-839E-12C085E7E005}']
{ 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)
['{28BA457E-2509-4B11-9724-10E60AFB2BA9}'] ['{8DB4D500-6D3F-4533-AC6F-99D59749A965}']
{ Property getters and setters } { Property getters and setters }
function GetOldIDValue : Integer; function GetOldIDValue : Integer;
function GetOldREFERENCIAValue : String; function GetOldREFERENCIAValue : String;
@ -372,11 +372,12 @@ type
{ IContratosClienteDelta } { IContratosClienteDelta }
IContratosClienteDelta = interface(IContratosCliente) IContratosClienteDelta = interface(IContratosCliente)
['{DFEAF2D7-9D59-40C6-8205-677DCCD6C526}'] ['{65572B83-AD9B-4706-87EB-1454077273F4}']
{ Property getters and setters } { Property getters and setters }
function GetOldIDValue : Integer; function GetOldIDValue : Integer;
function GetOldID_EMPRESAValue : Integer; function GetOldID_EMPRESAValue : Integer;
function GetOldID_CLIENTEValue : Integer; function GetOldID_CLIENTEValue : Integer;
function GetOldLOPDValue : SmallInt;
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;
@ -432,6 +433,7 @@ type
property OldID : Integer read GetOldIDValue; property OldID : Integer read GetOldIDValue;
property OldID_EMPRESA : Integer read GetOldID_EMPRESAValue; property OldID_EMPRESA : Integer read GetOldID_EMPRESAValue;
property OldID_CLIENTE : Integer read GetOldID_CLIENTEValue; property OldID_CLIENTE : Integer read GetOldID_CLIENTEValue;
property OldLOPD : SmallInt read GetOldLOPDValue;
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;
@ -519,6 +521,12 @@ type
function GetOldID_CLIENTEIsNull: Boolean; virtual; function GetOldID_CLIENTEIsNull: Boolean; virtual;
procedure SetID_CLIENTEValue(const aValue: Integer); virtual; procedure SetID_CLIENTEValue(const aValue: Integer); virtual;
procedure SetID_CLIENTEIsNull(const aValue: Boolean); virtual; procedure SetID_CLIENTEIsNull(const aValue: Boolean); virtual;
function GetLOPDValue: SmallInt; virtual;
function GetLOPDIsNull: Boolean; virtual;
function GetOldLOPDValue: SmallInt; virtual;
function GetOldLOPDIsNull: Boolean; virtual;
procedure SetLOPDValue(const aValue: SmallInt); virtual;
procedure SetLOPDIsNull(const aValue: Boolean); virtual;
function GetNOMBRE_CLIENTEValue: String; virtual; function GetNOMBRE_CLIENTEValue: String; virtual;
function GetNOMBRE_CLIENTEIsNull: Boolean; virtual; function GetNOMBRE_CLIENTEIsNull: Boolean; virtual;
function GetOldNOMBRE_CLIENTEValue: String; virtual; function GetOldNOMBRE_CLIENTEValue: String; virtual;
@ -827,6 +835,10 @@ type
property ID_CLIENTEIsNull : Boolean read GetID_CLIENTEIsNull write SetID_CLIENTEIsNull; property ID_CLIENTEIsNull : Boolean read GetID_CLIENTEIsNull write SetID_CLIENTEIsNull;
property OldID_CLIENTE : Integer read GetOldID_CLIENTEValue; property OldID_CLIENTE : Integer read GetOldID_CLIENTEValue;
property OldID_CLIENTEIsNull : Boolean read GetOldID_CLIENTEIsNull; property OldID_CLIENTEIsNull : Boolean read GetOldID_CLIENTEIsNull;
property LOPD : SmallInt read GetLOPDValue write SetLOPDValue;
property LOPDIsNull : Boolean read GetLOPDIsNull write SetLOPDIsNull;
property OldLOPD : SmallInt read GetOldLOPDValue;
property OldLOPDIsNull : Boolean read GetOldLOPDIsNull;
property NOMBRE_CLIENTE : String read GetNOMBRE_CLIENTEValue write SetNOMBRE_CLIENTEValue; property NOMBRE_CLIENTE : String read GetNOMBRE_CLIENTEValue write SetNOMBRE_CLIENTEValue;
property NOMBRE_CLIENTEIsNull : Boolean read GetNOMBRE_CLIENTEIsNull write SetNOMBRE_CLIENTEIsNull; property NOMBRE_CLIENTEIsNull : Boolean read GetNOMBRE_CLIENTEIsNull write SetNOMBRE_CLIENTEIsNull;
property OldNOMBRE_CLIENTE : String read GetOldNOMBRE_CLIENTEValue; property OldNOMBRE_CLIENTE : String read GetOldNOMBRE_CLIENTEValue;
@ -1036,7 +1048,7 @@ type
{ ITiposCapitulosDelta } { ITiposCapitulosDelta }
ITiposCapitulosDelta = interface(ITiposCapitulos) ITiposCapitulosDelta = interface(ITiposCapitulos)
['{74EAAE1F-DEB6-49BD-BF6C-FAE257428A2D}'] ['{21A8FE37-27F9-4CC7-9EE9-553179AC7015}']
{ Property getters and setters } { Property getters and setters }
function GetOldIDValue : Integer; function GetOldIDValue : Integer;
function GetOldPOSICIONValue : Integer; function GetOldPOSICIONValue : Integer;
@ -1130,7 +1142,7 @@ type
{ IContratosCliente_DetallesDelta } { IContratosCliente_DetallesDelta }
IContratosCliente_DetallesDelta = interface(IContratosCliente_Detalles) IContratosCliente_DetallesDelta = interface(IContratosCliente_Detalles)
['{72FC35AB-AC55-43FB-B58A-152274E2A1CC}'] ['{C96EC97B-D8F0-4CA9-891B-1483F39E2224}']
{ Property getters and setters } { Property getters and setters }
function GetOldIDValue : Integer; function GetOldIDValue : Integer;
function GetOldID_CONTRATOValue : Integer; function GetOldID_CONTRATOValue : Integer;
@ -2249,6 +2261,37 @@ begin
BusinessProcessor.CurrentChange.NewValueByName[fld_ContratosClienteID_CLIENTE] := Null; BusinessProcessor.CurrentChange.NewValueByName[fld_ContratosClienteID_CLIENTE] := Null;
end; end;
function TContratosClienteBusinessProcessorRules.GetLOPDValue: SmallInt;
begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_ContratosClienteLOPD];
end;
function TContratosClienteBusinessProcessorRules.GetLOPDIsNull: Boolean;
begin
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_ContratosClienteLOPD]);
end;
function TContratosClienteBusinessProcessorRules.GetOldLOPDValue: SmallInt;
begin
result := BusinessProcessor.CurrentChange.OldValueByName[fld_ContratosClienteLOPD];
end;
function TContratosClienteBusinessProcessorRules.GetOldLOPDIsNull: Boolean;
begin
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_ContratosClienteLOPD]);
end;
procedure TContratosClienteBusinessProcessorRules.SetLOPDValue(const aValue: SmallInt);
begin
BusinessProcessor.CurrentChange.NewValueByName[fld_ContratosClienteLOPD] := aValue;
end;
procedure TContratosClienteBusinessProcessorRules.SetLOPDIsNull(const aValue: Boolean);
begin
if aValue then
BusinessProcessor.CurrentChange.NewValueByName[fld_ContratosClienteLOPD] := Null;
end;
function TContratosClienteBusinessProcessorRules.GetNOMBRE_CLIENTEValue: String; function TContratosClienteBusinessProcessorRules.GetNOMBRE_CLIENTEValue: String;
begin begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_ContratosClienteNOMBRE_CLIENTE]; result := BusinessProcessor.CurrentChange.NewValueByName[fld_ContratosClienteNOMBRE_CLIENTE];

2
Source/Modulos/Contratos de cliente/Reports/uRptContratosCliente_Server.pas
View File

@ -563,7 +563,7 @@ begin
frxReport.Variables.Variables['VerPrecios'] := FVerPrecios; frxReport.Variables.Variables['VerPrecios'] := FVerPrecios;
frxReport.Variables.Variables['VerTotales'] := FVerTotales; frxReport.Variables.Variables['VerTotales'] := FVerTotales;
frxReport.AddFunction('function PONERJUSTIFICACIONCOMPLETA(ARTFText : String): String', 'User Function',''); frxReport.AddFunction('function PONERJUSTIFICACIONCOMPLETA(ARTFText : String): String', 'User Function','');
frxReport.ReportOptions.Name := 'Contrato ' + tbl_Cabecera.FieldByName('REFERENCIA').AsString; frxReport.ReportOptions.Name := 'Presupuesto ' + tbl_Cabecera.FieldByName('REFERENCIA').AsString;
frxReport.PrepareReport(False); frxReport.PrepareReport(False);
finally finally

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

@ -494,6 +494,10 @@ object srvContratosCliente: TsrvContratosCliente
item item
DatasetField = 'CAMPO_LIBRE' DatasetField = 'CAMPO_LIBRE'
TableField = 'CAMPO_LIBRE' TableField = 'CAMPO_LIBRE'
end
item
DatasetField = 'LOPD'
TableField = 'LOPD'
end> end>
end> end>
Name = 'ContratosCliente' Name = 'ContratosCliente'
@ -516,6 +520,10 @@ object srvContratosCliente: TsrvContratosCliente
DataType = datInteger DataType = datInteger
DictionaryEntry = 'ContratosCliente_ID_CLIENTE' DictionaryEntry = 'ContratosCliente_ID_CLIENTE'
end end
item
Name = 'LOPD'
DataType = datSmallInt
end
item item
Name = 'NOMBRE_CLIENTE' Name = 'NOMBRE_CLIENTE'
DataType = datString DataType = datString

37
Source/Modulos/Contratos de cliente/Views/uEditorContratoCliente.dfm
View File

@ -175,7 +175,6 @@ inherited fEditorContratoCliente: TfEditorContratoCliente
inherited pgPaginas: TPageControl inherited pgPaginas: TPageControl
Width = 866 Width = 866
Height = 473 Height = 473
ActivePage = pagInicidencias
TabOrder = 1 TabOrder = 1
OnChanging = pgPaginasChanging OnChanging = pgPaginasChanging
ExplicitTop = 109 ExplicitTop = 109
@ -472,40 +471,40 @@ inherited fEditorContratoCliente: TfEditorContratoCliente
ExplicitWidth = 110 ExplicitWidth = 110
end end
inherited UpDown1: TUpDown inherited UpDown1: TUpDown
Left = 271 Left = 255
ExplicitLeft = 271 ExplicitLeft = 255
end end
inherited ToolButton13: TToolButton inherited ToolButton13: TToolButton
Left = 288 Left = 272
ExplicitLeft = 288 ExplicitLeft = 272
end end
inherited ToolButton6: TToolButton inherited ToolButton6: TToolButton
Left = 296 Left = 280
ExplicitLeft = 296 ExplicitLeft = 280
end end
inherited ToolButton7: TToolButton inherited ToolButton7: TToolButton
Left = 330 Left = 314
ExplicitLeft = 330 ExplicitLeft = 314
end end
inherited ToolButton8: TToolButton inherited ToolButton8: TToolButton
Left = 364 Left = 348
ExplicitLeft = 364 ExplicitLeft = 348
end end
inherited ToolButton12: TToolButton inherited ToolButton12: TToolButton
Left = 398 Left = 382
ExplicitLeft = 398 ExplicitLeft = 382
end end
inherited ToolButton9: TToolButton inherited ToolButton9: TToolButton
Left = 406 Left = 390
ExplicitLeft = 406 ExplicitLeft = 390
end end
inherited ToolButton10: TToolButton inherited ToolButton10: TToolButton
Left = 440 Left = 424
ExplicitLeft = 440 ExplicitLeft = 424
end end
inherited ToolButton11: TToolButton inherited ToolButton11: TToolButton
Left = 474 Left = 458
ExplicitLeft = 474 ExplicitLeft = 458
end end
end end
inherited cxGrid: TcxGrid inherited cxGrid: TcxGrid

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

@ -194,7 +194,11 @@ inherited fEditorContratosCliente: TfEditorContratosCliente
DockPos = 343 DockPos = 343
Visible = True Visible = True
ExplicitLeft = 431 ExplicitLeft = 431
ExplicitWidth = 370 ExplicitWidth = 430
object TBXItem50: TTBXItem
Action = actLOPD
DisplayMode = nbdmImageAndText
end
object TBXSeparatorItem18: TTBXSeparatorItem object TBXSeparatorItem18: TTBXSeparatorItem
end end
object TBXItem44: TTBXItem object TBXItem44: TTBXItem
@ -326,6 +330,13 @@ inherited fEditorContratosCliente: TfEditorContratosCliente
OnExecute = actGenerarReciboCliExecute OnExecute = actGenerarReciboCliExecute
OnUpdate = actGenerarReciboCliUpdate OnUpdate = actGenerarReciboCliUpdate
end end
object actLOPD: TAction
Category = 'Acciones'
Caption = 'GDPR'
ImageIndex = 27
OnExecute = actLOPDExecute
OnUpdate = actLOPDUpdate
end
end end
inherited SmallImages: TPngImageList inherited SmallImages: TPngImageList
PngImages = < PngImages = <

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

@ -57,6 +57,8 @@ type
actRechazar: TAction; actRechazar: TAction;
actGenerarReciboCli: TAction; actGenerarReciboCli: TAction;
TBXSeparatorItem21: TTBXSeparatorItem; TBXSeparatorItem21: TTBXSeparatorItem;
actLOPD: TAction;
TBXItem50: TTBXItem;
procedure FormShow(Sender: TObject); procedure FormShow(Sender: TObject);
procedure actGenerarAlbaranCliExecute(Sender: TObject); procedure actGenerarAlbaranCliExecute(Sender: TObject);
procedure actEliminarUpdate(Sender: TObject); procedure actEliminarUpdate(Sender: TObject);
@ -88,6 +90,8 @@ type
procedure actRechazarUpdate(Sender: TObject); procedure actRechazarUpdate(Sender: TObject);
procedure actGenerarReciboCliExecute(Sender: TObject); procedure actGenerarReciboCliExecute(Sender: TObject);
procedure actGenerarReciboCliUpdate(Sender: TObject); procedure actGenerarReciboCliUpdate(Sender: TObject);
procedure actLOPDExecute(Sender: TObject);
procedure actLOPDUpdate(Sender: TObject);
private private
procedure cambiarSituacion (const ASituacion: String); procedure cambiarSituacion (const ASituacion: String);
@ -363,6 +367,36 @@ begin
FController.VerListadoBeneficios; FController.VerListadoBeneficios;
end; end;
procedure TfEditorContratosCliente.actLOPDExecute(Sender: TObject);
var
AContratos: IBizContratoCliente;
begin
inherited;
ViewGrid.SaveGridStatus;
try
SeleccionarFilasDesdeGrid(ViewGrid._FocusedView, (Contratos as ISeleccionable).SelectedRecords);
AContratos := (Controller as IContratosClienteController).ExtraerSeleccionados(Contratos) as IBizContratoCliente;
finally
ViewGrid.RestoreGridStatus;
end;
if (Controller as IContratosClienteController).AsignarLOPD(AContratos) then
RefrescarInterno;
end;
procedure TfEditorContratosCliente.actLOPDUpdate(Sender: TObject);
begin
inherited;
if HayDatos and Assigned(ViewGrid) then
(Sender as TAction).Enabled := not (dsDataTable.DataTable.State in dsEditModes)
and ViewGrid.esSeleccionCeldaDatos
and (ViewGrid.NumSeleccionados > 0)
else
(Sender as TAction).Enabled := False;
end;
procedure TfEditorContratosCliente.actRechazarExecute(Sender: TObject); procedure TfEditorContratosCliente.actRechazarExecute(Sender: TObject);
begin begin
cambiarSituacion(SITUACION_CONTRATO_RECHAZADO); cambiarSituacion(SITUACION_CONTRATO_RECHAZADO);

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

@ -9,8 +9,9 @@ inherited frViewContratosCliente: TfrViewContratosCliente
Height = 369 Height = 369
RootLevelOptions.DetailTabsPosition = dtpTop RootLevelOptions.DetailTabsPosition = dtpTop
OnActiveTabChanged = cxGridActiveTabChanged OnActiveTabChanged = cxGridActiveTabChanged
ExplicitTop = 130
ExplicitWidth = 903 ExplicitWidth = 903
ExplicitHeight = 397 ExplicitHeight = 369
inherited cxGridView: TcxGridDBTableView inherited cxGridView: TcxGridDBTableView
DataController.KeyFieldNames = 'ID' DataController.KeyFieldNames = 'ID'
DataController.Options = [dcoAnsiSort, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoGroupsAlwaysExpanded] DataController.Options = [dcoAnsiSort, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoGroupsAlwaysExpanded]
@ -32,6 +33,24 @@ inherited frViewContratosCliente: TfrViewContratosCliente
Kind = skSum Kind = skSum
Column = cxGridViewIMPORTE_TOTAL Column = cxGridViewIMPORTE_TOTAL
end> end>
object cxGridViewLOPD: TcxGridDBColumn
Caption = 'GDPR'
DataBinding.FieldName = 'LOPD'
PropertiesClassName = 'TcxImageComboBoxProperties'
Properties.Images = GridPNGImageList
Properties.Items = <
item
Value = 0
end
item
ImageIndex = 4
Tag = 1
Value = 1
end>
BestFitMaxWidth = 40
MinWidth = 40
Width = 40
end
object cxGridViewCAMPO_LIBRE: TcxGridDBColumn object cxGridViewCAMPO_LIBRE: TcxGridDBColumn
Caption = '-' Caption = '-'
DataBinding.FieldName = 'CAMPO_LIBRE' DataBinding.FieldName = 'CAMPO_LIBRE'
@ -178,21 +197,27 @@ inherited frViewContratosCliente: TfrViewContratosCliente
ExplicitHeight = 130 ExplicitHeight = 130
inherited TBXDockablePanel1: TTBXDockablePanel inherited TBXDockablePanel1: TTBXDockablePanel
ExplicitWidth = 903 ExplicitWidth = 903
ExplicitHeight = 130
inherited dxLayoutControl1: TdxLayoutControl inherited dxLayoutControl1: TdxLayoutControl
Width = 903 Width = 903
Height = 100 Height = 100
ExplicitWidth = 903 ExplicitWidth = 903
ExplicitHeight = 100
inherited txtFiltroTodo: TcxTextEdit inherited txtFiltroTodo: TcxTextEdit
Left = 116
Style.LookAndFeel.SkinName = '' Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = '' StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = '' StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = '' StyleHot.LookAndFeel.SkinName = ''
ExplicitLeft = 116
end end
inherited edtFechaIniFiltro: TcxDateEdit inherited edtFechaIniFiltro: TcxDateEdit
Left = 116
Style.LookAndFeel.SkinName = '' Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = '' StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = '' StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = '' StyleHot.LookAndFeel.SkinName = ''
ExplicitLeft = 116
ExplicitWidth = 200 ExplicitWidth = 200
Width = 200 Width = 200
end end
@ -216,11 +241,13 @@ inherited frViewContratosCliente: TfrViewContratosCliente
Width = 200 Width = 200
end end
inherited edtFecha2IniFiltro: TcxDateEdit inherited edtFecha2IniFiltro: TcxDateEdit
Left = 116
Enabled = True Enabled = True
Style.LookAndFeel.SkinName = '' Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = '' StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = '' StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = '' StyleHot.LookAndFeel.SkinName = ''
ExplicitLeft = 116
ExplicitWidth = 200 ExplicitWidth = 200
Width = 200 Width = 200
end end
@ -239,6 +266,7 @@ inherited frViewContratosCliente: TfrViewContratosCliente
inherited TBXAlignmentPanel1: TTBXAlignmentPanel inherited TBXAlignmentPanel1: TTBXAlignmentPanel
Top = 100 Top = 100
Width = 903 Width = 903
ExplicitTop = 100
ExplicitWidth = 903 ExplicitWidth = 903
inherited tbxBotones: TTBXToolbar inherited tbxBotones: TTBXToolbar
Width = 893 Width = 893
@ -537,6 +565,29 @@ inherited frViewContratosCliente: TfrViewContratosCliente
CF0000000049454E44AE426082} CF0000000049454E44AE426082}
Name = 'PngImage3' Name = 'PngImage3'
Background = clWindow Background = clWindow
end
item
PngImage.Data = {
89504E470D0A1A0A0000000D49484452000000100000001008060000001FF3FF
61000000097048597300000AEB00000AEB01828B0D5A000001DA4944415478DA
63FCFFFF3F032580912C5DF2F33964B539E3DF7DF8F1956403380CE7C85B5929
CFFAF99ED7FCFCED9BE124192060B7D8D6CE5279E99B876C42674FFC0CFEF9C0
7A27D10628FBAF0FB030915F74E7EA6FE6F387FF87FD7A6AB195E83090F55915
EEE7A23BE7FCD9CFAC170EFF4EFDF6C07A31D18128E1BE3CC8DB597BE1A3BBBF
B98EECFA91FBFDBEF574A0F07FA20C10B09B67EBE366B8E3CDF37F9C47F77CED
FC7CD3AE125D0DC400B3897C9CCCBCEADFD9182F331C4CFC010E6DCB39F29E0E
3A07599939E477AE7FBFFBE3CF4BBE0C77F27F621820EAB848DFDC447931372B
9FE68E5DF7577F3C73368E414588D9C6496BB3AA92B8CBDECD9FDEBC7CF9D3F2
E71DE7BBD85CC928EAB438C4C7556F3A0B1B8BC8B1BD9FFFDE7B753F4C41994B
C3CA48B1E5F09ECFFFEF3F7D19F3FB5AD0725CDE047B41276243A09D85FAAAA7
CFBFB11CDEFBEA8EA79F98E4C3FBBFB8CF9F7BBDE5EB453F3FE440C31E060CF5
4C4ED9F63B6565845D5EBEFEF29F11287AE9C4AF2FAFBF3D32FF753EFE3ABE80
86C7028FF5429B101F83FDCF5F7F66797697E1FFCDDB6FA7FFBAE69F4D289A91
A2B19EC539C7E1C49BC7EC46F71EBDD9FFF9DFD338868B994F4930808181D76E
413EF33F56D90F0F5ED4323C29FE4E4833080000904EC47A3EA3126900000000
49454E44AE426082}
Name = 'PngImage4'
Background = clWindow
end> end>
Bitmap = {} Bitmap = {}
end end

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

@ -52,6 +52,7 @@ type
cxGridViewFACTURA_ASOCIADA: TcxGridDBColumn; cxGridViewFACTURA_ASOCIADA: TcxGridDBColumn;
cxGridViewFECHA_PREVISTA_MONTAJE: TcxGridDBColumn; cxGridViewFECHA_PREVISTA_MONTAJE: TcxGridDBColumn;
cxGridViewCAMPO_LIBRE: TcxGridDBColumn; cxGridViewCAMPO_LIBRE: TcxGridDBColumn;
cxGridViewLOPD: TcxGridDBColumn;
procedure cxGridActiveTabChanged(Sender: TcxCustomGrid; ALevel: procedure cxGridActiveTabChanged(Sender: TcxCustomGrid; ALevel:
TcxGridLevel); TcxGridLevel);
procedure cxGridViewStylesGetContentStyle(Sender: TcxCustomGridTableView; procedure cxGridViewStylesGetContentStyle(Sender: TcxCustomGridTableView;

41
Source/Modulos/Facturas de cliente/Controller/uFacturasClienteController.pas
View File

@ -38,8 +38,8 @@ type
function Duplicar(AFactura: IBizFacturaCliente): IBizFacturaCliente; function Duplicar(AFactura: IBizFacturaCliente): IBizFacturaCliente;
function GenerarAbono(AFactura: IBizFacturaCliente): IBizFacturaCliente; function GenerarAbono(AFactura: IBizFacturaCliente): IBizFacturaCliente;
procedure Preview(AFactura : IBizFacturaCliente; AllItems: Boolean = false); procedure Preview(AFactura : IBizFacturaCliente; AllItems: Boolean = false; AVerDatosCliente: Boolean = true);
procedure Print(AFactura : IBizFacturaCliente; AllItems: Boolean = false); procedure Print(AFactura : IBizFacturaCliente; AllItems: Boolean = false; AVerDatosCliente: Boolean = true);
procedure EnviarFacturaPorEMail(AFactura : IBizFacturaCliente); procedure EnviarFacturaPorEMail(AFactura : IBizFacturaCliente);
procedure RecalcularImportes(AFactura: IBizFacturaCliente); procedure RecalcularImportes(AFactura: IBizFacturaCliente);
@ -53,6 +53,7 @@ type
function DarListaAnosFacturas: TStringList; function DarListaAnosFacturas: TStringList;
procedure FiltrarAno(AFactura: IBizFacturaCliente; ADynWhereDataTable: WideString; const Ano: String); procedure FiltrarAno(AFactura: IBizFacturaCliente; ADynWhereDataTable: WideString; const Ano: String);
function CambiarSituacion(AFactura : IBizFacturaCliente; AllItems: Boolean = false; ASituacion: String = CTE_PENDIENTE; AListaCausas: TStringList = nil): Boolean; function CambiarSituacion(AFactura : IBizFacturaCliente; AllItems: Boolean = false; ASituacion: String = CTE_PENDIENTE; AListaCausas: TStringList = nil): Boolean;
function AsignarLOPD(AFacturas: IBizFacturaCliente): Boolean;
end; end;
TFacturasClienteController = class(TControllerBase, IFacturasClienteController) TFacturasClienteController = class(TControllerBase, IFacturasClienteController)
@ -103,8 +104,8 @@ type
function GenerarAbono(AFactura: IBizFacturaCliente): IBizFacturaCliente; function GenerarAbono(AFactura: IBizFacturaCliente): IBizFacturaCliente;
procedure RecuperarCliente(AFactura : IBizFacturaCliente); procedure RecuperarCliente(AFactura : IBizFacturaCliente);
procedure Preview(AFactura : IBizFacturaCliente; AllItems: Boolean = false); procedure Preview(AFactura : IBizFacturaCliente; AllItems: Boolean = false; AVerDatosCliente: Boolean = true);
procedure Print(AFactura : IBizFacturaCliente; AllItems: Boolean = false); procedure Print(AFactura : IBizFacturaCliente; AllItems: Boolean = false; AVerDatosCliente: Boolean = true);
procedure EnviarFacturaPorEMail(AFactura : IBizFacturaCliente); procedure EnviarFacturaPorEMail(AFactura : IBizFacturaCliente);
procedure RecalcularImportes(AFactura: IBizFacturaCliente); procedure RecalcularImportes(AFactura: IBizFacturaCliente);
@ -122,6 +123,7 @@ type
procedure FiltrarAno(AFactura: IBizFacturaCliente; ADynWhereDataTable: WideString; const Ano: String); procedure FiltrarAno(AFactura: IBizFacturaCliente; ADynWhereDataTable: WideString; const Ano: String);
function CambiarSituacion(AFactura : IBizFacturaCliente; AllItems: Boolean = false; ASituacion: String = CTE_PENDIENTE; AListaCausas: TStringList = nil): Boolean; function CambiarSituacion(AFactura : IBizFacturaCliente; AllItems: Boolean = false; ASituacion: String = CTE_PENDIENTE; AListaCausas: TStringList = nil): Boolean;
function AsignarLOPD(AFacturas: IBizFacturaCliente): Boolean;
end; end;
implementation implementation
@ -207,6 +209,29 @@ begin
Result := True; Result := True;
end; end;
function TFacturasClienteController.AsignarLOPD(AFacturas: IBizFacturaCliente): Boolean;
var
ACliente : IBizCliente;
AResultado : Boolean;
begin
Result := false;
if Assigned(AFacturas) then
begin
with AFacturas.DataTable do
begin
First;
while not EOF do
begin
ACliente := (FClienteController.Buscar(AFacturas.ID_Cliente) as IBizCliente);
AResultado := FClienteController.AsignarLOPD(ACliente);
if not Result then
Result := AResultado;
Next;
end;
end;
end;
end;
function TFacturasClienteController.Anadir(AFacturas: IBizFacturaCliente; function TFacturasClienteController.Anadir(AFacturas: IBizFacturaCliente;
AListaAlbaranes: IBizAlbaranCliente): Boolean; AListaAlbaranes: IBizAlbaranCliente): Boolean;
var var
@ -1270,7 +1295,7 @@ begin
Result := AFactura; Result := AFactura;
end; end;
procedure TFacturasClienteController.Preview(AFactura: IBizFacturaCliente; AllItems: Boolean = false); procedure TFacturasClienteController.Preview(AFactura: IBizFacturaCliente; AllItems: Boolean = false; AVerDatosCliente: Boolean = true);
var var
AReportController : IFacturasClienteReportController; AReportController : IFacturasClienteReportController;
ID_Facturas: TIntegerList; ID_Facturas: TIntegerList;
@ -1297,7 +1322,7 @@ begin
else else
ID_Facturas.Add(AFactura.ID); ID_Facturas.Add(AFactura.ID);
AReportController.Preview(ID_Facturas); AReportController.Preview(ID_Facturas, AVerDatosCliente);
finally finally
AReportController := NIL; AReportController := NIL;
@ -1305,7 +1330,7 @@ begin
end; end;
end; end;
procedure TFacturasClienteController.Print(AFactura: IBizFacturaCliente; AllItems: Boolean = false); procedure TFacturasClienteController.Print(AFactura: IBizFacturaCliente; AllItems: Boolean = false; AVerDatosCliente: Boolean = true);
var var
AReportController : IFacturasClienteReportController; AReportController : IFacturasClienteReportController;
ID_Facturas: TIntegerList; ID_Facturas: TIntegerList;
@ -1332,7 +1357,7 @@ begin
else else
ID_Facturas.Add(AFactura.ID); ID_Facturas.Add(AFactura.ID);
AReportController.Print(ID_Facturas); AReportController.Print(ID_Facturas, AVerDatosCliente);
finally finally
AReportController := NIL; AReportController := NIL;

16
Source/Modulos/Facturas de cliente/Controller/uFacturasClienteReportController.pas
View File

@ -10,8 +10,8 @@ uses
type type
IFacturasClienteReportController = interface(IControllerBase) IFacturasClienteReportController = interface(IControllerBase)
['{A0F41767-4FF6-4BAE-9FC9-894DD721D756}'] ['{A0F41767-4FF6-4BAE-9FC9-894DD721D756}']
procedure Preview(const AListaID : TIntegerList); procedure Preview(const AListaID : TIntegerList; AVerDatosCliente: Boolean = true);
procedure Print(const AListaID : TIntegerList); procedure Print(const AListaID : TIntegerList; AVerDatosCliente: Boolean = true);
function ExportToPDF(const AID: Integer; const AFileName : String = ''): Boolean; function ExportToPDF(const AID: Integer; const AFileName : String = ''): Boolean;
end; end;
@ -23,8 +23,8 @@ type
constructor Create; override; constructor Create; override;
destructor Destroy; override; destructor Destroy; override;
procedure Preview(const AListaID : TIntegerList); procedure Preview(const AListaID : TIntegerList; AVerDatosCliente: Boolean = true);
procedure Print(const AListaID : TIntegerList); procedure Print(const AListaID : TIntegerList; AVerDatosCliente: Boolean = true);
function ExportToPDF(const AID: Integer; const AFileName : String = ''): Boolean; function ExportToPDF(const AID: Integer; const AFileName : String = ''): Boolean;
end; end;
@ -80,14 +80,14 @@ begin
end; end;
end; end;
procedure TFacturasClienteReportController.Preview(const AListaID : TIntegerList); procedure TFacturasClienteReportController.Preview(const AListaID : TIntegerList; AVerDatosCliente: Boolean = true);
var var
AStream: Binary; AStream: Binary;
AEditor : IEditorFacturasClientePreview; AEditor : IEditorFacturasClientePreview;
begin begin
AEditor := NIL; AEditor := NIL;
AStream := FDataModule.GetReport(AListaID); AStream := FDataModule.GetReport(AListaID, AVerDatosCliente);
try try
CreateEditor('EditorFacturasClientePreview', IEditorFacturasClientePreview, AEditor); CreateEditor('EditorFacturasClientePreview', IEditorFacturasClientePreview, AEditor);
if Assigned(AEditor) then if Assigned(AEditor) then
@ -105,7 +105,7 @@ begin
end; end;
end; end;
procedure TFacturasClienteReportController.Print(const AListaID : TIntegerList); procedure TFacturasClienteReportController.Print(const AListaID : TIntegerList; AVerDatosCliente: Boolean = true);
var var
AStream: Binary; AStream: Binary;
AEditor : IEditorFacturasClientePreview; AEditor : IEditorFacturasClientePreview;
@ -113,7 +113,7 @@ begin
AEditor := NIL; AEditor := NIL;
ShowHourglassCursor; ShowHourglassCursor;
try try
AStream := FDataModule.GetReport(AListaID); AStream := FDataModule.GetReport(AListaID, AVerDatosCliente);
try try
CreateEditor('EditorFacturasClientePreview', IEditorFacturasClientePreview, AEditor); CreateEditor('EditorFacturasClientePreview', IEditorFacturasClientePreview, AEditor);
if Assigned(AEditor) then if Assigned(AEditor) then

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

@ -152,6 +152,10 @@ inherited DataModuleFacturasCliente: TDataModuleFacturasCliente
DataType = datString DataType = datString
Size = 255 Size = 255
end end
item
Name = 'LOPD'
DataType = datSmallInt
end
item item
Name = 'NOMBRE_COMERCIAL_CLIENTE' Name = 'NOMBRE_COMERCIAL_CLIENTE'
DataType = datString DataType = datString

12
Source/Modulos/Facturas de cliente/Data/uDataModuleFacturasCliente.pas
View File

@ -33,8 +33,8 @@ type
function NewItem : IBizFacturaCliente; function NewItem : IBizFacturaCliente;
// Report // Report
function GetReport(const AListaID: TIntegerList): Binary; function GetReport(const AListaID: TIntegerList; AVerDatosCliente: Boolean = true): Binary;
function GetRptPDFFactura(const AID: Integer): Binary; function GetRptPDFFactura(const AID: Integer; AVerDatosCliente: Boolean = true): Binary;
end; end;
implementation implementation
@ -53,26 +53,26 @@ begin
RORemoteService.Message := dmConexion.Message; RORemoteService.Message := dmConexion.Message;
end; end;
function TDataModuleFacturasCliente.GetReport(const AListaID: TIntegerList): Binary; function TDataModuleFacturasCliente.GetReport(const AListaID: TIntegerList; AVerDatosCliente: Boolean = true): Binary;
var var
AParam : TIntegerArray; AParam : TIntegerArray;
begin begin
AParam := AListaID.ToIntegerArray; AParam := AListaID.ToIntegerArray;
try try
Result := (RORemoteService as IsrvFacturasCliente).GenerateReport(AParam); Result := (RORemoteService as IsrvFacturasCliente).GenerateReport(AParam, AVerDAtosCliente);
finally finally
FreeANDNIL(AParam); FreeANDNIL(AParam);
end; end;
end; end;
function TDataModuleFacturasCliente.GetRptPDFFactura(const AID: Integer): Binary; function TDataModuleFacturasCliente.GetRptPDFFactura(const AID: Integer; AVerDatosCliente: Boolean = true): Binary;
var var
AParam : TIntegerArray; AParam : TIntegerArray;
begin begin
AParam := TIntegerArray.Create; AParam := TIntegerArray.Create;
try try
AParam.Add(AID); AParam.Add(AID);
Result := (RORemoteService as IsrvFacturasCliente).GenerarInformeEnPDF(AParam) Result := (RORemoteService as IsrvFacturasCliente).GenerarInformeEnPDF(AParam, AVerDatosCliente)
finally finally
FreeANDNIL(AParam) FreeANDNIL(AParam)
end; end;

36
Source/Modulos/Facturas de cliente/FacturasCliente_Group.groupproj
View File

@ -175,6 +175,15 @@
<Target Name="FacturasCliente_model:Make"> <Target Name="FacturasCliente_model:Make">
<MSBuild Projects="Model\FacturasCliente_model.dproj" Targets="Make" /> <MSBuild Projects="Model\FacturasCliente_model.dproj" Targets="Make" />
</Target> </Target>
<Target Name="FacturasCliente_data">
<MSBuild Projects="Data\FacturasCliente_data.dproj" Targets="" />
</Target>
<Target Name="FacturasCliente_data:Clean">
<MSBuild Projects="Data\FacturasCliente_data.dproj" Targets="Clean" />
</Target>
<Target Name="FacturasCliente_data:Make">
<MSBuild Projects="Data\FacturasCliente_data.dproj" Targets="Make" />
</Target>
<Target Name="FacturasCliente_controller"> <Target Name="FacturasCliente_controller">
<MSBuild Projects="Controller\FacturasCliente_controller.dproj" Targets="" /> <MSBuild Projects="Controller\FacturasCliente_controller.dproj" Targets="" />
</Target> </Target>
@ -184,14 +193,14 @@
<Target Name="FacturasCliente_controller:Make"> <Target Name="FacturasCliente_controller:Make">
<MSBuild Projects="Controller\FacturasCliente_controller.dproj" Targets="Make" /> <MSBuild Projects="Controller\FacturasCliente_controller.dproj" Targets="Make" />
</Target> </Target>
<Target Name="FacturasCliente_data"> <Target Name="ConCli_FacCli_relation">
<MSBuild Projects="Data\FacturasCliente_data.dproj" Targets="" /> <MSBuild Projects="..\Relaciones\Contratos de cliente - Facturas de cliente\ConCli_FacCli_relation.dproj" Targets="" />
</Target> </Target>
<Target Name="FacturasCliente_data:Clean"> <Target Name="ConCli_FacCli_relation:Clean">
<MSBuild Projects="Data\FacturasCliente_data.dproj" Targets="Clean" /> <MSBuild Projects="..\Relaciones\Contratos de cliente - Facturas de cliente\ConCli_FacCli_relation.dproj" Targets="Clean" />
</Target> </Target>
<Target Name="FacturasCliente_data:Make"> <Target Name="ConCli_FacCli_relation:Make">
<MSBuild Projects="Data\FacturasCliente_data.dproj" Targets="Make" /> <MSBuild Projects="..\Relaciones\Contratos de cliente - Facturas de cliente\ConCli_FacCli_relation.dproj" Targets="Make" />
</Target> </Target>
<Target Name="Contabilidad_view"> <Target Name="Contabilidad_view">
<MSBuild Projects="..\Contabilidad\Views\Contabilidad_view.dproj" Targets="" /> <MSBuild Projects="..\Contabilidad\Views\Contabilidad_view.dproj" Targets="" />
@ -283,15 +292,6 @@
<Target Name="RecibosCliente_data:Make"> <Target Name="RecibosCliente_data:Make">
<MSBuild Projects="..\Recibos de cliente\Data\RecibosCliente_data.dproj" Targets="Make" /> <MSBuild Projects="..\Recibos de cliente\Data\RecibosCliente_data.dproj" Targets="Make" />
</Target> </Target>
<Target Name="ConCli_FacCli_relation">
<MSBuild Projects="..\Relaciones\Contratos de cliente - Facturas de cliente\ConCli_FacCli_relation.dproj" Targets="" />
</Target>
<Target Name="ConCli_FacCli_relation:Clean">
<MSBuild Projects="..\Relaciones\Contratos de cliente - Facturas de cliente\ConCli_FacCli_relation.dproj" Targets="Clean" />
</Target>
<Target Name="ConCli_FacCli_relation:Make">
<MSBuild Projects="..\Relaciones\Contratos de cliente - Facturas de cliente\ConCli_FacCli_relation.dproj" Targets="Make" />
</Target>
<Target Name="PresupuestosCliente_controller"> <Target Name="PresupuestosCliente_controller">
<MSBuild Projects="..\Presupuestos de cliente\Controller\PresupuestosCliente_controller.dproj" Targets="" /> <MSBuild Projects="..\Presupuestos de cliente\Controller\PresupuestosCliente_controller.dproj" Targets="" />
</Target> </Target>
@ -302,13 +302,13 @@
<MSBuild Projects="..\Presupuestos de cliente\Controller\PresupuestosCliente_controller.dproj" Targets="Make" /> <MSBuild Projects="..\Presupuestos de cliente\Controller\PresupuestosCliente_controller.dproj" Targets="Make" />
</Target> </Target>
<Target Name="Build"> <Target Name="Build">
<CallTarget Targets="Base;GUIBase;ApplicationBase;Contactos_model;Contactos_data;Contactos_controller;Contactos_view;Articulos_controller;Articulos_view;GestorInformes_model;GestorInformes_data;GestorInformes_controller;GestorInformes_view;GestorInformes_plugin;FacturasCliente_model;FacturasCliente_controller;FacturasCliente_data;Contabilidad_view;FacturasCliente_view;FacturasCliente_plugin;FactuGES;FactuGES_Server;PedidosProveedor_view;PresupuestosCliente_view;RecibosCliente_controller;RecibosCliente_model;RecibosCliente_data;ConCli_FacCli_relation;PresupuestosCliente_controller" /> <CallTarget Targets="Base;GUIBase;ApplicationBase;Contactos_model;Contactos_data;Contactos_controller;Contactos_view;Articulos_controller;Articulos_view;GestorInformes_model;GestorInformes_data;GestorInformes_controller;GestorInformes_view;GestorInformes_plugin;FacturasCliente_model;FacturasCliente_data;FacturasCliente_controller;ConCli_FacCli_relation;Contabilidad_view;FacturasCliente_view;FacturasCliente_plugin;FactuGES;FactuGES_Server;PedidosProveedor_view;PresupuestosCliente_view;RecibosCliente_controller;RecibosCliente_model;RecibosCliente_data;PresupuestosCliente_controller" />
</Target> </Target>
<Target Name="Clean"> <Target Name="Clean">
<CallTarget Targets="Base:Clean;GUIBase:Clean;ApplicationBase:Clean;Contactos_model:Clean;Contactos_data:Clean;Contactos_controller:Clean;Contactos_view:Clean;Articulos_controller:Clean;Articulos_view:Clean;GestorInformes_model:Clean;GestorInformes_data:Clean;GestorInformes_controller:Clean;GestorInformes_view:Clean;GestorInformes_plugin:Clean;FacturasCliente_model:Clean;FacturasCliente_controller:Clean;FacturasCliente_data:Clean;Contabilidad_view:Clean;FacturasCliente_view:Clean;FacturasCliente_plugin:Clean;FactuGES:Clean;FactuGES_Server:Clean;PedidosProveedor_view:Clean;PresupuestosCliente_view:Clean;RecibosCliente_controller:Clean;RecibosCliente_model:Clean;RecibosCliente_data:Clean;ConCli_FacCli_relation:Clean;PresupuestosCliente_controller:Clean" /> <CallTarget Targets="Base:Clean;GUIBase:Clean;ApplicationBase:Clean;Contactos_model:Clean;Contactos_data:Clean;Contactos_controller:Clean;Contactos_view:Clean;Articulos_controller:Clean;Articulos_view:Clean;GestorInformes_model:Clean;GestorInformes_data:Clean;GestorInformes_controller:Clean;GestorInformes_view:Clean;GestorInformes_plugin:Clean;FacturasCliente_model:Clean;FacturasCliente_data:Clean;FacturasCliente_controller:Clean;ConCli_FacCli_relation:Clean;Contabilidad_view:Clean;FacturasCliente_view:Clean;FacturasCliente_plugin:Clean;FactuGES:Clean;FactuGES_Server:Clean;PedidosProveedor_view:Clean;PresupuestosCliente_view:Clean;RecibosCliente_controller:Clean;RecibosCliente_model:Clean;RecibosCliente_data:Clean;PresupuestosCliente_controller:Clean" />
</Target> </Target>
<Target Name="Make"> <Target Name="Make">
<CallTarget Targets="Base:Make;GUIBase:Make;ApplicationBase:Make;Contactos_model:Make;Contactos_data:Make;Contactos_controller:Make;Contactos_view:Make;Articulos_controller:Make;Articulos_view:Make;GestorInformes_model:Make;GestorInformes_data:Make;GestorInformes_controller:Make;GestorInformes_view:Make;GestorInformes_plugin:Make;FacturasCliente_model:Make;FacturasCliente_controller:Make;FacturasCliente_data:Make;Contabilidad_view:Make;FacturasCliente_view:Make;FacturasCliente_plugin:Make;FactuGES:Make;FactuGES_Server:Make;PedidosProveedor_view:Make;PresupuestosCliente_view:Make;RecibosCliente_controller:Make;RecibosCliente_model:Make;RecibosCliente_data:Make;ConCli_FacCli_relation:Make;PresupuestosCliente_controller:Make" /> <CallTarget Targets="Base:Make;GUIBase:Make;ApplicationBase:Make;Contactos_model:Make;Contactos_data:Make;Contactos_controller:Make;Contactos_view:Make;Articulos_controller:Make;Articulos_view:Make;GestorInformes_model:Make;GestorInformes_data:Make;GestorInformes_controller:Make;GestorInformes_view:Make;GestorInformes_plugin:Make;FacturasCliente_model:Make;FacturasCliente_data:Make;FacturasCliente_controller:Make;ConCli_FacCli_relation:Make;Contabilidad_view:Make;FacturasCliente_view:Make;FacturasCliente_plugin:Make;FactuGES:Make;FactuGES_Server:Make;PedidosProveedor_view:Make;PresupuestosCliente_view:Make;RecibosCliente_controller:Make;RecibosCliente_model:Make;RecibosCliente_data:Make;PresupuestosCliente_controller:Make" />
</Target> </Target>
<Import Condition="Exists('$(MSBuildBinPath)\Borland.Group.Targets')" Project="$(MSBuildBinPath)\Borland.Group.Targets" /> <Import Condition="Exists('$(MSBuildBinPath)\Borland.Group.Targets')" Project="$(MSBuildBinPath)\Borland.Group.Targets" />
</Project> </Project>

4
Source/Modulos/Facturas de cliente/Model/Data/uIDataModuleFacturasClienteReport.pas
View File

@ -8,8 +8,8 @@ uses
type type
IDataModuleFacturasClienteReport = interface IDataModuleFacturasClienteReport = interface
['{F498AC70-AA38-4C06-B301-85A4AC0B210B}'] ['{F498AC70-AA38-4C06-B301-85A4AC0B210B}']
function GetReport(const AListaID: TIntegerList): Binary; function GetReport(const AListaID: TIntegerList; AVerDatosCliente: Boolean = true): Binary;
function GetRptPDFFactura(const AID: Integer): Binary; function GetRptPDFFactura(const AID: Integer; AVerDatosCliente: Boolean = true): Binary;
end; end;
implementation implementation

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 = '{35EC352F-3CB5-431C-941C-773B56FC9C17}'; RID_ListaAnosFacturas = '{5C79DBFB-3749-4E03-8CDE-DE9D4C57D4A9}';
RID_FacturasCliente = '{EE5C9C18-5B51-475E-9CFC-A2F163B0F368}'; RID_FacturasCliente = '{CED0F94B-8407-4B71-A940-CD9F5546C129}';
RID_FacturasCliente_Detalles = '{CECC09E5-CA18-4B27-A693-F38FD2708E6E}'; RID_FacturasCliente_Detalles = '{09F93CCC-0AC0-4637-9AD7-11A92F660FCB}';
{ Data table names } { Data table names }
nme_ListaAnosFacturas = 'ListaAnosFacturas'; nme_ListaAnosFacturas = 'ListaAnosFacturas';
@ -45,6 +45,7 @@ const
fld_FacturasClienteID_CLIENTE = 'ID_CLIENTE'; fld_FacturasClienteID_CLIENTE = 'ID_CLIENTE';
fld_FacturasClienteNOMBRE_CLIENTE = 'NOMBRE_CLIENTE'; fld_FacturasClienteNOMBRE_CLIENTE = 'NOMBRE_CLIENTE';
fld_FacturasClienteREFERENCIA_CLIENTE = 'REFERENCIA_CLIENTE'; fld_FacturasClienteREFERENCIA_CLIENTE = 'REFERENCIA_CLIENTE';
fld_FacturasClienteLOPD = 'LOPD';
fld_FacturasClienteNOMBRE_COMERCIAL_CLIENTE = 'NOMBRE_COMERCIAL_CLIENTE'; fld_FacturasClienteNOMBRE_COMERCIAL_CLIENTE = 'NOMBRE_COMERCIAL_CLIENTE';
fld_FacturasClienteNIF_CIF = 'NIF_CIF'; fld_FacturasClienteNIF_CIF = 'NIF_CIF';
fld_FacturasClienteNOMBRE = 'NOMBRE'; fld_FacturasClienteNOMBRE = 'NOMBRE';
@ -99,38 +100,39 @@ const
idx_FacturasClienteID_CLIENTE = 17; idx_FacturasClienteID_CLIENTE = 17;
idx_FacturasClienteNOMBRE_CLIENTE = 18; idx_FacturasClienteNOMBRE_CLIENTE = 18;
idx_FacturasClienteREFERENCIA_CLIENTE = 19; idx_FacturasClienteREFERENCIA_CLIENTE = 19;
idx_FacturasClienteNOMBRE_COMERCIAL_CLIENTE = 20; idx_FacturasClienteLOPD = 20;
idx_FacturasClienteNIF_CIF = 21; idx_FacturasClienteNOMBRE_COMERCIAL_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_FacturasClienteVENDEDOR = 48; idx_FacturasClienteREF_CONTRATO = 48;
idx_FacturasClienteSIN_COMISION = 49; idx_FacturasClienteVENDEDOR = 49;
idx_FacturasClienteTIPO_FACTURA = 50; idx_FacturasClienteSIN_COMISION = 50;
idx_FacturasClienteLISTA_NOMBRES = 51; idx_FacturasClienteTIPO_FACTURA = 51;
idx_FacturasClienteLISTA_NOMBRES = 52;
{ FacturasCliente_Detalles fields } { FacturasCliente_Detalles fields }
fld_FacturasCliente_DetallesID = 'ID'; fld_FacturasCliente_DetallesID = 'ID';
@ -167,7 +169,7 @@ const
type type
{ IListaAnosFacturas } { IListaAnosFacturas }
IListaAnosFacturas = interface(IDAStronglyTypedDataTable) IListaAnosFacturas = interface(IDAStronglyTypedDataTable)
['{35B9CF8B-1998-4510-99B1-1EC13710F8AB}'] ['{7BB039B7-6272-44A4-9D97-8C440C2E331D}']
{ Property getters and setters } { Property getters and setters }
function GetANOValue: String; function GetANOValue: String;
procedure SetANOValue(const aValue: String); procedure SetANOValue(const aValue: String);
@ -202,7 +204,7 @@ type
{ IFacturasCliente } { IFacturasCliente }
IFacturasCliente = interface(IDAStronglyTypedDataTable) IFacturasCliente = interface(IDAStronglyTypedDataTable)
['{ADFA571C-3DA5-4B91-A0A9-35AFF4CC2018}'] ['{D08B97D1-FCA0-4F86-85DD-1A1355E36197}']
{ Property getters and setters } { Property getters and setters }
function GetIDValue: Integer; function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer); procedure SetIDValue(const aValue: Integer);
@ -283,6 +285,10 @@ type
procedure SetREFERENCIA_CLIENTEValue(const aValue: String); procedure SetREFERENCIA_CLIENTEValue(const aValue: String);
function GetREFERENCIA_CLIENTEIsNull: Boolean; function GetREFERENCIA_CLIENTEIsNull: Boolean;
procedure SetREFERENCIA_CLIENTEIsNull(const aValue: Boolean); procedure SetREFERENCIA_CLIENTEIsNull(const aValue: Boolean);
function GetLOPDValue: SmallInt;
procedure SetLOPDValue(const aValue: SmallInt);
function GetLOPDIsNull: Boolean;
procedure SetLOPDIsNull(const aValue: Boolean);
function GetNOMBRE_COMERCIAL_CLIENTEValue: String; function GetNOMBRE_COMERCIAL_CLIENTEValue: String;
procedure SetNOMBRE_COMERCIAL_CLIENTEValue(const aValue: String); procedure SetNOMBRE_COMERCIAL_CLIENTEValue(const aValue: String);
function GetNOMBRE_COMERCIAL_CLIENTEIsNull: Boolean; function GetNOMBRE_COMERCIAL_CLIENTEIsNull: Boolean;
@ -454,6 +460,8 @@ type
property NOMBRE_CLIENTEIsNull: Boolean read GetNOMBRE_CLIENTEIsNull write SetNOMBRE_CLIENTEIsNull; property NOMBRE_CLIENTEIsNull: Boolean read GetNOMBRE_CLIENTEIsNull write SetNOMBRE_CLIENTEIsNull;
property REFERENCIA_CLIENTE: String read GetREFERENCIA_CLIENTEValue write SetREFERENCIA_CLIENTEValue; property REFERENCIA_CLIENTE: String read GetREFERENCIA_CLIENTEValue write SetREFERENCIA_CLIENTEValue;
property REFERENCIA_CLIENTEIsNull: Boolean read GetREFERENCIA_CLIENTEIsNull write SetREFERENCIA_CLIENTEIsNull; property REFERENCIA_CLIENTEIsNull: Boolean read GetREFERENCIA_CLIENTEIsNull write SetREFERENCIA_CLIENTEIsNull;
property LOPD: SmallInt read GetLOPDValue write SetLOPDValue;
property LOPDIsNull: Boolean read GetLOPDIsNull write SetLOPDIsNull;
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 NIF_CIF: String read GetNIF_CIFValue write SetNIF_CIFValue; property NIF_CIF: String read GetNIF_CIFValue write SetNIF_CIFValue;
@ -606,6 +614,10 @@ type
procedure SetREFERENCIA_CLIENTEValue(const aValue: String); virtual; procedure SetREFERENCIA_CLIENTEValue(const aValue: String); virtual;
function GetREFERENCIA_CLIENTEIsNull: Boolean; virtual; function GetREFERENCIA_CLIENTEIsNull: Boolean; virtual;
procedure SetREFERENCIA_CLIENTEIsNull(const aValue: Boolean); virtual; procedure SetREFERENCIA_CLIENTEIsNull(const aValue: Boolean); virtual;
function GetLOPDValue: SmallInt; virtual;
procedure SetLOPDValue(const aValue: SmallInt); virtual;
function GetLOPDIsNull: Boolean; virtual;
procedure SetLOPDIsNull(const aValue: Boolean); virtual;
function GetNOMBRE_COMERCIAL_CLIENTEValue: String; virtual; function GetNOMBRE_COMERCIAL_CLIENTEValue: String; virtual;
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;
@ -776,6 +788,8 @@ type
property NOMBRE_CLIENTEIsNull: Boolean read GetNOMBRE_CLIENTEIsNull write SetNOMBRE_CLIENTEIsNull; property NOMBRE_CLIENTEIsNull: Boolean read GetNOMBRE_CLIENTEIsNull write SetNOMBRE_CLIENTEIsNull;
property REFERENCIA_CLIENTE: String read GetREFERENCIA_CLIENTEValue write SetREFERENCIA_CLIENTEValue; property REFERENCIA_CLIENTE: String read GetREFERENCIA_CLIENTEValue write SetREFERENCIA_CLIENTEValue;
property REFERENCIA_CLIENTEIsNull: Boolean read GetREFERENCIA_CLIENTEIsNull write SetREFERENCIA_CLIENTEIsNull; property REFERENCIA_CLIENTEIsNull: Boolean read GetREFERENCIA_CLIENTEIsNull write SetREFERENCIA_CLIENTEIsNull;
property LOPD: SmallInt read GetLOPDValue write SetLOPDValue;
property LOPDIsNull: Boolean read GetLOPDIsNull write SetLOPDIsNull;
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 NIF_CIF: String read GetNIF_CIFValue write SetNIF_CIFValue; property NIF_CIF: String read GetNIF_CIFValue write SetNIF_CIFValue;
@ -849,7 +863,7 @@ type
{ IFacturasCliente_Detalles } { IFacturasCliente_Detalles }
IFacturasCliente_Detalles = interface(IDAStronglyTypedDataTable) IFacturasCliente_Detalles = interface(IDAStronglyTypedDataTable)
['{1DBA415D-060E-4E81-99F9-6BBC34A48D3E}'] ['{87689EEB-6BF8-4ED2-9742-3AF5F4DDBE64}']
{ Property getters and setters } { Property getters and setters }
function GetIDValue: Integer; function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer); procedure SetIDValue(const aValue: Integer);
@ -1513,6 +1527,27 @@ begin
DataTable.Fields[idx_FacturasClienteREFERENCIA_CLIENTE].AsVariant := Null; DataTable.Fields[idx_FacturasClienteREFERENCIA_CLIENTE].AsVariant := Null;
end; end;
function TFacturasClienteDataTableRules.GetLOPDValue: SmallInt;
begin
result := DataTable.Fields[idx_FacturasClienteLOPD].AsSmallInt;
end;
procedure TFacturasClienteDataTableRules.SetLOPDValue(const aValue: SmallInt);
begin
DataTable.Fields[idx_FacturasClienteLOPD].AsSmallInt := aValue;
end;
function TFacturasClienteDataTableRules.GetLOPDIsNull: boolean;
begin
result := DataTable.Fields[idx_FacturasClienteLOPD].IsNull;
end;
procedure TFacturasClienteDataTableRules.SetLOPDIsNull(const aValue: Boolean);
begin
if aValue then
DataTable.Fields[idx_FacturasClienteLOPD].AsVariant := Null;
end;
function TFacturasClienteDataTableRules.GetNOMBRE_COMERCIAL_CLIENTEValue: String; function TFacturasClienteDataTableRules.GetNOMBRE_COMERCIAL_CLIENTEValue: String;
begin begin
result := DataTable.Fields[idx_FacturasClienteNOMBRE_COMERCIAL_CLIENTE].AsString; result := DataTable.Fields[idx_FacturasClienteNOMBRE_COMERCIAL_CLIENTE].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 = '{AF9DCBE5-965F-4954-B3E3-028464D75916}'; RID_ListaAnosFacturasDelta = '{9438FFD8-FD2B-4464-9595-56BBA42ACD21}';
RID_FacturasClienteDelta = '{F7ACAA8D-6710-4ECA-8FBF-0341136DF2CB}'; RID_FacturasClienteDelta = '{09E35A03-382A-4D70-8058-B54DCCE256A8}';
RID_FacturasCliente_DetallesDelta = '{D779175D-1E98-4B6B-9059-BEC7DCD94A11}'; RID_FacturasCliente_DetallesDelta = '{EC1C8D93-0843-41B9-9D1C-034145DA9FB5}';
type type
{ IListaAnosFacturasDelta } { IListaAnosFacturasDelta }
IListaAnosFacturasDelta = interface(IListaAnosFacturas) IListaAnosFacturasDelta = interface(IListaAnosFacturas)
['{AF9DCBE5-965F-4954-B3E3-028464D75916}'] ['{9438FFD8-FD2B-4464-9595-56BBA42ACD21}']
{ 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)
['{F7ACAA8D-6710-4ECA-8FBF-0341136DF2CB}'] ['{09E35A03-382A-4D70-8058-B54DCCE256A8}']
{ Property getters and setters } { Property getters and setters }
function GetOldIDValue : Integer; function GetOldIDValue : Integer;
function GetOldID_EMPRESAValue : Integer; function GetOldID_EMPRESAValue : Integer;
@ -72,6 +72,7 @@ type
function GetOldID_CLIENTEValue : Integer; function GetOldID_CLIENTEValue : Integer;
function GetOldNOMBRE_CLIENTEValue : String; function GetOldNOMBRE_CLIENTEValue : String;
function GetOldREFERENCIA_CLIENTEValue : String; function GetOldREFERENCIA_CLIENTEValue : String;
function GetOldLOPDValue : SmallInt;
function GetOldNOMBRE_COMERCIAL_CLIENTEValue : String; function GetOldNOMBRE_COMERCIAL_CLIENTEValue : String;
function GetOldNIF_CIFValue : String; function GetOldNIF_CIFValue : String;
function GetOldNOMBREValue : String; function GetOldNOMBREValue : String;
@ -126,6 +127,7 @@ type
property OldID_CLIENTE : Integer read GetOldID_CLIENTEValue; property OldID_CLIENTE : Integer read GetOldID_CLIENTEValue;
property OldNOMBRE_CLIENTE : String read GetOldNOMBRE_CLIENTEValue; property OldNOMBRE_CLIENTE : String read GetOldNOMBRE_CLIENTEValue;
property OldREFERENCIA_CLIENTE : String read GetOldREFERENCIA_CLIENTEValue; property OldREFERENCIA_CLIENTE : String read GetOldREFERENCIA_CLIENTEValue;
property OldLOPD : SmallInt read GetOldLOPDValue;
property OldNOMBRE_COMERCIAL_CLIENTE : String read GetOldNOMBRE_COMERCIAL_CLIENTEValue; property OldNOMBRE_COMERCIAL_CLIENTE : String read GetOldNOMBRE_COMERCIAL_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;
@ -286,6 +288,12 @@ type
function GetOldREFERENCIA_CLIENTEIsNull: Boolean; virtual; function GetOldREFERENCIA_CLIENTEIsNull: Boolean; virtual;
procedure SetREFERENCIA_CLIENTEValue(const aValue: String); virtual; procedure SetREFERENCIA_CLIENTEValue(const aValue: String); virtual;
procedure SetREFERENCIA_CLIENTEIsNull(const aValue: Boolean); virtual; procedure SetREFERENCIA_CLIENTEIsNull(const aValue: Boolean); virtual;
function GetLOPDValue: SmallInt; virtual;
function GetLOPDIsNull: Boolean; virtual;
function GetOldLOPDValue: SmallInt; virtual;
function GetOldLOPDIsNull: Boolean; virtual;
procedure SetLOPDValue(const aValue: SmallInt); virtual;
procedure SetLOPDIsNull(const aValue: Boolean); virtual;
function GetNOMBRE_COMERCIAL_CLIENTEValue: String; virtual; function GetNOMBRE_COMERCIAL_CLIENTEValue: String; virtual;
function GetNOMBRE_COMERCIAL_CLIENTEIsNull: Boolean; virtual; function GetNOMBRE_COMERCIAL_CLIENTEIsNull: Boolean; virtual;
function GetOldNOMBRE_COMERCIAL_CLIENTEValue: String; virtual; function GetOldNOMBRE_COMERCIAL_CLIENTEValue: String; virtual;
@ -560,6 +568,10 @@ type
property REFERENCIA_CLIENTEIsNull : Boolean read GetREFERENCIA_CLIENTEIsNull write SetREFERENCIA_CLIENTEIsNull; property REFERENCIA_CLIENTEIsNull : Boolean read GetREFERENCIA_CLIENTEIsNull write SetREFERENCIA_CLIENTEIsNull;
property OldREFERENCIA_CLIENTE : String read GetOldREFERENCIA_CLIENTEValue; property OldREFERENCIA_CLIENTE : String read GetOldREFERENCIA_CLIENTEValue;
property OldREFERENCIA_CLIENTEIsNull : Boolean read GetOldREFERENCIA_CLIENTEIsNull; property OldREFERENCIA_CLIENTEIsNull : Boolean read GetOldREFERENCIA_CLIENTEIsNull;
property LOPD : SmallInt read GetLOPDValue write SetLOPDValue;
property LOPDIsNull : Boolean read GetLOPDIsNull write SetLOPDIsNull;
property OldLOPD : SmallInt read GetOldLOPDValue;
property OldLOPDIsNull : Boolean read GetOldLOPDIsNull;
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 OldNOMBRE_COMERCIAL_CLIENTE : String read GetOldNOMBRE_COMERCIAL_CLIENTEValue; property OldNOMBRE_COMERCIAL_CLIENTE : String read GetOldNOMBRE_COMERCIAL_CLIENTEValue;
@ -697,7 +709,7 @@ type
{ IFacturasCliente_DetallesDelta } { IFacturasCliente_DetallesDelta }
IFacturasCliente_DetallesDelta = interface(IFacturasCliente_Detalles) IFacturasCliente_DetallesDelta = interface(IFacturasCliente_Detalles)
['{D779175D-1E98-4B6B-9059-BEC7DCD94A11}'] ['{EC1C8D93-0843-41B9-9D1C-034145DA9FB5}']
{ Property getters and setters } { Property getters and setters }
function GetOldIDValue : Integer; function GetOldIDValue : Integer;
function GetOldID_FACTURAValue : Integer; function GetOldID_FACTURAValue : Integer;
@ -1572,6 +1584,37 @@ begin
BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasClienteREFERENCIA_CLIENTE] := Null; BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasClienteREFERENCIA_CLIENTE] := Null;
end; end;
function TFacturasClienteBusinessProcessorRules.GetLOPDValue: SmallInt;
begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasClienteLOPD];
end;
function TFacturasClienteBusinessProcessorRules.GetLOPDIsNull: Boolean;
begin
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasClienteLOPD]);
end;
function TFacturasClienteBusinessProcessorRules.GetOldLOPDValue: SmallInt;
begin
result := BusinessProcessor.CurrentChange.OldValueByName[fld_FacturasClienteLOPD];
end;
function TFacturasClienteBusinessProcessorRules.GetOldLOPDIsNull: Boolean;
begin
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_FacturasClienteLOPD]);
end;
procedure TFacturasClienteBusinessProcessorRules.SetLOPDValue(const aValue: SmallInt);
begin
BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasClienteLOPD] := aValue;
end;
procedure TFacturasClienteBusinessProcessorRules.SetLOPDIsNull(const aValue: Boolean);
begin
if aValue then
BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasClienteLOPD] := Null;
end;
function TFacturasClienteBusinessProcessorRules.GetNOMBRE_COMERCIAL_CLIENTEValue: String; function TFacturasClienteBusinessProcessorRules.GetNOMBRE_COMERCIAL_CLIENTEValue: String;
begin begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasClienteNOMBRE_COMERCIAL_CLIENTE]; result := BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasClienteNOMBRE_COMERCIAL_CLIENTE];

15
Source/Modulos/Facturas de cliente/Reports/uRptFacturasCliente_Server.pas
View File

@ -51,6 +51,7 @@ type
FListaNombresClientes : TStringList; FListaNombresClientes : TStringList;
FImporteMinimo: Currency; FImporteMinimo: Currency;
FDesglosado : Boolean; FDesglosado : Boolean;
FVerDatosCliente : Boolean;
//Genera cada uno de los albaranes a imprimir //Genera cada uno de los albaranes a imprimir
procedure _GenerarFactura(const ID: integer); overload; procedure _GenerarFactura(const ID: integer); overload;
@ -62,8 +63,8 @@ type
procedure RecuperarNombresClientes; procedure RecuperarNombresClientes;
public public
function GenerarFactura(const ListaID : TIntegerArray): Binary; overload; function GenerarFactura(const ListaID : TIntegerArray; const VerDatosCliente: Boolean): Binary; overload;
function GenerarFacturaEnPDF(const ListaID : TIntegerArray): Binary; function GenerarFacturaEnPDF(const ListaID : TIntegerArray; const VerDatosCliente: Boolean): Binary;
function GenerarInformeIVA(const IdEmpresa: Integer; const FechaInicio: Variant; const FechaFin: Variant; const ListaIDClientes: TIntegerArray; const Desglosado: Boolean; const ImporteMinimo: Currency): Binary; function GenerarInformeIVA(const IdEmpresa: Integer; const FechaInicio: Variant; const FechaFin: Variant; const ListaIDClientes: TIntegerArray; const Desglosado: Boolean; const ImporteMinimo: Currency): Binary;
function GenerarInformeListadoFacturas(const IdEmpresa: Integer; const FechaInicio: Variant; const FechaFin: Variant; const ListaIDClientes: TIntegerArray; const Desglosado: Boolean; const ImporteMinimo: Currency): Binary; function GenerarInformeListadoFacturas(const IdEmpresa: Integer; const FechaInicio: Variant; const FechaFin: Variant; const ListaIDClientes: TIntegerArray; const Desglosado: Boolean; const ImporteMinimo: Currency): Binary;
function GenerarInformeListadoFacturasPendientes(const IdEmpresa: Integer; const FechaInicio: Variant; const FechaFin: Variant; const ListaIDClientes: TIntegerArray; const Desglosado: Boolean; const ImporteMinimo: Currency): Binary; function GenerarInformeListadoFacturasPendientes(const IdEmpresa: Integer; const FechaInicio: Variant; const FechaFin: Variant; const ListaIDClientes: TIntegerArray; const Desglosado: Boolean; const ImporteMinimo: Currency): Binary;
@ -106,12 +107,14 @@ begin
FreeANDNIL(FListaNombresClientes); FreeANDNIL(FListaNombresClientes);
end; end;
function TRptFacturasCliente.GenerarFactura(const ListaID: TIntegerArray): Binary; function TRptFacturasCliente.GenerarFactura(const ListaID: TIntegerArray; const VerDatosCliente: Boolean): Binary;
var var
i: Integer; i: Integer;
begin begin
Result := Binary.Create; Result := Binary.Create;
try try
FVerDatosCliente := VerDatosCliente;
//Vamos generando todos y cada una de las facturas recibidas //Vamos generando todos y cada una de las facturas recibidas
for i := 0 to ListaID.Count - 1 do for i := 0 to ListaID.Count - 1 do
_GenerarFactura(ListaID.Items[i]); _GenerarFactura(ListaID.Items[i]);
@ -121,13 +124,14 @@ begin
end; end;
end; end;
function TRptFacturasCliente.GenerarFacturaEnPDF( function TRptFacturasCliente.GenerarFacturaEnPDF(const ListaID: TIntegerArray; const VerDatosCliente: Boolean): Binary;
const ListaID: TIntegerArray): Binary;
var var
i: Integer; i: Integer;
begin begin
Result := Binary.Create; Result := Binary.Create;
try try
FVerDatosCliente := VerDatosCliente;
//Vamos generando todos y cada uno de los presupuestos recibidos //Vamos generando todos y cada uno de los presupuestos recibidos
for i := 0 to ListaID.Count - 1 do for i := 0 to ListaID.Count - 1 do
_GenerarFactura(ListaID.Items[i]); _GenerarFactura(ListaID.Items[i]);
@ -635,6 +639,7 @@ begin
raise Exception.Create (('Error Servidor: _GenerarFactura, no encuentra informe ' + rptFacturaCliente)); raise Exception.Create (('Error Servidor: _GenerarFactura, no encuentra informe ' + rptFacturaCliente));
frxReport.LoadFromFile(AInforme, True); frxReport.LoadFromFile(AInforme, True);
frxReport.Variables.Variables['VerDatosCliente'] := FVerDatosCliente;
frxReport.ReportOptions.Name := 'Factura ' + tbl_Cabecera.FieldByName('REFERENCIA').AsString; frxReport.ReportOptions.Name := 'Factura ' + tbl_Cabecera.FieldByName('REFERENCIA').AsString;
frxReport.PrepareReport(False); frxReport.PrepareReport(False);
finally finally

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

@ -251,6 +251,14 @@ object srvFacturasCliente: TsrvFacturasCliente
item item
DatasetField = 'VENDEDOR' DatasetField = 'VENDEDOR'
TableField = 'VENDEDOR' TableField = 'VENDEDOR'
end
item
DatasetField = 'LOPD'
TableField = 'LOPD'
end
item
DatasetField = 'LISTA_NOMBRES'
TableField = 'LISTA_NOMBRES'
end> end>
end> end>
Name = 'FacturasCliente' Name = 'FacturasCliente'
@ -361,6 +369,10 @@ object srvFacturasCliente: TsrvFacturasCliente
DataType = datString DataType = datString
Size = 255 Size = 255
end end
item
Name = 'LOPD'
DataType = datSmallInt
end
item item
Name = 'NOMBRE_COMERCIAL_CLIENTE' Name = 'NOMBRE_COMERCIAL_CLIENTE'
DataType = datString DataType = datString

13
Source/Modulos/Facturas de cliente/Servidor/srvFacturasCliente_Impl.pas
View File

@ -35,8 +35,8 @@ type
private private
protected protected
{ IsrvFacturasCliente methods } { IsrvFacturasCliente methods }
function GenerateReport(const FacturaID: TIntegerArray): Binary; function GenerateReport(const FacturaID: TIntegerArray; const VerDatosCliente: Boolean): Binary;
function GenerarInformeEnPDF(const ListaID: TIntegerArray): Binary; function GenerarInformeEnPDF(const ListaID: TIntegerArray; const VerDatosCliente: Boolean): Binary;
end; end;
implementation implementation
@ -78,26 +78,25 @@ begin
ConnectionName := dmServer.ConnectionName; ConnectionName := dmServer.ConnectionName;
end; end;
function TsrvFacturasCliente.GenerarInformeEnPDF( function TsrvFacturasCliente.GenerarInformeEnPDF(const ListaID: TIntegerArray; const VerDatosCliente: Boolean): Binary;
const ListaID: TIntegerArray): Binary;
var var
AReportGenerator : TRptFacturasCliente; AReportGenerator : TRptFacturasCliente;
begin begin
AReportGenerator := TRptFacturasCliente.Create(nil); AReportGenerator := TRptFacturasCliente.Create(nil);
try try
Result := AReportGenerator.GenerarFacturaEnPDF(ListaID); Result := AReportGenerator.GenerarFacturaEnPDF(ListaID, VerDatosCliente);
finally finally
FreeAndNIL(AReportGenerator); FreeAndNIL(AReportGenerator);
end; end;
end; end;
function TsrvFacturasCliente.GenerateReport(const FacturaID: TIntegerArray): Binary; function TsrvFacturasCliente.GenerateReport(const FacturaID: TIntegerArray; const VerDatosCliente: Boolean): Binary;
var var
AReportGenerator : TRptFacturasCliente; AReportGenerator : TRptFacturasCliente;
begin begin
AReportGenerator := TRptFacturasCliente.Create(nil); AReportGenerator := TRptFacturasCliente.Create(nil);
try try
Result := AReportGenerator.GenerarFactura(FacturaID); Result := AReportGenerator.GenerarFactura(FacturaID, VerDatosCliente);
finally finally
FreeAndNIL(AReportGenerator); FreeAndNIL(AReportGenerator);
end; end;

3
Source/Modulos/Facturas de cliente/Views/FacturasCliente_view.dpk
View File

@ -63,7 +63,8 @@ requires
GUISDK_D11R, GUISDK_D11R,
designide, designide,
xmlrtl, xmlrtl,
dxCoreD11; dxCoreD11,
ConCli_FacCli_relation;
contains contains
uFacturasClienteViewRegister in 'uFacturasClienteViewRegister.pas', uFacturasClienteViewRegister in 'uFacturasClienteViewRegister.pas',

79
Source/Modulos/Facturas de cliente/Views/FacturasCliente_view.dproj
View File

@ -49,45 +49,46 @@
<DelphiCompile Include="FacturasCliente_view.dpk"> <DelphiCompile Include="FacturasCliente_view.dpk">
<MainSource>MainSource</MainSource> <MainSource>MainSource</MainSource>
</DelphiCompile> </DelphiCompile>
<DCCReference Include="..\..\..\Servidor\adortl.dcp" /> <DCCReference Include="..\..\Lib\adortl.dcp" />
<DCCReference Include="..\..\..\Servidor\AlbCli_FacCli_relation.dcp" /> <DCCReference Include="..\..\Lib\AlbCli_FacCli_relation.dcp" />
<DCCReference Include="..\..\..\Servidor\Articulos_view.dcp" /> <DCCReference Include="..\..\Lib\Articulos_view.dcp" />
<DCCReference Include="..\..\..\Servidor\Contabilidad_controller.dcp" /> <DCCReference Include="..\..\Lib\ConCli_FacCli_relation.dcp" />
<DCCReference Include="..\..\..\Servidor\Contabilidad_view.dcp" /> <DCCReference Include="..\..\Lib\Contabilidad_controller.dcp" />
<DCCReference Include="..\..\..\Servidor\Contactos_view.dcp" /> <DCCReference Include="..\..\Lib\Contabilidad_view.dcp" />
<DCCReference Include="..\..\..\Servidor\cxDataD11.dcp" /> <DCCReference Include="..\..\Lib\Contactos_view.dcp" />
<DCCReference Include="..\..\..\Servidor\cxEditorsD11.dcp" /> <DCCReference Include="..\..\Lib\cxDataD11.dcp" />
<DCCReference Include="..\..\..\Servidor\cxLibraryD11.dcp" /> <DCCReference Include="..\..\Lib\cxEditorsD11.dcp" />
<DCCReference Include="..\..\..\Servidor\DataAbstract_Core_D11.dcp" /> <DCCReference Include="..\..\Lib\cxLibraryD11.dcp" />
<DCCReference Include="..\..\..\Servidor\dbrtl.dcp" /> <DCCReference Include="..\..\Lib\DataAbstract_Core_D11.dcp" />
<DCCReference Include="..\..\..\Servidor\designide.dcp" /> <DCCReference Include="..\..\Lib\dbrtl.dcp" />
<DCCReference Include="..\..\..\Servidor\dsnap.dcp" /> <DCCReference Include="..\..\Lib\designide.dcp" />
<DCCReference Include="..\..\..\Servidor\dxComnD11.dcp" /> <DCCReference Include="..\..\Lib\dsnap.dcp" />
<DCCReference Include="..\..\..\Servidor\dxCoreD11.dcp" /> <DCCReference Include="..\..\Lib\dxComnD11.dcp" />
<DCCReference Include="..\..\..\Servidor\dxGDIPlusD11.dcp" /> <DCCReference Include="..\..\Lib\dxCoreD11.dcp" />
<DCCReference Include="..\..\..\Servidor\dxLayoutControlD11.dcp" /> <DCCReference Include="..\..\Lib\dxGDIPlusD11.dcp" />
<DCCReference Include="..\..\..\Servidor\dxThemeD11.dcp" /> <DCCReference Include="..\..\Lib\dxLayoutControlD11.dcp" />
<DCCReference Include="..\..\..\Servidor\FacturasCliente_controller.dcp" /> <DCCReference Include="..\..\Lib\dxThemeD11.dcp" />
<DCCReference Include="..\..\..\Servidor\FacturasCliente_model.dcp" /> <DCCReference Include="..\..\Lib\FacturasCliente_controller.dcp" />
<DCCReference Include="..\..\..\Servidor\GestorInformes_controller.dcp" /> <DCCReference Include="..\..\Lib\FacturasCliente_model.dcp" />
<DCCReference Include="..\..\..\Servidor\GUIBase.dcp" /> <DCCReference Include="..\..\Lib\GestorInformes_controller.dcp" />
<DCCReference Include="..\..\..\Servidor\GUISDK_D11R.dcp" /> <DCCReference Include="..\..\Lib\GUIBase.dcp" />
<DCCReference Include="..\..\..\Servidor\Jcl.dcp" /> <DCCReference Include="..\..\Lib\GUISDK_D11R.dcp" />
<DCCReference Include="..\..\..\Servidor\JclVcl.dcp" /> <DCCReference Include="..\..\Lib\Jcl.dcp" />
<DCCReference Include="..\..\..\Servidor\JvCoreD11R.dcp" /> <DCCReference Include="..\..\Lib\JclVcl.dcp" />
<DCCReference Include="..\..\..\Servidor\JvCtrlsD11R.dcp" /> <DCCReference Include="..\..\Lib\JvCoreD11R.dcp" />
<DCCReference Include="..\..\..\Servidor\JvStdCtrlsD11R.dcp" /> <DCCReference Include="..\..\Lib\JvCtrlsD11R.dcp" />
<DCCReference Include="..\..\..\Servidor\JvSystemD11R.dcp" /> <DCCReference Include="..\..\Lib\JvStdCtrlsD11R.dcp" />
<DCCReference Include="..\..\..\Servidor\PngComponentsD10.dcp" /> <DCCReference Include="..\..\Lib\JvSystemD11R.dcp" />
<DCCReference Include="..\..\..\Servidor\PNG_D10.dcp" /> <DCCReference Include="..\..\Lib\PngComponentsD10.dcp" />
<DCCReference Include="..\..\..\Servidor\RemObjects_Core_D11.dcp" /> <DCCReference Include="..\..\Lib\PNG_D10.dcp" />
<DCCReference Include="..\..\..\Servidor\rtl.dcp" /> <DCCReference Include="..\..\Lib\RemObjects_Core_D11.dcp" />
<DCCReference Include="..\..\..\Servidor\vcl.dcp" /> <DCCReference Include="..\..\Lib\rtl.dcp" />
<DCCReference Include="..\..\..\Servidor\vclactnband.dcp" /> <DCCReference Include="..\..\Lib\vcl.dcp" />
<DCCReference Include="..\..\..\Servidor\vcldb.dcp" /> <DCCReference Include="..\..\Lib\vclactnband.dcp" />
<DCCReference Include="..\..\..\Servidor\vcljpg.dcp" /> <DCCReference Include="..\..\Lib\vcldb.dcp" />
<DCCReference Include="..\..\..\Servidor\vclx.dcp" /> <DCCReference Include="..\..\Lib\vcljpg.dcp" />
<DCCReference Include="..\..\..\Servidor\xmlrtl.dcp" /> <DCCReference Include="..\..\Lib\vclx.dcp" />
<DCCReference Include="..\..\Lib\xmlrtl.dcp" />
<DCCReference Include="uEditorElegirArticulosFacturaCliente.pas"> <DCCReference Include="uEditorElegirArticulosFacturaCliente.pas">
<Form>fEditorElegirArticulosFacturaCliente</Form> <Form>fEditorElegirArticulosFacturaCliente</Form>
<DesignClass>TForm</DesignClass> <DesignClass>TForm</DesignClass>

44
Source/Modulos/Facturas de cliente/Views/uEditorFacturasCliente.dfm
View File

@ -80,13 +80,17 @@ inherited fEditorFacturasCliente: TfEditorFacturasCliente
Left = 431 Left = 431
Visible = True Visible = True
ExplicitLeft = 431 ExplicitLeft = 431
ExplicitWidth = 195 ExplicitWidth = 209
object TBXItem42: TTBXItem object TBXItem42: TTBXItem
Action = actCambiarSituacion Action = actCambiarSituacion
DisplayMode = nbdmImageAndText DisplayMode = nbdmImageAndText
end end
object TBXItem44: TTBXItem
Action = actLOPD
DisplayMode = nbdmImageAndText
end
object TBXItem43: TTBXItem object TBXItem43: TTBXItem
Action = actVerPresupuesto Action = actVerContrato
DisplayMode = nbdmImageAndText DisplayMode = nbdmImageAndText
end end
object TBXSeparatorItem17: TTBXSeparatorItem object TBXSeparatorItem17: TTBXSeparatorItem
@ -330,12 +334,19 @@ inherited fEditorFacturasCliente: TfEditorFacturasCliente
Visible = False Visible = False
OnExecute = actCambiarSituacionExecute OnExecute = actCambiarSituacionExecute
end end
object actVerPresupuesto: TAction object actVerContrato: TAction
Category = 'Archivo' Category = 'Archivo'
Caption = 'Ver presupuesto' Caption = 'Ver presupuesto'
ImageIndex = 27 ImageIndex = 27
OnExecute = actVerPresupuestoExecute OnExecute = actVerContratoExecute
OnUpdate = actVerPresupuestoUpdate OnUpdate = actVerContratoUpdate
end
object actLOPD: TAction
Category = 'Archivo'
Caption = 'GDPR'
ImageIndex = 28
OnExecute = actLOPDExecute
OnUpdate = actLOPDUpdate
end end
end end
inherited SmallImages: TPngImageList [5] inherited SmallImages: TPngImageList [5]
@ -1123,6 +1134,29 @@ inherited fEditorFacturasCliente: TfEditorFacturasCliente
44AE426082} 44AE426082}
Name = 'PngImage27' Name = 'PngImage27'
Background = clWindow Background = clWindow
end
item
PngImage.Data = {
89504E470D0A1A0A0000000D49484452000000100000001008060000001FF3FF
61000000097048597300000AEB00000AEB01828B0D5A000001DA4944415478DA
63FCFFFF3F032580912C5DF2F33964B539E3DF7DF8F1956403380CE7C85B5929
CFFAF99ED7FCFCED9BE124192060B7D8D6CE5279E99B876C42674FFC0CFEF9C0
7A27D10628FBAF0FB030915F74E7EA6FE6F387FF87FD7A6AB195E83090F55915
EEE7A23BE7FCD9CFAC170EFF4EFDF6C07A31D18128E1BE3CC8DB597BE1A3BBBF
B98EECFA91FBFDBEF574A0F07FA20C10B09B67EBE366B8E3CDF37F9C47F77CED
FC7CD3AE125D0DC400B3897C9CCCBCEADFD9182F331C4CFC010E6DCB39F29E0E
3A07599939E477AE7FBFFBE3CF4BBE0C77F27F621820EAB848DFDC447931372B
9FE68E5DF7577F3C73368E414588D9C6496BB3AA92B8CBDECD9FDEBC7CF9D3F2
E71DE7BBD85CC928EAB438C4C7556F3A0B1B8BC8B1BD9FFFDE7B753F4C41994B
C3CA48B1E5F09ECFFFEF3F7D19F3FB5AD0725CDE047B41276243A09D85FAAAA7
CFBFB11CDEFBEA8EA79F98E4C3FBBFB8CF9F7BBDE5EB453F3FE440C31E060CF5
4C4ED9F63B6565845D5EBEFEF29F11287AE9C4AF2FAFBF3D32FF753EFE3ABE80
86C7028FF5429B101F83FDCF5F7F66797697E1FFCDDB6FA7FFBAE69F4D289A91
A2B19EC539C7E1C49BC7EC46F71EBDD9FFF9DFD338868B994F4930808181D76E
413EF33F56D90F0F5ED4323C29FE4E4833080000904EC47A3EA3126900000000
49454E44AE426082}
Name = 'PngImage28'
Background = clWindow
end> end>
Left = 395 Left = 395
Bitmap = {} Bitmap = {}

69
Source/Modulos/Facturas de cliente/Views/uEditorFacturasCliente.pas
View File

@ -41,8 +41,10 @@ type
TBXItem42: TTBXItem; TBXItem42: TTBXItem;
TBXSeparatorItem17: TTBXSeparatorItem; TBXSeparatorItem17: TTBXSeparatorItem;
JsListaFacturasNoModificadas: TJSDialog; JsListaFacturasNoModificadas: TJSDialog;
actVerPresupuesto: TAction; actVerContrato: TAction;
TBXItem43: TTBXItem; TBXItem43: TTBXItem;
actLOPD: TAction;
TBXItem44: TTBXItem;
procedure FormShow(Sender: TObject); procedure FormShow(Sender: TObject);
procedure actEliminarUpdate(Sender: TObject); procedure actEliminarUpdate(Sender: TObject);
procedure actNuevaFacturaExecute(Sender: TObject); procedure actNuevaFacturaExecute(Sender: TObject);
@ -52,8 +54,10 @@ type
procedure actEnviarMailUpdate(Sender: TObject); procedure actEnviarMailUpdate(Sender: TObject);
procedure actEnviarMailExecute(Sender: TObject); procedure actEnviarMailExecute(Sender: TObject);
procedure actCambiarSituacionExecute(Sender: TObject); procedure actCambiarSituacionExecute(Sender: TObject);
procedure actVerPresupuestoExecute(Sender: TObject); procedure actVerContratoUpdate(Sender: TObject);
procedure actVerPresupuestoUpdate(Sender: TObject); procedure actLOPDExecute(Sender: TObject);
procedure actLOPDUpdate(Sender: TObject);
procedure actVerContratoExecute(Sender: TObject);
private private
FFacturas: IBizFacturaCliente; FFacturas: IBizFacturaCliente;
@ -87,7 +91,7 @@ implementation
uses uses
uDataModuleFacturasCliente, uDataModuleUsuarios, uAlbaranesClienteController, uFactuGES_App, uDataModuleFacturasCliente, uDataModuleUsuarios, uAlbaranesClienteController, uFactuGES_App,
uBizejercicios, uGenerarFacturasCliAlbCliUtils, uEditorElegirSituacion, uBizejercicios, uGenerarFacturasCliAlbCliUtils, uEditorElegirSituacion,
uBizAlbaranesCliente, uGestorInformesController, uBizAlbaranesCliente, uGestorInformesController, uGenerarFacturasCliUtils,
uEditorBase, uGridUtils, uDBSelectionListUtils; uEditorBase, uGridUtils, uDBSelectionListUtils;
{$R *.dfm} {$R *.dfm}
@ -213,6 +217,37 @@ begin
end; end;
procedure TfEditorFacturasCliente.actLOPDExecute(Sender: TObject);
var
AFacturas: IBizFacturaCliente;
begin
inherited;
ViewGrid.SaveGridStatus;
try
SeleccionarFilasDesdeGrid(ViewGrid._FocusedView, (Facturas as ISeleccionable).SelectedRecords);
AFacturas := (Controller as IFacturasClienteController).ExtraerSeleccionados(Facturas) as IBizFacturaCliente;
finally
ViewGrid.RestoreGridStatus;
end;
if (Controller as IFacturasClienteController).AsignarLOPD(AFacturas) then
RefrescarInterno;
end;
procedure TfEditorFacturasCliente.actLOPDUpdate(Sender: TObject);
begin
inherited;
if HayDatos and Assigned(ViewGrid) then
(Sender as TAction).Enabled := not (dsDataTable.DataTable.State in dsEditModes)
and ViewGrid.esSeleccionCeldaDatos
and (ViewGrid.NumSeleccionados > 0)
else
(Sender as TAction).Enabled := False;
end;
procedure TfEditorFacturasCliente.actNuevaFacturaExecute(Sender: TObject); procedure TfEditorFacturasCliente.actNuevaFacturaExecute(Sender: TObject);
begin begin
actNuevo.Execute; actNuevo.Execute;
@ -249,16 +284,24 @@ begin
end; end;
end; end;
procedure TfEditorFacturasCliente.actVerPresupuestoExecute(Sender: TObject); procedure TfEditorFacturasCliente.actVerContratoExecute(Sender: TObject);
begin begin
inherited; inherited;
// VerContratoCliDeFactura(FFacturas);
end; end;
procedure TfEditorFacturasCliente.actVerPresupuestoUpdate(Sender: TObject); procedure TfEditorFacturasCliente.actVerContratoUpdate(Sender: TObject);
begin begin
inherited; inherited;
//
if HayDatos and Assigned(ViewGrid) then
(Sender as TAction).Enabled := not (dsDataTable.DataTable.State in dsEditModes)
and ViewGrid.esSeleccionCeldaDatos
and (ViewGrid.NumSeleccionados = 1)
and not FFacturas.ID_CONTRATOIsNull
else
(Sender as TAction).Enabled := False;
end; end;
constructor TfEditorFacturasCliente.Create(AOwner: TComponent); constructor TfEditorFacturasCliente.Create(AOwner: TComponent);
@ -396,6 +439,7 @@ var
Respuesta : Integer; Respuesta : Integer;
AFacturas: IBizFacturaCliente; AFacturas: IBizFacturaCliente;
AllItems: Boolean; AllItems: Boolean;
AVerDatosCliente: Boolean;
begin begin
AFacturas := Nil; AFacturas := Nil;
AllItems := False; AllItems := False;
@ -416,6 +460,8 @@ begin
inherited; inherited;
end; end;
100 : begin // Elemento Seleccionado 100 : begin // Elemento Seleccionado
AVerDatosCliente := (Application.MessageBox('¿Desea imprimir los datos del cliente?', 'Atención', MB_YESNO) = IDYES);
if AllItems then if AllItems then
begin begin
SeleccionarFilasDesdeGrid(ViewGrid._FocusedView, (Facturas as ISeleccionable).SelectedRecords); SeleccionarFilasDesdeGrid(ViewGrid._FocusedView, (Facturas as ISeleccionable).SelectedRecords);
@ -425,7 +471,7 @@ begin
AFacturas := Facturas; AFacturas := Facturas;
if Assigned(AFacturas) then if Assigned(AFacturas) then
FController.Print(AFacturas, AllItems); FController.Print(AFacturas, AllItems, AVerDatosCliente);
end; end;
end; end;
end; end;
@ -508,6 +554,7 @@ var
Respuesta : Integer; Respuesta : Integer;
AFacturas: IBizFacturaCliente; AFacturas: IBizFacturaCliente;
AllItems: Boolean; AllItems: Boolean;
AVerDatosCliente: Boolean;
begin begin
AFacturas := Nil; AFacturas := Nil;
AllItems := False; AllItems := False;
@ -528,6 +575,8 @@ begin
inherited; inherited;
end; end;
100 : begin // Elemento Seleccionado 100 : begin // Elemento Seleccionado
AVerDatosCliente := (Application.MessageBox('¿Desea previsualizar los datos del cliente?', 'Atención', MB_YESNO) = IDYES);
if AllItems then if AllItems then
begin begin
SeleccionarFilasDesdeGrid(ViewGrid._FocusedView, (Facturas as ISeleccionable).SelectedRecords); SeleccionarFilasDesdeGrid(ViewGrid._FocusedView, (Facturas as ISeleccionable).SelectedRecords);
@ -537,7 +586,7 @@ begin
AFacturas := Facturas; AFacturas := Facturas;
if Assigned(AFacturas) then if Assigned(AFacturas) then
FController.Preview(AFacturas, AllItems); FController.Preview(AFacturas, AllItems, AVerDatosCliente);
end; end;
end; end;
end; end;

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

@ -21,6 +21,23 @@ inherited frViewFacturasCliente: TfrViewFacturasCliente
end> end>
OptionsCustomize.ColumnHidingOnGrouping = False OptionsCustomize.ColumnHidingOnGrouping = False
OptionsView.GroupFooters = gfAlwaysVisible OptionsView.GroupFooters = gfAlwaysVisible
object cxGridViewLOPD: TcxGridDBColumn
Caption = 'GDPR'
DataBinding.FieldName = 'LOPD'
PropertiesClassName = 'TcxImageComboBoxProperties'
Properties.Images = PngImageList
Properties.Items = <
item
Value = 0
end
item
ImageIndex = 0
Value = 1
end>
BestFitMaxWidth = 40
MinWidth = 40
Width = 40
end
object cxGridViewTIPO: TcxGridDBColumn object cxGridViewTIPO: TcxGridDBColumn
DataBinding.FieldName = 'TIPO' DataBinding.FieldName = 'TIPO'
PropertiesClassName = 'TcxImageComboBoxProperties' PropertiesClassName = 'TcxImageComboBoxProperties'
@ -192,19 +209,43 @@ inherited frViewFacturasCliente: TfrViewFacturasCliente
Width = 802 Width = 802
ExplicitWidth = 802 ExplicitWidth = 802
inherited txtFiltroTodo: TcxTextEdit inherited txtFiltroTodo: TcxTextEdit
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitWidth = 434 ExplicitWidth = 434
Width = 434 Width = 434
end end
inherited edtFechaIniFiltro: TcxDateEdit inherited edtFechaIniFiltro: TcxDateEdit
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitWidth = 144 ExplicitWidth = 144
Width = 144 Width = 144
end end
inherited edtFechaFinFiltro: TcxDateEdit inherited edtFechaFinFiltro: TcxDateEdit
Left = 367 Left = 248
ExplicitLeft = 367 Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitLeft = 248
ExplicitWidth = 273 ExplicitWidth = 273
Width = 273 Width = 273
end end
inherited edtFecha2FinFiltro: TcxDateEdit
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
end
inherited edtFecha2IniFiltro: TcxDateEdit
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
end
end end
inherited TBXAlignmentPanel1: TTBXAlignmentPanel inherited TBXAlignmentPanel1: TTBXAlignmentPanel
Width = 802 Width = 802

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

@ -65,6 +65,7 @@ type
cxGridViewTIPO_FACTURA: TcxGridDBColumn; cxGridViewTIPO_FACTURA: TcxGridDBColumn;
cxGridViewVENDEDOR: TcxGridDBColumn; cxGridViewVENDEDOR: TcxGridDBColumn;
cxGridViewLISTA_NOMBRES: TcxGridDBColumn; cxGridViewLISTA_NOMBRES: TcxGridDBColumn;
cxGridViewLOPD: TcxGridDBColumn;
procedure cxGridViewStylesGetContentStyle(Sender: TcxCustomGridTableView; procedure cxGridViewStylesGetContentStyle(Sender: TcxCustomGridTableView;
ARecord: TcxCustomGridRecord; AItem: TcxCustomGridTableItem; ARecord: TcxCustomGridRecord; AItem: TcxCustomGridTableItem;
out AStyle: TcxStyle); out AStyle: TcxStyle);

1
Source/Modulos/Recibos de cliente/Reports/uRptRecibosCliente_Server.dfm
View File

@ -1,6 +1,7 @@
object RptRecibosCliente: TRptRecibosCliente object RptRecibosCliente: TRptRecibosCliente
OldCreateOrder = True OldCreateOrder = True
OnCreate = DataModuleCreate OnCreate = DataModuleCreate
OnDestroy = DataModuleDestroy
Height = 405 Height = 405
Width = 593 Width = 593
object DADataCabecera: TDADataSource object DADataCabecera: TDADataSource

132
Source/Modulos/Recibos de cliente/Reports/uRptRecibosCliente_Server.pas
View File

@ -33,6 +33,7 @@ type
schReport: TDASchema; schReport: TDASchema;
DataDictionary: TDADataDictionary; DataDictionary: TDADataDictionary;
procedure DataModuleCreate(Sender: TObject); procedure DataModuleCreate(Sender: TObject);
procedure DataModuleDestroy(Sender: TObject);
private private
FConnection: IDAConnection; FConnection: IDAConnection;
FIdEmpresa: Integer; FIdEmpresa: Integer;
@ -40,14 +41,15 @@ type
FFechaFin: Variant; FFechaFin: Variant;
FFechaVenInicio: Variant; FFechaVenInicio: Variant;
FFechaVenFin: Variant; FFechaVenFin: Variant;
FListaIDProveedores: TIntegerArray; FListaIDClientes: TIntegerArray;
FListaNombresProveedores: TStringList; FListaNombresClientes: TStringList;
FImporteMinimo: Currency; FImporteMinimo: Currency;
FDesglosado : Boolean; FDesglosado : Boolean;
procedure _GenerarRecibo(const ID : Integer); procedure _GenerarRecibo(const ID : Integer);
function _GenerarInforme(const TipoInforme: String; const IdEmpresa: Integer; const FechaInicio, FechaFin: Variant; const FechaVenInicio: Variant; FechaVenFin: Variant; const ListaIDClientes: TIntegerArray; const ImporteMinimo: Currency): Binary; function _GenerarInforme(const TipoInforme: String; const IdEmpresa: Integer; const FechaInicio, FechaFin: Variant; const FechaVenInicio: Variant; FechaVenFin: Variant; const ListaIDClientes: TIntegerArray; const ImporteMinimo: Currency): Binary;
procedure IniciarParametrosInforme; procedure IniciarParametrosInforme;
procedure RecuperarNombresClientes;
public public
function GenerarRecibo(const ListaID : TIntegerArray): Binary; function GenerarRecibo(const ListaID : TIntegerArray): Binary;
@ -61,7 +63,8 @@ implementation
{$R *.dfm} {$R *.dfm}
uses uses
uSistemaFunc, uDataModuleServer, schRecibosClienteClient_Intf; uSistemaFunc, uDataModuleServer, schRecibosClienteClient_Intf,
uROServer, DataAbstract4_Intf;
const const
rptInforme = 'InfReciboCliente.fr3'; rptInforme = 'InfReciboCliente.fr3';
@ -78,6 +81,13 @@ begin
schReport.ConnectionManager := dmServer.ConnectionManager; schReport.ConnectionManager := dmServer.ConnectionManager;
FConnection := dmServer.DarNuevaConexion; FConnection := dmServer.DarNuevaConexion;
frxReport.EngineOptions.NewSilentMode := simReThrow; frxReport.EngineOptions.NewSilentMode := simReThrow;
FListaNombresClientes := TStringList.Create;
end;
procedure TRptRecibosCliente.DataModuleDestroy(Sender: TObject);
begin
FreeAndNil(FListaNombresClientes);
end; end;
function TRptRecibosCliente.GenerarInformeListadoRecibos( function TRptRecibosCliente.GenerarInformeListadoRecibos(
@ -97,9 +107,9 @@ begin
FImporteMinimo := ImporteMinimo; FImporteMinimo := ImporteMinimo;
FDesglosado := Desglosado; FDesglosado := Desglosado;
if Assigned(FListaIDProveedores) then if Assigned(FListaIDClientes) then
FListaIDProveedores.Free; FListaIDClientes.Free;
FListaIDProveedores := ListaIDClientes; FListaIDClientes := ListaIDClientes;
//DESGLOSADO POR CLIENTE EN ESTE INFORME NO SE DESGLOSARÁ POR CLIENTE //DESGLOSADO POR CLIENTE EN ESTE INFORME NO SE DESGLOSARÁ POR CLIENTE
@ -130,9 +140,9 @@ begin
FImporteMinimo := ImporteMinimo; FImporteMinimo := ImporteMinimo;
FDesglosado := Desglosado; FDesglosado := Desglosado;
if Assigned(FListaIDProveedores) then if Assigned(FListaIDClientes) then
FListaIDProveedores.Free; FListaIDClientes.Free;
FListaIDProveedores := ListaIDClientes; FListaIDClientes := ListaIDClientes;
if tbl_InformeListadoRecibos.Active then if tbl_InformeListadoRecibos.Active then
@ -182,7 +192,6 @@ begin
ATextos := TStringList.Create; ATextos := TStringList.Create;
try try
{
if (not VarIsNull(FFechaInicio)) and (not VarIsNull(FFechaFin)) then if (not VarIsNull(FFechaInicio)) and (not VarIsNull(FFechaFin)) then
ACadena := Format('Fechas de factura desde el %s hasta el %s', [VarToStr(FFechaInicio), VarToStr(FFechaFin)]) ACadena := Format('Fechas de factura desde el %s hasta el %s', [VarToStr(FFechaInicio), VarToStr(FFechaFin)])
else else
@ -205,17 +214,17 @@ begin
ACadena := ''; ACadena := '';
end; end;
if Assigned(FListaIDProveedores) and (FListaIDProveedores.Count > 0) then if Assigned(FListaIDClientes) and (FListaIDClientes.Count > 0) then
begin begin
RecuperarNombresProveedores; RecuperarNombresClientes;
ACadena := FListaNombresProveedores.Text; ACadena := FListaNombresClientes.Text;
end end
else begin else begin
ACadena := 'Todos los proveedores'; ACadena := 'Todos los clientes';
if FDesglosado then if FDesglosado then
ACadena := ACadena + ' (desglosados)' ACadena := ACadena + ' (desglosados)'
end; end;
}
ATextos.Add(ACadena); ATextos.Add(ACadena);
ACadena := ''; ACadena := '';
@ -225,6 +234,96 @@ begin
end; end;
end; end;
procedure TRptRecibosCliente.RecuperarNombresClientes;
var
AContactosService : IsrvContactos;
Intf : IInterface;
AClientID : TGUID;
ATableNameArray: StringArray;
ATableRequestInfoArray: TableRequestInfoArray;
ATableRequestInfo: TableRequestInfoV5;
AStream: TMemoryStream;
ADataTable: TDAMemDataTable;
i: Integer;
AWhereBuilder : TDAWhereBuilder;
ACondicion : TDAWhereExpression;
begin
CreateGUID(AClientID);
GetClassFactory('srvContactos').CreateInstance(AClientID, Intf);
if Assigned(Intf) then
begin
AContactosService := Intf as IsrvContactos;
ATableNameArray := StringArray.Create;
ATableRequestInfoArray := TableRequestInfoArray.Create;
AWhereBuilder := TDAWhereBuilder.Create;
try
ATableNameArray.Add('Clientes');
ATableRequestInfo := TableRequestInfoV5.Create;
with ATableRequestInfo do
begin
IncludeSchema := True;
MaxRecords := -1;
UserFilter := '';
AWhereBuilder.Clear;
with AWhereBuilder do
for i := 0 to FListaIDClientes.Count - 1 do
begin
ACondicion := NewBinaryExpression(
NewBinaryExpression(NewField('', 'ID'), NewConstant(FListaIDClientes[i], datInteger), dboEqual),
NewBinaryExpression(NewField('', 'ID_EMPRESA'), NewConstant(FIdEmpresa, datInteger), dboEqual),
dboAnd);
if not AWhereBuilder.IsEmpty then
Expression := NewBinaryExpression(Expression, ACondicion, dboOr)
else
Expression := ACondicion;
end;
WhereClause := AWhereBuilder.ExpressionToXmlNode(AWhereBuilder.Expression);
end;
try
ATableRequestInfoArray.Add(ATableRequestInfo);
AStream := AContactosService.GetData(ATableNameArray, ATableRequestInfoArray);
if Assigned(AStream) then
begin
ADataTable := TDAMemDataTable.Create(nil);
try
ADataTable.Name := 'Clientes';
ADataTable.LocalDataStreamer := Bin2DataStreamer;
ADataTable.RemoteFetchEnabled := False;
Bin2DataStreamer.ReadDataset(AStream, ADataTable, True);
ADataTable.Open;
FListaNombresClientes.Clear;
for i := 0 to ADataTable.RecordCount - 1 do
begin
FListaNombresClientes.Add(ADataTable.FieldByName('NOMBRE').AsString);
ADataTable.Next;
end;
finally
FreeANDNil(ADataTable);
end;
end;
except
on e: Exception do
dmServer.EscribirLog(e.Message);
end;
finally
FreeANDNIL(ATableRequestInfoArray);
FreeANDNIL(ATableNameArray);
FreeANDNIL(AWhereBuilder);
end;
end;
end;
function TRptRecibosCliente._GenerarInforme(const TipoInforme: String; function TRptRecibosCliente._GenerarInforme(const TipoInforme: String;
const IdEmpresa: Integer; const FechaInicio, FechaFin: Variant; const IdEmpresa: Integer; const FechaInicio, FechaFin: Variant;
const FechaVenInicio: Variant; FechaVenFin: Variant; const FechaVenInicio: Variant; FechaVenFin: Variant;
@ -324,8 +423,7 @@ begin
raise Exception.Create (('Error Servidor: _GenerarInforme, no encuentra informe ' + TipoInforme)); raise Exception.Create (('Error Servidor: _GenerarInforme, no encuentra informe ' + TipoInforme));
frxReport.LoadFromFile(AInforme, True); frxReport.LoadFromFile(AInforme, True);
frxReport.Variables.Variables['FechaInicio'] := FechaInicio; IniciarParametrosInforme;
frxReport.Variables.Variables['FechaFin'] := FechaFin;
frxReport.PrepareReport(False); frxReport.PrepareReport(False);
frxReport.PreviewPages.SaveToStream(Result); frxReport.PreviewPages.SaveToStream(Result);

1
Source/Modulos/Recibos de proveedor/Reports/uRptRecibosProveedor_Server.dfm
View File

@ -1,6 +1,7 @@
object RptRecibosProveedor: TRptRecibosProveedor object RptRecibosProveedor: TRptRecibosProveedor
OldCreateOrder = True OldCreateOrder = True
OnCreate = DataModuleCreate OnCreate = DataModuleCreate
OnDestroy = DataModuleDestroy
Height = 405 Height = 405
Width = 511 Width = 511
object frxRichObject1: TfrxRichObject object frxRichObject1: TfrxRichObject

8
Source/Modulos/Recibos de proveedor/Reports/uRptRecibosProveedor_Server.pas
View File

@ -27,6 +27,7 @@ type
schReport: TDASchema; schReport: TDASchema;
DataDictionary: TDADataDictionary; DataDictionary: TDADataDictionary;
procedure DataModuleCreate(Sender: TObject); procedure DataModuleCreate(Sender: TObject);
procedure DataModuleDestroy(Sender: TObject);
private private
FConnection: IDAConnection; FConnection: IDAConnection;
FIdEmpresa: Integer; FIdEmpresa: Integer;
@ -72,9 +73,16 @@ begin
schReport.ConnectionManager := dmServer.ConnectionManager; schReport.ConnectionManager := dmServer.ConnectionManager;
FConnection := dmServer.DarNuevaConexion; FConnection := dmServer.DarNuevaConexion;
frxReport.EngineOptions.NewSilentMode := simReThrow; frxReport.EngineOptions.NewSilentMode := simReThrow;
FListaNombresProveedores := TStringList.Create;
end; end;
procedure TRptRecibosProveedor.DataModuleDestroy(Sender: TObject);
begin
FreeAndNil(FListaNombresProveedores);
end;
function TRptRecibosProveedor.GenerarInformeListadoRecibos( function TRptRecibosProveedor.GenerarInformeListadoRecibos(
const IdEmpresa: Integer; const FechaInicio, FechaFin: Variant; const IdEmpresa: Integer; const FechaInicio, FechaFin: Variant;
const FechaVenInicio, FechaVenFin: Variant; const FechaVenInicio, FechaVenFin: Variant;

23
Source/Modulos/Relaciones/Contratos de cliente - Facturas de cliente/uGenerarFacturasCliUtils.pas
View File

@ -13,6 +13,7 @@ type
function GenerarFacturaCli(const IDContrato : Integer) : Boolean; overload; function GenerarFacturaCli(const IDContrato : Integer) : Boolean; overload;
function GenerarFacturaCli(AContrato : IBizContratoCliente; var AFactura: IBizFacturaCliente) : Boolean; overload; function GenerarFacturaCli(AContrato : IBizContratoCliente; var AFactura: IBizFacturaCliente) : Boolean; overload;
procedure VerContratoCliDeFactura(AFactura : IBizFacturaCliente);
// function ElegirPedidoYGenerarAlbaranCli(var IDAlbaran: Integer) : Boolean; // function ElegirPedidoYGenerarAlbaranCli(var IDAlbaran: Integer) : Boolean;
implementation implementation
@ -256,4 +257,26 @@ begin
end; end;
end; end;
} }
procedure VerContratoCliDeFactura(AFactura : IBizFacturaCliente);
var
AContrato : IBizContratoCliente;
begin
try
if not Assigned(AContratosClienteController) then
Inicializar;
AContrato := AContratosClienteController.Buscar(AFactura.ID_CONTRATO);
if Assigned(AContrato) then
AContratosClienteController.Ver(AContrato);
finally
if Assigned(AContratosClienteController) then
Finalizar;
end;
end;
end. end.

4
Source/Servicios/FactuGES.RODL
View File

@ -302,6 +302,8 @@
</Parameter> </Parameter>
<Parameter Name="FacturaID" DataType="TIntegerArray" Flag="In" > <Parameter Name="FacturaID" DataType="TIntegerArray" Flag="In" >
</Parameter> </Parameter>
<Parameter Name="VerDatosCliente" DataType="Boolean" Flag="In" >
</Parameter>
</Parameters> </Parameters>
</Operation> </Operation>
<Operation Name="GenerarInformeEnPDF" UID="{776E17A8-E50E-468C-AC5D-BB566BE84E4D}"> <Operation Name="GenerarInformeEnPDF" UID="{776E17A8-E50E-468C-AC5D-BB566BE84E4D}">
@ -310,6 +312,8 @@
</Parameter> </Parameter>
<Parameter Name="ListaID" DataType="TIntegerArray" Flag="In" > <Parameter Name="ListaID" DataType="TIntegerArray" Flag="In" >
</Parameter> </Parameter>
<Parameter Name="VerDatosCliente" DataType="Boolean" Flag="In" >
</Parameter>
</Parameters> </Parameters>
</Operation> </Operation>
</Operations> </Operations>

14
Source/Servicios/FactuGES_Intf.pas
View File

@ -516,8 +516,8 @@ type
{ IsrvFacturasCliente } { IsrvFacturasCliente }
IsrvFacturasCliente = interface(IDataAbstractService) IsrvFacturasCliente = interface(IDataAbstractService)
['{56B4FFF0-AB1B-46B2-BA16-ABD5360F6311}'] ['{56B4FFF0-AB1B-46B2-BA16-ABD5360F6311}']
function GenerateReport(const FacturaID: TIntegerArray): Binary; function GenerateReport(const FacturaID: TIntegerArray; const VerDatosCliente: Boolean): Binary;
function GenerarInformeEnPDF(const ListaID: TIntegerArray): Binary; function GenerarInformeEnPDF(const ListaID: TIntegerArray; const VerDatosCliente: Boolean): Binary;
end; end;
{ CosrvFacturasCliente } { CosrvFacturasCliente }
@ -530,8 +530,8 @@ type
protected protected
function __GetInterfaceName:string; override; function __GetInterfaceName:string; override;
function GenerateReport(const FacturaID: TIntegerArray): Binary; function GenerateReport(const FacturaID: TIntegerArray; const VerDatosCliente: Boolean): Binary;
function GenerarInformeEnPDF(const ListaID: TIntegerArray): Binary; function GenerarInformeEnPDF(const ListaID: TIntegerArray; const VerDatosCliente: Boolean): Binary;
end; end;
{ IsrvFacturasProveedor } { IsrvFacturasProveedor }
@ -1817,12 +1817,13 @@ begin
result := 'srvFacturasCliente'; result := 'srvFacturasCliente';
end; end;
function TsrvFacturasCliente_Proxy.GenerateReport(const FacturaID: TIntegerArray): Binary; function TsrvFacturasCliente_Proxy.GenerateReport(const FacturaID: TIntegerArray; const VerDatosCliente: Boolean): Binary;
begin begin
try try
result := nil; result := nil;
__Message.InitializeRequestMessage(__TransportChannel, 'FactuGES', __InterfaceName, 'GenerateReport'); __Message.InitializeRequestMessage(__TransportChannel, 'FactuGES', __InterfaceName, 'GenerateReport');
__Message.Write('FacturaID', TypeInfo(FactuGES_Intf.TIntegerArray), FacturaID, []); __Message.Write('FacturaID', TypeInfo(FactuGES_Intf.TIntegerArray), FacturaID, []);
__Message.Write('VerDatosCliente', TypeInfo(Boolean), VerDatosCliente, []);
__Message.Finalize; __Message.Finalize;
__TransportChannel.Dispatch(__Message); __TransportChannel.Dispatch(__Message);
@ -1834,12 +1835,13 @@ begin
end end
end; end;
function TsrvFacturasCliente_Proxy.GenerarInformeEnPDF(const ListaID: TIntegerArray): Binary; function TsrvFacturasCliente_Proxy.GenerarInformeEnPDF(const ListaID: TIntegerArray; const VerDatosCliente: Boolean): Binary;
begin begin
try try
result := nil; result := nil;
__Message.InitializeRequestMessage(__TransportChannel, 'FactuGES', __InterfaceName, 'GenerarInformeEnPDF'); __Message.InitializeRequestMessage(__TransportChannel, 'FactuGES', __InterfaceName, 'GenerarInformeEnPDF');
__Message.Write('ListaID', TypeInfo(FactuGES_Intf.TIntegerArray), ListaID, []); __Message.Write('ListaID', TypeInfo(FactuGES_Intf.TIntegerArray), ListaID, []);
__Message.Write('VerDatosCliente', TypeInfo(Boolean), VerDatosCliente, []);
__Message.Finalize; __Message.Finalize;
__TransportChannel.Dispatch(__Message); __TransportChannel.Dispatch(__Message);

12
Source/Servicios/FactuGES_Invk.pas
View File

@ -934,9 +934,10 @@ begin
end; end;
procedure TsrvFacturasCliente_Invoker.Invoke_GenerateReport(const __Instance:IInterface; const __Message:IROMessage; const __Transport:IROTransport; out __oResponseOptions:TROResponseOptions); procedure TsrvFacturasCliente_Invoker.Invoke_GenerateReport(const __Instance:IInterface; const __Message:IROMessage; const __Transport:IROTransport; out __oResponseOptions:TROResponseOptions);
{ function GenerateReport(const FacturaID: TIntegerArray): Binary; } { function GenerateReport(const FacturaID: TIntegerArray; const VerDatosCliente: Boolean): Binary; }
var var
FacturaID: FactuGES_Intf.TIntegerArray; FacturaID: FactuGES_Intf.TIntegerArray;
VerDatosCliente: Boolean;
lResult: Binary; lResult: Binary;
__lObjectDisposer: TROObjectDisposer; __lObjectDisposer: TROObjectDisposer;
begin begin
@ -944,8 +945,9 @@ begin
lResult := nil; lResult := nil;
try try
__Message.Read('FacturaID', TypeInfo(FactuGES_Intf.TIntegerArray), FacturaID, []); __Message.Read('FacturaID', TypeInfo(FactuGES_Intf.TIntegerArray), FacturaID, []);
__Message.Read('VerDatosCliente', TypeInfo(Boolean), VerDatosCliente, []);
lResult := (__Instance as IsrvFacturasCliente).GenerateReport(FacturaID); lResult := (__Instance as IsrvFacturasCliente).GenerateReport(FacturaID, VerDatosCliente);
__Message.InitializeResponseMessage(__Transport, 'FactuGES', 'srvFacturasCliente', 'GenerateReportResponse'); __Message.InitializeResponseMessage(__Transport, 'FactuGES', 'srvFacturasCliente', 'GenerateReportResponse');
__Message.Write('Result', TypeInfo(Binary), lResult, []); __Message.Write('Result', TypeInfo(Binary), lResult, []);
@ -964,9 +966,10 @@ begin
end; end;
procedure TsrvFacturasCliente_Invoker.Invoke_GenerarInformeEnPDF(const __Instance:IInterface; const __Message:IROMessage; const __Transport:IROTransport; out __oResponseOptions:TROResponseOptions); procedure TsrvFacturasCliente_Invoker.Invoke_GenerarInformeEnPDF(const __Instance:IInterface; const __Message:IROMessage; const __Transport:IROTransport; out __oResponseOptions:TROResponseOptions);
{ function GenerarInformeEnPDF(const ListaID: TIntegerArray): Binary; } { function GenerarInformeEnPDF(const ListaID: TIntegerArray; const VerDatosCliente: Boolean): Binary; }
var var
ListaID: FactuGES_Intf.TIntegerArray; ListaID: FactuGES_Intf.TIntegerArray;
VerDatosCliente: Boolean;
lResult: Binary; lResult: Binary;
__lObjectDisposer: TROObjectDisposer; __lObjectDisposer: TROObjectDisposer;
begin begin
@ -974,8 +977,9 @@ begin
lResult := nil; lResult := nil;
try try
__Message.Read('ListaID', TypeInfo(FactuGES_Intf.TIntegerArray), ListaID, []); __Message.Read('ListaID', TypeInfo(FactuGES_Intf.TIntegerArray), ListaID, []);
__Message.Read('VerDatosCliente', TypeInfo(Boolean), VerDatosCliente, []);
lResult := (__Instance as IsrvFacturasCliente).GenerarInformeEnPDF(ListaID); lResult := (__Instance as IsrvFacturasCliente).GenerarInformeEnPDF(ListaID, VerDatosCliente);
__Message.InitializeResponseMessage(__Transport, 'FactuGES', 'srvFacturasCliente', 'GenerarInformeEnPDFResponse'); __Message.InitializeResponseMessage(__Transport, 'FactuGES', 'srvFacturasCliente', 'GenerarInformeEnPDFResponse');
__Message.Write('Result', TypeInfo(Binary), lResult, []); __Message.Write('Result', TypeInfo(Binary), lResult, []);

BIN
Source/Servicios/RODLFile.res
View File

Binary file not shown.

10
Source/Servidor/FactuGES_Server.dpr
View File

@ -127,18 +127,18 @@ uses
schFormasPagoServer_Intf in '..\Modulos\Formas de pago\Model\schFormasPagoServer_Intf.pas', schFormasPagoServer_Intf in '..\Modulos\Formas de pago\Model\schFormasPagoServer_Intf.pas',
schEmpresasClient_Intf in '..\ApplicationBase\Empresas\Model\schEmpresasClient_Intf.pas', schEmpresasClient_Intf in '..\ApplicationBase\Empresas\Model\schEmpresasClient_Intf.pas',
schEmpresasServer_Intf in '..\ApplicationBase\Empresas\Model\schEmpresasServer_Intf.pas', schEmpresasServer_Intf in '..\ApplicationBase\Empresas\Model\schEmpresasServer_Intf.pas',
schFacturasClienteClient_Intf in '..\Modulos\Facturas de cliente\Model\schFacturasClienteClient_Intf.pas',
schFacturasClienteServer_Intf in '..\Modulos\Facturas de cliente\Model\schFacturasClienteServer_Intf.pas',
schFacturasProveedorClient_Intf in '..\Modulos\Facturas de proveedor\Model\schFacturasProveedorClient_Intf.pas', schFacturasProveedorClient_Intf in '..\Modulos\Facturas de proveedor\Model\schFacturasProveedorClient_Intf.pas',
schFacturasProveedorServer_Intf in '..\Modulos\Facturas de proveedor\Model\schFacturasProveedorServer_Intf.pas', schFacturasProveedorServer_Intf in '..\Modulos\Facturas de proveedor\Model\schFacturasProveedorServer_Intf.pas',
schPedidosProveedorClient_Intf in '..\Modulos\Pedidos a proveedor\Model\schPedidosProveedorClient_Intf.pas', schPedidosProveedorClient_Intf in '..\Modulos\Pedidos a proveedor\Model\schPedidosProveedorClient_Intf.pas',
schPedidosProveedorServer_Intf in '..\Modulos\Pedidos a proveedor\Model\schPedidosProveedorServer_Intf.pas', schPedidosProveedorServer_Intf in '..\Modulos\Pedidos a proveedor\Model\schPedidosProveedorServer_Intf.pas',
schRecibosClienteClient_Intf in '..\Modulos\Recibos de cliente\Model\schRecibosClienteClient_Intf.pas', schRecibosClienteClient_Intf in '..\Modulos\Recibos de cliente\Model\schRecibosClienteClient_Intf.pas',
schRecibosClienteServer_Intf in '..\Modulos\Recibos de cliente\Model\schRecibosClienteServer_Intf.pas', schRecibosClienteServer_Intf in '..\Modulos\Recibos de cliente\Model\schRecibosClienteServer_Intf.pas',
schContratosClienteClient_Intf in '..\Modulos\Contratos de cliente\Model\schContratosClienteClient_Intf.pas',
schContratosClienteServer_Intf in '..\Modulos\Contratos de cliente\Model\schContratosClienteServer_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',
schFacturasClienteClient_Intf in '..\Modulos\Facturas de cliente\Model\schFacturasClienteClient_Intf.pas',
schFacturasClienteServer_Intf in '..\Modulos\Facturas de cliente\Model\schFacturasClienteServer_Intf.pas',
schContratosClienteClient_Intf in '..\Modulos\Contratos de cliente\Model\schContratosClienteClient_Intf.pas',
schContratosClienteServer_Intf in '..\Modulos\Contratos de cliente\Model\schContratosClienteServer_Intf.pas';
{$R *.res} {$R *.res}
{$R ..\Servicios\RODLFile.res} {$R ..\Servicios\RODLFile.res}

2
Source/Servidor/FactuGES_Server.dproj
View File

@ -28,7 +28,7 @@
<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">0</VersionInfo><VersionInfo Name="Release">2</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.0.2.0</VersionInfoKeys><VersionInfoKeys Name="InternalName"></VersionInfoKeys><VersionInfoKeys Name="LegalCopyright"></VersionInfoKeys><VersionInfoKeys Name="LegalTrademarks"></VersionInfoKeys><VersionInfoKeys Name="OriginalFilename"></VersionInfoKeys><VersionInfoKeys Name="ProductName">FactuGES v2(Servidor)</VersionInfoKeys><VersionInfoKeys Name="ProductVersion">2.0.2.0</VersionInfoKeys><VersionInfoKeys Name="Comments"></VersionInfoKeys><VersionInfoKeys Name="CompileDate">jueves, 27 de febrero de 2020 16:27</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">0</VersionInfo><VersionInfo Name="Release">3</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.0.3.0</VersionInfoKeys><VersionInfoKeys Name="InternalName"></VersionInfoKeys><VersionInfoKeys Name="LegalCopyright"></VersionInfoKeys><VersionInfoKeys Name="LegalTrademarks"></VersionInfoKeys><VersionInfoKeys Name="OriginalFilename"></VersionInfoKeys><VersionInfoKeys Name="ProductName">FactuGES v2(Servidor)</VersionInfoKeys><VersionInfoKeys Name="ProductVersion">2.0.3.0</VersionInfoKeys><VersionInfoKeys Name="Comments"></VersionInfoKeys><VersionInfoKeys Name="CompileDate">miércoles, 04 de marzo de 2020 17:03</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>

BIN
Source/Servidor/FactuGES_Server.res
View File

Binary file not shown.