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.Personality>Delphi.Personality</Borland.Personality>
<Borland.ProjectType>VCLApplication</Borland.ProjectType> <Borland.ProjectType>VCLApplication</Borland.ProjectType>
<BorlandProject> <BorlandProject>
<BorlandProject><Delphi.Personality><Parameters><Parameters Name="UseLauncher">False</Parameters><Parameters Name="LoadAllSymbols">True</Parameters><Parameters Name="LoadUnspecifiedSymbols">False</Parameters></Parameters><Language><Language Name="RootDir">C:\Archivos de programa\Borland\Delphi7\Bin\</Language></Language><VersionInfo><VersionInfo Name="IncludeVerInfo">True</VersionInfo><VersionInfo Name="AutoIncBuild">False</VersionInfo><VersionInfo Name="MajorVer">2</VersionInfo><VersionInfo Name="MinorVer">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 Name="C:\Documents and Settings\All Users\Documentos\RAD Studio\5.0\Bpl\dxPScxScheduler2LnkD11.bpl">File C:\Documents and Settings\All Users\Documentos\RAD Studio\5.0\Bpl\dxPScxScheduler2LnkD11.bpl not found</Excluded_Packages>
</Excluded_Packages><Source><Source Name="MainSource">FactuGES.dpr</Source></Source></Delphi.Personality><ModelSupport>False</ModelSupport></BorlandProject></BorlandProject> </Excluded_Packages><Source><Source Name="MainSource">FactuGES.dpr</Source></Source></Delphi.Personality><ModelSupport>False</ModelSupport></BorlandProject></BorlandProject>

BIN
Source/Cliente/FactuGES.res
View File

Binary file not shown.

56
Source/GUIBase/GUIBase.dproj
View File

@ -58,34 +58,34 @@
<DelphiCompile Include="GUIBase.dpk"> <DelphiCompile Include="GUIBase.dpk">
<MainSource>MainSource</MainSource> <MainSource>MainSource</MainSource>
</DelphiCompile> </DelphiCompile>
<DCCReference Include="..\Modulos\Tarifas\Views\Base.dcp" /> <DCCReference Include="C:\Documents and Settings\Usuario\Base.dcp" />
<DCCReference Include="..\Modulos\Tarifas\Views\ccpackD11.dcp" /> <DCCReference Include="C:\Documents and Settings\Usuario\ccpackD11.dcp" />
<DCCReference Include="..\Modulos\Tarifas\Views\cxDataD11.dcp" /> <DCCReference Include="C:\Documents and Settings\Usuario\cxDataD11.dcp" />
<DCCReference Include="..\Modulos\Tarifas\Views\cxEditorsD11.dcp" /> <DCCReference Include="C:\Documents and Settings\Usuario\cxEditorsD11.dcp" />
<DCCReference Include="..\Modulos\Tarifas\Views\cxExportD11.dcp" /> <DCCReference Include="C:\Documents and Settings\Usuario\cxExportD11.dcp" />
<DCCReference Include="..\Modulos\Tarifas\Views\cxLibraryD11.dcp" /> <DCCReference Include="C:\Documents and Settings\Usuario\cxLibraryD11.dcp" />
<DCCReference Include="..\Modulos\Tarifas\Views\dbrtl.dcp" /> <DCCReference Include="C:\Documents and Settings\Usuario\dbrtl.dcp" />
<DCCReference Include="..\Modulos\Tarifas\Views\dxGDIPlusD11.dcp" /> <DCCReference Include="C:\Documents and Settings\Usuario\dxGDIPlusD11.dcp" />
<DCCReference Include="..\Modulos\Tarifas\Views\dxLayoutControlD11.dcp" /> <DCCReference Include="C:\Documents and Settings\Usuario\dxLayoutControlD11.dcp" />
<DCCReference Include="..\Modulos\Tarifas\Views\dxPScxCommonD11.dcp" /> <DCCReference Include="C:\Documents and Settings\Usuario\dxPScxCommonD11.dcp" />
<DCCReference Include="..\Modulos\Tarifas\Views\dxPScxGrid6LnkD11.dcp" /> <DCCReference Include="C:\Documents and Settings\Usuario\dxPScxGrid6LnkD11.dcp" />
<DCCReference Include="..\Modulos\Tarifas\Views\dxThemeD11.dcp" /> <DCCReference Include="C:\Documents and Settings\Usuario\dxThemeD11.dcp" />
<DCCReference Include="..\Modulos\Tarifas\Views\frx11.dcp" /> <DCCReference Include="C:\Documents and Settings\Usuario\frx11.dcp" />
<DCCReference Include="..\Modulos\Tarifas\Views\frxe11.dcp" /> <DCCReference Include="C:\Documents and Settings\Usuario\frxe11.dcp" />
<DCCReference Include="..\Modulos\Tarifas\Views\fs11.dcp" /> <DCCReference Include="C:\Documents and Settings\Usuario\fs11.dcp" />
<DCCReference Include="..\Modulos\Tarifas\Views\JvAppFrmD11R.dcp" /> <DCCReference Include="C:\Documents and Settings\Usuario\JvAppFrmD11R.dcp" />
<DCCReference Include="..\Modulos\Tarifas\Views\JvCtrlsD11R.dcp" /> <DCCReference Include="C:\Documents and Settings\Usuario\JvCtrlsD11R.dcp" />
<DCCReference Include="..\Modulos\Tarifas\Views\JvGlobusD11R.dcp" /> <DCCReference Include="C:\Documents and Settings\Usuario\JvGlobusD11R.dcp" />
<DCCReference Include="..\Modulos\Tarifas\Views\PngComponentsD10.dcp" /> <DCCReference Include="C:\Documents and Settings\Usuario\PngComponentsD10.dcp" />
<DCCReference Include="..\Modulos\Tarifas\Views\PNG_D10.dcp" /> <DCCReference Include="C:\Documents and Settings\Usuario\PNG_D10.dcp" />
<DCCReference Include="..\Modulos\Tarifas\Views\rtl.dcp" /> <DCCReference Include="C:\Documents and Settings\Usuario\rtl.dcp" />
<DCCReference Include="..\Modulos\Tarifas\Views\tb2k_d10.dcp" /> <DCCReference Include="C:\Documents and Settings\Usuario\tb2k_d10.dcp" />
<DCCReference Include="..\Modulos\Tarifas\Views\tbx_d10.dcp" /> <DCCReference Include="C:\Documents and Settings\Usuario\tbx_d10.dcp" />
<DCCReference Include="..\Modulos\Tarifas\Views\vcl.dcp" /> <DCCReference Include="C:\Documents and Settings\Usuario\vcl.dcp" />
<DCCReference Include="..\Modulos\Tarifas\Views\vclactnband.dcp" /> <DCCReference Include="C:\Documents and Settings\Usuario\vclactnband.dcp" />
<DCCReference Include="..\Modulos\Tarifas\Views\vcldb.dcp" /> <DCCReference Include="C:\Documents and Settings\Usuario\vcldb.dcp" />
<DCCReference Include="..\Modulos\Tarifas\Views\vcljpg.dcp" /> <DCCReference Include="C:\Documents and Settings\Usuario\vcljpg.dcp" />
<DCCReference Include="..\Modulos\Tarifas\Views\vclx.dcp" /> <DCCReference Include="C:\Documents and Settings\Usuario\vclx.dcp" />
<DCCReference Include="uDialogBase.pas"> <DCCReference Include="uDialogBase.pas">
<Form>fDialogBase</Form> <Form>fDialogBase</Form>
</DCCReference> </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="..\..\Servidor\FactuGES_Server.dproj" />
<Projects Include="..\Articulos\Views\Articulos_view.dproj" /> <Projects Include="..\Articulos\Views\Articulos_view.dproj" />
<Projects Include="..\Contactos\Views\Contactos_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="..\Contratos de cliente\Views\ContratosCliente_view.dproj" />
<Projects Include="..\Facturas de cliente\Controller\FacturasCliente_controller.dproj" /> <Projects Include="..\Facturas de cliente\Controller\FacturasCliente_controller.dproj" />
<Projects Include="..\Facturas de cliente\Views\FacturasCliente_view.dproj" /> <Projects Include="..\Facturas de cliente\Views\FacturasCliente_view.dproj" />
@ -191,14 +193,32 @@
<Target Name="ConCli_AlbCli_relation:Make"> <Target Name="ConCli_AlbCli_relation:Make">
<MSBuild Projects="..\Relaciones\Contratos de cliente - Albaranes de cliente\ConCli_AlbCli_relation.dproj" Targets="Make" /> <MSBuild Projects="..\Relaciones\Contratos de cliente - Albaranes de cliente\ConCli_AlbCli_relation.dproj" Targets="Make" />
</Target> </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"> <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>
<Target Name="Clean"> <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>
<Target Name="Make"> <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> </Target>
<Import Condition="Exists('$(MSBuildBinPath)\Borland.Group.Targets')" Project="$(MSBuildBinPath)\Borland.Group.Targets" /> <Import Condition="Exists('$(MSBuildBinPath)\Borland.Group.Targets')" Project="$(MSBuildBinPath)\Borland.Group.Targets" />
</Project> </Project>

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

@ -92,7 +92,7 @@ type
implementation implementation
uses uses
SysUtils, Variants, uDataModuleConfiguracion, uDataModuleUsuarios, SysUtils, Variants, uDataModuleConfiguracion, uDataModuleUsuarios, uNumUtils,
uDataTableUtils, DateUtils, uDateUtils, DB, uFactuGES_App, uBizEmpresasTiendas; uDataTableUtils, DateUtils, uDateUtils, DB, uFactuGES_App, uBizEmpresasTiendas;
{ TBizAlbaranCliente } { TBizAlbaranCliente }
@ -101,7 +101,7 @@ procedure TBizAlbaranCliente.CalcularBaseImponible;
begin begin
if not Self.DataTable.Editing then if not Self.DataTable.Editing then
Edit; Edit;
IMPORTE_DESCUENTO := IMPORTE_NETO * (DESCUENTO/100); IMPORTE_DESCUENTO := roundCurrency(IMPORTE_NETO * (DESCUENTO/100));
BASE_IMPONIBLE := IMPORTE_NETO - IMPORTE_DESCUENTO + IMPORTE_PORTE; BASE_IMPONIBLE := IMPORTE_NETO - IMPORTE_DESCUENTO + IMPORTE_PORTE;
end; end;
@ -126,7 +126,7 @@ procedure TBizAlbaranCliente.CalcularIVA;
begin begin
if not Self.DataTable.Editing then if not Self.DataTable.Editing then
Edit; Edit;
IMPORTE_IVA := (IVA / 100) * (BASE_IMPONIBLE); IMPORTE_IVA := roundCurrency((IVA / 100) * (BASE_IMPONIBLE));
end; end;
constructor TBizAlbaranCliente.Create(aDataTable: TDADataTable); constructor TBizAlbaranCliente.Create(aDataTable: TDADataTable);
@ -242,9 +242,17 @@ begin
if FCliente.ID_FORMA_PAGO > 0 then if FCliente.ID_FORMA_PAGO > 0 then
ID_FORMA_PAGO := FCliente.ID_FORMA_PAGO; 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; 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 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 //si se quita el id de la cabecera y los detalles se desincroniza
if bEnEdicion then if bEnEdicion then

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

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

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

@ -43,26 +43,6 @@
<Borland.ProjectType>Package</Borland.ProjectType> <Borland.ProjectType>Package</Borland.ProjectType>
<BorlandProject> <BorlandProject>
<BorlandProject><Delphi.Personality><Parameters><Parameters Name="UseLauncher">False</Parameters><Parameters Name="LoadAllSymbols">True</Parameters><Parameters Name="LoadUnspecifiedSymbols">False</Parameters></Parameters><Package_Options><Package_Options Name="ImplicitBuild">False</Package_Options><Package_Options Name="DesigntimeOnly">False</Package_Options><Package_Options Name="RuntimeOnly">False</Package_Options></Package_Options><VersionInfo><VersionInfo Name="IncludeVerInfo">True</VersionInfo><VersionInfo Name="AutoIncBuild">False</VersionInfo><VersionInfo Name="MajorVer">1</VersionInfo><VersionInfo Name="MinorVer">0</VersionInfo><VersionInfo Name="Release">0</VersionInfo><VersionInfo Name="Build">0</VersionInfo><VersionInfo Name="Debug">False</VersionInfo><VersionInfo Name="PreRelease">False</VersionInfo><VersionInfo Name="Special">False</VersionInfo><VersionInfo Name="Private">False</VersionInfo><VersionInfo Name="DLL">False</VersionInfo><VersionInfo Name="Locale">3082</VersionInfo><VersionInfo Name="CodePage">1252</VersionInfo></VersionInfo><VersionInfoKeys><VersionInfoKeys Name="CompanyName"></VersionInfoKeys><VersionInfoKeys Name="FileDescription"></VersionInfoKeys><VersionInfoKeys Name="FileVersion">1.0.0.0</VersionInfoKeys><VersionInfoKeys Name="InternalName"></VersionInfoKeys><VersionInfoKeys Name="LegalCopyright"></VersionInfoKeys><VersionInfoKeys Name="LegalTrademarks"></VersionInfoKeys><VersionInfoKeys Name="OriginalFilename"></VersionInfoKeys><VersionInfoKeys Name="ProductName"></VersionInfoKeys><VersionInfoKeys Name="ProductVersion">1.0.0.0</VersionInfoKeys><VersionInfoKeys Name="Comments"></VersionInfoKeys></VersionInfoKeys><Excluded_Packages> <BorlandProject><Delphi.Personality><Parameters><Parameters Name="UseLauncher">False</Parameters><Parameters Name="LoadAllSymbols">True</Parameters><Parameters Name="LoadUnspecifiedSymbols">False</Parameters></Parameters><Package_Options><Package_Options Name="ImplicitBuild">False</Package_Options><Package_Options Name="DesigntimeOnly">False</Package_Options><Package_Options Name="RuntimeOnly">False</Package_Options></Package_Options><VersionInfo><VersionInfo Name="IncludeVerInfo">True</VersionInfo><VersionInfo Name="AutoIncBuild">False</VersionInfo><VersionInfo Name="MajorVer">1</VersionInfo><VersionInfo Name="MinorVer">0</VersionInfo><VersionInfo Name="Release">0</VersionInfo><VersionInfo Name="Build">0</VersionInfo><VersionInfo Name="Debug">False</VersionInfo><VersionInfo Name="PreRelease">False</VersionInfo><VersionInfo Name="Special">False</VersionInfo><VersionInfo Name="Private">False</VersionInfo><VersionInfo Name="DLL">False</VersionInfo><VersionInfo Name="Locale">3082</VersionInfo><VersionInfo Name="CodePage">1252</VersionInfo></VersionInfo><VersionInfoKeys><VersionInfoKeys Name="CompanyName"></VersionInfoKeys><VersionInfoKeys Name="FileDescription"></VersionInfoKeys><VersionInfoKeys Name="FileVersion">1.0.0.0</VersionInfoKeys><VersionInfoKeys Name="InternalName"></VersionInfoKeys><VersionInfoKeys Name="LegalCopyright"></VersionInfoKeys><VersionInfoKeys Name="LegalTrademarks"></VersionInfoKeys><VersionInfoKeys Name="OriginalFilename"></VersionInfoKeys><VersionInfoKeys Name="ProductName"></VersionInfoKeys><VersionInfoKeys Name="ProductVersion">1.0.0.0</VersionInfoKeys><VersionInfoKeys Name="Comments"></VersionInfoKeys></VersionInfoKeys><Excluded_Packages>
<Excluded_Packages Name="c:\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\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\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> <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"> <DelphiCompile Include="AlbaranesCliente_view.dpk">
<MainSource>MainSource</MainSource> <MainSource>MainSource</MainSource>
</DelphiCompile> </DelphiCompile>
<DCCReference Include="..\..\Formas de pago\AlbaranesCliente_controller.dcp" /> <DCCReference Include="adortl.dcp" />
<DCCReference Include="..\..\Formas de pago\AlbaranesCliente_model.dcp" /> <DCCReference Include="AlbaranesCliente_controller.dcp" />
<DCCReference Include="..\..\Formas de pago\AlbCli_FacCli_relation.dcp" /> <DCCReference Include="AlbaranesCliente_model.dcp" />
<DCCReference Include="..\..\Formas de pago\Almacenes_controller.dcp" /> <DCCReference Include="AlbCli_FacCli_relation.dcp" />
<DCCReference Include="..\..\Formas de pago\ApplicationBase.dcp" /> <DCCReference Include="Almacenes_controller.dcp" />
<DCCReference Include="..\..\Formas de pago\Articulos_view.dcp" /> <DCCReference Include="ApplicationBase.dcp" />
<DCCReference Include="..\..\Formas de pago\Base.dcp" /> <DCCReference Include="Articulos_view.dcp" />
<DCCReference Include="..\..\Formas de pago\GUIBase.dcp" /> <DCCReference Include="Base.dcp" />
<DCCReference Include="..\..\Formas de pago\rtl.dcp" /> <DCCReference Include="cxDataD11.dcp" />
<DCCReference Include="..\..\Formas de pago\vcl.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="uAlbaranesClienteViewRegister.pas" />
<DCCReference Include="uDialogOpcionesImpresionAlbaranesCliente.pas"> <DCCReference Include="uDialogOpcionesImpresionAlbaranesCliente.pas">
<Form>frDialogOpcionesImpresionAlbaranesCliente</Form> <Form>frDialogOpcionesImpresionAlbaranesCliente</Form>
@ -109,6 +99,10 @@
<Form>fEditorAlbaranesDevCliente</Form> <Form>fEditorAlbaranesDevCliente</Form>
<DesignClass>TCustomEditor</DesignClass> <DesignClass>TCustomEditor</DesignClass>
</DCCReference> </DCCReference>
<DCCReference Include="uEditorDireccionEntregaAlbaranCliente.pas">
<Form>fEditorDireccionEntregaAlbaraCliente</Form>
<DesignClass>TCustomEditor</DesignClass>
</DCCReference>
<DCCReference Include="uEditorElegirAlbaranesCliente.pas"> <DCCReference Include="uEditorElegirAlbaranesCliente.pas">
<Form>fEditorElegirAlbaranesCliente</Form> <Form>fEditorElegirAlbaranesCliente</Form>
<DesignClass>TfEditorElegirAlbaranesCliente</DesignClass> <DesignClass>TfEditorElegirAlbaranesCliente</DesignClass>
@ -149,6 +143,10 @@
<Form>frViewElegirArticulosAlbaranesCliente</Form> <Form>frViewElegirArticulosAlbaranesCliente</Form>
<DesignClass>TFrame</DesignClass> <DesignClass>TFrame</DesignClass>
</DCCReference> </DCCReference>
<DCCReference Include="vcl.dcp" />
<DCCReference Include="vcldb.dcp" />
<DCCReference Include="vcljpg.dcp" />
<DCCReference Include="vclx.dcp" />
</ItemGroup> </ItemGroup>
</Project> </Project>
<!-- EurekaLog First Line <!-- EurekaLog First Line

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

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

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

@ -162,17 +162,16 @@ inherited fEditorAlbaranCliente: TfEditorAlbaranCliente
OnChanging = pgPaginasChanging OnChanging = pgPaginasChanging
ExplicitTop = 112 ExplicitTop = 112
ExplicitWidth = 781 ExplicitWidth = 781
ExplicitHeight = 421 ExplicitHeight = 418
inherited pagGeneral: TTabSheet inherited pagGeneral: TTabSheet
ExplicitLeft = 4 ExplicitLeft = 4
ExplicitTop = 24 ExplicitTop = 24
ExplicitWidth = 773 ExplicitWidth = 773
ExplicitHeight = 393 ExplicitHeight = 390
end end
object pagContenido: TTabSheet object pagContenido: TTabSheet
Caption = 'Contenido' Caption = 'Contenido'
ImageIndex = 1 ImageIndex = 1
ExplicitHeight = 393
inline frViewDetallesAlbaranCliente1: TfrViewDetallesAlbaranCliente inline frViewDetallesAlbaranCliente1: TfrViewDetallesAlbaranCliente
Left = 0 Left = 0
Top = 0 Top = 0
@ -190,46 +189,10 @@ inherited fEditorAlbaranCliente: TfEditorAlbaranCliente
TabOrder = 0 TabOrder = 0
ReadOnly = False ReadOnly = False
ExplicitWidth = 773 ExplicitWidth = 773
ExplicitHeight = 393 ExplicitHeight = 390
inherited ToolBar1: TToolBar inherited ToolBar1: TToolBar
Width = 773 Width = 773
ExplicitWidth = 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 end
inherited cxGrid: TcxGrid inherited cxGrid: TcxGrid
Width = 773 Width = 773
@ -252,7 +215,6 @@ inherited fEditorAlbaranCliente: TfEditorAlbaranCliente
object pagInicidencias: TTabSheet object pagInicidencias: TTabSheet
Caption = 'Incidencias' Caption = 'Incidencias'
ImageIndex = 2 ImageIndex = 2
ExplicitHeight = 393
inline frViewIncidenciasCli: TfrViewIncidencias inline frViewIncidenciasCli: TfrViewIncidencias
Left = 0 Left = 0
Top = 0 Top = 0
@ -268,7 +230,7 @@ inherited fEditorAlbaranCliente: TfEditorAlbaranCliente
TabOrder = 0 TabOrder = 0
ReadOnly = False ReadOnly = False
ExplicitWidth = 773 ExplicitWidth = 773
ExplicitHeight = 393 ExplicitHeight = 390
inherited pnlSup: TPanel inherited pnlSup: TPanel
Width = 773 Width = 773
ExplicitWidth = 773 ExplicitWidth = 773
@ -280,10 +242,10 @@ inherited fEditorAlbaranCliente: TfEditorAlbaranCliente
Width = 773 Width = 773
Height = 362 Height = 362
ExplicitWidth = 773 ExplicitWidth = 773
ExplicitHeight = 365 ExplicitHeight = 362
inherited eIncidencias: TcxDBMemo inherited eIncidencias: TcxDBMemo
ExplicitWidth = 769 ExplicitWidth = 769
ExplicitHeight = 348 ExplicitHeight = 345
Height = 345 Height = 345
Width = 769 Width = 769
end end
@ -314,160 +276,192 @@ inherited fEditorAlbaranCliente: TfEditorAlbaranCliente
Align = alClient Align = alClient
LookAndFeel = dxLayoutOfficeLookAndFeel1 LookAndFeel = dxLayoutOfficeLookAndFeel1
ExplicitWidth = 787 ExplicitWidth = 787
ExplicitHeight = 73 ExplicitHeight = 76
inherited Bevel3: TBevel inherited Bevel3: TBevel
Left = 377 Left = 360
Top = 11 Top = 11
Width = 7 Width = 7
Height = 54 Height = 54
ExplicitLeft = 377 ExplicitLeft = 360
ExplicitTop = 11 ExplicitTop = 11
ExplicitWidth = 7 ExplicitWidth = 7
ExplicitHeight = 54 ExplicitHeight = 54
end end
inherited Bevel4: TBevel inherited Bevel4: TBevel
Left = 493 Left = 476
Top = 53 Top = 53
Width = 210 ExplicitLeft = 476
ExplicitLeft = 493
ExplicitTop = 53 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 end
inherited ImporteDto: TcxDBCurrencyEdit inherited ImporteDto: TcxDBCurrencyEdit
Left = 164 Left = 191
Top = 38 Top = 38
Style.IsFontAssigned = True Style.IsFontAssigned = True
ExplicitLeft = 164 ExplicitLeft = 191
ExplicitTop = 38 ExplicitTop = 38
ExplicitWidth = 188 ExplicitWidth = 188
Width = 188 Width = 188
end end
inherited ImporteIVA: TcxDBCurrencyEdit inherited ImporteIVA: TcxDBCurrencyEdit
Left = 564 Left = 547
Top = 88 Top = 88
DataBinding.DataField = '' DataBinding.DataField = ''
Style.IsFontAssigned = True Style.IsFontAssigned = True
ExplicitLeft = 564 ExplicitLeft = 547
ExplicitTop = 88 ExplicitTop = 88
ExplicitWidth = 182 ExplicitWidth = 182
Width = 182 Width = 182
end end
inherited ImporteTotal: TcxDBCurrencyEdit inherited ImporteTotal: TcxDBCurrencyEdit
Left = 494 Left = 477
Top = 169 Top = 169
Style.IsFontAssigned = True Style.IsFontAssigned = True
ExplicitLeft = 494 ExplicitLeft = 477
ExplicitTop = 169 ExplicitTop = 169
ExplicitWidth = 252 ExplicitWidth = 252
Width = 252 Width = 252
end end
inherited edtDescuento: TcxDBSpinEdit inherited edtDescuento: TcxDBSpinEdit
Left = 93 Left = 120
Top = 38 Top = 38
Style.IsFontAssigned = True Style.IsFontAssigned = True
ExplicitLeft = 93 ExplicitLeft = 120
ExplicitTop = 38 ExplicitTop = 38
end end
inherited edtIVA: TcxDBSpinEdit inherited edtIVA: TcxDBSpinEdit
Left = 493 Left = 476
Top = 88 Top = 88
DataBinding.DataField = '' DataBinding.DataField = ''
Style.IsFontAssigned = True Style.IsFontAssigned = True
ExplicitLeft = 493 ExplicitLeft = 476
ExplicitTop = 88 ExplicitTop = 88
end end
inherited ImporteBase: TcxDBCurrencyEdit inherited ImporteBase: TcxDBCurrencyEdit
Left = 493 Left = 476
Top = 11 Top = 11
Style.IsFontAssigned = True Style.IsFontAssigned = True
ExplicitLeft = 493 ExplicitLeft = 476
ExplicitTop = 11 ExplicitTop = 11
ExplicitWidth = 253 ExplicitWidth = 253
Width = 253 Width = 253
end end
inherited edtRE: TcxDBSpinEdit inherited edtRE: TcxDBSpinEdit
Left = 493 Left = 476
Top = 142 Top = 142
DataBinding.DataField = '' DataBinding.DataField = ''
Style.IsFontAssigned = True Style.IsFontAssigned = True
ExplicitLeft = 493 ExplicitLeft = 476
ExplicitTop = 142 ExplicitTop = 142
end end
inherited edtIRPF: TcxDBSpinEdit inherited edtIRPF: TcxDBSpinEdit
Left = 493 Left = 476
Top = 115 Top = 115
Style.IsFontAssigned = True Style.IsFontAssigned = True
ExplicitLeft = 493 ExplicitLeft = 476
ExplicitTop = 115 ExplicitTop = 115
end end
inherited ImporteRE: TcxDBCurrencyEdit inherited ImporteRE: TcxDBCurrencyEdit
Left = 564 Left = 547
Top = 142 Top = 142
DataBinding.DataField = '' DataBinding.DataField = ''
Style.IsFontAssigned = True Style.IsFontAssigned = True
ExplicitLeft = 564 ExplicitLeft = 547
ExplicitTop = 142 ExplicitTop = 142
ExplicitWidth = 182 ExplicitWidth = 182
Width = 182 Width = 182
end end
inherited ImporteIRPF: TcxDBCurrencyEdit inherited ImporteIRPF: TcxDBCurrencyEdit
Left = 564 Left = 547
Top = 115 Top = 115
Style.IsFontAssigned = True Style.IsFontAssigned = True
ExplicitLeft = 564 ExplicitLeft = 547
ExplicitTop = 115 ExplicitTop = 115
ExplicitWidth = 56
Width = 56
end end
inherited eImporteNeto: TcxDBCurrencyEdit inherited eImporteNeto: TcxDBCurrencyEdit
Left = 93 Left = 120
Top = 11 Top = 11
Enabled = True Enabled = True
Style.IsFontAssigned = True Style.IsFontAssigned = True
ExplicitLeft = 93 ExplicitLeft = 120
ExplicitTop = 11 ExplicitTop = 11
ExplicitWidth = 259 ExplicitWidth = 259
Width = 259 Width = 259
end end
inherited ePorte: TcxDBCurrencyEdit inherited ePorte: TcxDBCurrencyEdit
Left = 93 Left = 120
Top = 65 Top = 65
Enabled = False Enabled = False
Properties.OnValidate = frViewTotales1ePortePropertiesValidate Properties.OnValidate = frViewTotales1ePortePropertiesValidate
Style.IsFontAssigned = True Style.IsFontAssigned = True
ExplicitLeft = 93 ExplicitLeft = 120
ExplicitTop = 65 ExplicitTop = 65
ExplicitWidth = 259 ExplicitWidth = 259
Width = 259 Width = 259
end end
inherited eIVA: TcxDBLookupComboBox inherited eIVA: TcxDBLookupComboBox
Left = 93 Left = 120
Top = 92 Top = 92
DataBinding.DataField = '' DataBinding.DataField = ''
Enabled = False Enabled = False
ExplicitLeft = 93 ExplicitLeft = 120
ExplicitTop = 92 ExplicitTop = 92
ExplicitWidth = 121 ExplicitWidth = 121
Width = 121 Width = 121
end end
inherited bTiposIVA: TButton inherited bTiposIVA: TButton
Left = 229 Left = 212
Top = 92 Top = 92
Enabled = False Enabled = False
ExplicitLeft = 229 ExplicitLeft = 212
ExplicitTop = 92 ExplicitTop = 92
end end
inherited cbRecargoEquivalencia: TcxDBCheckBox inherited cbRecargoEquivalencia: TcxDBCheckBox
Left = 93 Left = 120
Top = 119 Top = 119
DataBinding.DataField = '' DataBinding.DataField = ''
DataBinding.DataSource = nil DataBinding.DataSource = nil
Enabled = False Enabled = False
ExplicitLeft = 93 ExplicitLeft = 120
ExplicitTop = 119 ExplicitTop = 119
ExplicitWidth = 259 ExplicitWidth = 259
Width = 259 Width = 259
end 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 dxLayoutControl1Group_Root: TdxLayoutGroup
inherited dxLayoutControl1Group1: TdxLayoutGroup inherited dxLayoutControl1Group1: TdxLayoutGroup
ShowCaption = False 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');} ShowWarningMessage('Este cliente no tiene datos bancarios en su ficha');}
// Elegir la dirección de envio // Elegir la dirección de envio
case FAlbaran.Cliente.Direcciones.RecordCount of { case FAlbaran.Cliente.Direcciones.RecordCount of
0 : begin 0 : begin
ADireccion := NIL; ADireccion := NIL;
//ShowWarningMessage('Este cliente no tiene ninguna dirección de envío en su ficha'); //ShowWarningMessage('Este cliente no tiene ninguna dirección de envío en su ficha');
@ -266,9 +266,9 @@ begin
ADireccion := FAlbaran.Cliente.Direcciones; ADireccion := FAlbaran.Cliente.Direcciones;
end end
end; end;
}
// Si hay dirección de envio, copiarla al albarán y poner el coste del porte // 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 begin
try try
FAlbaran.Edit; FAlbaran.Edit;
@ -283,7 +283,7 @@ begin
FAlbaran.Edit; FAlbaran.Edit;
FAlbaran.IMPORTE_PORTE := 0; FAlbaran.IMPORTE_PORTE := 0;
end; end;
}
// Si el albaran tiene detalles hay que mirar si los descuentos // Si el albaran tiene detalles hay que mirar si los descuentos
// para los artículos hay que cambiarlos. // para los artículos hay que cambiarlos.
if (FAlbaran.Detalles.RecordCount > 0) then 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 inherited frViewAlbaranCliente: TfrViewAlbaranCliente
Width = 851 Width = 1057
Height = 512 Height = 671
OnCreate = CustomViewCreate OnCreate = CustomViewCreate
OnDestroy = CustomViewDestroy OnDestroy = CustomViewDestroy
ExplicitWidth = 851 ExplicitWidth = 1057
ExplicitHeight = 512 ExplicitHeight = 671
object dxLayoutControl1: TdxLayoutControl object dxLayoutControl1: TdxLayoutControl
Left = 0 Left = 0
Top = 0 Top = 0
Width = 851 Width = 1057
Height = 512 Height = 671
Align = alClient Align = alClient
ParentBackground = True ParentBackground = True
TabOrder = 0 TabOrder = 0
TabStop = False TabStop = False
AutoContentSizes = [acsWidth, acsHeight] AutoContentSizes = [acsWidth, acsHeight]
ExplicitWidth = 825
DesignSize = ( DesignSize = (
851 1057
512) 671)
object Label1: TLabel object Label1: TLabel
Left = 353 Left = 437
Top = 622 Top = 622
Width = 299 Width = 299
Height = 26 Height = 26
@ -82,7 +81,7 @@ inherited frViewAlbaranCliente: TfrViewAlbaranCliente
Width = 284 Width = 284
end end
inline frViewClienteAlbaran: TfrViewDatosYSeleccionClienteAlbaran inline frViewClienteAlbaran: TfrViewDatosYSeleccionClienteAlbaran
Left = 353 Left = 437
Top = 28 Top = 28
Width = 442 Width = 442
Height = 221 Height = 221
@ -94,7 +93,7 @@ inherited frViewAlbaranCliente: TfrViewAlbaranCliente
ParentFont = False ParentFont = False
TabOrder = 10 TabOrder = 10
ReadOnly = False ReadOnly = False
ExplicitLeft = 353 ExplicitLeft = 437
ExplicitTop = 28 ExplicitTop = 28
ExplicitWidth = 442 ExplicitWidth = 442
ExplicitHeight = 221 ExplicitHeight = 221
@ -103,36 +102,10 @@ inherited frViewAlbaranCliente: TfrViewAlbaranCliente
Height = 221 Height = 221
ExplicitWidth = 442 ExplicitWidth = 442
ExplicitHeight = 221 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 inherited edtTelefonos: TcxTextEdit
ExplicitWidth = 193 ExplicitWidth = 193
Width = 193 Width = 193
end end
inherited edtReferencia: TcxDBTextEdit
Left = 289
ExplicitLeft = 289
ExplicitWidth = 103
Width = 103
end
end end
inherited ActionList1: TActionList inherited ActionList1: TActionList
Left = 306 Left = 306
@ -142,7 +115,7 @@ inherited frViewAlbaranCliente: TfrViewAlbaranCliente
end end
end end
object eCalle: TcxDBTextEdit object eCalle: TcxDBTextEdit
Left = 447 Left = 531
Top = 396 Top = 396
DataBinding.DataField = 'CALLE' DataBinding.DataField = 'CALLE'
DataBinding.DataSource = DADataSource DataBinding.DataSource = DADataSource
@ -161,7 +134,7 @@ inherited frViewAlbaranCliente: TfrViewAlbaranCliente
Width = 284 Width = 284
end end
object ePoblacion: TcxDBTextEdit object ePoblacion: TcxDBTextEdit
Left = 447 Left = 531
Top = 423 Top = 423
DataBinding.DataField = 'POBLACION' DataBinding.DataField = 'POBLACION'
DataBinding.DataSource = DADataSource DataBinding.DataSource = DADataSource
@ -180,7 +153,7 @@ inherited frViewAlbaranCliente: TfrViewAlbaranCliente
Width = 61 Width = 61
end end
object eCodigoPostal: TcxDBTextEdit object eCodigoPostal: TcxDBTextEdit
Left = 745 Left = 951
Top = 423 Top = 423
DataBinding.DataField = 'CODIGO_POSTAL' DataBinding.DataField = 'CODIGO_POSTAL'
DataBinding.DataSource = DADataSource DataBinding.DataSource = DADataSource
@ -199,7 +172,7 @@ inherited frViewAlbaranCliente: TfrViewAlbaranCliente
Width = 65 Width = 65
end end
object eProvincia: TcxDBTextEdit object eProvincia: TcxDBTextEdit
Left = 447 Left = 531
Top = 450 Top = 450
DataBinding.DataField = 'PROVINCIA' DataBinding.DataField = 'PROVINCIA'
DataBinding.DataSource = DADataSource DataBinding.DataSource = DADataSource
@ -218,7 +191,7 @@ inherited frViewAlbaranCliente: TfrViewAlbaranCliente
Width = 406 Width = 406
end end
object ePersonaContacto: TcxDBTextEdit object ePersonaContacto: TcxDBTextEdit
Left = 447 Left = 531
Top = 477 Top = 477
DataBinding.DataField = 'PERSONA_CONTACTO' DataBinding.DataField = 'PERSONA_CONTACTO'
DataBinding.DataSource = DADataSource DataBinding.DataSource = DADataSource
@ -238,7 +211,7 @@ inherited frViewAlbaranCliente: TfrViewAlbaranCliente
Width = 284 Width = 284
end end
object eTlfTrabajo: TcxDBTextEdit object eTlfTrabajo: TcxDBTextEdit
Left = 447 Left = 531
Top = 504 Top = 504
DataBinding.DataField = 'TELEFONO' DataBinding.DataField = 'TELEFONO'
DataBinding.DataSource = DADataSource DataBinding.DataSource = DADataSource
@ -257,16 +230,16 @@ inherited frViewAlbaranCliente: TfrViewAlbaranCliente
Width = 284 Width = 284
end end
object bElegirDireccion: TBitBtn object bElegirDireccion: TBitBtn
Left = 638 Left = 844
Top = 531 Top = 531
Width = 172 Width = 172
Height = 23 Height = 23
Action = actElegirDireccion Action = actModificarDireccion
Caption = 'Elegir una direcci'#243'n de env'#237'o...' Caption = 'Modificar la direcci'#243'n'
TabOrder = 20 TabOrder = 20
end end
object Button1: TButton object Button1: TButton
Left = 191 Left = 275
Top = 138 Top = 138
Width = 132 Width = 132
Height = 23 Height = 23
@ -328,7 +301,7 @@ inherited frViewAlbaranCliente: TfrViewAlbaranCliente
Width = 146 Width = 146
end end
object bFormasPago: TButton object bFormasPago: TButton
Left = 191 Left = 275
Top = 109 Top = 109
Width = 132 Width = 132
Height = 23 Height = 23
@ -337,7 +310,7 @@ inherited frViewAlbaranCliente: TfrViewAlbaranCliente
OnClick = bFormasPagoClick OnClick = bFormasPagoClick
end end
object eFechaRecepcion: TcxDBDateEdit object eFechaRecepcion: TcxDBDateEdit
Left = 487 Left = 571
Top = 339 Top = 339
Anchors = [akLeft, akTop, akRight] Anchors = [akLeft, akTop, akRight]
DataBinding.DataField = 'FECHA_RECEPCION' DataBinding.DataField = 'FECHA_RECEPCION'
@ -362,7 +335,7 @@ inherited frViewAlbaranCliente: TfrViewAlbaranCliente
Width = 239 Width = 239
end end
object cbConAlmacen: TCheckBox object cbConAlmacen: TCheckBox
Left = 363 Left = 447
Top = 590 Top = 590
Width = 179 Width = 179
Height = 21 Height = 21
@ -371,7 +344,7 @@ inherited frViewAlbaranCliente: TfrViewAlbaranCliente
OnClick = cbConAlmacenClick OnClick = cbConAlmacenClick
end end
object cbAlmacen: TcxDBLookupComboBox object cbAlmacen: TcxDBLookupComboBox
Left = 548 Left = 632
Top = 590 Top = 590
DataBinding.DataField = 'ID_ALMACEN' DataBinding.DataField = 'ID_ALMACEN'
DataBinding.DataSource = DADataSource DataBinding.DataSource = DADataSource
@ -427,7 +400,7 @@ inherited frViewAlbaranCliente: TfrViewAlbaranCliente
Width = 284 Width = 284
end end
object eFechaPrevista: TcxDBDateEdit object eFechaPrevista: TcxDBDateEdit
Left = 487 Left = 571
Top = 285 Top = 285
Anchors = [akLeft, akTop, akRight] Anchors = [akLeft, akTop, akRight]
DataBinding.DataField = 'FECHA_PREVISTA_ENVIO' DataBinding.DataField = 'FECHA_PREVISTA_ENVIO'
@ -478,7 +451,7 @@ inherited frViewAlbaranCliente: TfrViewAlbaranCliente
Width = 284 Width = 284
end end
object eFechaEnvio: TcxDBDateEdit object eFechaEnvio: TcxDBDateEdit
Left = 487 Left = 571
Top = 312 Top = 312
Anchors = [akLeft, akTop, akRight] Anchors = [akLeft, akTop, akRight]
DataBinding.DataField = 'FECHA_ENVIO' DataBinding.DataField = 'FECHA_ENVIO'
@ -710,8 +683,7 @@ inherited frViewAlbaranCliente: TfrViewAlbaranCliente
object dxLayoutControl1Group8: TdxLayoutGroup object dxLayoutControl1Group8: TdxLayoutGroup
AutoAligns = [] AutoAligns = []
AlignHorz = ahClient AlignHorz = ahClient
Caption = 'Direcci'#243'n de entrega' Caption = 'Direcci'#243'n de entrega / obra'
Visible = False
object dxLayoutControl1Item8: TdxLayoutItem object dxLayoutControl1Item8: TdxLayoutItem
Caption = 'Calle:' Caption = 'Calle:'
Control = eCalle Control = eCalle
@ -752,7 +724,7 @@ inherited frViewAlbaranCliente: TfrViewAlbaranCliente
ControlOptions.ShowBorder = False ControlOptions.ShowBorder = False
end end
object dxLayoutControl1Item13: TdxLayoutItem object dxLayoutControl1Item13: TdxLayoutItem
Caption = 'Tel'#233'fono:' Caption = 'Tel'#233'fonos:'
Control = eTlfTrabajo Control = eTlfTrabajo
ControlOptions.ShowBorder = False ControlOptions.ShowBorder = False
end end
@ -805,8 +777,11 @@ inherited frViewAlbaranCliente: TfrViewAlbaranCliente
object ActionList1: TActionList object ActionList1: TActionList
Left = 24 Left = 24
Top = 48 Top = 48
object actElegirDireccion: TAction object actModificarDireccion: TAction
Caption = 'Elegir una direcci'#243'n de env'#237'o...' Caption = 'Modificar la direcci'#243'n'
Enabled = False
Visible = False
OnExecute = actModificarDireccionExecute
end end
object actVerPedidoCli: TAction object actVerPedidoCli: TAction
Caption = 'Ver el pedido de cliente...' Caption = 'Ver el pedido de cliente...'

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

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

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

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

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

@ -86,7 +86,7 @@ type
implementation implementation
uses uses
SysUtils, Variants, uDataModuleConfiguracion, uDataModuleUsuarios, SysUtils, Variants, uDataModuleConfiguracion, uDataModuleUsuarios, uNumUtils,
uDataTableUtils, DateUtils, uDateUtils, DB, uFactuGES_App, uBizEmpresasTiendas; uDataTableUtils, DateUtils, uDateUtils, DB, uFactuGES_App, uBizEmpresasTiendas;
{ TBizAlbaranProveedor } { TBizAlbaranProveedor }
@ -95,7 +95,7 @@ procedure TBizAlbaranProveedor.CalcularBaseImponible;
begin begin
if not Self.DataTable.Editing then if not Self.DataTable.Editing then
Edit; 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 BASE_IMPONIBLE := IMPORTE_NETO - IMPORTE_DESCUENTO; //+ IMPORTE_PORTE; ya no se tiene en cuenta porque se desglosa por artículo
end; end;
@ -120,7 +120,7 @@ procedure TBizAlbaranProveedor.CalcularIVA;
begin begin
if not Self.DataTable.Editing then if not Self.DataTable.Editing then
Edit; Edit;
IMPORTE_IVA := (IVA / 100) * (BASE_IMPONIBLE); IMPORTE_IVA := roundCurrency((IVA / 100) * (BASE_IMPONIBLE));
end; end;
constructor TBizAlbaranProveedor.Create(aDataTable: TDADataTable); 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, Variants, Dialogs, cxControls, DB, uEditorRegistryUtils, schComisionesClient_Intf,
uIEditorComisiones, uDataModuleComisiones, uDataModuleUsuarios, uFactuGES_App, uIEditorComisiones, uDataModuleComisiones, uDataModuleUsuarios, uFactuGES_App,
uDAInterfaces, uDataTableUtils, uIEditorComision, uComisionesReportController, uDAInterfaces, uDataTableUtils, uIEditorComision, uComisionesReportController,
uDateUtils, uROTypes, DateUtils, Controls, Windows, uDialogUtils, uDateUtils, uROTypes, DateUtils, Controls, Windows, uDialogUtils, uNumUtils,
uBizContactos, uVendedoresController, uBizFacturasCliente, uFacturasClienteController; uBizContactos, uVendedoresController, uBizFacturasCliente, uFacturasClienteController;
@ -516,7 +516,7 @@ begin
while not AComision.Vendedores.DataTable.EOF do while not AComision.Vendedores.DataTable.EOF do
begin begin
AComision.Vendedores.Edit; 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.Post;
AComision.Vendedores.DataTable.Next; AComision.Vendedores.DataTable.Next;
end; end;

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

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

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

@ -520,4 +520,85 @@ inherited DataModuleContactos: TDataModuleContactos
Left = 296 Left = 296
Top = 80 Top = 80
end 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 end

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

@ -11,7 +11,7 @@ uses
uBizDireccionesContacto, uIDataModuleEtiquetasContactosReport, uBizDireccionesContacto, uIDataModuleEtiquetasContactosReport,
uIDataModuleContactos, uDADesigntimeCall, uROTypes, uRODynamicRequest, uIDataModuleContactos, uDADesigntimeCall, uROTypes, uRODynamicRequest,
uDAInterfaces, uDADataStreamer, uDARemoteDataAdapter, uDABin2DataStreamer, uDAInterfaces, uDADataStreamer, uDARemoteDataAdapter, uDABin2DataStreamer,
uDAMemDataTable, uDataModuleBase, uBizContactosPersonal; uDAMemDataTable, uDataModuleBase, uBizContactosPersonal, uBizContactosDirecciones;
type type
TDataModuleContactos = class(TDataModuleBase, IDataModuleContactos, IDataModuleEtiquetasContactosReport) TDataModuleContactos = class(TDataModuleBase, IDataModuleContactos, IDataModuleEtiquetasContactosReport)
@ -26,6 +26,8 @@ type
ds_DatosBancarios: TDADataSource; ds_DatosBancarios: TDADataSource;
tbl_PersonalContacto: TDAMemDataTable; tbl_PersonalContacto: TDAMemDataTable;
ds_PersonalContacto: TDADataSource; ds_PersonalContacto: TDADataSource;
tbl_ContactosDirecciones: TDAMemDataTable;
ds_ContactosDirecciones: TDADataSource;
procedure DAClientDataModuleCreate(Sender: TObject); procedure DAClientDataModuleCreate(Sender: TObject);
procedure DataModuleDestroy(Sender: TObject); procedure DataModuleDestroy(Sender: TObject);
public public
@ -34,6 +36,9 @@ type
function _GetPersonal: IBizContactoPersonal; function _GetPersonal: IBizContactoPersonal;
function _GetItems (IDCategoria : Integer): IBizContacto; virtual; function _GetItems (IDCategoria : Integer): IBizContacto; virtual;
function NewDireccion : IBizDireccionesContacto; function NewDireccion : IBizDireccionesContacto;
function GetContactosDirecciones : IBizContactosDirecciones;
function GetContactoDirecciones(const IDContacto: Integer) : IBizContactosDirecciones;
// Report // Report
function GetReport(const ListaID: TIntegerList): Binary; function GetReport(const ListaID: TIntegerList): Binary;
@ -60,6 +65,37 @@ begin
// //
end; 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; function TDataModuleContactos.GetReport(const ListaID: TIntegerList): Binary;
var var
AParam : TIntegerArray; 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"> <DelphiCompile Include="Contactos_model.dpk">
<MainSource>MainSource</MainSource> <MainSource>MainSource</MainSource>
</DelphiCompile> </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="..\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\uIDataModuleClientes.pas" />
<DCCReference Include="Data\uIDataModuleContactos.pas" /> <DCCReference Include="Data\uIDataModuleContactos.pas" />
<DCCReference Include="Data\uIDataModuleEtiquetasContactosReport.pas" /> <DCCReference Include="Data\uIDataModuleEtiquetasContactosReport.pas" />
<DCCReference Include="Data\uIDataModuleProveedores.pas" /> <DCCReference Include="Data\uIDataModuleProveedores.pas" />
<DCCReference Include="Data\uIDataModuleVendedores.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="schContactosClient_Intf.pas" />
<DCCReference Include="schContactosServer_Intf.pas" /> <DCCReference Include="schContactosServer_Intf.pas" />
<DCCReference Include="TiposIVA_controller.dcp" />
<DCCReference Include="TiposIVA_model.dcp" />
<DCCReference Include="uBizClientesDescuentos.pas" /> <DCCReference Include="uBizClientesDescuentos.pas" />
<DCCReference Include="uBizContactos.pas" /> <DCCReference Include="uBizContactos.pas" />
<DCCReference Include="uBizContactosDatosBancarios.pas" /> <DCCReference Include="uBizContactosDatosBancarios.pas" />
<DCCReference Include="uBizContactosDirecciones.pas" />
<DCCReference Include="uBizContactosPersonal.pas" /> <DCCReference Include="uBizContactosPersonal.pas" />
<DCCReference Include="uBizDireccionesContacto.pas" /> <DCCReference Include="uBizDireccionesContacto.pas" />
<DCCReference Include="uBizGruposCliente.pas" /> <DCCReference Include="uBizGruposCliente.pas" />
<DCCReference Include="uBizGruposProveedor.pas" /> <DCCReference Include="uBizGruposProveedor.pas" />
<DCCReference Include="uBizProcedenciasCliente.pas" /> <DCCReference Include="uBizProcedenciasCliente.pas" />
<DCCReference Include="uBizSubCuentasContacto.pas" /> <DCCReference Include="uBizSubCuentasContacto.pas" />
<DCCReference Include="vcl.dcp" />
<DCCReference Include="vcldb.dcp" />
</ItemGroup> </ItemGroup>
</Project> </Project>
<!-- EurekaLog First Line <!-- EurekaLog First Line

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

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

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

@ -9,21 +9,22 @@ const
{ Data table rules ids { Data table rules ids
Feel free to change them to something more human readable Feel free to change them to something more human readable
but make sure they are unique in the context of your application } but make sure they are unique in the context of your application }
RID_DarEmpresasContacto = '{58E62884-DAB2-4BFB-9516-C13717F291C2}'; RID_DarEmpresasContacto = '{1FB36DE6-DC23-42C7-B954-A3A24ECE311D}';
RID_PersonalContacto = '{214169EF-F12D-4BE7-AABF-5499A0D8CDF6}'; RID_PersonalContacto = '{70DDA4E3-5FEA-49F1-9C45-8BE8D2C082D5}';
RID_DarTiendaDeUsuario = '{D114647A-13A4-45F7-A8E2-AC09DBEFB3FD}'; RID_DarTiendaDeUsuario = '{2DF17380-C5A2-4406-A6A6-2F212AEBB047}';
RID_SubCuentasContacto = '{CCC26472-7C6F-4A13-8F70-E2DC0BF0C905}'; RID_SubCuentasContacto = '{2D727D73-861E-49C8-B1B5-764B64B8A412}';
RID_Contactos = '{58D64E83-ADF0-4ABD-A668-8AFD03B00945}'; RID_Contactos = '{1568D3C5-32D9-4C7C-B8C9-1476AABB4F50}';
RID_GruposCliente = '{C332625A-341F-46A6-9B46-9F6F5605955F}'; RID_GruposCliente = '{C6EF793B-FAF7-4E3F-8C6C-4B01F45B3522}';
RID_DatosBancarios = '{4D242F5D-4039-44A6-95DC-3BD871441FE5}'; RID_DatosBancarios = '{A79EE7C9-DB26-4A0B-90D3-C25CE6CFE15A}';
RID_Clientes = '{F9E03EE6-4565-4A18-B2DC-8344F99CBD09}'; RID_ContactosDirecciones = '{AAD0256D-CD6A-4205-9ACB-47D091882E9E}';
RID_Proveedores = '{1704A814-F561-4A89-BA3E-499BB9F93AE0}'; RID_Clientes = '{D02B22B8-1E2E-4C0B-9705-781B2C4A41CD}';
RID_Vendedores = '{C64DC799-D8AB-4A54-A04C-ABF0CD2FE692}'; RID_Proveedores = '{4714CC20-8D74-4550-BE55-F779D8B69651}';
RID_DireccionesContacto = '{F62E139F-0FEA-4783-A91F-8AE0F2F71FA0}'; RID_Vendedores = '{14779032-5C76-48F8-A515-7B4F256A581B}';
RID_ClientesDescuentos = '{276E724A-6EC8-4AE1-8671-C29BA7DE5690}'; RID_DireccionesContacto = '{B72D9E4D-E41D-4CCD-97F2-9DB4EBC188F1}';
RID_ProcedenciasCliente = '{51321FDE-622B-4214-9938-F53170B49037}'; RID_ClientesDescuentos = '{BA67190A-1ACE-4404-95FA-122BB4FDFA8F}';
RID_GruposProveedor = '{40963BA2-9BFD-499C-A46A-7B0579A135FC}'; RID_ProcedenciasCliente = '{788EE266-FBF8-4D9A-B379-3E2F606C556C}';
RID_Contactos_Refresh = '{858999BC-7D57-4C87-B551-B8707D78B938}'; RID_GruposProveedor = '{1C1C218A-93F5-47BD-BED8-59F677691E59}';
RID_Contactos_Refresh = '{D6E514CB-6FB8-4E7F-A356-E1B5CF83F38E}';
{ Data table names } { Data table names }
nme_DarEmpresasContacto = 'DarEmpresasContacto'; nme_DarEmpresasContacto = 'DarEmpresasContacto';
@ -33,6 +34,7 @@ const
nme_Contactos = 'Contactos'; nme_Contactos = 'Contactos';
nme_GruposCliente = 'GruposCliente'; nme_GruposCliente = 'GruposCliente';
nme_DatosBancarios = 'DatosBancarios'; nme_DatosBancarios = 'DatosBancarios';
nme_ContactosDirecciones = 'ContactosDirecciones';
nme_Clientes = 'Clientes'; nme_Clientes = 'Clientes';
nme_Proveedores = 'Proveedores'; nme_Proveedores = 'Proveedores';
nme_Vendedores = 'Vendedores'; nme_Vendedores = 'Vendedores';
@ -182,6 +184,36 @@ const
idx_DatosBancariosIBAN = 9; idx_DatosBancariosIBAN = 9;
idx_DatosBancariosSWIFT = 10; 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 } { Clientes fields }
fld_ClientesID = 'ID'; fld_ClientesID = 'ID';
fld_ClientesID_CATEGORIA = 'ID_CATEGORIA'; fld_ClientesID_CATEGORIA = 'ID_CATEGORIA';
@ -535,7 +567,7 @@ const
type type
{ IDarEmpresasContacto } { IDarEmpresasContacto }
IDarEmpresasContacto = interface(IDAStronglyTypedDataTable) IDarEmpresasContacto = interface(IDAStronglyTypedDataTable)
['{85336C50-EC65-4F37-B184-3344A320D616}'] ['{0CC91EA2-C5BB-4189-926A-822047027C13}']
{ Property getters and setters } { Property getters and setters }
function GetID_EMPRESAValue: Integer; function GetID_EMPRESAValue: Integer;
procedure SetID_EMPRESAValue(const aValue: Integer); procedure SetID_EMPRESAValue(const aValue: Integer);
@ -570,7 +602,7 @@ type
{ IPersonalContacto } { IPersonalContacto }
IPersonalContacto = interface(IDAStronglyTypedDataTable) IPersonalContacto = interface(IDAStronglyTypedDataTable)
['{9EFA3514-D4B7-4FEF-9032-A739905E0E18}'] ['{404F0756-744A-4575-B2DB-1D739E395CF8}']
{ Property getters and setters } { Property getters and setters }
function GetIDValue: Integer; function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer); procedure SetIDValue(const aValue: Integer);
@ -713,7 +745,7 @@ type
{ IDarTiendaDeUsuario } { IDarTiendaDeUsuario }
IDarTiendaDeUsuario = interface(IDAStronglyTypedDataTable) IDarTiendaDeUsuario = interface(IDAStronglyTypedDataTable)
['{F0D24CEA-B4C6-4EB9-8413-08139589A497}'] ['{AA525615-6715-413D-8519-32BC6F62DE6E}']
{ Property getters and setters } { Property getters and setters }
function GetID_TIENDAValue: Integer; function GetID_TIENDAValue: Integer;
procedure SetID_TIENDAValue(const aValue: Integer); procedure SetID_TIENDAValue(const aValue: Integer);
@ -748,7 +780,7 @@ type
{ ISubCuentasContacto } { ISubCuentasContacto }
ISubCuentasContacto = interface(IDAStronglyTypedDataTable) ISubCuentasContacto = interface(IDAStronglyTypedDataTable)
['{80F8562F-83E6-41BD-B9FD-745B5D313EA0}'] ['{7B676FC7-57FC-4939-9D00-08D59EAABB1C}']
{ Property getters and setters } { Property getters and setters }
function GetIDValue: Integer; function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer); procedure SetIDValue(const aValue: Integer);
@ -843,7 +875,7 @@ type
{ IContactos } { IContactos }
IContactos = interface(IDAStronglyTypedDataTable) IContactos = interface(IDAStronglyTypedDataTable)
['{1DFD9E61-3525-4467-BE11-4CDAB0B4BDA7}'] ['{A0FD48D8-831A-4051-868B-3172FFAE1B6E}']
{ Property getters and setters } { Property getters and setters }
function GetIDValue: Integer; function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer); procedure SetIDValue(const aValue: Integer);
@ -1166,7 +1198,7 @@ type
{ IGruposCliente } { IGruposCliente }
IGruposCliente = interface(IDAStronglyTypedDataTable) IGruposCliente = interface(IDAStronglyTypedDataTable)
['{C23BA26B-9654-4A64-AA7E-E7A2D509FD4F}'] ['{E661AFFB-934F-4744-ADED-A9564C54A6E4}']
{ Property getters and setters } { Property getters and setters }
function GetIDValue: Integer; function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer); procedure SetIDValue(const aValue: Integer);
@ -1213,7 +1245,7 @@ type
{ IDatosBancarios } { IDatosBancarios }
IDatosBancarios = interface(IDAStronglyTypedDataTable) IDatosBancarios = interface(IDAStronglyTypedDataTable)
['{699EF4D5-1534-490C-810A-432C4F782F84}'] ['{25800C2B-F033-495B-B88B-8B0DDD6E590C}']
{ Property getters and setters } { Property getters and setters }
function GetIDValue: Integer; function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer); procedure SetIDValue(const aValue: Integer);
@ -1366,9 +1398,188 @@ type
end; 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 }
IClientes = interface(IDAStronglyTypedDataTable) IClientes = interface(IDAStronglyTypedDataTable)
['{ABECF46D-4E5C-4E32-A14C-6C06496F5750}'] ['{EB01EA6C-7622-47E6-914B-3C426DA210F2}']
{ Property getters and setters } { Property getters and setters }
function GetIDValue: Integer; function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer); procedure SetIDValue(const aValue: Integer);
@ -1907,7 +2118,7 @@ type
{ IProveedores } { IProveedores }
IProveedores = interface(IDAStronglyTypedDataTable) IProveedores = interface(IDAStronglyTypedDataTable)
['{6ADC1FCC-4535-4E95-9FC6-FE9AC17D265C}'] ['{F52A07E8-726F-4A4A-BE6E-C481F115651D}']
{ Property getters and setters } { Property getters and setters }
function GetIDValue: Integer; function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer); procedure SetIDValue(const aValue: Integer);
@ -2434,7 +2645,7 @@ type
{ IVendedores } { IVendedores }
IVendedores = interface(IDAStronglyTypedDataTable) IVendedores = interface(IDAStronglyTypedDataTable)
['{9DF5AB85-335B-4900-9653-06C3F82859AC}'] ['{74374D8C-09D5-4169-8AF6-9CDA8CEEF947}']
{ Property getters and setters } { Property getters and setters }
function GetIDValue: Integer; function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer); procedure SetIDValue(const aValue: Integer);
@ -2781,7 +2992,7 @@ type
{ IDireccionesContacto } { IDireccionesContacto }
IDireccionesContacto = interface(IDAStronglyTypedDataTable) IDireccionesContacto = interface(IDAStronglyTypedDataTable)
['{D0BCB5E6-8DB8-4E36-9C6E-D79EED18622D}'] ['{3880AC55-1F19-4B7B-9368-5BB184A3FF5F}']
{ Property getters and setters } { Property getters and setters }
function GetIDValue: Integer; function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer); procedure SetIDValue(const aValue: Integer);
@ -3008,7 +3219,7 @@ type
{ IClientesDescuentos } { IClientesDescuentos }
IClientesDescuentos = interface(IDAStronglyTypedDataTable) IClientesDescuentos = interface(IDAStronglyTypedDataTable)
['{06F202F3-19A8-4394-A14D-BBF4896544EF}'] ['{1BDBF176-EA1D-48A0-8A72-C450D1C23AD7}']
{ Property getters and setters } { Property getters and setters }
function GetIDValue: Integer; function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer); procedure SetIDValue(const aValue: Integer);
@ -3091,7 +3302,7 @@ type
{ IProcedenciasCliente } { IProcedenciasCliente }
IProcedenciasCliente = interface(IDAStronglyTypedDataTable) IProcedenciasCliente = interface(IDAStronglyTypedDataTable)
['{C287C28B-F1AD-4F67-B59E-BDDA8B637803}'] ['{96B8D8C7-408D-4C66-A3DA-4C0A3A47C37A}']
{ Property getters and setters } { Property getters and setters }
function GetIDValue: Integer; function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer); procedure SetIDValue(const aValue: Integer);
@ -3138,7 +3349,7 @@ type
{ IGruposProveedor } { IGruposProveedor }
IGruposProveedor = interface(IDAStronglyTypedDataTable) IGruposProveedor = interface(IDAStronglyTypedDataTable)
['{F6DDE232-ED40-4CA1-9BD8-10EB6CF617BA}'] ['{44E24820-9866-4536-9D42-B2B56AA724B7}']
{ Property getters and setters } { Property getters and setters }
function GetIDValue: Integer; function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer); procedure SetIDValue(const aValue: Integer);
@ -3185,7 +3396,7 @@ type
{ IContactos_Refresh } { IContactos_Refresh }
IContactos_Refresh = interface(IDAStronglyTypedDataTable) IContactos_Refresh = interface(IDAStronglyTypedDataTable)
['{F7D45D6E-BD65-4037-B5B9-C66875748FFD}'] ['{3997B747-ADBE-4F01-80F9-C1D6771E4767}']
{ Property getters and setters } { Property getters and setters }
function GetIDValue: Integer; function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer); procedure SetIDValue(const aValue: Integer);
@ -4729,6 +4940,291 @@ begin
end; 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 } { TClientesDataTableRules }
constructor TClientesDataTableRules.Create(aDataTable: TDADataTable); constructor TClientesDataTableRules.Create(aDataTable: TDADataTable);
var var
@ -8207,6 +8703,7 @@ initialization
RegisterDataTableRules(RID_Contactos, TContactosDataTableRules); RegisterDataTableRules(RID_Contactos, TContactosDataTableRules);
RegisterDataTableRules(RID_GruposCliente, TGruposClienteDataTableRules); RegisterDataTableRules(RID_GruposCliente, TGruposClienteDataTableRules);
RegisterDataTableRules(RID_DatosBancarios, TDatosBancariosDataTableRules); RegisterDataTableRules(RID_DatosBancarios, TDatosBancariosDataTableRules);
RegisterDataTableRules(RID_ContactosDirecciones, TContactosDireccionesDataTableRules);
RegisterDataTableRules(RID_Clientes, TClientesDataTableRules); RegisterDataTableRules(RID_Clientes, TClientesDataTableRules);
RegisterDataTableRules(RID_Proveedores, TProveedoresDataTableRules); RegisterDataTableRules(RID_Proveedores, TProveedoresDataTableRules);
RegisterDataTableRules(RID_Vendedores, TVendedoresDataTableRules); RegisterDataTableRules(RID_Vendedores, TVendedoresDataTableRules);

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

@ -9,26 +9,27 @@ const
{ Delta rules ids { Delta rules ids
Feel free to change them to something more human readable Feel free to change them to something more human readable
but make sure they are unique in the context of your application } but make sure they are unique in the context of your application }
RID_DarEmpresasContactoDelta = '{DBBA2713-737B-4AC9-892F-A37FC4389827}'; RID_DarEmpresasContactoDelta = '{96CB4B1C-1DEA-41CA-9599-DB7C3BA0E6FB}';
RID_PersonalContactoDelta = '{51FDD65E-A087-4194-A914-E3AF3911BAC1}'; RID_PersonalContactoDelta = '{7E9E0242-BBA1-48F9-B767-9ACE52D70F22}';
RID_DarTiendaDeUsuarioDelta = '{3DE3B12D-067A-4051-B3A9-557DB22922AC}'; RID_DarTiendaDeUsuarioDelta = '{E155048E-9222-4B72-A94B-626A860172EF}';
RID_SubCuentasContactoDelta = '{36585242-DAA3-43F2-A2E4-94600AE711FD}'; RID_SubCuentasContactoDelta = '{7AF8F0AA-472D-4547-B89B-05C56748A6FF}';
RID_ContactosDelta = '{C2EB2726-2FDF-4119-A53A-EDEEC4168295}'; RID_ContactosDelta = '{323DC61F-B0F4-483D-8A02-BBE9164B3631}';
RID_GruposClienteDelta = '{E1399545-1C21-4EAF-BBC2-4EDED61BD4DA}'; RID_GruposClienteDelta = '{2E0F6E60-334C-4D8C-94D2-DA1C062375F2}';
RID_DatosBancariosDelta = '{BFB2A836-E42C-47F0-986A-86E7300C4B0F}'; RID_DatosBancariosDelta = '{72CB4C8A-90CB-4820-A7F6-C7F1D904DD46}';
RID_ClientesDelta = '{417DE556-0CAF-44C2-82CD-A5DB0E9BF54F}'; RID_ContactosDireccionesDelta = '{56AF34D7-1CD1-4C20-A29A-2803EE02F760}';
RID_ProveedoresDelta = '{56BF7615-F24A-452F-BE6D-76B7819C6098}'; RID_ClientesDelta = '{B76FF388-574F-44DE-8B67-6873377B03DB}';
RID_VendedoresDelta = '{2CA2DC31-7B3E-4942-9442-236A0AC55B44}'; RID_ProveedoresDelta = '{9ECDF72A-3474-4953-BD46-0D5144A83E05}';
RID_DireccionesContactoDelta = '{5CF44C27-79DB-4B6A-A8FC-CDB65D67955F}'; RID_VendedoresDelta = '{2DE78E52-4D45-4268-8819-9AD19A3F56EB}';
RID_ClientesDescuentosDelta = '{3EDEF6F6-D8F9-44EE-A483-BA3184E0E083}'; RID_DireccionesContactoDelta = '{E6EADB4D-1AC5-44DA-A6AC-ADA149CE45E6}';
RID_ProcedenciasClienteDelta = '{8A871918-1BBE-4D77-9BA0-558C08550237}'; RID_ClientesDescuentosDelta = '{D0580747-9AF6-4399-B984-B924BAAA9262}';
RID_GruposProveedorDelta = '{BFB686F2-C903-4C4A-A224-C638F6193ADE}'; RID_ProcedenciasClienteDelta = '{3FA9EC4E-FA9D-41B6-AAA6-1334AA57D811}';
RID_Contactos_RefreshDelta = '{B7FAD6FA-C4AF-4226-99F0-1BF341D5F444}'; RID_GruposProveedorDelta = '{732E6A61-6080-47B2-A359-A7BA6C27AAB9}';
RID_Contactos_RefreshDelta = '{B90A85AF-CE77-49A0-A466-874299F1EFD8}';
type type
{ IDarEmpresasContactoDelta } { IDarEmpresasContactoDelta }
IDarEmpresasContactoDelta = interface(IDarEmpresasContacto) IDarEmpresasContactoDelta = interface(IDarEmpresasContacto)
['{DBBA2713-737B-4AC9-892F-A37FC4389827}'] ['{96CB4B1C-1DEA-41CA-9599-DB7C3BA0E6FB}']
{ Property getters and setters } { Property getters and setters }
function GetOldID_EMPRESAValue : Integer; function GetOldID_EMPRESAValue : Integer;
@ -62,7 +63,7 @@ type
{ IPersonalContactoDelta } { IPersonalContactoDelta }
IPersonalContactoDelta = interface(IPersonalContacto) IPersonalContactoDelta = interface(IPersonalContacto)
['{51FDD65E-A087-4194-A914-E3AF3911BAC1}'] ['{7E9E0242-BBA1-48F9-B767-9ACE52D70F22}']
{ Property getters and setters } { Property getters and setters }
function GetOldIDValue : Integer; function GetOldIDValue : Integer;
function GetOldID_CONTACTOValue : Integer; function GetOldID_CONTACTOValue : Integer;
@ -204,7 +205,7 @@ type
{ IDarTiendaDeUsuarioDelta } { IDarTiendaDeUsuarioDelta }
IDarTiendaDeUsuarioDelta = interface(IDarTiendaDeUsuario) IDarTiendaDeUsuarioDelta = interface(IDarTiendaDeUsuario)
['{3DE3B12D-067A-4051-B3A9-557DB22922AC}'] ['{E155048E-9222-4B72-A94B-626A860172EF}']
{ Property getters and setters } { Property getters and setters }
function GetOldID_TIENDAValue : Integer; function GetOldID_TIENDAValue : Integer;
@ -238,7 +239,7 @@ type
{ ISubCuentasContactoDelta } { ISubCuentasContactoDelta }
ISubCuentasContactoDelta = interface(ISubCuentasContacto) ISubCuentasContactoDelta = interface(ISubCuentasContacto)
['{36585242-DAA3-43F2-A2E4-94600AE711FD}'] ['{7AF8F0AA-472D-4547-B89B-05C56748A6FF}']
{ Property getters and setters } { Property getters and setters }
function GetOldIDValue : Integer; function GetOldIDValue : Integer;
function GetOldREF_SUBCUENTAValue : String; function GetOldREF_SUBCUENTAValue : String;
@ -332,7 +333,7 @@ type
{ IContactosDelta } { IContactosDelta }
IContactosDelta = interface(IContactos) IContactosDelta = interface(IContactos)
['{C2EB2726-2FDF-4119-A53A-EDEEC4168295}'] ['{323DC61F-B0F4-483D-8A02-BBE9164B3631}']
{ Property getters and setters } { Property getters and setters }
function GetOldIDValue : Integer; function GetOldIDValue : Integer;
function GetOldID_CATEGORIAValue : Integer; function GetOldID_CATEGORIAValue : Integer;
@ -655,7 +656,7 @@ type
{ IGruposClienteDelta } { IGruposClienteDelta }
IGruposClienteDelta = interface(IGruposCliente) IGruposClienteDelta = interface(IGruposCliente)
['{E1399545-1C21-4EAF-BBC2-4EDED61BD4DA}'] ['{2E0F6E60-334C-4D8C-94D2-DA1C062375F2}']
{ Property getters and setters } { Property getters and setters }
function GetOldIDValue : Integer; function GetOldIDValue : Integer;
function GetOldDESCRIPCIONValue : String; function GetOldDESCRIPCIONValue : String;
@ -701,7 +702,7 @@ type
{ IDatosBancariosDelta } { IDatosBancariosDelta }
IDatosBancariosDelta = interface(IDatosBancarios) IDatosBancariosDelta = interface(IDatosBancarios)
['{BFB2A836-E42C-47F0-986A-86E7300C4B0F}'] ['{72CB4C8A-90CB-4820-A7F6-C7F1D904DD46}']
{ Property getters and setters } { Property getters and setters }
function GetOldIDValue : Integer; function GetOldIDValue : Integer;
function GetOldID_CONTACTOValue : Integer; function GetOldID_CONTACTOValue : Integer;
@ -853,9 +854,187 @@ type
end; 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 }
IClientesDelta = interface(IClientes) IClientesDelta = interface(IClientes)
['{417DE556-0CAF-44C2-82CD-A5DB0E9BF54F}'] ['{B76FF388-574F-44DE-8B67-6873377B03DB}']
{ Property getters and setters } { Property getters and setters }
function GetOldIDValue : Integer; function GetOldIDValue : Integer;
function GetOldID_CATEGORIAValue : Integer; function GetOldID_CATEGORIAValue : Integer;
@ -1394,7 +1573,7 @@ type
{ IProveedoresDelta } { IProveedoresDelta }
IProveedoresDelta = interface(IProveedores) IProveedoresDelta = interface(IProveedores)
['{56BF7615-F24A-452F-BE6D-76B7819C6098}'] ['{9ECDF72A-3474-4953-BD46-0D5144A83E05}']
{ Property getters and setters } { Property getters and setters }
function GetOldIDValue : Integer; function GetOldIDValue : Integer;
function GetOldID_CATEGORIAValue : Integer; function GetOldID_CATEGORIAValue : Integer;
@ -1921,7 +2100,7 @@ type
{ IVendedoresDelta } { IVendedoresDelta }
IVendedoresDelta = interface(IVendedores) IVendedoresDelta = interface(IVendedores)
['{2CA2DC31-7B3E-4942-9442-236A0AC55B44}'] ['{2DE78E52-4D45-4268-8819-9AD19A3F56EB}']
{ Property getters and setters } { Property getters and setters }
function GetOldIDValue : Integer; function GetOldIDValue : Integer;
function GetOldID_CATEGORIAValue : Integer; function GetOldID_CATEGORIAValue : Integer;
@ -2268,7 +2447,7 @@ type
{ IDireccionesContactoDelta } { IDireccionesContactoDelta }
IDireccionesContactoDelta = interface(IDireccionesContacto) IDireccionesContactoDelta = interface(IDireccionesContacto)
['{5CF44C27-79DB-4B6A-A8FC-CDB65D67955F}'] ['{E6EADB4D-1AC5-44DA-A6AC-ADA149CE45E6}']
{ Property getters and setters } { Property getters and setters }
function GetOldIDValue : Integer; function GetOldIDValue : Integer;
function GetOldID_CONTACTOValue : Integer; function GetOldID_CONTACTOValue : Integer;
@ -2495,7 +2674,7 @@ type
{ IClientesDescuentosDelta } { IClientesDescuentosDelta }
IClientesDescuentosDelta = interface(IClientesDescuentos) IClientesDescuentosDelta = interface(IClientesDescuentos)
['{3EDEF6F6-D8F9-44EE-A483-BA3184E0E083}'] ['{D0580747-9AF6-4399-B984-B924BAAA9262}']
{ Property getters and setters } { Property getters and setters }
function GetOldIDValue : Integer; function GetOldIDValue : Integer;
function GetOldID_CLIENTEValue : Integer; function GetOldID_CLIENTEValue : Integer;
@ -2577,7 +2756,7 @@ type
{ IProcedenciasClienteDelta } { IProcedenciasClienteDelta }
IProcedenciasClienteDelta = interface(IProcedenciasCliente) IProcedenciasClienteDelta = interface(IProcedenciasCliente)
['{8A871918-1BBE-4D77-9BA0-558C08550237}'] ['{3FA9EC4E-FA9D-41B6-AAA6-1334AA57D811}']
{ Property getters and setters } { Property getters and setters }
function GetOldIDValue : Integer; function GetOldIDValue : Integer;
function GetOldDESCRIPCIONValue : String; function GetOldDESCRIPCIONValue : String;
@ -2623,7 +2802,7 @@ type
{ IGruposProveedorDelta } { IGruposProveedorDelta }
IGruposProveedorDelta = interface(IGruposProveedor) IGruposProveedorDelta = interface(IGruposProveedor)
['{BFB686F2-C903-4C4A-A224-C638F6193ADE}'] ['{732E6A61-6080-47B2-A359-A7BA6C27AAB9}']
{ Property getters and setters } { Property getters and setters }
function GetOldIDValue : Integer; function GetOldIDValue : Integer;
function GetOldDESCRIPCIONValue : String; function GetOldDESCRIPCIONValue : String;
@ -2669,7 +2848,7 @@ type
{ IContactos_RefreshDelta } { IContactos_RefreshDelta }
IContactos_RefreshDelta = interface(IContactos_Refresh) IContactos_RefreshDelta = interface(IContactos_Refresh)
['{B7FAD6FA-C4AF-4226-99F0-1BF341D5F444}'] ['{B90A85AF-CE77-49A0-A466-874299F1EFD8}']
{ Property getters and setters } { Property getters and setters }
function GetOldIDValue : Integer; function GetOldIDValue : Integer;
function GetOldNIF_CIFValue : String; function GetOldNIF_CIFValue : String;
@ -4775,6 +4954,421 @@ begin
end; 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 } { TClientesBusinessProcessorRules }
constructor TClientesBusinessProcessorRules.Create(aBusinessProcessor: TDABusinessProcessor); constructor TClientesBusinessProcessorRules.Create(aBusinessProcessor: TDABusinessProcessor);
var var
@ -9848,6 +10442,7 @@ initialization
RegisterBusinessProcessorRules(RID_ContactosDelta, TContactosBusinessProcessorRules); RegisterBusinessProcessorRules(RID_ContactosDelta, TContactosBusinessProcessorRules);
RegisterBusinessProcessorRules(RID_GruposClienteDelta, TGruposClienteBusinessProcessorRules); RegisterBusinessProcessorRules(RID_GruposClienteDelta, TGruposClienteBusinessProcessorRules);
RegisterBusinessProcessorRules(RID_DatosBancariosDelta, TDatosBancariosBusinessProcessorRules); RegisterBusinessProcessorRules(RID_DatosBancariosDelta, TDatosBancariosBusinessProcessorRules);
RegisterBusinessProcessorRules(RID_ContactosDireccionesDelta, TContactosDireccionesBusinessProcessorRules);
RegisterBusinessProcessorRules(RID_ClientesDelta, TClientesBusinessProcessorRules); RegisterBusinessProcessorRules(RID_ClientesDelta, TClientesBusinessProcessorRules);
RegisterBusinessProcessorRules(RID_ProveedoresDelta, TProveedoresBusinessProcessorRules); RegisterBusinessProcessorRules(RID_ProveedoresDelta, TProveedoresBusinessProcessorRules);
RegisterBusinessProcessorRules(RID_VendedoresDelta, TVendedoresBusinessProcessorRules); 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 Size = 255
end> end>
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 item
Params = <> Params = <>
Statements = < Statements = <

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

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

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

@ -67,6 +67,7 @@ type
function DarListaAnosContratos: TStringList; function DarListaAnosContratos: TStringList;
procedure FiltrarAno(AContrato: IBizContratoCliente; ADynWhereDataTable: WideString; const Ano: String); procedure FiltrarAno(AContrato: IBizContratoCliente; ADynWhereDataTable: WideString; const Ano: String);
procedure VerListadoBeneficios; procedure VerListadoBeneficios;
procedure VerDireccionEntrega(AContrato : IBizContratoCliente);
end; end;
TContratosClienteController = class(TControllerBase, IContratosClienteController) TContratosClienteController = class(TControllerBase, IContratosClienteController)
@ -144,6 +145,7 @@ type
function DarListaAnosContratos: TStringList; function DarListaAnosContratos: TStringList;
procedure FiltrarAno(AContrato: IBizContratoCliente; ADynWhereDataTable: WideString; const Ano: String); procedure FiltrarAno(AContrato: IBizContratoCliente; ADynWhereDataTable: WideString; const Ano: String);
procedure VerListadoBeneficios; procedure VerListadoBeneficios;
procedure VerDireccionEntrega(AContrato : IBizContratoCliente);
end; end;
implementation implementation
@ -512,6 +514,24 @@ begin
end; end;
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; procedure TContratosClienteController.VerListadoBeneficios;
var var
AContratosClienteBeneficios: IBizContratosClienteBeneficios; AContratosClienteBeneficios: IBizContratosClienteBeneficios;

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

@ -339,6 +339,45 @@ inherited DataModuleContratosCliente: TDataModuleContratosCliente
item item
Name = 'PRECIO_PUNTO' Name = 'PRECIO_PUNTO'
DataType = datCurrency 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>
Params = <> Params = <>
StreamingOptions = [soDisableEventsWhileStreaming] StreamingOptions = [soDisableEventsWhileStreaming]

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

@ -9,13 +9,13 @@ const
{ Data table rules ids { Data table rules ids
Feel free to change them to something more human readable Feel free to change them to something more human readable
but make sure they are unique in the context of your application } but make sure they are unique in the context of your application }
RID_Valores = '{39510FE4-7F74-401D-869E-CFB507479067}'; RID_Valores = '{98AF2F15-AC1C-4F59-991B-34089BDDC840}';
RID_Propiedades = '{949B514D-468F-4D4D-B429-C68FC2863BD6}'; RID_Propiedades = '{0DB1A888-E1A8-4A65-AB62-3C7EFEAB8F69}';
RID_ListaAnosContratos = '{572F77CB-74C7-4CC7-B2C7-AB76992CC0D9}'; RID_ListaAnosContratos = '{0E2B9164-2FB9-4B39-8FBC-6BE3D336B48C}';
RID_ContratosClienteBeneficios = '{BC4D5A2E-FD5F-4BB9-BCDF-D54933C6255C}'; RID_ContratosClienteBeneficios = '{5E784AF4-01EC-4DF6-8ADC-73278CAE3BF8}';
RID_ContratosCliente = '{F7738525-8BBC-463A-A369-81EA51C10BE0}'; RID_ContratosCliente = '{EB63D7F9-FAFD-4229-82FB-2D186699CA34}';
RID_TiposCapitulos = '{A72F947C-5A9B-49F6-9378-B3D4AB9960DD}'; RID_TiposCapitulos = '{67FCFC6C-9C96-4AC1-9F7A-DBEE94850F21}';
RID_ContratosCliente_Detalles = '{5D8BC29D-E34D-4E9F-B9A2-A7F2BC896C6C}'; RID_ContratosCliente_Detalles = '{D725D49A-4F2C-4F00-8096-0D5F8B154ED0}';
{ Data table names } { Data table names }
nme_Valores = 'Valores'; nme_Valores = 'Valores';
@ -136,6 +136,14 @@ const
fld_ContratosClienteREFERENCIA_CLIENTE = 'REFERENCIA_CLIENTE'; fld_ContratosClienteREFERENCIA_CLIENTE = 'REFERENCIA_CLIENTE';
fld_ContratosClienteFACTURA_ASOCIADA = 'FACTURA_ASOCIADA'; fld_ContratosClienteFACTURA_ASOCIADA = 'FACTURA_ASOCIADA';
fld_ContratosClientePRECIO_PUNTO = 'PRECIO_PUNTO'; 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 } { ContratosCliente field indexes }
idx_ContratosClienteID = 0; idx_ContratosClienteID = 0;
@ -187,6 +195,14 @@ const
idx_ContratosClienteREFERENCIA_CLIENTE = 46; idx_ContratosClienteREFERENCIA_CLIENTE = 46;
idx_ContratosClienteFACTURA_ASOCIADA = 47; idx_ContratosClienteFACTURA_ASOCIADA = 47;
idx_ContratosClientePRECIO_PUNTO = 48; 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 } { TiposCapitulos fields }
fld_TiposCapitulosID = 'ID'; fld_TiposCapitulosID = 'ID';
@ -245,7 +261,7 @@ const
type type
{ IValores } { IValores }
IValores = interface(IDAStronglyTypedDataTable) IValores = interface(IDAStronglyTypedDataTable)
['{DACA7BC8-C413-4082-886E-6F0C503F6132}'] ['{CAC51712-8DE1-46A2-AA4D-4AF8BB9C0CBD}']
{ Property getters and setters } { Property getters and setters }
function GetIDValue: Integer; function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer); procedure SetIDValue(const aValue: Integer);
@ -304,7 +320,7 @@ type
{ IPropiedades } { IPropiedades }
IPropiedades = interface(IDAStronglyTypedDataTable) IPropiedades = interface(IDAStronglyTypedDataTable)
['{F590BA10-8F0F-4365-9A7E-DF735A6D7F37}'] ['{F3CF2F1F-2B05-40E6-B2FF-68123C0565E4}']
{ Property getters and setters } { Property getters and setters }
function GetIDValue: Integer; function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer); procedure SetIDValue(const aValue: Integer);
@ -363,7 +379,7 @@ type
{ IListaAnosContratos } { IListaAnosContratos }
IListaAnosContratos = interface(IDAStronglyTypedDataTable) IListaAnosContratos = interface(IDAStronglyTypedDataTable)
['{5BA2BF07-C795-41F5-9D37-F256F7453892}'] ['{2DB80898-DEE3-4EA1-9BAA-04A1CBD9CB04}']
{ Property getters and setters } { Property getters and setters }
function GetANOValue: String; function GetANOValue: String;
procedure SetANOValue(const aValue: String); procedure SetANOValue(const aValue: String);
@ -398,7 +414,7 @@ type
{ IContratosClienteBeneficios } { IContratosClienteBeneficios }
IContratosClienteBeneficios = interface(IDAStronglyTypedDataTable) IContratosClienteBeneficios = interface(IDAStronglyTypedDataTable)
['{A9D1988D-0E6E-4C26-8A9D-B4FAC07DF3B3}'] ['{6AC20789-FF7D-4A25-803D-2AD9D912D314}']
{ Property getters and setters } { Property getters and setters }
function GetIDValue: Integer; function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer); procedure SetIDValue(const aValue: Integer);
@ -601,7 +617,7 @@ type
{ IContratosCliente } { IContratosCliente }
IContratosCliente = interface(IDAStronglyTypedDataTable) IContratosCliente = interface(IDAStronglyTypedDataTable)
['{3B5E86A1-8DC4-4855-B315-0FBCF8D81EC3}'] ['{9AD248D1-FF4C-4511-AEA7-8FD929DCC8B4}']
{ Property getters and setters } { Property getters and setters }
function GetIDValue: Integer; function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer); procedure SetIDValue(const aValue: Integer);
@ -795,6 +811,38 @@ type
procedure SetPRECIO_PUNTOValue(const aValue: Currency); procedure SetPRECIO_PUNTOValue(const aValue: Currency);
function GetPRECIO_PUNTOIsNull: Boolean; function GetPRECIO_PUNTOIsNull: Boolean;
procedure SetPRECIO_PUNTOIsNull(const aValue: Boolean); procedure SetPRECIO_PUNTOIsNull(const aValue: Boolean);
function GetID_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 } { Properties }
@ -896,6 +944,22 @@ type
property FACTURA_ASOCIADAIsNull: Boolean read GetFACTURA_ASOCIADAIsNull write SetFACTURA_ASOCIADAIsNull; property FACTURA_ASOCIADAIsNull: Boolean read GetFACTURA_ASOCIADAIsNull write SetFACTURA_ASOCIADAIsNull;
property PRECIO_PUNTO: Currency read GetPRECIO_PUNTOValue write SetPRECIO_PUNTOValue; property PRECIO_PUNTO: Currency read GetPRECIO_PUNTOValue write SetPRECIO_PUNTOValue;
property PRECIO_PUNTOIsNull: Boolean read GetPRECIO_PUNTOIsNull write SetPRECIO_PUNTOIsNull; property PRECIO_PUNTOIsNull: Boolean read GetPRECIO_PUNTOIsNull write SetPRECIO_PUNTOIsNull;
property ID_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; end;
{ TContratosClienteDataTableRules } { TContratosClienteDataTableRules }
@ -1103,6 +1167,38 @@ type
procedure SetPRECIO_PUNTOValue(const aValue: Currency); virtual; procedure SetPRECIO_PUNTOValue(const aValue: Currency); virtual;
function GetPRECIO_PUNTOIsNull: Boolean; virtual; function GetPRECIO_PUNTOIsNull: Boolean; virtual;
procedure SetPRECIO_PUNTOIsNull(const aValue: Boolean); virtual; procedure SetPRECIO_PUNTOIsNull(const aValue: Boolean); virtual;
function GetID_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 } { Properties }
property ID: Integer read GetIDValue write SetIDValue; property ID: Integer read GetIDValue write SetIDValue;
@ -1203,6 +1299,22 @@ type
property FACTURA_ASOCIADAIsNull: Boolean read GetFACTURA_ASOCIADAIsNull write SetFACTURA_ASOCIADAIsNull; property FACTURA_ASOCIADAIsNull: Boolean read GetFACTURA_ASOCIADAIsNull write SetFACTURA_ASOCIADAIsNull;
property PRECIO_PUNTO: Currency read GetPRECIO_PUNTOValue write SetPRECIO_PUNTOValue; property PRECIO_PUNTO: Currency read GetPRECIO_PUNTOValue write SetPRECIO_PUNTOValue;
property PRECIO_PUNTOIsNull: Boolean read GetPRECIO_PUNTOIsNull write SetPRECIO_PUNTOIsNull; property PRECIO_PUNTOIsNull: Boolean read GetPRECIO_PUNTOIsNull write SetPRECIO_PUNTOIsNull;
property ID_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 public
constructor Create(aDataTable: TDADataTable); override; constructor Create(aDataTable: TDADataTable); override;
@ -1215,7 +1327,7 @@ type
} }
{ ITiposCapitulos } { ITiposCapitulos }
ITiposCapitulos = interface(IDAStronglyTypedDataTable) ITiposCapitulos = interface(IDAStronglyTypedDataTable)
['{F5C50F18-6FCD-4CFB-B113-37B7E7DF49EA}'] ['{66A7A333-E4FE-45F5-81DB-5DDEA7E959D2}']
{ Property getters and setters } { Property getters and setters }
function GetIDValue: Integer; function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer); procedure SetIDValue(const aValue: Integer);
@ -1310,7 +1422,7 @@ type
{ IContratosCliente_Detalles } { IContratosCliente_Detalles }
IContratosCliente_Detalles = interface(IDAStronglyTypedDataTable) IContratosCliente_Detalles = interface(IDAStronglyTypedDataTable)
['{F97E04B7-9F8E-4D8B-A7ED-A52270F5EA78}'] ['{BD95350A-17BA-4064-B69D-71BD4D5EE1A2}']
{ Property getters and setters } { Property getters and setters }
function GetIDValue: Integer; function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer); procedure SetIDValue(const aValue: Integer);
@ -3111,6 +3223,174 @@ begin
DataTable.Fields[idx_ContratosClientePRECIO_PUNTO].AsVariant := Null; DataTable.Fields[idx_ContratosClientePRECIO_PUNTO].AsVariant := Null;
end; 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 } { TTiposCapitulosDataTableRules }
constructor TTiposCapitulosDataTableRules.Create(aDataTable: TDADataTable); 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 { Delta rules ids
Feel free to change them to something more human readable Feel free to change them to something more human readable
but make sure they are unique in the context of your application } but make sure they are unique in the context of your application }
RID_ValoresDelta = '{36B2FC47-3E94-4865-ADC3-F178179AAB85}'; RID_ValoresDelta = '{DF9F3249-76D6-47EB-8059-2FB7B3D10819}';
RID_PropiedadesDelta = '{0D138196-3D19-4B50-B1F9-67D1EDB88CB9}'; RID_PropiedadesDelta = '{A8C14BD7-96F7-4FC7-989D-D32E96E5BF48}';
RID_ListaAnosContratosDelta = '{FEA3D163-003E-4AC2-80A1-C033004D4731}'; RID_ListaAnosContratosDelta = '{2F375EE3-7643-43E8-8802-1791D5CE327E}';
RID_ContratosClienteBeneficiosDelta = '{5CA6EE91-2CB4-41F2-AAC7-EF21E9C4D413}'; RID_ContratosClienteBeneficiosDelta = '{54524D5A-69D5-4BFB-B1B3-7B9EB30EF864}';
RID_ContratosClienteDelta = '{CFB27238-CC03-4AC2-80C9-1B708AF2D31F}'; RID_ContratosClienteDelta = '{3334F1BC-133A-4AAC-B21F-36EA02ABBB1B}';
RID_TiposCapitulosDelta = '{DA155785-C0DC-4EB9-8F68-02DFFB2E8957}'; RID_TiposCapitulosDelta = '{9DA01C84-68F5-4229-A448-1FE4ADE133CD}';
RID_ContratosCliente_DetallesDelta = '{EDBFF95D-01E7-4770-AE40-78C7BC8FAA75}'; RID_ContratosCliente_DetallesDelta = '{F6F1854C-A1B7-4012-B2AC-BC1674E0C469}';
type type
{ IValoresDelta } { IValoresDelta }
IValoresDelta = interface(IValores) IValoresDelta = interface(IValores)
['{36B2FC47-3E94-4865-ADC3-F178179AAB85}'] ['{DF9F3249-76D6-47EB-8059-2FB7B3D10819}']
{ Property getters and setters } { Property getters and setters }
function GetOldIDValue : Integer; function GetOldIDValue : Integer;
function GetOldID_PROPIEDADValue : Integer; function GetOldID_PROPIEDADValue : Integer;
@ -78,7 +78,7 @@ type
{ IPropiedadesDelta } { IPropiedadesDelta }
IPropiedadesDelta = interface(IPropiedades) IPropiedadesDelta = interface(IPropiedades)
['{0D138196-3D19-4B50-B1F9-67D1EDB88CB9}'] ['{A8C14BD7-96F7-4FC7-989D-D32E96E5BF48}']
{ Property getters and setters } { Property getters and setters }
function GetOldIDValue : Integer; function GetOldIDValue : Integer;
function GetOldDESCRIPCIONValue : String; function GetOldDESCRIPCIONValue : String;
@ -136,7 +136,7 @@ type
{ IListaAnosContratosDelta } { IListaAnosContratosDelta }
IListaAnosContratosDelta = interface(IListaAnosContratos) IListaAnosContratosDelta = interface(IListaAnosContratos)
['{FEA3D163-003E-4AC2-80A1-C033004D4731}'] ['{2F375EE3-7643-43E8-8802-1791D5CE327E}']
{ Property getters and setters } { Property getters and setters }
function GetOldANOValue : String; function GetOldANOValue : String;
@ -170,7 +170,7 @@ type
{ IContratosClienteBeneficiosDelta } { IContratosClienteBeneficiosDelta }
IContratosClienteBeneficiosDelta = interface(IContratosClienteBeneficios) IContratosClienteBeneficiosDelta = interface(IContratosClienteBeneficios)
['{5CA6EE91-2CB4-41F2-AAC7-EF21E9C4D413}'] ['{54524D5A-69D5-4BFB-B1B3-7B9EB30EF864}']
{ Property getters and setters } { Property getters and setters }
function GetOldIDValue : Integer; function GetOldIDValue : Integer;
function GetOldREFERENCIAValue : String; function GetOldREFERENCIAValue : String;
@ -372,7 +372,7 @@ type
{ IContratosClienteDelta } { IContratosClienteDelta }
IContratosClienteDelta = interface(IContratosCliente) IContratosClienteDelta = interface(IContratosCliente)
['{CFB27238-CC03-4AC2-80C9-1B708AF2D31F}'] ['{3334F1BC-133A-4AAC-B21F-36EA02ABBB1B}']
{ Property getters and setters } { Property getters and setters }
function GetOldIDValue : Integer; function GetOldIDValue : Integer;
function GetOldID_EMPRESAValue : Integer; function GetOldID_EMPRESAValue : Integer;
@ -423,6 +423,14 @@ type
function GetOldREFERENCIA_CLIENTEValue : String; function GetOldREFERENCIA_CLIENTEValue : String;
function GetOldFACTURA_ASOCIADAValue : String; function GetOldFACTURA_ASOCIADAValue : String;
function GetOldPRECIO_PUNTOValue : Currency; 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 } { Properties }
property OldID : Integer read GetOldIDValue; property OldID : Integer read GetOldIDValue;
@ -474,6 +482,14 @@ type
property OldREFERENCIA_CLIENTE : String read GetOldREFERENCIA_CLIENTEValue; property OldREFERENCIA_CLIENTE : String read GetOldREFERENCIA_CLIENTEValue;
property OldFACTURA_ASOCIADA : String read GetOldFACTURA_ASOCIADAValue; property OldFACTURA_ASOCIADA : String read GetOldFACTURA_ASOCIADAValue;
property OldPRECIO_PUNTO : Currency read GetOldPRECIO_PUNTOValue; 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; end;
{ TContratosClienteBusinessProcessorRules } { TContratosClienteBusinessProcessorRules }
@ -779,6 +795,54 @@ type
function GetOldPRECIO_PUNTOIsNull: Boolean; virtual; function GetOldPRECIO_PUNTOIsNull: Boolean; virtual;
procedure SetPRECIO_PUNTOValue(const aValue: Currency); virtual; procedure SetPRECIO_PUNTOValue(const aValue: Currency); virtual;
procedure SetPRECIO_PUNTOIsNull(const aValue: Boolean); virtual; procedure SetPRECIO_PUNTOIsNull(const aValue: Boolean); virtual;
function GetID_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 } { Properties }
property ID : Integer read GetIDValue write SetIDValue; property ID : Integer read GetIDValue write SetIDValue;
@ -977,6 +1041,38 @@ type
property PRECIO_PUNTOIsNull : Boolean read GetPRECIO_PUNTOIsNull write SetPRECIO_PUNTOIsNull; property PRECIO_PUNTOIsNull : Boolean read GetPRECIO_PUNTOIsNull write SetPRECIO_PUNTOIsNull;
property OldPRECIO_PUNTO : Currency read GetOldPRECIO_PUNTOValue; property OldPRECIO_PUNTO : Currency read GetOldPRECIO_PUNTOValue;
property OldPRECIO_PUNTOIsNull : Boolean read GetOldPRECIO_PUNTOIsNull; property OldPRECIO_PUNTOIsNull : Boolean read GetOldPRECIO_PUNTOIsNull;
property ID_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 public
constructor Create(aBusinessProcessor: TDABusinessProcessor); override; constructor Create(aBusinessProcessor: TDABusinessProcessor); override;
@ -986,7 +1082,7 @@ type
{ ITiposCapitulosDelta } { ITiposCapitulosDelta }
ITiposCapitulosDelta = interface(ITiposCapitulos) ITiposCapitulosDelta = interface(ITiposCapitulos)
['{DA155785-C0DC-4EB9-8F68-02DFFB2E8957}'] ['{9DA01C84-68F5-4229-A448-1FE4ADE133CD}']
{ Property getters and setters } { Property getters and setters }
function GetOldIDValue : Integer; function GetOldIDValue : Integer;
function GetOldPOSICIONValue : Integer; function GetOldPOSICIONValue : Integer;
@ -1080,7 +1176,7 @@ type
{ IContratosCliente_DetallesDelta } { IContratosCliente_DetallesDelta }
IContratosCliente_DetallesDelta = interface(IContratosCliente_Detalles) IContratosCliente_DetallesDelta = interface(IContratosCliente_Detalles)
['{EDBFF95D-01E7-4770-AE40-78C7BC8FAA75}'] ['{F6F1854C-A1B7-4012-B2AC-BC1674E0C469}']
{ Property getters and setters } { Property getters and setters }
function GetOldIDValue : Integer; function GetOldIDValue : Integer;
function GetOldID_CONTRATOValue : Integer; function GetOldID_CONTRATOValue : Integer;
@ -3595,6 +3691,254 @@ begin
BusinessProcessor.CurrentChange.NewValueByName[fld_ContratosClientePRECIO_PUNTO] := Null; BusinessProcessor.CurrentChange.NewValueByName[fld_ContratosClientePRECIO_PUNTO] := Null;
end; 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 } { TTiposCapitulosBusinessProcessorRules }
constructor TTiposCapitulosBusinessProcessorRules.Create(aBusinessProcessor: TDABusinessProcessor); constructor TTiposCapitulosBusinessProcessorRules.Create(aBusinessProcessor: TDABusinessProcessor);

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

@ -106,7 +106,7 @@ type
implementation implementation
uses uses
SysUtils, Variants, uDataModuleConfiguracion, uDataModuleUsuarios, Dialogs, SysUtils, Variants, uDataModuleConfiguracion, uDataModuleUsuarios, Dialogs, uNumutils,
uDataTableUtils, DateUtils, uDateUtils, DB, uFactuGES_App, uTiposIVAController, uDataTableUtils, DateUtils, uDateUtils, DB, uFactuGES_App, uTiposIVAController,
uBizTiposIVA, uVendedoresController; uBizTiposIVA, uVendedoresController;
@ -141,7 +141,7 @@ procedure TBizContratoCliente.CalcularBaseImponible;
begin begin
if not Self.DataTable.Editing then if not Self.DataTable.Editing then
Edit; Edit;
IMPORTE_DESCUENTO := IMPORTE_NETO * (DESCUENTO/100); IMPORTE_DESCUENTO := roundCurrency(IMPORTE_NETO * (DESCUENTO/100));
BASE_IMPONIBLE := IMPORTE_NETO - IMPORTE_DESCUENTO + IMPORTE_PORTE; BASE_IMPONIBLE := IMPORTE_NETO - IMPORTE_DESCUENTO + IMPORTE_PORTE;
end; end;
@ -156,7 +156,7 @@ begin
if not Self.DataTable.Editing then if not Self.DataTable.Editing then
Edit; Edit;
IMPORTE_TOTAL := BASE_IMPONIBLE + IMPORTE_IVA + IMPORTE_RE; IMPORTE_TOTAL := roundCurrency(BASE_IMPONIBLE + IMPORTE_IVA + IMPORTE_RE);
finally finally
DataTable.Fields.FieldEventsDisabled := False; DataTable.Fields.FieldEventsDisabled := False;
DataTable.EnableControls; DataTable.EnableControls;
@ -167,14 +167,14 @@ procedure TBizContratoCliente.CalcularIVA;
begin begin
if not Self.DataTable.Editing then if not Self.DataTable.Editing then
Edit; Edit;
IMPORTE_IVA := (IVA / 100) * (BASE_IMPONIBLE); IMPORTE_IVA := roundCurrency((IVA / 100) * (BASE_IMPONIBLE));
end; end;
procedure TBizContratoCliente.CalcularRE; procedure TBizContratoCliente.CalcularRE;
begin begin
if not Self.DataTable.Editing then if not Self.DataTable.Editing then
Edit; Edit;
IMPORTE_RE := (RE / 100) * BASE_IMPONIBLE; IMPORTE_RE := roundCurrency((RE / 100) * BASE_IMPONIBLE);
end; end;
constructor TBizContratoCliente.Create(aDataTable: TDADataTable); constructor TBizContratoCliente.Create(aDataTable: TDADataTable);
@ -259,6 +259,7 @@ begin
// PRECIO_PUNTO := AppFactuGES.EmpresaActiva.PRECIO_PUNTO; // PRECIO_PUNTO := AppFactuGES.EmpresaActiva.PRECIO_PUNTO;
FECHA_CONTRATO := DateOf(Date); FECHA_CONTRATO := DateOf(Date);
ID_DIRECCION_ENVIO := 0;
INCIDENCIAS_ACTIVAS := 0; INCIDENCIAS_ACTIVAS := 0;
RE := 0; RE := 0;
@ -268,6 +269,7 @@ begin
ID_TIENDA := AppFactuGES.TiendaActiva.ID; ID_TIENDA := AppFactuGES.TiendaActiva.ID;
TIENDA := AppFactuGES.TiendaActiva.NOMBRE; TIENDA := AppFactuGES.TiendaActiva.NOMBRE;
// Self.DataTable.FieldByName(fld_ContratosClienteFORMA_PAGO).AsString := AppFactuGES.FormaPagoDocumentos; // Self.DataTable.FieldByName(fld_ContratosClienteFORMA_PAGO).AsString := AppFactuGES.FormaPagoDocumentos;
// Self.DataTable.FieldByName(fld_ContratosClienteOBSERVACIONES).AsString := AppFactuGES.ObservacionesDocumentos; // Self.DataTable.FieldByName(fld_ContratosClienteOBSERVACIONES).AsString := AppFactuGES.ObservacionesDocumentos;
@ -346,6 +348,15 @@ begin
TELEFONO := FCliente.TELEFONO_1; TELEFONO := FCliente.TELEFONO_1;
MOVIL := FCliente.MOVIL_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 // 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 // if FCliente.ID_FORMA_PAGO > 0 then
// ID_FORMA_PAGO := FCliente.ID_FORMA_PAGO; // 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' + 'S_CLIENTE.CODIGO_POSTAL,'#10' V_CONTRATOS_CLIENTE.TELEFONO,'#10' V' +
'_CONTRATOS_CLIENTE.MOVIL,'#10' V_CONTRATOS_CLIENTE.IMPORTE_IVA, V' + '_CONTRATOS_CLIENTE.MOVIL,'#10' V_CONTRATOS_CLIENTE.IMPORTE_IVA, V' +
'_CONTRATOS_CLIENTE.IMPORTE_TOTAL,'#10' V_CONTRATOS_CLIENTE.PERSON' + '_CONTRATOS_CLIENTE.IMPORTE_TOTAL,'#10' V_CONTRATOS_CLIENTE.PERSON' +
'A_CONTACTO,'#10' V_CONTRATOS_CLIENTE.VENDEDOR'#10'FROM'#10' V_CONTRATO' + 'A_CONTACTO,'#10' V_CONTRATOS_CLIENTE.VENDEDOR,'#10' V_CONTRATOS_CL' +
'S_CLIENTE'#10'WHERE'#10' V_CONTRATOS_CLIENTE.ID = :ID'#10 '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 StatementType = stSQL
ColumnMappings = < ColumnMappings = <
item item
@ -351,6 +356,38 @@ object RptContratosCliente: TRptContratosCliente
item item
DatasetField = 'REFERENCIA_CLIENTE' DatasetField = 'REFERENCIA_CLIENTE'
TableField = '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>
end> end>
Name = 'Informe_Cabecera' Name = 'Informe_Cabecera'
@ -487,6 +524,45 @@ object RptContratosCliente: TRptContratosCliente
Name = 'VENDEDOR' Name = 'VENDEDOR'
DataType = datString DataType = datString
Size = 255 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> end>
ReadOnly = True ReadOnly = True
end end
@ -858,7 +934,7 @@ object RptContratosCliente: TRptContratosCliente
PrintOptions.Printer = 'Por defecto' PrintOptions.Printer = 'Por defecto'
PrintOptions.PrintOnSheet = 0 PrintOptions.PrintOnSheet = 0
ReportOptions.CreateDate = 39065.872423495400000000 ReportOptions.CreateDate = 39065.872423495400000000
ReportOptions.LastChange = 41411.575288125000000000 ReportOptions.LastChange = 44175.744154942130000000
ScriptLanguage = 'PascalScript' ScriptLanguage = 'PascalScript'
ShowProgress = False ShowProgress = False
StoreInDFM = False StoreInDFM = False

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

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

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

@ -88,11 +88,12 @@ contains
uViewElegirArticulosContratosCliente in 'uViewElegirArticulosContratosCliente.pas' {frViewElegirArticulosContratosCliente: TFrame}, uViewElegirArticulosContratosCliente in 'uViewElegirArticulosContratosCliente.pas' {frViewElegirArticulosContratosCliente: TFrame},
uEditorElegirArticulosContratoCliente in 'uEditorElegirArticulosContratoCliente.pas' {fEditorElegirArticulosContratoCliente: TfEditorElegirArticulosPedidoCliente}, uEditorElegirArticulosContratoCliente in 'uEditorElegirArticulosContratoCliente.pas' {fEditorElegirArticulosContratoCliente: TfEditorElegirArticulosPedidoCliente},
uEditorContratosClienteReport in 'uEditorContratosClienteReport.pas' {fEditorContratosClientePreview: TfEditorPedidosClientePreview}, uEditorContratosClienteReport in 'uEditorContratosClienteReport.pas' {fEditorContratosClientePreview: TfEditorPedidosClientePreview},
uViewDireccionEntregaContratoCliente in 'uViewDireccionEntregaContratoCliente.pas' {frViewDireccionEntregaContratoCliente: TFrame},
uViewDocumentosContratoCliente in 'uViewDocumentosContratoCliente.pas' {frViewDocumentosContratoCliente: TFrame}, uViewDocumentosContratoCliente in 'uViewDocumentosContratoCliente.pas' {frViewDocumentosContratoCliente: TFrame},
uViewDatosYSeleccionClienteContrato in 'uViewDatosYSeleccionClienteContrato.pas' {frViewDatosYSeleccionClienteContrato: TFrame}, uViewDatosYSeleccionClienteContrato in 'uViewDatosYSeleccionClienteContrato.pas' {frViewDatosYSeleccionClienteContrato: TFrame},
uViewContratosClienteBeneficios in 'uViewContratosClienteBeneficios.pas' {frViewContratosClienteBeneficios: TFrame}, uViewContratosClienteBeneficios in 'uViewContratosClienteBeneficios.pas' {frViewContratosClienteBeneficios: TFrame},
uEditorContratosClienteBeneficios in 'uEditorContratosClienteBeneficios.pas' {fEditorContratosClienteBeneficios: 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. end.

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

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

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

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

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

@ -12,6 +12,7 @@ inherited fEditorContratoCliente: TfEditorContratoCliente
inherited JvNavPanelHeader: TJvNavPanelHeader inherited JvNavPanelHeader: TJvNavPanelHeader
Width = 845 Width = 845
Caption = 'Nuevo contrato de cliente' Caption = 'Nuevo contrato de cliente'
ExplicitTop = 52
ExplicitWidth = 845 ExplicitWidth = 845
inherited Image1: TImage inherited Image1: TImage
Left = 818 Left = 818
@ -174,16 +175,16 @@ inherited fEditorContratoCliente: TfEditorContratoCliente
inherited pgPaginas: TPageControl inherited pgPaginas: TPageControl
Width = 839 Width = 839
Height = 267 Height = 267
ActivePage = pagContenido
TabOrder = 1 TabOrder = 1
OnChanging = pgPaginasChanging OnChanging = pgPaginasChanging
ExplicitTop = 112
ExplicitWidth = 839 ExplicitWidth = 839
ExplicitHeight = 267 ExplicitHeight = 267
inherited pagGeneral: TTabSheet inherited pagGeneral: TTabSheet
ExplicitLeft = 4 ExplicitLeft = 4
ExplicitTop = 24 ExplicitTop = 24
ExplicitWidth = 831 ExplicitWidth = 831
ExplicitHeight = 242 ExplicitHeight = 239
end end
object pagContenido: TTabSheet object pagContenido: TTabSheet
Caption = 'Contenido' Caption = 'Contenido'
@ -309,7 +310,7 @@ inherited fEditorContratoCliente: TfEditorContratoCliente
Width = 831 Width = 831
Height = 211 Height = 211
ExplicitWidth = 831 ExplicitWidth = 831
ExplicitHeight = 214 ExplicitHeight = 211
inherited eIncidencias: TcxDBMemo inherited eIncidencias: TcxDBMemo
ExplicitWidth = 827 ExplicitWidth = 827
ExplicitHeight = 194 ExplicitHeight = 194
@ -357,6 +358,7 @@ inherited fEditorContratoCliente: TfEditorContratoCliente
end end
inherited PnlComentario: TPanel inherited PnlComentario: TPanel
Width = 845 Width = 845
ExplicitTop = 79
ExplicitWidth = 845 ExplicitWidth = 845
inherited lbComentario: TLabel inherited lbComentario: TLabel
Width = 835 Width = 835
@ -384,99 +386,95 @@ inherited fEditorContratoCliente: TfEditorContratoCliente
Width = 845 Width = 845
ExplicitWidth = 845 ExplicitWidth = 845
inherited Bevel3: TBevel inherited Bevel3: TBevel
Left = 416 Left = 480
Height = 122 Height = 122
ExplicitLeft = 416 ExplicitLeft = 480
ExplicitHeight = 122 ExplicitHeight = 122
end end
inherited Bevel4: TBevel inherited Bevel4: TBevel
Left = 528 Left = 592
Width = 210 ExplicitLeft = 592
ExplicitLeft = 528 end
ExplicitWidth = 210 inherited Bevel1: TBevel
Left = 499
ExplicitLeft = 499
end end
inherited ImporteDto: TcxDBCurrencyEdit inherited ImporteDto: TcxDBCurrencyEdit
Style.IsFontAssigned = True Style.IsFontAssigned = True
ExplicitWidth = 93
Width = 93
end end
inherited ImporteIVA: TcxDBCurrencyEdit inherited ImporteIVA: TcxDBCurrencyEdit
Left = 599 Left = 663
Style.IsFontAssigned = True Style.IsFontAssigned = True
ExplicitLeft = 599 ExplicitLeft = 663
ExplicitWidth = 137
Width = 137
end end
inherited ImporteTotal: TcxDBCurrencyEdit inherited ImporteTotal: TcxDBCurrencyEdit
Left = 529 Left = 593
Style.IsFontAssigned = True Style.IsFontAssigned = True
ExplicitLeft = 529 ExplicitLeft = 593
ExplicitWidth = 137
Width = 137
end end
inherited edtDescuento: TcxDBSpinEdit inherited edtDescuento: TcxDBSpinEdit
Style.IsFontAssigned = True Style.IsFontAssigned = True
end end
inherited edtIVA: TcxDBSpinEdit inherited edtIVA: TcxDBSpinEdit
Left = 528 Left = 592
Style.IsFontAssigned = True Style.IsFontAssigned = True
ExplicitLeft = 528 ExplicitLeft = 592
end end
inherited ImporteBase: TcxDBCurrencyEdit inherited ImporteBase: TcxDBCurrencyEdit
Left = 528 Left = 592
Style.IsFontAssigned = True Style.IsFontAssigned = True
ExplicitLeft = 528 ExplicitLeft = 592
ExplicitWidth = 92
Width = 92
end end
inherited edtRE: TcxDBSpinEdit inherited edtRE: TcxDBSpinEdit
Left = 528 Left = 592
Style.IsFontAssigned = True Style.IsFontAssigned = True
ExplicitLeft = 528 ExplicitLeft = 592
end end
inherited edtIRPF: TcxDBSpinEdit inherited edtIRPF: TcxDBSpinEdit
Left = 528 Left = 592
Style.IsFontAssigned = True Style.IsFontAssigned = True
ExplicitLeft = 528 ExplicitLeft = 592
end end
inherited ImporteRE: TcxDBCurrencyEdit inherited ImporteRE: TcxDBCurrencyEdit
Left = 599 Left = 663
Style.IsFontAssigned = True Style.IsFontAssigned = True
ExplicitLeft = 599 ExplicitLeft = 663
ExplicitWidth = 56
Width = 56
end end
inherited ImporteIRPF: TcxDBCurrencyEdit inherited ImporteIRPF: TcxDBCurrencyEdit
Left = 599 Left = 663
Style.IsFontAssigned = True Style.IsFontAssigned = True
ExplicitLeft = 599 ExplicitLeft = 663
ExplicitWidth = 56
Width = 56
end end
inherited eImporteNeto: TcxDBCurrencyEdit inherited eImporteNeto: TcxDBCurrencyEdit
Style.IsFontAssigned = True Style.IsFontAssigned = True
ExplicitWidth = 147
Width = 147
end end
inherited ePorte: TcxDBCurrencyEdit inherited ePorte: TcxDBCurrencyEdit
Style.IsFontAssigned = True Style.IsFontAssigned = True
ExplicitWidth = 147
Width = 147
end end
inherited eIVA: TcxDBLookupComboBox inherited eIVA: TcxDBLookupComboBox
Properties.OnValidate = frViewTotales1eIVAPropertiesValidate Properties.OnValidate = frViewTotales1eIVAPropertiesValidate
Style.Color = clInfoBk Style.Color = clInfoBk
ExplicitWidth = 81
Width = 81
end end
inherited bTiposIVA: TButton inherited bTiposIVA: TButton
Left = 268 Left = 332
OnClick = frViewTotales1bTiposIVAClick OnClick = frViewTotales1bTiposIVAClick
ExplicitLeft = 268 ExplicitLeft = 332
end end
inherited cbRecargoEquivalencia: TcxDBCheckBox inherited edtRetencion: TcxDBSpinEdit
ExplicitWidth = 219 Left = 592
Width = 219 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 end
inherited dxLayoutControl1Group_Root: TdxLayoutGroup inherited dxLayoutControl1Group_Root: TdxLayoutGroup
inherited dxLayoutControl1Group1: 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'); ShowInfoMessage('Se han actualizado las líneas con el descuento del cliente seleccionado');
end; end;
end; end;
//Se refresca dirección de envio
ViewContrato.ViewDireccionEntregaContratoCli.ContratoCliente := FContrato;
end; end;
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 inherited frViewContratoCliente: TfrViewContratoCliente
Width = 810 Width = 1123
Height = 449 Height = 796
OnCreate = CustomViewCreate OnCreate = CustomViewCreate
OnDestroy = CustomViewDestroy OnDestroy = CustomViewDestroy
ExplicitWidth = 810 ExplicitWidth = 1123
ExplicitHeight = 449 ExplicitHeight = 796
object dxLayoutControl1: TdxLayoutControl object dxLayoutControl1: TdxLayoutControl
Left = 0 Left = 0
Top = 0 Top = 0
Width = 810 Width = 1123
Height = 449 Height = 796
Align = alClient Align = alClient
ParentBackground = True ParentBackground = True
TabOrder = 0 TabOrder = 0
TabStop = False TabStop = False
AutoContentSizes = [acsWidth, acsHeight] AutoContentSizes = [acsWidth, acsHeight]
DesignSize = ( DesignSize = (
810 1123
449) 796)
object edtFechaContrato: TcxDBDateEdit object edtFechaContrato: TcxDBDateEdit
Left = 117 Left = 117
Top = 82 Top = 82
@ -42,7 +42,7 @@ inherited frViewContratoCliente: TfrViewContratoCliente
Width = 129 Width = 129
end end
object memObservaciones: TcxDBMemo object memObservaciones: TcxDBMemo
Left = 389 Left = 534
Top = 289 Top = 289
Anchors = [akLeft, akTop, akRight, akBottom] Anchors = [akLeft, akTop, akRight, akBottom]
DataBinding.DataField = 'OBSERVACIONES' DataBinding.DataField = 'OBSERVACIONES'
@ -59,7 +59,7 @@ inherited frViewContratoCliente: TfrViewContratoCliente
StyleFocused.LookAndFeel.NativeStyle = True StyleFocused.LookAndFeel.NativeStyle = True
StyleHot.LookAndFeel.Kind = lfStandard StyleHot.LookAndFeel.Kind = lfStandard
StyleHot.LookAndFeel.NativeStyle = True StyleHot.LookAndFeel.NativeStyle = True
TabOrder = 11 TabOrder = 12
Height = 200 Height = 200
Width = 507 Width = 507
end end
@ -90,7 +90,7 @@ inherited frViewContratoCliente: TfrViewContratoCliente
end end
object cbFormaPago: TcxDBLookupComboBox object cbFormaPago: TcxDBLookupComboBox
Left = 117 Left = 117
Top = 193 Top = 429
DataBinding.DataField = 'ID_FORMA_PAGO' DataBinding.DataField = 'ID_FORMA_PAGO'
DataBinding.DataSource = DADataSource DataBinding.DataSource = DADataSource
Properties.ImmediatePost = True Properties.ImmediatePost = True
@ -117,16 +117,16 @@ inherited frViewContratoCliente: TfrViewContratoCliente
StyleFocused.LookAndFeel.NativeStyle = True StyleFocused.LookAndFeel.NativeStyle = True
StyleHot.LookAndFeel.Kind = lfStandard StyleHot.LookAndFeel.Kind = lfStandard
StyleHot.LookAndFeel.NativeStyle = True StyleHot.LookAndFeel.NativeStyle = True
TabOrder = 6 TabOrder = 7
Width = 122 Width = 122
end end
object bFormasPago: TButton object bFormasPago: TButton
Left = 227 Left = 372
Top = 193 Top = 429
Width = 132 Width = 132
Height = 21 Height = 21
Caption = 'Ver las formas de pago...' Caption = 'Ver las formas de pago...'
TabOrder = 7 TabOrder = 8
OnClick = bFormasPagoClick OnClick = bFormasPagoClick
end end
object cbSituacion: TcxDBImageComboBox object cbSituacion: TcxDBImageComboBox
@ -156,7 +156,7 @@ inherited frViewContratoCliente: TfrViewContratoCliente
Width = 260 Width = 260
end end
inline frViewDatosYSeleccionClienteContrato1: TfrViewDatosYSeleccionClienteContrato inline frViewDatosYSeleccionClienteContrato1: TfrViewDatosYSeleccionClienteContrato
Left = 389 Left = 534
Top = 28 Top = 28
Width = 127 Width = 127
Height = 225 Height = 225
@ -166,9 +166,9 @@ inherited frViewContratoCliente: TfrViewContratoCliente
Font.Name = 'Tahoma' Font.Name = 'Tahoma'
Font.Style = [] Font.Style = []
ParentFont = False ParentFont = False
TabOrder = 10 TabOrder = 11
ReadOnly = False ReadOnly = False
ExplicitLeft = 389 ExplicitLeft = 534
ExplicitTop = 28 ExplicitTop = 28
ExplicitWidth = 127 ExplicitWidth = 127
ExplicitHeight = 225 ExplicitHeight = 225
@ -177,41 +177,27 @@ inherited frViewContratoCliente: TfrViewContratoCliente
Height = 225 Height = 225
ExplicitWidth = 127 ExplicitWidth = 127
ExplicitHeight = 225 ExplicitHeight = 225
inherited edtlNombre: TcxDBTextEdit
ExplicitWidth = 224
Width = 224
end
inherited edtNIFCIF: TcxDBTextEdit
ExplicitWidth = 103
Width = 103
end
inherited bVerFichaCliente: TBitBtn inherited bVerFichaCliente: TBitBtn
Left = 197 Left = 365
ExplicitLeft = 197 ExplicitLeft = 365
end end
inherited edtDireccion: TcxMemo inherited edtDireccion: TcxMemo
ExplicitWidth = 121 ExplicitWidth = 121
Width = 121 Width = 121
end end
inherited bElegirDireccion: TButton inherited bElegirDireccion: TButton
Left = 366 Left = 534
ExplicitLeft = 366 ExplicitLeft = 534
end
inherited edtTelefonos: TcxTextEdit
ExplicitWidth = 193
Width = 193
end end
inherited edtReferencia: TcxDBTextEdit inherited edtReferencia: TcxDBTextEdit
Left = 261 Left = 343
ExplicitLeft = 261 ExplicitLeft = 343
ExplicitWidth = 103
Width = 103
end end
end end
end end
object memFormaPago: TcxDBMemo object memFormaPago: TcxDBMemo
Left = 22 Left = 22
Top = 220 Top = 456
Anchors = [akLeft, akTop, akRight, akBottom] Anchors = [akLeft, akTop, akRight, akBottom]
DataBinding.DataField = 'FORMA_PAGO' DataBinding.DataField = 'FORMA_PAGO'
DataBinding.DataSource = DADataSource DataBinding.DataSource = DADataSource
@ -227,13 +213,13 @@ inherited frViewContratoCliente: TfrViewContratoCliente
StyleFocused.LookAndFeel.NativeStyle = True StyleFocused.LookAndFeel.NativeStyle = True
StyleHot.LookAndFeel.Kind = lfStandard StyleHot.LookAndFeel.Kind = lfStandard
StyleHot.LookAndFeel.NativeStyle = True StyleHot.LookAndFeel.NativeStyle = True
TabOrder = 8 TabOrder = 9
Height = 100 Height = 100
Width = 396 Width = 396
end end
object memPlazoEntrega: TcxDBMemo object memPlazoEntrega: TcxDBMemo
Left = 22 Left = 22
Top = 340 Top = 637
Anchors = [akLeft, akTop, akRight, akBottom] Anchors = [akLeft, akTop, akRight, akBottom]
DataBinding.DataField = 'PLAZO_ENTREGA' DataBinding.DataField = 'PLAZO_ENTREGA'
DataBinding.DataSource = DADataSource DataBinding.DataSource = DADataSource
@ -249,7 +235,7 @@ inherited frViewContratoCliente: TfrViewContratoCliente
StyleFocused.LookAndFeel.NativeStyle = True StyleFocused.LookAndFeel.NativeStyle = True
StyleHot.LookAndFeel.Kind = lfStandard StyleHot.LookAndFeel.Kind = lfStandard
StyleHot.LookAndFeel.NativeStyle = True StyleHot.LookAndFeel.NativeStyle = True
TabOrder = 9 TabOrder = 10
Height = 100 Height = 100
Width = 396 Width = 396
end end
@ -284,7 +270,7 @@ inherited frViewContratoCliente: TfrViewContratoCliente
Width = 27 Width = 27
end end
object cbTipoContrato: TcxDBComboBox object cbTipoContrato: TcxDBComboBox
Left = 282 Left = 361
Top = 82 Top = 82
DataBinding.DataField = 'TIPO_CONTRATO' DataBinding.DataField = 'TIPO_CONTRATO'
DataBinding.DataSource = DADataSource DataBinding.DataSource = DADataSource
@ -329,6 +315,64 @@ inherited frViewContratoCliente: TfrViewContratoCliente
Height = 21 Height = 21
Width = 335 Width = 335
end 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 object dxLayoutControl1Group_Root: TdxLayoutGroup
ShowCaption = False ShowCaption = False
Hidden = True Hidden = True
@ -390,6 +434,14 @@ inherited frViewContratoCliente: TfrViewContratoCliente
ControlOptions.ShowBorder = False ControlOptions.ShowBorder = False
end end
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 object dxLayoutControl1Group6: TdxLayoutGroup
AutoAligns = [aaHorizontal] AutoAligns = [aaHorizontal]
AlignVert = avClient AlignVert = avClient

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

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

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

@ -101,7 +101,7 @@ implementation
{$INCLUDE ..\..\..\FactuGES.inc} {$INCLUDE ..\..\..\FactuGES.inc}
uses uses
SysUtils, uDataTableUtils, DB, uDateUtils, DateUtils, uDataModuleUsuarios, SysUtils, uDataTableUtils, DB, uDateUtils, DateUtils, uDataModuleUsuarios, uNumUtils,
Variants, cxDateUtils, uTiposIVAController, uBizTiposIVA, uFactuGES_App, uBizEmpresasTiendas; Variants, cxDateUtils, uTiposIVAController, uBizTiposIVA, uFactuGES_App, uBizEmpresasTiendas;
{ TBizFacturaCliente } { TBizFacturaCliente }
@ -140,7 +140,7 @@ procedure TBizFacturaCliente.CalcularBaseImponible;
begin begin
if not Self.DataTable.Editing then if not Self.DataTable.Editing then
Edit; Edit;
IMPORTE_DESCUENTO := IMPORTE_NETO * (DESCUENTO/100); IMPORTE_DESCUENTO := roundCurrency(IMPORTE_NETO * (DESCUENTO/100));
BASE_IMPONIBLE := IMPORTE_NETO - IMPORTE_DESCUENTO + IMPORTE_PORTE; BASE_IMPONIBLE := IMPORTE_NETO - IMPORTE_DESCUENTO + IMPORTE_PORTE;
end; end;
@ -148,7 +148,7 @@ procedure TBizFacturaCliente.CalcularDescuento;
begin begin
if not Self.DataTable.Editing then if not Self.DataTable.Editing then
Edit; Edit;
IMPORTE_DESCUENTO := (DESCUENTO / 100) * BASE_IMPONIBLE; IMPORTE_DESCUENTO := roundCurrency((DESCUENTO / 100) * BASE_IMPONIBLE);
end; end;
procedure TBizFacturaCliente.CalcularImporteTotal; procedure TBizFacturaCliente.CalcularImporteTotal;
@ -174,21 +174,21 @@ procedure TBizFacturaCliente.CalcularIVA;
begin begin
if not Self.DataTable.Editing then if not Self.DataTable.Editing then
Edit; Edit;
IMPORTE_IVA := (IVA / 100) * BASE_IMPONIBLE; IMPORTE_IVA := roundCurrency((IVA / 100) * BASE_IMPONIBLE);
end; end;
procedure TBizFacturaCliente.CalcularRE; procedure TBizFacturaCliente.CalcularRE;
begin begin
if not Self.DataTable.Editing then if not Self.DataTable.Editing then
Edit; Edit;
IMPORTE_RE := (RE / 100) * BASE_IMPONIBLE; IMPORTE_RE := roundCurrency((RE / 100) * BASE_IMPONIBLE);
end; end;
procedure TBizFacturaCliente.CalcularRetencion; procedure TBizFacturaCliente.CalcularRetencion;
begin begin
if not Self.DataTable.Editing then if not Self.DataTable.Editing then
Edit; Edit;
IMPORTE_RETENCION := (RETENCION / 100) * BASE_IMPONIBLE; IMPORTE_RETENCION := roundCurrency((RETENCION / 100) * BASE_IMPONIBLE);
end; end;
constructor TBizFacturaCliente.Create(aDataTable: TDADataTable); 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 = '' StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = '' StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = '' StyleHot.LookAndFeel.SkinName = ''
ExplicitWidth = 144
Width = 144
end end
inherited edtFechaFinFiltro: TcxDateEdit inherited edtFechaFinFiltro: TcxDateEdit
Left = 301
Style.LookAndFeel.SkinName = '' Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = '' StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = '' StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = '' StyleHot.LookAndFeel.SkinName = ''
ExplicitLeft = 301
ExplicitWidth = 263 ExplicitWidth = 263
Width = 263 Width = 263
end end

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

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

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

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

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

@ -91,7 +91,7 @@ type
implementation implementation
uses uses
SysUtils, Variants, uDataModuleConfiguracion, uDataModuleUsuarios, SysUtils, Variants, uDataModuleConfiguracion, uDataModuleUsuarios, uNumUtils,
uDataTableUtils, DateUtils, uDateUtils, DB, uFactuGES_App, uBizEmpresasTiendas; uDataTableUtils, DateUtils, uDateUtils, DB, uFactuGES_App, uBizEmpresasTiendas;
{ TBizPedidoProveedor } { TBizPedidoProveedor }
@ -100,7 +100,7 @@ procedure TBizPedidoProveedor.CalcularBaseImponible;
begin begin
if not Self.DataTable.Editing then if not Self.DataTable.Editing then
Edit; 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 BASE_IMPONIBLE := IMPORTE_NETO - IMPORTE_DESCUENTO; //+ IMPORTE_PORTE; ya no se tiene en cuenta porque se desglosa por artículo
end; end;
@ -125,7 +125,7 @@ procedure TBizPedidoProveedor.CalcularIVA;
begin begin
if not Self.DataTable.Editing then if not Self.DataTable.Editing then
Edit; Edit;
IMPORTE_IVA := (IVA / 100) * (BASE_IMPONIBLE); IMPORTE_IVA := roundCurrency((IVA / 100) * (BASE_IMPONIBLE));
end; end;
constructor TBizPedidoProveedor.Create(aDataTable: TDADataTable); 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> <PropertyGroup>
<ProjectGuid>{9e558626-cf49-4cff-a178-e12c186758ac}</ProjectGuid> <ProjectGuid>{9e558626-cf49-4cff-a178-e12c186758ac}</ProjectGuid>
<MainSource>PedidosProveedor_view.dpk</MainSource> <MainSource>PedidosProveedor_view.dpk</MainSource>
@ -48,13 +49,13 @@
<DelphiCompile Include="PedidosProveedor_view.dpk"> <DelphiCompile Include="PedidosProveedor_view.dpk">
<MainSource>MainSource</MainSource> <MainSource>MainSource</MainSource>
</DelphiCompile> </DelphiCompile>
<DCCReference Include="..\Almacenes_controller.dcp" /> <DCCReference Include="Almacenes_controller.dcp" />
<DCCReference Include="..\Almacenes_model.dcp" /> <DCCReference Include="Almacenes_model.dcp" />
<DCCReference Include="..\Articulos_view.dcp" /> <DCCReference Include="Articulos_view.dcp" />
<DCCReference Include="..\Contactos_view.dcp" /> <DCCReference Include="Contactos_view.dcp" />
<DCCReference Include="..\GUIBase.dcp" /> <DCCReference Include="GUIBase.dcp" />
<DCCReference Include="..\PedidosProveedor_controller.dcp" /> <DCCReference Include="PedidosProveedor_controller.dcp" />
<DCCReference Include="..\PedidosProveedor_model.dcp" /> <DCCReference Include="PedidosProveedor_model.dcp" />
<DCCReference Include="uEditorDireccionEntregaPedidoProveedor.pas"> <DCCReference Include="uEditorDireccionEntregaPedidoProveedor.pas">
<Form>fEditorDireccionEntregaPedidoProveedor </Form> <Form>fEditorDireccionEntregaPedidoProveedor </Form>
<DesignClass>TfEditorDireccionEntregaPedidoProveedor</DesignClass> <DesignClass>TfEditorDireccionEntregaPedidoProveedor</DesignClass>

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

@ -102,7 +102,7 @@ implementation
uses uses
uDialogUtils, Windows, SysUtils, Variants, uDataModuleConfiguracion, uDataModuleUsuarios, Dialogs, uDialogUtils, Windows, SysUtils, Variants, uDataModuleConfiguracion, uDataModuleUsuarios, Dialogs,
uDataTableUtils, DateUtils, uDateUtils, DB, uFactuGES_App, uDataTableUtils, DateUtils, uDateUtils, DB, uFactuGES_App, uNumUtils,
uTiposIVAController, uBizTiposIVA, uVendedoresController; uTiposIVAController, uBizTiposIVA, uVendedoresController;
{ TBizPresupuestoCliente } { TBizPresupuestoCliente }
@ -136,7 +136,7 @@ procedure TBizPresupuestoCliente.CalcularBaseImponible;
begin begin
if not Self.DataTable.Editing then if not Self.DataTable.Editing then
Edit; Edit;
IMPORTE_DESCUENTO := IMPORTE_NETO * (DESCUENTO/100); IMPORTE_DESCUENTO := roundCurrency(IMPORTE_NETO * (DESCUENTO/100));
BASE_IMPONIBLE := IMPORTE_NETO - IMPORTE_DESCUENTO + IMPORTE_PORTE; BASE_IMPONIBLE := IMPORTE_NETO - IMPORTE_DESCUENTO + IMPORTE_PORTE;
end; end;
@ -162,7 +162,7 @@ procedure TBizPresupuestoCliente.CalcularIVA;
begin begin
if not Self.DataTable.Editing then if not Self.DataTable.Editing then
Edit; Edit;
IMPORTE_IVA := (IVA / 100) * (BASE_IMPONIBLE); IMPORTE_IVA := roundCurrency((IVA / 100) * (BASE_IMPONIBLE));
end; end;
procedure TBizPresupuestoCliente.CalcularPrecioPunto; procedure TBizPresupuestoCliente.CalcularPrecioPunto;
@ -175,7 +175,7 @@ procedure TBizPresupuestoCliente.CalcularRE;
begin begin
if not Self.DataTable.Editing then if not Self.DataTable.Editing then
Edit; Edit;
IMPORTE_RE := (RE / 100) * BASE_IMPONIBLE; IMPORTE_RE := roundCurrency((RE / 100) * BASE_IMPONIBLE);
end; end;
constructor TBizPresupuestoCliente.Create(aDataTable: TDADataTable); 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 Height = 176
Width = 254 Width = 254
object JsListaFacturasGeneradas: TJSDialog object JsListaFacturasGeneradas: TJSDialog
DialogOptions = [doCommandLinks, doModal]
Glyph.Data = { Glyph.Data = {
0A54504E474F626A65637489504E470D0A1A0A0000000D494844520000001C00 0A54504E474F626A65637489504E470D0A1A0A0000000D494844520000001C00
00001C0806000000720DDF940000000970485973000017120000171201679FD2 00001C0806000000720DDF940000000970485973000017120000171201679FD2
@ -65,11 +66,13 @@ object dmGenerarFacturasCli: TdmGenerarFacturasCli
Instruction.Icon = tdiCustom Instruction.Icon = tdiCustom
CustomButtons = < CustomButtons = <
item item
Caption = 'Continuar' Caption = 'Ver la factura'
Value = 200 Value = 100
Cancel = True Cancel = True
Info.Strings = (
'Mostrar la factura que se ha creado')
end> end>
ButtonBar.Buttons = [] ButtonBar.Buttons = [cbOK]
ButtonBar.Cancel = cbOK ButtonBar.Cancel = cbOK
ButtonBar.UseCancel = False ButtonBar.UseCancel = False
MainIcon = tdiCustom 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 var
AFacturasNuevas : IBizFacturaCliente; AFacturasNuevas : IBizFacturaCliente;
i: Integer; i: Integer;
Cadena1, Cadena2: String;
ARespuesta : Integer;
begin begin
Result := False; Result := False;
Cadena1:= '';
Cadena2:= '';
if not Assigned(AAlbaranesClienteController) then if not Assigned(AAlbaranesClienteController) then
Inicializar; Inicializar;
@ -200,9 +205,33 @@ begin
if AFacturasNuevas.DataTable.RecordCount = 1 then if AFacturasNuevas.DataTable.RecordCount = 1 then
begin begin
if AFacturasNuevas.TIPO = CTE_TIPO_FACTURA then 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 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 end
else begin else begin
with dmGenerarFacturasCli.JsListaFacturasGeneradas.Content do with dmGenerarFacturasCli.JsListaFacturasGeneradas.Content do
@ -216,6 +245,7 @@ begin
AFacturasNuevas.DataTable.Prior; AFacturasNuevas.DataTable.Prior;
end; end;
end; end;
dmGenerarFacturasCli.JsListaFacturasGeneradas.CustomButtons.Delete(0);
dmGenerarFacturasCli.JsListaFacturasGeneradas.Execute; dmGenerarFacturasCli.JsListaFacturasGeneradas.Execute;
end; end;
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 // El albarán tiene que venir ya abierto y posicionado donde hay que copiar
AAlbaran.ID_CLIENTE := AContrato.ID_CLIENTE; AAlbaran.ID_CLIENTE := AContrato.ID_CLIENTE;
AAlbaran.ID_PEDIDO := AContrato.ID; AAlbaran.ID_PEDIDO := AContrato.ID;
AAlbaran.CALLE := AContrato.CALLE; AAlbaran.CALLE := AContrato.CALLE_ENVIO;
AAlbaran.CODIGO_POSTAL := AContrato.CODIGO_POSTAL; AAlbaran.CODIGO_POSTAL := AContrato.CODIGO_POSTAL_ENVIO;
AAlbaran.POBLACION := AContrato.POBLACION; AAlbaran.POBLACION := AContrato.POBLACION_ENVIO;
AAlbaran.PROVINCIA := AContrato.PROVINCIA; AAlbaran.PROVINCIA := AContrato.PROVINCIA_ENVIO;
AAlbaran.PERSONA_CONTACTO := AContrato.PERSONA_CONTACTO; AAlbaran.PERSONA_CONTACTO := AContrato.PERS_CONTACTO_ENVIO;
AAlbaran.TELEFONO := AContrato.TELEFONO; AAlbaran.TELEFONO := AContrato.TLFS_ENVIO;
AAlbaran.MOVIL := AContrato.MOVIL; AAlbaran.MOVIL := AContrato.MOVIL;
AAlbaran.IMPORTE_NETO := AContrato.IMPORTE_NETO; AAlbaran.IMPORTE_NETO := AContrato.IMPORTE_NETO;
AAlbaran.IMPORTE_PORTE := AContrato.IMPORTE_PORTE; 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 //Sustituir por if de guardar
if AFacturasClienteController.Guardar(AFactura) then if AFacturasClienteController.Guardar(AFactura) then
begin begin
// Asocio el contrato al presupuesto
with dmGenerarFacturasCli.JsListaFacturasGenerados do with dmGenerarFacturasCli.JsListaFacturasGenerados do
begin begin
Instruction.Text := 'Se ha generado la factura'; 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', schEmpresasClient_Intf in '..\ApplicationBase\Empresas\Model\schEmpresasClient_Intf.pas',
schEmpresasServer_Intf in '..\ApplicationBase\Empresas\Model\schEmpresasServer_Intf.pas', schEmpresasServer_Intf in '..\ApplicationBase\Empresas\Model\schEmpresasServer_Intf.pas',
uNumUtils in '..\Base\Utiles\uNumUtils.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', schFacturasClienteClient_Intf in '..\Modulos\Facturas de cliente\Model\schFacturasClienteClient_Intf.pas',
schFacturasClienteServer_Intf in '..\Modulos\Facturas de cliente\Model\schFacturasClienteServer_Intf.pas', schFacturasClienteServer_Intf in '..\Modulos\Facturas de cliente\Model\schFacturasClienteServer_Intf.pas',
schRecibosClienteClient_Intf in '..\Modulos\Recibos de cliente\Model\schRecibosClienteClient_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', uBizReferenciasServer in '..\Modulos\Referencias\Model\uBizReferenciasServer.pas',
schPresupuestosClienteClient_Intf in '..\Modulos\Presupuestos de cliente\Model\schPresupuestosClienteClient_Intf.pas', schPresupuestosClienteClient_Intf in '..\Modulos\Presupuestos de cliente\Model\schPresupuestosClienteClient_Intf.pas',
schPresupuestosClienteServer_Intf in '..\Modulos\Presupuestos de cliente\Model\schPresupuestosClienteServer_Intf.pas', schPresupuestosClienteServer_Intf in '..\Modulos\Presupuestos de cliente\Model\schPresupuestosClienteServer_Intf.pas',
schContratosClienteClient_Intf in '..\Modulos\Contratos de cliente\Model\schContratosClienteClient_Intf.pas',
schContratosClienteServer_Intf in '..\Modulos\Contratos de cliente\Model\schContratosClienteServer_Intf.pas',
schFacturasProveedorClient_Intf in '..\Modulos\Facturas de proveedor\Model\schFacturasProveedorClient_Intf.pas', schFacturasProveedorClient_Intf in '..\Modulos\Facturas de proveedor\Model\schFacturasProveedorClient_Intf.pas',
schFacturasProveedorServer_Intf in '..\Modulos\Facturas de proveedor\Model\schFacturasProveedorServer_Intf.pas', schFacturasProveedorServer_Intf in '..\Modulos\Facturas de proveedor\Model\schFacturasProveedorServer_Intf.pas',
srvTarifas_Impl in '..\Modulos\Tarifas\Servidor\srvTarifas_Impl.pas' {srvTarifas: TDataAbstractService}, 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', schArticulosClient_Intf in '..\Modulos\Articulos\Model\schArticulosClient_Intf.pas',
schArticulosServer_Intf in '..\Modulos\Articulos\Model\schArticulosServer_Intf.pas', schArticulosServer_Intf in '..\Modulos\Articulos\Model\schArticulosServer_Intf.pas',
schAlbaranesClienteClient_Intf in '..\Modulos\Albaranes de cliente\Model\schAlbaranesClienteClient_Intf.pas', schAlbaranesClienteClient_Intf in '..\Modulos\Albaranes de cliente\Model\schAlbaranesClienteClient_Intf.pas',
schAlbaranesClienteServer_Intf in '..\Modulos\Albaranes de cliente\Model\schAlbaranesClienteServer_Intf.pas'; schAlbaranesClienteServer_Intf in '..\Modulos\Albaranes de cliente\Model\schAlbaranesClienteServer_Intf.pas',
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 *.res}
{$R ..\Servicios\RODLFile.res} {$R ..\Servicios\RODLFile.res}

2
Source/Servidor/FactuGES_Server.dproj
View File

@ -28,7 +28,7 @@
<Borland.Personality>Delphi.Personality</Borland.Personality> <Borland.Personality>Delphi.Personality</Borland.Personality>
<Borland.ProjectType/> <Borland.ProjectType/>
<BorlandProject> <BorlandProject>
<BorlandProject><Delphi.Personality><Parameters><Parameters Name="UseLauncher">False</Parameters><Parameters Name="LoadAllSymbols">True</Parameters><Parameters Name="LoadUnspecifiedSymbols">False</Parameters></Parameters><VersionInfo><VersionInfo Name="IncludeVerInfo">True</VersionInfo><VersionInfo Name="AutoIncBuild">False</VersionInfo><VersionInfo Name="MajorVer">2</VersionInfo><VersionInfo Name="MinorVer">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 Name="C:\Documents and Settings\All Users\Documentos\RAD Studio\5.0\Bpl\dxPScxScheduler2LnkD11.bpl">File C:\Documents and Settings\All Users\Documentos\RAD Studio\5.0\Bpl\dxPScxScheduler2LnkD11.bpl not found</Excluded_Packages>
</Excluded_Packages><Source><Source Name="MainSource">FactuGES_Server.dpr</Source></Source></Delphi.Personality></BorlandProject></BorlandProject> </Excluded_Packages><Source><Source Name="MainSource">FactuGES_Server.dpr</Source></Source></Delphi.Personality></BorlandProject></BorlandProject>
</ProjectExtensions> </ProjectExtensions>

BIN
Source/Servidor/FactuGES_Server.res
View File

Binary file not shown.