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

Version 2.9.0, se incluye dirección de obra en contratos y albaranes segun presupuesto 325

Browse Source 
git-svn-id: https://192.168.0.254/svn/Proyectos.AbetoDesign_FactuGES/trunk@151 93f398dd-4eb6-7a46-baf6-13f46f578da2
This commit is contained in:
roberto 2020-12-14 11:14:43 +00:00
parent c418b78eff
commit 6197a81873
74 changed files with 4350 additions and 1080 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.

2
Source/Cliente/FactuGES.dproj
View File

@ -51,7 +51,7 @@
<Borland.Personality>Delphi.Personality</Borland.Personality>
<Borland.ProjectType>VCLApplication</Borland.ProjectType>
<BorlandProject>
<BorlandProject><Delphi.Personality><Parameters><Parameters Name="UseLauncher">False</Parameters><Parameters Name="LoadAllSymbols">True</Parameters><Parameters Name="LoadUnspecifiedSymbols">False</Parameters></Parameters><Language><Language Name="RootDir">C:\Archivos de programa\Borland\Delphi7\Bin\</Language></Language><VersionInfo><VersionInfo Name="IncludeVerInfo">True</VersionInfo><VersionInfo Name="AutoIncBuild">False</VersionInfo><VersionInfo Name="MajorVer">2</VersionInfo><VersionInfo Name="MinorVer">8</VersionInfo><VersionInfo Name="Release">4</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.8.4.0</VersionInfoKeys><VersionInfoKeys Name="InternalName">FactuGES</VersionInfoKeys><VersionInfoKeys Name="LegalCopyright"></VersionInfoKeys><VersionInfoKeys Name="LegalTrademarks"></VersionInfoKeys><VersionInfoKeys Name="OriginalFilename"></VersionInfoKeys><VersionInfoKeys Name="ProductName">FactuGES</VersionInfoKeys><VersionInfoKeys Name="ProductVersion">2.8.4.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">9</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.9.0.0</VersionInfoKeys><VersionInfoKeys Name="InternalName">FactuGES</VersionInfoKeys><VersionInfoKeys Name="LegalCopyright"></VersionInfoKeys><VersionInfoKeys Name="LegalTrademarks"></VersionInfoKeys><VersionInfoKeys Name="OriginalFilename"></VersionInfoKeys><VersionInfoKeys Name="ProductName">FactuGES</VersionInfoKeys><VersionInfoKeys Name="ProductVersion">2.9.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><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">
<MainSource>MainSource</MainSource>
</DelphiCompile>
<DCCReference Include="..\Modulos\Tarifas\Views\Base.dcp" />
<DCCReference Include="..\Modulos\Tarifas\Views\ccpackD11.dcp" />
<DCCReference Include="..\Modulos\Tarifas\Views\cxDataD11.dcp" />
<DCCReference Include="..\Modulos\Tarifas\Views\cxEditorsD11.dcp" />
<DCCReference Include="..\Modulos\Tarifas\Views\cxExportD11.dcp" />
<DCCReference Include="..\Modulos\Tarifas\Views\cxLibraryD11.dcp" />
<DCCReference Include="..\Modulos\Tarifas\Views\dbrtl.dcp" />
<DCCReference Include="..\Modulos\Tarifas\Views\dxGDIPlusD11.dcp" />
<DCCReference Include="..\Modulos\Tarifas\Views\dxLayoutControlD11.dcp" />
<DCCReference Include="..\Modulos\Tarifas\Views\dxPScxCommonD11.dcp" />
<DCCReference Include="..\Modulos\Tarifas\Views\dxPScxGrid6LnkD11.dcp" />
<DCCReference Include="..\Modulos\Tarifas\Views\dxThemeD11.dcp" />
<DCCReference Include="..\Modulos\Tarifas\Views\frx11.dcp" />
<DCCReference Include="..\Modulos\Tarifas\Views\frxe11.dcp" />
<DCCReference Include="..\Modulos\Tarifas\Views\fs11.dcp" />
<DCCReference Include="..\Modulos\Tarifas\Views\JvAppFrmD11R.dcp" />
<DCCReference Include="..\Modulos\Tarifas\Views\JvCtrlsD11R.dcp" />
<DCCReference Include="..\Modulos\Tarifas\Views\JvGlobusD11R.dcp" />
<DCCReference Include="..\Modulos\Tarifas\Views\PngComponentsD10.dcp" />
<DCCReference Include="..\Modulos\Tarifas\Views\PNG_D10.dcp" />
<DCCReference Include="..\Modulos\Tarifas\Views\rtl.dcp" />
<DCCReference Include="..\Modulos\Tarifas\Views\tb2k_d10.dcp" />
<DCCReference Include="..\Modulos\Tarifas\Views\tbx_d10.dcp" />
<DCCReference Include="..\Modulos\Tarifas\Views\vcl.dcp" />
<DCCReference Include="..\Modulos\Tarifas\Views\vclactnband.dcp" />
<DCCReference Include="..\Modulos\Tarifas\Views\vcldb.dcp" />
<DCCReference Include="..\Modulos\Tarifas\Views\vcljpg.dcp" />
<DCCReference Include="..\Modulos\Tarifas\Views\vclx.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\Base.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\ccpackD11.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\cxDataD11.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\cxEditorsD11.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\cxExportD11.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\cxLibraryD11.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\dbrtl.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\dxGDIPlusD11.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\dxLayoutControlD11.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\dxPScxCommonD11.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\dxPScxGrid6LnkD11.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\dxThemeD11.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\frx11.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\frxe11.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\fs11.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\JvAppFrmD11R.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\JvCtrlsD11R.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\JvGlobusD11R.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\PngComponentsD10.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\PNG_D10.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\rtl.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\tb2k_d10.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\tbx_d10.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\vcl.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\vclactnband.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\vcldb.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\vcljpg.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\vclx.dcp" />
<DCCReference Include="uDialogBase.pas">
<Form>fDialogBase</Form>
</DCCReference>

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

File diff suppressed because one or more lines are too long

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

File diff suppressed because one or more lines are too long

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

File diff suppressed because one or more lines are too long

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

File diff suppressed because one or more lines are too long

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

File diff suppressed because one or more lines are too long

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

File diff suppressed because one or more lines are too long

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

File diff suppressed because one or more lines are too long

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

File diff suppressed because one or more lines are too long

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

File diff suppressed because one or more lines are too long

26
Source/Modulos/Albaranes de cliente/AlbaranesCliente_Group.groupproj
View File

@ -11,6 +11,8 @@
<Projects Include="..\..\Servidor\FactuGES_Server.dproj" />
<Projects Include="..\Articulos\Views\Articulos_view.dproj" />
<Projects Include="..\Contactos\Views\Contactos_view.dproj" />
<Projects Include="..\Contratos de cliente\Controller\ContratosCliente_controller.dproj" />
<Projects Include="..\Contratos de cliente\Model\ContratosCliente_model.dproj" />
<Projects Include="..\Contratos de cliente\Views\ContratosCliente_view.dproj" />
<Projects Include="..\Facturas de cliente\Controller\FacturasCliente_controller.dproj" />
<Projects Include="..\Facturas de cliente\Views\FacturasCliente_view.dproj" />
@ -191,14 +193,32 @@
<Target Name="ConCli_AlbCli_relation:Make">
<MSBuild Projects="..\Relaciones\Contratos de cliente - Albaranes de cliente\ConCli_AlbCli_relation.dproj" Targets="Make" />
</Target>
<Target Name="ContratosCliente_controller">
<MSBuild Projects="..\Contratos de cliente\Controller\ContratosCliente_controller.dproj" Targets="" />
</Target>
<Target Name="ContratosCliente_controller:Clean">
<MSBuild Projects="..\Contratos de cliente\Controller\ContratosCliente_controller.dproj" Targets="Clean" />
</Target>
<Target Name="ContratosCliente_controller:Make">
<MSBuild Projects="..\Contratos de cliente\Controller\ContratosCliente_controller.dproj" Targets="Make" />
</Target>
<Target Name="ContratosCliente_model">
<MSBuild Projects="..\Contratos de cliente\Model\ContratosCliente_model.dproj" Targets="" />
</Target>
<Target Name="ContratosCliente_model:Clean">
<MSBuild Projects="..\Contratos de cliente\Model\ContratosCliente_model.dproj" Targets="Clean" />
</Target>
<Target Name="ContratosCliente_model:Make">
<MSBuild Projects="..\Contratos de cliente\Model\ContratosCliente_model.dproj" Targets="Make" />
</Target>
<Target Name="Build">
<CallTarget Targets="Base;GUIBase;ApplicationBase;Contactos_view;Articulos_view;AlbaranesCliente_model;AlbaranesCliente_data;AlbaranesCliente_controller;FacturasCliente_controller;AlbCli_FacCli_relation;AlbaranesCliente_view;AlbaranesCliente_plugin;FactuGES;FactuGES_Server;FacturasCliente_view;ContratosCliente_view;ConCli_FacCli_relation;ConCli_AlbCli_relation" />
<CallTarget Targets="Base;GUIBase;ApplicationBase;Contactos_view;Articulos_view;AlbaranesCliente_model;AlbaranesCliente_data;AlbaranesCliente_controller;FacturasCliente_controller;AlbCli_FacCli_relation;AlbaranesCliente_view;AlbaranesCliente_plugin;FactuGES;FactuGES_Server;FacturasCliente_view;ContratosCliente_view;ConCli_FacCli_relation;ConCli_AlbCli_relation;ContratosCliente_controller;ContratosCliente_model" />
</Target>
<Target Name="Clean">
<CallTarget Targets="Base:Clean;GUIBase:Clean;ApplicationBase:Clean;Contactos_view:Clean;Articulos_view:Clean;AlbaranesCliente_model:Clean;AlbaranesCliente_data:Clean;AlbaranesCliente_controller:Clean;FacturasCliente_controller:Clean;AlbCli_FacCli_relation:Clean;AlbaranesCliente_view:Clean;AlbaranesCliente_plugin:Clean;FactuGES:Clean;FactuGES_Server:Clean;FacturasCliente_view:Clean;ContratosCliente_view:Clean;ConCli_FacCli_relation:Clean;ConCli_AlbCli_relation:Clean" />
<CallTarget Targets="Base:Clean;GUIBase:Clean;ApplicationBase:Clean;Contactos_view:Clean;Articulos_view:Clean;AlbaranesCliente_model:Clean;AlbaranesCliente_data:Clean;AlbaranesCliente_controller:Clean;FacturasCliente_controller:Clean;AlbCli_FacCli_relation:Clean;AlbaranesCliente_view:Clean;AlbaranesCliente_plugin:Clean;FactuGES:Clean;FactuGES_Server:Clean;FacturasCliente_view:Clean;ContratosCliente_view:Clean;ConCli_FacCli_relation:Clean;ConCli_AlbCli_relation:Clean;ContratosCliente_controller:Clean;ContratosCliente_model:Clean" />
</Target>
<Target Name="Make">
<CallTarget Targets="Base:Make;GUIBase:Make;ApplicationBase:Make;Contactos_view:Make;Articulos_view:Make;AlbaranesCliente_model:Make;AlbaranesCliente_data:Make;AlbaranesCliente_controller:Make;FacturasCliente_controller:Make;AlbCli_FacCli_relation:Make;AlbaranesCliente_view:Make;AlbaranesCliente_plugin:Make;FactuGES:Make;FactuGES_Server:Make;FacturasCliente_view:Make;ContratosCliente_view:Make;ConCli_FacCli_relation:Make;ConCli_AlbCli_relation:Make" />
<CallTarget Targets="Base:Make;GUIBase:Make;ApplicationBase:Make;Contactos_view:Make;Articulos_view:Make;AlbaranesCliente_model:Make;AlbaranesCliente_data:Make;AlbaranesCliente_controller:Make;FacturasCliente_controller:Make;AlbCli_FacCli_relation:Make;AlbaranesCliente_view:Make;AlbaranesCliente_plugin:Make;FactuGES:Make;FactuGES_Server:Make;FacturasCliente_view:Make;ContratosCliente_view:Make;ConCli_FacCli_relation:Make;ConCli_AlbCli_relation:Make;ContratosCliente_controller:Make;ContratosCliente_model:Make" />
</Target>
<Import Condition="Exists('$(MSBuildBinPath)\Borland.Group.Targets')" Project="$(MSBuildBinPath)\Borland.Group.Targets" />
</Project>

16
Source/Modulos/Albaranes de cliente/Model/uBizAlbaranesCliente.pas
View File

@ -92,7 +92,7 @@ type
implementation
uses
SysUtils, Variants, uDataModuleConfiguracion, uDataModuleUsuarios,
SysUtils, Variants, uDataModuleConfiguracion, uDataModuleUsuarios, uNumUtils,
uDataTableUtils, DateUtils, uDateUtils, DB, uFactuGES_App, uBizEmpresasTiendas;
{ TBizAlbaranCliente }
@ -101,7 +101,7 @@ procedure TBizAlbaranCliente.CalcularBaseImponible;
begin
if not Self.DataTable.Editing then
Edit;
IMPORTE_DESCUENTO := IMPORTE_NETO * (DESCUENTO/100);
IMPORTE_DESCUENTO := roundCurrency(IMPORTE_NETO * (DESCUENTO/100));
BASE_IMPONIBLE := IMPORTE_NETO - IMPORTE_DESCUENTO + IMPORTE_PORTE;
end;
@ -126,7 +126,7 @@ procedure TBizAlbaranCliente.CalcularIVA;
begin
if not Self.DataTable.Editing then
Edit;
IMPORTE_IVA := (IVA / 100) * (BASE_IMPONIBLE);
IMPORTE_IVA := roundCurrency((IVA / 100) * (BASE_IMPONIBLE));
end;
constructor TBizAlbaranCliente.Create(aDataTable: TDADataTable);
@ -242,9 +242,17 @@ begin
if FCliente.ID_FORMA_PAGO > 0 then
ID_FORMA_PAGO := FCliente.ID_FORMA_PAGO;
// Se establece un descuento especial general a petición de angelica
// Se establece un descuento especial general a petición de angelica
DESCUENTO := FCliente.DESCUENTO;
CALLE := FCliente.CALLE;
POBLACION := FCliente.POBLACION;
CODIGO_POSTAL := FCliente.CODIGO_POSTAL;
PROVINCIA := FCliente.PROVINCIA;
PERSONA_CONTACTO := FCliente.NOMBRE;
TELEFONO := FCliente.TELEFONO_1;
DataTable.Post; //Muy importante ya que es necesario hacer un post de la cabecera antes de añadir detalles
//si se quita el id de la cabecera y los detalles se desincroniza
if bEnEdicion then

19
Source/Modulos/Albaranes de cliente/Views/AlbaranesCliente_view.dpk
View File

@ -34,7 +34,21 @@ requires
Almacenes_controller,
AlbCli_FacCli_relation,
rtl,
vcl;
vcl,
dbrtl,
vcldb,
DataAbstract_Core_D11,
dsnap,
adortl,
RemObjects_Core_D11,
cxLibraryD11,
dxThemeD11,
dxGDIPlusD11,
dxCoreD11,
vclx,
cxEditorsD11,
cxDataD11,
vcljpg;
contains
uAlbaranesClienteViewRegister in 'uAlbaranesClienteViewRegister.pas',
@ -53,6 +67,7 @@ contains
uEditorAlbaranDevCliente in 'uEditorAlbaranDevCliente.pas' {fEditorAlbaranDevCliente: TCustomEditor},
uViewAlbaranDevCliente in 'uViewAlbaranDevCliente.pas' {frViewAlbaranDevCliente: TCustomView},
uViewDatosYSeleccionClienteAlbaran in 'uViewDatosYSeleccionClienteAlbaran.pas' {frViewDatosYSeleccionClienteAlbaran: TCustomView},
uDialogOpcionesImpresionAlbaranesCliente in 'uDialogOpcionesImpresionAlbaranesCliente.pas' {frDialogOpcionesImpresionAlbaranesCliente: TForm};
uDialogOpcionesImpresionAlbaranesCliente in 'uDialogOpcionesImpresionAlbaranesCliente.pas' {frDialogOpcionesImpresionAlbaranesCliente: T},
uEditorDireccionEntregaAlbaranCliente in 'uEditorDireccionEntregaAlbaranCliente.pas' {fEditorDireccionEntregaAlbaranCliente: TCustomEditor};
end.

58
Source/Modulos/Albaranes de cliente/Views/AlbaranesCliente_view.dproj
View File

@ -43,26 +43,6 @@
<Borland.ProjectType>Package</Borland.ProjectType>
<BorlandProject>
<BorlandProject><Delphi.Personality><Parameters><Parameters Name="UseLauncher">False</Parameters><Parameters Name="LoadAllSymbols">True</Parameters><Parameters Name="LoadUnspecifiedSymbols">False</Parameters></Parameters><Package_Options><Package_Options Name="ImplicitBuild">False</Package_Options><Package_Options Name="DesigntimeOnly">False</Package_Options><Package_Options Name="RuntimeOnly">False</Package_Options></Package_Options><VersionInfo><VersionInfo Name="IncludeVerInfo">True</VersionInfo><VersionInfo Name="AutoIncBuild">False</VersionInfo><VersionInfo Name="MajorVer">1</VersionInfo><VersionInfo Name="MinorVer">0</VersionInfo><VersionInfo Name="Release">0</VersionInfo><VersionInfo Name="Build">0</VersionInfo><VersionInfo Name="Debug">False</VersionInfo><VersionInfo Name="PreRelease">False</VersionInfo><VersionInfo Name="Special">False</VersionInfo><VersionInfo Name="Private">False</VersionInfo><VersionInfo Name="DLL">False</VersionInfo><VersionInfo Name="Locale">3082</VersionInfo><VersionInfo Name="CodePage">1252</VersionInfo></VersionInfo><VersionInfoKeys><VersionInfoKeys Name="CompanyName"></VersionInfoKeys><VersionInfoKeys Name="FileDescription"></VersionInfoKeys><VersionInfoKeys Name="FileVersion">1.0.0.0</VersionInfoKeys><VersionInfoKeys Name="InternalName"></VersionInfoKeys><VersionInfoKeys Name="LegalCopyright"></VersionInfoKeys><VersionInfoKeys Name="LegalTrademarks"></VersionInfoKeys><VersionInfoKeys Name="OriginalFilename"></VersionInfoKeys><VersionInfoKeys Name="ProductName"></VersionInfoKeys><VersionInfoKeys Name="ProductVersion">1.0.0.0</VersionInfoKeys><VersionInfoKeys Name="Comments"></VersionInfoKeys></VersionInfoKeys><Excluded_Packages>
<Excluded_Packages Name="c:\archivos de programa\borland\delphi10\Bin\dclIntraweb_80_100.bpl">File c:\archivos de programa\borland\delphi10\Bin\dclIntraweb_80_100.bpl not found</Excluded_Packages>
<Excluded_Packages Name="c:\archivos de programa\borland\delphi10\Bin\dclnet100.bpl">File c:\archivos de programa\borland\delphi10\Bin\dclnet100.bpl not found</Excluded_Packages>
<Excluded_Packages Name="c:\archivos de programa\borland\delphi10\Bin\dclsoap100.bpl">File c:\archivos de programa\borland\delphi10\Bin\dclsoap100.bpl not found</Excluded_Packages>
@ -74,16 +54,26 @@
<DelphiCompile Include="AlbaranesCliente_view.dpk">
<MainSource>MainSource</MainSource>
</DelphiCompile>
<DCCReference Include="..\..\Formas de pago\AlbaranesCliente_controller.dcp" />
<DCCReference Include="..\..\Formas de pago\AlbaranesCliente_model.dcp" />
<DCCReference Include="..\..\Formas de pago\AlbCli_FacCli_relation.dcp" />
<DCCReference Include="..\..\Formas de pago\Almacenes_controller.dcp" />
<DCCReference Include="..\..\Formas de pago\ApplicationBase.dcp" />
<DCCReference Include="..\..\Formas de pago\Articulos_view.dcp" />
<DCCReference Include="..\..\Formas de pago\Base.dcp" />
<DCCReference Include="..\..\Formas de pago\GUIBase.dcp" />
<DCCReference Include="..\..\Formas de pago\rtl.dcp" />
<DCCReference Include="..\..\Formas de pago\vcl.dcp" />
<DCCReference Include="adortl.dcp" />
<DCCReference Include="AlbaranesCliente_controller.dcp" />
<DCCReference Include="AlbaranesCliente_model.dcp" />
<DCCReference Include="AlbCli_FacCli_relation.dcp" />
<DCCReference Include="Almacenes_controller.dcp" />
<DCCReference Include="ApplicationBase.dcp" />
<DCCReference Include="Articulos_view.dcp" />
<DCCReference Include="Base.dcp" />
<DCCReference Include="cxDataD11.dcp" />
<DCCReference Include="cxEditorsD11.dcp" />
<DCCReference Include="cxLibraryD11.dcp" />
<DCCReference Include="DataAbstract_Core_D11.dcp" />
<DCCReference Include="dbrtl.dcp" />
<DCCReference Include="dsnap.dcp" />
<DCCReference Include="dxCoreD11.dcp" />
<DCCReference Include="dxGDIPlusD11.dcp" />
<DCCReference Include="dxThemeD11.dcp" />
<DCCReference Include="GUIBase.dcp" />
<DCCReference Include="RemObjects_Core_D11.dcp" />
<DCCReference Include="rtl.dcp" />
<DCCReference Include="uAlbaranesClienteViewRegister.pas" />
<DCCReference Include="uDialogOpcionesImpresionAlbaranesCliente.pas">
<Form>frDialogOpcionesImpresionAlbaranesCliente</Form>
@ -109,6 +99,10 @@
<Form>fEditorAlbaranesDevCliente</Form>
<DesignClass>TCustomEditor</DesignClass>
</DCCReference>
<DCCReference Include="uEditorDireccionEntregaAlbaranCliente.pas">
<Form>fEditorDireccionEntregaAlbaraCliente</Form>
<DesignClass>TCustomEditor</DesignClass>
</DCCReference>
<DCCReference Include="uEditorElegirAlbaranesCliente.pas">
<Form>fEditorElegirAlbaranesCliente</Form>
<DesignClass>TfEditorElegirAlbaranesCliente</DesignClass>
@ -149,6 +143,10 @@
<Form>frViewElegirArticulosAlbaranesCliente</Form>
<DesignClass>TFrame</DesignClass>
</DCCReference>
<DCCReference Include="vcl.dcp" />
<DCCReference Include="vcldb.dcp" />
<DCCReference Include="vcljpg.dcp" />
<DCCReference Include="vclx.dcp" />
</ItemGroup>
</Project>
<!-- EurekaLog First Line

5
Source/Modulos/Albaranes de cliente/Views/uAlbaranesClienteViewRegister.pas
View File

@ -10,7 +10,8 @@ implementation
uses
uEditorRegistryUtils, uEditorAlbaranesCliente, uEditorAlbaranCliente,
uEditorElegirArticulosAlbaranCliente, uEditorAlbaranesClienteReport,
uEditorElegirAlbaranesCliente, uEditorAlbaranesDevCliente, uEditorAlbaranDevCliente;
uEditorElegirAlbaranesCliente, uEditorAlbaranesDevCliente, uEditorAlbaranDevCliente,
uEditorDireccionEntregaAlbaranCliente;
procedure RegisterViews;
begin
@ -21,6 +22,7 @@ begin
EditorRegistry.RegisterClass(TfEditorElegirArticulosAlbaranCliente, 'EditorElegirArticulosAlbaranesCliente');
EditorRegistry.RegisterClass(TfEditorAlbaranesClientePreview, 'EditorAlbaranesClientePreview');
EditorRegistry.RegisterClass(TfEditorElegirAlbaranesCliente, 'EditorElegirAlbaranesCliente');
EditorRegistry.RegisterClass(TfEditorDireccionEntregaAlbaranCliente, 'EditorDireccionEntregaAlbaranCliente');
end;
procedure UnregisterViews;
@ -32,6 +34,7 @@ begin
EditorRegistry.UnRegisterClass(TfEditorElegirArticulosAlbaranCliente);
EditorRegistry.UnRegisterClass(TfEditorAlbaranesClientePreview);
EditorRegistry.UnRegisterClass(TfEditorElegirAlbaranesCliente);
EditorRegistry.UnRegisterClass(TfEditorDireccionEntregaAlbaranCliente);
end;
end.

160
Source/Modulos/Albaranes de cliente/Views/uEditorAlbaranCliente.dfm
View File

@ -162,17 +162,16 @@ inherited fEditorAlbaranCliente: TfEditorAlbaranCliente
OnChanging = pgPaginasChanging
ExplicitTop = 112
ExplicitWidth = 781
ExplicitHeight = 421
ExplicitHeight = 418
inherited pagGeneral: TTabSheet
ExplicitLeft = 4
ExplicitTop = 24
ExplicitWidth = 773
ExplicitHeight = 393
ExplicitHeight = 390
end
object pagContenido: TTabSheet
Caption = 'Contenido'
ImageIndex = 1
ExplicitHeight = 393
inline frViewDetallesAlbaranCliente1: TfrViewDetallesAlbaranCliente
Left = 0
Top = 0
@ -190,46 +189,10 @@ inherited fEditorAlbaranCliente: TfEditorAlbaranCliente
TabOrder = 0
ReadOnly = False
ExplicitWidth = 773
ExplicitHeight = 393
ExplicitHeight = 390
inherited ToolBar1: TToolBar
Width = 773
ExplicitWidth = 773
inherited UpDown1: TUpDown
Left = 239
ExplicitLeft = 239
end
inherited ToolButton13: TToolButton
Left = 256
ExplicitLeft = 256
end
inherited ToolButton6: TToolButton
Left = 264
ExplicitLeft = 264
end
inherited ToolButton7: TToolButton
Left = 298
ExplicitLeft = 298
end
inherited ToolButton8: TToolButton
Left = 332
ExplicitLeft = 332
end
inherited ToolButton12: TToolButton
Left = 366
ExplicitLeft = 366
end
inherited ToolButton9: TToolButton
Left = 374
ExplicitLeft = 374
end
inherited ToolButton10: TToolButton
Left = 408
ExplicitLeft = 408
end
inherited ToolButton11: TToolButton
Left = 442
ExplicitLeft = 442
end
end
inherited cxGrid: TcxGrid
Width = 773
@ -252,7 +215,6 @@ inherited fEditorAlbaranCliente: TfEditorAlbaranCliente
object pagInicidencias: TTabSheet
Caption = 'Incidencias'
ImageIndex = 2
ExplicitHeight = 393
inline frViewIncidenciasCli: TfrViewIncidencias
Left = 0
Top = 0
@ -268,7 +230,7 @@ inherited fEditorAlbaranCliente: TfEditorAlbaranCliente
TabOrder = 0
ReadOnly = False
ExplicitWidth = 773
ExplicitHeight = 393
ExplicitHeight = 390
inherited pnlSup: TPanel
Width = 773
ExplicitWidth = 773
@ -280,10 +242,10 @@ inherited fEditorAlbaranCliente: TfEditorAlbaranCliente
Width = 773
Height = 362
ExplicitWidth = 773
ExplicitHeight = 365
ExplicitHeight = 362
inherited eIncidencias: TcxDBMemo
ExplicitWidth = 769
ExplicitHeight = 348
ExplicitHeight = 345
Height = 345
Width = 769
end
@ -314,160 +276,192 @@ inherited fEditorAlbaranCliente: TfEditorAlbaranCliente
Align = alClient
LookAndFeel = dxLayoutOfficeLookAndFeel1
ExplicitWidth = 787
ExplicitHeight = 73
ExplicitHeight = 76
inherited Bevel3: TBevel
Left = 377
Left = 360
Top = 11
Width = 7
Height = 54
ExplicitLeft = 377
ExplicitLeft = 360
ExplicitTop = 11
ExplicitWidth = 7
ExplicitHeight = 54
end
inherited Bevel4: TBevel
Left = 493
Left = 476
Top = 53
Width = 210
ExplicitLeft = 493
ExplicitLeft = 476
ExplicitTop = 53
ExplicitWidth = 210
end
inherited Bevel2: TBevel
Left = 11
Top = 196
ExplicitLeft = 11
ExplicitTop = 196
end
inherited Bevel1: TBevel
Left = 383
Top = 196
ExplicitLeft = 383
ExplicitTop = 196
end
inherited ImporteDto: TcxDBCurrencyEdit
Left = 164
Left = 191
Top = 38
Style.IsFontAssigned = True
ExplicitLeft = 164
ExplicitLeft = 191
ExplicitTop = 38
ExplicitWidth = 188
Width = 188
end
inherited ImporteIVA: TcxDBCurrencyEdit
Left = 564
Left = 547
Top = 88
DataBinding.DataField = ''
Style.IsFontAssigned = True
ExplicitLeft = 564
ExplicitLeft = 547
ExplicitTop = 88
ExplicitWidth = 182
Width = 182
end
inherited ImporteTotal: TcxDBCurrencyEdit
Left = 494
Left = 477
Top = 169
Style.IsFontAssigned = True
ExplicitLeft = 494
ExplicitLeft = 477
ExplicitTop = 169
ExplicitWidth = 252
Width = 252
end
inherited edtDescuento: TcxDBSpinEdit
Left = 93
Left = 120
Top = 38
Style.IsFontAssigned = True
ExplicitLeft = 93
ExplicitLeft = 120
ExplicitTop = 38
end
inherited edtIVA: TcxDBSpinEdit
Left = 493
Left = 476
Top = 88
DataBinding.DataField = ''
Style.IsFontAssigned = True
ExplicitLeft = 493
ExplicitLeft = 476
ExplicitTop = 88
end
inherited ImporteBase: TcxDBCurrencyEdit
Left = 493
Left = 476
Top = 11
Style.IsFontAssigned = True
ExplicitLeft = 493
ExplicitLeft = 476
ExplicitTop = 11
ExplicitWidth = 253
Width = 253
end
inherited edtRE: TcxDBSpinEdit
Left = 493
Left = 476
Top = 142
DataBinding.DataField = ''
Style.IsFontAssigned = True
ExplicitLeft = 493
ExplicitLeft = 476
ExplicitTop = 142
end
inherited edtIRPF: TcxDBSpinEdit
Left = 493
Left = 476
Top = 115
Style.IsFontAssigned = True
ExplicitLeft = 493
ExplicitLeft = 476
ExplicitTop = 115
end
inherited ImporteRE: TcxDBCurrencyEdit
Left = 564
Left = 547
Top = 142
DataBinding.DataField = ''
Style.IsFontAssigned = True
ExplicitLeft = 564
ExplicitLeft = 547
ExplicitTop = 142
ExplicitWidth = 182
Width = 182
end
inherited ImporteIRPF: TcxDBCurrencyEdit
Left = 564
Left = 547
Top = 115
Style.IsFontAssigned = True
ExplicitLeft = 564
ExplicitLeft = 547
ExplicitTop = 115
ExplicitWidth = 56
Width = 56
end
inherited eImporteNeto: TcxDBCurrencyEdit
Left = 93
Left = 120
Top = 11
Enabled = True
Style.IsFontAssigned = True
ExplicitLeft = 93
ExplicitLeft = 120
ExplicitTop = 11
ExplicitWidth = 259
Width = 259
end
inherited ePorte: TcxDBCurrencyEdit
Left = 93
Left = 120
Top = 65
Enabled = False
Properties.OnValidate = frViewTotales1ePortePropertiesValidate
Style.IsFontAssigned = True
ExplicitLeft = 93
ExplicitLeft = 120
ExplicitTop = 65
ExplicitWidth = 259
Width = 259
end
inherited eIVA: TcxDBLookupComboBox
Left = 93
Left = 120
Top = 92
DataBinding.DataField = ''
Enabled = False
ExplicitLeft = 93
ExplicitLeft = 120
ExplicitTop = 92
ExplicitWidth = 121
Width = 121
end
inherited bTiposIVA: TButton
Left = 229
Left = 212
Top = 92
Enabled = False
ExplicitLeft = 229
ExplicitLeft = 212
ExplicitTop = 92
end
inherited cbRecargoEquivalencia: TcxDBCheckBox
Left = 93
Left = 120
Top = 119
DataBinding.DataField = ''
DataBinding.DataSource = nil
Enabled = False
ExplicitLeft = 93
ExplicitLeft = 120
ExplicitTop = 119
ExplicitWidth = 259
Width = 259
end
inherited edtRetencion: TcxDBSpinEdit
Left = 476
Top = 211
Style.IsFontAssigned = True
ExplicitLeft = 476
ExplicitTop = 211
end
inherited edtImporteRetencion: TcxDBCurrencyEdit
Left = 547
Top = 211
Style.IsFontAssigned = True
ExplicitLeft = 547
ExplicitTop = 211
end
inherited edtFechaRetencion: TcxDBDateEdit
Left = 120
Top = 211
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitLeft = 120
ExplicitTop = 211
end
inherited dxLayoutControl1Group_Root: TdxLayoutGroup
inherited dxLayoutControl1Group1: TdxLayoutGroup
ShowCaption = False

8
Source/Modulos/Albaranes de cliente/Views/uEditorAlbaranCliente.pas
View File

@ -257,7 +257,7 @@ begin
ShowWarningMessage('Este cliente no tiene datos bancarios en su ficha');}
// Elegir la dirección de envio
case FAlbaran.Cliente.Direcciones.RecordCount of
{ case FAlbaran.Cliente.Direcciones.RecordCount of
0 : begin
ADireccion := NIL;
//ShowWarningMessage('Este cliente no tiene ninguna dirección de envío en su ficha');
@ -266,9 +266,9 @@ begin
ADireccion := FAlbaran.Cliente.Direcciones;
end
end;
}
// Si hay dirección de envio, copiarla al albarán y poner el coste del porte
if Assigned(ADireccion) then
{ if Assigned(ADireccion) then
begin
try
FAlbaran.Edit;
@ -283,7 +283,7 @@ begin
FAlbaran.Edit;
FAlbaran.IMPORTE_PORTE := 0;
end;
}
// Si el albaran tiene detalles hay que mirar si los descuentos
// para los artículos hay que cambiarlos.
if (FAlbaran.Detalles.RecordCount > 0) then

166
Source/Modulos/Albaranes de cliente/Views/uEditorDireccionEntregaAlbaranCliente.dfm Normal file
View File

@ -0,0 +1,166 @@
object fEditorDireccionEntregaAlbaranCliente: TfEditorDireccionEntregaAlbaranCliente
Left = 227
Top = 108
BorderStyle = bsDialog
Caption = 'Datos de la direcci'#243'n de entrega:'
ClientHeight = 257
ClientWidth = 453
Color = clBtnFace
ParentFont = True
OldCreateOrder = True
Position = poOwnerFormCenter
OnClose = FormClose
OnShow = FormShow
DesignSize = (
453
257)
PixelsPerInch = 96
TextHeight = 13
object Bevel1: TBevel
Left = 8
Top = 14
Width = 349
Height = 225
Anchors = [akLeft, akTop, akRight]
Shape = bsFrame
end
object Label1: TLabel
Left = 20
Top = 25
Width = 110
Height = 13
AutoSize = False
Caption = 'Direcci'#243'n:'
end
object Label2: TLabel
Left = 20
Top = 89
Width = 110
Height = 13
AutoSize = False
Caption = 'Poblaci'#243'n:'
end
object Label3: TLabel
Left = 20
Top = 117
Width = 110
Height = 13
AutoSize = False
Caption = 'Provincia:'
end
object Label4: TLabel
Left = 20
Top = 143
Width = 110
Height = 13
AutoSize = False
Caption = 'C'#243'digo postal:'
end
object Label6: TLabel
Left = 20
Top = 185
Width = 109
Height = 13
AutoSize = False
Caption = 'Persona de contacto:'
end
object Label7: TLabel
Left = 21
Top = 210
Width = 109
Height = 13
AutoSize = False
Caption = 'Tel'#233'fono:'
end
object OKBtn: TButton
Left = 370
Top = 13
Width = 75
Height = 25
Anchors = [akTop, akRight]
Caption = '&Aceptar'
Default = True
ModalResult = 1
TabOrder = 0
end
object CancelBtn: TButton
Left = 370
Top = 44
Width = 75
Height = 25
Anchors = [akTop, akRight]
Cancel = True
Caption = '&Cancelar'
ModalResult = 2
TabOrder = 1
end
object eDireccion2: TDBEdit
Left = 135
Top = 23
Width = 210
Height = 57
AutoSelect = False
AutoSize = False
DataField = 'CALLE'
DataSource = dsDireccion
TabOrder = 2
end
object ePoblacion: TDBEdit
Left = 135
Top = 86
Width = 210
Height = 21
DataField = 'POBLACION'
DataSource = dsDireccion
TabOrder = 3
end
object eProvincia: TDBEdit
Left = 135
Top = 114
Width = 210
Height = 21
DataField = 'PROVINCIA'
DataSource = dsDireccion
TabOrder = 4
end
object eCodigoPostal: TDBEdit
Left = 135
Top = 140
Width = 210
Height = 21
DataField = 'CODIGO_POSTAL'
DataSource = dsDireccion
TabOrder = 5
end
object ePersonaContacto: TDBEdit
Left = 135
Top = 182
Width = 210
Height = 21
DataField = 'PERSONA_CONTACTO'
DataSource = dsDireccion
TabOrder = 6
end
object eTelefono: TDBEdit
Left = 136
Top = 207
Width = 210
Height = 21
DataField = 'TELEFONO'
DataSource = dsDireccion
TabOrder = 7
end
object eDireccion: TcxDBMemo
Left = 134
Top = 22
DataBinding.DataField = 'CALLE'
DataBinding.DataSource = dsDireccion
TabOrder = 8
Height = 58
Width = 211
end
object dsDireccion: TDADataSource
Left = 16
Top = 46
end
end

93
Source/Modulos/Albaranes de cliente/Views/uEditorDireccionEntregaAlbaranCliente.pas Normal file
View File

@ -0,0 +1,93 @@
unit uEditorDireccionEntregaAlbaranCliente;
interface
uses Windows, SysUtils, Classes, Graphics, Forms, Controls, StdCtrls,
Buttons, ExtCtrls, Mask, DBCtrls, DB, uDADataTable,
cxControls, cxContainer, cxEdit, cxTextEdit, cxDBEdit,
uIEditorDireccionEntregaAlbaranCliente, uBizAlbaranesCliente, uDAInterfaces,
cxMemo;
type
TfEditorDireccionEntregaAlbaranCliente = class(TForm, IEditorDireccionEntregaAlbaranCliente)
OKBtn: TButton;
CancelBtn: TButton;
Bevel1: TBevel;
eDireccion2: TDBEdit;
ePoblacion: TDBEdit;
eProvincia: TDBEdit;
eCodigoPostal: TDBEdit;
Label1: TLabel;
Label2: TLabel;
Label3: TLabel;
Label4: TLabel;
dsDireccion: TDADataSource;
Label6: TLabel;
ePersonaContacto: TDBEdit;
Label7: TLabel;
eTelefono: TDBEdit;
eDireccion: TcxDBMemo;
procedure FormShow(Sender: TObject);
procedure FormClose(Sender: TObject; var Action: TCloseAction);
private
pDireccion: String;
pPoblacion: String;
pProvincia: String;
pCodigoPostal: String;
pPersonaContacto: String;
pTelefono: String;
FAlbaran : IBizAlbaranCliente;
function GetAlbaran: IBizAlbaranCliente;
procedure SetAlbaran(const Value: IBizAlbaranCliente);
property Albaran: IBizAlbaranCliente read GetAlbaran write SetAlbaran;
end;
implementation
{$R *.dfm}
{ TfEditorDireccionEntrega }
procedure TfEditorDireccionEntregaAlbaranCliente.FormClose(Sender: TObject; var Action: TCloseAction);
begin
//En el caso de cancelar se recuperan los valores iniciales
if (Self.ModalResult <> mrOk) and (dsDireccion.DataTable.State in dsEditModes) then
begin
eDireccion.EditValue := pDireccion;
ePoblacion.Field.Value := pPoblacion;
eProvincia.Field.Value := pProvincia;
eCodigoPostal.Field.Value := pCodigoPostal;
ePersonaContacto.Field.Value := pPersonaContacto;
eTelefono.Field.Value := pTelefono;
end;
end;
procedure TfEditorDireccionEntregaAlbaranCliente.FormShow(Sender: TObject);
begin
//Guardamos los valores iniciales por si al final el usuario cancela
pDireccion := eDireccion.Text;
pPoblacion := ePoblacion.Text;
pProvincia := eProvincia.Text;
pCodigoPostal := eCodigoPostal.Text;
pPersonaContacto := ePersonaContacto.Text;
pTelefono := eTelefono.Text;
end;
function TfEditorDireccionEntregaAlbaranCliente.GetAlbaran: IBizAlbaranCliente;
begin
Result := FAlbaran;
end;
procedure TfEditorDireccionEntregaAlbaranCliente.SetAlbaran(const Value: IBizAlbaranCliente);
begin
FAlbaran := Value;
if Assigned(FAlbaran) then
dsDireccion.DataTable := FAlbaran.DataTable
else
dsDireccion.DataTable := NIL;
end;
end.

93
Source/Modulos/Albaranes de cliente/Views/uViewAlbaranCliente.dfm
View File

@ -1,26 +1,25 @@
inherited frViewAlbaranCliente: TfrViewAlbaranCliente
Width = 851
Height = 512
Width = 1057
Height = 671
OnCreate = CustomViewCreate
OnDestroy = CustomViewDestroy
ExplicitWidth = 851
ExplicitHeight = 512
ExplicitWidth = 1057
ExplicitHeight = 671
object dxLayoutControl1: TdxLayoutControl
Left = 0
Top = 0
Width = 851
Height = 512
Width = 1057
Height = 671
Align = alClient
ParentBackground = True
TabOrder = 0
TabStop = False
AutoContentSizes = [acsWidth, acsHeight]
ExplicitWidth = 825
DesignSize = (
851
512)
1057
671)
object Label1: TLabel
Left = 353
Left = 437
Top = 622
Width = 299
Height = 26
@ -82,7 +81,7 @@ inherited frViewAlbaranCliente: TfrViewAlbaranCliente
Width = 284
end
inline frViewClienteAlbaran: TfrViewDatosYSeleccionClienteAlbaran
Left = 353
Left = 437
Top = 28
Width = 442
Height = 221
@ -94,7 +93,7 @@ inherited frViewAlbaranCliente: TfrViewAlbaranCliente
ParentFont = False
TabOrder = 10
ReadOnly = False
ExplicitLeft = 353
ExplicitLeft = 437
ExplicitTop = 28
ExplicitWidth = 442
ExplicitHeight = 221
@ -103,36 +102,10 @@ inherited frViewAlbaranCliente: TfrViewAlbaranCliente
Height = 221
ExplicitWidth = 442
ExplicitHeight = 221
inherited edtlNombre: TcxDBTextEdit
ExplicitWidth = 224
Width = 224
end
inherited edtNIFCIF: TcxDBTextEdit
ExplicitWidth = 103
Width = 103
end
inherited bVerFichaCliente: TBitBtn
Left = 255
ExplicitLeft = 255
end
inherited edtDireccion: TcxMemo
ExplicitWidth = 437
Width = 437
end
inherited bElegirDireccion: TButton
Left = 424
ExplicitLeft = 424
end
inherited edtTelefonos: TcxTextEdit
ExplicitWidth = 193
Width = 193
end
inherited edtReferencia: TcxDBTextEdit
Left = 289
ExplicitLeft = 289
ExplicitWidth = 103
Width = 103
end
end
inherited ActionList1: TActionList
Left = 306
@ -142,7 +115,7 @@ inherited frViewAlbaranCliente: TfrViewAlbaranCliente
end
end
object eCalle: TcxDBTextEdit
Left = 447
Left = 531
Top = 396
DataBinding.DataField = 'CALLE'
DataBinding.DataSource = DADataSource
@ -161,7 +134,7 @@ inherited frViewAlbaranCliente: TfrViewAlbaranCliente
Width = 284
end
object ePoblacion: TcxDBTextEdit
Left = 447
Left = 531
Top = 423
DataBinding.DataField = 'POBLACION'
DataBinding.DataSource = DADataSource
@ -180,7 +153,7 @@ inherited frViewAlbaranCliente: TfrViewAlbaranCliente
Width = 61
end
object eCodigoPostal: TcxDBTextEdit
Left = 745
Left = 951
Top = 423
DataBinding.DataField = 'CODIGO_POSTAL'
DataBinding.DataSource = DADataSource
@ -199,7 +172,7 @@ inherited frViewAlbaranCliente: TfrViewAlbaranCliente
Width = 65
end
object eProvincia: TcxDBTextEdit
Left = 447
Left = 531
Top = 450
DataBinding.DataField = 'PROVINCIA'
DataBinding.DataSource = DADataSource
@ -218,7 +191,7 @@ inherited frViewAlbaranCliente: TfrViewAlbaranCliente
Width = 406
end
object ePersonaContacto: TcxDBTextEdit
Left = 447
Left = 531
Top = 477
DataBinding.DataField = 'PERSONA_CONTACTO'
DataBinding.DataSource = DADataSource
@ -238,7 +211,7 @@ inherited frViewAlbaranCliente: TfrViewAlbaranCliente
Width = 284
end
object eTlfTrabajo: TcxDBTextEdit
Left = 447
Left = 531
Top = 504
DataBinding.DataField = 'TELEFONO'
DataBinding.DataSource = DADataSource
@ -257,16 +230,16 @@ inherited frViewAlbaranCliente: TfrViewAlbaranCliente
Width = 284
end
object bElegirDireccion: TBitBtn
Left = 638
Left = 844
Top = 531
Width = 172
Height = 23
Action = actElegirDireccion
Caption = 'Elegir una direcci'#243'n de env'#237'o...'
Action = actModificarDireccion
Caption = 'Modificar la direcci'#243'n'
TabOrder = 20
end
object Button1: TButton
Left = 191
Left = 275
Top = 138
Width = 132
Height = 23
@ -328,7 +301,7 @@ inherited frViewAlbaranCliente: TfrViewAlbaranCliente
Width = 146
end
object bFormasPago: TButton
Left = 191
Left = 275
Top = 109
Width = 132
Height = 23
@ -337,7 +310,7 @@ inherited frViewAlbaranCliente: TfrViewAlbaranCliente
OnClick = bFormasPagoClick
end
object eFechaRecepcion: TcxDBDateEdit
Left = 487
Left = 571
Top = 339
Anchors = [akLeft, akTop, akRight]
DataBinding.DataField = 'FECHA_RECEPCION'
@ -362,7 +335,7 @@ inherited frViewAlbaranCliente: TfrViewAlbaranCliente
Width = 239
end
object cbConAlmacen: TCheckBox
Left = 363
Left = 447
Top = 590
Width = 179
Height = 21
@ -371,7 +344,7 @@ inherited frViewAlbaranCliente: TfrViewAlbaranCliente
OnClick = cbConAlmacenClick
end
object cbAlmacen: TcxDBLookupComboBox
Left = 548
Left = 632
Top = 590
DataBinding.DataField = 'ID_ALMACEN'
DataBinding.DataSource = DADataSource
@ -427,7 +400,7 @@ inherited frViewAlbaranCliente: TfrViewAlbaranCliente
Width = 284
end
object eFechaPrevista: TcxDBDateEdit
Left = 487
Left = 571
Top = 285
Anchors = [akLeft, akTop, akRight]
DataBinding.DataField = 'FECHA_PREVISTA_ENVIO'
@ -478,7 +451,7 @@ inherited frViewAlbaranCliente: TfrViewAlbaranCliente
Width = 284
end
object eFechaEnvio: TcxDBDateEdit
Left = 487
Left = 571
Top = 312
Anchors = [akLeft, akTop, akRight]
DataBinding.DataField = 'FECHA_ENVIO'
@ -710,8 +683,7 @@ inherited frViewAlbaranCliente: TfrViewAlbaranCliente
object dxLayoutControl1Group8: TdxLayoutGroup
AutoAligns = []
AlignHorz = ahClient
Caption = 'Direcci'#243'n de entrega'
Visible = False
Caption = 'Direcci'#243'n de entrega / obra'
object dxLayoutControl1Item8: TdxLayoutItem
Caption = 'Calle:'
Control = eCalle
@ -752,7 +724,7 @@ inherited frViewAlbaranCliente: TfrViewAlbaranCliente
ControlOptions.ShowBorder = False
end
object dxLayoutControl1Item13: TdxLayoutItem
Caption = 'Tel'#233'fono:'
Caption = 'Tel'#233'fonos:'
Control = eTlfTrabajo
ControlOptions.ShowBorder = False
end
@ -805,8 +777,11 @@ inherited frViewAlbaranCliente: TfrViewAlbaranCliente
object ActionList1: TActionList
Left = 24
Top = 48
object actElegirDireccion: TAction
Caption = 'Elegir una direcci'#243'n de env'#237'o...'
object actModificarDireccion: TAction
Caption = 'Modificar la direcci'#243'n'
Enabled = False
Visible = False
OnExecute = actModificarDireccionExecute
end
object actVerPedidoCli: TAction
Caption = 'Ver el pedido de cliente...'

12
Source/Modulos/Albaranes de cliente/Views/uViewAlbaranCliente.pas
View File

@ -62,7 +62,7 @@ type
dxLayoutControl1Item14: TdxLayoutItem;
bElegirDireccion: TBitBtn;
ActionList1: TActionList;
actElegirDireccion: TAction;
actModificarDireccion: TAction;
Button1: TButton;
dxLayoutControl1Item5: TdxLayoutItem;
actVerPedidoCli: TAction;
@ -119,6 +119,7 @@ type
procedure frViewClienteAlbaranButton1Click(Sender: TObject);
procedure frViewClienteAlbaranButton2Click(Sender: TObject);
procedure frViewClienteAlbaranactAnadirContactoUpdate(Sender: TObject);
procedure actModificarDireccionExecute(Sender: TObject);
protected
FAlbaran : IBizAlbaranCliente;
@ -152,6 +153,12 @@ uses
uDialogUtils, uFactuGES_App;
procedure TfrViewAlbaranCliente.actModificarDireccionExecute(Sender: TObject);
begin
inherited;
FController.VerDireccionEntrega(FAlbaran);
end;
procedure TfrViewAlbaranCliente.actVerPedidoCliExecute(Sender: TObject);
begin
inherited;
@ -196,6 +203,8 @@ begin
inherited;
FFormasPago := Nil;
FFormasPagoController := TFormasPagoController.Create;
FController := NIL;
FController := TAlbaranesClienteController.Create;
// FPedidoAsociado := NIL;
// FPedidoController := TPedidosClienteController.Create;
FViewClienteAlbaran := frViewClienteAlbaran;
@ -207,6 +216,7 @@ begin
inherited;
FFormasPago := Nil;
FFormasPagoController := NIL;
FController := NIL;
FViewClienteAlbaran := Nil;
// FPedidoController := NIL;
// FPedidoAsociado := NIL;

19
Source/Modulos/Albaranes de cliente/Views/uViewDireccionEntregaAlbaranCliente.dfm
View File

@ -1,17 +1,20 @@
inherited frViewDireccionEntregaAlbaranCliente: TfrViewDireccionEntregaAlbaranCliente
Width = 337
Height = 129
ExplicitWidth = 337
ExplicitHeight = 129
Width = 420
Height = 156
ExplicitWidth = 420
ExplicitHeight = 156
object dxLayoutControl1: TdxLayoutControl
Left = 0
Top = 0
Width = 337
Height = 129
Width = 420
Height = 156
Align = alClient
ParentBackground = True
TabOrder = 0
TabStop = False
AutoContentSizes = [acsWidth, acsHeight]
ExplicitWidth = 337
ExplicitHeight = 129
object eCalle: TcxDBTextEdit
Left = 64
Top = 10
@ -70,7 +73,7 @@ inherited frViewDireccionEntregaAlbaranCliente: TfrViewDireccionEntregaAlbaranCl
Width = 281
end
object eCodigoPostal: TcxDBTextEdit
Left = 262
Left = 345
Top = 37
DataBinding.DataField = 'CODIGO_POSTAL'
DataBinding.DataSource = dsAlbaran
@ -89,7 +92,7 @@ inherited frViewDireccionEntregaAlbaranCliente: TfrViewDireccionEntregaAlbaranCl
Width = 65
end
object eTlfTrabajo: TcxDBTextEdit
Left = 205
Left = 288
Top = 91
DataBinding.DataField = 'TELEFONO'
DataBinding.DataSource = dsAlbaran

8
Source/Modulos/Albaranes de proveedor/Model/uBizAlbaranesProveedor.pas
View File

@ -58,7 +58,7 @@ type
procedure SetID_ALMACENValue(const aValue: Integer); override;
procedure SetID_FACTURAValue(const aValue: Integer); override;
procedure SetID_FORMA_PAGOValue(const aValue: Integer); override;
procedure SetID_TIENDAValue(const aValue: Integer);
procedure SetID_TIENDAValue(const aValue: Integer);
procedure IMPORTE_NETOOnChange(Sender: TDACustomField);
procedure IMPORTE_PORTEOnChange(Sender: TDACustomField);
@ -86,7 +86,7 @@ type
implementation
uses
SysUtils, Variants, uDataModuleConfiguracion, uDataModuleUsuarios,
SysUtils, Variants, uDataModuleConfiguracion, uDataModuleUsuarios, uNumUtils,
uDataTableUtils, DateUtils, uDateUtils, DB, uFactuGES_App, uBizEmpresasTiendas;
{ TBizAlbaranProveedor }
@ -95,7 +95,7 @@ procedure TBizAlbaranProveedor.CalcularBaseImponible;
begin
if not Self.DataTable.Editing then
Edit;
IMPORTE_DESCUENTO := IMPORTE_NETO * (DESCUENTO/100);
IMPORTE_DESCUENTO := roundCurrency(IMPORTE_NETO * (DESCUENTO/100));
BASE_IMPONIBLE := IMPORTE_NETO - IMPORTE_DESCUENTO; //+ IMPORTE_PORTE; ya no se tiene en cuenta porque se desglosa por artículo
end;
@ -120,7 +120,7 @@ procedure TBizAlbaranProveedor.CalcularIVA;
begin
if not Self.DataTable.Editing then
Edit;
IMPORTE_IVA := (IVA / 100) * (BASE_IMPONIBLE);
IMPORTE_IVA := roundCurrency((IVA / 100) * (BASE_IMPONIBLE));
end;
constructor TBizAlbaranProveedor.Create(aDataTable: TDADataTable);

4
Source/Modulos/Comisiones/Controller/uComisionesController.pas
View File

@ -69,7 +69,7 @@ uses
Variants, Dialogs, cxControls, DB, uEditorRegistryUtils, schComisionesClient_Intf,
uIEditorComisiones, uDataModuleComisiones, uDataModuleUsuarios, uFactuGES_App,
uDAInterfaces, uDataTableUtils, uIEditorComision, uComisionesReportController,
uDateUtils, uROTypes, DateUtils, Controls, Windows, uDialogUtils,
uDateUtils, uROTypes, DateUtils, Controls, Windows, uDialogUtils, uNumUtils,
uBizContactos, uVendedoresController, uBizFacturasCliente, uFacturasClienteController;
@ -516,7 +516,7 @@ begin
while not AComision.Vendedores.DataTable.EOF do
begin
AComision.Vendedores.Edit;
AComision.Vendedores.IMPORTE_TOTAL := ((AComision.Vendedores.COMISION / 100) * ImporteTotal);
AComision.Vendedores.IMPORTE_TOTAL := roundCurrency(((AComision.Vendedores.COMISION / 100) * ImporteTotal));
AComision.Vendedores.Post;
AComision.Vendedores.DataTable.Next;
end;

9
Source/Modulos/Contactos/Controller/uContactosController.pas
View File

@ -7,7 +7,7 @@ uses
Windows, Forms, Classes, Controls, Contnrs, SysUtils, uDADataTable,
uBizContactos, uBizContactosDatosBancarios, uIDataModuleContactos,
uBizDireccionesContacto, uDireccionesContactoController,
uControllerBase, uBizContactosPersonal;
uControllerBase, uBizContactosPersonal, uBizContactosDirecciones;
type
IContactosController = interface(IControllerBase)
@ -34,6 +34,7 @@ type
function ElegirPersonaContacto(APersonal: IBizContactoPersonal;
AMensaje: String): IBizContactoPersonal;
function DarDireccionSocial(AContacto : IBizContacto): IBizDireccionesContacto;
function DarTodasDirecciones(const IDContacto : Integer): IBizContactosDirecciones;
end;
TContactosController = class(TControllerBase, IContactosController)
@ -69,6 +70,7 @@ type
function ElegirPersonaContacto(APersonal: IBizContactoPersonal;
AMensaje: String): IBizContactoPersonal;
function DarDireccionSocial(AContacto : IBizContacto): IBizDireccionesContacto;
function DarTodasDirecciones(const IDContacto : Integer): IBizContactosDirecciones;
end;
implementation
@ -146,6 +148,11 @@ begin
end;
end;
function TContactosController.DarTodasDirecciones(const IDContacto: Integer): IBizContactosDirecciones;
begin
Result := FDataModule.GetContactoDirecciones(IDContacto);
end;
procedure TContactosController.DescartarCambios(AContacto: IBizContacto);
begin
if not Assigned(AContacto) then

81
Source/Modulos/Contactos/Data/uDataModuleContactos.dfm
View File

@ -520,4 +520,85 @@ inherited DataModuleContactos: TDataModuleContactos
Left = 296
Top = 80
end
object tbl_ContactosDirecciones: TDAMemDataTable
RemoteUpdatesOptions = []
Fields = <
item
Name = 'ID_CONTACTO'
DataType = datInteger
InPrimaryKey = True
end
item
Name = 'ID_DIRECCION'
DataType = datInteger
end
item
Name = 'NOMBRE'
DataType = datString
Size = 255
end
item
Name = 'NIF_CIF'
DataType = datString
Size = 15
end
item
Name = 'CALLE'
DataType = datString
Size = 255
end
item
Name = 'POBLACION'
DataType = datString
Size = 255
end
item
Name = 'PROVINCIA'
DataType = datString
Size = 255
end
item
Name = 'CODIGO_POSTAL'
DataType = datString
Size = 10
end
item
Name = 'TELEFONO'
DataType = datString
Size = 25
end
item
Name = 'MOVIL'
DataType = datString
Size = 25
end
item
Name = 'FAX'
DataType = datString
Size = 25
end
item
Name = 'EMAIL'
DataType = datString
Size = 255
end
item
Name = 'PERSONA_CONTACTO'
DataType = datString
Size = 255
end>
Params = <>
StreamingOptions = [soDisableEventsWhileStreaming]
RemoteDataAdapter = rda_Contactos
LogicalName = 'ContactosDirecciones'
IndexDefs = <>
Left = 304
Top = 168
end
object ds_ContactosDirecciones: TDADataSource
DataSet = tbl_ContactosDirecciones.Dataset
DataTable = tbl_ContactosDirecciones
Left = 304
Top = 232
end
end

38
Source/Modulos/Contactos/Data/uDataModuleContactos.pas
View File

@ -11,7 +11,7 @@ uses
uBizDireccionesContacto, uIDataModuleEtiquetasContactosReport,
uIDataModuleContactos, uDADesigntimeCall, uROTypes, uRODynamicRequest,
uDAInterfaces, uDADataStreamer, uDARemoteDataAdapter, uDABin2DataStreamer,
uDAMemDataTable, uDataModuleBase, uBizContactosPersonal;
uDAMemDataTable, uDataModuleBase, uBizContactosPersonal, uBizContactosDirecciones;
type
TDataModuleContactos = class(TDataModuleBase, IDataModuleContactos, IDataModuleEtiquetasContactosReport)
@ -26,6 +26,8 @@ type
ds_DatosBancarios: TDADataSource;
tbl_PersonalContacto: TDAMemDataTable;
ds_PersonalContacto: TDADataSource;
tbl_ContactosDirecciones: TDAMemDataTable;
ds_ContactosDirecciones: TDADataSource;
procedure DAClientDataModuleCreate(Sender: TObject);
procedure DataModuleDestroy(Sender: TObject);
public
@ -34,6 +36,9 @@ type
function _GetPersonal: IBizContactoPersonal;
function _GetItems (IDCategoria : Integer): IBizContacto; virtual;
function NewDireccion : IBizDireccionesContacto;
function GetContactosDirecciones : IBizContactosDirecciones;
function GetContactoDirecciones(const IDContacto: Integer) : IBizContactosDirecciones;
// Report
function GetReport(const ListaID: TIntegerList): Binary;
@ -60,6 +65,37 @@ begin
//
end;
function TDataModuleContactos.GetContactoDirecciones(const IDContacto: Integer): IBizContactosDirecciones;
begin
ShowHourglassCursor;
try
Result := Self.GetContactosDirecciones;
with Result.DataTable.DynamicWhere do
begin
Clear;
// (ID = :ID)
Expression := NewBinaryExpression(NewField('', fld_ContactosDireccionesID_CONTACTO), NewConstant(IDContacto, datInteger), dboEqual);
end;
finally
HideHourglassCursor;
end;
end;
function TDataModuleContactos.GetContactosDirecciones: IBizContactosDirecciones;
var
ADirecciones : TDAMemDataTable;
begin
ShowHourglassCursor;
try
ADirecciones := CloneDataTable(tbl_ContactosDirecciones);
ADirecciones.BusinessRulesID := BIZ_CLIENT_CONTACTOS_DIRECCIONES;
Result := (ADirecciones as IBizContactosDirecciones);
finally
HideHourglassCursor;
end;
end;
function TDataModuleContactos.GetReport(const ListaID: TIntegerList): Binary;
var
AParam : TIntegerArray;

BIN
Source/Modulos/Contactos/Model/Contactos_model.dpk
View File

Binary file not shown.

31
Source/Modulos/Contactos/Model/Contactos_model.dproj
View File

@ -49,38 +49,39 @@
<DelphiCompile Include="Contactos_model.dpk">
<MainSource>MainSource</MainSource>
</DelphiCompile>
<DCCReference Include="..\..\..\Servidor\adortl.dcp" />
<DCCReference Include="..\..\..\Servidor\ApplicationBase.dcp" />
<DCCReference Include="..\..\..\Servidor\Base.dcp" />
<DCCReference Include="..\..\..\Servidor\DataAbstract_Core_D11.dcp" />
<DCCReference Include="..\..\..\Servidor\dbrtl.dcp" />
<DCCReference Include="..\..\..\Servidor\dsnap.dcp" />
<DCCReference Include="..\..\..\Servidor\FormasPago_controller.dcp" />
<DCCReference Include="..\..\..\Servidor\FormasPago_model.dcp" />
<DCCReference Include="..\..\..\Servidor\GUIBase.dcp" />
<DCCReference Include="..\..\..\Servidor\RemObjects_Core_D11.dcp" />
<DCCReference Include="..\..\..\Servidor\rtl.dcp" />
<DCCReference Include="..\..\..\Servidor\TiposIVA_controller.dcp" />
<DCCReference Include="..\..\..\Servidor\TiposIVA_model.dcp" />
<DCCReference Include="..\..\..\Servidor\vcl.dcp" />
<DCCReference Include="..\..\..\Servidor\vcldb.dcp" />
<DCCReference Include="..\Utiles\uRegimenIVAUtils.pas" />
<DCCReference Include="adortl.dcp" />
<DCCReference Include="ApplicationBase.dcp" />
<DCCReference Include="Base.dcp" />
<DCCReference Include="DataAbstract_Core_D11.dcp" />
<DCCReference Include="Data\uIDataModuleClientes.pas" />
<DCCReference Include="Data\uIDataModuleContactos.pas" />
<DCCReference Include="Data\uIDataModuleEtiquetasContactosReport.pas" />
<DCCReference Include="Data\uIDataModuleProveedores.pas" />
<DCCReference Include="Data\uIDataModuleVendedores.pas" />
<DCCReference Include="dbrtl.dcp" />
<DCCReference Include="dsnap.dcp" />
<DCCReference Include="FormasPago_controller.dcp" />
<DCCReference Include="FormasPago_model.dcp" />
<DCCReference Include="GUIBase.dcp" />
<DCCReference Include="RemObjects_Core_D11.dcp" />
<DCCReference Include="rtl.dcp" />
<DCCReference Include="schContactosClient_Intf.pas" />
<DCCReference Include="schContactosServer_Intf.pas" />
<DCCReference Include="TiposIVA_controller.dcp" />
<DCCReference Include="TiposIVA_model.dcp" />
<DCCReference Include="uBizClientesDescuentos.pas" />
<DCCReference Include="uBizContactos.pas" />
<DCCReference Include="uBizContactosDatosBancarios.pas" />
<DCCReference Include="uBizContactosDirecciones.pas" />
<DCCReference Include="uBizContactosPersonal.pas" />
<DCCReference Include="uBizDireccionesContacto.pas" />
<DCCReference Include="uBizGruposCliente.pas" />
<DCCReference Include="uBizGruposProveedor.pas" />
<DCCReference Include="uBizProcedenciasCliente.pas" />
<DCCReference Include="uBizSubCuentasContacto.pas" />
<DCCReference Include="vcl.dcp" />
<DCCReference Include="vcldb.dcp" />
</ItemGroup>
</Project>
<!-- EurekaLog First Line

3
Source/Modulos/Contactos/Model/Data/uIDataModuleContactos.pas
View File

@ -5,7 +5,7 @@ interface
uses
SysUtils, Classes,
uBizContactos, uBizContactosDatosBancarios, uBizDireccionesContacto,
uBizContactosPersonal;
uBizContactosPersonal, uBizContactosDirecciones;
type
IDataModuleContactos = interface
@ -15,6 +15,7 @@ type
function _GetDirecciones: IBizDireccionesContacto;
function _GetPersonal: IBizContactoPersonal;
function NewDireccion : IBizDireccionesContacto;
function GetContactoDirecciones(const IDContacto: Integer) : IBizContactosDirecciones;
end;
implementation

557
Source/Modulos/Contactos/Model/schContactosClient_Intf.pas
View File

@ -9,21 +9,22 @@ const
{ Data table rules ids
Feel free to change them to something more human readable
but make sure they are unique in the context of your application }
RID_DarEmpresasContacto = '{58E62884-DAB2-4BFB-9516-C13717F291C2}';
RID_PersonalContacto = '{214169EF-F12D-4BE7-AABF-5499A0D8CDF6}';
RID_DarTiendaDeUsuario = '{D114647A-13A4-45F7-A8E2-AC09DBEFB3FD}';
RID_SubCuentasContacto = '{CCC26472-7C6F-4A13-8F70-E2DC0BF0C905}';
RID_Contactos = '{58D64E83-ADF0-4ABD-A668-8AFD03B00945}';
RID_GruposCliente = '{C332625A-341F-46A6-9B46-9F6F5605955F}';
RID_DatosBancarios = '{4D242F5D-4039-44A6-95DC-3BD871441FE5}';
RID_Clientes = '{F9E03EE6-4565-4A18-B2DC-8344F99CBD09}';
RID_Proveedores = '{1704A814-F561-4A89-BA3E-499BB9F93AE0}';
RID_Vendedores = '{C64DC799-D8AB-4A54-A04C-ABF0CD2FE692}';
RID_DireccionesContacto = '{F62E139F-0FEA-4783-A91F-8AE0F2F71FA0}';
RID_ClientesDescuentos = '{276E724A-6EC8-4AE1-8671-C29BA7DE5690}';
RID_ProcedenciasCliente = '{51321FDE-622B-4214-9938-F53170B49037}';
RID_GruposProveedor = '{40963BA2-9BFD-499C-A46A-7B0579A135FC}';
RID_Contactos_Refresh = '{858999BC-7D57-4C87-B551-B8707D78B938}';
RID_DarEmpresasContacto = '{1FB36DE6-DC23-42C7-B954-A3A24ECE311D}';
RID_PersonalContacto = '{70DDA4E3-5FEA-49F1-9C45-8BE8D2C082D5}';
RID_DarTiendaDeUsuario = '{2DF17380-C5A2-4406-A6A6-2F212AEBB047}';
RID_SubCuentasContacto = '{2D727D73-861E-49C8-B1B5-764B64B8A412}';
RID_Contactos = '{1568D3C5-32D9-4C7C-B8C9-1476AABB4F50}';
RID_GruposCliente = '{C6EF793B-FAF7-4E3F-8C6C-4B01F45B3522}';
RID_DatosBancarios = '{A79EE7C9-DB26-4A0B-90D3-C25CE6CFE15A}';
RID_ContactosDirecciones = '{AAD0256D-CD6A-4205-9ACB-47D091882E9E}';
RID_Clientes = '{D02B22B8-1E2E-4C0B-9705-781B2C4A41CD}';
RID_Proveedores = '{4714CC20-8D74-4550-BE55-F779D8B69651}';
RID_Vendedores = '{14779032-5C76-48F8-A515-7B4F256A581B}';
RID_DireccionesContacto = '{B72D9E4D-E41D-4CCD-97F2-9DB4EBC188F1}';
RID_ClientesDescuentos = '{BA67190A-1ACE-4404-95FA-122BB4FDFA8F}';
RID_ProcedenciasCliente = '{788EE266-FBF8-4D9A-B379-3E2F606C556C}';
RID_GruposProveedor = '{1C1C218A-93F5-47BD-BED8-59F677691E59}';
RID_Contactos_Refresh = '{D6E514CB-6FB8-4E7F-A356-E1B5CF83F38E}';
{ Data table names }
nme_DarEmpresasContacto = 'DarEmpresasContacto';
@ -33,6 +34,7 @@ const
nme_Contactos = 'Contactos';
nme_GruposCliente = 'GruposCliente';
nme_DatosBancarios = 'DatosBancarios';
nme_ContactosDirecciones = 'ContactosDirecciones';
nme_Clientes = 'Clientes';
nme_Proveedores = 'Proveedores';
nme_Vendedores = 'Vendedores';
@ -182,6 +184,36 @@ const
idx_DatosBancariosIBAN = 9;
idx_DatosBancariosSWIFT = 10;
{ ContactosDirecciones fields }
fld_ContactosDireccionesID_CONTACTO = 'ID_CONTACTO';
fld_ContactosDireccionesID_DIRECCION = 'ID_DIRECCION';
fld_ContactosDireccionesNOMBRE = 'NOMBRE';
fld_ContactosDireccionesNIF_CIF = 'NIF_CIF';
fld_ContactosDireccionesCALLE = 'CALLE';
fld_ContactosDireccionesPOBLACION = 'POBLACION';
fld_ContactosDireccionesPROVINCIA = 'PROVINCIA';
fld_ContactosDireccionesCODIGO_POSTAL = 'CODIGO_POSTAL';
fld_ContactosDireccionesTELEFONO = 'TELEFONO';
fld_ContactosDireccionesMOVIL = 'MOVIL';
fld_ContactosDireccionesFAX = 'FAX';
fld_ContactosDireccionesEMAIL = 'EMAIL';
fld_ContactosDireccionesPERSONA_CONTACTO = 'PERSONA_CONTACTO';
{ ContactosDirecciones field indexes }
idx_ContactosDireccionesID_CONTACTO = 0;
idx_ContactosDireccionesID_DIRECCION = 1;
idx_ContactosDireccionesNOMBRE = 2;
idx_ContactosDireccionesNIF_CIF = 3;
idx_ContactosDireccionesCALLE = 4;
idx_ContactosDireccionesPOBLACION = 5;
idx_ContactosDireccionesPROVINCIA = 6;
idx_ContactosDireccionesCODIGO_POSTAL = 7;
idx_ContactosDireccionesTELEFONO = 8;
idx_ContactosDireccionesMOVIL = 9;
idx_ContactosDireccionesFAX = 10;
idx_ContactosDireccionesEMAIL = 11;
idx_ContactosDireccionesPERSONA_CONTACTO = 12;
{ Clientes fields }
fld_ClientesID = 'ID';
fld_ClientesID_CATEGORIA = 'ID_CATEGORIA';
@ -535,7 +567,7 @@ const
type
{ IDarEmpresasContacto }
IDarEmpresasContacto = interface(IDAStronglyTypedDataTable)
['{85336C50-EC65-4F37-B184-3344A320D616}']
['{0CC91EA2-C5BB-4189-926A-822047027C13}']
{ Property getters and setters }
function GetID_EMPRESAValue: Integer;
procedure SetID_EMPRESAValue(const aValue: Integer);
@ -570,7 +602,7 @@ type
{ IPersonalContacto }
IPersonalContacto = interface(IDAStronglyTypedDataTable)
['{9EFA3514-D4B7-4FEF-9032-A739905E0E18}']
['{404F0756-744A-4575-B2DB-1D739E395CF8}']
{ Property getters and setters }
function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer);
@ -713,7 +745,7 @@ type
{ IDarTiendaDeUsuario }
IDarTiendaDeUsuario = interface(IDAStronglyTypedDataTable)
['{F0D24CEA-B4C6-4EB9-8413-08139589A497}']
['{AA525615-6715-413D-8519-32BC6F62DE6E}']
{ Property getters and setters }
function GetID_TIENDAValue: Integer;
procedure SetID_TIENDAValue(const aValue: Integer);
@ -748,7 +780,7 @@ type
{ ISubCuentasContacto }
ISubCuentasContacto = interface(IDAStronglyTypedDataTable)
['{80F8562F-83E6-41BD-B9FD-745B5D313EA0}']
['{7B676FC7-57FC-4939-9D00-08D59EAABB1C}']
{ Property getters and setters }
function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer);
@ -843,7 +875,7 @@ type
{ IContactos }
IContactos = interface(IDAStronglyTypedDataTable)
['{1DFD9E61-3525-4467-BE11-4CDAB0B4BDA7}']
['{A0FD48D8-831A-4051-868B-3172FFAE1B6E}']
{ Property getters and setters }
function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer);
@ -1166,7 +1198,7 @@ type
{ IGruposCliente }
IGruposCliente = interface(IDAStronglyTypedDataTable)
['{C23BA26B-9654-4A64-AA7E-E7A2D509FD4F}']
['{E661AFFB-934F-4744-ADED-A9564C54A6E4}']
{ Property getters and setters }
function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer);
@ -1213,7 +1245,7 @@ type
{ IDatosBancarios }
IDatosBancarios = interface(IDAStronglyTypedDataTable)
['{699EF4D5-1534-490C-810A-432C4F782F84}']
['{25800C2B-F033-495B-B88B-8B0DDD6E590C}']
{ Property getters and setters }
function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer);
@ -1366,9 +1398,188 @@ type
end;
{ IContactosDirecciones }
IContactosDirecciones = interface(IDAStronglyTypedDataTable)
['{99CA5013-33E5-4287-93AE-D491F7626363}']
{ Property getters and setters }
function GetID_CONTACTOValue: Integer;
procedure SetID_CONTACTOValue(const aValue: Integer);
function GetID_CONTACTOIsNull: Boolean;
procedure SetID_CONTACTOIsNull(const aValue: Boolean);
function GetID_DIRECCIONValue: Integer;
procedure SetID_DIRECCIONValue(const aValue: Integer);
function GetID_DIRECCIONIsNull: Boolean;
procedure SetID_DIRECCIONIsNull(const aValue: Boolean);
function GetNOMBREValue: String;
procedure SetNOMBREValue(const aValue: String);
function GetNOMBREIsNull: Boolean;
procedure SetNOMBREIsNull(const aValue: Boolean);
function GetNIF_CIFValue: String;
procedure SetNIF_CIFValue(const aValue: String);
function GetNIF_CIFIsNull: Boolean;
procedure SetNIF_CIFIsNull(const aValue: Boolean);
function GetCALLEValue: String;
procedure SetCALLEValue(const aValue: String);
function GetCALLEIsNull: Boolean;
procedure SetCALLEIsNull(const aValue: Boolean);
function GetPOBLACIONValue: String;
procedure SetPOBLACIONValue(const aValue: String);
function GetPOBLACIONIsNull: Boolean;
procedure SetPOBLACIONIsNull(const aValue: Boolean);
function GetPROVINCIAValue: String;
procedure SetPROVINCIAValue(const aValue: String);
function GetPROVINCIAIsNull: Boolean;
procedure SetPROVINCIAIsNull(const aValue: Boolean);
function GetCODIGO_POSTALValue: String;
procedure SetCODIGO_POSTALValue(const aValue: String);
function GetCODIGO_POSTALIsNull: Boolean;
procedure SetCODIGO_POSTALIsNull(const aValue: Boolean);
function GetTELEFONOValue: String;
procedure SetTELEFONOValue(const aValue: String);
function GetTELEFONOIsNull: Boolean;
procedure SetTELEFONOIsNull(const aValue: Boolean);
function GetMOVILValue: String;
procedure SetMOVILValue(const aValue: String);
function GetMOVILIsNull: Boolean;
procedure SetMOVILIsNull(const aValue: Boolean);
function GetFAXValue: String;
procedure SetFAXValue(const aValue: String);
function GetFAXIsNull: Boolean;
procedure SetFAXIsNull(const aValue: Boolean);
function GetEMAILValue: String;
procedure SetEMAILValue(const aValue: String);
function GetEMAILIsNull: Boolean;
procedure SetEMAILIsNull(const aValue: Boolean);
function GetPERSONA_CONTACTOValue: String;
procedure SetPERSONA_CONTACTOValue(const aValue: String);
function GetPERSONA_CONTACTOIsNull: Boolean;
procedure SetPERSONA_CONTACTOIsNull(const aValue: Boolean);
{ Properties }
property ID_CONTACTO: Integer read GetID_CONTACTOValue write SetID_CONTACTOValue;
property ID_CONTACTOIsNull: Boolean read GetID_CONTACTOIsNull write SetID_CONTACTOIsNull;
property ID_DIRECCION: Integer read GetID_DIRECCIONValue write SetID_DIRECCIONValue;
property ID_DIRECCIONIsNull: Boolean read GetID_DIRECCIONIsNull write SetID_DIRECCIONIsNull;
property NOMBRE: String read GetNOMBREValue write SetNOMBREValue;
property NOMBREIsNull: Boolean read GetNOMBREIsNull write SetNOMBREIsNull;
property NIF_CIF: String read GetNIF_CIFValue write SetNIF_CIFValue;
property NIF_CIFIsNull: Boolean read GetNIF_CIFIsNull write SetNIF_CIFIsNull;
property CALLE: String read GetCALLEValue write SetCALLEValue;
property CALLEIsNull: Boolean read GetCALLEIsNull write SetCALLEIsNull;
property POBLACION: String read GetPOBLACIONValue write SetPOBLACIONValue;
property POBLACIONIsNull: Boolean read GetPOBLACIONIsNull write SetPOBLACIONIsNull;
property PROVINCIA: String read GetPROVINCIAValue write SetPROVINCIAValue;
property PROVINCIAIsNull: Boolean read GetPROVINCIAIsNull write SetPROVINCIAIsNull;
property CODIGO_POSTAL: String read GetCODIGO_POSTALValue write SetCODIGO_POSTALValue;
property CODIGO_POSTALIsNull: Boolean read GetCODIGO_POSTALIsNull write SetCODIGO_POSTALIsNull;
property TELEFONO: String read GetTELEFONOValue write SetTELEFONOValue;
property TELEFONOIsNull: Boolean read GetTELEFONOIsNull write SetTELEFONOIsNull;
property MOVIL: String read GetMOVILValue write SetMOVILValue;
property MOVILIsNull: Boolean read GetMOVILIsNull write SetMOVILIsNull;
property FAX: String read GetFAXValue write SetFAXValue;
property FAXIsNull: Boolean read GetFAXIsNull write SetFAXIsNull;
property EMAIL: String read GetEMAILValue write SetEMAILValue;
property EMAILIsNull: Boolean read GetEMAILIsNull write SetEMAILIsNull;
property PERSONA_CONTACTO: String read GetPERSONA_CONTACTOValue write SetPERSONA_CONTACTOValue;
property PERSONA_CONTACTOIsNull: Boolean read GetPERSONA_CONTACTOIsNull write SetPERSONA_CONTACTOIsNull;
end;
{ TContactosDireccionesDataTableRules }
TContactosDireccionesDataTableRules = class(TIntfObjectDADataTableRules, IContactosDirecciones)
private
protected
{ Property getters and setters }
function GetID_CONTACTOValue: Integer; virtual;
procedure SetID_CONTACTOValue(const aValue: Integer); virtual;
function GetID_CONTACTOIsNull: Boolean; virtual;
procedure SetID_CONTACTOIsNull(const aValue: Boolean); virtual;
function GetID_DIRECCIONValue: Integer; virtual;
procedure SetID_DIRECCIONValue(const aValue: Integer); virtual;
function GetID_DIRECCIONIsNull: Boolean; virtual;
procedure SetID_DIRECCIONIsNull(const aValue: Boolean); virtual;
function GetNOMBREValue: String; virtual;
procedure SetNOMBREValue(const aValue: String); virtual;
function GetNOMBREIsNull: Boolean; virtual;
procedure SetNOMBREIsNull(const aValue: Boolean); virtual;
function GetNIF_CIFValue: String; virtual;
procedure SetNIF_CIFValue(const aValue: String); virtual;
function GetNIF_CIFIsNull: Boolean; virtual;
procedure SetNIF_CIFIsNull(const aValue: Boolean); virtual;
function GetCALLEValue: String; virtual;
procedure SetCALLEValue(const aValue: String); virtual;
function GetCALLEIsNull: Boolean; virtual;
procedure SetCALLEIsNull(const aValue: Boolean); virtual;
function GetPOBLACIONValue: String; virtual;
procedure SetPOBLACIONValue(const aValue: String); virtual;
function GetPOBLACIONIsNull: Boolean; virtual;
procedure SetPOBLACIONIsNull(const aValue: Boolean); virtual;
function GetPROVINCIAValue: String; virtual;
procedure SetPROVINCIAValue(const aValue: String); virtual;
function GetPROVINCIAIsNull: Boolean; virtual;
procedure SetPROVINCIAIsNull(const aValue: Boolean); virtual;
function GetCODIGO_POSTALValue: String; virtual;
procedure SetCODIGO_POSTALValue(const aValue: String); virtual;
function GetCODIGO_POSTALIsNull: Boolean; virtual;
procedure SetCODIGO_POSTALIsNull(const aValue: Boolean); virtual;
function GetTELEFONOValue: String; virtual;
procedure SetTELEFONOValue(const aValue: String); virtual;
function GetTELEFONOIsNull: Boolean; virtual;
procedure SetTELEFONOIsNull(const aValue: Boolean); virtual;
function GetMOVILValue: String; virtual;
procedure SetMOVILValue(const aValue: String); virtual;
function GetMOVILIsNull: Boolean; virtual;
procedure SetMOVILIsNull(const aValue: Boolean); virtual;
function GetFAXValue: String; virtual;
procedure SetFAXValue(const aValue: String); virtual;
function GetFAXIsNull: Boolean; virtual;
procedure SetFAXIsNull(const aValue: Boolean); virtual;
function GetEMAILValue: String; virtual;
procedure SetEMAILValue(const aValue: String); virtual;
function GetEMAILIsNull: Boolean; virtual;
procedure SetEMAILIsNull(const aValue: Boolean); virtual;
function GetPERSONA_CONTACTOValue: String; virtual;
procedure SetPERSONA_CONTACTOValue(const aValue: String); virtual;
function GetPERSONA_CONTACTOIsNull: Boolean; virtual;
procedure SetPERSONA_CONTACTOIsNull(const aValue: Boolean); virtual;
{ Properties }
property ID_CONTACTO: Integer read GetID_CONTACTOValue write SetID_CONTACTOValue;
property ID_CONTACTOIsNull: Boolean read GetID_CONTACTOIsNull write SetID_CONTACTOIsNull;
property ID_DIRECCION: Integer read GetID_DIRECCIONValue write SetID_DIRECCIONValue;
property ID_DIRECCIONIsNull: Boolean read GetID_DIRECCIONIsNull write SetID_DIRECCIONIsNull;
property NOMBRE: String read GetNOMBREValue write SetNOMBREValue;
property NOMBREIsNull: Boolean read GetNOMBREIsNull write SetNOMBREIsNull;
property NIF_CIF: String read GetNIF_CIFValue write SetNIF_CIFValue;
property NIF_CIFIsNull: Boolean read GetNIF_CIFIsNull write SetNIF_CIFIsNull;
property CALLE: String read GetCALLEValue write SetCALLEValue;
property CALLEIsNull: Boolean read GetCALLEIsNull write SetCALLEIsNull;
property POBLACION: String read GetPOBLACIONValue write SetPOBLACIONValue;
property POBLACIONIsNull: Boolean read GetPOBLACIONIsNull write SetPOBLACIONIsNull;
property PROVINCIA: String read GetPROVINCIAValue write SetPROVINCIAValue;
property PROVINCIAIsNull: Boolean read GetPROVINCIAIsNull write SetPROVINCIAIsNull;
property CODIGO_POSTAL: String read GetCODIGO_POSTALValue write SetCODIGO_POSTALValue;
property CODIGO_POSTALIsNull: Boolean read GetCODIGO_POSTALIsNull write SetCODIGO_POSTALIsNull;
property TELEFONO: String read GetTELEFONOValue write SetTELEFONOValue;
property TELEFONOIsNull: Boolean read GetTELEFONOIsNull write SetTELEFONOIsNull;
property MOVIL: String read GetMOVILValue write SetMOVILValue;
property MOVILIsNull: Boolean read GetMOVILIsNull write SetMOVILIsNull;
property FAX: String read GetFAXValue write SetFAXValue;
property FAXIsNull: Boolean read GetFAXIsNull write SetFAXIsNull;
property EMAIL: String read GetEMAILValue write SetEMAILValue;
property EMAILIsNull: Boolean read GetEMAILIsNull write SetEMAILIsNull;
property PERSONA_CONTACTO: String read GetPERSONA_CONTACTOValue write SetPERSONA_CONTACTOValue;
property PERSONA_CONTACTOIsNull: Boolean read GetPERSONA_CONTACTOIsNull write SetPERSONA_CONTACTOIsNull;
public
constructor Create(aDataTable: TDADataTable); override;
destructor Destroy; override;
end;
{ IClientes }
IClientes = interface(IDAStronglyTypedDataTable)
['{ABECF46D-4E5C-4E32-A14C-6C06496F5750}']
['{EB01EA6C-7622-47E6-914B-3C426DA210F2}']
{ Property getters and setters }
function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer);
@ -1907,7 +2118,7 @@ type
{ IProveedores }
IProveedores = interface(IDAStronglyTypedDataTable)
['{6ADC1FCC-4535-4E95-9FC6-FE9AC17D265C}']
['{F52A07E8-726F-4A4A-BE6E-C481F115651D}']
{ Property getters and setters }
function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer);
@ -2434,7 +2645,7 @@ type
{ IVendedores }
IVendedores = interface(IDAStronglyTypedDataTable)
['{9DF5AB85-335B-4900-9653-06C3F82859AC}']
['{74374D8C-09D5-4169-8AF6-9CDA8CEEF947}']
{ Property getters and setters }
function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer);
@ -2781,7 +2992,7 @@ type
{ IDireccionesContacto }
IDireccionesContacto = interface(IDAStronglyTypedDataTable)
['{D0BCB5E6-8DB8-4E36-9C6E-D79EED18622D}']
['{3880AC55-1F19-4B7B-9368-5BB184A3FF5F}']
{ Property getters and setters }
function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer);
@ -3008,7 +3219,7 @@ type
{ IClientesDescuentos }
IClientesDescuentos = interface(IDAStronglyTypedDataTable)
['{06F202F3-19A8-4394-A14D-BBF4896544EF}']
['{1BDBF176-EA1D-48A0-8A72-C450D1C23AD7}']
{ Property getters and setters }
function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer);
@ -3091,7 +3302,7 @@ type
{ IProcedenciasCliente }
IProcedenciasCliente = interface(IDAStronglyTypedDataTable)
['{C287C28B-F1AD-4F67-B59E-BDDA8B637803}']
['{96B8D8C7-408D-4C66-A3DA-4C0A3A47C37A}']
{ Property getters and setters }
function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer);
@ -3138,7 +3349,7 @@ type
{ IGruposProveedor }
IGruposProveedor = interface(IDAStronglyTypedDataTable)
['{F6DDE232-ED40-4CA1-9BD8-10EB6CF617BA}']
['{44E24820-9866-4536-9D42-B2B56AA724B7}']
{ Property getters and setters }
function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer);
@ -3185,7 +3396,7 @@ type
{ IContactos_Refresh }
IContactos_Refresh = interface(IDAStronglyTypedDataTable)
['{F7D45D6E-BD65-4037-B5B9-C66875748FFD}']
['{3997B747-ADBE-4F01-80F9-C1D6771E4767}']
{ Property getters and setters }
function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer);
@ -4729,6 +4940,291 @@ begin
end;
{ TContactosDireccionesDataTableRules }
constructor TContactosDireccionesDataTableRules.Create(aDataTable: TDADataTable);
begin
inherited;
end;
destructor TContactosDireccionesDataTableRules.Destroy;
begin
inherited;
end;
function TContactosDireccionesDataTableRules.GetID_CONTACTOValue: Integer;
begin
result := DataTable.Fields[idx_ContactosDireccionesID_CONTACTO].AsInteger;
end;
procedure TContactosDireccionesDataTableRules.SetID_CONTACTOValue(const aValue: Integer);
begin
DataTable.Fields[idx_ContactosDireccionesID_CONTACTO].AsInteger := aValue;
end;
function TContactosDireccionesDataTableRules.GetID_CONTACTOIsNull: boolean;
begin
result := DataTable.Fields[idx_ContactosDireccionesID_CONTACTO].IsNull;
end;
procedure TContactosDireccionesDataTableRules.SetID_CONTACTOIsNull(const aValue: Boolean);
begin
if aValue then
DataTable.Fields[idx_ContactosDireccionesID_CONTACTO].AsVariant := Null;
end;
function TContactosDireccionesDataTableRules.GetID_DIRECCIONValue: Integer;
begin
result := DataTable.Fields[idx_ContactosDireccionesID_DIRECCION].AsInteger;
end;
procedure TContactosDireccionesDataTableRules.SetID_DIRECCIONValue(const aValue: Integer);
begin
DataTable.Fields[idx_ContactosDireccionesID_DIRECCION].AsInteger := aValue;
end;
function TContactosDireccionesDataTableRules.GetID_DIRECCIONIsNull: boolean;
begin
result := DataTable.Fields[idx_ContactosDireccionesID_DIRECCION].IsNull;
end;
procedure TContactosDireccionesDataTableRules.SetID_DIRECCIONIsNull(const aValue: Boolean);
begin
if aValue then
DataTable.Fields[idx_ContactosDireccionesID_DIRECCION].AsVariant := Null;
end;
function TContactosDireccionesDataTableRules.GetNOMBREValue: String;
begin
result := DataTable.Fields[idx_ContactosDireccionesNOMBRE].AsString;
end;
procedure TContactosDireccionesDataTableRules.SetNOMBREValue(const aValue: String);
begin
DataTable.Fields[idx_ContactosDireccionesNOMBRE].AsString := aValue;
end;
function TContactosDireccionesDataTableRules.GetNOMBREIsNull: boolean;
begin
result := DataTable.Fields[idx_ContactosDireccionesNOMBRE].IsNull;
end;
procedure TContactosDireccionesDataTableRules.SetNOMBREIsNull(const aValue: Boolean);
begin
if aValue then
DataTable.Fields[idx_ContactosDireccionesNOMBRE].AsVariant := Null;
end;
function TContactosDireccionesDataTableRules.GetNIF_CIFValue: String;
begin
result := DataTable.Fields[idx_ContactosDireccionesNIF_CIF].AsString;
end;
procedure TContactosDireccionesDataTableRules.SetNIF_CIFValue(const aValue: String);
begin
DataTable.Fields[idx_ContactosDireccionesNIF_CIF].AsString := aValue;
end;
function TContactosDireccionesDataTableRules.GetNIF_CIFIsNull: boolean;
begin
result := DataTable.Fields[idx_ContactosDireccionesNIF_CIF].IsNull;
end;
procedure TContactosDireccionesDataTableRules.SetNIF_CIFIsNull(const aValue: Boolean);
begin
if aValue then
DataTable.Fields[idx_ContactosDireccionesNIF_CIF].AsVariant := Null;
end;
function TContactosDireccionesDataTableRules.GetCALLEValue: String;
begin
result := DataTable.Fields[idx_ContactosDireccionesCALLE].AsString;
end;
procedure TContactosDireccionesDataTableRules.SetCALLEValue(const aValue: String);
begin
DataTable.Fields[idx_ContactosDireccionesCALLE].AsString := aValue;
end;
function TContactosDireccionesDataTableRules.GetCALLEIsNull: boolean;
begin
result := DataTable.Fields[idx_ContactosDireccionesCALLE].IsNull;
end;
procedure TContactosDireccionesDataTableRules.SetCALLEIsNull(const aValue: Boolean);
begin
if aValue then
DataTable.Fields[idx_ContactosDireccionesCALLE].AsVariant := Null;
end;
function TContactosDireccionesDataTableRules.GetPOBLACIONValue: String;
begin
result := DataTable.Fields[idx_ContactosDireccionesPOBLACION].AsString;
end;
procedure TContactosDireccionesDataTableRules.SetPOBLACIONValue(const aValue: String);
begin
DataTable.Fields[idx_ContactosDireccionesPOBLACION].AsString := aValue;
end;
function TContactosDireccionesDataTableRules.GetPOBLACIONIsNull: boolean;
begin
result := DataTable.Fields[idx_ContactosDireccionesPOBLACION].IsNull;
end;
procedure TContactosDireccionesDataTableRules.SetPOBLACIONIsNull(const aValue: Boolean);
begin
if aValue then
DataTable.Fields[idx_ContactosDireccionesPOBLACION].AsVariant := Null;
end;
function TContactosDireccionesDataTableRules.GetPROVINCIAValue: String;
begin
result := DataTable.Fields[idx_ContactosDireccionesPROVINCIA].AsString;
end;
procedure TContactosDireccionesDataTableRules.SetPROVINCIAValue(const aValue: String);
begin
DataTable.Fields[idx_ContactosDireccionesPROVINCIA].AsString := aValue;
end;
function TContactosDireccionesDataTableRules.GetPROVINCIAIsNull: boolean;
begin
result := DataTable.Fields[idx_ContactosDireccionesPROVINCIA].IsNull;
end;
procedure TContactosDireccionesDataTableRules.SetPROVINCIAIsNull(const aValue: Boolean);
begin
if aValue then
DataTable.Fields[idx_ContactosDireccionesPROVINCIA].AsVariant := Null;
end;
function TContactosDireccionesDataTableRules.GetCODIGO_POSTALValue: String;
begin
result := DataTable.Fields[idx_ContactosDireccionesCODIGO_POSTAL].AsString;
end;
procedure TContactosDireccionesDataTableRules.SetCODIGO_POSTALValue(const aValue: String);
begin
DataTable.Fields[idx_ContactosDireccionesCODIGO_POSTAL].AsString := aValue;
end;
function TContactosDireccionesDataTableRules.GetCODIGO_POSTALIsNull: boolean;
begin
result := DataTable.Fields[idx_ContactosDireccionesCODIGO_POSTAL].IsNull;
end;
procedure TContactosDireccionesDataTableRules.SetCODIGO_POSTALIsNull(const aValue: Boolean);
begin
if aValue then
DataTable.Fields[idx_ContactosDireccionesCODIGO_POSTAL].AsVariant := Null;
end;
function TContactosDireccionesDataTableRules.GetTELEFONOValue: String;
begin
result := DataTable.Fields[idx_ContactosDireccionesTELEFONO].AsString;
end;
procedure TContactosDireccionesDataTableRules.SetTELEFONOValue(const aValue: String);
begin
DataTable.Fields[idx_ContactosDireccionesTELEFONO].AsString := aValue;
end;
function TContactosDireccionesDataTableRules.GetTELEFONOIsNull: boolean;
begin
result := DataTable.Fields[idx_ContactosDireccionesTELEFONO].IsNull;
end;
procedure TContactosDireccionesDataTableRules.SetTELEFONOIsNull(const aValue: Boolean);
begin
if aValue then
DataTable.Fields[idx_ContactosDireccionesTELEFONO].AsVariant := Null;
end;
function TContactosDireccionesDataTableRules.GetMOVILValue: String;
begin
result := DataTable.Fields[idx_ContactosDireccionesMOVIL].AsString;
end;
procedure TContactosDireccionesDataTableRules.SetMOVILValue(const aValue: String);
begin
DataTable.Fields[idx_ContactosDireccionesMOVIL].AsString := aValue;
end;
function TContactosDireccionesDataTableRules.GetMOVILIsNull: boolean;
begin
result := DataTable.Fields[idx_ContactosDireccionesMOVIL].IsNull;
end;
procedure TContactosDireccionesDataTableRules.SetMOVILIsNull(const aValue: Boolean);
begin
if aValue then
DataTable.Fields[idx_ContactosDireccionesMOVIL].AsVariant := Null;
end;
function TContactosDireccionesDataTableRules.GetFAXValue: String;
begin
result := DataTable.Fields[idx_ContactosDireccionesFAX].AsString;
end;
procedure TContactosDireccionesDataTableRules.SetFAXValue(const aValue: String);
begin
DataTable.Fields[idx_ContactosDireccionesFAX].AsString := aValue;
end;
function TContactosDireccionesDataTableRules.GetFAXIsNull: boolean;
begin
result := DataTable.Fields[idx_ContactosDireccionesFAX].IsNull;
end;
procedure TContactosDireccionesDataTableRules.SetFAXIsNull(const aValue: Boolean);
begin
if aValue then
DataTable.Fields[idx_ContactosDireccionesFAX].AsVariant := Null;
end;
function TContactosDireccionesDataTableRules.GetEMAILValue: String;
begin
result := DataTable.Fields[idx_ContactosDireccionesEMAIL].AsString;
end;
procedure TContactosDireccionesDataTableRules.SetEMAILValue(const aValue: String);
begin
DataTable.Fields[idx_ContactosDireccionesEMAIL].AsString := aValue;
end;
function TContactosDireccionesDataTableRules.GetEMAILIsNull: boolean;
begin
result := DataTable.Fields[idx_ContactosDireccionesEMAIL].IsNull;
end;
procedure TContactosDireccionesDataTableRules.SetEMAILIsNull(const aValue: Boolean);
begin
if aValue then
DataTable.Fields[idx_ContactosDireccionesEMAIL].AsVariant := Null;
end;
function TContactosDireccionesDataTableRules.GetPERSONA_CONTACTOValue: String;
begin
result := DataTable.Fields[idx_ContactosDireccionesPERSONA_CONTACTO].AsString;
end;
procedure TContactosDireccionesDataTableRules.SetPERSONA_CONTACTOValue(const aValue: String);
begin
DataTable.Fields[idx_ContactosDireccionesPERSONA_CONTACTO].AsString := aValue;
end;
function TContactosDireccionesDataTableRules.GetPERSONA_CONTACTOIsNull: boolean;
begin
result := DataTable.Fields[idx_ContactosDireccionesPERSONA_CONTACTO].IsNull;
end;
procedure TContactosDireccionesDataTableRules.SetPERSONA_CONTACTOIsNull(const aValue: Boolean);
begin
if aValue then
DataTable.Fields[idx_ContactosDireccionesPERSONA_CONTACTO].AsVariant := Null;
end;
{ TClientesDataTableRules }
constructor TClientesDataTableRules.Create(aDataTable: TDADataTable);
var
@ -8207,6 +8703,7 @@ initialization
RegisterDataTableRules(RID_Contactos, TContactosDataTableRules);
RegisterDataTableRules(RID_GruposCliente, TGruposClienteDataTableRules);
RegisterDataTableRules(RID_DatosBancarios, TDatosBancariosDataTableRules);
RegisterDataTableRules(RID_ContactosDirecciones, TContactosDireccionesDataTableRules);
RegisterDataTableRules(RID_Clientes, TClientesDataTableRules);
RegisterDataTableRules(RID_Proveedores, TProveedoresDataTableRules);
RegisterDataTableRules(RID_Vendedores, TVendedoresDataTableRules);

655
Source/Modulos/Contactos/Model/schContactosServer_Intf.pas
View File

@ -9,26 +9,27 @@ const
{ Delta rules ids
Feel free to change them to something more human readable
but make sure they are unique in the context of your application }
RID_DarEmpresasContactoDelta = '{DBBA2713-737B-4AC9-892F-A37FC4389827}';
RID_PersonalContactoDelta = '{51FDD65E-A087-4194-A914-E3AF3911BAC1}';
RID_DarTiendaDeUsuarioDelta = '{3DE3B12D-067A-4051-B3A9-557DB22922AC}';
RID_SubCuentasContactoDelta = '{36585242-DAA3-43F2-A2E4-94600AE711FD}';
RID_ContactosDelta = '{C2EB2726-2FDF-4119-A53A-EDEEC4168295}';
RID_GruposClienteDelta = '{E1399545-1C21-4EAF-BBC2-4EDED61BD4DA}';
RID_DatosBancariosDelta = '{BFB2A836-E42C-47F0-986A-86E7300C4B0F}';
RID_ClientesDelta = '{417DE556-0CAF-44C2-82CD-A5DB0E9BF54F}';
RID_ProveedoresDelta = '{56BF7615-F24A-452F-BE6D-76B7819C6098}';
RID_VendedoresDelta = '{2CA2DC31-7B3E-4942-9442-236A0AC55B44}';
RID_DireccionesContactoDelta = '{5CF44C27-79DB-4B6A-A8FC-CDB65D67955F}';
RID_ClientesDescuentosDelta = '{3EDEF6F6-D8F9-44EE-A483-BA3184E0E083}';
RID_ProcedenciasClienteDelta = '{8A871918-1BBE-4D77-9BA0-558C08550237}';
RID_GruposProveedorDelta = '{BFB686F2-C903-4C4A-A224-C638F6193ADE}';
RID_Contactos_RefreshDelta = '{B7FAD6FA-C4AF-4226-99F0-1BF341D5F444}';
RID_DarEmpresasContactoDelta = '{96CB4B1C-1DEA-41CA-9599-DB7C3BA0E6FB}';
RID_PersonalContactoDelta = '{7E9E0242-BBA1-48F9-B767-9ACE52D70F22}';
RID_DarTiendaDeUsuarioDelta = '{E155048E-9222-4B72-A94B-626A860172EF}';
RID_SubCuentasContactoDelta = '{7AF8F0AA-472D-4547-B89B-05C56748A6FF}';
RID_ContactosDelta = '{323DC61F-B0F4-483D-8A02-BBE9164B3631}';
RID_GruposClienteDelta = '{2E0F6E60-334C-4D8C-94D2-DA1C062375F2}';
RID_DatosBancariosDelta = '{72CB4C8A-90CB-4820-A7F6-C7F1D904DD46}';
RID_ContactosDireccionesDelta = '{56AF34D7-1CD1-4C20-A29A-2803EE02F760}';
RID_ClientesDelta = '{B76FF388-574F-44DE-8B67-6873377B03DB}';
RID_ProveedoresDelta = '{9ECDF72A-3474-4953-BD46-0D5144A83E05}';
RID_VendedoresDelta = '{2DE78E52-4D45-4268-8819-9AD19A3F56EB}';
RID_DireccionesContactoDelta = '{E6EADB4D-1AC5-44DA-A6AC-ADA149CE45E6}';
RID_ClientesDescuentosDelta = '{D0580747-9AF6-4399-B984-B924BAAA9262}';
RID_ProcedenciasClienteDelta = '{3FA9EC4E-FA9D-41B6-AAA6-1334AA57D811}';
RID_GruposProveedorDelta = '{732E6A61-6080-47B2-A359-A7BA6C27AAB9}';
RID_Contactos_RefreshDelta = '{B90A85AF-CE77-49A0-A466-874299F1EFD8}';
type
{ IDarEmpresasContactoDelta }
IDarEmpresasContactoDelta = interface(IDarEmpresasContacto)
['{DBBA2713-737B-4AC9-892F-A37FC4389827}']
['{96CB4B1C-1DEA-41CA-9599-DB7C3BA0E6FB}']
{ Property getters and setters }
function GetOldID_EMPRESAValue : Integer;
@ -62,7 +63,7 @@ type
{ IPersonalContactoDelta }
IPersonalContactoDelta = interface(IPersonalContacto)
['{51FDD65E-A087-4194-A914-E3AF3911BAC1}']
['{7E9E0242-BBA1-48F9-B767-9ACE52D70F22}']
{ Property getters and setters }
function GetOldIDValue : Integer;
function GetOldID_CONTACTOValue : Integer;
@ -204,7 +205,7 @@ type
{ IDarTiendaDeUsuarioDelta }
IDarTiendaDeUsuarioDelta = interface(IDarTiendaDeUsuario)
['{3DE3B12D-067A-4051-B3A9-557DB22922AC}']
['{E155048E-9222-4B72-A94B-626A860172EF}']
{ Property getters and setters }
function GetOldID_TIENDAValue : Integer;
@ -238,7 +239,7 @@ type
{ ISubCuentasContactoDelta }
ISubCuentasContactoDelta = interface(ISubCuentasContacto)
['{36585242-DAA3-43F2-A2E4-94600AE711FD}']
['{7AF8F0AA-472D-4547-B89B-05C56748A6FF}']
{ Property getters and setters }
function GetOldIDValue : Integer;
function GetOldREF_SUBCUENTAValue : String;
@ -332,7 +333,7 @@ type
{ IContactosDelta }
IContactosDelta = interface(IContactos)
['{C2EB2726-2FDF-4119-A53A-EDEEC4168295}']
['{323DC61F-B0F4-483D-8A02-BBE9164B3631}']
{ Property getters and setters }
function GetOldIDValue : Integer;
function GetOldID_CATEGORIAValue : Integer;
@ -655,7 +656,7 @@ type
{ IGruposClienteDelta }
IGruposClienteDelta = interface(IGruposCliente)
['{E1399545-1C21-4EAF-BBC2-4EDED61BD4DA}']
['{2E0F6E60-334C-4D8C-94D2-DA1C062375F2}']
{ Property getters and setters }
function GetOldIDValue : Integer;
function GetOldDESCRIPCIONValue : String;
@ -701,7 +702,7 @@ type
{ IDatosBancariosDelta }
IDatosBancariosDelta = interface(IDatosBancarios)
['{BFB2A836-E42C-47F0-986A-86E7300C4B0F}']
['{72CB4C8A-90CB-4820-A7F6-C7F1D904DD46}']
{ Property getters and setters }
function GetOldIDValue : Integer;
function GetOldID_CONTACTOValue : Integer;
@ -853,9 +854,187 @@ type
end;
{ IContactosDireccionesDelta }
IContactosDireccionesDelta = interface(IContactosDirecciones)
['{56AF34D7-1CD1-4C20-A29A-2803EE02F760}']
{ Property getters and setters }
function GetOldID_CONTACTOValue : Integer;
function GetOldID_DIRECCIONValue : Integer;
function GetOldNOMBREValue : String;
function GetOldNIF_CIFValue : String;
function GetOldCALLEValue : String;
function GetOldPOBLACIONValue : String;
function GetOldPROVINCIAValue : String;
function GetOldCODIGO_POSTALValue : String;
function GetOldTELEFONOValue : String;
function GetOldMOVILValue : String;
function GetOldFAXValue : String;
function GetOldEMAILValue : String;
function GetOldPERSONA_CONTACTOValue : String;
{ Properties }
property OldID_CONTACTO : Integer read GetOldID_CONTACTOValue;
property OldID_DIRECCION : Integer read GetOldID_DIRECCIONValue;
property OldNOMBRE : String read GetOldNOMBREValue;
property OldNIF_CIF : String read GetOldNIF_CIFValue;
property OldCALLE : String read GetOldCALLEValue;
property OldPOBLACION : String read GetOldPOBLACIONValue;
property OldPROVINCIA : String read GetOldPROVINCIAValue;
property OldCODIGO_POSTAL : String read GetOldCODIGO_POSTALValue;
property OldTELEFONO : String read GetOldTELEFONOValue;
property OldMOVIL : String read GetOldMOVILValue;
property OldFAX : String read GetOldFAXValue;
property OldEMAIL : String read GetOldEMAILValue;
property OldPERSONA_CONTACTO : String read GetOldPERSONA_CONTACTOValue;
end;
{ TContactosDireccionesBusinessProcessorRules }
TContactosDireccionesBusinessProcessorRules = class(TDABusinessProcessorRules, IContactosDirecciones, IContactosDireccionesDelta)
private
protected
{ Property getters and setters }
function GetID_CONTACTOValue: Integer; virtual;
function GetID_CONTACTOIsNull: Boolean; virtual;
function GetOldID_CONTACTOValue: Integer; virtual;
function GetOldID_CONTACTOIsNull: Boolean; virtual;
procedure SetID_CONTACTOValue(const aValue: Integer); virtual;
procedure SetID_CONTACTOIsNull(const aValue: Boolean); virtual;
function GetID_DIRECCIONValue: Integer; virtual;
function GetID_DIRECCIONIsNull: Boolean; virtual;
function GetOldID_DIRECCIONValue: Integer; virtual;
function GetOldID_DIRECCIONIsNull: Boolean; virtual;
procedure SetID_DIRECCIONValue(const aValue: Integer); virtual;
procedure SetID_DIRECCIONIsNull(const aValue: Boolean); virtual;
function GetNOMBREValue: String; virtual;
function GetNOMBREIsNull: Boolean; virtual;
function GetOldNOMBREValue: String; virtual;
function GetOldNOMBREIsNull: Boolean; virtual;
procedure SetNOMBREValue(const aValue: String); virtual;
procedure SetNOMBREIsNull(const aValue: Boolean); virtual;
function GetNIF_CIFValue: String; virtual;
function GetNIF_CIFIsNull: Boolean; virtual;
function GetOldNIF_CIFValue: String; virtual;
function GetOldNIF_CIFIsNull: Boolean; virtual;
procedure SetNIF_CIFValue(const aValue: String); virtual;
procedure SetNIF_CIFIsNull(const aValue: Boolean); virtual;
function GetCALLEValue: String; virtual;
function GetCALLEIsNull: Boolean; virtual;
function GetOldCALLEValue: String; virtual;
function GetOldCALLEIsNull: Boolean; virtual;
procedure SetCALLEValue(const aValue: String); virtual;
procedure SetCALLEIsNull(const aValue: Boolean); virtual;
function GetPOBLACIONValue: String; virtual;
function GetPOBLACIONIsNull: Boolean; virtual;
function GetOldPOBLACIONValue: String; virtual;
function GetOldPOBLACIONIsNull: Boolean; virtual;
procedure SetPOBLACIONValue(const aValue: String); virtual;
procedure SetPOBLACIONIsNull(const aValue: Boolean); virtual;
function GetPROVINCIAValue: String; virtual;
function GetPROVINCIAIsNull: Boolean; virtual;
function GetOldPROVINCIAValue: String; virtual;
function GetOldPROVINCIAIsNull: Boolean; virtual;
procedure SetPROVINCIAValue(const aValue: String); virtual;
procedure SetPROVINCIAIsNull(const aValue: Boolean); virtual;
function GetCODIGO_POSTALValue: String; virtual;
function GetCODIGO_POSTALIsNull: Boolean; virtual;
function GetOldCODIGO_POSTALValue: String; virtual;
function GetOldCODIGO_POSTALIsNull: Boolean; virtual;
procedure SetCODIGO_POSTALValue(const aValue: String); virtual;
procedure SetCODIGO_POSTALIsNull(const aValue: Boolean); virtual;
function GetTELEFONOValue: String; virtual;
function GetTELEFONOIsNull: Boolean; virtual;
function GetOldTELEFONOValue: String; virtual;
function GetOldTELEFONOIsNull: Boolean; virtual;
procedure SetTELEFONOValue(const aValue: String); virtual;
procedure SetTELEFONOIsNull(const aValue: Boolean); virtual;
function GetMOVILValue: String; virtual;
function GetMOVILIsNull: Boolean; virtual;
function GetOldMOVILValue: String; virtual;
function GetOldMOVILIsNull: Boolean; virtual;
procedure SetMOVILValue(const aValue: String); virtual;
procedure SetMOVILIsNull(const aValue: Boolean); virtual;
function GetFAXValue: String; virtual;
function GetFAXIsNull: Boolean; virtual;
function GetOldFAXValue: String; virtual;
function GetOldFAXIsNull: Boolean; virtual;
procedure SetFAXValue(const aValue: String); virtual;
procedure SetFAXIsNull(const aValue: Boolean); virtual;
function GetEMAILValue: String; virtual;
function GetEMAILIsNull: Boolean; virtual;
function GetOldEMAILValue: String; virtual;
function GetOldEMAILIsNull: Boolean; virtual;
procedure SetEMAILValue(const aValue: String); virtual;
procedure SetEMAILIsNull(const aValue: Boolean); virtual;
function GetPERSONA_CONTACTOValue: String; virtual;
function GetPERSONA_CONTACTOIsNull: Boolean; virtual;
function GetOldPERSONA_CONTACTOValue: String; virtual;
function GetOldPERSONA_CONTACTOIsNull: Boolean; virtual;
procedure SetPERSONA_CONTACTOValue(const aValue: String); virtual;
procedure SetPERSONA_CONTACTOIsNull(const aValue: Boolean); virtual;
{ Properties }
property ID_CONTACTO : Integer read GetID_CONTACTOValue write SetID_CONTACTOValue;
property ID_CONTACTOIsNull : Boolean read GetID_CONTACTOIsNull write SetID_CONTACTOIsNull;
property OldID_CONTACTO : Integer read GetOldID_CONTACTOValue;
property OldID_CONTACTOIsNull : Boolean read GetOldID_CONTACTOIsNull;
property ID_DIRECCION : Integer read GetID_DIRECCIONValue write SetID_DIRECCIONValue;
property ID_DIRECCIONIsNull : Boolean read GetID_DIRECCIONIsNull write SetID_DIRECCIONIsNull;
property OldID_DIRECCION : Integer read GetOldID_DIRECCIONValue;
property OldID_DIRECCIONIsNull : Boolean read GetOldID_DIRECCIONIsNull;
property NOMBRE : String read GetNOMBREValue write SetNOMBREValue;
property NOMBREIsNull : Boolean read GetNOMBREIsNull write SetNOMBREIsNull;
property OldNOMBRE : String read GetOldNOMBREValue;
property OldNOMBREIsNull : Boolean read GetOldNOMBREIsNull;
property NIF_CIF : String read GetNIF_CIFValue write SetNIF_CIFValue;
property NIF_CIFIsNull : Boolean read GetNIF_CIFIsNull write SetNIF_CIFIsNull;
property OldNIF_CIF : String read GetOldNIF_CIFValue;
property OldNIF_CIFIsNull : Boolean read GetOldNIF_CIFIsNull;
property CALLE : String read GetCALLEValue write SetCALLEValue;
property CALLEIsNull : Boolean read GetCALLEIsNull write SetCALLEIsNull;
property OldCALLE : String read GetOldCALLEValue;
property OldCALLEIsNull : Boolean read GetOldCALLEIsNull;
property POBLACION : String read GetPOBLACIONValue write SetPOBLACIONValue;
property POBLACIONIsNull : Boolean read GetPOBLACIONIsNull write SetPOBLACIONIsNull;
property OldPOBLACION : String read GetOldPOBLACIONValue;
property OldPOBLACIONIsNull : Boolean read GetOldPOBLACIONIsNull;
property PROVINCIA : String read GetPROVINCIAValue write SetPROVINCIAValue;
property PROVINCIAIsNull : Boolean read GetPROVINCIAIsNull write SetPROVINCIAIsNull;
property OldPROVINCIA : String read GetOldPROVINCIAValue;
property OldPROVINCIAIsNull : Boolean read GetOldPROVINCIAIsNull;
property CODIGO_POSTAL : String read GetCODIGO_POSTALValue write SetCODIGO_POSTALValue;
property CODIGO_POSTALIsNull : Boolean read GetCODIGO_POSTALIsNull write SetCODIGO_POSTALIsNull;
property OldCODIGO_POSTAL : String read GetOldCODIGO_POSTALValue;
property OldCODIGO_POSTALIsNull : Boolean read GetOldCODIGO_POSTALIsNull;
property TELEFONO : String read GetTELEFONOValue write SetTELEFONOValue;
property TELEFONOIsNull : Boolean read GetTELEFONOIsNull write SetTELEFONOIsNull;
property OldTELEFONO : String read GetOldTELEFONOValue;
property OldTELEFONOIsNull : Boolean read GetOldTELEFONOIsNull;
property MOVIL : String read GetMOVILValue write SetMOVILValue;
property MOVILIsNull : Boolean read GetMOVILIsNull write SetMOVILIsNull;
property OldMOVIL : String read GetOldMOVILValue;
property OldMOVILIsNull : Boolean read GetOldMOVILIsNull;
property FAX : String read GetFAXValue write SetFAXValue;
property FAXIsNull : Boolean read GetFAXIsNull write SetFAXIsNull;
property OldFAX : String read GetOldFAXValue;
property OldFAXIsNull : Boolean read GetOldFAXIsNull;
property EMAIL : String read GetEMAILValue write SetEMAILValue;
property EMAILIsNull : Boolean read GetEMAILIsNull write SetEMAILIsNull;
property OldEMAIL : String read GetOldEMAILValue;
property OldEMAILIsNull : Boolean read GetOldEMAILIsNull;
property PERSONA_CONTACTO : String read GetPERSONA_CONTACTOValue write SetPERSONA_CONTACTOValue;
property PERSONA_CONTACTOIsNull : Boolean read GetPERSONA_CONTACTOIsNull write SetPERSONA_CONTACTOIsNull;
property OldPERSONA_CONTACTO : String read GetOldPERSONA_CONTACTOValue;
property OldPERSONA_CONTACTOIsNull : Boolean read GetOldPERSONA_CONTACTOIsNull;
public
constructor Create(aBusinessProcessor: TDABusinessProcessor); override;
destructor Destroy; override;
end;
{ IClientesDelta }
IClientesDelta = interface(IClientes)
['{417DE556-0CAF-44C2-82CD-A5DB0E9BF54F}']
['{B76FF388-574F-44DE-8B67-6873377B03DB}']
{ Property getters and setters }
function GetOldIDValue : Integer;
function GetOldID_CATEGORIAValue : Integer;
@ -1394,7 +1573,7 @@ type
{ IProveedoresDelta }
IProveedoresDelta = interface(IProveedores)
['{56BF7615-F24A-452F-BE6D-76B7819C6098}']
['{9ECDF72A-3474-4953-BD46-0D5144A83E05}']
{ Property getters and setters }
function GetOldIDValue : Integer;
function GetOldID_CATEGORIAValue : Integer;
@ -1921,7 +2100,7 @@ type
{ IVendedoresDelta }
IVendedoresDelta = interface(IVendedores)
['{2CA2DC31-7B3E-4942-9442-236A0AC55B44}']
['{2DE78E52-4D45-4268-8819-9AD19A3F56EB}']
{ Property getters and setters }
function GetOldIDValue : Integer;
function GetOldID_CATEGORIAValue : Integer;
@ -2268,7 +2447,7 @@ type
{ IDireccionesContactoDelta }
IDireccionesContactoDelta = interface(IDireccionesContacto)
['{5CF44C27-79DB-4B6A-A8FC-CDB65D67955F}']
['{E6EADB4D-1AC5-44DA-A6AC-ADA149CE45E6}']
{ Property getters and setters }
function GetOldIDValue : Integer;
function GetOldID_CONTACTOValue : Integer;
@ -2495,7 +2674,7 @@ type
{ IClientesDescuentosDelta }
IClientesDescuentosDelta = interface(IClientesDescuentos)
['{3EDEF6F6-D8F9-44EE-A483-BA3184E0E083}']
['{D0580747-9AF6-4399-B984-B924BAAA9262}']
{ Property getters and setters }
function GetOldIDValue : Integer;
function GetOldID_CLIENTEValue : Integer;
@ -2577,7 +2756,7 @@ type
{ IProcedenciasClienteDelta }
IProcedenciasClienteDelta = interface(IProcedenciasCliente)
['{8A871918-1BBE-4D77-9BA0-558C08550237}']
['{3FA9EC4E-FA9D-41B6-AAA6-1334AA57D811}']
{ Property getters and setters }
function GetOldIDValue : Integer;
function GetOldDESCRIPCIONValue : String;
@ -2623,7 +2802,7 @@ type
{ IGruposProveedorDelta }
IGruposProveedorDelta = interface(IGruposProveedor)
['{BFB686F2-C903-4C4A-A224-C638F6193ADE}']
['{732E6A61-6080-47B2-A359-A7BA6C27AAB9}']
{ Property getters and setters }
function GetOldIDValue : Integer;
function GetOldDESCRIPCIONValue : String;
@ -2669,7 +2848,7 @@ type
{ IContactos_RefreshDelta }
IContactos_RefreshDelta = interface(IContactos_Refresh)
['{B7FAD6FA-C4AF-4226-99F0-1BF341D5F444}']
['{B90A85AF-CE77-49A0-A466-874299F1EFD8}']
{ Property getters and setters }
function GetOldIDValue : Integer;
function GetOldNIF_CIFValue : String;
@ -4775,6 +4954,421 @@ begin
end;
{ TContactosDireccionesBusinessProcessorRules }
constructor TContactosDireccionesBusinessProcessorRules.Create(aBusinessProcessor: TDABusinessProcessor);
begin
inherited;
end;
destructor TContactosDireccionesBusinessProcessorRules.Destroy;
begin
inherited;
end;
function TContactosDireccionesBusinessProcessorRules.GetID_CONTACTOValue: Integer;
begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_ContactosDireccionesID_CONTACTO];
end;
function TContactosDireccionesBusinessProcessorRules.GetID_CONTACTOIsNull: Boolean;
begin
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_ContactosDireccionesID_CONTACTO]);
end;
function TContactosDireccionesBusinessProcessorRules.GetOldID_CONTACTOValue: Integer;
begin
result := BusinessProcessor.CurrentChange.OldValueByName[fld_ContactosDireccionesID_CONTACTO];
end;
function TContactosDireccionesBusinessProcessorRules.GetOldID_CONTACTOIsNull: Boolean;
begin
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_ContactosDireccionesID_CONTACTO]);
end;
procedure TContactosDireccionesBusinessProcessorRules.SetID_CONTACTOValue(const aValue: Integer);
begin
BusinessProcessor.CurrentChange.NewValueByName[fld_ContactosDireccionesID_CONTACTO] := aValue;
end;
procedure TContactosDireccionesBusinessProcessorRules.SetID_CONTACTOIsNull(const aValue: Boolean);
begin
if aValue then
BusinessProcessor.CurrentChange.NewValueByName[fld_ContactosDireccionesID_CONTACTO] := Null;
end;
function TContactosDireccionesBusinessProcessorRules.GetID_DIRECCIONValue: Integer;
begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_ContactosDireccionesID_DIRECCION];
end;
function TContactosDireccionesBusinessProcessorRules.GetID_DIRECCIONIsNull: Boolean;
begin
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_ContactosDireccionesID_DIRECCION]);
end;
function TContactosDireccionesBusinessProcessorRules.GetOldID_DIRECCIONValue: Integer;
begin
result := BusinessProcessor.CurrentChange.OldValueByName[fld_ContactosDireccionesID_DIRECCION];
end;
function TContactosDireccionesBusinessProcessorRules.GetOldID_DIRECCIONIsNull: Boolean;
begin
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_ContactosDireccionesID_DIRECCION]);
end;
procedure TContactosDireccionesBusinessProcessorRules.SetID_DIRECCIONValue(const aValue: Integer);
begin
BusinessProcessor.CurrentChange.NewValueByName[fld_ContactosDireccionesID_DIRECCION] := aValue;
end;
procedure TContactosDireccionesBusinessProcessorRules.SetID_DIRECCIONIsNull(const aValue: Boolean);
begin
if aValue then
BusinessProcessor.CurrentChange.NewValueByName[fld_ContactosDireccionesID_DIRECCION] := Null;
end;
function TContactosDireccionesBusinessProcessorRules.GetNOMBREValue: String;
begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_ContactosDireccionesNOMBRE];
end;
function TContactosDireccionesBusinessProcessorRules.GetNOMBREIsNull: Boolean;
begin
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_ContactosDireccionesNOMBRE]);
end;
function TContactosDireccionesBusinessProcessorRules.GetOldNOMBREValue: String;
begin
result := BusinessProcessor.CurrentChange.OldValueByName[fld_ContactosDireccionesNOMBRE];
end;
function TContactosDireccionesBusinessProcessorRules.GetOldNOMBREIsNull: Boolean;
begin
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_ContactosDireccionesNOMBRE]);
end;
procedure TContactosDireccionesBusinessProcessorRules.SetNOMBREValue(const aValue: String);
begin
BusinessProcessor.CurrentChange.NewValueByName[fld_ContactosDireccionesNOMBRE] := aValue;
end;
procedure TContactosDireccionesBusinessProcessorRules.SetNOMBREIsNull(const aValue: Boolean);
begin
if aValue then
BusinessProcessor.CurrentChange.NewValueByName[fld_ContactosDireccionesNOMBRE] := Null;
end;
function TContactosDireccionesBusinessProcessorRules.GetNIF_CIFValue: String;
begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_ContactosDireccionesNIF_CIF];
end;
function TContactosDireccionesBusinessProcessorRules.GetNIF_CIFIsNull: Boolean;
begin
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_ContactosDireccionesNIF_CIF]);
end;
function TContactosDireccionesBusinessProcessorRules.GetOldNIF_CIFValue: String;
begin
result := BusinessProcessor.CurrentChange.OldValueByName[fld_ContactosDireccionesNIF_CIF];
end;
function TContactosDireccionesBusinessProcessorRules.GetOldNIF_CIFIsNull: Boolean;
begin
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_ContactosDireccionesNIF_CIF]);
end;
procedure TContactosDireccionesBusinessProcessorRules.SetNIF_CIFValue(const aValue: String);
begin
BusinessProcessor.CurrentChange.NewValueByName[fld_ContactosDireccionesNIF_CIF] := aValue;
end;
procedure TContactosDireccionesBusinessProcessorRules.SetNIF_CIFIsNull(const aValue: Boolean);
begin
if aValue then
BusinessProcessor.CurrentChange.NewValueByName[fld_ContactosDireccionesNIF_CIF] := Null;
end;
function TContactosDireccionesBusinessProcessorRules.GetCALLEValue: String;
begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_ContactosDireccionesCALLE];
end;
function TContactosDireccionesBusinessProcessorRules.GetCALLEIsNull: Boolean;
begin
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_ContactosDireccionesCALLE]);
end;
function TContactosDireccionesBusinessProcessorRules.GetOldCALLEValue: String;
begin
result := BusinessProcessor.CurrentChange.OldValueByName[fld_ContactosDireccionesCALLE];
end;
function TContactosDireccionesBusinessProcessorRules.GetOldCALLEIsNull: Boolean;
begin
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_ContactosDireccionesCALLE]);
end;
procedure TContactosDireccionesBusinessProcessorRules.SetCALLEValue(const aValue: String);
begin
BusinessProcessor.CurrentChange.NewValueByName[fld_ContactosDireccionesCALLE] := aValue;
end;
procedure TContactosDireccionesBusinessProcessorRules.SetCALLEIsNull(const aValue: Boolean);
begin
if aValue then
BusinessProcessor.CurrentChange.NewValueByName[fld_ContactosDireccionesCALLE] := Null;
end;
function TContactosDireccionesBusinessProcessorRules.GetPOBLACIONValue: String;
begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_ContactosDireccionesPOBLACION];
end;
function TContactosDireccionesBusinessProcessorRules.GetPOBLACIONIsNull: Boolean;
begin
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_ContactosDireccionesPOBLACION]);
end;
function TContactosDireccionesBusinessProcessorRules.GetOldPOBLACIONValue: String;
begin
result := BusinessProcessor.CurrentChange.OldValueByName[fld_ContactosDireccionesPOBLACION];
end;
function TContactosDireccionesBusinessProcessorRules.GetOldPOBLACIONIsNull: Boolean;
begin
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_ContactosDireccionesPOBLACION]);
end;
procedure TContactosDireccionesBusinessProcessorRules.SetPOBLACIONValue(const aValue: String);
begin
BusinessProcessor.CurrentChange.NewValueByName[fld_ContactosDireccionesPOBLACION] := aValue;
end;
procedure TContactosDireccionesBusinessProcessorRules.SetPOBLACIONIsNull(const aValue: Boolean);
begin
if aValue then
BusinessProcessor.CurrentChange.NewValueByName[fld_ContactosDireccionesPOBLACION] := Null;
end;
function TContactosDireccionesBusinessProcessorRules.GetPROVINCIAValue: String;
begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_ContactosDireccionesPROVINCIA];
end;
function TContactosDireccionesBusinessProcessorRules.GetPROVINCIAIsNull: Boolean;
begin
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_ContactosDireccionesPROVINCIA]);
end;
function TContactosDireccionesBusinessProcessorRules.GetOldPROVINCIAValue: String;
begin
result := BusinessProcessor.CurrentChange.OldValueByName[fld_ContactosDireccionesPROVINCIA];
end;
function TContactosDireccionesBusinessProcessorRules.GetOldPROVINCIAIsNull: Boolean;
begin
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_ContactosDireccionesPROVINCIA]);
end;
procedure TContactosDireccionesBusinessProcessorRules.SetPROVINCIAValue(const aValue: String);
begin
BusinessProcessor.CurrentChange.NewValueByName[fld_ContactosDireccionesPROVINCIA] := aValue;
end;
procedure TContactosDireccionesBusinessProcessorRules.SetPROVINCIAIsNull(const aValue: Boolean);
begin
if aValue then
BusinessProcessor.CurrentChange.NewValueByName[fld_ContactosDireccionesPROVINCIA] := Null;
end;
function TContactosDireccionesBusinessProcessorRules.GetCODIGO_POSTALValue: String;
begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_ContactosDireccionesCODIGO_POSTAL];
end;
function TContactosDireccionesBusinessProcessorRules.GetCODIGO_POSTALIsNull: Boolean;
begin
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_ContactosDireccionesCODIGO_POSTAL]);
end;
function TContactosDireccionesBusinessProcessorRules.GetOldCODIGO_POSTALValue: String;
begin
result := BusinessProcessor.CurrentChange.OldValueByName[fld_ContactosDireccionesCODIGO_POSTAL];
end;
function TContactosDireccionesBusinessProcessorRules.GetOldCODIGO_POSTALIsNull: Boolean;
begin
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_ContactosDireccionesCODIGO_POSTAL]);
end;
procedure TContactosDireccionesBusinessProcessorRules.SetCODIGO_POSTALValue(const aValue: String);
begin
BusinessProcessor.CurrentChange.NewValueByName[fld_ContactosDireccionesCODIGO_POSTAL] := aValue;
end;
procedure TContactosDireccionesBusinessProcessorRules.SetCODIGO_POSTALIsNull(const aValue: Boolean);
begin
if aValue then
BusinessProcessor.CurrentChange.NewValueByName[fld_ContactosDireccionesCODIGO_POSTAL] := Null;
end;
function TContactosDireccionesBusinessProcessorRules.GetTELEFONOValue: String;
begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_ContactosDireccionesTELEFONO];
end;
function TContactosDireccionesBusinessProcessorRules.GetTELEFONOIsNull: Boolean;
begin
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_ContactosDireccionesTELEFONO]);
end;
function TContactosDireccionesBusinessProcessorRules.GetOldTELEFONOValue: String;
begin
result := BusinessProcessor.CurrentChange.OldValueByName[fld_ContactosDireccionesTELEFONO];
end;
function TContactosDireccionesBusinessProcessorRules.GetOldTELEFONOIsNull: Boolean;
begin
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_ContactosDireccionesTELEFONO]);
end;
procedure TContactosDireccionesBusinessProcessorRules.SetTELEFONOValue(const aValue: String);
begin
BusinessProcessor.CurrentChange.NewValueByName[fld_ContactosDireccionesTELEFONO] := aValue;
end;
procedure TContactosDireccionesBusinessProcessorRules.SetTELEFONOIsNull(const aValue: Boolean);
begin
if aValue then
BusinessProcessor.CurrentChange.NewValueByName[fld_ContactosDireccionesTELEFONO] := Null;
end;
function TContactosDireccionesBusinessProcessorRules.GetMOVILValue: String;
begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_ContactosDireccionesMOVIL];
end;
function TContactosDireccionesBusinessProcessorRules.GetMOVILIsNull: Boolean;
begin
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_ContactosDireccionesMOVIL]);
end;
function TContactosDireccionesBusinessProcessorRules.GetOldMOVILValue: String;
begin
result := BusinessProcessor.CurrentChange.OldValueByName[fld_ContactosDireccionesMOVIL];
end;
function TContactosDireccionesBusinessProcessorRules.GetOldMOVILIsNull: Boolean;
begin
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_ContactosDireccionesMOVIL]);
end;
procedure TContactosDireccionesBusinessProcessorRules.SetMOVILValue(const aValue: String);
begin
BusinessProcessor.CurrentChange.NewValueByName[fld_ContactosDireccionesMOVIL] := aValue;
end;
procedure TContactosDireccionesBusinessProcessorRules.SetMOVILIsNull(const aValue: Boolean);
begin
if aValue then
BusinessProcessor.CurrentChange.NewValueByName[fld_ContactosDireccionesMOVIL] := Null;
end;
function TContactosDireccionesBusinessProcessorRules.GetFAXValue: String;
begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_ContactosDireccionesFAX];
end;
function TContactosDireccionesBusinessProcessorRules.GetFAXIsNull: Boolean;
begin
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_ContactosDireccionesFAX]);
end;
function TContactosDireccionesBusinessProcessorRules.GetOldFAXValue: String;
begin
result := BusinessProcessor.CurrentChange.OldValueByName[fld_ContactosDireccionesFAX];
end;
function TContactosDireccionesBusinessProcessorRules.GetOldFAXIsNull: Boolean;
begin
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_ContactosDireccionesFAX]);
end;
procedure TContactosDireccionesBusinessProcessorRules.SetFAXValue(const aValue: String);
begin
BusinessProcessor.CurrentChange.NewValueByName[fld_ContactosDireccionesFAX] := aValue;
end;
procedure TContactosDireccionesBusinessProcessorRules.SetFAXIsNull(const aValue: Boolean);
begin
if aValue then
BusinessProcessor.CurrentChange.NewValueByName[fld_ContactosDireccionesFAX] := Null;
end;
function TContactosDireccionesBusinessProcessorRules.GetEMAILValue: String;
begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_ContactosDireccionesEMAIL];
end;
function TContactosDireccionesBusinessProcessorRules.GetEMAILIsNull: Boolean;
begin
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_ContactosDireccionesEMAIL]);
end;
function TContactosDireccionesBusinessProcessorRules.GetOldEMAILValue: String;
begin
result := BusinessProcessor.CurrentChange.OldValueByName[fld_ContactosDireccionesEMAIL];
end;
function TContactosDireccionesBusinessProcessorRules.GetOldEMAILIsNull: Boolean;
begin
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_ContactosDireccionesEMAIL]);
end;
procedure TContactosDireccionesBusinessProcessorRules.SetEMAILValue(const aValue: String);
begin
BusinessProcessor.CurrentChange.NewValueByName[fld_ContactosDireccionesEMAIL] := aValue;
end;
procedure TContactosDireccionesBusinessProcessorRules.SetEMAILIsNull(const aValue: Boolean);
begin
if aValue then
BusinessProcessor.CurrentChange.NewValueByName[fld_ContactosDireccionesEMAIL] := Null;
end;
function TContactosDireccionesBusinessProcessorRules.GetPERSONA_CONTACTOValue: String;
begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_ContactosDireccionesPERSONA_CONTACTO];
end;
function TContactosDireccionesBusinessProcessorRules.GetPERSONA_CONTACTOIsNull: Boolean;
begin
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_ContactosDireccionesPERSONA_CONTACTO]);
end;
function TContactosDireccionesBusinessProcessorRules.GetOldPERSONA_CONTACTOValue: String;
begin
result := BusinessProcessor.CurrentChange.OldValueByName[fld_ContactosDireccionesPERSONA_CONTACTO];
end;
function TContactosDireccionesBusinessProcessorRules.GetOldPERSONA_CONTACTOIsNull: Boolean;
begin
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_ContactosDireccionesPERSONA_CONTACTO]);
end;
procedure TContactosDireccionesBusinessProcessorRules.SetPERSONA_CONTACTOValue(const aValue: String);
begin
BusinessProcessor.CurrentChange.NewValueByName[fld_ContactosDireccionesPERSONA_CONTACTO] := aValue;
end;
procedure TContactosDireccionesBusinessProcessorRules.SetPERSONA_CONTACTOIsNull(const aValue: Boolean);
begin
if aValue then
BusinessProcessor.CurrentChange.NewValueByName[fld_ContactosDireccionesPERSONA_CONTACTO] := Null;
end;
{ TClientesBusinessProcessorRules }
constructor TClientesBusinessProcessorRules.Create(aBusinessProcessor: TDABusinessProcessor);
var
@ -9848,6 +10442,7 @@ initialization
RegisterBusinessProcessorRules(RID_ContactosDelta, TContactosBusinessProcessorRules);
RegisterBusinessProcessorRules(RID_GruposClienteDelta, TGruposClienteBusinessProcessorRules);
RegisterBusinessProcessorRules(RID_DatosBancariosDelta, TDatosBancariosBusinessProcessorRules);
RegisterBusinessProcessorRules(RID_ContactosDireccionesDelta, TContactosDireccionesBusinessProcessorRules);
RegisterBusinessProcessorRules(RID_ClientesDelta, TClientesBusinessProcessorRules);
RegisterBusinessProcessorRules(RID_ProveedoresDelta, TProveedoresBusinessProcessorRules);
RegisterBusinessProcessorRules(RID_VendedoresDelta, TVendedoresBusinessProcessorRules);

51
Source/Modulos/Contactos/Model/uBizContactosDirecciones.pas Normal file
View File

@ -0,0 +1,51 @@
unit uBizContactosDirecciones;
interface
uses
uDAInterfaces, uDADataTable,
schContactosClient_Intf;
const
BIZ_CLIENT_CONTACTOS_DIRECCIONES = 'Client.ContactosDirecciones';
type
IBizContactosDirecciones = interface(IContactosDirecciones)
['{971F415B-A468-455B-BF86-1795E36858F3}']
end;
TBizContactosDirecciones = class(TContactosDireccionesDataTableRules, IBizContactosDirecciones)
protected
procedure BeforeInsert(Sender: TDADataTable); override;
public
procedure OnNewRecord(Sender: TDADataTable); override;
end;
implementation
uses
Dialogs,uDataTableUtils, DB;
{ TBizDatosBancarios }
procedure TBizContactosDirecciones.BeforeInsert(Sender: TDADataTable);
var
AMasterTable : TDADataTable;
begin
inherited;
AMasterTable := DataTable.GetMasterDataTable;
if Assigned(AMasterTable) and (AMasterTable.State in dsEditModes) then
AMasterTable.Post;
end;
procedure TBizContactosDirecciones.OnNewRecord(Sender: TDADataTable);
begin
inherited;
// ID := GetRecNo; // -1, -2, -3...
end;
initialization
RegisterDataTableRules(BIZ_CLIENT_CONTACTOS_DIRECCIONES, TBizContactosDirecciones);
end.

132
Source/Modulos/Contactos/Servidor/srvContactos_Impl.dfm
View File

@ -673,6 +673,138 @@ object srvContactos: TsrvContactos
Size = 255
end>
end
item
Params = <>
Statements = <
item
Connection = 'IBX'
ConnectionType = 'Interbase'
Default = True
TargetTable = 'V_CONTACTOS_DIRECCIONES'
Name = 'IBX'
StatementType = stAutoSQL
ColumnMappings = <
item
DatasetField = 'ID_CONTACTO'
TableField = 'ID_CONTACTO'
end
item
DatasetField = 'ID_DIRECCION'
TableField = 'ID_DIRECCION'
end
item
DatasetField = 'NOMBRE'
TableField = 'NOMBRE'
end
item
DatasetField = 'NIF_CIF'
TableField = 'NIF_CIF'
end
item
DatasetField = 'CALLE'
TableField = 'CALLE'
end
item
DatasetField = 'POBLACION'
TableField = 'POBLACION'
end
item
DatasetField = 'PROVINCIA'
TableField = 'PROVINCIA'
end
item
DatasetField = 'CODIGO_POSTAL'
TableField = 'CODIGO_POSTAL'
end
item
DatasetField = 'TELEFONO'
TableField = 'TELEFONO'
end
item
DatasetField = 'MOVIL'
TableField = 'MOVIL'
end
item
DatasetField = 'FAX'
TableField = 'FAX'
end
item
DatasetField = 'EMAIL'
TableField = 'EMAIL'
end
item
DatasetField = 'PERSONA_CONTACTO'
TableField = 'PERSONA_CONTACTO'
end>
end>
Name = 'ContactosDirecciones'
Fields = <
item
Name = 'ID_CONTACTO'
DataType = datInteger
InPrimaryKey = True
end
item
Name = 'ID_DIRECCION'
DataType = datInteger
end
item
Name = 'NOMBRE'
DataType = datString
Size = 255
end
item
Name = 'NIF_CIF'
DataType = datString
Size = 15
end
item
Name = 'CALLE'
DataType = datString
Size = 255
end
item
Name = 'POBLACION'
DataType = datString
Size = 255
end
item
Name = 'PROVINCIA'
DataType = datString
Size = 255
end
item
Name = 'CODIGO_POSTAL'
DataType = datString
Size = 10
end
item
Name = 'TELEFONO'
DataType = datString
Size = 25
end
item
Name = 'MOVIL'
DataType = datString
Size = 25
end
item
Name = 'FAX'
DataType = datString
Size = 25
end
item
Name = 'EMAIL'
DataType = datString
Size = 255
end
item
Name = 'PERSONA_CONTACTO'
DataType = datString
Size = 255
end>
ReadOnly = True
end
item
Params = <>
Statements = <

90
Source/Modulos/Contratos de cliente/ContratosCliente_Group.groupproj
View File

@ -9,6 +9,8 @@
<Projects Include="..\..\Cliente\FactuGES.dproj" />
<Projects Include="..\..\GUIBase\GUIBase.dproj" />
<Projects Include="..\..\Servidor\FactuGES_Server.dproj" />
<Projects Include="..\Albaranes de cliente\Controller\AlbaranesCliente_controller.dproj" />
<Projects Include="..\Albaranes de proveedor\Views\AlbaranesProveedor_view.dproj" />
<Projects Include="..\Articulos\Controller\Articulos_controller.dproj" />
<Projects Include="..\Articulos\Data\Articulos_data.dproj" />
<Projects Include="..\Articulos\Views\Articulos_view.dproj" />
@ -18,8 +20,12 @@
<Projects Include="..\Contactos\Views\Contactos_view.dproj" />
<Projects Include="..\Facturas de cliente\Controller\FacturasCliente_controller.dproj" />
<Projects Include="..\Facturas de cliente\Views\FacturasCliente_view.dproj" />
<Projects Include="..\Pedidos a proveedor\Model\PedidosProveedor_model.dproj" />
<Projects Include="..\Pedidos a proveedor\Views\PedidosProveedor_view.dproj" />
<Projects Include="..\Presupuestos de cliente\Controller\PresupuestosCliente_controller.dproj" />
<Projects Include="..\Presupuestos de cliente\Model\PresupuestosCliente_model.dproj" />
<Projects Include="..\Presupuestos de cliente\Views\PresupuestosCliente_view.dproj" />
<Projects Include="..\Relaciones\Albaranes de cliente - Facturas de cliente\AlbCli_FacCli_relation.dproj" />
<Projects Include="..\Relaciones\Contratos de cliente - Albaranes de cliente\ConCli_AlbCli_relation.dproj" />
<Projects Include="..\Relaciones\Contratos de cliente - Facturas de cliente\ConCli_FacCli_relation.dproj" />
<Projects Include="..\Relaciones\Presupuestos de cliente - Contratos de cliente\PreCli_ConCli_relation.dproj" />
@ -125,6 +131,24 @@
<Target Name="Articulos_view:Make">
<MSBuild Projects="..\Articulos\Views\Articulos_view.dproj" Targets="Make" />
</Target>
<Target Name="PresupuestosCliente_model">
<MSBuild Projects="..\Presupuestos de cliente\Model\PresupuestosCliente_model.dproj" Targets="" />
</Target>
<Target Name="PresupuestosCliente_model:Clean">
<MSBuild Projects="..\Presupuestos de cliente\Model\PresupuestosCliente_model.dproj" Targets="Clean" />
</Target>
<Target Name="PresupuestosCliente_model:Make">
<MSBuild Projects="..\Presupuestos de cliente\Model\PresupuestosCliente_model.dproj" Targets="Make" />
</Target>
<Target Name="PresupuestosCliente_controller">
<MSBuild Projects="..\Presupuestos de cliente\Controller\PresupuestosCliente_controller.dproj" Targets="" />
</Target>
<Target Name="PresupuestosCliente_controller:Clean">
<MSBuild Projects="..\Presupuestos de cliente\Controller\PresupuestosCliente_controller.dproj" Targets="Clean" />
</Target>
<Target Name="PresupuestosCliente_controller:Make">
<MSBuild Projects="..\Presupuestos de cliente\Controller\PresupuestosCliente_controller.dproj" Targets="Make" />
</Target>
<Target Name="ContratosCliente_model">
<MSBuild Projects="Model\ContratosCliente_model.dproj" Targets="" />
</Target>
@ -152,6 +176,15 @@
<Target Name="ContratosCliente_controller:Make">
<MSBuild Projects="Controller\ContratosCliente_controller.dproj" Targets="Make" />
</Target>
<Target Name="FacturasCliente_controller">
<MSBuild Projects="..\Facturas de cliente\Controller\FacturasCliente_controller.dproj" Targets="" />
</Target>
<Target Name="FacturasCliente_controller:Clean">
<MSBuild Projects="..\Facturas de cliente\Controller\FacturasCliente_controller.dproj" Targets="Clean" />
</Target>
<Target Name="FacturasCliente_controller:Make">
<MSBuild Projects="..\Facturas de cliente\Controller\FacturasCliente_controller.dproj" Targets="Make" />
</Target>
<Target Name="ConCli_FacCli_relation">
<MSBuild Projects="..\Relaciones\Contratos de cliente - Facturas de cliente\ConCli_FacCli_relation.dproj" Targets="" />
</Target>
@ -233,32 +266,59 @@
<Target Name="FacturasCliente_view:Make">
<MSBuild Projects="..\Facturas de cliente\Views\FacturasCliente_view.dproj" Targets="Make" />
</Target>
<Target Name="PresupuestosCliente_model">
<MSBuild Projects="..\Presupuestos de cliente\Model\PresupuestosCliente_model.dproj" Targets="" />
<Target Name="AlbCli_FacCli_relation">
<MSBuild Projects="..\Relaciones\Albaranes de cliente - Facturas de cliente\AlbCli_FacCli_relation.dproj" Targets="" />
</Target>
<Target Name="PresupuestosCliente_model:Clean">
<MSBuild Projects="..\Presupuestos de cliente\Model\PresupuestosCliente_model.dproj" Targets="Clean" />
<Target Name="AlbCli_FacCli_relation:Clean">
<MSBuild Projects="..\Relaciones\Albaranes de cliente - Facturas de cliente\AlbCli_FacCli_relation.dproj" Targets="Clean" />
</Target>
<Target Name="PresupuestosCliente_model:Make">
<MSBuild Projects="..\Presupuestos de cliente\Model\PresupuestosCliente_model.dproj" Targets="Make" />
<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_controller">
<MSBuild Projects="..\Facturas de cliente\Controller\FacturasCliente_controller.dproj" Targets="" />
<Target Name="AlbaranesProveedor_view">
<MSBuild Projects="..\Albaranes de proveedor\Views\AlbaranesProveedor_view.dproj" Targets="" />
</Target>
<Target Name="FacturasCliente_controller:Clean">
<MSBuild Projects="..\Facturas de cliente\Controller\FacturasCliente_controller.dproj" Targets="Clean" />
<Target Name="AlbaranesProveedor_view:Clean">
<MSBuild Projects="..\Albaranes de proveedor\Views\AlbaranesProveedor_view.dproj" Targets="Clean" />
</Target>
<Target Name="FacturasCliente_controller:Make">
<MSBuild Projects="..\Facturas de cliente\Controller\FacturasCliente_controller.dproj" Targets="Make" />
<Target Name="AlbaranesProveedor_view:Make">
<MSBuild Projects="..\Albaranes de proveedor\Views\AlbaranesProveedor_view.dproj" Targets="Make" />
</Target>
<Target Name="PedidosProveedor_model">
<MSBuild Projects="..\Pedidos a proveedor\Model\PedidosProveedor_model.dproj" Targets="" />
</Target>
<Target Name="PedidosProveedor_model:Clean">
<MSBuild Projects="..\Pedidos a proveedor\Model\PedidosProveedor_model.dproj" Targets="Clean" />
</Target>
<Target Name="PedidosProveedor_model:Make">
<MSBuild Projects="..\Pedidos a proveedor\Model\PedidosProveedor_model.dproj" Targets="Make" />
</Target>
<Target Name="PedidosProveedor_view">
<MSBuild Projects="..\Pedidos a proveedor\Views\PedidosProveedor_view.dproj" Targets="" />
</Target>
<Target Name="PedidosProveedor_view:Clean">
<MSBuild Projects="..\Pedidos a proveedor\Views\PedidosProveedor_view.dproj" Targets="Clean" />
</Target>
<Target Name="PedidosProveedor_view:Make">
<MSBuild Projects="..\Pedidos a proveedor\Views\PedidosProveedor_view.dproj" Targets="Make" />
</Target>
<Target Name="AlbaranesCliente_controller">
<MSBuild Projects="..\Albaranes de cliente\Controller\AlbaranesCliente_controller.dproj" Targets="" />
</Target>
<Target Name="AlbaranesCliente_controller:Clean">
<MSBuild Projects="..\Albaranes de cliente\Controller\AlbaranesCliente_controller.dproj" Targets="Clean" />
</Target>
<Target Name="AlbaranesCliente_controller:Make">
<MSBuild Projects="..\Albaranes de cliente\Controller\AlbaranesCliente_controller.dproj" Targets="Make" />
</Target>
<Target Name="Build">
<CallTarget Targets="Base;GUIBase;ApplicationBase;Contactos_model;Contactos_data;Contactos_controller;Contactos_view;Articulos_data;Articulos_controller;Articulos_view;ContratosCliente_model;ContratosCliente_data;ContratosCliente_controller;ConCli_FacCli_relation;ConCli_AlbCli_relation;ContratosCliente_view;ContratosCliente_plugin;FactuGES;FactuGES_Server;PreCli_ConCli_relation;PresupuestosCliente_view;FacturasCliente_view;PresupuestosCliente_model;FacturasCliente_controller" />
<CallTarget Targets="Base;GUIBase;ApplicationBase;Contactos_model;Contactos_data;Contactos_controller;Contactos_view;Articulos_data;Articulos_controller;Articulos_view;PresupuestosCliente_model;PresupuestosCliente_controller;ContratosCliente_model;ContratosCliente_data;ContratosCliente_controller;FacturasCliente_controller;ConCli_FacCli_relation;ConCli_AlbCli_relation;ContratosCliente_view;ContratosCliente_plugin;FactuGES;FactuGES_Server;PreCli_ConCli_relation;PresupuestosCliente_view;FacturasCliente_view;AlbCli_FacCli_relation;AlbaranesProveedor_view;PedidosProveedor_model;PedidosProveedor_view;AlbaranesCliente_controller" />
</Target>
<Target Name="Clean">
<CallTarget Targets="Base:Clean;GUIBase:Clean;ApplicationBase:Clean;Contactos_model:Clean;Contactos_data:Clean;Contactos_controller:Clean;Contactos_view:Clean;Articulos_data:Clean;Articulos_controller:Clean;Articulos_view:Clean;ContratosCliente_model:Clean;ContratosCliente_data:Clean;ContratosCliente_controller:Clean;ConCli_FacCli_relation:Clean;ConCli_AlbCli_relation:Clean;ContratosCliente_view:Clean;ContratosCliente_plugin:Clean;FactuGES:Clean;FactuGES_Server:Clean;PreCli_ConCli_relation:Clean;PresupuestosCliente_view:Clean;FacturasCliente_view:Clean;PresupuestosCliente_model:Clean;FacturasCliente_controller:Clean" />
<CallTarget Targets="Base:Clean;GUIBase:Clean;ApplicationBase:Clean;Contactos_model:Clean;Contactos_data:Clean;Contactos_controller:Clean;Contactos_view:Clean;Articulos_data:Clean;Articulos_controller:Clean;Articulos_view:Clean;PresupuestosCliente_model:Clean;PresupuestosCliente_controller:Clean;ContratosCliente_model:Clean;ContratosCliente_data:Clean;ContratosCliente_controller:Clean;FacturasCliente_controller:Clean;ConCli_FacCli_relation:Clean;ConCli_AlbCli_relation:Clean;ContratosCliente_view:Clean;ContratosCliente_plugin:Clean;FactuGES:Clean;FactuGES_Server:Clean;PreCli_ConCli_relation:Clean;PresupuestosCliente_view:Clean;FacturasCliente_view:Clean;AlbCli_FacCli_relation:Clean;AlbaranesProveedor_view:Clean;PedidosProveedor_model:Clean;PedidosProveedor_view:Clean;AlbaranesCliente_controller:Clean" />
</Target>
<Target Name="Make">
<CallTarget Targets="Base:Make;GUIBase:Make;ApplicationBase:Make;Contactos_model:Make;Contactos_data:Make;Contactos_controller:Make;Contactos_view:Make;Articulos_data:Make;Articulos_controller:Make;Articulos_view:Make;ContratosCliente_model:Make;ContratosCliente_data:Make;ContratosCliente_controller:Make;ConCli_FacCli_relation:Make;ConCli_AlbCli_relation:Make;ContratosCliente_view:Make;ContratosCliente_plugin:Make;FactuGES:Make;FactuGES_Server:Make;PreCli_ConCli_relation:Make;PresupuestosCliente_view:Make;FacturasCliente_view:Make;PresupuestosCliente_model:Make;FacturasCliente_controller:Make" />
<CallTarget Targets="Base:Make;GUIBase:Make;ApplicationBase:Make;Contactos_model:Make;Contactos_data:Make;Contactos_controller:Make;Contactos_view:Make;Articulos_data:Make;Articulos_controller:Make;Articulos_view:Make;PresupuestosCliente_model:Make;PresupuestosCliente_controller:Make;ContratosCliente_model:Make;ContratosCliente_data:Make;ContratosCliente_controller:Make;FacturasCliente_controller:Make;ConCli_FacCli_relation:Make;ConCli_AlbCli_relation:Make;ContratosCliente_view:Make;ContratosCliente_plugin:Make;FactuGES:Make;FactuGES_Server:Make;PreCli_ConCli_relation:Make;PresupuestosCliente_view:Make;FacturasCliente_view:Make;AlbCli_FacCli_relation:Make;AlbaranesProveedor_view:Make;PedidosProveedor_model:Make;PedidosProveedor_view:Make;AlbaranesCliente_controller:Make" />
</Target>
<Import Condition="Exists('$(MSBuildBinPath)\Borland.Group.Targets')" Project="$(MSBuildBinPath)\Borland.Group.Targets" />
</Project>

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

@ -67,6 +67,7 @@ type
function DarListaAnosContratos: TStringList;
procedure FiltrarAno(AContrato: IBizContratoCliente; ADynWhereDataTable: WideString; const Ano: String);
procedure VerListadoBeneficios;
procedure VerDireccionEntrega(AContrato : IBizContratoCliente);
end;
TContratosClienteController = class(TControllerBase, IContratosClienteController)
@ -144,6 +145,7 @@ type
function DarListaAnosContratos: TStringList;
procedure FiltrarAno(AContrato: IBizContratoCliente; ADynWhereDataTable: WideString; const Ano: String);
procedure VerListadoBeneficios;
procedure VerDireccionEntrega(AContrato : IBizContratoCliente);
end;
implementation
@ -512,6 +514,24 @@ begin
end;
end;
procedure TContratosClienteController.VerDireccionEntrega(AContrato: IBizContratoCliente);
var
AEditor : IEditorDireccionEntregaContratoCliente;
begin
AEditor := NIL;
//RecuperarObjetos(AContrato); <- No descomentar. No hace falta
CreateEditor('EditorDireccionEntregaContratoCliente', IEditorDireccionEntregaContratoCliente, AEditor);
if Assigned(AEditor) then
try
AEditor.Contrato := AContrato;
AEditor.ShowModal;
finally
AEditor.Release;
AEditor := NIL;
end;
end;
procedure TContratosClienteController.VerListadoBeneficios;
var
AContratosClienteBeneficios: IBizContratosClienteBeneficios;

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

@ -339,6 +339,45 @@ inherited DataModuleContratosCliente: TDataModuleContratosCliente
item
Name = 'PRECIO_PUNTO'
DataType = datCurrency
end
item
Name = 'ID_DIRECCION_ENVIO'
DataType = datInteger
end
item
Name = 'CALLE_ENVIO'
DataType = datString
Size = 255
end
item
Name = 'POBLACION_ENVIO'
DataType = datString
Size = 255
end
item
Name = 'PROVINCIA_ENVIO'
DataType = datString
Size = 255
end
item
Name = 'CODIGO_POSTAL_ENVIO'
DataType = datString
Size = 255
end
item
Name = 'PERS_CONTACTO_ENVIO'
DataType = datString
Size = 255
end
item
Name = 'TLFS_ENVIO'
DataType = datString
Size = 30
end
item
Name = 'NOTAS_ENVIO'
DataType = datString
Size = 255
end>
Params = <>
StreamingOptions = [soDisableEventsWhileStreaming]

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

@ -9,13 +9,13 @@ const
{ Data table rules ids
Feel free to change them to something more human readable
but make sure they are unique in the context of your application }
RID_Valores = '{39510FE4-7F74-401D-869E-CFB507479067}';
RID_Propiedades = '{949B514D-468F-4D4D-B429-C68FC2863BD6}';
RID_ListaAnosContratos = '{572F77CB-74C7-4CC7-B2C7-AB76992CC0D9}';
RID_ContratosClienteBeneficios = '{BC4D5A2E-FD5F-4BB9-BCDF-D54933C6255C}';
RID_ContratosCliente = '{F7738525-8BBC-463A-A369-81EA51C10BE0}';
RID_TiposCapitulos = '{A72F947C-5A9B-49F6-9378-B3D4AB9960DD}';
RID_ContratosCliente_Detalles = '{5D8BC29D-E34D-4E9F-B9A2-A7F2BC896C6C}';
RID_Valores = '{98AF2F15-AC1C-4F59-991B-34089BDDC840}';
RID_Propiedades = '{0DB1A888-E1A8-4A65-AB62-3C7EFEAB8F69}';
RID_ListaAnosContratos = '{0E2B9164-2FB9-4B39-8FBC-6BE3D336B48C}';
RID_ContratosClienteBeneficios = '{5E784AF4-01EC-4DF6-8ADC-73278CAE3BF8}';
RID_ContratosCliente = '{EB63D7F9-FAFD-4229-82FB-2D186699CA34}';
RID_TiposCapitulos = '{67FCFC6C-9C96-4AC1-9F7A-DBEE94850F21}';
RID_ContratosCliente_Detalles = '{D725D49A-4F2C-4F00-8096-0D5F8B154ED0}';
{ Data table names }
nme_Valores = 'Valores';
@ -136,6 +136,14 @@ const
fld_ContratosClienteREFERENCIA_CLIENTE = 'REFERENCIA_CLIENTE';
fld_ContratosClienteFACTURA_ASOCIADA = 'FACTURA_ASOCIADA';
fld_ContratosClientePRECIO_PUNTO = 'PRECIO_PUNTO';
fld_ContratosClienteID_DIRECCION_ENVIO = 'ID_DIRECCION_ENVIO';
fld_ContratosClienteCALLE_ENVIO = 'CALLE_ENVIO';
fld_ContratosClientePOBLACION_ENVIO = 'POBLACION_ENVIO';
fld_ContratosClientePROVINCIA_ENVIO = 'PROVINCIA_ENVIO';
fld_ContratosClienteCODIGO_POSTAL_ENVIO = 'CODIGO_POSTAL_ENVIO';
fld_ContratosClientePERS_CONTACTO_ENVIO = 'PERS_CONTACTO_ENVIO';
fld_ContratosClienteTLFS_ENVIO = 'TLFS_ENVIO';
fld_ContratosClienteNOTAS_ENVIO = 'NOTAS_ENVIO';
{ ContratosCliente field indexes }
idx_ContratosClienteID = 0;
@ -187,6 +195,14 @@ const
idx_ContratosClienteREFERENCIA_CLIENTE = 46;
idx_ContratosClienteFACTURA_ASOCIADA = 47;
idx_ContratosClientePRECIO_PUNTO = 48;
idx_ContratosClienteID_DIRECCION_ENVIO = 49;
idx_ContratosClienteCALLE_ENVIO = 50;
idx_ContratosClientePOBLACION_ENVIO = 51;
idx_ContratosClientePROVINCIA_ENVIO = 52;
idx_ContratosClienteCODIGO_POSTAL_ENVIO = 53;
idx_ContratosClientePERS_CONTACTO_ENVIO = 54;
idx_ContratosClienteTLFS_ENVIO = 55;
idx_ContratosClienteNOTAS_ENVIO = 56;
{ TiposCapitulos fields }
fld_TiposCapitulosID = 'ID';
@ -245,7 +261,7 @@ const
type
{ IValores }
IValores = interface(IDAStronglyTypedDataTable)
['{DACA7BC8-C413-4082-886E-6F0C503F6132}']
['{CAC51712-8DE1-46A2-AA4D-4AF8BB9C0CBD}']
{ Property getters and setters }
function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer);
@ -304,7 +320,7 @@ type
{ IPropiedades }
IPropiedades = interface(IDAStronglyTypedDataTable)
['{F590BA10-8F0F-4365-9A7E-DF735A6D7F37}']
['{F3CF2F1F-2B05-40E6-B2FF-68123C0565E4}']
{ Property getters and setters }
function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer);
@ -363,7 +379,7 @@ type
{ IListaAnosContratos }
IListaAnosContratos = interface(IDAStronglyTypedDataTable)
['{5BA2BF07-C795-41F5-9D37-F256F7453892}']
['{2DB80898-DEE3-4EA1-9BAA-04A1CBD9CB04}']
{ Property getters and setters }
function GetANOValue: String;
procedure SetANOValue(const aValue: String);
@ -398,7 +414,7 @@ type
{ IContratosClienteBeneficios }
IContratosClienteBeneficios = interface(IDAStronglyTypedDataTable)
['{A9D1988D-0E6E-4C26-8A9D-B4FAC07DF3B3}']
['{6AC20789-FF7D-4A25-803D-2AD9D912D314}']
{ Property getters and setters }
function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer);
@ -601,7 +617,7 @@ type
{ IContratosCliente }
IContratosCliente = interface(IDAStronglyTypedDataTable)
['{3B5E86A1-8DC4-4855-B315-0FBCF8D81EC3}']
['{9AD248D1-FF4C-4511-AEA7-8FD929DCC8B4}']
{ Property getters and setters }
function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer);
@ -795,6 +811,38 @@ type
procedure SetPRECIO_PUNTOValue(const aValue: Currency);
function GetPRECIO_PUNTOIsNull: Boolean;
procedure SetPRECIO_PUNTOIsNull(const aValue: Boolean);
function GetID_DIRECCION_ENVIOValue: Integer;
procedure SetID_DIRECCION_ENVIOValue(const aValue: Integer);
function GetID_DIRECCION_ENVIOIsNull: Boolean;
procedure SetID_DIRECCION_ENVIOIsNull(const aValue: Boolean);
function GetCALLE_ENVIOValue: String;
procedure SetCALLE_ENVIOValue(const aValue: String);
function GetCALLE_ENVIOIsNull: Boolean;
procedure SetCALLE_ENVIOIsNull(const aValue: Boolean);
function GetPOBLACION_ENVIOValue: String;
procedure SetPOBLACION_ENVIOValue(const aValue: String);
function GetPOBLACION_ENVIOIsNull: Boolean;
procedure SetPOBLACION_ENVIOIsNull(const aValue: Boolean);
function GetPROVINCIA_ENVIOValue: String;
procedure SetPROVINCIA_ENVIOValue(const aValue: String);
function GetPROVINCIA_ENVIOIsNull: Boolean;
procedure SetPROVINCIA_ENVIOIsNull(const aValue: Boolean);
function GetCODIGO_POSTAL_ENVIOValue: String;
procedure SetCODIGO_POSTAL_ENVIOValue(const aValue: String);
function GetCODIGO_POSTAL_ENVIOIsNull: Boolean;
procedure SetCODIGO_POSTAL_ENVIOIsNull(const aValue: Boolean);
function GetPERS_CONTACTO_ENVIOValue: String;
procedure SetPERS_CONTACTO_ENVIOValue(const aValue: String);
function GetPERS_CONTACTO_ENVIOIsNull: Boolean;
procedure SetPERS_CONTACTO_ENVIOIsNull(const aValue: Boolean);
function GetTLFS_ENVIOValue: String;
procedure SetTLFS_ENVIOValue(const aValue: String);
function GetTLFS_ENVIOIsNull: Boolean;
procedure SetTLFS_ENVIOIsNull(const aValue: Boolean);
function GetNOTAS_ENVIOValue: String;
procedure SetNOTAS_ENVIOValue(const aValue: String);
function GetNOTAS_ENVIOIsNull: Boolean;
procedure SetNOTAS_ENVIOIsNull(const aValue: Boolean);
{ Properties }
@ -896,6 +944,22 @@ type
property FACTURA_ASOCIADAIsNull: Boolean read GetFACTURA_ASOCIADAIsNull write SetFACTURA_ASOCIADAIsNull;
property PRECIO_PUNTO: Currency read GetPRECIO_PUNTOValue write SetPRECIO_PUNTOValue;
property PRECIO_PUNTOIsNull: Boolean read GetPRECIO_PUNTOIsNull write SetPRECIO_PUNTOIsNull;
property ID_DIRECCION_ENVIO: Integer read GetID_DIRECCION_ENVIOValue write SetID_DIRECCION_ENVIOValue;
property ID_DIRECCION_ENVIOIsNull: Boolean read GetID_DIRECCION_ENVIOIsNull write SetID_DIRECCION_ENVIOIsNull;
property CALLE_ENVIO: String read GetCALLE_ENVIOValue write SetCALLE_ENVIOValue;
property CALLE_ENVIOIsNull: Boolean read GetCALLE_ENVIOIsNull write SetCALLE_ENVIOIsNull;
property POBLACION_ENVIO: String read GetPOBLACION_ENVIOValue write SetPOBLACION_ENVIOValue;
property POBLACION_ENVIOIsNull: Boolean read GetPOBLACION_ENVIOIsNull write SetPOBLACION_ENVIOIsNull;
property PROVINCIA_ENVIO: String read GetPROVINCIA_ENVIOValue write SetPROVINCIA_ENVIOValue;
property PROVINCIA_ENVIOIsNull: Boolean read GetPROVINCIA_ENVIOIsNull write SetPROVINCIA_ENVIOIsNull;
property CODIGO_POSTAL_ENVIO: String read GetCODIGO_POSTAL_ENVIOValue write SetCODIGO_POSTAL_ENVIOValue;
property CODIGO_POSTAL_ENVIOIsNull: Boolean read GetCODIGO_POSTAL_ENVIOIsNull write SetCODIGO_POSTAL_ENVIOIsNull;
property PERS_CONTACTO_ENVIO: String read GetPERS_CONTACTO_ENVIOValue write SetPERS_CONTACTO_ENVIOValue;
property PERS_CONTACTO_ENVIOIsNull: Boolean read GetPERS_CONTACTO_ENVIOIsNull write SetPERS_CONTACTO_ENVIOIsNull;
property TLFS_ENVIO: String read GetTLFS_ENVIOValue write SetTLFS_ENVIOValue;
property TLFS_ENVIOIsNull: Boolean read GetTLFS_ENVIOIsNull write SetTLFS_ENVIOIsNull;
property NOTAS_ENVIO: String read GetNOTAS_ENVIOValue write SetNOTAS_ENVIOValue;
property NOTAS_ENVIOIsNull: Boolean read GetNOTAS_ENVIOIsNull write SetNOTAS_ENVIOIsNull;
end;
{ TContratosClienteDataTableRules }
@ -1103,6 +1167,38 @@ type
procedure SetPRECIO_PUNTOValue(const aValue: Currency); virtual;
function GetPRECIO_PUNTOIsNull: Boolean; virtual;
procedure SetPRECIO_PUNTOIsNull(const aValue: Boolean); virtual;
function GetID_DIRECCION_ENVIOValue: Integer; virtual;
procedure SetID_DIRECCION_ENVIOValue(const aValue: Integer); virtual;
function GetID_DIRECCION_ENVIOIsNull: Boolean; virtual;
procedure SetID_DIRECCION_ENVIOIsNull(const aValue: Boolean); virtual;
function GetCALLE_ENVIOValue: String; virtual;
procedure SetCALLE_ENVIOValue(const aValue: String); virtual;
function GetCALLE_ENVIOIsNull: Boolean; virtual;
procedure SetCALLE_ENVIOIsNull(const aValue: Boolean); virtual;
function GetPOBLACION_ENVIOValue: String; virtual;
procedure SetPOBLACION_ENVIOValue(const aValue: String); virtual;
function GetPOBLACION_ENVIOIsNull: Boolean; virtual;
procedure SetPOBLACION_ENVIOIsNull(const aValue: Boolean); virtual;
function GetPROVINCIA_ENVIOValue: String; virtual;
procedure SetPROVINCIA_ENVIOValue(const aValue: String); virtual;
function GetPROVINCIA_ENVIOIsNull: Boolean; virtual;
procedure SetPROVINCIA_ENVIOIsNull(const aValue: Boolean); virtual;
function GetCODIGO_POSTAL_ENVIOValue: String; virtual;
procedure SetCODIGO_POSTAL_ENVIOValue(const aValue: String); virtual;
function GetCODIGO_POSTAL_ENVIOIsNull: Boolean; virtual;
procedure SetCODIGO_POSTAL_ENVIOIsNull(const aValue: Boolean); virtual;
function GetPERS_CONTACTO_ENVIOValue: String; virtual;
procedure SetPERS_CONTACTO_ENVIOValue(const aValue: String); virtual;
function GetPERS_CONTACTO_ENVIOIsNull: Boolean; virtual;
procedure SetPERS_CONTACTO_ENVIOIsNull(const aValue: Boolean); virtual;
function GetTLFS_ENVIOValue: String; virtual;
procedure SetTLFS_ENVIOValue(const aValue: String); virtual;
function GetTLFS_ENVIOIsNull: Boolean; virtual;
procedure SetTLFS_ENVIOIsNull(const aValue: Boolean); virtual;
function GetNOTAS_ENVIOValue: String; virtual;
procedure SetNOTAS_ENVIOValue(const aValue: String); virtual;
function GetNOTAS_ENVIOIsNull: Boolean; virtual;
procedure SetNOTAS_ENVIOIsNull(const aValue: Boolean); virtual;
{ Properties }
property ID: Integer read GetIDValue write SetIDValue;
@ -1203,6 +1299,22 @@ type
property FACTURA_ASOCIADAIsNull: Boolean read GetFACTURA_ASOCIADAIsNull write SetFACTURA_ASOCIADAIsNull;
property PRECIO_PUNTO: Currency read GetPRECIO_PUNTOValue write SetPRECIO_PUNTOValue;
property PRECIO_PUNTOIsNull: Boolean read GetPRECIO_PUNTOIsNull write SetPRECIO_PUNTOIsNull;
property ID_DIRECCION_ENVIO: Integer read GetID_DIRECCION_ENVIOValue write SetID_DIRECCION_ENVIOValue;
property ID_DIRECCION_ENVIOIsNull: Boolean read GetID_DIRECCION_ENVIOIsNull write SetID_DIRECCION_ENVIOIsNull;
property CALLE_ENVIO: String read GetCALLE_ENVIOValue write SetCALLE_ENVIOValue;
property CALLE_ENVIOIsNull: Boolean read GetCALLE_ENVIOIsNull write SetCALLE_ENVIOIsNull;
property POBLACION_ENVIO: String read GetPOBLACION_ENVIOValue write SetPOBLACION_ENVIOValue;
property POBLACION_ENVIOIsNull: Boolean read GetPOBLACION_ENVIOIsNull write SetPOBLACION_ENVIOIsNull;
property PROVINCIA_ENVIO: String read GetPROVINCIA_ENVIOValue write SetPROVINCIA_ENVIOValue;
property PROVINCIA_ENVIOIsNull: Boolean read GetPROVINCIA_ENVIOIsNull write SetPROVINCIA_ENVIOIsNull;
property CODIGO_POSTAL_ENVIO: String read GetCODIGO_POSTAL_ENVIOValue write SetCODIGO_POSTAL_ENVIOValue;
property CODIGO_POSTAL_ENVIOIsNull: Boolean read GetCODIGO_POSTAL_ENVIOIsNull write SetCODIGO_POSTAL_ENVIOIsNull;
property PERS_CONTACTO_ENVIO: String read GetPERS_CONTACTO_ENVIOValue write SetPERS_CONTACTO_ENVIOValue;
property PERS_CONTACTO_ENVIOIsNull: Boolean read GetPERS_CONTACTO_ENVIOIsNull write SetPERS_CONTACTO_ENVIOIsNull;
property TLFS_ENVIO: String read GetTLFS_ENVIOValue write SetTLFS_ENVIOValue;
property TLFS_ENVIOIsNull: Boolean read GetTLFS_ENVIOIsNull write SetTLFS_ENVIOIsNull;
property NOTAS_ENVIO: String read GetNOTAS_ENVIOValue write SetNOTAS_ENVIOValue;
property NOTAS_ENVIOIsNull: Boolean read GetNOTAS_ENVIOIsNull write SetNOTAS_ENVIOIsNull;
public
constructor Create(aDataTable: TDADataTable); override;
@ -1215,7 +1327,7 @@ type
}
{ ITiposCapitulos }
ITiposCapitulos = interface(IDAStronglyTypedDataTable)
['{F5C50F18-6FCD-4CFB-B113-37B7E7DF49EA}']
['{66A7A333-E4FE-45F5-81DB-5DDEA7E959D2}']
{ Property getters and setters }
function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer);
@ -1310,7 +1422,7 @@ type
{ IContratosCliente_Detalles }
IContratosCliente_Detalles = interface(IDAStronglyTypedDataTable)
['{F97E04B7-9F8E-4D8B-A7ED-A52270F5EA78}']
['{BD95350A-17BA-4064-B69D-71BD4D5EE1A2}']
{ Property getters and setters }
function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer);
@ -3111,6 +3223,174 @@ begin
DataTable.Fields[idx_ContratosClientePRECIO_PUNTO].AsVariant := Null;
end;
function TContratosClienteDataTableRules.GetID_DIRECCION_ENVIOValue: Integer;
begin
result := DataTable.Fields[idx_ContratosClienteID_DIRECCION_ENVIO].AsInteger;
end;
procedure TContratosClienteDataTableRules.SetID_DIRECCION_ENVIOValue(const aValue: Integer);
begin
DataTable.Fields[idx_ContratosClienteID_DIRECCION_ENVIO].AsInteger := aValue;
end;
function TContratosClienteDataTableRules.GetID_DIRECCION_ENVIOIsNull: boolean;
begin
result := DataTable.Fields[idx_ContratosClienteID_DIRECCION_ENVIO].IsNull;
end;
procedure TContratosClienteDataTableRules.SetID_DIRECCION_ENVIOIsNull(const aValue: Boolean);
begin
if aValue then
DataTable.Fields[idx_ContratosClienteID_DIRECCION_ENVIO].AsVariant := Null;
end;
function TContratosClienteDataTableRules.GetCALLE_ENVIOValue: String;
begin
result := DataTable.Fields[idx_ContratosClienteCALLE_ENVIO].AsString;
end;
procedure TContratosClienteDataTableRules.SetCALLE_ENVIOValue(const aValue: String);
begin
DataTable.Fields[idx_ContratosClienteCALLE_ENVIO].AsString := aValue;
end;
function TContratosClienteDataTableRules.GetCALLE_ENVIOIsNull: boolean;
begin
result := DataTable.Fields[idx_ContratosClienteCALLE_ENVIO].IsNull;
end;
procedure TContratosClienteDataTableRules.SetCALLE_ENVIOIsNull(const aValue: Boolean);
begin
if aValue then
DataTable.Fields[idx_ContratosClienteCALLE_ENVIO].AsVariant := Null;
end;
function TContratosClienteDataTableRules.GetPOBLACION_ENVIOValue: String;
begin
result := DataTable.Fields[idx_ContratosClientePOBLACION_ENVIO].AsString;
end;
procedure TContratosClienteDataTableRules.SetPOBLACION_ENVIOValue(const aValue: String);
begin
DataTable.Fields[idx_ContratosClientePOBLACION_ENVIO].AsString := aValue;
end;
function TContratosClienteDataTableRules.GetPOBLACION_ENVIOIsNull: boolean;
begin
result := DataTable.Fields[idx_ContratosClientePOBLACION_ENVIO].IsNull;
end;
procedure TContratosClienteDataTableRules.SetPOBLACION_ENVIOIsNull(const aValue: Boolean);
begin
if aValue then
DataTable.Fields[idx_ContratosClientePOBLACION_ENVIO].AsVariant := Null;
end;
function TContratosClienteDataTableRules.GetPROVINCIA_ENVIOValue: String;
begin
result := DataTable.Fields[idx_ContratosClientePROVINCIA_ENVIO].AsString;
end;
procedure TContratosClienteDataTableRules.SetPROVINCIA_ENVIOValue(const aValue: String);
begin
DataTable.Fields[idx_ContratosClientePROVINCIA_ENVIO].AsString := aValue;
end;
function TContratosClienteDataTableRules.GetPROVINCIA_ENVIOIsNull: boolean;
begin
result := DataTable.Fields[idx_ContratosClientePROVINCIA_ENVIO].IsNull;
end;
procedure TContratosClienteDataTableRules.SetPROVINCIA_ENVIOIsNull(const aValue: Boolean);
begin
if aValue then
DataTable.Fields[idx_ContratosClientePROVINCIA_ENVIO].AsVariant := Null;
end;
function TContratosClienteDataTableRules.GetCODIGO_POSTAL_ENVIOValue: String;
begin
result := DataTable.Fields[idx_ContratosClienteCODIGO_POSTAL_ENVIO].AsString;
end;
procedure TContratosClienteDataTableRules.SetCODIGO_POSTAL_ENVIOValue(const aValue: String);
begin
DataTable.Fields[idx_ContratosClienteCODIGO_POSTAL_ENVIO].AsString := aValue;
end;
function TContratosClienteDataTableRules.GetCODIGO_POSTAL_ENVIOIsNull: boolean;
begin
result := DataTable.Fields[idx_ContratosClienteCODIGO_POSTAL_ENVIO].IsNull;
end;
procedure TContratosClienteDataTableRules.SetCODIGO_POSTAL_ENVIOIsNull(const aValue: Boolean);
begin
if aValue then
DataTable.Fields[idx_ContratosClienteCODIGO_POSTAL_ENVIO].AsVariant := Null;
end;
function TContratosClienteDataTableRules.GetPERS_CONTACTO_ENVIOValue: String;
begin
result := DataTable.Fields[idx_ContratosClientePERS_CONTACTO_ENVIO].AsString;
end;
procedure TContratosClienteDataTableRules.SetPERS_CONTACTO_ENVIOValue(const aValue: String);
begin
DataTable.Fields[idx_ContratosClientePERS_CONTACTO_ENVIO].AsString := aValue;
end;
function TContratosClienteDataTableRules.GetPERS_CONTACTO_ENVIOIsNull: boolean;
begin
result := DataTable.Fields[idx_ContratosClientePERS_CONTACTO_ENVIO].IsNull;
end;
procedure TContratosClienteDataTableRules.SetPERS_CONTACTO_ENVIOIsNull(const aValue: Boolean);
begin
if aValue then
DataTable.Fields[idx_ContratosClientePERS_CONTACTO_ENVIO].AsVariant := Null;
end;
function TContratosClienteDataTableRules.GetTLFS_ENVIOValue: String;
begin
result := DataTable.Fields[idx_ContratosClienteTLFS_ENVIO].AsString;
end;
procedure TContratosClienteDataTableRules.SetTLFS_ENVIOValue(const aValue: String);
begin
DataTable.Fields[idx_ContratosClienteTLFS_ENVIO].AsString := aValue;
end;
function TContratosClienteDataTableRules.GetTLFS_ENVIOIsNull: boolean;
begin
result := DataTable.Fields[idx_ContratosClienteTLFS_ENVIO].IsNull;
end;
procedure TContratosClienteDataTableRules.SetTLFS_ENVIOIsNull(const aValue: Boolean);
begin
if aValue then
DataTable.Fields[idx_ContratosClienteTLFS_ENVIO].AsVariant := Null;
end;
function TContratosClienteDataTableRules.GetNOTAS_ENVIOValue: String;
begin
result := DataTable.Fields[idx_ContratosClienteNOTAS_ENVIO].AsString;
end;
procedure TContratosClienteDataTableRules.SetNOTAS_ENVIOValue(const aValue: String);
begin
DataTable.Fields[idx_ContratosClienteNOTAS_ENVIO].AsString := aValue;
end;
function TContratosClienteDataTableRules.GetNOTAS_ENVIOIsNull: boolean;
begin
result := DataTable.Fields[idx_ContratosClienteNOTAS_ENVIO].IsNull;
end;
procedure TContratosClienteDataTableRules.SetNOTAS_ENVIOIsNull(const aValue: Boolean);
begin
if aValue then
DataTable.Fields[idx_ContratosClienteNOTAS_ENVIO].AsVariant := Null;
end;
{ TTiposCapitulosDataTableRules }
constructor TTiposCapitulosDataTableRules.Create(aDataTable: TDADataTable);

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

@ -9,18 +9,18 @@ const
{ Delta rules ids
Feel free to change them to something more human readable
but make sure they are unique in the context of your application }
RID_ValoresDelta = '{36B2FC47-3E94-4865-ADC3-F178179AAB85}';
RID_PropiedadesDelta = '{0D138196-3D19-4B50-B1F9-67D1EDB88CB9}';
RID_ListaAnosContratosDelta = '{FEA3D163-003E-4AC2-80A1-C033004D4731}';
RID_ContratosClienteBeneficiosDelta = '{5CA6EE91-2CB4-41F2-AAC7-EF21E9C4D413}';
RID_ContratosClienteDelta = '{CFB27238-CC03-4AC2-80C9-1B708AF2D31F}';
RID_TiposCapitulosDelta = '{DA155785-C0DC-4EB9-8F68-02DFFB2E8957}';
RID_ContratosCliente_DetallesDelta = '{EDBFF95D-01E7-4770-AE40-78C7BC8FAA75}';
RID_ValoresDelta = '{DF9F3249-76D6-47EB-8059-2FB7B3D10819}';
RID_PropiedadesDelta = '{A8C14BD7-96F7-4FC7-989D-D32E96E5BF48}';
RID_ListaAnosContratosDelta = '{2F375EE3-7643-43E8-8802-1791D5CE327E}';
RID_ContratosClienteBeneficiosDelta = '{54524D5A-69D5-4BFB-B1B3-7B9EB30EF864}';
RID_ContratosClienteDelta = '{3334F1BC-133A-4AAC-B21F-36EA02ABBB1B}';
RID_TiposCapitulosDelta = '{9DA01C84-68F5-4229-A448-1FE4ADE133CD}';
RID_ContratosCliente_DetallesDelta = '{F6F1854C-A1B7-4012-B2AC-BC1674E0C469}';
type
{ IValoresDelta }
IValoresDelta = interface(IValores)
['{36B2FC47-3E94-4865-ADC3-F178179AAB85}']
['{DF9F3249-76D6-47EB-8059-2FB7B3D10819}']
{ Property getters and setters }
function GetOldIDValue : Integer;
function GetOldID_PROPIEDADValue : Integer;
@ -78,7 +78,7 @@ type
{ IPropiedadesDelta }
IPropiedadesDelta = interface(IPropiedades)
['{0D138196-3D19-4B50-B1F9-67D1EDB88CB9}']
['{A8C14BD7-96F7-4FC7-989D-D32E96E5BF48}']
{ Property getters and setters }
function GetOldIDValue : Integer;
function GetOldDESCRIPCIONValue : String;
@ -136,7 +136,7 @@ type
{ IListaAnosContratosDelta }
IListaAnosContratosDelta = interface(IListaAnosContratos)
['{FEA3D163-003E-4AC2-80A1-C033004D4731}']
['{2F375EE3-7643-43E8-8802-1791D5CE327E}']
{ Property getters and setters }
function GetOldANOValue : String;
@ -170,7 +170,7 @@ type
{ IContratosClienteBeneficiosDelta }
IContratosClienteBeneficiosDelta = interface(IContratosClienteBeneficios)
['{5CA6EE91-2CB4-41F2-AAC7-EF21E9C4D413}']
['{54524D5A-69D5-4BFB-B1B3-7B9EB30EF864}']
{ Property getters and setters }
function GetOldIDValue : Integer;
function GetOldREFERENCIAValue : String;
@ -372,7 +372,7 @@ type
{ IContratosClienteDelta }
IContratosClienteDelta = interface(IContratosCliente)
['{CFB27238-CC03-4AC2-80C9-1B708AF2D31F}']
['{3334F1BC-133A-4AAC-B21F-36EA02ABBB1B}']
{ Property getters and setters }
function GetOldIDValue : Integer;
function GetOldID_EMPRESAValue : Integer;
@ -423,6 +423,14 @@ type
function GetOldREFERENCIA_CLIENTEValue : String;
function GetOldFACTURA_ASOCIADAValue : String;
function GetOldPRECIO_PUNTOValue : Currency;
function GetOldID_DIRECCION_ENVIOValue : Integer;
function GetOldCALLE_ENVIOValue : String;
function GetOldPOBLACION_ENVIOValue : String;
function GetOldPROVINCIA_ENVIOValue : String;
function GetOldCODIGO_POSTAL_ENVIOValue : String;
function GetOldPERS_CONTACTO_ENVIOValue : String;
function GetOldTLFS_ENVIOValue : String;
function GetOldNOTAS_ENVIOValue : String;
{ Properties }
property OldID : Integer read GetOldIDValue;
@ -474,6 +482,14 @@ type
property OldREFERENCIA_CLIENTE : String read GetOldREFERENCIA_CLIENTEValue;
property OldFACTURA_ASOCIADA : String read GetOldFACTURA_ASOCIADAValue;
property OldPRECIO_PUNTO : Currency read GetOldPRECIO_PUNTOValue;
property OldID_DIRECCION_ENVIO : Integer read GetOldID_DIRECCION_ENVIOValue;
property OldCALLE_ENVIO : String read GetOldCALLE_ENVIOValue;
property OldPOBLACION_ENVIO : String read GetOldPOBLACION_ENVIOValue;
property OldPROVINCIA_ENVIO : String read GetOldPROVINCIA_ENVIOValue;
property OldCODIGO_POSTAL_ENVIO : String read GetOldCODIGO_POSTAL_ENVIOValue;
property OldPERS_CONTACTO_ENVIO : String read GetOldPERS_CONTACTO_ENVIOValue;
property OldTLFS_ENVIO : String read GetOldTLFS_ENVIOValue;
property OldNOTAS_ENVIO : String read GetOldNOTAS_ENVIOValue;
end;
{ TContratosClienteBusinessProcessorRules }
@ -779,6 +795,54 @@ type
function GetOldPRECIO_PUNTOIsNull: Boolean; virtual;
procedure SetPRECIO_PUNTOValue(const aValue: Currency); virtual;
procedure SetPRECIO_PUNTOIsNull(const aValue: Boolean); virtual;
function GetID_DIRECCION_ENVIOValue: Integer; virtual;
function GetID_DIRECCION_ENVIOIsNull: Boolean; virtual;
function GetOldID_DIRECCION_ENVIOValue: Integer; virtual;
function GetOldID_DIRECCION_ENVIOIsNull: Boolean; virtual;
procedure SetID_DIRECCION_ENVIOValue(const aValue: Integer); virtual;
procedure SetID_DIRECCION_ENVIOIsNull(const aValue: Boolean); virtual;
function GetCALLE_ENVIOValue: String; virtual;
function GetCALLE_ENVIOIsNull: Boolean; virtual;
function GetOldCALLE_ENVIOValue: String; virtual;
function GetOldCALLE_ENVIOIsNull: Boolean; virtual;
procedure SetCALLE_ENVIOValue(const aValue: String); virtual;
procedure SetCALLE_ENVIOIsNull(const aValue: Boolean); virtual;
function GetPOBLACION_ENVIOValue: String; virtual;
function GetPOBLACION_ENVIOIsNull: Boolean; virtual;
function GetOldPOBLACION_ENVIOValue: String; virtual;
function GetOldPOBLACION_ENVIOIsNull: Boolean; virtual;
procedure SetPOBLACION_ENVIOValue(const aValue: String); virtual;
procedure SetPOBLACION_ENVIOIsNull(const aValue: Boolean); virtual;
function GetPROVINCIA_ENVIOValue: String; virtual;
function GetPROVINCIA_ENVIOIsNull: Boolean; virtual;
function GetOldPROVINCIA_ENVIOValue: String; virtual;
function GetOldPROVINCIA_ENVIOIsNull: Boolean; virtual;
procedure SetPROVINCIA_ENVIOValue(const aValue: String); virtual;
procedure SetPROVINCIA_ENVIOIsNull(const aValue: Boolean); virtual;
function GetCODIGO_POSTAL_ENVIOValue: String; virtual;
function GetCODIGO_POSTAL_ENVIOIsNull: Boolean; virtual;
function GetOldCODIGO_POSTAL_ENVIOValue: String; virtual;
function GetOldCODIGO_POSTAL_ENVIOIsNull: Boolean; virtual;
procedure SetCODIGO_POSTAL_ENVIOValue(const aValue: String); virtual;
procedure SetCODIGO_POSTAL_ENVIOIsNull(const aValue: Boolean); virtual;
function GetPERS_CONTACTO_ENVIOValue: String; virtual;
function GetPERS_CONTACTO_ENVIOIsNull: Boolean; virtual;
function GetOldPERS_CONTACTO_ENVIOValue: String; virtual;
function GetOldPERS_CONTACTO_ENVIOIsNull: Boolean; virtual;
procedure SetPERS_CONTACTO_ENVIOValue(const aValue: String); virtual;
procedure SetPERS_CONTACTO_ENVIOIsNull(const aValue: Boolean); virtual;
function GetTLFS_ENVIOValue: String; virtual;
function GetTLFS_ENVIOIsNull: Boolean; virtual;
function GetOldTLFS_ENVIOValue: String; virtual;
function GetOldTLFS_ENVIOIsNull: Boolean; virtual;
procedure SetTLFS_ENVIOValue(const aValue: String); virtual;
procedure SetTLFS_ENVIOIsNull(const aValue: Boolean); virtual;
function GetNOTAS_ENVIOValue: String; virtual;
function GetNOTAS_ENVIOIsNull: Boolean; virtual;
function GetOldNOTAS_ENVIOValue: String; virtual;
function GetOldNOTAS_ENVIOIsNull: Boolean; virtual;
procedure SetNOTAS_ENVIOValue(const aValue: String); virtual;
procedure SetNOTAS_ENVIOIsNull(const aValue: Boolean); virtual;
{ Properties }
property ID : Integer read GetIDValue write SetIDValue;
@ -977,6 +1041,38 @@ type
property PRECIO_PUNTOIsNull : Boolean read GetPRECIO_PUNTOIsNull write SetPRECIO_PUNTOIsNull;
property OldPRECIO_PUNTO : Currency read GetOldPRECIO_PUNTOValue;
property OldPRECIO_PUNTOIsNull : Boolean read GetOldPRECIO_PUNTOIsNull;
property ID_DIRECCION_ENVIO : Integer read GetID_DIRECCION_ENVIOValue write SetID_DIRECCION_ENVIOValue;
property ID_DIRECCION_ENVIOIsNull : Boolean read GetID_DIRECCION_ENVIOIsNull write SetID_DIRECCION_ENVIOIsNull;
property OldID_DIRECCION_ENVIO : Integer read GetOldID_DIRECCION_ENVIOValue;
property OldID_DIRECCION_ENVIOIsNull : Boolean read GetOldID_DIRECCION_ENVIOIsNull;
property CALLE_ENVIO : String read GetCALLE_ENVIOValue write SetCALLE_ENVIOValue;
property CALLE_ENVIOIsNull : Boolean read GetCALLE_ENVIOIsNull write SetCALLE_ENVIOIsNull;
property OldCALLE_ENVIO : String read GetOldCALLE_ENVIOValue;
property OldCALLE_ENVIOIsNull : Boolean read GetOldCALLE_ENVIOIsNull;
property POBLACION_ENVIO : String read GetPOBLACION_ENVIOValue write SetPOBLACION_ENVIOValue;
property POBLACION_ENVIOIsNull : Boolean read GetPOBLACION_ENVIOIsNull write SetPOBLACION_ENVIOIsNull;
property OldPOBLACION_ENVIO : String read GetOldPOBLACION_ENVIOValue;
property OldPOBLACION_ENVIOIsNull : Boolean read GetOldPOBLACION_ENVIOIsNull;
property PROVINCIA_ENVIO : String read GetPROVINCIA_ENVIOValue write SetPROVINCIA_ENVIOValue;
property PROVINCIA_ENVIOIsNull : Boolean read GetPROVINCIA_ENVIOIsNull write SetPROVINCIA_ENVIOIsNull;
property OldPROVINCIA_ENVIO : String read GetOldPROVINCIA_ENVIOValue;
property OldPROVINCIA_ENVIOIsNull : Boolean read GetOldPROVINCIA_ENVIOIsNull;
property CODIGO_POSTAL_ENVIO : String read GetCODIGO_POSTAL_ENVIOValue write SetCODIGO_POSTAL_ENVIOValue;
property CODIGO_POSTAL_ENVIOIsNull : Boolean read GetCODIGO_POSTAL_ENVIOIsNull write SetCODIGO_POSTAL_ENVIOIsNull;
property OldCODIGO_POSTAL_ENVIO : String read GetOldCODIGO_POSTAL_ENVIOValue;
property OldCODIGO_POSTAL_ENVIOIsNull : Boolean read GetOldCODIGO_POSTAL_ENVIOIsNull;
property PERS_CONTACTO_ENVIO : String read GetPERS_CONTACTO_ENVIOValue write SetPERS_CONTACTO_ENVIOValue;
property PERS_CONTACTO_ENVIOIsNull : Boolean read GetPERS_CONTACTO_ENVIOIsNull write SetPERS_CONTACTO_ENVIOIsNull;
property OldPERS_CONTACTO_ENVIO : String read GetOldPERS_CONTACTO_ENVIOValue;
property OldPERS_CONTACTO_ENVIOIsNull : Boolean read GetOldPERS_CONTACTO_ENVIOIsNull;
property TLFS_ENVIO : String read GetTLFS_ENVIOValue write SetTLFS_ENVIOValue;
property TLFS_ENVIOIsNull : Boolean read GetTLFS_ENVIOIsNull write SetTLFS_ENVIOIsNull;
property OldTLFS_ENVIO : String read GetOldTLFS_ENVIOValue;
property OldTLFS_ENVIOIsNull : Boolean read GetOldTLFS_ENVIOIsNull;
property NOTAS_ENVIO : String read GetNOTAS_ENVIOValue write SetNOTAS_ENVIOValue;
property NOTAS_ENVIOIsNull : Boolean read GetNOTAS_ENVIOIsNull write SetNOTAS_ENVIOIsNull;
property OldNOTAS_ENVIO : String read GetOldNOTAS_ENVIOValue;
property OldNOTAS_ENVIOIsNull : Boolean read GetOldNOTAS_ENVIOIsNull;
public
constructor Create(aBusinessProcessor: TDABusinessProcessor); override;
@ -986,7 +1082,7 @@ type
{ ITiposCapitulosDelta }
ITiposCapitulosDelta = interface(ITiposCapitulos)
['{DA155785-C0DC-4EB9-8F68-02DFFB2E8957}']
['{9DA01C84-68F5-4229-A448-1FE4ADE133CD}']
{ Property getters and setters }
function GetOldIDValue : Integer;
function GetOldPOSICIONValue : Integer;
@ -1080,7 +1176,7 @@ type
{ IContratosCliente_DetallesDelta }
IContratosCliente_DetallesDelta = interface(IContratosCliente_Detalles)
['{EDBFF95D-01E7-4770-AE40-78C7BC8FAA75}']
['{F6F1854C-A1B7-4012-B2AC-BC1674E0C469}']
{ Property getters and setters }
function GetOldIDValue : Integer;
function GetOldID_CONTRATOValue : Integer;
@ -3595,6 +3691,254 @@ begin
BusinessProcessor.CurrentChange.NewValueByName[fld_ContratosClientePRECIO_PUNTO] := Null;
end;
function TContratosClienteBusinessProcessorRules.GetID_DIRECCION_ENVIOValue: Integer;
begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_ContratosClienteID_DIRECCION_ENVIO];
end;
function TContratosClienteBusinessProcessorRules.GetID_DIRECCION_ENVIOIsNull: Boolean;
begin
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_ContratosClienteID_DIRECCION_ENVIO]);
end;
function TContratosClienteBusinessProcessorRules.GetOldID_DIRECCION_ENVIOValue: Integer;
begin
result := BusinessProcessor.CurrentChange.OldValueByName[fld_ContratosClienteID_DIRECCION_ENVIO];
end;
function TContratosClienteBusinessProcessorRules.GetOldID_DIRECCION_ENVIOIsNull: Boolean;
begin
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_ContratosClienteID_DIRECCION_ENVIO]);
end;
procedure TContratosClienteBusinessProcessorRules.SetID_DIRECCION_ENVIOValue(const aValue: Integer);
begin
BusinessProcessor.CurrentChange.NewValueByName[fld_ContratosClienteID_DIRECCION_ENVIO] := aValue;
end;
procedure TContratosClienteBusinessProcessorRules.SetID_DIRECCION_ENVIOIsNull(const aValue: Boolean);
begin
if aValue then
BusinessProcessor.CurrentChange.NewValueByName[fld_ContratosClienteID_DIRECCION_ENVIO] := Null;
end;
function TContratosClienteBusinessProcessorRules.GetCALLE_ENVIOValue: String;
begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_ContratosClienteCALLE_ENVIO];
end;
function TContratosClienteBusinessProcessorRules.GetCALLE_ENVIOIsNull: Boolean;
begin
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_ContratosClienteCALLE_ENVIO]);
end;
function TContratosClienteBusinessProcessorRules.GetOldCALLE_ENVIOValue: String;
begin
result := BusinessProcessor.CurrentChange.OldValueByName[fld_ContratosClienteCALLE_ENVIO];
end;
function TContratosClienteBusinessProcessorRules.GetOldCALLE_ENVIOIsNull: Boolean;
begin
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_ContratosClienteCALLE_ENVIO]);
end;
procedure TContratosClienteBusinessProcessorRules.SetCALLE_ENVIOValue(const aValue: String);
begin
BusinessProcessor.CurrentChange.NewValueByName[fld_ContratosClienteCALLE_ENVIO] := aValue;
end;
procedure TContratosClienteBusinessProcessorRules.SetCALLE_ENVIOIsNull(const aValue: Boolean);
begin
if aValue then
BusinessProcessor.CurrentChange.NewValueByName[fld_ContratosClienteCALLE_ENVIO] := Null;
end;
function TContratosClienteBusinessProcessorRules.GetPOBLACION_ENVIOValue: String;
begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_ContratosClientePOBLACION_ENVIO];
end;
function TContratosClienteBusinessProcessorRules.GetPOBLACION_ENVIOIsNull: Boolean;
begin
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_ContratosClientePOBLACION_ENVIO]);
end;
function TContratosClienteBusinessProcessorRules.GetOldPOBLACION_ENVIOValue: String;
begin
result := BusinessProcessor.CurrentChange.OldValueByName[fld_ContratosClientePOBLACION_ENVIO];
end;
function TContratosClienteBusinessProcessorRules.GetOldPOBLACION_ENVIOIsNull: Boolean;
begin
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_ContratosClientePOBLACION_ENVIO]);
end;
procedure TContratosClienteBusinessProcessorRules.SetPOBLACION_ENVIOValue(const aValue: String);
begin
BusinessProcessor.CurrentChange.NewValueByName[fld_ContratosClientePOBLACION_ENVIO] := aValue;
end;
procedure TContratosClienteBusinessProcessorRules.SetPOBLACION_ENVIOIsNull(const aValue: Boolean);
begin
if aValue then
BusinessProcessor.CurrentChange.NewValueByName[fld_ContratosClientePOBLACION_ENVIO] := Null;
end;
function TContratosClienteBusinessProcessorRules.GetPROVINCIA_ENVIOValue: String;
begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_ContratosClientePROVINCIA_ENVIO];
end;
function TContratosClienteBusinessProcessorRules.GetPROVINCIA_ENVIOIsNull: Boolean;
begin
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_ContratosClientePROVINCIA_ENVIO]);
end;
function TContratosClienteBusinessProcessorRules.GetOldPROVINCIA_ENVIOValue: String;
begin
result := BusinessProcessor.CurrentChange.OldValueByName[fld_ContratosClientePROVINCIA_ENVIO];
end;
function TContratosClienteBusinessProcessorRules.GetOldPROVINCIA_ENVIOIsNull: Boolean;
begin
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_ContratosClientePROVINCIA_ENVIO]);
end;
procedure TContratosClienteBusinessProcessorRules.SetPROVINCIA_ENVIOValue(const aValue: String);
begin
BusinessProcessor.CurrentChange.NewValueByName[fld_ContratosClientePROVINCIA_ENVIO] := aValue;
end;
procedure TContratosClienteBusinessProcessorRules.SetPROVINCIA_ENVIOIsNull(const aValue: Boolean);
begin
if aValue then
BusinessProcessor.CurrentChange.NewValueByName[fld_ContratosClientePROVINCIA_ENVIO] := Null;
end;
function TContratosClienteBusinessProcessorRules.GetCODIGO_POSTAL_ENVIOValue: String;
begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_ContratosClienteCODIGO_POSTAL_ENVIO];
end;
function TContratosClienteBusinessProcessorRules.GetCODIGO_POSTAL_ENVIOIsNull: Boolean;
begin
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_ContratosClienteCODIGO_POSTAL_ENVIO]);
end;
function TContratosClienteBusinessProcessorRules.GetOldCODIGO_POSTAL_ENVIOValue: String;
begin
result := BusinessProcessor.CurrentChange.OldValueByName[fld_ContratosClienteCODIGO_POSTAL_ENVIO];
end;
function TContratosClienteBusinessProcessorRules.GetOldCODIGO_POSTAL_ENVIOIsNull: Boolean;
begin
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_ContratosClienteCODIGO_POSTAL_ENVIO]);
end;
procedure TContratosClienteBusinessProcessorRules.SetCODIGO_POSTAL_ENVIOValue(const aValue: String);
begin
BusinessProcessor.CurrentChange.NewValueByName[fld_ContratosClienteCODIGO_POSTAL_ENVIO] := aValue;
end;
procedure TContratosClienteBusinessProcessorRules.SetCODIGO_POSTAL_ENVIOIsNull(const aValue: Boolean);
begin
if aValue then
BusinessProcessor.CurrentChange.NewValueByName[fld_ContratosClienteCODIGO_POSTAL_ENVIO] := Null;
end;
function TContratosClienteBusinessProcessorRules.GetPERS_CONTACTO_ENVIOValue: String;
begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_ContratosClientePERS_CONTACTO_ENVIO];
end;
function TContratosClienteBusinessProcessorRules.GetPERS_CONTACTO_ENVIOIsNull: Boolean;
begin
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_ContratosClientePERS_CONTACTO_ENVIO]);
end;
function TContratosClienteBusinessProcessorRules.GetOldPERS_CONTACTO_ENVIOValue: String;
begin
result := BusinessProcessor.CurrentChange.OldValueByName[fld_ContratosClientePERS_CONTACTO_ENVIO];
end;
function TContratosClienteBusinessProcessorRules.GetOldPERS_CONTACTO_ENVIOIsNull: Boolean;
begin
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_ContratosClientePERS_CONTACTO_ENVIO]);
end;
procedure TContratosClienteBusinessProcessorRules.SetPERS_CONTACTO_ENVIOValue(const aValue: String);
begin
BusinessProcessor.CurrentChange.NewValueByName[fld_ContratosClientePERS_CONTACTO_ENVIO] := aValue;
end;
procedure TContratosClienteBusinessProcessorRules.SetPERS_CONTACTO_ENVIOIsNull(const aValue: Boolean);
begin
if aValue then
BusinessProcessor.CurrentChange.NewValueByName[fld_ContratosClientePERS_CONTACTO_ENVIO] := Null;
end;
function TContratosClienteBusinessProcessorRules.GetTLFS_ENVIOValue: String;
begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_ContratosClienteTLFS_ENVIO];
end;
function TContratosClienteBusinessProcessorRules.GetTLFS_ENVIOIsNull: Boolean;
begin
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_ContratosClienteTLFS_ENVIO]);
end;
function TContratosClienteBusinessProcessorRules.GetOldTLFS_ENVIOValue: String;
begin
result := BusinessProcessor.CurrentChange.OldValueByName[fld_ContratosClienteTLFS_ENVIO];
end;
function TContratosClienteBusinessProcessorRules.GetOldTLFS_ENVIOIsNull: Boolean;
begin
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_ContratosClienteTLFS_ENVIO]);
end;
procedure TContratosClienteBusinessProcessorRules.SetTLFS_ENVIOValue(const aValue: String);
begin
BusinessProcessor.CurrentChange.NewValueByName[fld_ContratosClienteTLFS_ENVIO] := aValue;
end;
procedure TContratosClienteBusinessProcessorRules.SetTLFS_ENVIOIsNull(const aValue: Boolean);
begin
if aValue then
BusinessProcessor.CurrentChange.NewValueByName[fld_ContratosClienteTLFS_ENVIO] := Null;
end;
function TContratosClienteBusinessProcessorRules.GetNOTAS_ENVIOValue: String;
begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_ContratosClienteNOTAS_ENVIO];
end;
function TContratosClienteBusinessProcessorRules.GetNOTAS_ENVIOIsNull: Boolean;
begin
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_ContratosClienteNOTAS_ENVIO]);
end;
function TContratosClienteBusinessProcessorRules.GetOldNOTAS_ENVIOValue: String;
begin
result := BusinessProcessor.CurrentChange.OldValueByName[fld_ContratosClienteNOTAS_ENVIO];
end;
function TContratosClienteBusinessProcessorRules.GetOldNOTAS_ENVIOIsNull: Boolean;
begin
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_ContratosClienteNOTAS_ENVIO]);
end;
procedure TContratosClienteBusinessProcessorRules.SetNOTAS_ENVIOValue(const aValue: String);
begin
BusinessProcessor.CurrentChange.NewValueByName[fld_ContratosClienteNOTAS_ENVIO] := aValue;
end;
procedure TContratosClienteBusinessProcessorRules.SetNOTAS_ENVIOIsNull(const aValue: Boolean);
begin
if aValue then
BusinessProcessor.CurrentChange.NewValueByName[fld_ContratosClienteNOTAS_ENVIO] := Null;
end;
{ TTiposCapitulosBusinessProcessorRules }
constructor TTiposCapitulosBusinessProcessorRules.Create(aBusinessProcessor: TDABusinessProcessor);

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

@ -106,7 +106,7 @@ type
implementation
uses
SysUtils, Variants, uDataModuleConfiguracion, uDataModuleUsuarios, Dialogs,
SysUtils, Variants, uDataModuleConfiguracion, uDataModuleUsuarios, Dialogs, uNumutils,
uDataTableUtils, DateUtils, uDateUtils, DB, uFactuGES_App, uTiposIVAController,
uBizTiposIVA, uVendedoresController;
@ -141,7 +141,7 @@ procedure TBizContratoCliente.CalcularBaseImponible;
begin
if not Self.DataTable.Editing then
Edit;
IMPORTE_DESCUENTO := IMPORTE_NETO * (DESCUENTO/100);
IMPORTE_DESCUENTO := roundCurrency(IMPORTE_NETO * (DESCUENTO/100));
BASE_IMPONIBLE := IMPORTE_NETO - IMPORTE_DESCUENTO + IMPORTE_PORTE;
end;
@ -156,7 +156,7 @@ begin
if not Self.DataTable.Editing then
Edit;
IMPORTE_TOTAL := BASE_IMPONIBLE + IMPORTE_IVA + IMPORTE_RE;
IMPORTE_TOTAL := roundCurrency(BASE_IMPONIBLE + IMPORTE_IVA + IMPORTE_RE);
finally
DataTable.Fields.FieldEventsDisabled := False;
DataTable.EnableControls;
@ -167,14 +167,14 @@ procedure TBizContratoCliente.CalcularIVA;
begin
if not Self.DataTable.Editing then
Edit;
IMPORTE_IVA := (IVA / 100) * (BASE_IMPONIBLE);
IMPORTE_IVA := roundCurrency((IVA / 100) * (BASE_IMPONIBLE));
end;
procedure TBizContratoCliente.CalcularRE;
begin
if not Self.DataTable.Editing then
Edit;
IMPORTE_RE := (RE / 100) * BASE_IMPONIBLE;
IMPORTE_RE := roundCurrency((RE / 100) * BASE_IMPONIBLE);
end;
constructor TBizContratoCliente.Create(aDataTable: TDADataTable);
@ -259,6 +259,7 @@ begin
// PRECIO_PUNTO := AppFactuGES.EmpresaActiva.PRECIO_PUNTO;
FECHA_CONTRATO := DateOf(Date);
ID_DIRECCION_ENVIO := 0;
INCIDENCIAS_ACTIVAS := 0;
RE := 0;
@ -268,6 +269,7 @@ begin
ID_TIENDA := AppFactuGES.TiendaActiva.ID;
TIENDA := AppFactuGES.TiendaActiva.NOMBRE;
// Self.DataTable.FieldByName(fld_ContratosClienteFORMA_PAGO).AsString := AppFactuGES.FormaPagoDocumentos;
// Self.DataTable.FieldByName(fld_ContratosClienteOBSERVACIONES).AsString := AppFactuGES.ObservacionesDocumentos;
@ -346,6 +348,15 @@ begin
TELEFONO := FCliente.TELEFONO_1;
MOVIL := FCliente.MOVIL_1;
//Establecemos como dirección de envio por defecto la dirección fiscal del cliente
ID_DIRECCION_ENVIO := 1;
CALLE_ENVIO := FCliente.CALLE;
CODIGO_POSTAL_ENVIO := FCliente.CODIGO_POSTAL;
PROVINCIA_ENVIO := FCliente.PROVINCIA;
POBLACION_ENVIO := FCliente.POBLACION;
TLFS_ENVIO := FCliente.TELEFONO_1 + ' / ' + FCliente.MOVIL_1;
PERS_CONTACTO_ENVIO := FCliente.NOMBRE;
// La forma de pago se establece desde el tipo de documento y aunque cambie de cliente no se cambia la formade pago ya que desde la vista se pregunta y se cambia si el usuario lo desea
// if FCliente.ID_FORMA_PAGO > 0 then
// ID_FORMA_PAGO := FCliente.ID_FORMA_PAGO;

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

@ -228,8 +228,13 @@ object RptContratosCliente: TRptContratosCliente
'S_CLIENTE.CODIGO_POSTAL,'#10' V_CONTRATOS_CLIENTE.TELEFONO,'#10' V' +
'_CONTRATOS_CLIENTE.MOVIL,'#10' V_CONTRATOS_CLIENTE.IMPORTE_IVA, V' +
'_CONTRATOS_CLIENTE.IMPORTE_TOTAL,'#10' V_CONTRATOS_CLIENTE.PERSON' +
'A_CONTACTO,'#10' V_CONTRATOS_CLIENTE.VENDEDOR'#10'FROM'#10' V_CONTRATO' +
'S_CLIENTE'#10'WHERE'#10' V_CONTRATOS_CLIENTE.ID = :ID'#10
'A_CONTACTO,'#10' V_CONTRATOS_CLIENTE.VENDEDOR,'#10' V_CONTRATOS_CL' +
'IENTE.ID_DIRECCION_ENVIO,'#10' V_CONTRATOS_CLIENTE.CALLE_ENVIO,'#10' ' +
' V_CONTRATOS_CLIENTE.POBLACION_ENVIO,'#10' V_CONTRATOS_CLIENTE.' +
'PROVINCIA_ENVIO,'#10' V_CONTRATOS_CLIENTE.CODIGO_POSTAL_ENVIO,'#10' ' +
' V_CONTRATOS_CLIENTE.PERS_CONTACTO_ENVIO,'#10' V_CONTRATOS_CLIEN' +
'TE.TLFS_ENVIO,'#10' V_CONTRATOS_CLIENTE.NOTAS_ENVIO'#10'FROM'#10' V_CO' +
'NTRATOS_CLIENTE'#10'WHERE'#10' V_CONTRATOS_CLIENTE.ID = :ID'#10
StatementType = stSQL
ColumnMappings = <
item
@ -351,6 +356,38 @@ object RptContratosCliente: TRptContratosCliente
item
DatasetField = 'REFERENCIA_CLIENTE'
TableField = 'REFERENCIA_CLIENTE'
end
item
DatasetField = 'ID_DIRECCION_ENVIO'
TableField = 'ID_DIRECCION_ENVIO'
end
item
DatasetField = 'CALLE_ENVIO'
TableField = 'CALLE_ENVIO'
end
item
DatasetField = 'POBLACION_ENVIO'
TableField = 'POBLACION_ENVIO'
end
item
DatasetField = 'PROVINCIA_ENVIO'
TableField = 'PROVINCIA_ENVIO'
end
item
DatasetField = 'CODIGO_POSTAL_ENVIO'
TableField = 'CODIGO_POSTAL_ENVIO'
end
item
DatasetField = 'PERS_CONTACTO_ENVIO'
TableField = 'PERS_CONTACTO_ENVIO'
end
item
DatasetField = 'TLFS_ENVIO'
TableField = 'TLFS_ENVIO'
end
item
DatasetField = 'NOTAS_ENVIO'
TableField = 'NOTAS_ENVIO'
end>
end>
Name = 'Informe_Cabecera'
@ -487,6 +524,45 @@ object RptContratosCliente: TRptContratosCliente
Name = 'VENDEDOR'
DataType = datString
Size = 255
end
item
Name = 'ID_DIRECCION_ENVIO'
DataType = datInteger
end
item
Name = 'CALLE_ENVIO'
DataType = datString
Size = 255
end
item
Name = 'POBLACION_ENVIO'
DataType = datString
Size = 255
end
item
Name = 'PROVINCIA_ENVIO'
DataType = datString
Size = 255
end
item
Name = 'CODIGO_POSTAL_ENVIO'
DataType = datString
Size = 255
end
item
Name = 'PERS_CONTACTO_ENVIO'
DataType = datString
Size = 255
end
item
Name = 'TLFS_ENVIO'
DataType = datString
Size = 30
end
item
Name = 'NOTAS_ENVIO'
DataType = datString
Size = 255
end>
ReadOnly = True
end
@ -858,7 +934,7 @@ object RptContratosCliente: TRptContratosCliente
PrintOptions.Printer = 'Por defecto'
PrintOptions.PrintOnSheet = 0
ReportOptions.CreateDate = 39065.872423495400000000
ReportOptions.LastChange = 41411.575288125000000000
ReportOptions.LastChange = 44175.744154942130000000
ScriptLanguage = 'PascalScript'
ShowProgress = False
StoreInDFM = False

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

@ -477,6 +477,38 @@ object srvContratosCliente: TsrvContratosCliente
item
DatasetField = 'PRECIO_PUNTO'
TableField = 'PRECIO_PUNTO'
end
item
DatasetField = 'ID_DIRECCION_ENVIO'
TableField = 'ID_DIRECCION_ENVIO'
end
item
DatasetField = 'CALLE_ENVIO'
TableField = 'CALLE_ENVIO'
end
item
DatasetField = 'POBLACION_ENVIO'
TableField = 'POBLACION_ENVIO'
end
item
DatasetField = 'PROVINCIA_ENVIO'
TableField = 'PROVINCIA_ENVIO'
end
item
DatasetField = 'CODIGO_POSTAL_ENVIO'
TableField = 'CODIGO_POSTAL_ENVIO'
end
item
DatasetField = 'PERS_CONTACTO_ENVIO'
TableField = 'PERS_CONTACTO_ENVIO'
end
item
DatasetField = 'TLFS_ENVIO'
TableField = 'TLFS_ENVIO'
end
item
DatasetField = 'NOTAS_ENVIO'
TableField = 'NOTAS_ENVIO'
end>
end>
Name = 'ContratosCliente'
@ -748,6 +780,45 @@ object srvContratosCliente: TsrvContratosCliente
item
Name = 'PRECIO_PUNTO'
DataType = datCurrency
end
item
Name = 'ID_DIRECCION_ENVIO'
DataType = datInteger
end
item
Name = 'CALLE_ENVIO'
DataType = datString
Size = 255
end
item
Name = 'POBLACION_ENVIO'
DataType = datString
Size = 255
end
item
Name = 'PROVINCIA_ENVIO'
DataType = datString
Size = 255
end
item
Name = 'CODIGO_POSTAL_ENVIO'
DataType = datString
Size = 255
end
item
Name = 'PERS_CONTACTO_ENVIO'
DataType = datString
Size = 255
end
item
Name = 'TLFS_ENVIO'
DataType = datString
Size = 30
end
item
Name = 'NOTAS_ENVIO'
DataType = datString
Size = 255
end>
end
item
@ -1212,6 +1283,53 @@ object srvContratosCliente: TsrvContratosCliente
Name = 'PRECIO_PUNTO'
DataType = datCurrency
Value = ''
end
item
Name = 'ID_DIRECCION_ENVIO'
DataType = datInteger
Value = ''
end
item
Name = 'CALLE_ENVIO'
DataType = datString
Size = 255
Value = ''
end
item
Name = 'POBLACION_ENVIO'
DataType = datString
Size = 255
Value = ''
end
item
Name = 'PROVINCIA_ENVIO'
DataType = datString
Size = 255
Value = ''
end
item
Name = 'CODIGO_POSTAL_ENVIO'
DataType = datString
Size = 255
Value = ''
end
item
Name = 'PERS_CONTACTO_ENVIO'
DataType = datString
Size = 255
Value = ''
end
item
Name = 'TLFS_ENVIO'
DataType = datString
Size = 30
Value = ''
end
item
Name = 'NOTAS_ENVIO'
DataType = datString
Size = 255
Value = ''
end>
Statements = <
item
@ -1228,16 +1346,21 @@ object srvContratosCliente: TsrvContratosCliente
'IVA, IMPORTE_IVA,'#10' IMPORTE_TOTAL, ID_FORMA_PAGO, ID_TIENDA, ' +
'ID_VENDEDOR, PERSONA_CONTACTO,'#10' RE, IMPORTE_RE, RECARGO_EQUI' +
'VALENCIA, TELEFONO, MOVIL, TIPO_CONTRATO,'#10' REFERENCIA_CLIENT' +
'E, PRECIO_PUNTO)'#10' VALUES'#10' (:ID, :ID_EMPRESA, :ID_CLIENTE, :N' +
'IF_CIF, :NOMBRE, :ID_DIRECCION, :CALLE, :POBLACION, :PROVINCIA,'#10 +
' :CODIGO_POSTAL, :REFERENCIA, :FECHA_CONTRATO, :SITUACION, :' +
'FORMA_PAGO,'#10' :PLAZO_ENTREGA, :OBSERVACIONES, :INCIDENCIAS, :' +
'INCIDENCIAS_ACTIVAS, CURRENT_TIMESTAMP,'#10' :USUARIO, :IMPORTE_' +
'NETO, :IMPORTE_PORTE, :DESCUENTO, :IMPORTE_DESCUENTO,'#10' :BASE' +
'_IMPONIBLE, :ID_TIPO_IVA, :IVA, :IMPORTE_IVA, :IMPORTE_TOTAL, :I' +
'D_FORMA_PAGO,'#10' :ID_TIENDA, :ID_VENDEDOR, :PERSONA_CONTACTO, ' +
':RE, :IMPORTE_RE, :RECARGO_EQUIVALENCIA,'#10' :TELEFONO, :MOVIL,' +
' :TIPO_CONTRATO, :REFERENCIA_CLIENTE, :PRECIO_PUNTO)'#10#10
'E, PRECIO_PUNTO,'#10' ID_DIRECCION_ENVIO, CALLE_ENVIO, POBLACION' +
'_ENVIO, PROVINCIA_ENVIO, CODIGO_POSTAL_ENVIO,'#10' PERS_CONTACTO' +
'_ENVIO, TLFS_ENVIO, NOTAS_ENVIO'#10' )'#10' VALUES'#10' (:ID, :ID_EM' +
'PRESA, :ID_CLIENTE, :NIF_CIF, :NOMBRE, :ID_DIRECCION, :CALLE, :P' +
'OBLACION, :PROVINCIA,'#10' :CODIGO_POSTAL, :REFERENCIA, :FECHA_C' +
'ONTRATO, :SITUACION, :FORMA_PAGO,'#10' :PLAZO_ENTREGA, :OBSERVAC' +
'IONES, :INCIDENCIAS, :INCIDENCIAS_ACTIVAS, CURRENT_TIMESTAMP,'#10' ' +
' :USUARIO, :IMPORTE_NETO, :IMPORTE_PORTE, :DESCUENTO, :IMPORTE' +
'_DESCUENTO,'#10' :BASE_IMPONIBLE, :ID_TIPO_IVA, :IVA, :IMPORTE_I' +
'VA, :IMPORTE_TOTAL, :ID_FORMA_PAGO,'#10' :ID_TIENDA, :ID_VENDEDO' +
'R, :PERSONA_CONTACTO, :RE, :IMPORTE_RE, :RECARGO_EQUIVALENCIA,'#10' ' +
' :TELEFONO, :MOVIL, :TIPO_CONTRATO, :REFERENCIA_CLIENTE, :PRE' +
'CIO_PUNTO,'#10' :ID_DIRECCION_ENVIO, :CALLE_ENVIO, :POBLACION_EN' +
'VIO, :PROVINCIA_ENVIO, :CODIGO_POSTAL_ENVIO,'#10' :PERS_CONTACTO' +
'_ENVIO, :TLFS_ENVIO, :NOTAS_ENVIO'#10' )'#10#10
StatementType = stSQL
ColumnMappings = <>
end>
@ -1477,6 +1600,47 @@ object srvContratosCliente: TsrvContratosCliente
DataType = datCurrency
Value = ''
end
item
Name = 'ID_DIRECCION_ENVIO'
DataType = datInteger
Value = ''
end
item
Name = 'CALLE_ENVIO'
DataType = datString
Size = 255
Value = ''
end
item
Name = 'POBLACION_ENVIO'
DataType = datString
Size = 255
Value = ''
end
item
Name = 'PROVINCIA_ENVIO'
DataType = datString
Size = 255
Value = ''
end
item
Name = 'CODIGO_POSTAL_ENVIO'
DataType = datString
Size = 255
Value = ''
end
item
Name = 'PERS_CONTACTO_ENVIO'
DataType = datString
Size = 255
Value = ''
end
item
Name = 'TLFS_ENVIO'
DataType = datString
Size = 30
Value = ''
end
item
Name = 'OLD_ID'
Value = ''
@ -1506,8 +1670,13 @@ object srvContratosCliente: TsrvContratosCliente
'RE,'#10' IMPORTE_RE = :IMPORTE_RE,'#10' RECARGO_EQUIVALENCIA = :RE' +
'CARGO_EQUIVALENCIA,'#10' TELEFONO = :TELEFONO,'#10' MOVIL = :MOVIL' +
','#10' TIPO_CONTRATO = :TIPO_CONTRATO,'#10' REFERENCIA_CLIENTE = :' +
'REFERENCIA_CLIENTE,'#10' PRECIO_PUNTO = :PRECIO_PUNTO'#10' WHERE'#10' ' +
' (ID = :OLD_ID)'#10#10
'REFERENCIA_CLIENTE,'#10' PRECIO_PUNTO = :PRECIO_PUNTO,'#10' ID_DIR' +
'ECCION_ENVIO = :ID_DIRECCION_ENVIO,'#10' CALLE_ENVIO = :CALLE_ENV' +
'IO,'#10' POBLACION_ENVIO = :POBLACION_ENVIO,'#10' PROVINCIA_ENVIO ' +
'= :PROVINCIA_ENVIO,'#10' CODIGO_POSTAL_ENVIO = :CODIGO_POSTAL_ENV' +
'IO,'#10' PERS_CONTACTO_ENVIO = :PERS_CONTACTO_ENVIO,'#10' TLFS_ENV' +
'IO = :TLFS_ENVIO,'#10' NOTAS_ENVIO = NOTAS_ENVIO'#10#10' WHERE'#10' (ID' +
' = :OLD_ID)'#10#10
StatementType = stSQL
ColumnMappings = <>
end>

5
Source/Modulos/Contratos de cliente/Views/ContratosCliente_view.dpk
View File

@ -88,11 +88,12 @@ contains
uViewElegirArticulosContratosCliente in 'uViewElegirArticulosContratosCliente.pas' {frViewElegirArticulosContratosCliente: TFrame},
uEditorElegirArticulosContratoCliente in 'uEditorElegirArticulosContratoCliente.pas' {fEditorElegirArticulosContratoCliente: TfEditorElegirArticulosPedidoCliente},
uEditorContratosClienteReport in 'uEditorContratosClienteReport.pas' {fEditorContratosClientePreview: TfEditorPedidosClientePreview},
uViewDireccionEntregaContratoCliente in 'uViewDireccionEntregaContratoCliente.pas' {frViewDireccionEntregaContratoCliente: TFrame},
uViewDocumentosContratoCliente in 'uViewDocumentosContratoCliente.pas' {frViewDocumentosContratoCliente: TFrame},
uViewDatosYSeleccionClienteContrato in 'uViewDatosYSeleccionClienteContrato.pas' {frViewDatosYSeleccionClienteContrato: TFrame},
uViewContratosClienteBeneficios in 'uViewContratosClienteBeneficios.pas' {frViewContratosClienteBeneficios: TFrame},
uEditorContratosClienteBeneficios in 'uEditorContratosClienteBeneficios.pas' {fEditorContratosClienteBeneficios: TFrame},
uDialogOpcionesImpresionContratosCliente in 'uDialogOpcionesImpresionContratosCliente.pas' {fDialogOpcionesImpresionContratosCliente: Tform};
uDialogOpcionesImpresionContratosCliente in 'uDialogOpcionesImpresionContratosCliente.pas' {fDialogOpcionesImpresionContratosCliente: T},
uViewDireccionEntregaContratoCli in 'uViewDireccionEntregaContratoCli.pas' {frViewDireccionEntregaContratoCli: TFrame},
uEditorDireccionEntregaContratoCliente in 'uEditorDireccionEntregaContratoCliente.pas' {fEditorDireccionEntregaContratoCliente: TFrame};
end.

110
Source/Modulos/Contratos de cliente/Views/ContratosCliente_view.dproj
View File

@ -49,57 +49,50 @@
<DelphiCompile Include="ContratosCliente_view.dpk">
<MainSource>MainSource</MainSource>
</DelphiCompile>
<DCCReference Include="C:\Documents and Settings\Usuario\adortl.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\Articulos_view.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\Base.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\ConCli_AlbCli_relation.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\ConCli_FacCli_relation.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\ContratosCliente_controller.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\ContratosCliente_model.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\cxDataD11.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\cxEditorsD11.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\cxExportD11.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\cxExtEditorsD11.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\cxGridD11.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\cxLibraryD11.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\cxPageControlD11.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\DataAbstract_Core_D11.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\dbrtl.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\dclcxLibraryD11.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\dcldxCoreD11.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\designide.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\dsnap.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\dxComnD11.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\dxCoreD11.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\dxGDIPlusD11.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\dxLayoutControlD11.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\dxPSCoreD11.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\dxPScxCommonD11.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\dxPScxGrid6LnkD11.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\dxPSLnksD11.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\dxThemeD11.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\GestorInformes_controller.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\GUIBase.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\GUISDK_D11R.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\Jcl.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\JclVcl.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\JvCoreD11R.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\JvPageCompsD11R.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\JvStdCtrlsD11R.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\JvSystemD11R.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\PngComponentsD10.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\PNG_D10.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\RemObjects_Core_D11.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\rtl.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\tb2k_d10.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\tbx_d10.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\vcl.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\vclactnband.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\vcldb.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\vcljpg.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\vclshlctrls.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\vclx.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\xmlrtl.dcp" />
<DCCReference Include="adortl.dcp" />
<DCCReference Include="Articulos_view.dcp" />
<DCCReference Include="Base.dcp" />
<DCCReference Include="ConCli_AlbCli_relation.dcp" />
<DCCReference Include="ConCli_FacCli_relation.dcp" />
<DCCReference Include="ContratosCliente_controller.dcp" />
<DCCReference Include="ContratosCliente_model.dcp" />
<DCCReference Include="cxDataD11.dcp" />
<DCCReference Include="cxEditorsD11.dcp" />
<DCCReference Include="cxExportD11.dcp" />
<DCCReference Include="cxExtEditorsD11.dcp" />
<DCCReference Include="cxGridD11.dcp" />
<DCCReference Include="cxLibraryD11.dcp" />
<DCCReference Include="cxPageControlD11.dcp" />
<DCCReference Include="DataAbstract_Core_D11.dcp" />
<DCCReference Include="dbrtl.dcp" />
<DCCReference Include="dclcxLibraryD11.dcp" />
<DCCReference Include="dcldxCoreD11.dcp" />
<DCCReference Include="designide.dcp" />
<DCCReference Include="dsnap.dcp" />
<DCCReference Include="dxComnD11.dcp" />
<DCCReference Include="dxCoreD11.dcp" />
<DCCReference Include="dxGDIPlusD11.dcp" />
<DCCReference Include="dxLayoutControlD11.dcp" />
<DCCReference Include="dxPSCoreD11.dcp" />
<DCCReference Include="dxPScxCommonD11.dcp" />
<DCCReference Include="dxPScxGrid6LnkD11.dcp" />
<DCCReference Include="dxPSLnksD11.dcp" />
<DCCReference Include="dxThemeD11.dcp" />
<DCCReference Include="GestorInformes_controller.dcp" />
<DCCReference Include="GUIBase.dcp" />
<DCCReference Include="GUISDK_D11R.dcp" />
<DCCReference Include="Jcl.dcp" />
<DCCReference Include="JclVcl.dcp" />
<DCCReference Include="JvCoreD11R.dcp" />
<DCCReference Include="JvPageCompsD11R.dcp" />
<DCCReference Include="JvStdCtrlsD11R.dcp" />
<DCCReference Include="JvSystemD11R.dcp" />
<DCCReference Include="PngComponentsD10.dcp" />
<DCCReference Include="PNG_D10.dcp" />
<DCCReference Include="RemObjects_Core_D11.dcp" />
<DCCReference Include="rtl.dcp" />
<DCCReference Include="tb2k_d10.dcp" />
<DCCReference Include="tbx_d10.dcp" />
<DCCReference Include="uContratosClienteViewRegister.pas" />
<DCCReference Include="uDialogOpcionesImpresionContratosCliente.pas">
<Form>fDialogOpcionesImpresionContratosCliente</Form>
@ -121,6 +114,10 @@
<Form>fEditorContratosClientePreview</Form>
<DesignClass>TfEditorPedidosClientePreview</DesignClass>
</DCCReference>
<DCCReference Include="uEditorDireccionEntregaContratoCliente.pas">
<Form>fEditorContratosClienteBeneficios</Form>
<DesignClass>TFrame</DesignClass>
</DCCReference>
<DCCReference Include="uEditorElegirArticulosContratoCliente.pas">
<Form>fEditorElegirArticulosContratoCliente</Form>
<DesignClass>TfEditorElegirArticulosPedidoCliente</DesignClass>
@ -149,8 +146,8 @@
<Form>frViewDetallesContratoCliente</Form>
<DesignClass>TFrame</DesignClass>
</DCCReference>
<DCCReference Include="uViewDireccionEntregaContratoCliente.pas">
<Form>frViewDireccionEntregaContratoCliente</Form>
<DCCReference Include="uViewDireccionEntregaContratoCli.pas">
<Form>frViewDireccionEntregaContratoCli</Form>
<DesignClass>TFrame</DesignClass>
</DCCReference>
<DCCReference Include="uViewDocumentosContratoCliente.pas">
@ -161,6 +158,13 @@
<Form>frViewElegirArticulosContratosCliente</Form>
<DesignClass>TFrame</DesignClass>
</DCCReference>
<DCCReference Include="vcl.dcp" />
<DCCReference Include="vclactnband.dcp" />
<DCCReference Include="vcldb.dcp" />
<DCCReference Include="vcljpg.dcp" />
<DCCReference Include="vclshlctrls.dcp" />
<DCCReference Include="vclx.dcp" />
<DCCReference Include="xmlrtl.dcp" />
</ItemGroup>
</Project>
<!-- EurekaLog First Line

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

@ -10,7 +10,7 @@ implementation
uses
uEditorRegistryUtils, uEditorContratosCliente, uEditorContratosClienteBeneficios,
uEditorContratoCliente, uEditorElegirContratosCliente,
uEditorElegirArticulosContratoCliente, uEditorContratosClienteReport;
uEditorElegirArticulosContratoCliente, uEditorContratosClienteReport, uEditorDireccionEntregaContratoCliente;
procedure RegisterViews;
begin
@ -20,6 +20,7 @@ begin
EditorRegistry.RegisterClass(TfEditorElegirContratosCliente, 'EditorElegirContratosCliente');
EditorRegistry.RegisterClass(TfEditorElegirArticulosContratoCliente, 'EditorElegirArticulosContratosCliente');
EditorRegistry.RegisterClass(TfEditorContratosClientePreview, 'EditorContratosClientePreview');
EditorRegistry.RegisterClass(TfEditorDireccionEntregaContratoCliente, 'EditorDireccionEntregaContratoCliente');
end;
procedure UnregisterViews;
@ -30,6 +31,7 @@ begin
EditorRegistry.UnRegisterClass(TfEditorElegirContratosCliente);
EditorRegistry.UnRegisterClass(TfEditorElegirArticulosContratoCliente);
EditorRegistry.UnRegisterClass(TfEditorContratosClientePreview);
EditorRegistry.UnRegisterClass(TfEditorDireccionEntregaContratoCliente);
end;
end.

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

@ -12,6 +12,7 @@ inherited fEditorContratoCliente: TfEditorContratoCliente
inherited JvNavPanelHeader: TJvNavPanelHeader
Width = 845
Caption = 'Nuevo contrato de cliente'
ExplicitTop = 52
ExplicitWidth = 845
inherited Image1: TImage
Left = 818
@ -174,16 +175,16 @@ inherited fEditorContratoCliente: TfEditorContratoCliente
inherited pgPaginas: TPageControl
Width = 839
Height = 267
ActivePage = pagContenido
TabOrder = 1
OnChanging = pgPaginasChanging
ExplicitTop = 112
ExplicitWidth = 839
ExplicitHeight = 267
inherited pagGeneral: TTabSheet
ExplicitLeft = 4
ExplicitTop = 24
ExplicitWidth = 831
ExplicitHeight = 242
ExplicitHeight = 239
end
object pagContenido: TTabSheet
Caption = 'Contenido'
@ -309,7 +310,7 @@ inherited fEditorContratoCliente: TfEditorContratoCliente
Width = 831
Height = 211
ExplicitWidth = 831
ExplicitHeight = 214
ExplicitHeight = 211
inherited eIncidencias: TcxDBMemo
ExplicitWidth = 827
ExplicitHeight = 194
@ -357,6 +358,7 @@ inherited fEditorContratoCliente: TfEditorContratoCliente
end
inherited PnlComentario: TPanel
Width = 845
ExplicitTop = 79
ExplicitWidth = 845
inherited lbComentario: TLabel
Width = 835
@ -384,99 +386,95 @@ inherited fEditorContratoCliente: TfEditorContratoCliente
Width = 845
ExplicitWidth = 845
inherited Bevel3: TBevel
Left = 416
Left = 480
Height = 122
ExplicitLeft = 416
ExplicitLeft = 480
ExplicitHeight = 122
end
inherited Bevel4: TBevel
Left = 528
Width = 210
ExplicitLeft = 528
ExplicitWidth = 210
Left = 592
ExplicitLeft = 592
end
inherited Bevel1: TBevel
Left = 499
ExplicitLeft = 499
end
inherited ImporteDto: TcxDBCurrencyEdit
Style.IsFontAssigned = True
ExplicitWidth = 93
Width = 93
end
inherited ImporteIVA: TcxDBCurrencyEdit
Left = 599
Left = 663
Style.IsFontAssigned = True
ExplicitLeft = 599
ExplicitWidth = 137
Width = 137
ExplicitLeft = 663
end
inherited ImporteTotal: TcxDBCurrencyEdit
Left = 529
Left = 593
Style.IsFontAssigned = True
ExplicitLeft = 529
ExplicitWidth = 137
Width = 137
ExplicitLeft = 593
end
inherited edtDescuento: TcxDBSpinEdit
Style.IsFontAssigned = True
end
inherited edtIVA: TcxDBSpinEdit
Left = 528
Left = 592
Style.IsFontAssigned = True
ExplicitLeft = 528
ExplicitLeft = 592
end
inherited ImporteBase: TcxDBCurrencyEdit
Left = 528
Left = 592
Style.IsFontAssigned = True
ExplicitLeft = 528
ExplicitWidth = 92
Width = 92
ExplicitLeft = 592
end
inherited edtRE: TcxDBSpinEdit
Left = 528
Left = 592
Style.IsFontAssigned = True
ExplicitLeft = 528
ExplicitLeft = 592
end
inherited edtIRPF: TcxDBSpinEdit
Left = 528
Left = 592
Style.IsFontAssigned = True
ExplicitLeft = 528
ExplicitLeft = 592
end
inherited ImporteRE: TcxDBCurrencyEdit
Left = 599
Left = 663
Style.IsFontAssigned = True
ExplicitLeft = 599
ExplicitWidth = 56
Width = 56
ExplicitLeft = 663
end
inherited ImporteIRPF: TcxDBCurrencyEdit
Left = 599
Left = 663
Style.IsFontAssigned = True
ExplicitLeft = 599
ExplicitWidth = 56
Width = 56
ExplicitLeft = 663
end
inherited eImporteNeto: TcxDBCurrencyEdit
Style.IsFontAssigned = True
ExplicitWidth = 147
Width = 147
end
inherited ePorte: TcxDBCurrencyEdit
Style.IsFontAssigned = True
ExplicitWidth = 147
Width = 147
end
inherited eIVA: TcxDBLookupComboBox
Properties.OnValidate = frViewTotales1eIVAPropertiesValidate
Style.Color = clInfoBk
ExplicitWidth = 81
Width = 81
end
inherited bTiposIVA: TButton
Left = 268
Left = 332
OnClick = frViewTotales1bTiposIVAClick
ExplicitLeft = 268
ExplicitLeft = 332
end
inherited cbRecargoEquivalencia: TcxDBCheckBox
ExplicitWidth = 219
Width = 219
inherited edtRetencion: TcxDBSpinEdit
Left = 592
Style.IsFontAssigned = True
ExplicitLeft = 592
end
inherited edtImporteRetencion: TcxDBCurrencyEdit
Left = 663
Style.IsFontAssigned = True
ExplicitLeft = 663
end
inherited edtFechaRetencion: TcxDBDateEdit
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
end
inherited dxLayoutControl1Group_Root: TdxLayoutGroup
inherited dxLayoutControl1Group1: TdxLayoutGroup

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

@ -328,6 +328,9 @@ begin
ShowInfoMessage('Se han actualizado las líneas con el descuento del cliente seleccionado');
end;
end;
//Se refresca dirección de envio
ViewContrato.ViewDireccionEntregaContratoCli.ContratoCliente := FContrato;
end;
end;

166
Source/Modulos/Contratos de cliente/Views/uEditorDireccionEntregaContratoCliente.dfm Normal file
View File

@ -0,0 +1,166 @@
object fEditorDireccionEntregaContratoCliente: TfEditorDireccionEntregaContratoCliente
Left = 227
Top = 108
BorderStyle = bsDialog
Caption = 'Datos de la direcci'#243'n de entrega:'
ClientHeight = 257
ClientWidth = 453
Color = clBtnFace
ParentFont = True
OldCreateOrder = True
Position = poOwnerFormCenter
OnClose = FormClose
OnShow = FormShow
DesignSize = (
453
257)
PixelsPerInch = 96
TextHeight = 13
object Bevel1: TBevel
Left = 8
Top = 14
Width = 349
Height = 225
Anchors = [akLeft, akTop, akRight]
Shape = bsFrame
end
object Label1: TLabel
Left = 20
Top = 25
Width = 110
Height = 13
AutoSize = False
Caption = 'Direcci'#243'n:'
end
object Label2: TLabel
Left = 20
Top = 89
Width = 110
Height = 13
AutoSize = False
Caption = 'Poblaci'#243'n:'
end
object Label3: TLabel
Left = 20
Top = 117
Width = 110
Height = 13
AutoSize = False
Caption = 'Provincia:'
end
object Label4: TLabel
Left = 20
Top = 143
Width = 110
Height = 13
AutoSize = False
Caption = 'C'#243'digo postal:'
end
object Label6: TLabel
Left = 20
Top = 185
Width = 109
Height = 13
AutoSize = False
Caption = 'Persona de contacto:'
end
object Label7: TLabel
Left = 21
Top = 210
Width = 109
Height = 13
AutoSize = False
Caption = 'Tel'#233'fono:'
end
object OKBtn: TButton
Left = 370
Top = 13
Width = 75
Height = 25
Anchors = [akTop, akRight]
Caption = '&Aceptar'
Default = True
ModalResult = 1
TabOrder = 0
end
object CancelBtn: TButton
Left = 370
Top = 44
Width = 75
Height = 25
Anchors = [akTop, akRight]
Cancel = True
Caption = '&Cancelar'
ModalResult = 2
TabOrder = 1
end
object eDireccion2: TDBEdit
Left = 135
Top = 23
Width = 210
Height = 57
AutoSelect = False
AutoSize = False
DataField = 'CALLE'
DataSource = dsDireccion
TabOrder = 2
end
object ePoblacion: TDBEdit
Left = 135
Top = 86
Width = 210
Height = 21
DataField = 'POBLACION_ENVIO'
DataSource = dsDireccion
TabOrder = 3
end
object eProvincia: TDBEdit
Left = 135
Top = 114
Width = 210
Height = 21
DataField = 'PROVINCIA_ENVIO'
DataSource = dsDireccion
TabOrder = 4
end
object eCodigoPostal: TDBEdit
Left = 135
Top = 140
Width = 210
Height = 21
DataField = 'CODIGO_POSTAL_ENVIO'
DataSource = dsDireccion
TabOrder = 5
end
object ePersonaContacto: TDBEdit
Left = 135
Top = 182
Width = 210
Height = 21
DataField = 'PERS_CONTACTO_ENVIO'
DataSource = dsDireccion
TabOrder = 6
end
object eTelefono: TDBEdit
Left = 136
Top = 207
Width = 210
Height = 21
DataField = 'TLFS_ENVIO'
DataSource = dsDireccion
TabOrder = 7
end
object eDireccion: TcxDBMemo
Left = 134
Top = 22
DataBinding.DataField = 'CALLE_ENVIO'
DataBinding.DataSource = dsDireccion
TabOrder = 8
Height = 58
Width = 211
end
object dsDireccion: TDADataSource
Left = 16
Top = 46
end
end

93
Source/Modulos/Contratos de cliente/Views/uEditorDireccionEntregaContratoCliente.pas Normal file
View File

@ -0,0 +1,93 @@
unit uEditorDireccionEntregaContratoCliente;
interface
uses Windows, SysUtils, Classes, Graphics, Forms, Controls, StdCtrls,
Buttons, ExtCtrls, Mask, DBCtrls, DB, uDADataTable,
cxControls, cxContainer, cxEdit, cxTextEdit, cxDBEdit,
uIEditorDireccionEntregaContratoCliente, uBizContratosCliente, uDAInterfaces,
cxMemo;
type
TfEditorDireccionEntregaContratoCliente = class(TForm, IEditorDireccionEntregaContratoCliente)
OKBtn: TButton;
CancelBtn: TButton;
Bevel1: TBevel;
eDireccion2: TDBEdit;
ePoblacion: TDBEdit;
eProvincia: TDBEdit;
eCodigoPostal: TDBEdit;
Label1: TLabel;
Label2: TLabel;
Label3: TLabel;
Label4: TLabel;
dsDireccion: TDADataSource;
Label6: TLabel;
ePersonaContacto: TDBEdit;
Label7: TLabel;
eTelefono: TDBEdit;
eDireccion: TcxDBMemo;
procedure FormShow(Sender: TObject);
procedure FormClose(Sender: TObject; var Action: TCloseAction);
private
pDireccion: String;
pPoblacion: String;
pProvincia: String;
pCodigoPostal: String;
pPersonaContacto: String;
pTelefono: String;
FContrato : IBizContratoCliente;
function GetContrato: IBizContratoCliente;
procedure SetContrato(const Value: IBizContratoCliente);
property Contrato: IBizContratoCliente read GetContrato write SetContrato;
end;
implementation
{$R *.dfm}
{ TfEditorDireccionEntrega }
procedure TfEditorDireccionEntregaContratoCliente.FormClose(Sender: TObject; var Action: TCloseAction);
begin
//En el caso de cancelar se recuperan los valores iniciales
if (Self.ModalResult <> mrOk) and (dsDireccion.DataTable.State in dsEditModes) then
begin
eDireccion.EditValue := pDireccion;
ePoblacion.Field.Value := pPoblacion;
eProvincia.Field.Value := pProvincia;
eCodigoPostal.Field.Value := pCodigoPostal;
ePersonaContacto.Field.Value := pPersonaContacto;
eTelefono.Field.Value := pTelefono;
end;
end;
procedure TfEditorDireccionEntregaContratoCliente.FormShow(Sender: TObject);
begin
//Guardamos los valores iniciales por si al final el usuario cancela
pDireccion := eDireccion.Text;
pPoblacion := ePoblacion.Text;
pProvincia := eProvincia.Text;
pCodigoPostal := eCodigoPostal.Text;
pPersonaContacto := ePersonaContacto.Text;
pTelefono := eTelefono.Text;
end;
function TfEditorDireccionEntregaContratoCliente.GetContrato: IBizContratoCliente;
begin
Result := FContrato;
end;
procedure TfEditorDireccionEntregaContratoCliente.SetContrato(const Value: IBizContratoCliente);
begin
FContrato := Value;
if Assigned(FContrato) then
dsDireccion.DataTable := FContrato.DataTable
else
dsDireccion.DataTable := NIL;
end;
end.

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

@ -1,23 +1,23 @@
inherited frViewContratoCliente: TfrViewContratoCliente
Width = 810
Height = 449
Width = 1123
Height = 796
OnCreate = CustomViewCreate
OnDestroy = CustomViewDestroy
ExplicitWidth = 810
ExplicitHeight = 449
ExplicitWidth = 1123
ExplicitHeight = 796
object dxLayoutControl1: TdxLayoutControl
Left = 0
Top = 0
Width = 810
Height = 449
Width = 1123
Height = 796
Align = alClient
ParentBackground = True
TabOrder = 0
TabStop = False
AutoContentSizes = [acsWidth, acsHeight]
DesignSize = (
810
449)
1123
796)
object edtFechaContrato: TcxDBDateEdit
Left = 117
Top = 82
@ -42,7 +42,7 @@ inherited frViewContratoCliente: TfrViewContratoCliente
Width = 129
end
object memObservaciones: TcxDBMemo
Left = 389
Left = 534
Top = 289
Anchors = [akLeft, akTop, akRight, akBottom]
DataBinding.DataField = 'OBSERVACIONES'
@ -59,7 +59,7 @@ inherited frViewContratoCliente: TfrViewContratoCliente
StyleFocused.LookAndFeel.NativeStyle = True
StyleHot.LookAndFeel.Kind = lfStandard
StyleHot.LookAndFeel.NativeStyle = True
TabOrder = 11
TabOrder = 12
Height = 200
Width = 507
end
@ -90,7 +90,7 @@ inherited frViewContratoCliente: TfrViewContratoCliente
end
object cbFormaPago: TcxDBLookupComboBox
Left = 117
Top = 193
Top = 429
DataBinding.DataField = 'ID_FORMA_PAGO'
DataBinding.DataSource = DADataSource
Properties.ImmediatePost = True
@ -117,16 +117,16 @@ inherited frViewContratoCliente: TfrViewContratoCliente
StyleFocused.LookAndFeel.NativeStyle = True
StyleHot.LookAndFeel.Kind = lfStandard
StyleHot.LookAndFeel.NativeStyle = True
TabOrder = 6
TabOrder = 7
Width = 122
end
object bFormasPago: TButton
Left = 227
Top = 193
Left = 372
Top = 429
Width = 132
Height = 21
Caption = 'Ver las formas de pago...'
TabOrder = 7
TabOrder = 8
OnClick = bFormasPagoClick
end
object cbSituacion: TcxDBImageComboBox
@ -156,7 +156,7 @@ inherited frViewContratoCliente: TfrViewContratoCliente
Width = 260
end
inline frViewDatosYSeleccionClienteContrato1: TfrViewDatosYSeleccionClienteContrato
Left = 389
Left = 534
Top = 28
Width = 127
Height = 225
@ -166,9 +166,9 @@ inherited frViewContratoCliente: TfrViewContratoCliente
Font.Name = 'Tahoma'
Font.Style = []
ParentFont = False
TabOrder = 10
TabOrder = 11
ReadOnly = False
ExplicitLeft = 389
ExplicitLeft = 534
ExplicitTop = 28
ExplicitWidth = 127
ExplicitHeight = 225
@ -177,41 +177,27 @@ inherited frViewContratoCliente: TfrViewContratoCliente
Height = 225
ExplicitWidth = 127
ExplicitHeight = 225
inherited edtlNombre: TcxDBTextEdit
ExplicitWidth = 224
Width = 224
end
inherited edtNIFCIF: TcxDBTextEdit
ExplicitWidth = 103
Width = 103
end
inherited bVerFichaCliente: TBitBtn
Left = 197
ExplicitLeft = 197
Left = 365
ExplicitLeft = 365
end
inherited edtDireccion: TcxMemo
ExplicitWidth = 121
Width = 121
end
inherited bElegirDireccion: TButton
Left = 366
ExplicitLeft = 366
end
inherited edtTelefonos: TcxTextEdit
ExplicitWidth = 193
Width = 193
Left = 534
ExplicitLeft = 534
end
inherited edtReferencia: TcxDBTextEdit
Left = 261
ExplicitLeft = 261
ExplicitWidth = 103
Width = 103
Left = 343
ExplicitLeft = 343
end
end
end
object memFormaPago: TcxDBMemo
Left = 22
Top = 220
Top = 456
Anchors = [akLeft, akTop, akRight, akBottom]
DataBinding.DataField = 'FORMA_PAGO'
DataBinding.DataSource = DADataSource
@ -227,13 +213,13 @@ inherited frViewContratoCliente: TfrViewContratoCliente
StyleFocused.LookAndFeel.NativeStyle = True
StyleHot.LookAndFeel.Kind = lfStandard
StyleHot.LookAndFeel.NativeStyle = True
TabOrder = 8
TabOrder = 9
Height = 100
Width = 396
end
object memPlazoEntrega: TcxDBMemo
Left = 22
Top = 340
Top = 637
Anchors = [akLeft, akTop, akRight, akBottom]
DataBinding.DataField = 'PLAZO_ENTREGA'
DataBinding.DataSource = DADataSource
@ -249,7 +235,7 @@ inherited frViewContratoCliente: TfrViewContratoCliente
StyleFocused.LookAndFeel.NativeStyle = True
StyleHot.LookAndFeel.Kind = lfStandard
StyleHot.LookAndFeel.NativeStyle = True
TabOrder = 9
TabOrder = 10
Height = 100
Width = 396
end
@ -284,7 +270,7 @@ inherited frViewContratoCliente: TfrViewContratoCliente
Width = 27
end
object cbTipoContrato: TcxDBComboBox
Left = 282
Left = 361
Top = 82
DataBinding.DataField = 'TIPO_CONTRATO'
DataBinding.DataSource = DADataSource
@ -329,6 +315,64 @@ inherited frViewContratoCliente: TfrViewContratoCliente
Height = 21
Width = 335
end
inline frViewDireccionEntregaContratoCli1: TfrViewDireccionEntregaContratoCli
Left = 22
Top = 193
Width = 400
Height = 200
Align = alClient
AutoSize = True
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'Tahoma'
Font.Style = []
ParentFont = False
TabOrder = 6
ReadOnly = False
ExplicitLeft = 22
ExplicitTop = 193
ExplicitWidth = 400
ExplicitHeight = 200
inherited dxLayoutControl1: TdxLayoutControl
Width = 400
Height = 200
ExplicitWidth = 400
ExplicitHeight = 200
inherited rdxDestino1: TRadioButton
Width = 255
ExplicitWidth = 255
end
inherited rdxDestino2: TRadioButton
Width = 287
ExplicitWidth = 287
end
inherited cbLista: TcxDBLookupComboBox
ExplicitWidth = 425
Width = 425
end
inherited bModificar: TBitBtn
Left = 292
Top = 165
ExplicitLeft = 292
ExplicitTop = 165
end
inherited txtDireccion: TStaticText
Width = 551
Height = 177
ExplicitWidth = 551
ExplicitHeight = 177
end
inherited rdxDestinoCliente: TRadioButton
Width = 566
ExplicitWidth = 566
end
inherited cbListaDireccionesCliente: TcxDBLookupComboBox
ExplicitWidth = 551
Width = 551
end
end
end
object dxLayoutControl1Group_Root: TdxLayoutGroup
ShowCaption = False
Hidden = True
@ -390,6 +434,14 @@ inherited frViewContratoCliente: TfrViewContratoCliente
ControlOptions.ShowBorder = False
end
end
object dxLayoutControl1Group5: TdxLayoutGroup
Caption = 'Direcci'#243'n entrega / obra'
object dxLayoutControl1Item13: TdxLayoutItem
Control = frViewDireccionEntregaContratoCli1
ControlOptions.AutoColor = True
ControlOptions.ShowBorder = False
end
end
object dxLayoutControl1Group6: TdxLayoutGroup
AutoAligns = [aaHorizontal]
AlignVert = avClient

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

@ -9,10 +9,10 @@ uses
uViewObservaciones, uViewDatosYSeleccionCliente,
cxGraphics, cxDropDownEdit, cxImageComboBox, cxDBEdit, cxContainer, cxEdit,
cxTextEdit, cxMaskEdit, cxCalendar, dxLayoutControl, cxControls, cxMemo,
uViewDireccionEntregaContratoCliente, Buttons, ActnList, cxLookupEdit,
Buttons, ActnList, cxLookupEdit,
cxDBLookupEdit, cxDBLookupComboBox, uFormasPagoController, uDAInterfaces,
uBizFormasPago, cxButtonEdit, uViewDatosYSeleccionClienteContrato, uBizContactos,
uVendedoresController;
uVendedoresController, uViewDireccionEntregaContratoCli;
type
IViewContratoCliente = interface(IViewBase)
@ -23,6 +23,9 @@ type
function GetViewClienteContrato: IViewDatosYSeleccionClienteContrato;
property ViewClienteContrato: IViewDatosYSeleccionClienteContrato read GetViewClienteContrato;
function GetViewDireccionEntregaContratoCli: IViewDireccionEntregaContratoCli;
property ViewDireccionEntregaContratoCli: IViewDireccionEntregaContratoCli read GetViewDireccionEntregaContratoCli;
end;
TfrViewContratoCliente = class(TfrViewBase, IViewContratoCliente)
@ -65,6 +68,9 @@ type
dxLayoutControl1Group11: TdxLayoutGroup;
dxLayoutControl1Item12: TdxLayoutItem;
edtlReferenciaCliente: TcxDBTextEdit;
dxLayoutControl1Group5: TdxLayoutGroup;
dxLayoutControl1Item13: TdxLayoutItem;
frViewDireccionEntregaContratoCli1: TfrViewDireccionEntregaContratoCli;
procedure CustomViewCreate(Sender: TObject);
procedure CustomViewDestroy(Sender: TObject);
procedure bFormasPagoClick(Sender: TObject);
@ -79,14 +85,18 @@ type
FFormasPagoController : IFormasPagoController;
FVendedoresController : IVendedoresController;
FViewClienteContrato : IViewDatosYSeleccionClienteContrato;
FViewDireccionEntregaContratoCli : IViewDireccionEntregaContratoCli;
function GetContrato: IBizContratoCliente;
procedure SetContrato(const Value: IBizContratoCliente); virtual;
function GetViewClienteContrato: IViewDatosYSeleccionClienteContrato;
function GetViewDireccionEntregaContratoCli: IViewDireccionEntregaContratoCli;
public
property Contrato: IBizContratoCliente read GetContrato write SetContrato;
property ViewClienteContrato: IViewDatosYSeleccionClienteContrato read GetViewClienteContrato;
property ViewDireccionEntregaContratoCli: IViewDireccionEntregaContratoCli read GetViewDireccionEntregaContratoCli;
end;
implementation
@ -121,6 +131,7 @@ begin
FFormasPagoController := TFormasPagoController.Create;
FVendedoresController := TVendedoresController.Create;
FViewClienteContrato := frViewDatosYSeleccionClienteContrato1;
FViewDireccionEntregaContratoCli := frViewDireccionEntregaContratoCli1;
end;
procedure TfrViewContratoCliente.CustomViewDestroy(Sender: TObject);
@ -131,6 +142,7 @@ begin
FVendedor := Nil;
FVendedoresController := NIL;
FViewClienteContrato := NIL;
FViewDireccionEntregaContratoCli := NIL;
end;
procedure TfrViewContratoCliente.frViewClienteContratoButton1Click(Sender: TObject);
@ -165,6 +177,11 @@ begin
Result := FViewClienteContrato;
end;
function TfrViewContratoCliente.GetViewDireccionEntregaContratoCli: IViewDireccionEntregaContratoCli;
begin
Result := FViewDireccionEntregaContratoCli;
end;
procedure TfrViewContratoCliente.SetContrato(const Value: IBizContratoCliente);
begin
FContrato := Value;
@ -181,6 +198,7 @@ begin
dsVendedor.DataTable.Active := True;
FViewClienteContrato.Contrato := FContrato;
frViewDireccionEntregaContratoCli1.ContratoCliente := FContrato;
end
else begin
DADataSource.DataTable := NIL;

229
Source/Modulos/Contratos de cliente/Views/uViewDireccionEntregaContratoCli.dfm Normal file
View File

@ -0,0 +1,229 @@
inherited frViewDireccionEntregaContratoCli: TfrViewDireccionEntregaContratoCli
Width = 906
Height = 551
ExplicitWidth = 906
ExplicitHeight = 551
object dxLayoutControl1: TdxLayoutControl
Left = 0
Top = 0
Width = 906
Height = 551
Align = alClient
ParentBackground = True
TabOrder = 0
TabStop = False
AutoContentSizes = [acsWidth, acsHeight]
DesignSize = (
906
551)
object rdxDestino1: TRadioButton
Left = 10
Top = 10
Width = 255
Height = 17
Action = actLista
Enabled = False
TabOrder = 0
end
object rdxDestino2: TRadioButton
Left = 10
Top = 110
Width = 287
Height = 17
Action = actOtro
TabOrder = 4
end
object cbLista: TcxDBLookupComboBox
Left = 25
Top = 33
Anchors = [akLeft, akTop, akRight]
DataBinding.DataSource = dsContrato
Enabled = False
Properties.DropDownListStyle = lsFixedList
Properties.ImmediatePost = True
Properties.KeyFieldNames = 'ID'
Properties.ListColumns = <
item
FieldName = 'NOMBRE'
end>
Properties.ListOptions.AnsiSort = True
Properties.ListOptions.GridLines = glNone
Properties.ListOptions.ShowHeader = False
Properties.ListOptions.SyncMode = True
Properties.ListSource = dsAlmacenes
Properties.PostPopupValueOnTab = True
Style.BorderColor = clWindowFrame
Style.BorderStyle = ebs3D
Style.HotTrack = False
Style.LookAndFeel.NativeStyle = True
Style.ButtonStyle = bts3D
Style.PopupBorderStyle = epbsFrame3D
StyleDisabled.LookAndFeel.NativeStyle = True
StyleFocused.LookAndFeel.NativeStyle = True
StyleHot.LookAndFeel.NativeStyle = True
TabOrder = 1
Width = 425
end
object bModificar: TBitBtn
Left = 716
Top = 516
Width = 180
Height = 25
Caption = 'Modificar la direcci'#243'n...'
TabOrder = 6
OnClick = bModificarClick
end
object txtDireccion: TStaticText
Left = 25
Top = 133
Width = 551
Height = 177
AutoSize = False
BevelKind = bkFlat
TabOrder = 5
OnDblClick = txtDireccionDblClick
end
object rdxDestinoCliente: TRadioButton
Left = 10
Top = 60
Width = 566
Height = 17
Action = actListaCliente
Checked = True
TabOrder = 2
TabStop = True
end
object cbListaDireccionesCliente: TcxDBLookupComboBox
Left = 25
Top = 83
Anchors = [akLeft, akTop, akRight]
DataBinding.DataField = 'ID_DIRECCION_ENVIO'
DataBinding.DataSource = dsContrato
Enabled = False
Properties.DropDownListStyle = lsFixedList
Properties.ImmediatePost = True
Properties.KeyFieldNames = 'ID_DIRECCION'
Properties.ListColumns = <
item
Fixed = True
FieldName = 'CALLE'
end
item
Fixed = True
FieldName = 'POBLACION'
end
item
Fixed = True
FieldName = 'PROVINCIA'
end>
Properties.ListOptions.GridLines = glNone
Properties.ListOptions.ShowHeader = False
Properties.ListOptions.SyncMode = True
Properties.ListSource = dsDireccionesCliente
Properties.PostPopupValueOnTab = True
Style.BorderColor = clWindowFrame
Style.BorderStyle = ebs3D
Style.HotTrack = False
Style.LookAndFeel.NativeStyle = True
Style.ButtonStyle = bts3D
Style.PopupBorderStyle = epbsFrame3D
StyleDisabled.LookAndFeel.NativeStyle = True
StyleFocused.LookAndFeel.NativeStyle = True
StyleHot.LookAndFeel.NativeStyle = True
TabOrder = 3
Width = 551
end
object dxLayoutGroup1: TdxLayoutGroup
ShowCaption = False
Hidden = True
ShowBorder = False
object dxLayoutItem1: TdxLayoutItem
Caption = 'New Item'
Enabled = False
ShowCaption = False
Visible = False
Control = rdxDestino1
ControlOptions.AutoColor = True
ControlOptions.ShowBorder = False
end
object dxLayoutControl1Item3: TdxLayoutItem
Caption = 'New Item'
Enabled = False
Offsets.Left = 15
ShowCaption = False
Visible = False
Control = cbLista
ControlOptions.ShowBorder = False
end
object dxLayoutControl1Item4: TdxLayoutItem
ShowCaption = False
Control = rdxDestinoCliente
ControlOptions.AutoColor = True
ControlOptions.ShowBorder = False
end
object dxLayoutControl1Item6: TdxLayoutItem
Offsets.Left = 15
ShowCaption = False
Control = cbListaDireccionesCliente
ControlOptions.ShowBorder = False
end
object dxLayoutControl1Item2: TdxLayoutItem
Caption = 'New Item'
ShowCaption = False
Control = rdxDestino2
ControlOptions.AutoColor = True
ControlOptions.ShowBorder = False
end
object dxLayoutControl1Item5: TdxLayoutItem
AutoAligns = [aaHorizontal]
AlignVert = avClient
Caption = 'StaticText1'
Offsets.Left = 15
ShowCaption = False
Control = txtDireccion
ControlOptions.AutoColor = True
ControlOptions.ShowBorder = False
end
object dxLayoutControl1Item1: TdxLayoutItem
AutoAligns = [aaVertical]
AlignHorz = ahRight
Offsets.Left = 15
ShowCaption = False
Control = bModificar
ControlOptions.ShowBorder = False
end
end
end
object ActionList1: TActionList
Left = 248
Top = 8
object actLista: TAction
Caption = 'Recibir el pedido en el almac'#233'n:'
Checked = True
GroupIndex = 1
OnExecute = actListaExecute
end
object actOtro: TAction
Caption = 'Enviar a esta otra direcci'#243'n:'
GroupIndex = 1
OnExecute = actOtroExecute
end
object actListaCliente: TAction
Caption = 'Enviar a esta direcci'#243'n del cliente:'
GroupIndex = 1
OnExecute = actListaClienteExecute
end
end
object dsContrato: TDADataSource
Left = 280
Top = 8
end
object dsAlmacenes: TDADataSource
Left = 312
Top = 8
end
object dsDireccionesCliente: TDADataSource
Left = 344
Top = 8
end
end

347
Source/Modulos/Contratos de cliente/Views/uViewDireccionEntregaContratoCli.pas Normal file
View File

@ -0,0 +1,347 @@
unit uViewDireccionEntregaContratoCli;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, uViewBase, uBizContratosCliente, cxGraphics, dxLayoutControl, cxMemo,
cxContainer, cxEdit, cxTextEdit, cxMaskEdit, cxDropDownEdit, cxLookupEdit,
cxDBLookupEdit, cxDBLookupComboBox, StdCtrls, cxControls, DB, uDADataTable,
ActnList, uContratosClienteController, Buttons, uDAInterfaces, uClientesController,
uDireccionesContactoController, uBizContactosDirecciones;
// uBizAlmacenes, uAlmacenesController;
type
IViewDireccionEntregaContratoCli = interface(IViewBase)
['{07B3EA98-62DA-4BAD-8F45-24FBEB2236EF}']
function GetContratoCliente: IBizContratoCliente;
procedure SetContratoCliente(const Value: IBizContratoCliente);
property ContratoCliente: IBizContratoCliente read GetContratoCliente write SetContratoCliente;
procedure RefrescarDireccion;
procedure CambioDireccionAlmacen;
end;
TfrViewDireccionEntregaContratoCli = class(TfrViewBase, IViewDireccionEntregaContratoCli)
dxLayoutControl1: TdxLayoutControl;
rdxDestino1: TRadioButton;
rdxDestino2: TRadioButton;
cbLista: TcxDBLookupComboBox;
dxLayoutGroup1: TdxLayoutGroup;
dxLayoutItem1: TdxLayoutItem;
dxLayoutControl1Item3: TdxLayoutItem;
dxLayoutControl1Item2: TdxLayoutItem;
ActionList1: TActionList;
actLista: TAction;
actOtro: TAction;
dsContrato: TDADataSource;
dsAlmacenes: TDADataSource;
dxLayoutControl1Item1: TdxLayoutItem;
bModificar: TBitBtn;
txtDireccion: TStaticText;
dxLayoutControl1Item5: TdxLayoutItem;
dxLayoutControl1Item4: TdxLayoutItem;
rdxDestinoCliente: TRadioButton;
dxLayoutControl1Item6: TdxLayoutItem;
cbListaDireccionesCliente: TcxDBLookupComboBox;
dsDireccionesCliente: TDADataSource;
actListaCliente: TAction;
procedure actListaExecute(Sender: TObject);
procedure actOtroExecute(Sender: TObject);
procedure cbListaPropertiesValidate(Sender: TObject; var DisplayValue: Variant; var ErrorText: TCaption; var Error: Boolean);
procedure cbListaDireccionesClientePropertiesValidate(Sender: TObject; var DisplayValue: Variant; var ErrorText: TCaption; var Error: Boolean);
procedure bModificarClick(Sender: TObject);
procedure txtDireccionDblClick(Sender: TObject);
procedure actListaClienteExecute(Sender: TObject);
procedure actBotonElegirDirClienteUpdate(Sender: TObject);
protected
// FAlmacenesController : IAlmacenesController;
// FAlmacenes: IBizAlmacen;
FDireccionesCliente : IBizContactosDirecciones;
FContrato : IBizContratoCliente;
FController : IContratosClienteController;
function GetContratoCliente: IBizContratoCliente;
function HayClienteAsociado: Boolean;
procedure SetContratoCliente(const Value: IBizContratoCliente);
procedure CambioDireccionCliente;
procedure RecuperarClienteAsociado;
procedure SetReadOnly(Value: Boolean); override;
public
property ContratoCliente: IBizContratoCliente read GetContratoCliente write SetContratoCliente;
constructor Create(AOwner: TComponent); override;
destructor Destroy; override;
procedure RefrescarDireccion;
procedure CambioDireccionAlmacen;
end;
implementation
{$R *.dfm}
uses
uEditorRegistryUtils, uCustomView, uStringsUtils, uFactuGES_App;
procedure TfrViewDireccionEntregaContratoCli.actBotonElegirDirClienteUpdate(
Sender: TObject);
begin
inherited;
(Sender as TAction).Enabled := HayClienteAsociado and (rdxDestinoCliente.Checked);
end;
procedure TfrViewDireccionEntregaContratoCli.actListaClienteExecute(
Sender: TObject);
begin
inherited;
actListaCliente.Checked := True;
CambioDireccionCliente;
end;
procedure TfrViewDireccionEntregaContratoCli.actListaExecute(Sender: TObject);
begin
actLista.Checked := True;
RefrescarDireccion;
end;
procedure TfrViewDireccionEntregaContratoCli.actOtroExecute(Sender: TObject);
begin
actOtro.Checked := True;
// txtDireccion.Enabled := True;
if Assigned(FContrato) then
begin
FController.VerDireccionEntrega(FContrato);
{
if (FContrato.ID_ALMACEN > 0) then
begin
FContrato.Edit;
FContrato.ID_ALMACEN := 0;
end;
}
end;
RefrescarDireccion;
end;
procedure TfrViewDireccionEntregaContratoCli.bModificarClick(Sender: TObject);
begin
inherited;
actOtro.Execute;
end;
procedure TfrViewDireccionEntregaContratoCli.CambioDireccionAlmacen;
begin
{
if Assigned(FPedido) and Assigned(FAlmacenes) then
begin
FPedido.Edit;
FPedido.CALLE := FAlmacenes.NOMBRE + #10#13 + FAlmacenes.CALLE;
FPedido.POBLACION := FAlmacenes.POBLACION;
FPedido.POBLACION := FAlmacenes.POBLACION;
FPedido.PROVINCIA := FAlmacenes.PROVINCIA;
FPedido.CODIGO_POSTAL := FAlmacenes.CODIGO_POSTAL;
FPedido.PERSONA_CONTACTO := FAlmacenes.PERSONA_CONTACTO;
FPedido.TELEFONO := FAlmacenes.MOVIL;
RefrescarDireccion;
end;
}
end;
procedure TfrViewDireccionEntregaContratoCli.CambioDireccionCliente;
begin
if Assigned(FContrato) and Assigned(FDireccionesCliente) then
begin
FContrato.Edit;
FContrato.CALLE_ENVIO := FDireccionesCliente.NOMBRE + #10#13 + FDireccionesCliente.CALLE;
FContrato.POBLACION_ENVIO := FDireccionesCliente.POBLACION;
FContrato.PROVINCIA_ENVIO := FDireccionesCliente.PROVINCIA;
FContrato.CODIGO_POSTAL_ENVIO := FDireccionesCliente.CODIGO_POSTAL;
FContrato.PERS_CONTACTO_ENVIO := FDireccionesCliente.PERSONA_CONTACTO;
FContrato.TLFS_ENVIO := FDireccionesCliente.TELEFONO;
RefrescarDireccion;
end;
end;
procedure TfrViewDireccionEntregaContratoCli.cbListaDireccionesClientePropertiesValidate(
Sender: TObject; var DisplayValue: Variant; var ErrorText: TCaption;
var Error: Boolean);
begin
if Assigned(FContrato) and Assigned(FDireccionesCliente) then
CambioDireccionCliente;
end;
procedure TfrViewDireccionEntregaContratoCli.cbListaPropertiesValidate(
Sender: TObject; var DisplayValue: Variant; var ErrorText: TCaption;
var Error: Boolean);
begin
{
if Assigned(FPedido) and Assigned(FAlmacenes) then
CambioDireccionAlmacen;
}
end;
constructor TfrViewDireccionEntregaContratoCli.Create(AOwner: TComponent);
begin
inherited;
FController := TContratosClienteController.Create;
// FAlmacenesController := TAlmacenesController.Create;
// FAlmacenes := FAlmacenesController.BuscarTodos;
// FAlmacenes.DataTable.Active := True;
// dsAlmacenes.DataTable := FAlmacenes.DataTable;
FDireccionesCliente := NIL;
dsDireccionesCliente.DataTable := NIL;
end;
destructor TfrViewDireccionEntregaContratoCli.Destroy;
begin
cbListaDireccionesCliente.Properties.OnValidate := Nil;
cbLista.Properties.OnValidate := Nil;
dsDireccionesCliente.DataTable := NIL;
FDireccionesCliente := NIL;
// FAlmacenesController := Nil;
// FAlmacenes := Nil;
// FController := NIL;
inherited;
end;
function TfrViewDireccionEntregaContratoCli.GetContratoCliente: IBizContratoCliente;
begin
Result := FContrato;
end;
function TfrViewDireccionEntregaContratoCli.HayClienteAsociado: Boolean;
begin
Result := Assigned(FContrato) and (FContrato.ID_CLIENTE > 0);
end;
procedure TfrViewDireccionEntregaContratoCli.RecuperarClienteAsociado;
var
AClientesController: IClientesController;
AContratoController : IContratosClienteController;
AContrato : IBizContratoCliente;
begin
FDireccionesCliente := NIL;
dsDireccionesCliente.DataTable := NIL;
if (HayCLienteAsociado()) then
begin
ShowHourglassCursor;
AClientesController := TClientesController.Create;
AContratoController := TContratosClienteController.Create;
try
AContrato := FContrato;
if Assigned(AContrato) then
begin
AContrato.DataTable.Active := True;
FDireccionesCliente := AClientesController.DarTodasDirecciones(AContrato.ID_CLIENTE);
if Assigned(FDireccionesCliente) then
FDireccionesCliente.DataTable.Open;
end;
finally
AClientesController := NIL;
AContratoController := NIL;
AContrato := NIL;
HideHourglassCursor;
end;
end
end;
procedure TfrViewDireccionEntregaContratoCli.RefrescarDireccion;
begin
txtDireccion.Caption := '';
if Assigned(FContrato) then
begin
txtDireccion.Enabled := True;
txtDireccion.Caption := FContrato.CALLE_ENVIO;
txtDireccion.Caption := txtDireccion.Caption + #13#10 + FContrato.CODIGO_POSTAL_ENVIO + ' ' + FContrato.POBLACION_ENVIO;
txtDireccion.Caption := txtDireccion.Caption + #13#10 + FContrato.PROVINCIA_ENVIO;
txtDireccion.Caption := txtDireccion.Caption + #13#10 + 'Persona contacto: ' + FContrato.PERS_CONTACTO_ENVIO;
txtDireccion.Caption := txtDireccion.Caption + #13#10 + 'Teléfono: ' + FContrato.TLFS_ENVIO;
if (actOtro.Checked) then
begin
txtDireccion.Enabled := True;
bModificar.Enabled := True;
cbLista.Enabled := False;
cbLista.Text := '';
cbListaDireccionesCliente.Enabled := False;
cbListaDireccionesCliente.Text := '';
end
else begin
if (actListaCliente.Checked) then
begin
cbListaDireccionesCliente.Enabled := True;
cbListaDireccionesCliente.DroppedDown := True;
cbLista.Enabled := False;
cbLista.Text := '';
txtDireccion.Enabled := False;
bModificar.Enabled := False;
end
else begin
cbLista.Enabled := True;
cbLista.DroppedDown := True;
cbListaDireccionesCliente.Enabled := False;
cbListaDireccionesCliente.Text := '';
txtDireccion.Enabled := False;
bModificar.Enabled := False;
end;
end;
end;
end;
procedure TfrViewDireccionEntregaContratoCli.SetContratoCliente(
const Value: IBizContratoCliente);
begin
cbLista.Properties.OnValidate := NIL;
cbListaDireccionesCliente.Properties.OnValidate := NIL;
dsContrato.DataTable := nil;
FContrato := Value;
RecuperarClienteAsociado;
if Assigned(FDireccionesCliente) then
begin
dsDireccionesCliente.DataTable := FDireccionesCliente.DataTable;
cbListaDireccionesCliente.Properties.OnValidate := cbListaDireccionesClientePropertiesValidate;
end;
cbLista.Properties.OnValidate := cbListaPropertiesValidate;
dsContrato.DataTable := FContrato.DataTable;
if (FContrato.ID_DIRECCION_ENVIO < 1) then
actOtro.Checked := True
else
actListaCliente.Checked := True;
RefrescarDireccion;
end;
procedure TfrViewDireccionEntregaContratoCli.SetReadOnly(Value: Boolean);
begin
inherited;
if ReadOnly then
begin
rdxDestino1.Enabled := False;
rdxDestinoCliente.Enabled := False;
rdxDestino2.Enabled := False;
end;
end;
procedure TfrViewDireccionEntregaContratoCli.txtDireccionDblClick(
Sender: TObject);
begin
inherited;
actOtro.Execute;
end;
end.

229
Source/Modulos/Contratos de cliente/Views/uViewDireccionEntregaContratoCliente.dfm
View File

@ -1,229 +0,0 @@
inherited frViewDireccionEntregaContratoCliente: TfrViewDireccionEntregaContratoCliente
Width = 337
Height = 129
ExplicitWidth = 337
ExplicitHeight = 129
object dxLayoutControl1: TdxLayoutControl
Left = 0
Top = 0
Width = 337
Height = 129
Align = alClient
ParentBackground = True
TabOrder = 0
TabStop = False
AutoContentSizes = [acsWidth, acsHeight]
object eCalle: TcxDBTextEdit
Left = 64
Top = 10
DataBinding.DataField = 'CALLE'
DataBinding.DataSource = dsPedido
Style.BorderColor = clWindowFrame
Style.BorderStyle = ebs3D
Style.HotTrack = False
Style.LookAndFeel.Kind = lfStandard
Style.LookAndFeel.NativeStyle = True
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.Kind = lfStandard
StyleDisabled.LookAndFeel.NativeStyle = True
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.Kind = lfStandard
StyleFocused.LookAndFeel.NativeStyle = True
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.Kind = lfStandard
StyleHot.LookAndFeel.NativeStyle = True
StyleHot.LookAndFeel.SkinName = ''
TabOrder = 0
Width = 263
end
object ePoblacion: TcxDBTextEdit
Left = 64
Top = 37
DataBinding.DataField = 'POBLACION'
DataBinding.DataSource = dsPedido
Style.BorderColor = clWindowFrame
Style.BorderStyle = ebs3D
Style.HotTrack = False
Style.LookAndFeel.Kind = lfStandard
Style.LookAndFeel.NativeStyle = True
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.Kind = lfStandard
StyleDisabled.LookAndFeel.NativeStyle = True
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.Kind = lfStandard
StyleFocused.LookAndFeel.NativeStyle = True
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.Kind = lfStandard
StyleHot.LookAndFeel.NativeStyle = True
StyleHot.LookAndFeel.SkinName = ''
TabOrder = 1
Width = 162
end
object eProvincia: TcxDBTextEdit
Left = 64
Top = 64
DataBinding.DataField = 'PROVINCIA'
DataBinding.DataSource = dsPedido
Style.BorderColor = clWindowFrame
Style.BorderStyle = ebs3D
Style.HotTrack = False
Style.LookAndFeel.Kind = lfStandard
Style.LookAndFeel.NativeStyle = True
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.Kind = lfStandard
StyleDisabled.LookAndFeel.NativeStyle = True
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.Kind = lfStandard
StyleFocused.LookAndFeel.NativeStyle = True
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.Kind = lfStandard
StyleHot.LookAndFeel.NativeStyle = True
StyleHot.LookAndFeel.SkinName = ''
TabOrder = 3
Width = 263
end
object eCodigoPostal: TcxDBTextEdit
Left = 262
Top = 37
DataBinding.DataField = 'CODIGO_POSTAL'
DataBinding.DataSource = dsPedido
Style.BorderColor = clWindowFrame
Style.BorderStyle = ebs3D
Style.HotTrack = False
Style.LookAndFeel.Kind = lfStandard
Style.LookAndFeel.NativeStyle = True
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.Kind = lfStandard
StyleDisabled.LookAndFeel.NativeStyle = True
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.Kind = lfStandard
StyleFocused.LookAndFeel.NativeStyle = True
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.Kind = lfStandard
StyleHot.LookAndFeel.NativeStyle = True
StyleHot.LookAndFeel.SkinName = ''
TabOrder = 2
Width = 65
end
object eTlfTrabajo: TcxDBTextEdit
Left = 205
Top = 91
DataBinding.DataField = 'TELEFONO'
DataBinding.DataSource = dsPedido
Style.BorderColor = clWindowFrame
Style.BorderStyle = ebs3D
Style.HotTrack = False
Style.LookAndFeel.Kind = lfStandard
Style.LookAndFeel.NativeStyle = True
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.Kind = lfStandard
StyleDisabled.LookAndFeel.NativeStyle = True
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.Kind = lfStandard
StyleFocused.LookAndFeel.NativeStyle = True
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.Kind = lfStandard
StyleHot.LookAndFeel.NativeStyle = True
StyleHot.LookAndFeel.SkinName = ''
TabOrder = 5
Width = 122
end
object ePersonaContacto: TcxDBTextEdit
Left = 64
Top = 91
DataBinding.DataField = 'PERSONA_CONTACTO'
DataBinding.DataSource = dsPedido
Style.BorderColor = clWindowFrame
Style.BorderStyle = ebs3D
Style.Color = clWindow
Style.HotTrack = False
Style.LookAndFeel.Kind = lfStandard
Style.LookAndFeel.NativeStyle = True
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.Kind = lfStandard
StyleDisabled.LookAndFeel.NativeStyle = True
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.Kind = lfStandard
StyleFocused.LookAndFeel.NativeStyle = True
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.Kind = lfStandard
StyleHot.LookAndFeel.NativeStyle = True
StyleHot.LookAndFeel.SkinName = ''
TabOrder = 4
Width = 84
end
object dxLayoutGroup1: TdxLayoutGroup
ShowCaption = False
Hidden = True
ShowBorder = False
object dxLayoutControl1Item1: TdxLayoutItem
Caption = 'Calle:'
Control = eCalle
ControlOptions.ShowBorder = False
end
object dxLayoutControl1Group3: TdxLayoutGroup
ShowCaption = False
Hidden = True
ShowBorder = False
object dxLayoutControl1Group1: TdxLayoutGroup
ShowCaption = False
Hidden = True
ShowBorder = False
object dxLayoutControl1Group5: TdxLayoutGroup
ShowCaption = False
Hidden = True
LayoutDirection = ldHorizontal
ShowBorder = False
object dxLayoutControl1Item2: TdxLayoutItem
AutoAligns = [aaVertical]
AlignHorz = ahClient
Caption = 'Poblaci'#243'n:'
Control = ePoblacion
ControlOptions.ShowBorder = False
end
object dxLayoutControl1Item4: TdxLayoutItem
AutoAligns = [aaVertical]
AlignHorz = ahRight
Caption = 'C.P.:'
Control = eCodigoPostal
ControlOptions.ShowBorder = False
end
end
object dxLayoutControl1Item3: TdxLayoutItem
Caption = 'Provincia:'
Control = eProvincia
ControlOptions.ShowBorder = False
end
end
object dxLayoutControl1Group4: TdxLayoutGroup
ShowCaption = False
Hidden = True
LayoutDirection = ldHorizontal
ShowBorder = False
object dxLayoutControl1Item6: TdxLayoutItem
AutoAligns = [aaVertical]
AlignHorz = ahClient
Caption = 'Contacto:'
Control = ePersonaContacto
ControlOptions.ShowBorder = False
end
object dxLayoutControl1Item5: TdxLayoutItem
AutoAligns = [aaVertical]
AlignHorz = ahRight
Caption = 'Tel'#233'fono:'
Control = eTlfTrabajo
ControlOptions.ShowBorder = False
end
end
end
end
end
object dsPedido: TDADataSource
Left = 8
Top = 8
end
object dsAlmacenes: TDADataSource
Left = 8
Top = 40
end
end

143
Source/Modulos/Contratos de cliente/Views/uViewDireccionEntregaContratoCliente.pas
View File

@ -1,143 +0,0 @@
unit uViewDireccionEntregaContratoCliente;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, uViewBase, uBizContratosCliente, cxGraphics, dxLayoutControl, cxMemo,
cxContainer, cxEdit, cxTextEdit, cxMaskEdit, cxDropDownEdit, cxLookupEdit,
cxDBLookupEdit, cxDBLookupComboBox, StdCtrls, cxControls, DB, uDADataTable,
ActnList, uContratosClienteController, Buttons, cxDBEdit, uDAInterfaces;
type
IViewDireccionEntregaContratoCliente = interface(IViewBase)
['{7467855C-066F-4A60-B88F-2837C8050B1E}']
function GetContratoCliente: IBizContratoCliente;
procedure SetContratoCliente(const Value: IBizContratoCliente);
property ContratoCliente: IBizContratoCliente read GetContratoCliente write SetContratoCliente;
end;
TfrViewDireccionEntregaContratoCliente = class(TfrViewBase, IViewDireccionEntregaContratoCliente)
dxLayoutControl1: TdxLayoutControl;
dxLayoutGroup1: TdxLayoutGroup;
dsPedido: TDADataSource;
dsAlmacenes: TDADataSource;
dxLayoutControl1Item1: TdxLayoutItem;
eCalle: TcxDBTextEdit;
dxLayoutControl1Item2: TdxLayoutItem;
ePoblacion: TcxDBTextEdit;
dxLayoutControl1Item3: TdxLayoutItem;
eProvincia: TcxDBTextEdit;
dxLayoutControl1Item4: TdxLayoutItem;
eCodigoPostal: TcxDBTextEdit;
dxLayoutControl1Item5: TdxLayoutItem;
eTlfTrabajo: TcxDBTextEdit;
dxLayoutControl1Item6: TdxLayoutItem;
ePersonaContacto: TcxDBTextEdit;
dxLayoutControl1Group3: TdxLayoutGroup;
dxLayoutControl1Group1: TdxLayoutGroup;
dxLayoutControl1Group5: TdxLayoutGroup;
dxLayoutControl1Group4: TdxLayoutGroup;
procedure cbListaPropertiesValidate(Sender: TObject; var DisplayValue: Variant; var ErrorText: TCaption; var Error: Boolean);
protected
// FAlmacenesController : IAlmacenesController;
// FAlmacenes: IBizAlmacen;
FPedido : IBizContratoCliente;
FController : IContratosClienteController;
function GetContratoCliente: IBizContratoCliente;
procedure SetContratoCliente(const Value: IBizContratoCliente);
procedure RefrescarDireccion;
public
property ContratoCliente: IBizContratoCliente read GetContratoCliente write SetContratoCliente;
constructor Create(AOwner: TComponent); override;
destructor Destroy; override;
end;
implementation
{$R *.dfm}
uses
uEditorRegistryUtils;
procedure TfrViewDireccionEntregaContratoCliente.cbListaPropertiesValidate(
Sender: TObject; var DisplayValue: Variant; var ErrorText: TCaption;
var Error: Boolean);
begin
{ if Assigned(FPedido) and (FPedido.ID_ALMACEN <> FAlmacenes.ID) then
begin
FPedido.Edit;
FPedido.CALLE := FAlmacenes.CALLE;
FPedido.POBLACION := FAlmacenes.POBLACION;
FPedido.POBLACION := FAlmacenes.POBLACION;
FPedido.PROVINCIA := FAlmacenes.PROVINCIA;
FPedido.CODIGO_POSTAL := FAlmacenes.CODIGO_POSTAL;
FPedido.PERSONA_CONTACTO := FAlmacenes.PERSONA_CONTACTO;
FPedido.TELEFONO := FAlmacenes.TELEFONO;
RefrescarDireccion;
end;}
end;
constructor TfrViewDireccionEntregaContratoCliente.Create(AOwner: TComponent);
begin
inherited;
FPedido := NIL;
{ FController := TContratosClienteController.Create;
FAlmacenesController := TAlmacenesController.Create;
FAlmacenes := FAlmacenesController.BuscarTodos;
FAlmacenes.DataTable.Active := True;
dsAlmacenes.DataTable := FAlmacenes.DataTable;}
end;
destructor TfrViewDireccionEntregaContratoCliente.Destroy;
begin
{ cbLista.Properties.OnValidate := Nil;
FAlmacenesController := Nil;
FAlmacenes := Nil;
FController := NIL;
}
FPedido := NIL;
inherited;
end;
function TfrViewDireccionEntregaContratoCliente.GetContratoCliente: IBizContratoCliente;
begin
Result := FPedido;
end;
procedure TfrViewDireccionEntregaContratoCliente.RefrescarDireccion;
begin
{ memDireccion.Lines.Clear;
if Assigned(FPedido) then
begin
memDireccion.Lines.Add(FPedido.CALLE);
memDireccion.Lines.Add(FPedido.CODIGO_POSTAL + ' ' + FPedido.POBLACION);
memDireccion.Lines.Add(FPedido.PROVINCIA);
end;}
end;
procedure TfrViewDireccionEntregaContratoCliente.SetContratoCliente(
const Value: IBizContratoCliente);
begin
FPedido := Value;
if Assigned(FPedido) then
dsPedido.DataTable := FPedido.DataTable
else
dsPedido.DataTable := NIL;
{ cbLista.Properties.OnValidate := NIL;
dsPedido.DataTable := nil;
FPedido := Value;
if not FPedido.EsNuevo then
RefrescarDireccion;
// Esto al final para que no salten los eventos del cxComboBox
dsPedido.DataTable := FPedido.DataTable;
cbLista.Properties.OnValidate := cbListaPropertiesValidate;}
end;
end.

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

@ -304,6 +304,12 @@ begin
AAlbaranesController.RecuperarCliente(AListaAlbaranes);
AListaAlbaranes.Cliente.DataTable.Active := True;
AFacturas.Cliente := AListaAlbaranes.Cliente;
//Establecemos la forma de pago establecido en la ficha del cliente
if AFacturas.Cliente.ID_FORMA_PAGO > 0 then
AFacturas.ID_FORMA_PAGO := AFacturas.Cliente.ID_FORMA_PAGO;
// if AFacturas.Cliente.ID_TIPO_IVA > 0 then
// AFacturas.ID_TIPO_IVA := AFacturas.Cliente.ID_TIPO_IVA;
//En este caso no queremos el descuento general del cliente asociado a su ficha, ya que partimos del valor que tengan las olbaranes
bEnEdicion := (AFacturas.DataTable.State in dsEditModes);
if not bEnEdicion then

12
Source/Modulos/Facturas de cliente/Model/uBizFacturasCliente.pas
View File

@ -101,7 +101,7 @@ implementation
{$INCLUDE ..\..\..\FactuGES.inc}
uses
SysUtils, uDataTableUtils, DB, uDateUtils, DateUtils, uDataModuleUsuarios,
SysUtils, uDataTableUtils, DB, uDateUtils, DateUtils, uDataModuleUsuarios, uNumUtils,
Variants, cxDateUtils, uTiposIVAController, uBizTiposIVA, uFactuGES_App, uBizEmpresasTiendas;
{ TBizFacturaCliente }
@ -140,7 +140,7 @@ procedure TBizFacturaCliente.CalcularBaseImponible;
begin
if not Self.DataTable.Editing then
Edit;
IMPORTE_DESCUENTO := IMPORTE_NETO * (DESCUENTO/100);
IMPORTE_DESCUENTO := roundCurrency(IMPORTE_NETO * (DESCUENTO/100));
BASE_IMPONIBLE := IMPORTE_NETO - IMPORTE_DESCUENTO + IMPORTE_PORTE;
end;
@ -148,7 +148,7 @@ procedure TBizFacturaCliente.CalcularDescuento;
begin
if not Self.DataTable.Editing then
Edit;
IMPORTE_DESCUENTO := (DESCUENTO / 100) * BASE_IMPONIBLE;
IMPORTE_DESCUENTO := roundCurrency((DESCUENTO / 100) * BASE_IMPONIBLE);
end;
procedure TBizFacturaCliente.CalcularImporteTotal;
@ -174,21 +174,21 @@ procedure TBizFacturaCliente.CalcularIVA;
begin
if not Self.DataTable.Editing then
Edit;
IMPORTE_IVA := (IVA / 100) * BASE_IMPONIBLE;
IMPORTE_IVA := roundCurrency((IVA / 100) * BASE_IMPONIBLE);
end;
procedure TBizFacturaCliente.CalcularRE;
begin
if not Self.DataTable.Editing then
Edit;
IMPORTE_RE := (RE / 100) * BASE_IMPONIBLE;
IMPORTE_RE := roundCurrency((RE / 100) * BASE_IMPONIBLE);
end;
procedure TBizFacturaCliente.CalcularRetencion;
begin
if not Self.DataTable.Editing then
Edit;
IMPORTE_RETENCION := (RETENCION / 100) * BASE_IMPONIBLE;
IMPORTE_RETENCION := roundCurrency((RETENCION / 100) * BASE_IMPONIBLE);
end;
constructor TBizFacturaCliente.Create(aDataTable: TDADataTable);

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

@ -200,16 +200,12 @@ inherited fEditorFacturasCliente: TfEditorFacturasCliente
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitWidth = 144
Width = 144
end
inherited edtFechaFinFiltro: TcxDateEdit
Left = 301
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitLeft = 301
ExplicitWidth = 263
Width = 263
end

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

@ -277,8 +277,6 @@ begin
Facturas.DataTable.Active := True;
ViewGrid.GotoFirst;
//Para que coja el ancho automático
actAnchoAuto.Execute;
end;
function TfEditorFacturasCliente.GetController: IFacturasClienteController;

13
Source/Modulos/Facturas de proveedor/Model/uBizFacturasProveedor.pas
View File

@ -113,7 +113,7 @@ implementation
{$INCLUDE ..\..\..\FactuGES.inc}
uses
SysUtils, uDataTableUtils, DB, uDateUtils, DateUtils, uDataModuleUsuarios,
SysUtils, uDataTableUtils, DB, uDateUtils, DateUtils, uDataModuleUsuarios, uNumUtils,
Variants, cxDateUtils, uTiposIVAController, uBizTiposIVA, uFactuGES_App, uBizEmpresasTiendas;
{ TBizFacturaProveedor }
@ -152,7 +152,7 @@ procedure TBizFacturaProveedor.CalcularBaseImponible;
begin
if not Self.DataTable.Editing then
Edit;
IMPORTE_DESCUENTO := IMPORTE_NETO * (DESCUENTO/100);
IMPORTE_DESCUENTO := roundCurrency(IMPORTE_NETO * (DESCUENTO/100));
BASE_IMPONIBLE := IMPORTE_NETO - IMPORTE_DESCUENTO; // + IMPORTE_PORTE; ya no se tiene en cuenta porque se desglosa por artículo
end;
@ -160,7 +160,7 @@ procedure TBizFacturaProveedor.CalcularDescuento;
begin
if not Self.DataTable.Editing then
Edit;
IMPORTE_DESCUENTO := (DESCUENTO / 100) * BASE_IMPONIBLE;
IMPORTE_DESCUENTO := roundCurrency((DESCUENTO / 100) * BASE_IMPONIBLE);
end;
procedure TBizFacturaProveedor.CalcularImporteTotal;
@ -176,6 +176,7 @@ begin
if not Self.DataTable.Editing then
Edit;
IMPORTE_TOTAL := BASE_IMPONIBLE + IMPORTE_IVA - IMPORTE_IRPF + IMPORTE_RE;
// IMPORTE_TOTAL := roundCurrency(BASE_IMPONIBLE + IMPORTE_IVA - IMPORTE_IRPF + IMPORTE_RE);
finally
DataTable.Fields.FieldEventsDisabled := False;
DataTable.EnableControls;
@ -186,21 +187,21 @@ procedure TBizFacturaProveedor.CalcularIRPF;
begin
if not Self.DataTable.Editing then
Edit;
IMPORTE_IRPF := (IRPF / 100) * BASE_IMPONIBLE;
IMPORTE_IRPF := roundCurrency((IRPF / 100) * BASE_IMPONIBLE);
end;
procedure TBizFacturaProveedor.CalcularIVA;
begin
if not Self.DataTable.Editing then
Edit;
IMPORTE_IVA := (IVA / 100) * BASE_IMPONIBLE;
IMPORTE_IVA := roundCurrency((IVA / 100) * BASE_IMPONIBLE);
end;
procedure TBizFacturaProveedor.CalcularRE;
begin
if not Self.DataTable.Editing then
Edit;
IMPORTE_RE := (RE / 100) * BASE_IMPONIBLE;
IMPORTE_RE := roundCurrency((RE / 100) * BASE_IMPONIBLE);
end;
constructor TBizFacturaProveedor.Create(aDataTable: TDADataTable);

6
Source/Modulos/Pedidos a proveedor/Model/uBizPedidosProveedor.pas
View File

@ -91,7 +91,7 @@ type
implementation
uses
SysUtils, Variants, uDataModuleConfiguracion, uDataModuleUsuarios,
SysUtils, Variants, uDataModuleConfiguracion, uDataModuleUsuarios, uNumUtils,
uDataTableUtils, DateUtils, uDateUtils, DB, uFactuGES_App, uBizEmpresasTiendas;
{ TBizPedidoProveedor }
@ -100,7 +100,7 @@ procedure TBizPedidoProveedor.CalcularBaseImponible;
begin
if not Self.DataTable.Editing then
Edit;
IMPORTE_DESCUENTO := IMPORTE_NETO * (DESCUENTO/100);
IMPORTE_DESCUENTO := roundCurrency(IMPORTE_NETO * (DESCUENTO/100));
BASE_IMPONIBLE := IMPORTE_NETO - IMPORTE_DESCUENTO; //+ IMPORTE_PORTE; ya no se tiene en cuenta porque se desglosa por artículo
end;
@ -125,7 +125,7 @@ procedure TBizPedidoProveedor.CalcularIVA;
begin
if not Self.DataTable.Editing then
Edit;
IMPORTE_IVA := (IVA / 100) * (BASE_IMPONIBLE);
IMPORTE_IVA := roundCurrency((IVA / 100) * (BASE_IMPONIBLE));
end;
constructor TBizPedidoProveedor.Create(aDataTable: TDADataTable);

17
Source/Modulos/Pedidos a proveedor/Views/PedidosProveedor_view.dproj
View File

@ -1,4 +1,5 @@
<Project xmlns="http://schemas.microsoft.com/developer/msbuild/2003">
<?xml version="1.0" encoding="utf-8"?>
<Project xmlns="http://schemas.microsoft.com/developer/msbuild/2003">
<PropertyGroup>
<ProjectGuid>{9e558626-cf49-4cff-a178-e12c186758ac}</ProjectGuid>
<MainSource>PedidosProveedor_view.dpk</MainSource>
@ -48,13 +49,13 @@
<DelphiCompile Include="PedidosProveedor_view.dpk">
<MainSource>MainSource</MainSource>
</DelphiCompile>
<DCCReference Include="..\Almacenes_controller.dcp" />
<DCCReference Include="..\Almacenes_model.dcp" />
<DCCReference Include="..\Articulos_view.dcp" />
<DCCReference Include="..\Contactos_view.dcp" />
<DCCReference Include="..\GUIBase.dcp" />
<DCCReference Include="..\PedidosProveedor_controller.dcp" />
<DCCReference Include="..\PedidosProveedor_model.dcp" />
<DCCReference Include="Almacenes_controller.dcp" />
<DCCReference Include="Almacenes_model.dcp" />
<DCCReference Include="Articulos_view.dcp" />
<DCCReference Include="Contactos_view.dcp" />
<DCCReference Include="GUIBase.dcp" />
<DCCReference Include="PedidosProveedor_controller.dcp" />
<DCCReference Include="PedidosProveedor_model.dcp" />
<DCCReference Include="uEditorDireccionEntregaPedidoProveedor.pas">
<Form>fEditorDireccionEntregaPedidoProveedor </Form>
<DesignClass>TfEditorDireccionEntregaPedidoProveedor</DesignClass>

8
Source/Modulos/Presupuestos de cliente/Model/uBizPresupuestosCliente.pas
View File

@ -102,7 +102,7 @@ implementation
uses
uDialogUtils, Windows, SysUtils, Variants, uDataModuleConfiguracion, uDataModuleUsuarios, Dialogs,
uDataTableUtils, DateUtils, uDateUtils, DB, uFactuGES_App,
uDataTableUtils, DateUtils, uDateUtils, DB, uFactuGES_App, uNumUtils,
uTiposIVAController, uBizTiposIVA, uVendedoresController;
{ TBizPresupuestoCliente }
@ -136,7 +136,7 @@ procedure TBizPresupuestoCliente.CalcularBaseImponible;
begin
if not Self.DataTable.Editing then
Edit;
IMPORTE_DESCUENTO := IMPORTE_NETO * (DESCUENTO/100);
IMPORTE_DESCUENTO := roundCurrency(IMPORTE_NETO * (DESCUENTO/100));
BASE_IMPONIBLE := IMPORTE_NETO - IMPORTE_DESCUENTO + IMPORTE_PORTE;
end;
@ -162,7 +162,7 @@ procedure TBizPresupuestoCliente.CalcularIVA;
begin
if not Self.DataTable.Editing then
Edit;
IMPORTE_IVA := (IVA / 100) * (BASE_IMPONIBLE);
IMPORTE_IVA := roundCurrency((IVA / 100) * (BASE_IMPONIBLE));
end;
procedure TBizPresupuestoCliente.CalcularPrecioPunto;
@ -175,7 +175,7 @@ procedure TBizPresupuestoCliente.CalcularRE;
begin
if not Self.DataTable.Editing then
Edit;
IMPORTE_RE := (RE / 100) * BASE_IMPONIBLE;
IMPORTE_RE := roundCurrency((RE / 100) * BASE_IMPONIBLE);
end;
constructor TBizPresupuestoCliente.Create(aDataTable: TDADataTable);

9
Source/Modulos/Relaciones/Albaranes de cliente - Facturas de cliente/uGenerarFacturasCliAlbCliUtils.dfm
View File

@ -3,6 +3,7 @@ object dmGenerarFacturasCli: TdmGenerarFacturasCli
Height = 176
Width = 254
object JsListaFacturasGeneradas: TJSDialog
DialogOptions = [doCommandLinks, doModal]
Glyph.Data = {
0A54504E474F626A65637489504E470D0A1A0A0000000D494844520000001C00
00001C0806000000720DDF940000000970485973000017120000171201679FD2
@ -65,11 +66,13 @@ object dmGenerarFacturasCli: TdmGenerarFacturasCli
Instruction.Icon = tdiCustom
CustomButtons = <
item
Caption = 'Continuar'
Value = 200
Caption = 'Ver la factura'
Value = 100
Cancel = True
Info.Strings = (
'Mostrar la factura que se ha creado')
end>
ButtonBar.Buttons = []
ButtonBar.Buttons = [cbOK]
ButtonBar.Cancel = cbOK
ButtonBar.UseCancel = False
MainIcon = tdiCustom

34
Source/Modulos/Relaciones/Albaranes de cliente - Facturas de cliente/uGenerarFacturasCliAlbCliUtils.pas
View File

@ -181,8 +181,13 @@ function GenerarFacturaCli(AAlbaran : IBizAlbaranCliente) : Boolean; overload;
var
AFacturasNuevas : IBizFacturaCliente;
i: Integer;
Cadena1, Cadena2: String;
ARespuesta : Integer;
begin
Result := False;
Cadena1:= '';
Cadena2:= '';
if not Assigned(AAlbaranesClienteController) then
Inicializar;
@ -200,9 +205,33 @@ begin
if AFacturasNuevas.DataTable.RecordCount = 1 then
begin
if AFacturasNuevas.TIPO = CTE_TIPO_FACTURA then
ShowInfoMessage('La factura se ha dado de alta con el código ' + AFacturasNuevas.REFERENCIA)
begin
Cadena1 := 'Se ha generado la factura';
Cadena2 := Format('Se ha generado correctamente la factura %s a partir del albarán de cliente' + #10#13, [AFacturasNuevas.REFERENCIA])
end
else
ShowInfoMessage('El abono se ha dado de alta con el código ' + AFacturasNuevas.REFERENCIA);
begin
Cadena1 := 'Se ha generado la abono';
Cadena2 := Format('Se ha generado correctamente el abono %s a partir del albarán de cliente' + #10#13, [AFacturasNuevas.REFERENCIA])
end;
with dmGenerarFacturasCli.JsListaFacturasGeneradas do
begin
Instruction.Text := Cadena1;
Content.Clear;
Content.Add(Cadena2);
Execute;
ARespuesta := CustomButtonResult;
case ARespuesta of
100 : begin
// Ver el albarán
AFacturasClienteController.Ver(AFacturasNuevas);
end;
200 : // Continuar;
end;
end;
end
else begin
with dmGenerarFacturasCli.JsListaFacturasGeneradas.Content do
@ -216,6 +245,7 @@ begin
AFacturasNuevas.DataTable.Prior;
end;
end;
dmGenerarFacturasCli.JsListaFacturasGeneradas.CustomButtons.Delete(0);
dmGenerarFacturasCli.JsListaFacturasGeneradas.Execute;
end;
end;

12
Source/Modulos/Relaciones/Contratos de cliente - Albaranes de cliente/uGenerarAlbaranesCliUtils.pas
View File

@ -49,12 +49,12 @@ begin
// El albarán tiene que venir ya abierto y posicionado donde hay que copiar
AAlbaran.ID_CLIENTE := AContrato.ID_CLIENTE;
AAlbaran.ID_PEDIDO := AContrato.ID;
AAlbaran.CALLE := AContrato.CALLE;
AAlbaran.CODIGO_POSTAL := AContrato.CODIGO_POSTAL;
AAlbaran.POBLACION := AContrato.POBLACION;
AAlbaran.PROVINCIA := AContrato.PROVINCIA;
AAlbaran.PERSONA_CONTACTO := AContrato.PERSONA_CONTACTO;
AAlbaran.TELEFONO := AContrato.TELEFONO;
AAlbaran.CALLE := AContrato.CALLE_ENVIO;
AAlbaran.CODIGO_POSTAL := AContrato.CODIGO_POSTAL_ENVIO;
AAlbaran.POBLACION := AContrato.POBLACION_ENVIO;
AAlbaran.PROVINCIA := AContrato.PROVINCIA_ENVIO;
AAlbaran.PERSONA_CONTACTO := AContrato.PERS_CONTACTO_ENVIO;
AAlbaran.TELEFONO := AContrato.TLFS_ENVIO;
AAlbaran.MOVIL := AContrato.MOVIL;
AAlbaran.IMPORTE_NETO := AContrato.IMPORTE_NETO;
AAlbaran.IMPORTE_PORTE := AContrato.IMPORTE_PORTE;

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

@ -207,7 +207,6 @@ begin
//Sustituir por if de guardar
if AFacturasClienteController.Guardar(AFactura) then
begin
// Asocio el contrato al presupuesto
with dmGenerarFacturasCli.JsListaFacturasGenerados do
begin
Instruction.Text := 'Se ha generado la factura';

BIN
Source/Modulos/Tarifas/Controller/Tarifas_controller.dcu
View File

Binary file not shown.

10
Source/Servidor/FactuGES_Server.dpr
View File

@ -127,8 +127,6 @@ uses
schEmpresasClient_Intf in '..\ApplicationBase\Empresas\Model\schEmpresasClient_Intf.pas',
schEmpresasServer_Intf in '..\ApplicationBase\Empresas\Model\schEmpresasServer_Intf.pas',
uNumUtils in '..\Base\Utiles\uNumUtils.pas',
schContactosClient_Intf in '..\Modulos\Contactos\Model\schContactosClient_Intf.pas',
schContactosServer_Intf in '..\Modulos\Contactos\Model\schContactosServer_Intf.pas',
schFacturasClienteClient_Intf in '..\Modulos\Facturas de cliente\Model\schFacturasClienteClient_Intf.pas',
schFacturasClienteServer_Intf in '..\Modulos\Facturas de cliente\Model\schFacturasClienteServer_Intf.pas',
schRecibosClienteClient_Intf in '..\Modulos\Recibos de cliente\Model\schRecibosClienteClient_Intf.pas',
@ -136,8 +134,6 @@ uses
uBizReferenciasServer in '..\Modulos\Referencias\Model\uBizReferenciasServer.pas',
schPresupuestosClienteClient_Intf in '..\Modulos\Presupuestos de cliente\Model\schPresupuestosClienteClient_Intf.pas',
schPresupuestosClienteServer_Intf in '..\Modulos\Presupuestos de cliente\Model\schPresupuestosClienteServer_Intf.pas',
schContratosClienteClient_Intf in '..\Modulos\Contratos de cliente\Model\schContratosClienteClient_Intf.pas',
schContratosClienteServer_Intf in '..\Modulos\Contratos de cliente\Model\schContratosClienteServer_Intf.pas',
schFacturasProveedorClient_Intf in '..\Modulos\Facturas de proveedor\Model\schFacturasProveedorClient_Intf.pas',
schFacturasProveedorServer_Intf in '..\Modulos\Facturas de proveedor\Model\schFacturasProveedorServer_Intf.pas',
srvTarifas_Impl in '..\Modulos\Tarifas\Servidor\srvTarifas_Impl.pas' {srvTarifas: TDataAbstractService},
@ -146,7 +142,11 @@ uses
schArticulosClient_Intf in '..\Modulos\Articulos\Model\schArticulosClient_Intf.pas',
schArticulosServer_Intf in '..\Modulos\Articulos\Model\schArticulosServer_Intf.pas',
schAlbaranesClienteClient_Intf in '..\Modulos\Albaranes de cliente\Model\schAlbaranesClienteClient_Intf.pas',
schAlbaranesClienteServer_Intf in '..\Modulos\Albaranes de cliente\Model\schAlbaranesClienteServer_Intf.pas';
schAlbaranesClienteServer_Intf in '..\Modulos\Albaranes de cliente\Model\schAlbaranesClienteServer_Intf.pas',
schContratosClienteClient_Intf in '..\Modulos\Contratos de cliente\Model\schContratosClienteClient_Intf.pas',
schContratosClienteServer_Intf in '..\Modulos\Contratos de cliente\Model\schContratosClienteServer_Intf.pas',
schContactosClient_Intf in '..\Modulos\Contactos\Model\schContactosClient_Intf.pas',
schContactosServer_Intf in '..\Modulos\Contactos\Model\schContactosServer_Intf.pas';
{$R *.res}
{$R ..\Servicios\RODLFile.res}

2
Source/Servidor/FactuGES_Server.dproj
View File

@ -28,7 +28,7 @@
<Borland.Personality>Delphi.Personality</Borland.Personality>
<Borland.ProjectType/>
<BorlandProject>
<BorlandProject><Delphi.Personality><Parameters><Parameters Name="UseLauncher">False</Parameters><Parameters Name="LoadAllSymbols">True</Parameters><Parameters Name="LoadUnspecifiedSymbols">False</Parameters></Parameters><VersionInfo><VersionInfo Name="IncludeVerInfo">True</VersionInfo><VersionInfo Name="AutoIncBuild">False</VersionInfo><VersionInfo Name="MajorVer">2</VersionInfo><VersionInfo Name="MinorVer">8</VersionInfo><VersionInfo Name="Release">4</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.8.4.0</VersionInfoKeys><VersionInfoKeys Name="InternalName"></VersionInfoKeys><VersionInfoKeys Name="LegalCopyright"></VersionInfoKeys><VersionInfoKeys Name="LegalTrademarks"></VersionInfoKeys><VersionInfoKeys Name="OriginalFilename"></VersionInfoKeys><VersionInfoKeys Name="ProductName">FactuGES (Servidor)</VersionInfoKeys><VersionInfoKeys Name="ProductVersion">2.8.4.0</VersionInfoKeys><VersionInfoKeys Name="Comments"></VersionInfoKeys><VersionInfoKeys Name="CompileDate">miércoles, 24 de junio de 2020 18:24</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">9</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.9.0.0</VersionInfoKeys><VersionInfoKeys Name="InternalName"></VersionInfoKeys><VersionInfoKeys Name="LegalCopyright"></VersionInfoKeys><VersionInfoKeys Name="LegalTrademarks"></VersionInfoKeys><VersionInfoKeys Name="OriginalFilename"></VersionInfoKeys><VersionInfoKeys Name="ProductName">FactuGES (Servidor)</VersionInfoKeys><VersionInfoKeys Name="ProductVersion">2.9.0.0</VersionInfoKeys><VersionInfoKeys Name="Comments"></VersionInfoKeys><VersionInfoKeys Name="CompileDate">jueves, 10 de diciembre de 2020 16:23</VersionInfoKeys></VersionInfoKeys><Excluded_Packages>
<Excluded_Packages Name="C:\Documents and Settings\All Users\Documentos\RAD Studio\5.0\Bpl\dxPScxScheduler2LnkD11.bpl">File C:\Documents and Settings\All Users\Documentos\RAD Studio\5.0\Bpl\dxPScxScheduler2LnkD11.bpl not found</Excluded_Packages>
</Excluded_Packages><Source><Source Name="MainSource">FactuGES_Server.dpr</Source></Source></Delphi.Personality></BorlandProject></BorlandProject>
</ProjectExtensions>

BIN
Source/Servidor/FactuGES_Server.res
View File

Binary file not shown.