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

Version 2.9.0: Aviso al modificar presupuestos y campo nuevo de fecha ultima modificacion, poder aumentar y desminuir la letra, facturas solo visibles para gerencia, cambio LOPD Acota

Browse Source 
git-svn-id: https://192.168.0.254/svn/Proyectos.AlonsoYSal_FactuGES2/trunk@38 40301925-124e-1c4e-b97d-170ad7a8785b
This commit is contained in:
roberto 2024-05-20 16:09:11 +00:00
parent 2cfa8a916e
commit 4e3fd677a8
49 changed files with 2065 additions and 339 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.

BIN
Resources/Iconos/Generales/16x16/Aumentar_letra.png Normal file
View File

Binary file not shown.
Side by Side

After

Width:  |  Height:  |  Size: 3.0 KiB

BIN
Resources/Iconos/Generales/16x16/Disminuir_letra.png Normal file
View File

Binary file not shown.
Side by Side

After

Width:  |  Height:  |  Size: 3.0 KiB

98
Source/Base/Base.dproj
View File

@ -65,56 +65,56 @@
<DelphiCompile Include="Base.dpk"> <DelphiCompile Include="Base.dpk">
<MainSource>MainSource</MainSource> <MainSource>MainSource</MainSource>
</DelphiCompile> </DelphiCompile>
<DCCReference Include="..\Modulos\Contratos de cliente\adortl.dcp" />
<DCCReference Include="..\Modulos\Contratos de cliente\cxDataD11.dcp" />
<DCCReference Include="..\Modulos\Contratos de cliente\cxEditorsD11.dcp" />
<DCCReference Include="..\Modulos\Contratos de cliente\cxExtEditorsD11.dcp" />
<DCCReference Include="..\Modulos\Contratos de cliente\cxGridD11.dcp" />
<DCCReference Include="..\Modulos\Contratos de cliente\cxLibraryD11.dcp" />
<DCCReference Include="..\Modulos\Contratos de cliente\cxPageControlD11.dcp" />
<DCCReference Include="..\Modulos\Contratos de cliente\DataAbstract_Core_D11.dcp" />
<DCCReference Include="..\Modulos\Contratos de cliente\dbrtl.dcp" />
<DCCReference Include="..\Modulos\Contratos de cliente\dclIndyCore.dcp" />
<DCCReference Include="..\Modulos\Contratos de cliente\designide.dcp" />
<DCCReference Include="..\Modulos\Contratos de cliente\dsnap.dcp" />
<DCCReference Include="..\Modulos\Contratos de cliente\dxCoreD11.dcp" />
<DCCReference Include="..\Modulos\Contratos de cliente\dxGDIPlusD11.dcp" />
<DCCReference Include="..\Modulos\Contratos de cliente\dxPSCoreD11.dcp" />
<DCCReference Include="..\Modulos\Contratos de cliente\dxThemeD11.dcp" />
<DCCReference Include="..\Modulos\Contratos de cliente\GUISDK_D11R.dcp" />
<DCCReference Include="..\Modulos\Contratos de cliente\IndyCore.dcp" />
<DCCReference Include="..\Modulos\Contratos de cliente\IndyProtocols.dcp" />
<DCCReference Include="..\Modulos\Contratos de cliente\IndySystem.dcp" />
<DCCReference Include="..\Modulos\Contratos de cliente\Jcl.dcp" />
<DCCReference Include="..\Modulos\Contratos de cliente\JclVcl.dcp" />
<DCCReference Include="..\Modulos\Contratos de cliente\JSDialog100.dcp" />
<DCCReference Include="..\Modulos\Contratos de cliente\JvCmpD11R.dcp" />
<DCCReference Include="..\Modulos\Contratos de cliente\JvCoreD11R.dcp" />
<DCCReference Include="..\Modulos\Contratos de cliente\JvCtrlsD11R.dcp" />
<DCCReference Include="..\Modulos\Contratos de cliente\JvDlgsD11R.dcp" />
<DCCReference Include="..\Modulos\Contratos de cliente\JvMMD11R.dcp" />
<DCCReference Include="..\Modulos\Contratos de cliente\JvNetD11R.dcp" />
<DCCReference Include="..\Modulos\Contratos de cliente\JvPageCompsD11R.dcp" />
<DCCReference Include="..\Modulos\Contratos de cliente\JvStdCtrlsD11R.dcp" />
<DCCReference Include="..\Modulos\Contratos de cliente\JvSystemD11R.dcp" />
<DCCReference Include="..\Modulos\Contratos de cliente\pckMD5.dcp" />
<DCCReference Include="..\Modulos\Contratos de cliente\pckUCDataConnector.dcp" />
<DCCReference Include="..\Modulos\Contratos de cliente\pckUserControl_RT.dcp" />
<DCCReference Include="..\Modulos\Contratos de cliente\PluginSDK_D11R.dcp" />
<DCCReference Include="..\Modulos\Contratos de cliente\PngComponentsD10.dcp" />
<DCCReference Include="..\Modulos\Contratos de cliente\PNG_D10.dcp" />
<DCCReference Include="..\Modulos\Contratos de cliente\RemObjects_Core_D11.dcp" />
<DCCReference Include="..\Modulos\Contratos de cliente\rtl.dcp" />
<DCCReference Include="..\Modulos\Contratos de cliente\TB2k_D10.dcp" />
<DCCReference Include="..\Modulos\Contratos de cliente\tbx_d10.dcp" />
<DCCReference Include="..\Modulos\Contratos de cliente\vcl.dcp" />
<DCCReference Include="..\Modulos\Contratos de cliente\vclactnband.dcp" />
<DCCReference Include="..\Modulos\Contratos de cliente\vcldb.dcp" />
<DCCReference Include="..\Modulos\Contratos de cliente\vcljpg.dcp" />
<DCCReference Include="..\Modulos\Contratos de cliente\VclSmp.dcp" />
<DCCReference Include="..\Modulos\Contratos de cliente\vclx.dcp" />
<DCCReference Include="..\Modulos\Contratos de cliente\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/Base/Utiles/uStringsUtils.pas
View File

@ -132,7 +132,7 @@ function CadLimpiaCar(NIF: String): String;
delete(NIF,pos('-',NIF),1); delete(NIF,pos('-',NIF),1);
while (pos('/',NIF)>0) do while (pos('/',NIF)>0) do
delete(NIF,pos('/',NIF),1); delete(NIF,pos('/',NIF),1);
Result:=NIF; Result:=UpperCase(NIF);
end; end;
end. end.

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">2</VersionInfo><VersionInfo Name="Release">6</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.2.6.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.2.6.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">3</VersionInfo><VersionInfo Name="Release">0</VersionInfo><VersionInfo Name="Build">0</VersionInfo><VersionInfo Name="Debug">False</VersionInfo><VersionInfo Name="PreRelease">False</VersionInfo><VersionInfo Name="Special">False</VersionInfo><VersionInfo Name="Private">False</VersionInfo><VersionInfo Name="DLL">False</VersionInfo><VersionInfo Name="Locale">3082</VersionInfo><VersionInfo Name="CodePage">1252</VersionInfo></VersionInfo><VersionInfoKeys><VersionInfoKeys Name="CompanyName">Rodax Software S.L.</VersionInfoKeys><VersionInfoKeys Name="FileDescription"></VersionInfoKeys><VersionInfoKeys Name="FileVersion">2.3.0.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.3.0.0</VersionInfoKeys><VersionInfoKeys Name="Comments"></VersionInfoKeys></VersionInfoKeys><Excluded_Packages>
<Excluded_Packages Name="C:\Documents and Settings\All Users\Documentos\RAD Studio\5.0\Bpl\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="..\Servidor\Base.dcp" />
<DCCReference Include="..\Modulos\Presupuestos de cliente\ccpackD11.dcp" /> <DCCReference Include="..\Servidor\ccpackD11.dcp" />
<DCCReference Include="..\Modulos\Presupuestos de cliente\cxDataD11.dcp" /> <DCCReference Include="..\Servidor\cxDataD11.dcp" />
<DCCReference Include="..\Modulos\Presupuestos de cliente\cxEditorsD11.dcp" /> <DCCReference Include="..\Servidor\cxEditorsD11.dcp" />
<DCCReference Include="..\Modulos\Presupuestos de cliente\cxExportD11.dcp" /> <DCCReference Include="..\Servidor\cxExportD11.dcp" />
<DCCReference Include="..\Modulos\Presupuestos de cliente\cxLibraryD11.dcp" /> <DCCReference Include="..\Servidor\cxLibraryD11.dcp" />
<DCCReference Include="..\Modulos\Presupuestos de cliente\dbrtl.dcp" /> <DCCReference Include="..\Servidor\dbrtl.dcp" />
<DCCReference Include="..\Modulos\Presupuestos de cliente\dxGDIPlusD11.dcp" /> <DCCReference Include="..\Servidor\dxGDIPlusD11.dcp" />
<DCCReference Include="..\Modulos\Presupuestos de cliente\dxLayoutControlD11.dcp" /> <DCCReference Include="..\Servidor\dxLayoutControlD11.dcp" />
<DCCReference Include="..\Modulos\Presupuestos de cliente\dxPScxCommonD11.dcp" /> <DCCReference Include="..\Servidor\dxPScxCommonD11.dcp" />
<DCCReference Include="..\Modulos\Presupuestos de cliente\dxPScxGrid6LnkD11.dcp" /> <DCCReference Include="..\Servidor\dxPScxGrid6LnkD11.dcp" />
<DCCReference Include="..\Modulos\Presupuestos de cliente\dxThemeD11.dcp" /> <DCCReference Include="..\Servidor\dxThemeD11.dcp" />
<DCCReference Include="..\Modulos\Presupuestos de cliente\frx11.dcp" /> <DCCReference Include="..\Servidor\frx11.dcp" />
<DCCReference Include="..\Modulos\Presupuestos de cliente\frxe11.dcp" /> <DCCReference Include="..\Servidor\frxe11.dcp" />
<DCCReference Include="..\Modulos\Presupuestos de cliente\fs11.dcp" /> <DCCReference Include="..\Servidor\fs11.dcp" />
<DCCReference Include="..\Modulos\Presupuestos de cliente\JvAppFrmD11R.dcp" /> <DCCReference Include="..\Servidor\JvAppFrmD11R.dcp" />
<DCCReference Include="..\Modulos\Presupuestos de cliente\JvCtrlsD11R.dcp" /> <DCCReference Include="..\Servidor\JvCtrlsD11R.dcp" />
<DCCReference Include="..\Modulos\Presupuestos de cliente\JvGlobusD11R.dcp" /> <DCCReference Include="..\Servidor\JvGlobusD11R.dcp" />
<DCCReference Include="..\Modulos\Presupuestos de cliente\PngComponentsD10.dcp" /> <DCCReference Include="..\Servidor\PngComponentsD10.dcp" />
<DCCReference Include="..\Modulos\Presupuestos de cliente\PNG_D10.dcp" /> <DCCReference Include="..\Servidor\PNG_D10.dcp" />
<DCCReference Include="..\Modulos\Presupuestos de cliente\rtl.dcp" /> <DCCReference Include="..\Servidor\rtl.dcp" />
<DCCReference Include="..\Modulos\Presupuestos de cliente\tb2k_d10.dcp" /> <DCCReference Include="..\Servidor\tb2k_d10.dcp" />
<DCCReference Include="..\Modulos\Presupuestos de cliente\tbx_d10.dcp" /> <DCCReference Include="..\Servidor\tbx_d10.dcp" />
<DCCReference Include="..\Modulos\Presupuestos de cliente\vcl.dcp" /> <DCCReference Include="..\Servidor\vcl.dcp" />
<DCCReference Include="..\Modulos\Presupuestos de cliente\vclactnband.dcp" /> <DCCReference Include="..\Servidor\vclactnband.dcp" />
<DCCReference Include="..\Modulos\Presupuestos de cliente\vcldb.dcp" /> <DCCReference Include="..\Servidor\vcldb.dcp" />
<DCCReference Include="..\Modulos\Presupuestos de cliente\vcljpg.dcp" /> <DCCReference Include="..\Servidor\vcljpg.dcp" />
<DCCReference Include="..\Modulos\Presupuestos de cliente\vclx.dcp" /> <DCCReference Include="..\Servidor\vclx.dcp" />
<DCCReference Include="uDialogBase.pas"> <DCCReference Include="uDialogBase.pas">
<Form>fDialogBase</Form> <Form>fDialogBase</Form>
</DCCReference> </DCCReference>

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

File diff suppressed because one or more lines are too long

8
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.

6
Source/Modulos/Contratos de cliente/Controller/View/uIEditorContratosClientePreview.pas
View File

@ -8,6 +8,12 @@ uses
type type
IEditorContratosClientePreview = interface(IEditorPreview) IEditorContratosClientePreview = interface(IEditorPreview)
['{475D47DE-2A04-4D85-9D3C-6201B7EF2F29}'] ['{475D47DE-2A04-4D85-9D3C-6201B7EF2F29}']
function getTamLetra: Integer;
function getVerCondiciones: Boolean;
procedure setTamLetra(const Value: Integer);
procedure setVerCodiciones(const Value: Boolean);
property Vercondiciones: Boolean read getVerCondiciones write setVerCodiciones;
property TamLetra: Integer read getTamLetra write setTamLetra;
end; end;

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

@ -8,7 +8,7 @@ uses
uControllerBase, uIDataModuleContratosCliente, uClientesController, uControllerBase, uIDataModuleContratosCliente, uClientesController,
uDetallesContratoClienteController, uGestorDocumentosController, uDetallesContratoClienteController, uGestorDocumentosController,
uBizContratosCliente, uBizDireccionesContacto, uBizDetallesContratoCliente, uBizContratosCliente, uBizDireccionesContacto, uBizDetallesContratoCliente,
uIntegerListUtils; uIntegerListUtils, uDataModuleContratosCliente;
type type
TEnumTiposContrato = (teCocina, teArmario, teBano, teElectrodomestico, teObra, teVarios); TEnumTiposContrato = (teCocina, teArmario, teBano, teElectrodomestico, teObra, teVarios);
@ -55,8 +55,8 @@ type
function EsModificable(AContrato : IBizContratoCliente): Boolean; function EsModificable(AContrato : IBizContratoCliente): Boolean;
function EsEliminable(AContrato : IBizContratoCliente): Boolean; function EsEliminable(AContrato : IBizContratoCliente): Boolean;
procedure Preview(AContrato : IBizContratoCliente; AllItems: Boolean = false; AVerCondiciones: Boolean = false); procedure Preview(AContrato : IBizContratoCliente; AllItems: Boolean = false; AVerCondiciones: Boolean = false; const TamLetra: Integer = CTE_TamLetraIni);
procedure Print(AContrato : IBizContratoCliente; AllItems: Boolean = false; AVerCondiciones: Boolean = false); procedure Print(AContrato : IBizContratoCliente; AllItems: Boolean = false; AVerCondiciones: Boolean = false; const TamLetra: Integer = CTE_TamLetraIni);
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 AsignarLOPD(AContratos: IBizContratoCliente): Boolean;
@ -68,6 +68,7 @@ type
procedure VerFacturasProveedor(AContrato : IBizContratoCliente); procedure VerFacturasProveedor(AContrato : IBizContratoCliente);
procedure CopiarDireccion (const ADireccion: IBizDireccionesContacto; AContrato: IBizContratoCliente); procedure CopiarDireccion (const ADireccion: IBizDireccionesContacto; AContrato: IBizContratoCliente);
procedure FechaUltimaActualizacionToday (AContrato: IBizContratoCliente);
end; end;
TContratosClienteController = class(TControllerBase, IContratosClienteController) TContratosClienteController = class(TControllerBase, IContratosClienteController)
@ -133,8 +134,8 @@ type
function EsModificable(AContrato : IBizContratoCliente): Boolean; function EsModificable(AContrato : IBizContratoCliente): Boolean;
function EsEliminable(AContrato : IBizContratoCliente): Boolean; function EsEliminable(AContrato : IBizContratoCliente): Boolean;
procedure Preview(AContrato : IBizContratoCliente; AllItems: Boolean = false; AVerCondiciones: Boolean = false); procedure Preview(AContrato : IBizContratoCliente; AllItems: Boolean = false; AVerCondiciones: Boolean = false; const TamLetra: Integer = CTE_TamLetraIni);
procedure Print(AContrato : IBizContratoCliente; AllItems: Boolean = false; AVerCondiciones: Boolean = false); procedure Print(AContrato : IBizContratoCliente; AllItems: Boolean = false; AVerCondiciones: Boolean = false; const TamLetra: Integer = CTE_TamLetraIni);
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 AsignarLOPD(AContratos: IBizContratoCliente): Boolean;
@ -146,13 +147,14 @@ type
procedure VerFacturasProveedor(AContrato : IBizContratoCliente); procedure VerFacturasProveedor(AContrato : IBizContratoCliente);
procedure CopiarDireccion (const ADireccion: IBizDireccionesContacto; AContrato: IBizContratoCliente); procedure CopiarDireccion (const ADireccion: IBizDireccionesContacto; AContrato: IBizContratoCliente);
procedure FechaUltimaActualizacionToday (AContrato: IBizContratoCliente);
end; end;
implementation implementation
uses uses
Controls, cxControls, DB, uEditorRegistryUtils, uEditorPreview, DateUtils, Controls, cxControls, DB, uEditorRegistryUtils, uEditorPreview, DateUtils,
uIEditorContratosCliente, uDataModuleContratosCliente, Variants, uIEditorContratosCliente, Variants,
uBizContactos, uDataTableUtils, uDataModuleUsuarios, uFactuGES_App, uBizContactos, uDataTableUtils, uDataModuleUsuarios, uFactuGES_App,
schContratosClienteClient_Intf, uDAInterfaces, uDateUtils, uIEditorContratoCliente, schContratosClienteClient_Intf, uDAInterfaces, uDateUtils, uIEditorContratoCliente,
uIEditorElegirContratosCliente, uIEditorDireccionEntregaContratoCliente, uIEditorElegirContratosCliente, uIEditorDireccionEntregaContratoCliente,
@ -987,6 +989,32 @@ begin
Result := ASeleccionados; Result := ASeleccionados;
end; end;
procedure TContratosClienteController.FechaUltimaActualizacionToday(AContrato: IBizContratoCliente);
var
bEnEdicion : Boolean;
begin
if not Assigned(AContrato) then
raise Exception.Create ('Contrato no asignado (CopiarDireccion)');
if AContrato.DataTable.Active then
AContrato.DataTable.Active := True;
bEnEdicion := (AContrato.DataTable.State in dsEditModes);
if not bEnEdicion then
AContrato.Edit;
ShowHourglassCursor;
AContrato.Edit;
try
AContrato.FECHA_ULT_PRESENTACION_CLIENTE := DateOf(Date);
if not bEnEdicion then
AContrato.Post;
finally
HideHourglassCursor;
end;
end;
procedure TContratosClienteController.FiltrarAno(AContrato: IBizContratoCliente; ADynWhereDataTable: WideString;const Ano: String); procedure TContratosClienteController.FiltrarAno(AContrato: IBizContratoCliente; ADynWhereDataTable: WideString;const Ano: String);
var var
Condicion: TDAWhereExpression; Condicion: TDAWhereExpression;
@ -1115,7 +1143,7 @@ begin
Result := AContrato; Result := AContrato;
end; end;
procedure TContratosClienteController.Preview(AContrato: IBizContratoCliente; AllItems: Boolean = false; AVerCondiciones: Boolean = false); procedure TContratosClienteController.Preview(AContrato: IBizContratoCliente; AllItems: Boolean = false; AVerCondiciones: Boolean = false; const TamLetra: Integer = CTE_TamLetraIni);
var var
AReportController : IContratosClienteReportController; AReportController : IContratosClienteReportController;
ID_Contratos: TIntegerList; ID_Contratos: TIntegerList;
@ -1141,14 +1169,14 @@ begin
else else
ID_Contratos.Add(AContrato.ID); ID_Contratos.Add(AContrato.ID);
AReportController.Preview(ID_Contratos, AVerCondiciones); AReportController.Preview(ID_Contratos, AVerCondiciones, TamLetra);
finally finally
AReportController := NIL; AReportController := NIL;
FreeAndNil(ID_Contratos); FreeAndNil(ID_Contratos);
end; end;
end; end;
procedure TContratosClienteController.Print(AContrato: IBizContratoCliente; AllItems: Boolean = false; AVerCondiciones: Boolean = false); procedure TContratosClienteController.Print(AContrato: IBizContratoCliente; AllItems: Boolean = false; AVerCondiciones: Boolean = false; const TamLetra: Integer = CTE_TamLetraIni);
var var
AReportController : IContratosClienteReportController; AReportController : IContratosClienteReportController;
ID_Contratos: TIntegerList; ID_Contratos: TIntegerList;
@ -1173,7 +1201,7 @@ begin
else else
ID_Contratos.Add(AContrato.ID); ID_Contratos.Add(AContrato.ID);
AReportController.Print(ID_Contratos, AVerCondiciones); AReportController.Print(ID_Contratos, AVerCondiciones, TamLetra);
finally finally
AReportController := NIL; AReportController := NIL;

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

@ -5,26 +5,31 @@ interface
uses uses
Classes, SysUtils, uDADataTable, uControllerBase, uIDataModuleContratosClienteReport, Classes, SysUtils, uDADataTable, uControllerBase, uIDataModuleContratosClienteReport,
uClientesController, uContratosClienteController, uDetallesContratoClienteController, uClientesController, uContratosClienteController, uDetallesContratoClienteController,
uBizContratosCliente, uIntegerListUtils; uBizContratosCliente, uIntegerListUtils, uDataModuleContratosCliente;
type type
IContratosClienteReportController = interface(IControllerBase) IContratosClienteReportController = interface(IControllerBase)
['{FEF47B69-26A3-462A-AF6D-4B2073D4F9DC}'] ['{FEF47B69-26A3-462A-AF6D-4B2073D4F9DC}']
procedure Preview(const AListaID : TIntegerList; AVerCondiciones: Boolean = false); procedure Preview(const AListaID : TIntegerList; AVerCondiciones: Boolean = false; const TamLetra: Integer = CTE_TamLetraIni);
procedure Print(const AListaID : TIntegerList; AVerCondiciones: Boolean = false); procedure Print(const AListaID : TIntegerList; AVerCondiciones: Boolean = false; const TamLetra: Integer = CTE_TamLetraIni);
function ExportToPDF(const AID: Integer; const AFileName : String = ''): Boolean; function ExportToPDF(const AID: Integer; const AFileName : String = ''): Boolean;
function getDataModule: IDataModuleContratosClienteReport;
property DataModule: IDataModuleContratosClienteReport read getDataModule;
end; end;
TContratosClienteReportController = class(TControllerBase, IContratosClienteReportController) TContratosClienteReportController = class(TControllerBase, IContratosClienteReportController)
private private
FDataModule : IDataModuleContratosClienteReport; FDataModule : IDataModuleContratosClienteReport;
function CreateEditor(const AName: String; const IID: TGUID; out Intf): Boolean; function CreateEditor(const AName: String; const IID: TGUID; out Intf): Boolean;
function getDataModule: IDataModuleContratosClienteReport;
public public
property DataModule: IDataModuleContratosClienteReport read getDataModule;
constructor Create; override; constructor Create; override;
destructor Destroy; override; destructor Destroy; override;
procedure Preview(const AListaID : TIntegerList; AVerCondiciones: Boolean = false); procedure Preview(const AListaID : TIntegerList; AVerCondiciones: Boolean = false; const TamLetra: Integer = CTE_TamLetraIni);
procedure Print(const AListaID : TIntegerList; AVerCondiciones: Boolean = false); procedure Print(const AListaID : TIntegerList; AVerCondiciones: Boolean = false; const TamLetra: Integer = CTE_TamLetraIni);
function ExportToPDF(const AID: Integer; const AFileName : String = ''): Boolean; function ExportToPDF(const AID: Integer; const AFileName : String = ''): Boolean;
end; end;
@ -33,7 +38,7 @@ implementation
uses uses
uROTypes, uEditorRegistryUtils, uIEditorContratosClientePreview, uROTypes, uEditorRegistryUtils, uIEditorContratosClientePreview,
uEditorPreview, uDataModuleContratosCliente, uEditorBase, uEditorPreview, uEditorBase,
cxControls, uFactuGES_App, uStringsUtils, uSistemaFunc; cxControls, uFactuGES_App, uStringsUtils, uSistemaFunc;
{ TContratosClienteReportController } { TContratosClienteReportController }
@ -80,7 +85,12 @@ begin
end; end;
end; end;
procedure TContratosClienteReportController.Preview(const AListaID : TIntegerList; AVerCondiciones: Boolean = false); function TContratosClienteReportController.getDataModule: IDataModuleContratosClienteReport;
begin
Result := FDataModule;
end;
procedure TContratosClienteReportController.Preview(const AListaID : TIntegerList; AVerCondiciones: Boolean = false; const TamLetra: Integer = CTE_TamLetraIni);
var var
AStream: Binary; AStream: Binary;
AEditor : IEditorContratosClientePreview; AEditor : IEditorContratosClientePreview;
@ -89,7 +99,7 @@ begin
ShowHourglassCursor; ShowHourglassCursor;
try try
AStream := FDataModule.GetRptContratos(AListaID, AVerCondiciones); AStream := FDataModule.GetRptContratos(AListaID, AVerCondiciones, TamLetra);
try try
CreateEditor('EditorContratosClientePreview', IEditorContratosClientePreview, AEditor); CreateEditor('EditorContratosClientePreview', IEditorContratosClientePreview, AEditor);
if Assigned(AEditor) then if Assigned(AEditor) then
@ -97,6 +107,8 @@ begin
try try
AEditor.Controller := Self; AEditor.Controller := Self;
AEditor.ListaID := AListaID; AEditor.ListaID := AListaID;
AEditor.Vercondiciones := AVerCondiciones;
AEditor.TamLetra := TamLetra;
AEditor.Title := 'Presupuesto - ' + AppFactuGES.EmpresaActiva.NOMBRE; AEditor.Title := 'Presupuesto - ' + AppFactuGES.EmpresaActiva.NOMBRE;
AEditor.LoadFromStream(AStream); AEditor.LoadFromStream(AStream);
AEditor.Preview; AEditor.Preview;
@ -113,7 +125,7 @@ begin
end; end;
end; end;
procedure TContratosClienteReportController.Print(const AListaID : TIntegerList; AVerCondiciones: Boolean = false); procedure TContratosClienteReportController.Print(const AListaID : TIntegerList; AVerCondiciones: Boolean = false; const TamLetra: Integer = CTE_TamLetraIni);
var var
AStream: Binary; AStream: Binary;
AEditor : IEditorContratosClientePreview; AEditor : IEditorContratosClientePreview;
@ -122,7 +134,7 @@ begin
ShowHourglassCursor; ShowHourglassCursor;
try try
AStream := FDataModule.GetRptContratos(AListaID, AVerCondiciones); AStream := FDataModule.GetRptContratos(AListaID, AVerCondiciones, TamLetra);
try try
CreateEditor('EditorContratosClientePreview', IEditorContratosClientePreview, AEditor); CreateEditor('EditorContratosClientePreview', IEditorContratosClientePreview, AEditor);
if Assigned(AEditor) then if Assigned(AEditor) then
@ -130,6 +142,8 @@ begin
try try
AEditor.Controller := Self; AEditor.Controller := Self;
AEditor.ListaID := AListaID; AEditor.ListaID := AListaID;
AEditor.Vercondiciones := AVerCondiciones;
AEditor.TamLetra := TamLetra;
AEditor.Title := 'Presupuesto - ' + AppFactuGES.EmpresaActiva.NOMBRE; AEditor.Title := 'Presupuesto - ' + AppFactuGES.EmpresaActiva.NOMBRE;
AEditor.LoadFromStream(AStream); AEditor.LoadFromStream(AStream);
AEditor.Print; AEditor.Print;

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

@ -373,6 +373,15 @@ inherited DataModuleContratosCliente: TDataModuleContratosCliente
Name = 'PROCEDENCIA_CLIENTE' Name = 'PROCEDENCIA_CLIENTE'
DataType = datString DataType = datString
Size = 255 Size = 255
end
item
Name = 'EMAIL_1'
DataType = datString
Size = 255
end
item
Name = 'FECHA_ULT_PRESENTACION_CLIENTE'
DataType = datDateTime
end> end>
Params = <> Params = <>
StreamingOptions = [soDisableEventsWhileStreaming] StreamingOptions = [soDisableEventsWhileStreaming]

7
Source/Modulos/Contratos de cliente/Data/uDataModuleContratosCliente.pas
View File

@ -13,6 +13,7 @@ uses
uRODynamicRequest, uDADataStreamer, uDARemoteDataAdapter, uDABin2DataStreamer, uRODynamicRequest, uDADataStreamer, uDARemoteDataAdapter, uDABin2DataStreamer,
uDAMemDataTable, uIntegerListUtils; uDAMemDataTable, uIntegerListUtils;
type type
TDataModuleContratosCliente = class(TDataModuleBase, IDataModuleContratosCliente, IDataModuleContratosClienteReport) TDataModuleContratosCliente = class(TDataModuleBase, IDataModuleContratosCliente, IDataModuleContratosClienteReport)
RORemoteService: TRORemoteService; RORemoteService: TRORemoteService;
@ -45,7 +46,7 @@ type
function NewItem : IBizContratoCliente; function NewItem : IBizContratoCliente;
// Report // Report
function GetRptContratos(const AListaID: TIntegerList; AVerCondiciones: Boolean = false): Binary; function GetRptContratos(const AListaID: TIntegerList; AVerCondiciones: Boolean = false; const TamLetra: Integer = 9): Binary;
function GetRptPDFContrato(const AID: Integer; AVerCondiciones: Boolean = false): Binary; function GetRptPDFContrato(const AID: Integer; AVerCondiciones: Boolean = false): Binary;
function GetAnosItems : TStringList; function GetAnosItems : TStringList;
@ -86,13 +87,13 @@ begin
end; end;
end; end;
function TDataModuleContratosCliente.GetRptContratos(const AListaID: TIntegerList; AVerCondiciones: Boolean = false): Binary; function TDataModuleContratosCliente.GetRptContratos(const AListaID: TIntegerList; AVerCondiciones: Boolean = false; const TamLetra: Integer = 9): Binary;
var var
AParam : TIntegerArray; AParam : TIntegerArray;
begin begin
AParam := AListaID.ToIntegerArray; AParam := AListaID.ToIntegerArray;
try try
Result := (RORemoteService as IsrvContratosCliente).GenerarInforme(AParam, AVerCondiciones) Result := (RORemoteService as IsrvContratosCliente).GenerarInforme(AParam, AVerCondiciones, TamLetra)
finally finally
FreeANDNIL(AParam) FreeANDNIL(AParam)
end; end;

2
Source/Modulos/Contratos de cliente/Model/Data/uIDataModuleContratosClienteReport.pas
View File

@ -8,7 +8,7 @@ uses
type type
IDataModuleContratosClienteReport = interface IDataModuleContratosClienteReport = interface
['{6AB7469B-842A-413E-AF33-9506477A9666}'] ['{6AB7469B-842A-413E-AF33-9506477A9666}']
function GetRptContratos(const AListaID: TIntegerList; AVerCondiciones: Boolean = false): Binary; function GetRptContratos(const AListaID: TIntegerList; AVerCondiciones: Boolean = false; const TamLetra: Integer = 9): Binary;
function GetRptPDFContrato(const AID: Integer; AVerCondiciones: Boolean = false): Binary; function GetRptPDFContrato(const AID: Integer; AVerCondiciones: Boolean = false): Binary;
end; end;

98
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 = '{AEE43CFA-1BB9-4CAC-8556-BFFC8FCEC733}'; RID_Valores = '{8E9C5E5F-B1C4-40D2-844C-6818E0A71C41}';
RID_Propiedades = '{B0855CF2-8ED5-4024-AEF7-D177FF322892}'; RID_Propiedades = '{10423127-9855-44C6-84D5-C2F5F30ABADC}';
RID_ListaAnosContratos = '{7E058AD2-196F-4A8A-AC1D-8DE9CBA5C393}'; RID_ListaAnosContratos = '{EBCE4D2B-EED3-4477-AFB1-B628241320DE}';
RID_ContratosClienteBeneficios = '{0EFEC438-3D7F-4359-BCCA-04AB52950321}'; RID_ContratosClienteBeneficios = '{EDA1E900-8EED-454E-BDF5-4D354D61EBB5}';
RID_ContratosCliente = '{00CCC87B-31E8-4640-BD5A-80EA152531B1}'; RID_ContratosCliente = '{C60CEDC1-9427-4DCE-821A-627672FAD176}';
RID_TiposCapitulos = '{FDAC7B98-87A1-41D6-A1C8-1FF22B060EBD}'; RID_TiposCapitulos = '{84075DE8-633F-4B18-A39B-B453DE08D5FD}';
RID_ContratosCliente_Detalles = '{68294EF3-4491-4A62-BCB2-E2FCE40EC48F}'; RID_ContratosCliente_Detalles = '{47A199B6-78E6-42EC-A6EF-C3A4A8939855}';
{ Data table names } { Data table names }
nme_Valores = 'Valores'; nme_Valores = 'Valores';
@ -142,6 +142,8 @@ const
fld_ContratosClienteFECHA_PREVISTA_MONTAJE = 'FECHA_PREVISTA_MONTAJE'; fld_ContratosClienteFECHA_PREVISTA_MONTAJE = 'FECHA_PREVISTA_MONTAJE';
fld_ContratosClienteCAMPO_LIBRE = 'CAMPO_LIBRE'; fld_ContratosClienteCAMPO_LIBRE = 'CAMPO_LIBRE';
fld_ContratosClientePROCEDENCIA_CLIENTE = 'PROCEDENCIA_CLIENTE'; fld_ContratosClientePROCEDENCIA_CLIENTE = 'PROCEDENCIA_CLIENTE';
fld_ContratosClienteEMAIL_1 = 'EMAIL_1';
fld_ContratosClienteFECHA_ULT_PRESENTACION_CLIENTE = 'FECHA_ULT_PRESENTACION_CLIENTE';
{ ContratosCliente field indexes } { ContratosCliente field indexes }
idx_ContratosClienteID = 0; idx_ContratosClienteID = 0;
@ -199,6 +201,8 @@ const
idx_ContratosClienteFECHA_PREVISTA_MONTAJE = 52; idx_ContratosClienteFECHA_PREVISTA_MONTAJE = 52;
idx_ContratosClienteCAMPO_LIBRE = 53; idx_ContratosClienteCAMPO_LIBRE = 53;
idx_ContratosClientePROCEDENCIA_CLIENTE = 54; idx_ContratosClientePROCEDENCIA_CLIENTE = 54;
idx_ContratosClienteEMAIL_1 = 55;
idx_ContratosClienteFECHA_ULT_PRESENTACION_CLIENTE = 56;
{ TiposCapitulos fields } { TiposCapitulos fields }
fld_TiposCapitulosID = 'ID'; fld_TiposCapitulosID = 'ID';
@ -257,7 +261,7 @@ const
type type
{ IValores } { IValores }
IValores = interface(IDAStronglyTypedDataTable) IValores = interface(IDAStronglyTypedDataTable)
['{B7DEBA9E-BCE7-44A0-A0D2-208F8F26EC42}'] ['{DE9A011D-6704-41A5-8170-8E1023E028A9}']
{ Property getters and setters } { Property getters and setters }
function GetIDValue: Integer; function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer); procedure SetIDValue(const aValue: Integer);
@ -316,7 +320,7 @@ type
{ IPropiedades } { IPropiedades }
IPropiedades = interface(IDAStronglyTypedDataTable) IPropiedades = interface(IDAStronglyTypedDataTable)
['{6063DDB1-1BC1-4242-A704-513F0F3137A7}'] ['{75D8A850-AAAA-4A89-80D7-C3E1A0628CD2}']
{ Property getters and setters } { Property getters and setters }
function GetIDValue: Integer; function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer); procedure SetIDValue(const aValue: Integer);
@ -375,7 +379,7 @@ type
{ IListaAnosContratos } { IListaAnosContratos }
IListaAnosContratos = interface(IDAStronglyTypedDataTable) IListaAnosContratos = interface(IDAStronglyTypedDataTable)
['{7AE79F64-046B-478B-A184-60A42E6CEC14}'] ['{82CA0D96-396B-4640-A127-3A92D6D876E0}']
{ Property getters and setters } { Property getters and setters }
function GetANOValue: String; function GetANOValue: String;
procedure SetANOValue(const aValue: String); procedure SetANOValue(const aValue: String);
@ -410,7 +414,7 @@ type
{ IContratosClienteBeneficios } { IContratosClienteBeneficios }
IContratosClienteBeneficios = interface(IDAStronglyTypedDataTable) IContratosClienteBeneficios = interface(IDAStronglyTypedDataTable)
['{CA71E23E-0E59-4812-BD81-DD1B8C7F72F9}'] ['{1ADAB916-C891-4BAE-9322-2FD39A6EAE85}']
{ Property getters and setters } { Property getters and setters }
function GetIDValue: Integer; function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer); procedure SetIDValue(const aValue: Integer);
@ -613,7 +617,7 @@ type
{ IContratosCliente } { IContratosCliente }
IContratosCliente = interface(IDAStronglyTypedDataTable) IContratosCliente = interface(IDAStronglyTypedDataTable)
['{57FF1442-BB37-430E-B945-F2BD12A522F4}'] ['{A40F5D4D-74B4-40B9-8AC3-36562B7A0880}']
{ Property getters and setters } { Property getters and setters }
function GetIDValue: Integer; function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer); procedure SetIDValue(const aValue: Integer);
@ -829,6 +833,14 @@ type
procedure SetPROCEDENCIA_CLIENTEValue(const aValue: String); procedure SetPROCEDENCIA_CLIENTEValue(const aValue: String);
function GetPROCEDENCIA_CLIENTEIsNull: Boolean; function GetPROCEDENCIA_CLIENTEIsNull: Boolean;
procedure SetPROCEDENCIA_CLIENTEIsNull(const aValue: Boolean); procedure SetPROCEDENCIA_CLIENTEIsNull(const aValue: Boolean);
function GetEMAIL_1Value: String;
procedure SetEMAIL_1Value(const aValue: String);
function GetEMAIL_1IsNull: Boolean;
procedure SetEMAIL_1IsNull(const aValue: Boolean);
function GetFECHA_ULT_PRESENTACION_CLIENTEValue: DateTime;
procedure SetFECHA_ULT_PRESENTACION_CLIENTEValue(const aValue: DateTime);
function GetFECHA_ULT_PRESENTACION_CLIENTEIsNull: Boolean;
procedure SetFECHA_ULT_PRESENTACION_CLIENTEIsNull(const aValue: Boolean);
{ Properties } { Properties }
@ -942,6 +954,10 @@ type
property CAMPO_LIBREIsNull: Boolean read GetCAMPO_LIBREIsNull write SetCAMPO_LIBREIsNull; property CAMPO_LIBREIsNull: Boolean read GetCAMPO_LIBREIsNull write SetCAMPO_LIBREIsNull;
property PROCEDENCIA_CLIENTE: String read GetPROCEDENCIA_CLIENTEValue write SetPROCEDENCIA_CLIENTEValue; property PROCEDENCIA_CLIENTE: String read GetPROCEDENCIA_CLIENTEValue write SetPROCEDENCIA_CLIENTEValue;
property PROCEDENCIA_CLIENTEIsNull: Boolean read GetPROCEDENCIA_CLIENTEIsNull write SetPROCEDENCIA_CLIENTEIsNull; property PROCEDENCIA_CLIENTEIsNull: Boolean read GetPROCEDENCIA_CLIENTEIsNull write SetPROCEDENCIA_CLIENTEIsNull;
property EMAIL_1: String read GetEMAIL_1Value write SetEMAIL_1Value;
property EMAIL_1IsNull: Boolean read GetEMAIL_1IsNull write SetEMAIL_1IsNull;
property FECHA_ULT_PRESENTACION_CLIENTE: DateTime read GetFECHA_ULT_PRESENTACION_CLIENTEValue write SetFECHA_ULT_PRESENTACION_CLIENTEValue;
property FECHA_ULT_PRESENTACION_CLIENTEIsNull: Boolean read GetFECHA_ULT_PRESENTACION_CLIENTEIsNull write SetFECHA_ULT_PRESENTACION_CLIENTEIsNull;
end; end;
{ TContratosClienteDataTableRules } { TContratosClienteDataTableRules }
@ -1175,6 +1191,14 @@ type
procedure SetPROCEDENCIA_CLIENTEValue(const aValue: String); virtual; procedure SetPROCEDENCIA_CLIENTEValue(const aValue: String); virtual;
function GetPROCEDENCIA_CLIENTEIsNull: Boolean; virtual; function GetPROCEDENCIA_CLIENTEIsNull: Boolean; virtual;
procedure SetPROCEDENCIA_CLIENTEIsNull(const aValue: Boolean); virtual; procedure SetPROCEDENCIA_CLIENTEIsNull(const aValue: Boolean); virtual;
function GetEMAIL_1Value: String; virtual;
procedure SetEMAIL_1Value(const aValue: String); virtual;
function GetEMAIL_1IsNull: Boolean; virtual;
procedure SetEMAIL_1IsNull(const aValue: Boolean); virtual;
function GetFECHA_ULT_PRESENTACION_CLIENTEValue: DateTime; virtual;
procedure SetFECHA_ULT_PRESENTACION_CLIENTEValue(const aValue: DateTime); virtual;
function GetFECHA_ULT_PRESENTACION_CLIENTEIsNull: Boolean; virtual;
procedure SetFECHA_ULT_PRESENTACION_CLIENTEIsNull(const aValue: Boolean); virtual;
{ Properties } { Properties }
property ID: Integer read GetIDValue write SetIDValue; property ID: Integer read GetIDValue write SetIDValue;
@ -1287,6 +1311,10 @@ type
property CAMPO_LIBREIsNull: Boolean read GetCAMPO_LIBREIsNull write SetCAMPO_LIBREIsNull; property CAMPO_LIBREIsNull: Boolean read GetCAMPO_LIBREIsNull write SetCAMPO_LIBREIsNull;
property PROCEDENCIA_CLIENTE: String read GetPROCEDENCIA_CLIENTEValue write SetPROCEDENCIA_CLIENTEValue; property PROCEDENCIA_CLIENTE: String read GetPROCEDENCIA_CLIENTEValue write SetPROCEDENCIA_CLIENTEValue;
property PROCEDENCIA_CLIENTEIsNull: Boolean read GetPROCEDENCIA_CLIENTEIsNull write SetPROCEDENCIA_CLIENTEIsNull; property PROCEDENCIA_CLIENTEIsNull: Boolean read GetPROCEDENCIA_CLIENTEIsNull write SetPROCEDENCIA_CLIENTEIsNull;
property EMAIL_1: String read GetEMAIL_1Value write SetEMAIL_1Value;
property EMAIL_1IsNull: Boolean read GetEMAIL_1IsNull write SetEMAIL_1IsNull;
property FECHA_ULT_PRESENTACION_CLIENTE: DateTime read GetFECHA_ULT_PRESENTACION_CLIENTEValue write SetFECHA_ULT_PRESENTACION_CLIENTEValue;
property FECHA_ULT_PRESENTACION_CLIENTEIsNull: Boolean read GetFECHA_ULT_PRESENTACION_CLIENTEIsNull write SetFECHA_ULT_PRESENTACION_CLIENTEIsNull;
public public
constructor Create(aDataTable: TDADataTable); override; constructor Create(aDataTable: TDADataTable); override;
@ -1299,7 +1327,7 @@ type
} }
{ ITiposCapitulos } { ITiposCapitulos }
ITiposCapitulos = interface(IDAStronglyTypedDataTable) ITiposCapitulos = interface(IDAStronglyTypedDataTable)
['{A289CB54-D71E-428B-9B81-18A5A7D546DE}'] ['{E54DDB32-6949-47BA-95C2-5AB4013DFA97}']
{ Property getters and setters } { Property getters and setters }
function GetIDValue: Integer; function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer); procedure SetIDValue(const aValue: Integer);
@ -1394,7 +1422,7 @@ type
{ IContratosCliente_Detalles } { IContratosCliente_Detalles }
IContratosCliente_Detalles = interface(IDAStronglyTypedDataTable) IContratosCliente_Detalles = interface(IDAStronglyTypedDataTable)
['{DABADFCD-EEA9-4ACB-919D-9F2239F1912B}'] ['{D020E94C-7500-49D4-8605-8A0CD2F05A3F}']
{ Property getters and setters } { Property getters and setters }
function GetIDValue: Integer; function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer); procedure SetIDValue(const aValue: Integer);
@ -3331,6 +3359,48 @@ begin
DataTable.Fields[idx_ContratosClientePROCEDENCIA_CLIENTE].AsVariant := Null; DataTable.Fields[idx_ContratosClientePROCEDENCIA_CLIENTE].AsVariant := Null;
end; end;
function TContratosClienteDataTableRules.GetEMAIL_1Value: String;
begin
result := DataTable.Fields[idx_ContratosClienteEMAIL_1].AsString;
end;
procedure TContratosClienteDataTableRules.SetEMAIL_1Value(const aValue: String);
begin
DataTable.Fields[idx_ContratosClienteEMAIL_1].AsString := aValue;
end;
function TContratosClienteDataTableRules.GetEMAIL_1IsNull: boolean;
begin
result := DataTable.Fields[idx_ContratosClienteEMAIL_1].IsNull;
end;
procedure TContratosClienteDataTableRules.SetEMAIL_1IsNull(const aValue: Boolean);
begin
if aValue then
DataTable.Fields[idx_ContratosClienteEMAIL_1].AsVariant := Null;
end;
function TContratosClienteDataTableRules.GetFECHA_ULT_PRESENTACION_CLIENTEValue: DateTime;
begin
result := DataTable.Fields[idx_ContratosClienteFECHA_ULT_PRESENTACION_CLIENTE].AsDateTime;
end;
procedure TContratosClienteDataTableRules.SetFECHA_ULT_PRESENTACION_CLIENTEValue(const aValue: DateTime);
begin
DataTable.Fields[idx_ContratosClienteFECHA_ULT_PRESENTACION_CLIENTE].AsDateTime := aValue;
end;
function TContratosClienteDataTableRules.GetFECHA_ULT_PRESENTACION_CLIENTEIsNull: boolean;
begin
result := DataTable.Fields[idx_ContratosClienteFECHA_ULT_PRESENTACION_CLIENTE].IsNull;
end;
procedure TContratosClienteDataTableRules.SetFECHA_ULT_PRESENTACION_CLIENTEIsNull(const aValue: Boolean);
begin
if aValue then
DataTable.Fields[idx_ContratosClienteFECHA_ULT_PRESENTACION_CLIENTE].AsVariant := Null;
end;
{ TTiposCapitulosDataTableRules } { TTiposCapitulosDataTableRules }
constructor TTiposCapitulosDataTableRules.Create(aDataTable: TDADataTable); constructor TTiposCapitulosDataTableRules.Create(aDataTable: TDADataTable);

114
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 = '{7C597F28-9CAB-4563-AB03-5109CCD1E4FD}'; RID_ValoresDelta = '{B18B1C54-C567-4E9D-9F1C-EBF356EB9306}';
RID_PropiedadesDelta = '{AEAD2B1C-5693-4333-B72F-D7FCB996C77C}'; RID_PropiedadesDelta = '{C1C489D2-F6B5-4233-8739-4BF728F9D0C8}';
RID_ListaAnosContratosDelta = '{5420790C-645C-4AAD-84FB-8194E39EC4DC}'; RID_ListaAnosContratosDelta = '{19C544EC-0104-4464-8453-55603B3A5316}';
RID_ContratosClienteBeneficiosDelta = '{C92FEDD1-D568-4200-A088-37BAFD5C3BBE}'; RID_ContratosClienteBeneficiosDelta = '{27648BA2-1AB1-47C4-93E4-148BE96C60FB}';
RID_ContratosClienteDelta = '{026E716F-C412-4A7B-BA3A-1D689117FC73}'; RID_ContratosClienteDelta = '{B08191A8-1651-495D-82EB-4A90C31C4D2B}';
RID_TiposCapitulosDelta = '{3515E5DD-2CF2-4ED9-A717-1FE908B2D252}'; RID_TiposCapitulosDelta = '{A3BF1E30-4BE1-4DBC-94A1-0EA20C2BD85E}';
RID_ContratosCliente_DetallesDelta = '{04D0B422-F0D9-4FF9-8BFA-67148A8EA383}'; RID_ContratosCliente_DetallesDelta = '{FF4E0A9B-4339-4B2F-B1FF-D09CE86D6D01}';
type type
{ IValoresDelta } { IValoresDelta }
IValoresDelta = interface(IValores) IValoresDelta = interface(IValores)
['{7C597F28-9CAB-4563-AB03-5109CCD1E4FD}'] ['{B18B1C54-C567-4E9D-9F1C-EBF356EB9306}']
{ 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)
['{AEAD2B1C-5693-4333-B72F-D7FCB996C77C}'] ['{C1C489D2-F6B5-4233-8739-4BF728F9D0C8}']
{ 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)
['{5420790C-645C-4AAD-84FB-8194E39EC4DC}'] ['{19C544EC-0104-4464-8453-55603B3A5316}']
{ 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)
['{C92FEDD1-D568-4200-A088-37BAFD5C3BBE}'] ['{27648BA2-1AB1-47C4-93E4-148BE96C60FB}']
{ Property getters and setters } { Property getters and setters }
function GetOldIDValue : Integer; function GetOldIDValue : Integer;
function GetOldREFERENCIAValue : String; function GetOldREFERENCIAValue : String;
@ -372,7 +372,7 @@ type
{ IContratosClienteDelta } { IContratosClienteDelta }
IContratosClienteDelta = interface(IContratosCliente) IContratosClienteDelta = interface(IContratosCliente)
['{026E716F-C412-4A7B-BA3A-1D689117FC73}'] ['{B08191A8-1651-495D-82EB-4A90C31C4D2B}']
{ Property getters and setters } { Property getters and setters }
function GetOldIDValue : Integer; function GetOldIDValue : Integer;
function GetOldID_EMPRESAValue : Integer; function GetOldID_EMPRESAValue : Integer;
@ -429,6 +429,8 @@ type
function GetOldFECHA_PREVISTA_MONTAJEValue : DateTime; function GetOldFECHA_PREVISTA_MONTAJEValue : DateTime;
function GetOldCAMPO_LIBREValue : String; function GetOldCAMPO_LIBREValue : String;
function GetOldPROCEDENCIA_CLIENTEValue : String; function GetOldPROCEDENCIA_CLIENTEValue : String;
function GetOldEMAIL_1Value : String;
function GetOldFECHA_ULT_PRESENTACION_CLIENTEValue : DateTime;
{ Properties } { Properties }
property OldID : Integer read GetOldIDValue; property OldID : Integer read GetOldIDValue;
@ -486,6 +488,8 @@ type
property OldFECHA_PREVISTA_MONTAJE : DateTime read GetOldFECHA_PREVISTA_MONTAJEValue; property OldFECHA_PREVISTA_MONTAJE : DateTime read GetOldFECHA_PREVISTA_MONTAJEValue;
property OldCAMPO_LIBRE : String read GetOldCAMPO_LIBREValue; property OldCAMPO_LIBRE : String read GetOldCAMPO_LIBREValue;
property OldPROCEDENCIA_CLIENTE : String read GetOldPROCEDENCIA_CLIENTEValue; property OldPROCEDENCIA_CLIENTE : String read GetOldPROCEDENCIA_CLIENTEValue;
property OldEMAIL_1 : String read GetOldEMAIL_1Value;
property OldFECHA_ULT_PRESENTACION_CLIENTE : DateTime read GetOldFECHA_ULT_PRESENTACION_CLIENTEValue;
end; end;
{ TContratosClienteBusinessProcessorRules } { TContratosClienteBusinessProcessorRules }
@ -829,6 +833,18 @@ type
function GetOldPROCEDENCIA_CLIENTEIsNull: Boolean; virtual; function GetOldPROCEDENCIA_CLIENTEIsNull: Boolean; virtual;
procedure SetPROCEDENCIA_CLIENTEValue(const aValue: String); virtual; procedure SetPROCEDENCIA_CLIENTEValue(const aValue: String); virtual;
procedure SetPROCEDENCIA_CLIENTEIsNull(const aValue: Boolean); virtual; procedure SetPROCEDENCIA_CLIENTEIsNull(const aValue: Boolean); virtual;
function GetEMAIL_1Value: String; virtual;
function GetEMAIL_1IsNull: Boolean; virtual;
function GetOldEMAIL_1Value: String; virtual;
function GetOldEMAIL_1IsNull: Boolean; virtual;
procedure SetEMAIL_1Value(const aValue: String); virtual;
procedure SetEMAIL_1IsNull(const aValue: Boolean); virtual;
function GetFECHA_ULT_PRESENTACION_CLIENTEValue: DateTime; virtual;
function GetFECHA_ULT_PRESENTACION_CLIENTEIsNull: Boolean; virtual;
function GetOldFECHA_ULT_PRESENTACION_CLIENTEValue: DateTime; virtual;
function GetOldFECHA_ULT_PRESENTACION_CLIENTEIsNull: Boolean; virtual;
procedure SetFECHA_ULT_PRESENTACION_CLIENTEValue(const aValue: DateTime); virtual;
procedure SetFECHA_ULT_PRESENTACION_CLIENTEIsNull(const aValue: Boolean); virtual;
{ Properties } { Properties }
property ID : Integer read GetIDValue write SetIDValue; property ID : Integer read GetIDValue write SetIDValue;
@ -1051,6 +1067,14 @@ type
property PROCEDENCIA_CLIENTEIsNull : Boolean read GetPROCEDENCIA_CLIENTEIsNull write SetPROCEDENCIA_CLIENTEIsNull; property PROCEDENCIA_CLIENTEIsNull : Boolean read GetPROCEDENCIA_CLIENTEIsNull write SetPROCEDENCIA_CLIENTEIsNull;
property OldPROCEDENCIA_CLIENTE : String read GetOldPROCEDENCIA_CLIENTEValue; property OldPROCEDENCIA_CLIENTE : String read GetOldPROCEDENCIA_CLIENTEValue;
property OldPROCEDENCIA_CLIENTEIsNull : Boolean read GetOldPROCEDENCIA_CLIENTEIsNull; property OldPROCEDENCIA_CLIENTEIsNull : Boolean read GetOldPROCEDENCIA_CLIENTEIsNull;
property EMAIL_1 : String read GetEMAIL_1Value write SetEMAIL_1Value;
property EMAIL_1IsNull : Boolean read GetEMAIL_1IsNull write SetEMAIL_1IsNull;
property OldEMAIL_1 : String read GetOldEMAIL_1Value;
property OldEMAIL_1IsNull : Boolean read GetOldEMAIL_1IsNull;
property FECHA_ULT_PRESENTACION_CLIENTE : DateTime read GetFECHA_ULT_PRESENTACION_CLIENTEValue write SetFECHA_ULT_PRESENTACION_CLIENTEValue;
property FECHA_ULT_PRESENTACION_CLIENTEIsNull : Boolean read GetFECHA_ULT_PRESENTACION_CLIENTEIsNull write SetFECHA_ULT_PRESENTACION_CLIENTEIsNull;
property OldFECHA_ULT_PRESENTACION_CLIENTE : DateTime read GetOldFECHA_ULT_PRESENTACION_CLIENTEValue;
property OldFECHA_ULT_PRESENTACION_CLIENTEIsNull : Boolean read GetOldFECHA_ULT_PRESENTACION_CLIENTEIsNull;
public public
constructor Create(aBusinessProcessor: TDABusinessProcessor); override; constructor Create(aBusinessProcessor: TDABusinessProcessor); override;
@ -1060,7 +1084,7 @@ type
{ ITiposCapitulosDelta } { ITiposCapitulosDelta }
ITiposCapitulosDelta = interface(ITiposCapitulos) ITiposCapitulosDelta = interface(ITiposCapitulos)
['{3515E5DD-2CF2-4ED9-A717-1FE908B2D252}'] ['{A3BF1E30-4BE1-4DBC-94A1-0EA20C2BD85E}']
{ Property getters and setters } { Property getters and setters }
function GetOldIDValue : Integer; function GetOldIDValue : Integer;
function GetOldPOSICIONValue : Integer; function GetOldPOSICIONValue : Integer;
@ -1154,7 +1178,7 @@ type
{ IContratosCliente_DetallesDelta } { IContratosCliente_DetallesDelta }
IContratosCliente_DetallesDelta = interface(IContratosCliente_Detalles) IContratosCliente_DetallesDelta = interface(IContratosCliente_Detalles)
['{04D0B422-F0D9-4FF9-8BFA-67148A8EA383}'] ['{FF4E0A9B-4339-4B2F-B1FF-D09CE86D6D01}']
{ Property getters and setters } { Property getters and setters }
function GetOldIDValue : Integer; function GetOldIDValue : Integer;
function GetOldID_CONTRATOValue : Integer; function GetOldID_CONTRATOValue : Integer;
@ -3867,6 +3891,68 @@ begin
BusinessProcessor.CurrentChange.NewValueByName[fld_ContratosClientePROCEDENCIA_CLIENTE] := Null; BusinessProcessor.CurrentChange.NewValueByName[fld_ContratosClientePROCEDENCIA_CLIENTE] := Null;
end; end;
function TContratosClienteBusinessProcessorRules.GetEMAIL_1Value: String;
begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_ContratosClienteEMAIL_1];
end;
function TContratosClienteBusinessProcessorRules.GetEMAIL_1IsNull: Boolean;
begin
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_ContratosClienteEMAIL_1]);
end;
function TContratosClienteBusinessProcessorRules.GetOldEMAIL_1Value: String;
begin
result := BusinessProcessor.CurrentChange.OldValueByName[fld_ContratosClienteEMAIL_1];
end;
function TContratosClienteBusinessProcessorRules.GetOldEMAIL_1IsNull: Boolean;
begin
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_ContratosClienteEMAIL_1]);
end;
procedure TContratosClienteBusinessProcessorRules.SetEMAIL_1Value(const aValue: String);
begin
BusinessProcessor.CurrentChange.NewValueByName[fld_ContratosClienteEMAIL_1] := aValue;
end;
procedure TContratosClienteBusinessProcessorRules.SetEMAIL_1IsNull(const aValue: Boolean);
begin
if aValue then
BusinessProcessor.CurrentChange.NewValueByName[fld_ContratosClienteEMAIL_1] := Null;
end;
function TContratosClienteBusinessProcessorRules.GetFECHA_ULT_PRESENTACION_CLIENTEValue: DateTime;
begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_ContratosClienteFECHA_ULT_PRESENTACION_CLIENTE];
end;
function TContratosClienteBusinessProcessorRules.GetFECHA_ULT_PRESENTACION_CLIENTEIsNull: Boolean;
begin
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_ContratosClienteFECHA_ULT_PRESENTACION_CLIENTE]);
end;
function TContratosClienteBusinessProcessorRules.GetOldFECHA_ULT_PRESENTACION_CLIENTEValue: DateTime;
begin
result := BusinessProcessor.CurrentChange.OldValueByName[fld_ContratosClienteFECHA_ULT_PRESENTACION_CLIENTE];
end;
function TContratosClienteBusinessProcessorRules.GetOldFECHA_ULT_PRESENTACION_CLIENTEIsNull: Boolean;
begin
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_ContratosClienteFECHA_ULT_PRESENTACION_CLIENTE]);
end;
procedure TContratosClienteBusinessProcessorRules.SetFECHA_ULT_PRESENTACION_CLIENTEValue(const aValue: DateTime);
begin
BusinessProcessor.CurrentChange.NewValueByName[fld_ContratosClienteFECHA_ULT_PRESENTACION_CLIENTE] := aValue;
end;
procedure TContratosClienteBusinessProcessorRules.SetFECHA_ULT_PRESENTACION_CLIENTEIsNull(const aValue: Boolean);
begin
if aValue then
BusinessProcessor.CurrentChange.NewValueByName[fld_ContratosClienteFECHA_ULT_PRESENTACION_CLIENTE] := Null;
end;
{ TTiposCapitulosBusinessProcessorRules } { TTiposCapitulosBusinessProcessorRules }
constructor TTiposCapitulosBusinessProcessorRules.Create(aBusinessProcessor: TDABusinessProcessor); constructor TTiposCapitulosBusinessProcessorRules.Create(aBusinessProcessor: TDABusinessProcessor);

9
Source/Modulos/Contratos de cliente/Model/uBizContratosCliente.pas
View File

@ -15,6 +15,12 @@ const
SITUACION_CONTRATO_ACEPTADO = 'ACEPTADO'; SITUACION_CONTRATO_ACEPTADO = 'ACEPTADO';
SITUACION_CONTRATO_RECHAZADO = 'RECHAZADO'; SITUACION_CONTRATO_RECHAZADO = 'RECHAZADO';
CTE_TamLetraIni = 8;
CTE_TamLetraMin = 5;
CTE_TamLetraMax = 16;
CTE_Aumento = 1;
type type
IBizContratoCliente = interface(IContratosCliente) IBizContratoCliente = interface(IContratosCliente)
@ -261,6 +267,7 @@ begin
ID_TIPO_IVA := AppFactuGES.EmpresaActiva.ID_TIPO_IVA; ID_TIPO_IVA := AppFactuGES.EmpresaActiva.ID_TIPO_IVA;
FECHA_CONTRATO := DateOf(Date); FECHA_CONTRATO := DateOf(Date);
FECHA_ULT_PRESENTACION_CLIENTE := DateOf(Date);
INCIDENCIAS_ACTIVAS := 0; INCIDENCIAS_ACTIVAS := 0;
RE := 0; RE := 0;
@ -270,7 +277,7 @@ begin
ID_TIENDA := AppFactuGES.TiendaActiva.ID; ID_TIENDA := AppFactuGES.TiendaActiva.ID;
TIENDA := AppFactuGES.TiendaActiva.NOMBRE; TIENDA := AppFactuGES.TiendaActiva.NOMBRE;
Self.DataTable.FieldByName(fld_ContratosClienteFORMA_PAGO).AsString := AppFactuGES.FormaPagoDocumentos; // Self.DataTable.FieldByName(fld_ContratosClienteFORMA_PAGO).AsString := AppFactuGES.FormaPagoDocumentos;
Self.DataTable.FieldByName(fld_ContratosClienteOBSERVACIONES).AsString := AppFactuGES.ObservacionesDocumentos; Self.DataTable.FieldByName(fld_ContratosClienteOBSERVACIONES).AsString := AppFactuGES.ObservacionesDocumentos;
Self.DataTable.FieldByName(fld_ContratosClienteCONDICIONES).AsString := AppFactuGES.CondicionesDocumentos; Self.DataTable.FieldByName(fld_ContratosClienteCONDICIONES).AsString := AppFactuGES.CondicionesDocumentos;

48
Source/Modulos/Contratos de cliente/Reports/uRptContratosCliente_Server.dfm
View File

@ -205,8 +205,10 @@ object RptContratosCliente: TRptContratosCliente
'IENTE.IMPORTE_TOTAL,'#10' V_CONTRATOS_CLIENTE.PERSONA_CONTACTO,'#10' ' + 'IENTE.IMPORTE_TOTAL,'#10' V_CONTRATOS_CLIENTE.PERSONA_CONTACTO,'#10' ' +
' V_CONTRATOS_CLIENTE.VENDEDOR,'#10' V_CONTRATOS_CLIENTE.TIPO_CO' + ' V_CONTRATOS_CLIENTE.VENDEDOR,'#10' V_CONTRATOS_CLIENTE.TIPO_CO' +
'NTRATO,'#10' V_CONTRATOS_CLIENTE.CONDICIONES,'#10' V_CONTRATOS_CLI' + 'NTRATO,'#10' V_CONTRATOS_CLIENTE.CONDICIONES,'#10' V_CONTRATOS_CLI' +
'ENTE.LOPD'#10'FROM'#10' V_CONTRATOS_CLIENTE'#10'WHERE'#10' V_CONTRATOS_CLI' + 'ENTE.LOPD,'#10' V_CONTRATOS_CLIENTE.REFERENCIA_CLIENTE,'#10' V_CON' +
'ENTE.ID = :ID'#10 'TRATOS_CLIENTE.EMAIL_1,'#10' V_CONTRATOS_CLIENTE.FECHA_ULT_PRESEN' +
'TACION_CLIENTE'#10'FROM'#10' V_CONTRATOS_CLIENTE'#10'WHERE'#10' V_CONTRATO' +
'S_CLIENTE.ID = :ID'#10
StatementType = stSQL StatementType = stSQL
ColumnMappings = < ColumnMappings = <
item item
@ -340,6 +342,18 @@ object RptContratosCliente: TRptContratosCliente
item item
DatasetField = 'LOPD' DatasetField = 'LOPD'
TableField = 'LOPD' TableField = 'LOPD'
end
item
DatasetField = 'REFERENCIA_CLIENTE'
TableField = 'REFERENCIA_CLIENTE'
end
item
DatasetField = 'EMAIL_1'
TableField = 'EMAIL_1'
end
item
DatasetField = 'FECHA_ULT_PRESENTACION_CLIENTE'
TableField = 'FECHA_ULT_PRESENTACION_CLIENTE'
end> end>
end> end>
Name = 'Informe_Cabecera' Name = 'Informe_Cabecera'
@ -488,6 +502,20 @@ object RptContratosCliente: TRptContratosCliente
item item
Name = 'LOPD' Name = 'LOPD'
DataType = datSmallInt DataType = datSmallInt
end
item
Name = 'REFERENCIA_CLIENTE'
DataType = datString
Size = 255
end
item
Name = 'EMAIL_1'
DataType = datString
Size = 255
end
item
Name = 'FECHA_ULT_PRESENTACION_CLIENTE'
DataType = datDateTime
end> end>
ReadOnly = True ReadOnly = True
end end
@ -1034,7 +1062,7 @@ object RptContratosCliente: TRptContratosCliente
PrintOptions.Printer = 'Por defecto' PrintOptions.Printer = 'Por defecto'
PrintOptions.PrintOnSheet = 0 PrintOptions.PrintOnSheet = 0
ReportOptions.CreateDate = 39065.872423495400000000 ReportOptions.CreateDate = 39065.872423495400000000
ReportOptions.LastChange = 44126.785023055560000000 ReportOptions.LastChange = 45425.422046400460000000
ScriptLanguage = 'PascalScript' ScriptLanguage = 'PascalScript'
ShowProgress = False ShowProgress = False
StoreInDFM = False StoreInDFM = False
@ -1206,6 +1234,20 @@ object RptContratosCliente: TRptContratosCliente
item item
Name = 'LOPD' Name = 'LOPD'
DataType = datSmallInt DataType = datSmallInt
end
item
Name = 'REFERENCIA_CLIENTE'
DataType = datString
Size = 255
end
item
Name = 'EMAIL_1'
DataType = datString
Size = 255
end
item
Name = 'FECHA_ULT_PRESENTACION_CLIENTE'
DataType = datDateTime
end> end>
Params = < Params = <
item item

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

@ -87,6 +87,7 @@ type
FVerPrecios: Boolean; FVerPrecios: Boolean;
FVerTotales: Boolean; FVerTotales: Boolean;
FVerCondiciones: Boolean; FVerCondiciones: Boolean;
FTamLetra: Integer;
procedure _GenerarContrato(const AID : Integer); procedure _GenerarContrato(const AID : Integer);
@ -97,7 +98,7 @@ type
procedure IniciarParametrosInforme; procedure IniciarParametrosInforme;
procedure RecuperarNombresClientes; procedure RecuperarNombresClientes;
public public
function GenerarContrato(const ListaID : TIntegerArray; const VerCondiciones: Boolean): Binary; function GenerarContrato(const ListaID : TIntegerArray; const VerCondiciones: Boolean; const TamLetra: Integer): Binary;
function GenerarContratoEnPDF(const ListaID : TIntegerArray; const VerCondiciones: Boolean): Binary; function GenerarContratoEnPDF(const ListaID : TIntegerArray; const VerCondiciones: Boolean): Binary;
function GenerarInformeListadoContratos(const IdEmpresa: Integer; const FechaInicio: Variant; const FechaFin: Variant; const ListaIDClientes: TIntegerArray; const Desglosado: Boolean; const ImporteMinimo: Currency): Binary; function GenerarInformeListadoContratos(const IdEmpresa: Integer; const FechaInicio: Variant; const FechaFin: Variant; const ListaIDClientes: TIntegerArray; const Desglosado: Boolean; const ImporteMinimo: Currency): Binary;
end; end;
@ -490,7 +491,7 @@ begin
end; end;
end; end;
function TRptContratosCliente.GenerarContrato(const ListaID: TIntegerArray; const VerCondiciones: Boolean): Binary; function TRptContratosCliente.GenerarContrato(const ListaID: TIntegerArray; const VerCondiciones: Boolean; const TamLetra: Integer): Binary;
var var
i: Integer; i: Integer;
begin begin
@ -502,6 +503,7 @@ begin
FVerPrecios := True; FVerPrecios := True;
FVerTotales := True; FVerTotales := True;
FVerCondiciones := VerCondiciones; FVerCondiciones := VerCondiciones;
FTamLetra := TamLetra;
try try
//Vamos generando todos y cada uno de los Contratos recibidos //Vamos generando todos y cada uno de los Contratos recibidos
@ -533,6 +535,7 @@ end;
procedure TRptContratosCliente._GenerarContrato(const AID: Integer); procedure TRptContratosCliente._GenerarContrato(const AID: Integer);
var var
AInforme: Variant; AInforme: Variant;
AStyle: TfrxStyleItem;
begin begin
FConnection.BeginTransaction; //<--- Creo que no va a hacer falta. "PUES SI ES NECESARIO" FConnection.BeginTransaction; //<--- Creo que no va a hacer falta. "PUES SI ES NECESARIO"
try try
@ -568,6 +571,11 @@ begin
frxReport.AddFunction('function PONERJUSTIFICACIONCOMPLETA(ARTFText : String): String', 'User Function',''); frxReport.AddFunction('function PONERJUSTIFICACIONCOMPLETA(ARTFText : String): String', 'User Function','');
frxReport.ReportOptions.Name := 'Presupuesto ' + tbl_Cabecera.FieldByName('REFERENCIA').AsString; frxReport.ReportOptions.Name := 'Presupuesto ' + tbl_Cabecera.FieldByName('REFERENCIA').AsString;
//Prueba para ver si se puede reducir tamaño de letra
AStyle := frxReport.Styles.Find('Concepto');
AStyle.Font.Size := FTamLetra;
frxReport.Styles.Apply;
frxReport.PrepareReport(False); frxReport.PrepareReport(False);
finally finally
FConnection.RollbackTransaction; //<--- Creo que no va a hacer falta. "PUES SI ES NECESARIO" FConnection.RollbackTransaction; //<--- Creo que no va a hacer falta. "PUES SI ES NECESARIO"

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

@ -502,6 +502,14 @@ object srvContratosCliente: TsrvContratosCliente
item item
DatasetField = 'PROCEDENCIA_CLIENTE' DatasetField = 'PROCEDENCIA_CLIENTE'
TableField = 'PROCEDENCIA_CLIENTE' TableField = 'PROCEDENCIA_CLIENTE'
end
item
DatasetField = 'EMAIL_1'
TableField = 'EMAIL_1'
end
item
DatasetField = 'FECHA_ULT_PRESENTACION_CLIENTE'
TableField = 'FECHA_ULT_PRESENTACION_CLIENTE'
end> end>
end> end>
Name = 'ContratosCliente' Name = 'ContratosCliente'
@ -803,6 +811,15 @@ object srvContratosCliente: TsrvContratosCliente
Name = 'PROCEDENCIA_CLIENTE' Name = 'PROCEDENCIA_CLIENTE'
DataType = datString DataType = datString
Size = 255 Size = 255
end
item
Name = 'EMAIL_1'
DataType = datString
Size = 255
end
item
Name = 'FECHA_ULT_PRESENTACION_CLIENTE'
DataType = datDateTime
end> end>
end end
item item
@ -1283,6 +1300,11 @@ object srvContratosCliente: TsrvContratosCliente
DataType = datString DataType = datString
Size = 255 Size = 255
Value = '' Value = ''
end
item
Name = 'FECHA_ULT_PRESENTACION_CLIENTE'
DataType = datDateTime
Value = ''
end> end>
Statements = < Statements = <
item item
@ -1300,17 +1322,18 @@ object srvContratosCliente: TsrvContratosCliente
' PERSONA_CONTACTO,'#10' RE, IMPORTE_RE, RECARGO_EQUIVALENCIA, TE' + ' PERSONA_CONTACTO,'#10' RE, IMPORTE_RE, RECARGO_EQUIVALENCIA, TE' +
'LEFONO, MOVIL, TIPO_CONTRATO, CONDICIONES,'#10' CALIDADES, REFER' + 'LEFONO, MOVIL, TIPO_CONTRATO, CONDICIONES,'#10' CALIDADES, REFER' +
'ENCIA_CLIENTE, FECHA_DECISION, FECHA_PREVISTA_MONTAJE, CAMPO_LIB' + 'ENCIA_CLIENTE, FECHA_DECISION, FECHA_PREVISTA_MONTAJE, CAMPO_LIB' +
'RE)'#10' VALUES'#10' (:ID, :ID_CLIENTE, :NIF_CIF, :NOMBRE, :ID_DIREC' + 'RE,'#10' FECHA_ULT_PRESENTACION_CLIENTE)'#10' VALUES'#10' (:ID, :ID_' +
'CION, :CALLE, :POBLACION, :PROVINCIA,'#10' :CODIGO_POSTAL, :REFE' + 'CLIENTE, :NIF_CIF, :NOMBRE, :ID_DIRECCION, :CALLE, :POBLACION, :' +
'RENCIA, :FECHA_CONTRATO, :SITUACION, :FORMA_PAGO,'#10' :PLAZO_EN' + 'PROVINCIA,'#10' :CODIGO_POSTAL, :REFERENCIA, :FECHA_CONTRATO, :S' +
'TREGA, :OBSERVACIONES, :INCIDENCIAS, :INCIDENCIAS_ACTIVAS, CURRE' + 'ITUACION, :FORMA_PAGO,'#10' :PLAZO_ENTREGA, :OBSERVACIONES, :INC' +
'NT_TIMESTAMP,'#10' :USUARIO, :IMPORTE_NETO, :IMPORTE_PORTE, :DES' + 'IDENCIAS, :INCIDENCIAS_ACTIVAS, CURRENT_TIMESTAMP,'#10' :USUARIO' +
'CUENTO, :IMPORTE_DESCUENTO,'#10' :BASE_IMPONIBLE, :ID_TIPO_IVA, ' + ', :IMPORTE_NETO, :IMPORTE_PORTE, :DESCUENTO, :IMPORTE_DESCUENTO,' +
':IVA, :IMPORTE_IVA, :IMPORTE_TOTAL, :ID_FORMA_PAGO,'#10' :ID_TIE' + #10' :BASE_IMPONIBLE, :ID_TIPO_IVA, :IVA, :IMPORTE_IVA, :IMPORT' +
'NDA, :ID_VENDEDOR, :PERSONA_CONTACTO, :RE, :IMPORTE_RE, :RECARGO' + 'E_TOTAL, :ID_FORMA_PAGO,'#10' :ID_TIENDA, :ID_VENDEDOR, :PERSONA' +
'_EQUIVALENCIA,'#10' :TELEFONO, :MOVIL, :TIPO_CONTRATO, :CONDICIO' + '_CONTACTO, :RE, :IMPORTE_RE, :RECARGO_EQUIVALENCIA,'#10' :TELEFO' +
'NES, :CALIDADES, :REFERENCIA_CLIENTE,'#10' :FECHA_DECISION, :FEC' + 'NO, :MOVIL, :TIPO_CONTRATO, :CONDICIONES, :CALIDADES, :REFERENCI' +
'HA_PREVISTA_MONTAJE, :CAMPO_LIBRE)'#10#10 'A_CLIENTE,'#10' :FECHA_DECISION, :FECHA_PREVISTA_MONTAJE, :CAMPO' +
'_LIBRE, :FECHA_ULT_PRESENTACION_CLIENTE)'#10#10
StatementType = stSQL StatementType = stSQL
ColumnMappings = <> ColumnMappings = <>
end> end>
@ -1566,6 +1589,11 @@ object srvContratosCliente: TsrvContratosCliente
Size = 255 Size = 255
Value = '' Value = ''
end end
item
Name = 'FECHA_ULT_PRESENTACION_CLIENTE'
DataType = datDateTime
Value = ''
end
item item
Name = 'OLD_ID' Name = 'OLD_ID'
Value = '' Value = ''
@ -1597,8 +1625,9 @@ object srvContratosCliente: TsrvContratosCliente
'NTRATO,'#10' CONDICIONES = :CONDICIONES,'#10' CALIDADES = :CALIDAD' + 'NTRATO,'#10' CONDICIONES = :CONDICIONES,'#10' CALIDADES = :CALIDAD' +
'ES,'#10' REFERENCIA_CLIENTE = :REFERENCIA_CLIENTE,'#10' FECHA_DECI' + 'ES,'#10' REFERENCIA_CLIENTE = :REFERENCIA_CLIENTE,'#10' FECHA_DECI' +
'SION = :FECHA_DECISION,'#10' FECHA_PREVISTA_MONTAJE = :FECHA_PREV' + 'SION = :FECHA_DECISION,'#10' FECHA_PREVISTA_MONTAJE = :FECHA_PREV' +
'ISTA_MONTAJE,'#10' CAMPO_LIBRE = :CAMPO_LIBRE'#10' WHERE'#10' (ID = :' + 'ISTA_MONTAJE,'#10' CAMPO_LIBRE = :CAMPO_LIBRE,'#10' FECHA_ULT_PRES' +
'OLD_ID)'#10#10 'ENTACION_CLIENTE = :FECHA_ULT_PRESENTACION_CLIENTE'#10' WHERE'#10' (' +
'ID = :OLD_ID)'#10#10
StatementType = stSQL StatementType = stSQL
ColumnMappings = <> ColumnMappings = <>
end> end>

6
Source/Modulos/Contratos de cliente/Servidor/srvContratosCliente_Impl.pas
View File

@ -33,7 +33,7 @@ type
procedure DARemoteServiceCreate(Sender: TObject); procedure DARemoteServiceCreate(Sender: TObject);
protected protected
{ IsrvContratosCliente methods } { IsrvContratosCliente methods }
function GenerarInforme(const ListaID: TIntegerArray; const VerCondiciones: Boolean): Binary; function GenerarInforme(const ListaID: TIntegerArray; const VerCondiciones: Boolean; const TamLetra: Integer): Binary;
function GenerarInformeEnPDF(const ListaID: TIntegerArray; const VerCondiciones: Boolean): Binary; function GenerarInformeEnPDF(const ListaID: TIntegerArray; const VerCondiciones: Boolean): Binary;
end; end;
@ -78,13 +78,13 @@ begin
ConnectionName := dmServer.ConnectionName; ConnectionName := dmServer.ConnectionName;
end; end;
function TsrvContratosCliente.GenerarInforme(const ListaID: TIntegerArray; const VerCondiciones: Boolean): Binary; function TsrvContratosCliente.GenerarInforme(const ListaID: TIntegerArray; const VerCondiciones: Boolean; const TamLetra: Integer): Binary;
var var
AReportGenerator : TRptContratosCliente; AReportGenerator : TRptContratosCliente;
begin begin
AReportGenerator := TRptContratosCliente.Create(nil); AReportGenerator := TRptContratosCliente.Create(nil);
try try
Result := AReportGenerator.GenerarContrato(ListaID, VerCondiciones); Result := AReportGenerator.GenerarContrato(ListaID, VerCondiciones, TamLetra);
finally finally
FreeAndNIL(AReportGenerator); FreeAndNIL(AReportGenerator);
end; end;

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

@ -201,15 +201,17 @@ inherited fEditorContratoCliente: TfEditorContratoCliente
ExplicitWidth = 858 ExplicitWidth = 858
ExplicitHeight = 445 ExplicitHeight = 445
inherited edtFechaContrato: TcxDBDateEdit inherited edtFechaContrato: TcxDBDateEdit
Left = 155
Top = 84 Top = 84
ExplicitLeft = 155
ExplicitTop = 84 ExplicitTop = 84
ExplicitWidth = 129 ExplicitWidth = 129
Width = 129 Width = 129
end end
inherited memObservaciones: TcxDBMemo inherited memObservaciones: TcxDBMemo
Left = 464 Left = 474
Top = 330 Top = 330
ExplicitLeft = 464 ExplicitLeft = 474
ExplicitTop = 330 ExplicitTop = 330
ExplicitWidth = 404 ExplicitWidth = 404
ExplicitHeight = 139 ExplicitHeight = 139
@ -217,25 +219,30 @@ inherited fEditorContratoCliente: TfEditorContratoCliente
Width = 404 Width = 404
end end
inherited eReferencia: TcxDBTextEdit inherited eReferencia: TcxDBTextEdit
Left = 155
Top = 30 Top = 30
ExplicitLeft = 155
ExplicitTop = 30 ExplicitTop = 30
ExplicitWidth = 122 ExplicitWidth = 122
Width = 122 Width = 122
end end
inherited cbFormaPago: TcxDBLookupComboBox inherited cbFormaPago: TcxDBLookupComboBox
Top = 192 Left = 155
ExplicitTop = 192 Top = 219
ExplicitLeft = 155
ExplicitTop = 219
ExplicitWidth = 122 ExplicitWidth = 122
Width = 122 Width = 122
end end
inherited bFormasPago: TButton inherited bFormasPago: TButton
Left = 304 Left = 314
Top = 192 Top = 219
ExplicitLeft = 304 ExplicitLeft = 314
ExplicitTop = 192 ExplicitTop = 219
end end
inherited cbSituacion: TcxDBImageComboBox inherited cbSituacion: TcxDBImageComboBox
Top = 138 Left = 155
Top = 165
Properties.Items = < Properties.Items = <
item item
Description = 'PENDIENTE' Description = 'PENDIENTE'
@ -250,51 +257,54 @@ inherited fEditorContratoCliente: TfEditorContratoCliente
Description = 'RECHAZADO' Description = 'RECHAZADO'
Value = 'RECHAZADO' Value = 'RECHAZADO'
end> end>
ExplicitTop = 138 ExplicitLeft = 155
ExplicitTop = 165
ExplicitWidth = 260 ExplicitWidth = 260
Width = 260 Width = 260
end end
inherited memFormaPago: TcxDBMemo inherited memFormaPago: TcxDBMemo
Top = 270 Top = 297
ExplicitTop = 270 ExplicitTop = 297
ExplicitWidth = 396 ExplicitWidth = 396
ExplicitHeight = 100 ExplicitHeight = 100
Height = 100 Height = 100
Width = 396 Width = 396
end end
inherited memPlazoEntrega: TcxDBMemo inherited memPlazoEntrega: TcxDBMemo
Top = 365 Top = 378
ExplicitTop = 365 ExplicitTop = 378
ExplicitWidth = 396 ExplicitWidth = 396
ExplicitHeight = 100 ExplicitHeight = 100
Height = 100 Height = 100
Width = 396 Width = 396
end end
inherited cbVendedor: TcxDBLookupComboBox inherited cbVendedor: TcxDBLookupComboBox
Top = 219 Left = 155
ExplicitTop = 219 Top = 246
ExplicitLeft = 155
ExplicitTop = 246
ExplicitWidth = 27 ExplicitWidth = 27
Width = 27 Width = 27
end end
inherited cbTipoContrato: TcxDBComboBox inherited cbTipoContrato: TcxDBComboBox
Left = 339
Top = 84 Top = 84
ExplicitLeft = 339
ExplicitTop = 84 ExplicitTop = 84
ExplicitWidth = 113 ExplicitWidth = 113
Width = 113 Width = 113
end end
inherited edtlREF_CLIENTE: TcxDBTextEdit inherited edtlREF_CLIENTE: TcxDBTextEdit
Left = 155
Top = 57 Top = 57
ExplicitLeft = 155
ExplicitTop = 57 ExplicitTop = 57
ExplicitWidth = 335 ExplicitWidth = 335
Width = 335 Width = 335
end end
inherited frViewClienteContrato1: TfrViewClienteContrato inherited frViewClienteContrato1: TfrViewClienteContrato
Left = 464 Left = 474
Top = 30 Top = 30
Width = 357 Width = 357
ExplicitLeft = 464 ExplicitLeft = 474
ExplicitTop = 30 ExplicitTop = 30
ExplicitWidth = 357 ExplicitWidth = 357
inherited dxLayoutControl1: TdxLayoutControl inherited dxLayoutControl1: TdxLayoutControl
@ -357,10 +367,10 @@ inherited fEditorContratoCliente: TfEditorContratoCliente
Width = 707 Width = 707
end end
inherited edtCodigoPostal: TcxDBTextEdit inherited edtCodigoPostal: TcxDBTextEdit
Left = 279 Left = 269
Top = 176 Top = 176
DataBinding.DataSource = dsDataTable DataBinding.DataSource = dsDataTable
ExplicitLeft = 279 ExplicitLeft = 269
ExplicitTop = 176 ExplicitTop = 176
end end
inherited Button1: TBitBtn inherited Button1: TBitBtn
@ -376,9 +386,9 @@ inherited fEditorContratoCliente: TfEditorContratoCliente
ExplicitTop = 11 ExplicitTop = 11
end end
inherited Button3: TBitBtn inherited Button3: TBitBtn
Left = 169 Left = 159
Top = 230 Top = 230
ExplicitLeft = 169 ExplicitLeft = 159
ExplicitTop = 230 ExplicitTop = 230
end end
inherited cxDBTextEdit1: TcxDBTextEdit inherited cxDBTextEdit1: TcxDBTextEdit
@ -392,26 +402,43 @@ inherited fEditorContratoCliente: TfEditorContratoCliente
end end
end end
inherited edtFechaDecision: TcxDBDateEdit inherited edtFechaDecision: TcxDBDateEdit
Top = 111 Left = 155
ExplicitTop = 111 Top = 138
ExplicitLeft = 155
ExplicitTop = 138
ExplicitWidth = 115 ExplicitWidth = 115
Width = 115 Width = 115
end end
inherited edtFechaPrevMontaje: TcxDBDateEdit inherited edtFechaPrevMontaje: TcxDBDateEdit
Top = 165 Left = 155
ExplicitTop = 165 Top = 192
ExplicitLeft = 155
ExplicitTop = 192
ExplicitWidth = 295 ExplicitWidth = 295
Width = 295 Width = 295
end end
inherited edtFechaUltPresentacion: TcxDBDateEdit
Left = 155
Top = 111
ExplicitLeft = 155
ExplicitTop = 111
ExplicitWidth = 106
Width = 106
end
inherited dxLayoutControl1Group_Root: TdxLayoutGroup inherited dxLayoutControl1Group_Root: TdxLayoutGroup
inherited dxLayoutControl1Group8: TdxLayoutGroup inherited dxLayoutControl1Group8: TdxLayoutGroup
inherited dxLayoutControl1Group1: TdxLayoutGroup inherited dxLayoutControl1Group1: TdxLayoutGroup
inherited dxLayoutControl1Group11: TdxLayoutGroup inherited dxLayoutControl1Group11: TdxLayoutGroup
inherited dxLayoutControl1Item2: TdxLayoutItem inherited dxLayoutControl1Group10: TdxLayoutGroup
Caption = 'Fecha:' inherited dxLayoutControl1Item2: TdxLayoutItem
Caption = 'Fecha:'
end
inherited dxLayoutControl1Item7: TdxLayoutItem
Caption = 'Tipo presupuesto:'
end
end end
inherited dxLayoutControl1Item7: TdxLayoutItem inherited dxLayoutControl1Item15: TdxLayoutItem
Caption = 'Tipo presupuesto:' Caption = 'Fecha '#250'ltima actualizaci'#243'n:'
end end
end end
end end
@ -454,19 +481,19 @@ inherited fEditorContratoCliente: TfEditorContratoCliente
ExplicitLeft = 334 ExplicitLeft = 334
ExplicitTop = 0 ExplicitTop = 0
end end
inherited FontSize: TEdit [5] inherited FontName: TJvFontComboBox
Left = 0 Left = 0
Width = 110
ExplicitLeft = 0 ExplicitLeft = 0
end
inherited FontSize: TEdit
Left = 145
Width = 110
ExplicitLeft = 145
ExplicitWidth = 110 ExplicitWidth = 110
end end
inherited UpDown1: TUpDown [6] inherited UpDown1: TUpDown
Left = 110 Left = 255
ExplicitLeft = 110 ExplicitLeft = 255
end
inherited FontName: TJvFontComboBox [7]
Left = 127
ExplicitLeft = 127
end end
inherited ToolButton13: TToolButton inherited ToolButton13: TToolButton
Left = 272 Left = 272

7
Source/Modulos/Contratos de cliente/Views/uEditorContratoCliente.pas
View File

@ -277,6 +277,12 @@ begin
frViewDetallesContratoCliente1.BeginUpdate; frViewDetallesContratoCliente1.BeginUpdate;
try try
bEsNuevo := FContrato.EsNuevo; bEsNuevo := FContrato.EsNuevo;
if not bEsNuevo then
if (FContrato.FECHA_ULT_PRESENTACION_CLIENTE < Date) then
if ShowConfirmMessage('Cambio fecha actualización', '¿Desea cambiar la fecha de última actualización del presupuesto por la de hoy?') = IDYES then
Controller.FechaUltimaActualizacionToday(FContrato);
//GESTION_DOCUMENTOS //GESTION_DOCUMENTOS
if FController.Guardar(FContrato) then if FController.Guardar(FContrato) then
frViewDocumentosContratoCliente1.actActualizarServidor.Execute; frViewDocumentosContratoCliente1.actActualizarServidor.Execute;
@ -286,6 +292,7 @@ begin
frViewDetallesContratoCliente1.RestoreGridStatus; frViewDetallesContratoCliente1.RestoreGridStatus;
HideHourglassCursor; HideHourglassCursor;
end; end;
if bEsNuevo then if bEsNuevo then
ShowInfoMessage('El Contrato se ha dado de alta con el código ' + FContrato.REFERENCIA); ShowInfoMessage('El Contrato se ha dado de alta con el código ' + FContrato.REFERENCIA);

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

@ -3,7 +3,7 @@ inherited fEditorContratosCliente: TfEditorContratosCliente
ClientHeight = 551 ClientHeight = 551
ClientWidth = 1119 ClientWidth = 1119
ExplicitWidth = 1127 ExplicitWidth = 1127
ExplicitHeight = 585 ExplicitHeight = 595
PixelsPerInch = 96 PixelsPerInch = 96
TextHeight = 13 TextHeight = 13
inherited JvNavPanelHeader: TJvNavPanelHeader inherited JvNavPanelHeader: TJvNavPanelHeader
@ -126,7 +126,7 @@ inherited fEditorContratosCliente: TfEditorContratosCliente
Width = 1119 Width = 1119
ExplicitWidth = 1119 ExplicitWidth = 1119
inherited tbxMain: TTBXToolbar inherited tbxMain: TTBXToolbar
ExplicitWidth = 894 ExplicitWidth = 1119
object TBXSubmenuItem3: TTBXSubmenuItem [0] object TBXSubmenuItem3: TTBXSubmenuItem [0]
Caption = 'Nuevo' Caption = 'Nuevo'
DisplayMode = nbdmImageAndText DisplayMode = nbdmImageAndText
@ -157,7 +157,7 @@ inherited fEditorContratosCliente: TfEditorContratosCliente
end end
end end
inherited tbxFiltro: TTBXToolbar inherited tbxFiltro: TTBXToolbar
ExplicitWidth = 481 ExplicitWidth = 535
inherited lblAno: TTBXLabelItem inherited lblAno: TTBXLabelItem
Visible = True Visible = True
end end
@ -194,11 +194,11 @@ inherited fEditorContratosCliente: TfEditorContratosCliente
end end
end end
inherited TBXTMain2: TTBXToolbar inherited TBXTMain2: TTBXToolbar
Left = 481 Left = 535
DockPos = 343 DockPos = 343
Visible = True Visible = True
ExplicitLeft = 481 ExplicitLeft = 535
ExplicitWidth = 430 ExplicitWidth = 543
object TBXItem50: TTBXItem object TBXItem50: TTBXItem
Action = actLOPD Action = actLOPD
DisplayMode = nbdmImageAndText DisplayMode = nbdmImageAndText
@ -255,10 +255,6 @@ inherited fEditorContratosCliente: TfEditorContratosCliente
inherited actImprimir: TAction inherited actImprimir: TAction
Visible = True Visible = True
end end
inherited actExportarExcel: TAction
Enabled = True
Visible = True
end
object actGenerarAlbaranCli: TAction object actGenerarAlbaranCli: TAction
Category = 'Acciones' Category = 'Acciones'
Caption = 'Generar albar'#225'n de cliente' Caption = 'Generar albar'#225'n de cliente'

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

@ -676,7 +676,14 @@ end;
procedure TfEditorContratosCliente.ModificarInterno; procedure TfEditorContratosCliente.ModificarInterno;
begin begin
inherited; inherited;
FController.Ver(Contratos);
if (Length(Trim(Contratos.FACTURA_ASOCIADA)) > 0) then
begin
if (ShowConfirmMessage('，tenci鏮!, el presupuesto tiene al menos una factura asociada, "no deber燰 modificar nada", antes hablar con M鏮ica.', '澳esea continuar?') = IDYES) then
FController.Ver(Contratos);
end
else
FController.Ver(Contratos);
end; end;
procedure TfEditorContratosCliente.NuevoInterno; procedure TfEditorContratosCliente.NuevoInterno;

1183
Source/Modulos/Contratos de cliente/Views/uEditorContratosClienteReport.dfm
View File

File diff suppressed because it is too large Load Diff

91
Source/Modulos/Contratos de cliente/Views/uEditorContratosClienteReport.pas
View File

@ -10,11 +10,35 @@ uses
JvComponentBase, uEditorPreview, frxExportImage, frxExportPDF, frxDCtrl, JvComponentBase, uEditorPreview, frxExportImage, frxExportPDF, frxDCtrl,
frxClass, JvFormPlacement, ImgList, PngImageList, StdActns, ActnList, frxClass, JvFormPlacement, ImgList, PngImageList, StdActns, ActnList,
ComCtrls, TB2ExtItems, TBXExtItems, TBX, TB2Item, TB2Dock, TB2Toolbar, ComCtrls, TB2ExtItems, TBXExtItems, TBX, TB2Item, TB2Dock, TB2Toolbar,
pngimage, frxExportText, frxExportRTF, frxExportMail, frxExportXLS; pngimage, frxExportText, frxExportRTF, frxExportMail, frxExportXLS,
frxExportCSV, uContratosClienteReportController;
type type
TfEditorContratosClientePreview = class(TfEditorPreview, IEditorContratosClientePreview) TfEditorContratosClientePreview = class(TfEditorPreview, IEditorContratosClientePreview)
TBXItem58: TTBXItem; TBXItem58: TTBXItem;
actAumentarTamLetra: TAction;
actDisminuirTamLetra: TAction;
TBXItem59: TTBXItem;
TBXItem60: TTBXItem;
TBXSeparatorItem21: TTBXSeparatorItem;
procedure actAumentarTamLetraExecute(Sender: TObject);
procedure actDisminuirTamLetraExecute(Sender: TObject);
private
FVerCondiciones: boolean;
FTamLetra: Integer;
function getTamLetra: Integer;
function getVerCondiciones: Boolean;
procedure setTamLetra(const Value: Integer);
procedure setVerCodiciones(const Value: Boolean);
procedure refrescarInforme;
public
property Vercondiciones: Boolean read getVerCondiciones write setVerCodiciones;
property TamLetra: Integer read getTamLetra write setTamLetra;
end; end;
@ -23,6 +47,69 @@ implementation
{$R *.dfm} {$R *.dfm}
uses uses
uContratosClienteReportController, uIntegerListUtils, uDialogUtils; cxControls, uROTypes, uFactuGES_App, uIntegerListUtils, uDialogUtils, uBizContratosCliente;
procedure TfEditorContratosClientePreview.actAumentarTamLetraExecute(Sender: TObject);
begin
inherited;
//Si sale de los límites de tamaño de letra no hacemos nada
if (FTamLetra >= CTE_TamLetraMax) then
Exit;
TamLetra := TamLetra + CTE_Aumento;
refrescarInforme;
end;
procedure TfEditorContratosClientePreview.actDisminuirTamLetraExecute(Sender: TObject);
begin
inherited;
//Si sale de los límites de tamaño de letra no hacemos nada
if (TamLetra <= CTE_TamLetraMin) then
Exit;
TamLetra := TamLetra - CTE_Aumento;
refrescarInforme;
end;
function TfEditorContratosClientePreview.getTamLetra: Integer;
begin
Result := FTamLetra;
end;
function TfEditorContratosClientePreview.getVerCondiciones: Boolean;
begin
Result:= FVerCondiciones;
end;
procedure TfEditorContratosClientePreview.refrescarInforme;
var
AStream: Binary;
begin
ShowHourglassCursor;
try
AStream := (Controller as IContratosClienteReportController).DataModule.GetRptContratos(Self.ListaID, FVerCondiciones, FTamLetra);
LoadFromStream(AStream);
Report.ShowPreparedReport;
finally
FreeAndNil(AStream);
HideHourglassCursor;
end;
end;
procedure TfEditorContratosClientePreview.setTamLetra(const Value: Integer);
begin
FTamLetra := Value;
end;
procedure TfEditorContratosClientePreview.setVerCodiciones(const Value: Boolean);
begin
FVerCondiciones := Value;
end;
end. end.

172
Source/Modulos/Contratos de cliente/Views/uViewContratoCliente.dfm
View File

@ -19,7 +19,7 @@ inherited frViewContratoCliente: TfrViewContratoCliente
817 817
491) 491)
object edtFechaContrato: TcxDBDateEdit object edtFechaContrato: TcxDBDateEdit
Left = 131 Left = 198
Top = 82 Top = 82
Anchors = [akLeft, akTop, akRight] Anchors = [akLeft, akTop, akRight]
DataBinding.DataField = 'FECHA_CONTRATO' DataBinding.DataField = 'FECHA_CONTRATO'
@ -42,7 +42,7 @@ inherited frViewContratoCliente: TfrViewContratoCliente
Width = 129 Width = 129
end end
object memObservaciones: TcxDBMemo object memObservaciones: TcxDBMemo
Left = 441 Left = 467
Top = 334 Top = 334
Align = alClient Align = alClient
DataBinding.DataField = 'OBSERVACIONES' DataBinding.DataField = 'OBSERVACIONES'
@ -59,12 +59,12 @@ inherited frViewContratoCliente: TfrViewContratoCliente
StyleFocused.LookAndFeel.NativeStyle = True StyleFocused.LookAndFeel.NativeStyle = True
StyleHot.LookAndFeel.Kind = lfStandard StyleHot.LookAndFeel.Kind = lfStandard
StyleHot.LookAndFeel.NativeStyle = True StyleHot.LookAndFeel.NativeStyle = True
TabOrder = 13 TabOrder = 14
Height = 139 Height = 139
Width = 404 Width = 404
end end
object eReferencia: TcxDBTextEdit object eReferencia: TcxDBTextEdit
Left = 131 Left = 198
Top = 28 Top = 28
Anchors = [akLeft, akTop, akRight] Anchors = [akLeft, akTop, akRight]
DataBinding.DataField = 'REFERENCIA' DataBinding.DataField = 'REFERENCIA'
@ -89,8 +89,8 @@ inherited frViewContratoCliente: TfrViewContratoCliente
Width = 122 Width = 122
end end
object cbFormaPago: TcxDBLookupComboBox object cbFormaPago: TcxDBLookupComboBox
Left = 131 Left = 198
Top = 190 Top = 217
DataBinding.DataField = 'ID_FORMA_PAGO' DataBinding.DataField = 'ID_FORMA_PAGO'
DataBinding.DataSource = DADataSource DataBinding.DataSource = DADataSource
Properties.KeyFieldNames = 'ID' Properties.KeyFieldNames = 'ID'
@ -115,21 +115,21 @@ inherited frViewContratoCliente: TfrViewContratoCliente
StyleFocused.LookAndFeel.NativeStyle = True StyleFocused.LookAndFeel.NativeStyle = True
StyleHot.LookAndFeel.Kind = lfStandard StyleHot.LookAndFeel.Kind = lfStandard
StyleHot.LookAndFeel.NativeStyle = True StyleHot.LookAndFeel.NativeStyle = True
TabOrder = 7 TabOrder = 8
Width = 122 Width = 122
end end
object bFormasPago: TButton object bFormasPago: TButton
Left = 279 Left = 305
Top = 190 Top = 217
Width = 132 Width = 132
Height = 21 Height = 21
Caption = 'Ver las formas de pago...' Caption = 'Ver las formas de pago...'
TabOrder = 8 TabOrder = 9
OnClick = bFormasPagoClick OnClick = bFormasPagoClick
end end
object cbSituacion: TcxDBImageComboBox object cbSituacion: TcxDBImageComboBox
Left = 131 Left = 198
Top = 136 Top = 163
DataBinding.DataField = 'SITUACION' DataBinding.DataField = 'SITUACION'
DataBinding.DataSource = DADataSource DataBinding.DataSource = DADataSource
Properties.Items = < Properties.Items = <
@ -154,12 +154,12 @@ inherited frViewContratoCliente: TfrViewContratoCliente
StyleDisabled.LookAndFeel.NativeStyle = True StyleDisabled.LookAndFeel.NativeStyle = True
StyleFocused.LookAndFeel.NativeStyle = True StyleFocused.LookAndFeel.NativeStyle = True
StyleHot.LookAndFeel.NativeStyle = True StyleHot.LookAndFeel.NativeStyle = True
TabOrder = 5 TabOrder = 6
Width = 260 Width = 260
end end
object memFormaPago: TcxDBMemo object memFormaPago: TcxDBMemo
Left = 22 Left = 22
Top = 274 Top = 301
Anchors = [akLeft, akTop, akRight, akBottom] Anchors = [akLeft, akTop, akRight, akBottom]
DataBinding.DataField = 'FORMA_PAGO' DataBinding.DataField = 'FORMA_PAGO'
DataBinding.DataSource = DADataSource DataBinding.DataSource = DADataSource
@ -175,35 +175,35 @@ inherited frViewContratoCliente: TfrViewContratoCliente
StyleFocused.LookAndFeel.NativeStyle = True StyleFocused.LookAndFeel.NativeStyle = True
StyleHot.LookAndFeel.Kind = lfStandard StyleHot.LookAndFeel.Kind = lfStandard
StyleHot.LookAndFeel.NativeStyle = True StyleHot.LookAndFeel.NativeStyle = True
TabOrder = 10
Height = 100
Width = 396
end
object memPlazoEntrega: TcxDBMemo
Left = 22
Top = 390
Anchors = [akLeft, akTop, akRight, akBottom]
DataBinding.DataField = 'PLAZO_ENTREGA'
DataBinding.DataSource = DADataSource
Properties.ScrollBars = ssVertical
Style.BorderColor = clWindowFrame
Style.BorderStyle = ebs3D
Style.HotTrack = False
Style.LookAndFeel.Kind = lfStandard
Style.LookAndFeel.NativeStyle = True
StyleDisabled.LookAndFeel.Kind = lfStandard
StyleDisabled.LookAndFeel.NativeStyle = True
StyleFocused.LookAndFeel.Kind = lfStandard
StyleFocused.LookAndFeel.NativeStyle = True
StyleHot.LookAndFeel.Kind = lfStandard
StyleHot.LookAndFeel.NativeStyle = True
TabOrder = 11 TabOrder = 11
Height = 100 Height = 100
Width = 396 Width = 396
end end
object memPlazoEntrega: TcxDBMemo
Left = 22
Top = 403
Anchors = [akLeft, akTop, akRight, akBottom]
DataBinding.DataField = 'PLAZO_ENTREGA'
DataBinding.DataSource = DADataSource
Properties.ScrollBars = ssVertical
Style.BorderColor = clWindowFrame
Style.BorderStyle = ebs3D
Style.HotTrack = False
Style.LookAndFeel.Kind = lfStandard
Style.LookAndFeel.NativeStyle = True
StyleDisabled.LookAndFeel.Kind = lfStandard
StyleDisabled.LookAndFeel.NativeStyle = True
StyleFocused.LookAndFeel.Kind = lfStandard
StyleFocused.LookAndFeel.NativeStyle = True
StyleHot.LookAndFeel.Kind = lfStandard
StyleHot.LookAndFeel.NativeStyle = True
TabOrder = 12
Height = 100
Width = 396
end
object cbVendedor: TcxDBLookupComboBox object cbVendedor: TcxDBLookupComboBox
Left = 131 Left = 198
Top = 217 Top = 244
DataBinding.DataField = 'ID_VENDEDOR' DataBinding.DataField = 'ID_VENDEDOR'
DataBinding.DataSource = DADataSource DataBinding.DataSource = DADataSource
Properties.KeyFieldNames = 'ID' Properties.KeyFieldNames = 'ID'
@ -228,11 +228,11 @@ inherited frViewContratoCliente: TfrViewContratoCliente
StyleFocused.LookAndFeel.NativeStyle = True StyleFocused.LookAndFeel.NativeStyle = True
StyleHot.LookAndFeel.Kind = lfStandard StyleHot.LookAndFeel.Kind = lfStandard
StyleHot.LookAndFeel.NativeStyle = True StyleHot.LookAndFeel.NativeStyle = True
TabOrder = 9 TabOrder = 10
Width = 27 Width = 27
end end
object cbTipoContrato: TcxDBComboBox object cbTipoContrato: TcxDBComboBox
Left = 316 Left = 355
Top = 82 Top = 82
DataBinding.DataField = 'TIPO_CONTRATO' DataBinding.DataField = 'TIPO_CONTRATO'
DataBinding.DataSource = DADataSource DataBinding.DataSource = DADataSource
@ -258,7 +258,7 @@ inherited frViewContratoCliente: TfrViewContratoCliente
Width = 113 Width = 113
end end
object edtlREF_CLIENTE: TcxDBTextEdit object edtlREF_CLIENTE: TcxDBTextEdit
Left = 131 Left = 198
Top = 55 Top = 55
Anchors = [akLeft, akTop, akRight] Anchors = [akLeft, akTop, akRight]
AutoSize = False AutoSize = False
@ -280,20 +280,20 @@ inherited frViewContratoCliente: TfrViewContratoCliente
Width = 335 Width = 335
end end
inline frViewClienteContrato1: TfrViewClienteContrato inline frViewClienteContrato1: TfrViewClienteContrato
Left = 441 Left = 467
Top = 28 Top = 28
Width = 366 Width = 366
Height = 270 Height = 270
TabOrder = 12 TabOrder = 13
ReadOnly = False ReadOnly = False
ExplicitLeft = 441 ExplicitLeft = 467
ExplicitTop = 28 ExplicitTop = 28
ExplicitWidth = 366 ExplicitWidth = 366
ExplicitHeight = 270 ExplicitHeight = 270
inherited dxLayoutControl1: TdxLayoutControl inherited dxLayoutControl1: TdxLayoutControl
Width = 366 Width = 366
Height = 270 Height = 270
ExplicitWidth = 366 ExplicitWidth = 327
ExplicitHeight = 270 ExplicitHeight = 270
inherited edtlNombre: TcxDBTextEdit inherited edtlNombre: TcxDBTextEdit
ExplicitWidth = 707 ExplicitWidth = 707
@ -316,16 +316,12 @@ inherited frViewContratoCliente: TfrViewContratoCliente
Width = 707 Width = 707
end end
inherited edtCodigoPostal: TcxDBTextEdit inherited edtCodigoPostal: TcxDBTextEdit
Left = 262 Left = 236
ExplicitLeft = 262 ExplicitLeft = 236
end end
inherited Button3: TBitBtn inherited Button3: TBitBtn
Left = 152 Left = 126
ExplicitLeft = 152 ExplicitLeft = 126
end
inherited cxDBTextEdit1: TcxDBTextEdit
ExplicitWidth = 283
Width = 283
end end
inherited dxLayoutControl1Group_Root: TdxLayoutGroup inherited dxLayoutControl1Group_Root: TdxLayoutGroup
inherited dxLayoutControl1Item10: TdxLayoutItem inherited dxLayoutControl1Item10: TdxLayoutItem
@ -336,8 +332,8 @@ inherited frViewContratoCliente: TfrViewContratoCliente
end end
end end
object edtFechaDecision: TcxDBDateEdit object edtFechaDecision: TcxDBDateEdit
Left = 131 Left = 198
Top = 109 Top = 136
Anchors = [akLeft, akTop, akRight] Anchors = [akLeft, akTop, akRight]
DataBinding.DataField = 'FECHA_DECISION' DataBinding.DataField = 'FECHA_DECISION'
DataBinding.DataSource = DADataSource DataBinding.DataSource = DADataSource
@ -355,12 +351,12 @@ inherited frViewContratoCliente: TfrViewContratoCliente
StyleDisabled.LookAndFeel.NativeStyle = True StyleDisabled.LookAndFeel.NativeStyle = True
StyleFocused.LookAndFeel.NativeStyle = True StyleFocused.LookAndFeel.NativeStyle = True
StyleHot.LookAndFeel.NativeStyle = True StyleHot.LookAndFeel.NativeStyle = True
TabOrder = 4 TabOrder = 5
Width = 115 Width = 115
end end
object edtFechaPrevMontaje: TcxDBDateEdit object edtFechaPrevMontaje: TcxDBDateEdit
Left = 131 Left = 198
Top = 163 Top = 190
Anchors = [akLeft, akTop, akRight] Anchors = [akLeft, akTop, akRight]
DataBinding.DataField = 'FECHA_PREVISTA_MONTAJE' DataBinding.DataField = 'FECHA_PREVISTA_MONTAJE'
DataBinding.DataSource = DADataSource DataBinding.DataSource = DADataSource
@ -378,9 +374,32 @@ inherited frViewContratoCliente: TfrViewContratoCliente
StyleDisabled.LookAndFeel.NativeStyle = True StyleDisabled.LookAndFeel.NativeStyle = True
StyleFocused.LookAndFeel.NativeStyle = True StyleFocused.LookAndFeel.NativeStyle = True
StyleHot.LookAndFeel.NativeStyle = True StyleHot.LookAndFeel.NativeStyle = True
TabOrder = 6 TabOrder = 7
Width = 295 Width = 295
end end
object edtFechaUltPresentacion: TcxDBDateEdit
Left = 198
Top = 109
Anchors = [akLeft, akTop, akRight]
DataBinding.DataField = 'FECHA_ULT_PRESENTACION_CLIENTE'
DataBinding.DataSource = DADataSource
Properties.DateButtons = [btnToday]
Properties.ImmediatePost = True
Style.BorderColor = clWindowFrame
Style.BorderStyle = ebs3D
Style.Color = clInfoBk
Style.HotTrack = False
Style.LookAndFeel.NativeStyle = True
Style.Shadow = False
Style.ButtonStyle = bts3D
Style.ButtonTransparency = ebtNone
Style.PopupBorderStyle = epbsFrame3D
StyleDisabled.LookAndFeel.NativeStyle = True
StyleFocused.LookAndFeel.NativeStyle = True
StyleHot.LookAndFeel.NativeStyle = True
TabOrder = 4
Width = 106
end
object dxLayoutControl1Group_Root: TdxLayoutGroup object dxLayoutControl1Group_Root: TdxLayoutGroup
ShowCaption = False ShowCaption = False
Hidden = True Hidden = True
@ -411,20 +430,30 @@ inherited frViewContratoCliente: TfrViewContratoCliente
object dxLayoutControl1Group11: TdxLayoutGroup object dxLayoutControl1Group11: TdxLayoutGroup
ShowCaption = False ShowCaption = False
Hidden = True Hidden = True
LayoutDirection = ldHorizontal
ShowBorder = False ShowBorder = False
object dxLayoutControl1Item2: TdxLayoutItem object dxLayoutControl1Group10: TdxLayoutGroup
AutoAligns = [aaVertical] ShowCaption = False
AlignHorz = ahClient Hidden = True
Caption = 'Fecha contrato:' LayoutDirection = ldHorizontal
Control = edtFechaContrato ShowBorder = False
ControlOptions.ShowBorder = False object dxLayoutControl1Item2: TdxLayoutItem
AutoAligns = [aaVertical]
AlignHorz = ahClient
Caption = 'Fecha contrato:'
Control = edtFechaContrato
ControlOptions.ShowBorder = False
end
object dxLayoutControl1Item7: TdxLayoutItem
AutoAligns = [aaVertical]
AlignHorz = ahClient
Caption = 'Tipo contrato:'
Control = cbTipoContrato
ControlOptions.ShowBorder = False
end
end end
object dxLayoutControl1Item7: TdxLayoutItem object dxLayoutControl1Item15: TdxLayoutItem
AutoAligns = [aaVertical] Caption = 'Fecha '#250'ltima actualizaci'#243'n a cliente:'
AlignHorz = ahClient Control = edtFechaUltPresentacion
Caption = 'Tipo contrato:'
Control = cbTipoContrato
ControlOptions.ShowBorder = False ControlOptions.ShowBorder = False
end end
end end
@ -451,7 +480,6 @@ inherited frViewContratoCliente: TfrViewContratoCliente
ShowBorder = False ShowBorder = False
object dxLayoutControl1Group9: TdxLayoutGroup object dxLayoutControl1Group9: TdxLayoutGroup
ShowCaption = False ShowCaption = False
Visible = False
Hidden = True Hidden = True
LayoutDirection = ldHorizontal LayoutDirection = ldHorizontal
ShowBorder = False ShowBorder = False

3
Source/Modulos/Contratos de cliente/Views/uViewContratoCliente.pas
View File

@ -71,6 +71,9 @@ type
edtFechaDecision: TcxDBDateEdit; edtFechaDecision: TcxDBDateEdit;
dxLayoutControl1Item14: TdxLayoutItem; dxLayoutControl1Item14: TdxLayoutItem;
edtFechaPrevMontaje: TcxDBDateEdit; edtFechaPrevMontaje: TcxDBDateEdit;
dxLayoutControl1Item15: TdxLayoutItem;
edtFechaUltPresentacion: TcxDBDateEdit;
dxLayoutControl1Group10: TdxLayoutGroup;
procedure CustomViewCreate(Sender: TObject); procedure CustomViewCreate(Sender: TObject);
procedure CustomViewDestroy(Sender: TObject); procedure CustomViewDestroy(Sender: TObject);
procedure bFormasPagoClick(Sender: TObject); procedure bFormasPagoClick(Sender: TObject);

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

@ -22,6 +22,12 @@ inherited frViewContratosCliente: TfrViewContratosCliente
Kind = skSum Kind = skSum
Position = spFooter Position = spFooter
Column = cxGridViewIMPORTE_TOTAL Column = cxGridViewIMPORTE_TOTAL
end
item
Format = ',0.00 '#8364';-,0.00 '#8364
Kind = skSum
Position = spFooter
Column = cxGridViewIMPORTE_DESCUENTO
end> end>
DataController.Summary.FooterSummaryItems = < DataController.Summary.FooterSummaryItems = <
item item
@ -33,6 +39,11 @@ inherited frViewContratosCliente: TfrViewContratosCliente
Format = ',0.00 '#8364';-,0.00 '#8364 Format = ',0.00 '#8364';-,0.00 '#8364
Kind = skSum Kind = skSum
Column = cxGridViewIMPORTE_TOTAL Column = cxGridViewIMPORTE_TOTAL
end
item
Format = ',0.00 '#8364';-,0.00 '#8364
Kind = skSum
Column = cxGridViewIMPORTE_DESCUENTO
end> end>
object cxGridViewLOPD: TcxGridDBColumn object cxGridViewLOPD: TcxGridDBColumn
Caption = 'GDPR' Caption = 'GDPR'
@ -102,6 +113,10 @@ inherited frViewContratosCliente: TfrViewContratosCliente
BestFitMaxWidth = 25 BestFitMaxWidth = 25
Width = 105 Width = 105
end end
object cxGridViewFECHA_ULT_PRESENTACION_CLIENTE: TcxGridDBColumn
Caption = 'Fecha '#250'lt. actualizaci'#243'n'
DataBinding.FieldName = 'FECHA_ULT_PRESENTACION_CLIENTE'
end
object cxGridViewFECHA_DECISION: TcxGridDBColumn object cxGridViewFECHA_DECISION: TcxGridDBColumn
Caption = 'Fecha decisi'#243'n' Caption = 'Fecha decisi'#243'n'
DataBinding.FieldName = 'FECHA_DECISION' DataBinding.FieldName = 'FECHA_DECISION'
@ -153,6 +168,25 @@ inherited frViewContratosCliente: TfrViewContratosCliente
DataBinding.FieldName = 'PROVINCIA' DataBinding.FieldName = 'PROVINCIA'
Visible = False Visible = False
end end
object cxGridViewIMPORTE_NETO: TcxGridDBColumn
Caption = 'Imp. Neto'
DataBinding.FieldName = 'IMPORTE_NETO'
PropertiesClassName = 'TcxCurrencyEditProperties'
Properties.Alignment.Horz = taRightJustify
HeaderAlignmentHorz = taRightJustify
end
object cxGridViewDESCUENTO: TcxGridDBColumn
Caption = 'Dto'
DataBinding.FieldName = 'DESCUENTO'
HeaderAlignmentHorz = taRightJustify
end
object cxGridViewIMPORTE_DESCUENTO: TcxGridDBColumn
Caption = 'Imp. Dto'
DataBinding.FieldName = 'IMPORTE_DESCUENTO'
PropertiesClassName = 'TcxCurrencyEditProperties'
Properties.Alignment.Horz = taRightJustify
HeaderAlignmentHorz = taRightJustify
end
object cxGridViewIMPORTE_TOTAL: TcxGridDBColumn object cxGridViewIMPORTE_TOTAL: TcxGridDBColumn
Caption = 'Importe total' Caption = 'Importe total'
DataBinding.FieldName = 'IMPORTE_TOTAL' DataBinding.FieldName = 'IMPORTE_TOTAL'

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

@ -63,6 +63,10 @@ type
TBXSeparatorItem3: TTBXSeparatorItem; TBXSeparatorItem3: TTBXSeparatorItem;
TBXSeparatorItem4: TTBXSeparatorItem; TBXSeparatorItem4: TTBXSeparatorItem;
cxGridViewPROCEDENCIA_CLIENTE: TcxGridDBColumn; cxGridViewPROCEDENCIA_CLIENTE: TcxGridDBColumn;
cxGridViewDESCUENTO: TcxGridDBColumn;
cxGridViewIMPORTE_DESCUENTO: TcxGridDBColumn;
cxGridViewIMPORTE_NETO: TcxGridDBColumn;
cxGridViewFECHA_ULT_PRESENTACION_CLIENTE: TcxGridDBColumn;
procedure cxGridActiveTabChanged(Sender: TcxCustomGrid; ALevel: procedure cxGridActiveTabChanged(Sender: TcxCustomGrid; ALevel:
TcxGridLevel); TcxGridLevel);
procedure cxGridViewStylesGetContentStyle(Sender: TcxCustomGridTableView; procedure cxGridViewStylesGetContentStyle(Sender: TcxCustomGridTableView;

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

@ -1426,18 +1426,17 @@ var
ARecibos: IBizRecibosCliente; ARecibos: IBizRecibosCliente;
ARecibosACuenta: IBizRecibosCliente; ARecibosACuenta: IBizRecibosCliente;
AFechaVencimiento: TDateTime; AFechaVencimiento: TDateTime;
i: Integer;
ADiaVencimiento: Integer; ADiaVencimiento: Integer;
ADiasMas: Integer; ADiasMas: Integer;
BSemaforo: Boolean; BSemaforo: Boolean;
AImporteTotal: Currency; AImporteTotal: Currency;
aa: String; i: Integer;
begin begin
if not Assigned(AFactura) then if not Assigned(AFactura) then
Exit; Exit;
aa:= '';
i := 1; i := 1;
AImporteTotal := AFactura.IMPORTE_TOTAL; AImporteTotal := AFactura.IMPORTE_TOTAL;
AFormasPagoController := TFormasPagoController.Create; AFormasPagoController := TFormasPagoController.Create;

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

@ -27,6 +27,7 @@
<Projects Include="..\Recibos de cliente\Controller\RecibosCliente_controller.dproj" /> <Projects Include="..\Recibos de cliente\Controller\RecibosCliente_controller.dproj" />
<Projects Include="..\Recibos de cliente\Data\RecibosCliente_data.dproj" /> <Projects Include="..\Recibos de cliente\Data\RecibosCliente_data.dproj" />
<Projects Include="..\Recibos de cliente\Model\RecibosCliente_model.dproj" /> <Projects Include="..\Recibos de cliente\Model\RecibosCliente_model.dproj" />
<Projects Include="..\Relaciones\Albaranes de cliente - Facturas de cliente\AlbCli_FacCli_relation.dproj" />
<Projects Include="..\Relaciones\Contratos de cliente - Facturas de cliente\ConCli_FacCli_relation.dproj" /> <Projects Include="..\Relaciones\Contratos de cliente - Facturas de cliente\ConCli_FacCli_relation.dproj" />
<Projects Include="Controller\FacturasCliente_controller.dproj" /> <Projects Include="Controller\FacturasCliente_controller.dproj" />
<Projects Include="Data\FacturasCliente_data.dproj" /> <Projects Include="Data\FacturasCliente_data.dproj" />
@ -211,6 +212,15 @@
<Target Name="Contabilidad_view:Make"> <Target Name="Contabilidad_view:Make">
<MSBuild Projects="..\Contabilidad\Views\Contabilidad_view.dproj" Targets="Make" /> <MSBuild Projects="..\Contabilidad\Views\Contabilidad_view.dproj" Targets="Make" />
</Target> </Target>
<Target Name="AlbCli_FacCli_relation">
<MSBuild Projects="..\Relaciones\Albaranes de cliente - Facturas de cliente\AlbCli_FacCli_relation.dproj" Targets="" />
</Target>
<Target Name="AlbCli_FacCli_relation:Clean">
<MSBuild Projects="..\Relaciones\Albaranes de cliente - Facturas de cliente\AlbCli_FacCli_relation.dproj" Targets="Clean" />
</Target>
<Target Name="AlbCli_FacCli_relation:Make">
<MSBuild Projects="..\Relaciones\Albaranes de cliente - Facturas de cliente\AlbCli_FacCli_relation.dproj" Targets="Make" />
</Target>
<Target Name="FacturasCliente_view"> <Target Name="FacturasCliente_view">
<MSBuild Projects="Views\FacturasCliente_view.dproj" Targets="" /> <MSBuild Projects="Views\FacturasCliente_view.dproj" Targets="" />
</Target> </Target>
@ -302,13 +312,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_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" /> <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;AlbCli_FacCli_relation;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_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" /> <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;AlbCli_FacCli_relation: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_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" /> <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;AlbCli_FacCli_relation: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>

10
Source/Modulos/Facturas de cliente/Plugin/uPluginFacturasCliente.pas
View File

@ -31,7 +31,7 @@ implementation
{$R *.dfm} {$R *.dfm}
uses uses
Forms, Dialogs, SysUtils, Forms, Dialogs, SysUtils, uFactuGES_App,
uFacturasClienteController, uBizFacturasCliente, uFacturasClienteViewRegister; uFacturasClienteController, uBizFacturasCliente, uFacturasClienteViewRegister;
function GetModule : TModuleController; function GetModule : TModuleController;
@ -57,6 +57,14 @@ constructor TPluginFacturasCliente.Create(AOwner: TComponent);
begin begin
inherited; inherited;
uFacturasClienteViewRegister.RegisterViews; uFacturasClienteViewRegister.RegisterViews;
//El usuario vendedor y logistica será restringido
if ((AppFactuGES.UsuarioActivo.ID_PERFIL = CTE_PREFIL_LOGISTICA) OR (AppFactuGES.UsuarioActivo.ID_PERFIL = CTE_PERFIL_VENDEDOR)) then
begin
actFacturasCliente.Visible := False;
actFacturasCliente.Visible := False;
end;
end; end;
destructor TPluginFacturasCliente.Destroy; destructor TPluginFacturasCliente.Destroy;

2
Source/Modulos/Presupuestos de cliente/Reports/uRptPresupuestosCliente_Server.dfm
View File

@ -884,7 +884,7 @@ object RptPresupuestosCliente: TRptPresupuestosCliente
PrintOptions.Printer = 'Por defecto' PrintOptions.Printer = 'Por defecto'
PrintOptions.PrintOnSheet = 0 PrintOptions.PrintOnSheet = 0
ReportOptions.CreateDate = 39065.872423495400000000 ReportOptions.CreateDate = 39065.872423495400000000
ReportOptions.LastChange = 41589.784037662040000000 ReportOptions.LastChange = 45230.494198148150000000
ScriptLanguage = 'PascalScript' ScriptLanguage = 'PascalScript'
ShowProgress = False ShowProgress = False
StoreInDFM = False StoreInDFM = False

16
Source/Modulos/Presupuestos de cliente/Views/uEditorPresupuestosClienteReport.dfm
View File

@ -1,22 +1,32 @@
inherited fEditorPresupuestosClientePreview: TfEditorPresupuestosClientePreview inherited fEditorPresupuestosClientePreview: TfEditorPresupuestosClientePreview
Caption = 'Previsualizar el pedidos proveedor' Caption = 'Previsualizar el pedidos proveedor'
ExplicitWidth = 320 ExplicitHeight = 553
ExplicitHeight = 240
PixelsPerInch = 96 PixelsPerInch = 96
TextHeight = 13 TextHeight = 13
inherited JvNavPanelHeader: TJvNavPanelHeader inherited JvNavPanelHeader: TJvNavPanelHeader
ExplicitTop = 89
inherited Image1: TImage inherited Image1: TImage
ExplicitLeft = 768 ExplicitLeft = 768
end end
end end
inherited TBXDock: TTBXDock inherited TBXDock: TTBXDock
inherited TBXToolbar1: TTBXToolbar inherited TBXToolbar1: TTBXToolbar
ExplicitWidth = 540 ExplicitWidth = 684
object TBXItem58: TTBXItem [1] object TBXItem58: TTBXItem [1]
Action = actExportarRTF Action = actExportarRTF
DisplayMode = nbdmTextOnlyInMenus DisplayMode = nbdmTextOnlyInMenus
Images = SmallImages Images = SmallImages
end end
object TBXItem59: TTBXItem [19]
Action = actPrueba
end
end
end
inherited PreviewActionList: TActionList
object actPrueba: TAction
Category = 'Ver'
Caption = 'actPrueba'
OnExecute = actPruebaExecute
end end
end end
end end

12
Source/Modulos/Presupuestos de cliente/Views/uEditorPresupuestosClienteReport.pas
View File

@ -10,11 +10,15 @@ uses
JvComponentBase, uEditorPreview, frxExportImage, frxExportPDF, frxDCtrl, JvComponentBase, uEditorPreview, frxExportImage, frxExportPDF, frxDCtrl,
frxClass, JvFormPlacement, ImgList, PngImageList, StdActns, ActnList, frxClass, JvFormPlacement, ImgList, PngImageList, StdActns, ActnList,
ComCtrls, TB2ExtItems, TBXExtItems, TBX, TB2Item, TB2Dock, TB2Toolbar, ComCtrls, TB2ExtItems, TBXExtItems, TBX, TB2Item, TB2Dock, TB2Toolbar,
pngimage, frxExportText, frxExportRTF, frxExportMail, frxExportXLS; pngimage, frxExportText, frxExportRTF, frxExportMail, frxExportXLS,
frxExportCSV;
type type
TfEditorPresupuestosClientePreview = class(TfEditorPreview, IEditorPresupuestosClientePreview) TfEditorPresupuestosClientePreview = class(TfEditorPreview, IEditorPresupuestosClientePreview)
TBXItem58: TTBXItem; TBXItem58: TTBXItem;
actPrueba: TAction;
TBXItem59: TTBXItem;
procedure actPruebaExecute(Sender: TObject);
end; end;
@ -25,4 +29,10 @@ implementation
uses uses
uPresupuestosClienteReportController, uIntegerListUtils, uDialogUtils; uPresupuestosClienteReportController, uIntegerListUtils, uDialogUtils;
procedure TfEditorPresupuestosClientePreview.actPruebaExecute(Sender: TObject);
begin
inherited;
///
end;
end. end.

6
Source/Servicios/FactuGES.RODL
View File

@ -304,6 +304,8 @@
</Parameter> </Parameter>
<Parameter Name="VerDatosCliente" DataType="Boolean" Flag="In" > <Parameter Name="VerDatosCliente" DataType="Boolean" Flag="In" >
</Parameter> </Parameter>
<Parameter Name="EmpresaAcota" 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}">
@ -314,6 +316,8 @@
</Parameter> </Parameter>
<Parameter Name="VerDatosCliente" DataType="Boolean" Flag="In" > <Parameter Name="VerDatosCliente" DataType="Boolean" Flag="In" >
</Parameter> </Parameter>
<Parameter Name="EmpresaAcota" DataType="Boolean" Flag="In" >
</Parameter>
</Parameters> </Parameters>
</Operation> </Operation>
</Operations> </Operations>
@ -921,6 +925,8 @@
</Parameter> </Parameter>
<Parameter Name="VerCondiciones" DataType="Boolean" Flag="In" > <Parameter Name="VerCondiciones" DataType="Boolean" Flag="In" >
</Parameter> </Parameter>
<Parameter Name="TamLetra" DataType="Integer" Flag="In" >
</Parameter>
</Parameters> </Parameters>
</Operation> </Operation>
<Operation Name="GenerarInformeEnPDF" UID="{BFA4B911-5DE4-44DF-BB65-1A37D64AF78E}"> <Operation Name="GenerarInformeEnPDF" UID="{BFA4B911-5DE4-44DF-BB65-1A37D64AF78E}">

21
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; const VerDatosCliente: Boolean): Binary; function GenerateReport(const FacturaID: TIntegerArray; const VerDatosCliente: Boolean; const EmpresaAcota: Boolean): Binary;
function GenerarInformeEnPDF(const ListaID: TIntegerArray; const VerDatosCliente: Boolean): Binary; function GenerarInformeEnPDF(const ListaID: TIntegerArray; const VerDatosCliente: Boolean; const EmpresaAcota: 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; const VerDatosCliente: Boolean): Binary; function GenerateReport(const FacturaID: TIntegerArray; const VerDatosCliente: Boolean; const EmpresaAcota: Boolean): Binary;
function GenerarInformeEnPDF(const ListaID: TIntegerArray; const VerDatosCliente: Boolean): Binary; function GenerarInformeEnPDF(const ListaID: TIntegerArray; const VerDatosCliente: Boolean; const EmpresaAcota: Boolean): Binary;
end; end;
{ IsrvFacturasProveedor } { IsrvFacturasProveedor }
@ -859,7 +859,7 @@ type
{ IsrvContratosCliente } { IsrvContratosCliente }
IsrvContratosCliente = interface(IDataAbstractService) IsrvContratosCliente = interface(IDataAbstractService)
['{ADBF1627-F507-4A0F-818E-38BAE28579B6}'] ['{ADBF1627-F507-4A0F-818E-38BAE28579B6}']
function GenerarInforme(const ListaID: TIntegerArray; const VerCondiciones: Boolean): Binary; function GenerarInforme(const ListaID: TIntegerArray; const VerCondiciones: Boolean; const TamLetra: Integer): Binary;
function GenerarInformeEnPDF(const ListaID: TIntegerArray; const VerCondiciones: Boolean): Binary; function GenerarInformeEnPDF(const ListaID: TIntegerArray; const VerCondiciones: Boolean): Binary;
end; end;
@ -873,7 +873,7 @@ type
protected protected
function __GetInterfaceName:string; override; function __GetInterfaceName:string; override;
function GenerarInforme(const ListaID: TIntegerArray; const VerCondiciones: Boolean): Binary; function GenerarInforme(const ListaID: TIntegerArray; const VerCondiciones: Boolean; const TamLetra: Integer): Binary;
function GenerarInformeEnPDF(const ListaID: TIntegerArray; const VerCondiciones: Boolean): Binary; function GenerarInformeEnPDF(const ListaID: TIntegerArray; const VerCondiciones: Boolean): Binary;
end; end;
@ -1817,13 +1817,14 @@ begin
result := 'srvFacturasCliente'; result := 'srvFacturasCliente';
end; end;
function TsrvFacturasCliente_Proxy.GenerateReport(const FacturaID: TIntegerArray; const VerDatosCliente: Boolean): Binary; function TsrvFacturasCliente_Proxy.GenerateReport(const FacturaID: TIntegerArray; const VerDatosCliente: Boolean; const EmpresaAcota: 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.Write('VerDatosCliente', TypeInfo(Boolean), VerDatosCliente, []);
__Message.Write('EmpresaAcota', TypeInfo(Boolean), EmpresaAcota, []);
__Message.Finalize; __Message.Finalize;
__TransportChannel.Dispatch(__Message); __TransportChannel.Dispatch(__Message);
@ -1835,13 +1836,14 @@ begin
end end
end; end;
function TsrvFacturasCliente_Proxy.GenerarInformeEnPDF(const ListaID: TIntegerArray; const VerDatosCliente: Boolean): Binary; function TsrvFacturasCliente_Proxy.GenerarInformeEnPDF(const ListaID: TIntegerArray; const VerDatosCliente: Boolean; const EmpresaAcota: 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.Write('VerDatosCliente', TypeInfo(Boolean), VerDatosCliente, []);
__Message.Write('EmpresaAcota', TypeInfo(Boolean), EmpresaAcota, []);
__Message.Finalize; __Message.Finalize;
__TransportChannel.Dispatch(__Message); __TransportChannel.Dispatch(__Message);
@ -2778,13 +2780,14 @@ begin
result := 'srvContratosCliente'; result := 'srvContratosCliente';
end; end;
function TsrvContratosCliente_Proxy.GenerarInforme(const ListaID: TIntegerArray; const VerCondiciones: Boolean): Binary; function TsrvContratosCliente_Proxy.GenerarInforme(const ListaID: TIntegerArray; const VerCondiciones: Boolean; const TamLetra: Integer): Binary;
begin begin
try try
result := nil; result := nil;
__Message.InitializeRequestMessage(__TransportChannel, 'FactuGES', __InterfaceName, 'GenerarInforme'); __Message.InitializeRequestMessage(__TransportChannel, 'FactuGES', __InterfaceName, 'GenerarInforme');
__Message.Write('ListaID', TypeInfo(FactuGES_Intf.TIntegerArray), ListaID, []); __Message.Write('ListaID', TypeInfo(FactuGES_Intf.TIntegerArray), ListaID, []);
__Message.Write('VerCondiciones', TypeInfo(Boolean), VerCondiciones, []); __Message.Write('VerCondiciones', TypeInfo(Boolean), VerCondiciones, []);
__Message.Write('TamLetra', TypeInfo(Integer), TamLetra, []);
__Message.Finalize; __Message.Finalize;
__TransportChannel.Dispatch(__Message); __TransportChannel.Dispatch(__Message);

18
Source/Servicios/FactuGES_Invk.pas
View File

@ -934,10 +934,11 @@ 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; const VerDatosCliente: Boolean): Binary; } { function GenerateReport(const FacturaID: TIntegerArray; const VerDatosCliente: Boolean; const EmpresaAcota: Boolean): Binary; }
var var
FacturaID: FactuGES_Intf.TIntegerArray; FacturaID: FactuGES_Intf.TIntegerArray;
VerDatosCliente: Boolean; VerDatosCliente: Boolean;
EmpresaAcota: Boolean;
lResult: Binary; lResult: Binary;
__lObjectDisposer: TROObjectDisposer; __lObjectDisposer: TROObjectDisposer;
begin begin
@ -946,8 +947,9 @@ begin
try try
__Message.Read('FacturaID', TypeInfo(FactuGES_Intf.TIntegerArray), FacturaID, []); __Message.Read('FacturaID', TypeInfo(FactuGES_Intf.TIntegerArray), FacturaID, []);
__Message.Read('VerDatosCliente', TypeInfo(Boolean), VerDatosCliente, []); __Message.Read('VerDatosCliente', TypeInfo(Boolean), VerDatosCliente, []);
__Message.Read('EmpresaAcota', TypeInfo(Boolean), EmpresaAcota, []);
lResult := (__Instance as IsrvFacturasCliente).GenerateReport(FacturaID, VerDatosCliente); lResult := (__Instance as IsrvFacturasCliente).GenerateReport(FacturaID, VerDatosCliente, EmpresaAcota);
__Message.InitializeResponseMessage(__Transport, 'FactuGES', 'srvFacturasCliente', 'GenerateReportResponse'); __Message.InitializeResponseMessage(__Transport, 'FactuGES', 'srvFacturasCliente', 'GenerateReportResponse');
__Message.Write('Result', TypeInfo(Binary), lResult, []); __Message.Write('Result', TypeInfo(Binary), lResult, []);
@ -966,10 +968,11 @@ 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; const VerDatosCliente: Boolean): Binary; } { function GenerarInformeEnPDF(const ListaID: TIntegerArray; const VerDatosCliente: Boolean; const EmpresaAcota: Boolean): Binary; }
var var
ListaID: FactuGES_Intf.TIntegerArray; ListaID: FactuGES_Intf.TIntegerArray;
VerDatosCliente: Boolean; VerDatosCliente: Boolean;
EmpresaAcota: Boolean;
lResult: Binary; lResult: Binary;
__lObjectDisposer: TROObjectDisposer; __lObjectDisposer: TROObjectDisposer;
begin begin
@ -978,8 +981,9 @@ begin
try try
__Message.Read('ListaID', TypeInfo(FactuGES_Intf.TIntegerArray), ListaID, []); __Message.Read('ListaID', TypeInfo(FactuGES_Intf.TIntegerArray), ListaID, []);
__Message.Read('VerDatosCliente', TypeInfo(Boolean), VerDatosCliente, []); __Message.Read('VerDatosCliente', TypeInfo(Boolean), VerDatosCliente, []);
__Message.Read('EmpresaAcota', TypeInfo(Boolean), EmpresaAcota, []);
lResult := (__Instance as IsrvFacturasCliente).GenerarInformeEnPDF(ListaID, VerDatosCliente); lResult := (__Instance as IsrvFacturasCliente).GenerarInformeEnPDF(ListaID, VerDatosCliente, EmpresaAcota);
__Message.InitializeResponseMessage(__Transport, 'FactuGES', 'srvFacturasCliente', 'GenerarInformeEnPDFResponse'); __Message.InitializeResponseMessage(__Transport, 'FactuGES', 'srvFacturasCliente', 'GenerarInformeEnPDFResponse');
__Message.Write('Result', TypeInfo(Binary), lResult, []); __Message.Write('Result', TypeInfo(Binary), lResult, []);
@ -2289,10 +2293,11 @@ begin
end; end;
procedure TsrvContratosCliente_Invoker.Invoke_GenerarInforme(const __Instance:IInterface; const __Message:IROMessage; const __Transport:IROTransport; out __oResponseOptions:TROResponseOptions); procedure TsrvContratosCliente_Invoker.Invoke_GenerarInforme(const __Instance:IInterface; const __Message:IROMessage; const __Transport:IROTransport; out __oResponseOptions:TROResponseOptions);
{ function GenerarInforme(const ListaID: TIntegerArray; const VerCondiciones: Boolean): Binary; } { function GenerarInforme(const ListaID: TIntegerArray; const VerCondiciones: Boolean; const TamLetra: Integer): Binary; }
var var
ListaID: FactuGES_Intf.TIntegerArray; ListaID: FactuGES_Intf.TIntegerArray;
VerCondiciones: Boolean; VerCondiciones: Boolean;
TamLetra: Integer;
lResult: Binary; lResult: Binary;
__lObjectDisposer: TROObjectDisposer; __lObjectDisposer: TROObjectDisposer;
begin begin
@ -2301,8 +2306,9 @@ begin
try try
__Message.Read('ListaID', TypeInfo(FactuGES_Intf.TIntegerArray), ListaID, []); __Message.Read('ListaID', TypeInfo(FactuGES_Intf.TIntegerArray), ListaID, []);
__Message.Read('VerCondiciones', TypeInfo(Boolean), VerCondiciones, []); __Message.Read('VerCondiciones', TypeInfo(Boolean), VerCondiciones, []);
__Message.Read('TamLetra', TypeInfo(Integer), TamLetra, []);
lResult := (__Instance as IsrvContratosCliente).GenerarInforme(ListaID, VerCondiciones); lResult := (__Instance as IsrvContratosCliente).GenerarInforme(ListaID, VerCondiciones, TamLetra);
__Message.InitializeResponseMessage(__Transport, 'FactuGES', 'srvContratosCliente', 'GenerarInformeResponse'); __Message.InitializeResponseMessage(__Transport, 'FactuGES', 'srvContratosCliente', 'GenerarInformeResponse');
__Message.Write('Result', TypeInfo(Binary), lResult, []); __Message.Write('Result', TypeInfo(Binary), lResult, []);

BIN
Source/Servicios/RODLFile.res
View File

Binary file not shown.

6
Source/Servidor/FactuGES_Server.dpr
View File

@ -135,10 +135,10 @@ uses
schFormasPagoServer_Intf in '..\Modulos\Formas de pago\Model\schFormasPagoServer_Intf.pas', schFormasPagoServer_Intf in '..\Modulos\Formas de pago\Model\schFormasPagoServer_Intf.pas',
schPresupuestosClienteClient_Intf in '..\Modulos\Presupuestos de cliente\Model\schPresupuestosClienteClient_Intf.pas', schPresupuestosClienteClient_Intf in '..\Modulos\Presupuestos de cliente\Model\schPresupuestosClienteClient_Intf.pas',
schPresupuestosClienteServer_Intf in '..\Modulos\Presupuestos de cliente\Model\schPresupuestosClienteServer_Intf.pas', schPresupuestosClienteServer_Intf in '..\Modulos\Presupuestos de cliente\Model\schPresupuestosClienteServer_Intf.pas',
schContratosClienteClient_Intf in '..\Modulos\Contratos de cliente\Model\schContratosClienteClient_Intf.pas',
schContratosClienteServer_Intf in '..\Modulos\Contratos de cliente\Model\schContratosClienteServer_Intf.pas',
schFacturasClienteClient_Intf in '..\Modulos\Facturas de cliente\Model\schFacturasClienteClient_Intf.pas', schFacturasClienteClient_Intf in '..\Modulos\Facturas de cliente\Model\schFacturasClienteClient_Intf.pas',
schFacturasClienteServer_Intf in '..\Modulos\Facturas de cliente\Model\schFacturasClienteServer_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">2</VersionInfo><VersionInfo Name="Release">6</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.2.6.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.2.6.0</VersionInfoKeys><VersionInfoKeys Name="Comments"></VersionInfoKeys><VersionInfoKeys Name="CompileDate">viernes, 03 de junio de 2022 11:16</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">3</VersionInfo><VersionInfo Name="Release">0</VersionInfo><VersionInfo Name="Build">0</VersionInfo><VersionInfo Name="Debug">False</VersionInfo><VersionInfo Name="PreRelease">False</VersionInfo><VersionInfo Name="Special">False</VersionInfo><VersionInfo Name="Private">False</VersionInfo><VersionInfo Name="DLL">False</VersionInfo><VersionInfo Name="Locale">3082</VersionInfo><VersionInfo Name="CodePage">1252</VersionInfo></VersionInfo><VersionInfoKeys><VersionInfoKeys Name="CompanyName">Rodax Software S.L.</VersionInfoKeys><VersionInfoKeys Name="FileDescription"></VersionInfoKeys><VersionInfoKeys Name="FileVersion">2.3.0.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.3.0.0</VersionInfoKeys><VersionInfoKeys Name="Comments"></VersionInfoKeys><VersionInfoKeys Name="CompileDate">jueves, 25 de abril de 2024 17:41</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.