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

Versión 2.5.4

Browse Source 
Tareas #787: al aceptar un presupuesto con linea de concepto libre se crea un capitulo de cocinas
Tareas #846: Se arregla fallo de selección en el grid al cambiar de estado una linea seleccionada sobre un grid filtrado
Tareas #898: En el informe de varios y obras quitar las lineas de los conceptos
Tareas #914: En los informes internos sale acana home en lugar de Abeto Design
Tareas #919: Se activan las familias y articulos para que salgan en las propiedades y valores de los presupuestos y contratos

git-svn-id: https://192.168.0.254/svn/Proyectos.AbetoDesign_FactuGES/trunk@50 93f398dd-4eb6-7a46-baf6-13f46f578da2
This commit is contained in:
roberto 2012-07-11 15:39:13 +00:00
parent d1a9a9cd27
commit 38e48889ef
70 changed files with 3665 additions and 1496 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.

4
Build/Build.fbpInf
View File

@ -14,8 +14,8 @@
<Notes> <Notes>
<![CDATA[]]> <![CDATA[]]>
</Notes> </Notes>
<LastBuildRun>00:00:00</LastBuildRun> <LastBuildRun>00:02:48</LastBuildRun>
<LastBuildStart>30/12/1899</LastBuildStart> <LastBuildStart>09/07/2012 10:34:04</LastBuildStart>
<LastBuildState>True</LastBuildState> <LastBuildState>True</LastBuildState>
</properties> </properties>
</project> </project>

BIN
Build/Build.fbz6
View File

Binary file not shown.

20
Database/scripts/factuges.sql
View File

@ -79,6 +79,10 @@ VARCHAR(30);
CREATE DOMAIN TIPO_CANTIDAD AS CREATE DOMAIN TIPO_CANTIDAD AS
NUMERIC(11,2); NUMERIC(11,2);
CREATE DOMAIN TIPO_FAMILIA AS
VARCHAR(255) CHARACTER SET ISO8859_1
COLLATE ISO8859_1;
/******************************************************************************/ /******************************************************************************/
/**** Generators ****/ /**** Generators ****/
@ -273,6 +277,9 @@ SET GENERATOR GEN_UNIDADES_MEDIDA_ID TO 1;
CREATE GENERATOR GEN_USUARIOS_ID; CREATE GENERATOR GEN_USUARIOS_ID;
SET GENERATOR GEN_USUARIOS_ID TO 1; SET GENERATOR GEN_USUARIOS_ID TO 1;
CREATE GENERATOR GEN_PRESUPUESTOS_CLIENTE_CAPITU;
SET GENERATOR GEN_PRESUPUESTOS_CLIENTE_CAPITU TO 100;
SET TERM ^ ; SET TERM ^ ;
@ -567,6 +574,7 @@ CREATE TABLE ARTICULOS (
ID_PROVEEDOR TIPO_ID, ID_PROVEEDOR TIPO_ID,
REFERENCIA_PROV VARCHAR(255), REFERENCIA_PROV VARCHAR(255),
PRECIO_COSTE TIPO_IMPORTE, PRECIO_COSTE TIPO_IMPORTE,
PRECIO_PVP TIPO_IMPORTE,
DESCUENTO TIPO_PORCENTAJE, DESCUENTO TIPO_PORCENTAJE,
PRECIO_NETO TIPO_IMPORTE, PRECIO_NETO TIPO_IMPORTE,
PRECIO_PORTE TIPO_IMPORTE, PRECIO_PORTE TIPO_IMPORTE,
@ -993,7 +1001,7 @@ CREATE TABLE FACTURAS_PROVEEDOR_CONTRATOS (
CREATE TABLE FAMILIAS ( CREATE TABLE FAMILIAS (
ID TIPO_ID NOT NULL, ID TIPO_ID NOT NULL,
DESCRIPCION VARCHAR(255) DESCRIPCION TIPO_FAMILIA
); );
CREATE TABLE FORMAS_PAGO ( CREATE TABLE FORMAS_PAGO (
@ -1199,8 +1207,7 @@ CREATE TABLE PRESUPUESTOS_CLIENTE_CAPITULOS (
POSICION INTEGER, POSICION INTEGER,
TIPO_DETALLE VARCHAR(10), TIPO_DETALLE VARCHAR(10),
TIPO_ARTICULO VARCHAR(2) COLLATE ES_ES, TIPO_ARTICULO VARCHAR(2) COLLATE ES_ES,
ID_ARTICULO TIPO_ID, CONCEPTO TIPO_FAMILIA
CONCEPTO TIPO_CONCEPTO
); );
CREATE TABLE PRESUPUESTOS_VALORES ( CREATE TABLE PRESUPUESTOS_VALORES (
@ -1261,6 +1268,7 @@ CREATE TABLE PRESUPUESTOS_CLIENTE_DETALLES (
TIPO_DETALLE VARCHAR(10), TIPO_DETALLE VARCHAR(10),
ID_ARTICULO TIPO_ID, ID_ARTICULO TIPO_ID,
TIPO_ARTICULO VARCHAR(2) COLLATE ES_ES, TIPO_ARTICULO VARCHAR(2) COLLATE ES_ES,
PROPIEDAD TIPO_FAMILIA,
CONCEPTO TIPO_CONCEPTO, CONCEPTO TIPO_CONCEPTO,
CANTIDAD TIPO_CANTIDAD, CANTIDAD TIPO_CANTIDAD,
IMPORTE_UNIDAD TIPO_IMPORTE, IMPORTE_UNIDAD TIPO_IMPORTE,
@ -1322,6 +1330,7 @@ CREATE TABLE CONTRATOS_CLIENTE_DETALLES (
TIPO_DETALLE VARCHAR(10), TIPO_DETALLE VARCHAR(10),
ID_ARTICULO TIPO_ID, ID_ARTICULO TIPO_ID,
TIPO_ARTICULO VARCHAR(2) COLLATE ES_ES, TIPO_ARTICULO VARCHAR(2) COLLATE ES_ES,
PROPIEDAD TIPO_FAMILIA,
CONCEPTO TIPO_CONCEPTO, CONCEPTO TIPO_CONCEPTO,
CANTIDAD TIPO_CANTIDAD, CANTIDAD TIPO_CANTIDAD,
IMPORTE_UNIDAD TIPO_IMPORTE, IMPORTE_UNIDAD TIPO_IMPORTE,
@ -5599,7 +5608,7 @@ ID_CAPITULO = -1;
if (TIPO = 'Presupuesto') then if (TIPO = 'Presupuesto') then
begin begin
for select pre.id, pre.id_presupuesto, pre.posicion, pre.tipo_detalle, for select pre.id, pre.id_presupuesto, pre.posicion, pre.tipo_detalle,
coalesce(pre.tipo_articulo,'NA'), pre.id_articulo, presupuestos_propiedades.descripcion, coalesce(pre.tipo_articulo,'NA'), pre.id_articulo, pre.propiedad,
/* F_RTFTOTEXT(F_RTFTOTEXT(pre.CONCEPTO)) as CONCEPTO,*/ /* F_RTFTOTEXT(F_RTFTOTEXT(pre.CONCEPTO)) as CONCEPTO,*/
pre.CONCEPTO, pre.CONCEPTO,
pre.cantidad, pre.cantidad,
@ -5638,7 +5647,7 @@ end
else if (TIPO = 'Contrato') then else if (TIPO = 'Contrato') then
begin begin
for select pre.id, pre.id_contrato, pre.posicion, pre.tipo_detalle, for select pre.id, pre.id_contrato, pre.posicion, pre.tipo_detalle,
coalesce(pre.tipo_articulo,'NA'), pre.id_articulo, presupuestos_propiedades.descripcion, coalesce(pre.tipo_articulo,'NA'), pre.id_articulo, pre.propiedad,
/* F_RTFTOTEXT(F_RTFTOTEXT(pre.CONCEPTO)) as CONCEPTO,*/ /* F_RTFTOTEXT(F_RTFTOTEXT(pre.CONCEPTO)) as CONCEPTO,*/
pre.CONCEPTO, pre.CONCEPTO,
pre.cantidad, pre.cantidad,
@ -5649,7 +5658,6 @@ begin
pre.descuento, pre.importe_porte, pre.descuento, pre.importe_porte,
pre.importe_total, coalesce(pre.visible, 1) pre.importe_total, coalesce(pre.visible, 1)
from contratos_cliente_detalles pre from contratos_cliente_detalles pre
left join presupuestos_propiedades on (pre.id_articulo = presupuestos_propiedades.id)
where pre.id_contrato = :AID where pre.id_contrato = :AID
order by pre.id_contrato, pre.posicion order by pre.id_contrato, pre.posicion
into :ID, :ID_PRE_CON, :POSICION, :TIPO_DETALLE, into :ID, :ID_PRE_CON, :POSICION, :TIPO_DETALLE,

96
Source/Base/Base.dproj
View File

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

2
Source/Base/uDMBase.dfm
View File

@ -215,7 +215,7 @@ object dmBase: TdmBase
PrinterPage.PageFooter.Font.Name = 'Tahoma' PrinterPage.PageFooter.Font.Name = 'Tahoma'
PrinterPage.PageFooter.Font.Style = [] PrinterPage.PageFooter.Font.Style = []
PrinterPage.PageFooter.LeftTitle.Strings = ( PrinterPage.PageFooter.LeftTitle.Strings = (
'ACANA HOME S.L.') 'ABETO DESIGN S.L.')
PrinterPage.PageFooter.RightTitle.Strings = ( PrinterPage.PageFooter.RightTitle.Strings = (
'[Page #] de [Total Pages]') '[Page #] de [Total Pages]')
PrinterPage.PageHeader.Font.Charset = DEFAULT_CHARSET PrinterPage.PageHeader.Font.Charset = DEFAULT_CHARSET

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">5</VersionInfo><VersionInfo Name="Release">3</VersionInfo><VersionInfo Name="Build">0</VersionInfo><VersionInfo Name="Debug">False</VersionInfo><VersionInfo Name="PreRelease">False</VersionInfo><VersionInfo Name="Special">False</VersionInfo><VersionInfo Name="Private">False</VersionInfo><VersionInfo Name="DLL">False</VersionInfo><VersionInfo Name="Locale">3082</VersionInfo><VersionInfo Name="CodePage">1252</VersionInfo></VersionInfo><VersionInfoKeys><VersionInfoKeys Name="CompanyName">Rodax Software S.L.</VersionInfoKeys><VersionInfoKeys Name="FileDescription"></VersionInfoKeys><VersionInfoKeys Name="FileVersion">2.5.3.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.5.3.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">5</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.5.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.5.4.0</VersionInfoKeys><VersionInfoKeys Name="Comments"></VersionInfoKeys></VersionInfoKeys><Excluded_Packages>
<Excluded_Packages Name="C:\Documents and Settings\All Users\Documentos\RAD Studio\5.0\Bpl\dxPScxScheduler2LnkD11.bpl">File C:\Documents and Settings\All Users\Documentos\RAD Studio\5.0\Bpl\dxPScxScheduler2LnkD11.bpl not found</Excluded_Packages> <Excluded_Packages Name="C:\Documents and Settings\All Users\Documentos\RAD Studio\5.0\Bpl\dxPScxScheduler2LnkD11.bpl">File C:\Documents and Settings\All Users\Documentos\RAD Studio\5.0\Bpl\dxPScxScheduler2LnkD11.bpl not found</Excluded_Packages>
</Excluded_Packages><Source><Source Name="MainSource">FactuGES.dpr</Source></Source></Delphi.Personality><ModelSupport>False</ModelSupport></BorlandProject></BorlandProject> </Excluded_Packages><Source><Source Name="MainSource">FactuGES.dpr</Source></Source></Delphi.Personality><ModelSupport>False</ModelSupport></BorlandProject></BorlandProject>

BIN
Source/Cliente/FactuGES.res
View File

Binary file not shown.

2
Source/FactuGES.inc
View File

@ -1,4 +1,4 @@
{$DEFINE MULTIEMPRESA} {$DEFINE MULTIEMPRESA}
{DEFINE ALMACEN} {$DEFINE ALMACEN}
{DEFINE PEDIDOSPROVEEDOR} {DEFINE PEDIDOSPROVEEDOR}
{$DEFINE CONTABILIDAD} {$DEFINE CONTABILIDAD}

16
Source/Modulos/Articulos/Articulos_Group.groupproj
View File

@ -9,6 +9,7 @@
<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="..\Contactos\Views\Contactos_view.dproj" />
<Projects Include="Controller\Articulos_controller.dproj" /> <Projects Include="Controller\Articulos_controller.dproj" />
<Projects Include="Data\Articulos_data.dproj" /> <Projects Include="Data\Articulos_data.dproj" />
<Projects Include="Model\Articulos_model.dproj" /> <Projects Include="Model\Articulos_model.dproj" />
@ -39,6 +40,15 @@
<Target Name="GUIBase:Make"> <Target Name="GUIBase:Make">
<MSBuild Projects="..\..\GUIBase\GUIBase.dproj" Targets="Make" /> <MSBuild Projects="..\..\GUIBase\GUIBase.dproj" Targets="Make" />
</Target> </Target>
<Target Name="Contactos_view">
<MSBuild Projects="..\Contactos\Views\Contactos_view.dproj" Targets="" />
</Target>
<Target Name="Contactos_view:Clean">
<MSBuild Projects="..\Contactos\Views\Contactos_view.dproj" Targets="Clean" />
</Target>
<Target Name="Contactos_view:Make">
<MSBuild Projects="..\Contactos\Views\Contactos_view.dproj" Targets="Make" />
</Target>
<Target Name="ApplicationBase"> <Target Name="ApplicationBase">
<MSBuild Projects="..\..\ApplicationBase\ApplicationBase.dproj" Targets="" /> <MSBuild Projects="..\..\ApplicationBase\ApplicationBase.dproj" Targets="" />
</Target> </Target>
@ -112,13 +122,13 @@
<MSBuild Projects="..\..\Servidor\FactuGES_Server.dproj" Targets="Make" /> <MSBuild Projects="..\..\Servidor\FactuGES_Server.dproj" Targets="Make" />
</Target> </Target>
<Target Name="Build"> <Target Name="Build">
<CallTarget Targets="Base;GUIBase;ApplicationBase;Articulos_model;Articulos_data;Articulos_controller;Articulos_view;Articulos_plugin;FactuGES;FactuGES_Server" /> <CallTarget Targets="Base;GUIBase;Contactos_view;ApplicationBase;Articulos_model;Articulos_data;Articulos_controller;Articulos_view;Articulos_plugin;FactuGES;FactuGES_Server" />
</Target> </Target>
<Target Name="Clean"> <Target Name="Clean">
<CallTarget Targets="Base:Clean;GUIBase:Clean;ApplicationBase:Clean;Articulos_model:Clean;Articulos_data:Clean;Articulos_controller:Clean;Articulos_view:Clean;Articulos_plugin:Clean;FactuGES:Clean;FactuGES_Server:Clean" /> <CallTarget Targets="Base:Clean;GUIBase:Clean;Contactos_view:Clean;ApplicationBase:Clean;Articulos_model:Clean;Articulos_data:Clean;Articulos_controller:Clean;Articulos_view:Clean;Articulos_plugin:Clean;FactuGES:Clean;FactuGES_Server:Clean" />
</Target> </Target>
<Target Name="Make"> <Target Name="Make">
<CallTarget Targets="Base:Make;GUIBase:Make;ApplicationBase:Make;Articulos_model:Make;Articulos_data:Make;Articulos_controller:Make;Articulos_view:Make;Articulos_plugin:Make;FactuGES:Make;FactuGES_Server:Make" /> <CallTarget Targets="Base:Make;GUIBase:Make;Contactos_view:Make;ApplicationBase:Make;Articulos_model:Make;Articulos_data:Make;Articulos_controller:Make;Articulos_view:Make;Articulos_plugin:Make;FactuGES:Make;FactuGES_Server:Make" />
</Target> </Target>
<Import Condition="Exists('$(MSBuildBinPath)\Borland.Group.Targets')" Project="$(MSBuildBinPath)\Borland.Group.Targets" /> <Import Condition="Exists('$(MSBuildBinPath)\Borland.Group.Targets')" Project="$(MSBuildBinPath)\Borland.Group.Targets" />
</Project> </Project>

10
Source/Modulos/Articulos/Data/uDataModuleArticulos.dfm
View File

@ -14,12 +14,12 @@ inherited DataModuleArticulos: TDataModuleArticulos
Top = 84 Top = 84
end end
object rda_Articulos: TDARemoteDataAdapter object rda_Articulos: TDARemoteDataAdapter
DataStreamer = Bin2DataStreamer
GetSchemaCall.RemoteService = RORemoteService GetSchemaCall.RemoteService = RORemoteService
GetDataCall.RemoteService = RORemoteService GetDataCall.RemoteService = RORemoteService
UpdateDataCall.RemoteService = RORemoteService UpdateDataCall.RemoteService = RORemoteService
GetScriptsCall.RemoteService = RORemoteService GetScriptsCall.RemoteService = RORemoteService
RemoteService = RORemoteService RemoteService = RORemoteService
DataStreamer = Bin2DataStreamer
Left = 51 Left = 51
Top = 151 Top = 151
end end
@ -119,6 +119,10 @@ inherited DataModuleArticulos: TDataModuleArticulos
DataType = datCurrency DataType = datCurrency
DictionaryEntry = 'Articulos_PRECIO_NETO' DictionaryEntry = 'Articulos_PRECIO_NETO'
end end
item
Name = 'PRECIO_PVP'
DataType = datCurrency
end
item item
Name = 'INVENTARIABLE' Name = 'INVENTARIABLE'
DataType = datSmallInt DataType = datSmallInt
@ -143,8 +147,6 @@ inherited DataModuleArticulos: TDataModuleArticulos
Params = <> Params = <>
StreamingOptions = [soDisableEventsWhileStreaming] StreamingOptions = [soDisableEventsWhileStreaming]
RemoteDataAdapter = rda_Articulos RemoteDataAdapter = rda_Articulos
DetailOptions = [dtCascadeOpenClose, dtCascadeApplyUpdates, dtAutoFetch, dtCascadeDelete, dtCascadeUpdate, dtDisableLogOfCascadeDeletes, dtDisableLogOfCascadeUpdates, dtIncludeInAllInOneFetch]
MasterOptions = [moCascadeOpenClose, moCascadeApplyUpdates, moCascadeDelete, moCascadeUpdate, moDisableLogOfCascadeDeletes, moDisableLogOfCascadeUpdates]
LogicalName = 'Articulos' LogicalName = 'Articulos'
IndexDefs = <> IndexDefs = <>
Left = 232 Left = 232
@ -251,8 +253,6 @@ inherited DataModuleArticulos: TDataModuleArticulos
end> end>
StreamingOptions = [soDisableEventsWhileStreaming] StreamingOptions = [soDisableEventsWhileStreaming]
RemoteDataAdapter = rda_Articulos RemoteDataAdapter = rda_Articulos
DetailOptions = [dtCascadeOpenClose, dtCascadeApplyUpdates, dtAutoFetch, dtCascadeDelete, dtCascadeUpdate, dtDisableLogOfCascadeDeletes, dtDisableLogOfCascadeUpdates, dtIncludeInAllInOneFetch]
MasterOptions = [moCascadeOpenClose, moCascadeApplyUpdates, moCascadeDelete, moCascadeUpdate, moDisableLogOfCascadeDeletes, moDisableLogOfCascadeUpdates]
LogicalName = 'ArticulosParaCliente' LogicalName = 'ArticulosParaCliente'
IndexDefs = <> IndexDefs = <>
Left = 400 Left = 400

53
Source/Modulos/Articulos/Model/schArticulosClient_Intf.pas
View File

@ -3,14 +3,14 @@ unit schArticulosClient_Intf;
interface interface
uses uses
Classes, DB, schBase_Intf, SysUtils, uROClasses, uDADataTable, FmtBCD, uROXMLIntf; Classes, DB, schBase_Intf, SysUtils, uROClasses, uDAInterfaces, uDADataTable, FmtBCD, uROXMLIntf;
const const
{ Data table rules ids { Data table rules ids
Feel free to change them to something more human readable Feel free to change them to something more human readable
but make sure they are unique in the context of your application } but make sure they are unique in the context of your application }
RID_Articulos = '{9F6189A0-1B2F-4ED3-8DCC-540C38366485}'; RID_Articulos = '{0AA3EA1D-D59E-442E-8D95-82EDDE05EBF7}';
RID_ArticulosParaCliente = '{84BC0DB1-97F7-438D-B161-7564778ED6D8}'; RID_ArticulosParaCliente = '{38FEB639-5DDC-4320-905C-17ABB03058E2}';
{ Data table names } { Data table names }
nme_Articulos = 'Articulos'; nme_Articulos = 'Articulos';
@ -32,6 +32,7 @@ const
fld_ArticulosPRECIO_PORTE = 'PRECIO_PORTE'; fld_ArticulosPRECIO_PORTE = 'PRECIO_PORTE';
fld_ArticulosDESCUENTO = 'DESCUENTO'; fld_ArticulosDESCUENTO = 'DESCUENTO';
fld_ArticulosPRECIO_NETO = 'PRECIO_NETO'; fld_ArticulosPRECIO_NETO = 'PRECIO_NETO';
fld_ArticulosPRECIO_PVP = 'PRECIO_PVP';
fld_ArticulosINVENTARIABLE = 'INVENTARIABLE'; fld_ArticulosINVENTARIABLE = 'INVENTARIABLE';
fld_ArticulosID_PROVEEDOR = 'ID_PROVEEDOR'; fld_ArticulosID_PROVEEDOR = 'ID_PROVEEDOR';
fld_ArticulosNOMBRE_PROVEEDOR = 'NOMBRE_PROVEEDOR'; fld_ArticulosNOMBRE_PROVEEDOR = 'NOMBRE_PROVEEDOR';
@ -53,10 +54,11 @@ const
idx_ArticulosPRECIO_PORTE = 12; idx_ArticulosPRECIO_PORTE = 12;
idx_ArticulosDESCUENTO = 13; idx_ArticulosDESCUENTO = 13;
idx_ArticulosPRECIO_NETO = 14; idx_ArticulosPRECIO_NETO = 14;
idx_ArticulosINVENTARIABLE = 15; idx_ArticulosPRECIO_PVP = 15;
idx_ArticulosID_PROVEEDOR = 16; idx_ArticulosINVENTARIABLE = 16;
idx_ArticulosNOMBRE_PROVEEDOR = 17; idx_ArticulosID_PROVEEDOR = 17;
idx_ArticulosELIMINADO = 18; idx_ArticulosNOMBRE_PROVEEDOR = 18;
idx_ArticulosELIMINADO = 19;
{ ArticulosParaCliente fields } { ArticulosParaCliente fields }
fld_ArticulosParaClienteID = 'ID'; fld_ArticulosParaClienteID = 'ID';
@ -103,7 +105,7 @@ const
type type
{ IArticulos } { IArticulos }
IArticulos = interface(IDAStronglyTypedDataTable) IArticulos = interface(IDAStronglyTypedDataTable)
['{55AA5752-BC15-4FD7-A39A-97867A837A69}'] ['{66416E90-B0A0-4E1D-973E-BBA359030F83}']
{ Property getters and setters } { Property getters and setters }
function GetIDValue: Integer; function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer); procedure SetIDValue(const aValue: Integer);
@ -164,6 +166,10 @@ type
procedure SetPRECIO_NETOValue(const aValue: Currency); procedure SetPRECIO_NETOValue(const aValue: Currency);
function GetPRECIO_NETOIsNull: Boolean; function GetPRECIO_NETOIsNull: Boolean;
procedure SetPRECIO_NETOIsNull(const aValue: Boolean); procedure SetPRECIO_NETOIsNull(const aValue: Boolean);
function GetPRECIO_PVPValue: Currency;
procedure SetPRECIO_PVPValue(const aValue: Currency);
function GetPRECIO_PVPIsNull: Boolean;
procedure SetPRECIO_PVPIsNull(const aValue: Boolean);
function GetINVENTARIABLEValue: SmallInt; function GetINVENTARIABLEValue: SmallInt;
procedure SetINVENTARIABLEValue(const aValue: SmallInt); procedure SetINVENTARIABLEValue(const aValue: SmallInt);
function GetINVENTARIABLEIsNull: Boolean; function GetINVENTARIABLEIsNull: Boolean;
@ -213,6 +219,8 @@ type
property DESCUENTOIsNull: Boolean read GetDESCUENTOIsNull write SetDESCUENTOIsNull; property DESCUENTOIsNull: Boolean read GetDESCUENTOIsNull write SetDESCUENTOIsNull;
property PRECIO_NETO: Currency read GetPRECIO_NETOValue write SetPRECIO_NETOValue; property PRECIO_NETO: Currency read GetPRECIO_NETOValue write SetPRECIO_NETOValue;
property PRECIO_NETOIsNull: Boolean read GetPRECIO_NETOIsNull write SetPRECIO_NETOIsNull; property PRECIO_NETOIsNull: Boolean read GetPRECIO_NETOIsNull write SetPRECIO_NETOIsNull;
property PRECIO_PVP: Currency read GetPRECIO_PVPValue write SetPRECIO_PVPValue;
property PRECIO_PVPIsNull: Boolean read GetPRECIO_PVPIsNull write SetPRECIO_PVPIsNull;
property INVENTARIABLE: SmallInt read GetINVENTARIABLEValue write SetINVENTARIABLEValue; property INVENTARIABLE: SmallInt read GetINVENTARIABLEValue write SetINVENTARIABLEValue;
property INVENTARIABLEIsNull: Boolean read GetINVENTARIABLEIsNull write SetINVENTARIABLEIsNull; property INVENTARIABLEIsNull: Boolean read GetINVENTARIABLEIsNull write SetINVENTARIABLEIsNull;
property ID_PROVEEDOR: Integer read GetID_PROVEEDORValue write SetID_PROVEEDORValue; property ID_PROVEEDOR: Integer read GetID_PROVEEDORValue write SetID_PROVEEDORValue;
@ -289,6 +297,10 @@ type
procedure SetPRECIO_NETOValue(const aValue: Currency); virtual; procedure SetPRECIO_NETOValue(const aValue: Currency); virtual;
function GetPRECIO_NETOIsNull: Boolean; virtual; function GetPRECIO_NETOIsNull: Boolean; virtual;
procedure SetPRECIO_NETOIsNull(const aValue: Boolean); virtual; procedure SetPRECIO_NETOIsNull(const aValue: Boolean); virtual;
function GetPRECIO_PVPValue: Currency; virtual;
procedure SetPRECIO_PVPValue(const aValue: Currency); virtual;
function GetPRECIO_PVPIsNull: Boolean; virtual;
procedure SetPRECIO_PVPIsNull(const aValue: Boolean); virtual;
function GetINVENTARIABLEValue: SmallInt; virtual; function GetINVENTARIABLEValue: SmallInt; virtual;
procedure SetINVENTARIABLEValue(const aValue: SmallInt); virtual; procedure SetINVENTARIABLEValue(const aValue: SmallInt); virtual;
function GetINVENTARIABLEIsNull: Boolean; virtual; function GetINVENTARIABLEIsNull: Boolean; virtual;
@ -337,6 +349,8 @@ type
property DESCUENTOIsNull: Boolean read GetDESCUENTOIsNull write SetDESCUENTOIsNull; property DESCUENTOIsNull: Boolean read GetDESCUENTOIsNull write SetDESCUENTOIsNull;
property PRECIO_NETO: Currency read GetPRECIO_NETOValue write SetPRECIO_NETOValue; property PRECIO_NETO: Currency read GetPRECIO_NETOValue write SetPRECIO_NETOValue;
property PRECIO_NETOIsNull: Boolean read GetPRECIO_NETOIsNull write SetPRECIO_NETOIsNull; property PRECIO_NETOIsNull: Boolean read GetPRECIO_NETOIsNull write SetPRECIO_NETOIsNull;
property PRECIO_PVP: Currency read GetPRECIO_PVPValue write SetPRECIO_PVPValue;
property PRECIO_PVPIsNull: Boolean read GetPRECIO_PVPIsNull write SetPRECIO_PVPIsNull;
property INVENTARIABLE: SmallInt read GetINVENTARIABLEValue write SetINVENTARIABLEValue; property INVENTARIABLE: SmallInt read GetINVENTARIABLEValue write SetINVENTARIABLEValue;
property INVENTARIABLEIsNull: Boolean read GetINVENTARIABLEIsNull write SetINVENTARIABLEIsNull; property INVENTARIABLEIsNull: Boolean read GetINVENTARIABLEIsNull write SetINVENTARIABLEIsNull;
property ID_PROVEEDOR: Integer read GetID_PROVEEDORValue write SetID_PROVEEDORValue; property ID_PROVEEDOR: Integer read GetID_PROVEEDORValue write SetID_PROVEEDORValue;
@ -354,7 +368,7 @@ type
{ IArticulosParaCliente } { IArticulosParaCliente }
IArticulosParaCliente = interface(IDAStronglyTypedDataTable) IArticulosParaCliente = interface(IDAStronglyTypedDataTable)
['{F46994FF-67BE-4892-BE35-890D5A779CB9}'] ['{7D8A2E3A-AAD7-49B5-825E-E0D3581DEF75}']
{ Property getters and setters } { Property getters and setters }
function GetIDValue: Integer; function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer); procedure SetIDValue(const aValue: Integer);
@ -944,6 +958,27 @@ begin
DataTable.Fields[idx_ArticulosPRECIO_NETO].AsVariant := Null; DataTable.Fields[idx_ArticulosPRECIO_NETO].AsVariant := Null;
end; end;
function TArticulosDataTableRules.GetPRECIO_PVPValue: Currency;
begin
result := DataTable.Fields[idx_ArticulosPRECIO_PVP].AsCurrency;
end;
procedure TArticulosDataTableRules.SetPRECIO_PVPValue(const aValue: Currency);
begin
DataTable.Fields[idx_ArticulosPRECIO_PVP].AsCurrency := aValue;
end;
function TArticulosDataTableRules.GetPRECIO_PVPIsNull: boolean;
begin
result := DataTable.Fields[idx_ArticulosPRECIO_PVP].IsNull;
end;
procedure TArticulosDataTableRules.SetPRECIO_PVPIsNull(const aValue: Boolean);
begin
if aValue then
DataTable.Fields[idx_ArticulosPRECIO_PVP].AsVariant := Null;
end;
function TArticulosDataTableRules.GetINVENTARIABLEValue: SmallInt; function TArticulosDataTableRules.GetINVENTARIABLEValue: SmallInt;
begin begin
result := DataTable.Fields[idx_ArticulosINVENTARIABLE].AsSmallInt; result := DataTable.Fields[idx_ArticulosINVENTARIABLE].AsSmallInt;

63
Source/Modulos/Articulos/Model/schArticulosServer_Intf.pas
View File

@ -9,13 +9,13 @@ 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_ArticulosDelta = '{82298E75-82C9-4852-A33B-491F6C1C22B6}'; RID_ArticulosDelta = '{64BC3AAC-E5A1-49C9-A8B9-55D5C2D0A921}';
RID_ArticulosParaClienteDelta = '{CD4567F1-5B6C-4215-BED9-48EC27CE653D}'; RID_ArticulosParaClienteDelta = '{3F0D35B7-21B1-4130-B5EC-C43075204160}';
type type
{ IArticulosDelta } { IArticulosDelta }
IArticulosDelta = interface(IArticulos) IArticulosDelta = interface(IArticulos)
['{82298E75-82C9-4852-A33B-491F6C1C22B6}'] ['{64BC3AAC-E5A1-49C9-A8B9-55D5C2D0A921}']
{ Property getters and setters } { Property getters and setters }
function GetOldIDValue : Integer; function GetOldIDValue : Integer;
function GetOldID_EMPRESAValue : Integer; function GetOldID_EMPRESAValue : Integer;
@ -32,6 +32,7 @@ type
function GetOldPRECIO_PORTEValue : Currency; function GetOldPRECIO_PORTEValue : Currency;
function GetOldDESCUENTOValue : Float; function GetOldDESCUENTOValue : Float;
function GetOldPRECIO_NETOValue : Currency; function GetOldPRECIO_NETOValue : Currency;
function GetOldPRECIO_PVPValue : Currency;
function GetOldINVENTARIABLEValue : SmallInt; function GetOldINVENTARIABLEValue : SmallInt;
function GetOldID_PROVEEDORValue : Integer; function GetOldID_PROVEEDORValue : Integer;
function GetOldNOMBRE_PROVEEDORValue : String; function GetOldNOMBRE_PROVEEDORValue : String;
@ -53,6 +54,7 @@ type
property OldPRECIO_PORTE : Currency read GetOldPRECIO_PORTEValue; property OldPRECIO_PORTE : Currency read GetOldPRECIO_PORTEValue;
property OldDESCUENTO : Float read GetOldDESCUENTOValue; property OldDESCUENTO : Float read GetOldDESCUENTOValue;
property OldPRECIO_NETO : Currency read GetOldPRECIO_NETOValue; property OldPRECIO_NETO : Currency read GetOldPRECIO_NETOValue;
property OldPRECIO_PVP : Currency read GetOldPRECIO_PVPValue;
property OldINVENTARIABLE : SmallInt read GetOldINVENTARIABLEValue; property OldINVENTARIABLE : SmallInt read GetOldINVENTARIABLEValue;
property OldID_PROVEEDOR : Integer read GetOldID_PROVEEDORValue; property OldID_PROVEEDOR : Integer read GetOldID_PROVEEDORValue;
property OldNOMBRE_PROVEEDOR : String read GetOldNOMBRE_PROVEEDORValue; property OldNOMBRE_PROVEEDOR : String read GetOldNOMBRE_PROVEEDORValue;
@ -155,6 +157,12 @@ type
function GetOldPRECIO_NETOIsNull: Boolean; virtual; function GetOldPRECIO_NETOIsNull: Boolean; virtual;
procedure SetPRECIO_NETOValue(const aValue: Currency); virtual; procedure SetPRECIO_NETOValue(const aValue: Currency); virtual;
procedure SetPRECIO_NETOIsNull(const aValue: Boolean); virtual; procedure SetPRECIO_NETOIsNull(const aValue: Boolean); virtual;
function GetPRECIO_PVPValue: Currency; virtual;
function GetPRECIO_PVPIsNull: Boolean; virtual;
function GetOldPRECIO_PVPValue: Currency; virtual;
function GetOldPRECIO_PVPIsNull: Boolean; virtual;
procedure SetPRECIO_PVPValue(const aValue: Currency); virtual;
procedure SetPRECIO_PVPIsNull(const aValue: Boolean); virtual;
function GetINVENTARIABLEValue: SmallInt; virtual; function GetINVENTARIABLEValue: SmallInt; virtual;
function GetINVENTARIABLEIsNull: Boolean; virtual; function GetINVENTARIABLEIsNull: Boolean; virtual;
function GetOldINVENTARIABLEValue: SmallInt; virtual; function GetOldINVENTARIABLEValue: SmallInt; virtual;
@ -241,6 +249,10 @@ type
property PRECIO_NETOIsNull : Boolean read GetPRECIO_NETOIsNull write SetPRECIO_NETOIsNull; property PRECIO_NETOIsNull : Boolean read GetPRECIO_NETOIsNull write SetPRECIO_NETOIsNull;
property OldPRECIO_NETO : Currency read GetOldPRECIO_NETOValue; property OldPRECIO_NETO : Currency read GetOldPRECIO_NETOValue;
property OldPRECIO_NETOIsNull : Boolean read GetOldPRECIO_NETOIsNull; property OldPRECIO_NETOIsNull : Boolean read GetOldPRECIO_NETOIsNull;
property PRECIO_PVP : Currency read GetPRECIO_PVPValue write SetPRECIO_PVPValue;
property PRECIO_PVPIsNull : Boolean read GetPRECIO_PVPIsNull write SetPRECIO_PVPIsNull;
property OldPRECIO_PVP : Currency read GetOldPRECIO_PVPValue;
property OldPRECIO_PVPIsNull : Boolean read GetOldPRECIO_PVPIsNull;
property INVENTARIABLE : SmallInt read GetINVENTARIABLEValue write SetINVENTARIABLEValue; property INVENTARIABLE : SmallInt read GetINVENTARIABLEValue write SetINVENTARIABLEValue;
property INVENTARIABLEIsNull : Boolean read GetINVENTARIABLEIsNull write SetINVENTARIABLEIsNull; property INVENTARIABLEIsNull : Boolean read GetINVENTARIABLEIsNull write SetINVENTARIABLEIsNull;
property OldINVENTARIABLE : SmallInt read GetOldINVENTARIABLEValue; property OldINVENTARIABLE : SmallInt read GetOldINVENTARIABLEValue;
@ -266,7 +278,7 @@ type
{ IArticulosParaClienteDelta } { IArticulosParaClienteDelta }
IArticulosParaClienteDelta = interface(IArticulosParaCliente) IArticulosParaClienteDelta = interface(IArticulosParaCliente)
['{CD4567F1-5B6C-4215-BED9-48EC27CE653D}'] ['{3F0D35B7-21B1-4130-B5EC-C43075204160}']
{ Property getters and setters } { Property getters and setters }
function GetOldIDValue : Integer; function GetOldIDValue : Integer;
function GetOldID_EMPRESAValue : Integer; function GetOldID_EMPRESAValue : Integer;
@ -539,7 +551,7 @@ end;
procedure TArticulosBusinessProcessorRules.IMAGEN_OnChange(Sender: TObject); procedure TArticulosBusinessProcessorRules.IMAGEN_OnChange(Sender: TObject);
begin begin
BusinessProcessor.CurrentChange.NewValueByName[fld_ArticulosIMAGEN] := VariantBinaryFromBinary((TROStream(Sender) as IROStream).Stream); BusinessProcessor.CurrentChange.NewValueByName[fld_ArticulosIMAGEN] := BinaryToBlobVariant((TROStream(Sender) as IROStream).Stream);
end; end;
function TArticulosBusinessProcessorRules.GetIDValue: Integer; function TArticulosBusinessProcessorRules.GetIDValue: Integer;
@ -702,7 +714,7 @@ begin
result := f_IMAGEN; result := f_IMAGEN;
result.Position := 0; result.Position := 0;
if not Result.InUpdateMode then begin if not Result.InUpdateMode then begin
WriteVariantBinaryToBinary(BusinessProcessor.CurrentChange.NewValueByName[fld_ArticulosIMAGEN], result.Stream); BlobVariantToBinary(BusinessProcessor.CurrentChange.NewValueByName[fld_ArticulosIMAGEN], result.Stream);
result.Position := 0; result.Position := 0;
end; end;
end; end;
@ -715,7 +727,7 @@ end;
function TArticulosBusinessProcessorRules.GetOldIMAGENValue: IROStream; function TArticulosBusinessProcessorRules.GetOldIMAGENValue: IROStream;
begin begin
result := NewROStream(); result := NewROStream();
WriteVariantBinaryToBinary(BusinessProcessor.CurrentChange.OldValueByName[fld_ArticulosIMAGEN], result.Stream); BlobVariantToBinary(BusinessProcessor.CurrentChange.OldValueByName[fld_ArticulosIMAGEN], result.Stream);
end; end;
function TArticulosBusinessProcessorRules.GetOldIMAGENIsNull: Boolean; function TArticulosBusinessProcessorRules.GetOldIMAGENIsNull: Boolean;
@ -1008,6 +1020,37 @@ begin
BusinessProcessor.CurrentChange.NewValueByName[fld_ArticulosPRECIO_NETO] := Null; BusinessProcessor.CurrentChange.NewValueByName[fld_ArticulosPRECIO_NETO] := Null;
end; end;
function TArticulosBusinessProcessorRules.GetPRECIO_PVPValue: Currency;
begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_ArticulosPRECIO_PVP];
end;
function TArticulosBusinessProcessorRules.GetPRECIO_PVPIsNull: Boolean;
begin
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_ArticulosPRECIO_PVP]);
end;
function TArticulosBusinessProcessorRules.GetOldPRECIO_PVPValue: Currency;
begin
result := BusinessProcessor.CurrentChange.OldValueByName[fld_ArticulosPRECIO_PVP];
end;
function TArticulosBusinessProcessorRules.GetOldPRECIO_PVPIsNull: Boolean;
begin
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_ArticulosPRECIO_PVP]);
end;
procedure TArticulosBusinessProcessorRules.SetPRECIO_PVPValue(const aValue: Currency);
begin
BusinessProcessor.CurrentChange.NewValueByName[fld_ArticulosPRECIO_PVP] := aValue;
end;
procedure TArticulosBusinessProcessorRules.SetPRECIO_PVPIsNull(const aValue: Boolean);
begin
if aValue then
BusinessProcessor.CurrentChange.NewValueByName[fld_ArticulosPRECIO_PVP] := Null;
end;
function TArticulosBusinessProcessorRules.GetINVENTARIABLEValue: SmallInt; function TArticulosBusinessProcessorRules.GetINVENTARIABLEValue: SmallInt;
begin begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_ArticulosINVENTARIABLE]; result := BusinessProcessor.CurrentChange.NewValueByName[fld_ArticulosINVENTARIABLE];
@ -1152,7 +1195,7 @@ end;
procedure TArticulosParaClienteBusinessProcessorRules.IMAGEN_OnChange(Sender: TObject); procedure TArticulosParaClienteBusinessProcessorRules.IMAGEN_OnChange(Sender: TObject);
begin begin
BusinessProcessor.CurrentChange.NewValueByName[fld_ArticulosParaClienteIMAGEN] := VariantBinaryFromBinary((TROStream(Sender) as IROStream).Stream); BusinessProcessor.CurrentChange.NewValueByName[fld_ArticulosParaClienteIMAGEN] := BinaryToBlobVariant((TROStream(Sender) as IROStream).Stream);
end; end;
function TArticulosParaClienteBusinessProcessorRules.GetIDValue: Integer; function TArticulosParaClienteBusinessProcessorRules.GetIDValue: Integer;
@ -1315,7 +1358,7 @@ begin
result := f_IMAGEN; result := f_IMAGEN;
result.Position := 0; result.Position := 0;
if not Result.InUpdateMode then begin if not Result.InUpdateMode then begin
WriteVariantBinaryToBinary(BusinessProcessor.CurrentChange.NewValueByName[fld_ArticulosParaClienteIMAGEN], result.Stream); BlobVariantToBinary(BusinessProcessor.CurrentChange.NewValueByName[fld_ArticulosParaClienteIMAGEN], result.Stream);
result.Position := 0; result.Position := 0;
end; end;
end; end;
@ -1328,7 +1371,7 @@ end;
function TArticulosParaClienteBusinessProcessorRules.GetOldIMAGENValue: IROStream; function TArticulosParaClienteBusinessProcessorRules.GetOldIMAGENValue: IROStream;
begin begin
result := NewROStream(); result := NewROStream();
WriteVariantBinaryToBinary(BusinessProcessor.CurrentChange.OldValueByName[fld_ArticulosParaClienteIMAGEN], result.Stream); BlobVariantToBinary(BusinessProcessor.CurrentChange.OldValueByName[fld_ArticulosParaClienteIMAGEN], result.Stream);
end; end;
function TArticulosParaClienteBusinessProcessorRules.GetOldIMAGENIsNull: Boolean; function TArticulosParaClienteBusinessProcessorRules.GetOldIMAGENIsNull: Boolean;

4
Source/Modulos/Articulos/Plugin/uPluginArticulos.dfm
View File

@ -53,9 +53,9 @@ object PluginArticulos: TPluginArticulos
Left = 40 Left = 40
Top = 16 Top = 16
object N1: TMenuItem object N1: TMenuItem
Caption = 'Log'#237'stica' Caption = 'Datos'
object Articulos1: TMenuItem object Articulos1: TMenuItem
Tag = 101 Tag = 1000
Action = actArticulos Action = actArticulos
end end
end end

84
Source/Modulos/Articulos/Servidor/srvArticulos_Impl.dfm
View File

@ -203,6 +203,10 @@ object srvArticulos: TsrvArticulos
item item
DatasetField = 'ELIMINADO' DatasetField = 'ELIMINADO'
TableField = 'ELIMINADO' TableField = 'ELIMINADO'
end
item
DatasetField = 'PRECIO_PVP'
TableField = 'PRECIO_PVP'
end> end>
end> end>
Name = 'Articulos' Name = 'Articulos'
@ -290,6 +294,10 @@ object srvArticulos: TsrvArticulos
DataType = datCurrency DataType = datCurrency
DictionaryEntry = 'Articulos_PRECIO_NETO' DictionaryEntry = 'Articulos_PRECIO_NETO'
end end
item
Name = 'PRECIO_PVP'
DataType = datCurrency
end
item item
Name = 'INVENTARIABLE' Name = 'INVENTARIABLE'
DataType = datSmallInt DataType = datSmallInt
@ -515,70 +523,97 @@ object srvArticulos: TsrvArticulos
end end
item item
Name = 'ID_EMPRESA' Name = 'ID_EMPRESA'
DataType = datInteger
Value = '' Value = ''
end end
item item
Name = 'REFERENCIA' Name = 'REFERENCIA'
DataType = datString
Size = 255
Value = '' Value = ''
end end
item item
Name = 'DESCRIPCION' Name = 'DESCRIPCION'
DataType = datString
Size = 255
Value = '' Value = ''
end end
item item
Name = 'FAMILIA' Name = 'FAMILIA'
DataType = datString
Size = 255
Value = '' Value = ''
end end
item item
Name = 'IMAGEN' Name = 'IMAGEN'
DataType = datBlob
Value = '' Value = ''
end end
item item
Name = 'COMISIONABLE' Name = 'COMISIONABLE'
DataType = datSmallInt
Value = '' Value = ''
end end
item item
Name = 'FECHA_ALTA' Name = 'FECHA_ALTA'
DataType = datDateTime
Value = '' Value = ''
end end
item item
Name = 'FECHA_MODIFICACION' Name = 'FECHA_MODIFICACION'
DataType = datDateTime
Value = '' Value = ''
end end
item item
Name = 'USUARIO' Name = 'USUARIO'
DataType = datString
Size = 30
Value = '' Value = ''
end end
item item
Name = 'PRECIO_COSTE' Name = 'PRECIO_COSTE'
DataType = datCurrency
Value = '' Value = ''
end end
item item
Name = 'PRECIO_PORTE' Name = 'PRECIO_PORTE'
DataType = datCurrency
Value = '' Value = ''
end end
item item
Name = 'DESCUENTO' Name = 'DESCUENTO'
DataType = datFloat
Value = '' Value = ''
end end
item item
Name = 'ID_PROVEEDOR' Name = 'ID_PROVEEDOR'
DataType = datInteger
Value = '' Value = ''
end end
item item
Name = 'PRECIO_NETO' Name = 'PRECIO_NETO'
DataType = datCurrency
Value = ''
end
item
Name = 'PRECIO_PVP'
DataType = datCurrency
Value = '' Value = ''
end end
item item
Name = 'REFERENCIA_PROV' Name = 'REFERENCIA_PROV'
DataType = datString
Size = 255
Value = '' Value = ''
end end
item item
Name = 'INVENTARIABLE' Name = 'INVENTARIABLE'
DataType = datSmallInt
Value = '' Value = ''
end end
item item
Name = 'ELIMINADO' Name = 'ELIMINADO'
DataType = datSmallInt
Value = '' Value = ''
end> end>
Statements = < Statements = <
@ -587,14 +622,14 @@ object srvArticulos: TsrvArticulos
TargetTable = 'ARTICULOS' TargetTable = 'ARTICULOS'
SQL = SQL =
'INSERT'#10' INTO ARTICULOS'#10' (ID, ID_EMPRESA, REFERENCIA, DESCRIP' + 'INSERT'#10' INTO ARTICULOS'#10' (ID, ID_EMPRESA, REFERENCIA, DESCRIP' +
'CION, FAMILIA, IMAGEN, '#10' COMISIONABLE, FECHA_ALTA, FECHA_MOD' + 'CION, FAMILIA, IMAGEN,'#10' COMISIONABLE, FECHA_ALTA, FECHA_MODI' +
'IFICACION, USUARIO, '#10' PRECIO_COSTE, PRECIO_PORTE, DESCUENTO,' + 'FICACION, USUARIO,'#10' PRECIO_COSTE, PRECIO_PORTE, DESCUENTO, I' +
' ID_PROVEEDOR, '#10' PRECIO_NETO, REFERENCIA_PROV, INVENTARIABLE' + 'D_PROVEEDOR,'#10' PRECIO_NETO, PRECIO_PVP, REFERENCIA_PROV, INVE' +
', ELIMINADO)'#10' VALUES'#10' (:ID, :ID_EMPRESA, :REFERENCIA, :DESCR' + 'NTARIABLE, ELIMINADO)'#10' VALUES'#10' (:ID, :ID_EMPRESA, :REFERENCI' +
'IPCION, :FAMILIA, '#10' :IMAGEN, :COMISIONABLE, :FECHA_ALTA, :FE' + 'A, :DESCRIPCION, :FAMILIA,'#10' :IMAGEN, :COMISIONABLE, :FECHA_A' +
'CHA_MODIFICACION, '#10' :USUARIO, :PRECIO_COSTE, :PRECIO_PORTE, ' + 'LTA, :FECHA_MODIFICACION,'#10' :USUARIO, :PRECIO_COSTE, :PRECIO_' +
':DESCUENTO, '#10' :ID_PROVEEDOR, :PRECIO_NETO, :REFERENCIA_PROV,' + 'PORTE, :DESCUENTO,'#10' :ID_PROVEEDOR, :PRECIO_NETO, :PRECIO_PVP' +
#10' :INVENTARIABLE, :ELIMINADO)' ', :REFERENCIA_PROV,'#10' :INVENTARIABLE, :ELIMINADO)'#10
StatementType = stSQL StatementType = stSQL
ColumnMappings = <> ColumnMappings = <>
end> end>
@ -622,70 +657,97 @@ object srvArticulos: TsrvArticulos
Params = < Params = <
item item
Name = 'ID_EMPRESA' Name = 'ID_EMPRESA'
DataType = datInteger
Value = '' Value = ''
end end
item item
Name = 'REFERENCIA' Name = 'REFERENCIA'
DataType = datString
Size = 255
Value = '' Value = ''
end end
item item
Name = 'DESCRIPCION' Name = 'DESCRIPCION'
DataType = datString
Size = 255
Value = '' Value = ''
end end
item item
Name = 'FAMILIA' Name = 'FAMILIA'
DataType = datString
Size = 255
Value = '' Value = ''
end end
item item
Name = 'IMAGEN' Name = 'IMAGEN'
DataType = datBlob
Value = '' Value = ''
end end
item item
Name = 'COMISIONABLE' Name = 'COMISIONABLE'
DataType = datSmallInt
Value = '' Value = ''
end end
item item
Name = 'FECHA_ALTA' Name = 'FECHA_ALTA'
DataType = datDateTime
Value = '' Value = ''
end end
item item
Name = 'FECHA_MODIFICACION' Name = 'FECHA_MODIFICACION'
DataType = datDateTime
Value = '' Value = ''
end end
item item
Name = 'USUARIO' Name = 'USUARIO'
DataType = datString
Size = 30
Value = '' Value = ''
end end
item item
Name = 'PRECIO_COSTE' Name = 'PRECIO_COSTE'
DataType = datCurrency
Value = '' Value = ''
end end
item item
Name = 'PRECIO_PORTE' Name = 'PRECIO_PORTE'
DataType = datCurrency
Value = '' Value = ''
end end
item item
Name = 'DESCUENTO' Name = 'DESCUENTO'
DataType = datFloat
Value = '' Value = ''
end end
item item
Name = 'ID_PROVEEDOR' Name = 'ID_PROVEEDOR'
DataType = datInteger
Value = '' Value = ''
end end
item item
Name = 'PRECIO_NETO' Name = 'PRECIO_NETO'
DataType = datCurrency
Value = ''
end
item
Name = 'PRECIO_PVP'
DataType = datCurrency
Value = '' Value = ''
end end
item item
Name = 'INVENTARIABLE' Name = 'INVENTARIABLE'
DataType = datSmallInt
Value = '' Value = ''
end end
item item
Name = 'REFERENCIA_PROV' Name = 'REFERENCIA_PROV'
DataType = datString
Size = 255
Value = '' Value = ''
end end
item item
Name = 'ELIMINADO' Name = 'ELIMINADO'
DataType = datSmallInt
Value = '' Value = ''
end end
item item
@ -704,9 +766,9 @@ object srvArticulos: TsrvArticulos
' :FECHA_MODIFICACION, '#10' USUARIO = :USUARIO, '#10' PRECIO_COSTE' + ' :FECHA_MODIFICACION, '#10' USUARIO = :USUARIO, '#10' PRECIO_COSTE' +
' = :PRECIO_COSTE, '#10' PRECIO_PORTE = :PRECIO_PORTE, '#10' DESCUE' + ' = :PRECIO_COSTE, '#10' PRECIO_PORTE = :PRECIO_PORTE, '#10' DESCUE' +
'NTO = :DESCUENTO, '#10' ID_PROVEEDOR = :ID_PROVEEDOR, '#10' PRECIO' + 'NTO = :DESCUENTO, '#10' ID_PROVEEDOR = :ID_PROVEEDOR, '#10' PRECIO' +
'_NETO = :PRECIO_NETO,'#10' INVENTARIABLE = :INVENTARIABLE,'#10' RE' + '_NETO = :PRECIO_NETO,'#10' PRECIO_PVP = :PRECIO_PVP,'#10' INVENTAR' +
'FERENCIA_PROV = :REFERENCIA_PROV,'#10' ELIMINADO = :ELIMINADO'#10' W' + 'IABLE = :INVENTARIABLE,'#10' REFERENCIA_PROV = :REFERENCIA_PROV,'#10 +
'HERE'#10' (ID = :OLD_ID)'#10 ' ELIMINADO = :ELIMINADO'#10' WHERE'#10' (ID = :OLD_ID)'#10
StatementType = stSQL StatementType = stSQL
ColumnMappings = <> ColumnMappings = <>
end> end>

68
Source/Modulos/Articulos/Views/uViewArticulo.dfm
View File

@ -1,6 +1,6 @@
inherited frViewArticulo: TfrViewArticulo inherited frViewArticulo: TfrViewArticulo
Width = 451 Width = 881
Height = 304 Height = 527
Align = alClient Align = alClient
OnCreate = CustomViewCreate OnCreate = CustomViewCreate
OnDestroy = CustomViewDestroy OnDestroy = CustomViewDestroy
@ -10,18 +10,19 @@ inherited frViewArticulo: TfrViewArticulo
object dxLayoutControlArticulo: TdxLayoutControl object dxLayoutControlArticulo: TdxLayoutControl
Left = 0 Left = 0
Top = 0 Top = 0
Width = 451 Width = 881
Height = 393 Height = 393
Align = alTop Align = alTop
ParentBackground = True ParentBackground = True
TabOrder = 0 TabOrder = 0
TabStop = False TabStop = False
AutoContentSizes = [acsWidth] AutoContentSizes = [acsWidth]
ExplicitWidth = 451
DesignSize = ( DesignSize = (
451 881
393) 393)
object PngSpeedButton2: TPngSpeedButton object PngSpeedButton2: TPngSpeedButton
Left = 546 Left = 836
Top = 28 Top = 28
Width = 23 Width = 23
Height = 22 Height = 22
@ -48,7 +49,7 @@ inherited frViewArticulo: TfrViewArticulo
PngOptions = [pngBlendOnDisabled, pngGrayscaleOnDisabled] PngOptions = [pngBlendOnDisabled, pngGrayscaleOnDisabled]
end end
object PngSpeedButton1: TPngSpeedButton object PngSpeedButton1: TPngSpeedButton
Left = 546 Left = 836
Top = 56 Top = 56
Width = 23 Width = 23
Height = 22 Height = 22
@ -102,6 +103,7 @@ inherited frViewArticulo: TfrViewArticulo
Caption = 'Art'#237'culo no comisionable' Caption = 'Art'#237'culo no comisionable'
DataBinding.DataField = 'COMISIONABLE' DataBinding.DataField = 'COMISIONABLE'
DataBinding.DataSource = dsViewArticulo DataBinding.DataSource = dsViewArticulo
Enabled = False
Properties.ImmediatePost = True Properties.ImmediatePost = True
Properties.NullStyle = nssUnchecked Properties.NullStyle = nssUnchecked
Properties.ValueChecked = 0 Properties.ValueChecked = 0
@ -121,7 +123,7 @@ inherited frViewArticulo: TfrViewArticulo
Width = 144 Width = 144
end end
object eImagen: TcxImage object eImagen: TcxImage
Left = 409 Left = 604
Top = 28 Top = 28
Properties.GraphicClassName = 'TJPEGImage' Properties.GraphicClassName = 'TJPEGImage'
Properties.ImmediatePost = True Properties.ImmediatePost = True
@ -167,19 +169,20 @@ inherited frViewArticulo: TfrViewArticulo
Width = 70 Width = 70
end end
inline frViewDatosYSeleccionProveedor1: TfrViewDatosYSeleccionProveedor inline frViewDatosYSeleccionProveedor1: TfrViewDatosYSeleccionProveedor
Left = 219 Left = 509
Top = 166 Top = 166
Width = 350 Width = 350
Height = 202 Height = 202
Enabled = False
Font.Charset = DEFAULT_CHARSET Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText Font.Color = clWindowText
Font.Height = -11 Font.Height = -11
Font.Name = 'Tahoma' Font.Name = 'Tahoma'
Font.Style = [] Font.Style = []
ParentFont = False ParentFont = False
TabOrder = 11 TabOrder = 12
ReadOnly = False ReadOnly = False
ExplicitLeft = 219 ExplicitLeft = 509
ExplicitTop = 166 ExplicitTop = 166
inherited dxLayoutControl1: TdxLayoutControl inherited dxLayoutControl1: TdxLayoutControl
inherited edtNIFCIF: TcxDBTextEdit inherited edtNIFCIF: TcxDBTextEdit
@ -206,6 +209,7 @@ inherited frViewArticulo: TfrViewArticulo
Anchors = [akLeft, akTop, akRight] Anchors = [akLeft, akTop, akRight]
DataBinding.DataField = 'REFERENCIA_PROV' DataBinding.DataField = 'REFERENCIA_PROV'
DataBinding.DataSource = dsViewArticulo DataBinding.DataSource = dsViewArticulo
Enabled = False
Style.BorderColor = clWindowFrame Style.BorderColor = clWindowFrame
Style.BorderStyle = ebs3D Style.BorderStyle = ebs3D
Style.Color = 14745599 Style.Color = 14745599
@ -242,6 +246,7 @@ inherited frViewArticulo: TfrViewArticulo
Top = 220 Top = 220
DataBinding.DataField = 'DESCUENTO' DataBinding.DataField = 'DESCUENTO'
DataBinding.DataSource = dsViewArticulo DataBinding.DataSource = dsViewArticulo
Enabled = False
Properties.Alignment.Horz = taRightJustify Properties.Alignment.Horz = taRightJustify
Properties.ImmediatePost = True Properties.ImmediatePost = True
Properties.MaxValue = 100.000000000000000000 Properties.MaxValue = 100.000000000000000000
@ -290,6 +295,7 @@ inherited frViewArticulo: TfrViewArticulo
Top = 274 Top = 274
DataBinding.DataField = 'PRECIO_PORTE' DataBinding.DataField = 'PRECIO_PORTE'
DataBinding.DataSource = dsViewArticulo DataBinding.DataSource = dsViewArticulo
Enabled = False
Properties.Alignment.Horz = taRightJustify Properties.Alignment.Horz = taRightJustify
Style.BorderColor = clWindowFrame Style.BorderColor = clWindowFrame
Style.BorderStyle = ebs3D Style.BorderStyle = ebs3D
@ -306,11 +312,12 @@ inherited frViewArticulo: TfrViewArticulo
Width = 86 Width = 86
end end
object cbNoInventariable: TcxDBCheckBox object cbNoInventariable: TcxDBCheckBox
Left = 242 Left = 361
Top = 109 Top = 109
Caption = 'Art'#237'culo no inventariable' Caption = 'Art'#237'culo no inventariable'
DataBinding.DataField = 'INVENTARIABLE' DataBinding.DataField = 'INVENTARIABLE'
DataBinding.DataSource = dsViewArticulo DataBinding.DataSource = dsViewArticulo
Enabled = False
Properties.ImmediatePost = True Properties.ImmediatePost = True
Properties.NullStyle = nssUnchecked Properties.NullStyle = nssUnchecked
Properties.ValueChecked = 0 Properties.ValueChecked = 0
@ -329,6 +336,26 @@ inherited frViewArticulo: TfrViewArticulo
TabOrder = 4 TabOrder = 4
Width = 144 Width = 144
end end
object ePrecioPVP: TcxDBCurrencyEdit
Left = 103
Top = 301
DataBinding.DataField = 'PRECIO_PVP'
DataBinding.DataSource = dsViewArticulo
Properties.Alignment.Horz = taRightJustify
Style.BorderColor = clWindowFrame
Style.BorderStyle = ebs3D
Style.HotTrack = False
Style.LookAndFeel.Kind = lfStandard
Style.LookAndFeel.NativeStyle = True
StyleDisabled.LookAndFeel.Kind = lfStandard
StyleDisabled.LookAndFeel.NativeStyle = True
StyleFocused.LookAndFeel.Kind = lfStandard
StyleFocused.LookAndFeel.NativeStyle = True
StyleHot.LookAndFeel.Kind = lfStandard
StyleHot.LookAndFeel.NativeStyle = True
TabOrder = 11
Width = 288
end
object dxLayoutControlArticuloGroup_Root: TdxLayoutGroup object dxLayoutControlArticuloGroup_Root: TdxLayoutGroup
ShowCaption = False ShowCaption = False
Hidden = True Hidden = True
@ -373,7 +400,9 @@ inherited frViewArticulo: TfrViewArticulo
ControlOptions.ShowBorder = False ControlOptions.ShowBorder = False
end end
object dxLayoutControlArticuloGroup8: TdxLayoutGroup object dxLayoutControlArticuloGroup8: TdxLayoutGroup
Enabled = False
ShowCaption = False ShowCaption = False
Visible = False
Hidden = True Hidden = True
LayoutDirection = ldHorizontal LayoutDirection = ldHorizontal
ShowBorder = False ShowBorder = False
@ -440,34 +469,49 @@ inherited frViewArticulo: TfrViewArticulo
Caption = 'Datos del proveedor para el art'#237'culo' Caption = 'Datos del proveedor para el art'#237'culo'
object dxLayoutControlArticuloItem15: TdxLayoutItem object dxLayoutControlArticuloItem15: TdxLayoutItem
Caption = 'Ref. del prov:' Caption = 'Ref. del prov:'
Enabled = False
Visible = False
Control = eReferenciaProv Control = eReferenciaProv
ControlOptions.ShowBorder = False ControlOptions.ShowBorder = False
end end
object dxLayoutControlArticuloItem16: TdxLayoutItem object dxLayoutControlArticuloItem16: TdxLayoutItem
Caption = 'Precio:' Caption = 'Precio coste:'
Control = ePrecioCoste Control = ePrecioCoste
ControlOptions.ShowBorder = False ControlOptions.ShowBorder = False
end end
object dxLayoutControlArticuloItem17: TdxLayoutItem object dxLayoutControlArticuloItem17: TdxLayoutItem
Caption = 'Dto (%):' Caption = 'Dto (%):'
Enabled = False
Visible = False
Control = eDescuento Control = eDescuento
ControlOptions.ShowBorder = False ControlOptions.ShowBorder = False
end end
object dxLayoutControlArticuloItem18: TdxLayoutItem object dxLayoutControlArticuloItem18: TdxLayoutItem
Caption = 'Precio neto:' Caption = 'Precio neto:'
Enabled = False
Visible = False
Control = ePrecioNeto Control = ePrecioNeto
ControlOptions.ShowBorder = False ControlOptions.ShowBorder = False
end end
object dxLayoutControlArticuloItem19: TdxLayoutItem object dxLayoutControlArticuloItem19: TdxLayoutItem
Caption = 'Coste de envio:' Caption = 'Coste de envio:'
Enabled = False
Visible = False
Control = ePrecioPorte Control = ePrecioPorte
ControlOptions.ShowBorder = False ControlOptions.ShowBorder = False
end end
object dxLayoutControlArticuloItem9: TdxLayoutItem
Caption = 'Precio PVP:'
Control = ePrecioPVP
ControlOptions.ShowBorder = False
end
end end
object dxLayoutControlArticuloGroup12: TdxLayoutGroup object dxLayoutControlArticuloGroup12: TdxLayoutGroup
AutoAligns = [aaVertical] AutoAligns = [aaVertical]
AlignHorz = ahRight AlignHorz = ahRight
Caption = 'Proveedor para el art'#237'culo' Caption = 'Proveedor para el art'#237'culo'
Enabled = False
Visible = False
object dxLayoutControlArticuloItem14: TdxLayoutItem object dxLayoutControlArticuloItem14: TdxLayoutItem
Control = frViewDatosYSeleccionProveedor1 Control = frViewDatosYSeleccionProveedor1
ControlOptions.AutoColor = True ControlOptions.AutoColor = True

2
Source/Modulos/Articulos/Views/uViewArticulo.pas
View File

@ -71,6 +71,8 @@ type
dxLayoutControlArticuloItem7: TdxLayoutItem; dxLayoutControlArticuloItem7: TdxLayoutItem;
cbNoInventariable: TcxDBCheckBox; cbNoInventariable: TcxDBCheckBox;
dxLayoutControlArticuloGroup8: TdxLayoutGroup; dxLayoutControlArticuloGroup8: TdxLayoutGroup;
dxLayoutControlArticuloItem9: TdxLayoutItem;
ePrecioPVP: TcxDBCurrencyEdit;
procedure actEliminarExecute(Sender: TObject); procedure actEliminarExecute(Sender: TObject);
procedure actAnadirExecute(Sender: TObject); procedure actAnadirExecute(Sender: TObject);
procedure cbFamiliaPropertiesInitPopup(Sender: TObject); procedure cbFamiliaPropertiesInitPopup(Sender: TObject);

35
Source/Modulos/Articulos/Views/uViewArticulos.dfm
View File

@ -31,9 +31,11 @@ inherited frViewArticulos: TfrViewArticulos
Tag = 1 Tag = 1
Value = 1 Value = 1
end> end>
Visible = False
BestFitMaxWidth = 22 BestFitMaxWidth = 22
MinWidth = 22 MinWidth = 22
Options.HorzSizing = False Options.HorzSizing = False
VisibleForCustomization = False
Width = 22 Width = 22
end end
object cxGridViewCOMISIONABLE: TcxGridDBColumn object cxGridViewCOMISIONABLE: TcxGridDBColumn
@ -63,9 +65,11 @@ inherited frViewArticulos: TfrViewArticulos
end> end>
Properties.PostPopupValueOnTab = True Properties.PostPopupValueOnTab = True
Properties.ShowDescriptions = False Properties.ShowDescriptions = False
Visible = False
BestFitMaxWidth = 22 BestFitMaxWidth = 22
MinWidth = 22 MinWidth = 22
Options.HorzSizing = False Options.HorzSizing = False
VisibleForCustomization = False
Width = 22 Width = 22
end end
object cxGridViewREFERENCIA: TcxGridDBColumn object cxGridViewREFERENCIA: TcxGridDBColumn
@ -74,28 +78,32 @@ inherited frViewArticulos: TfrViewArticulos
BestFitMaxWidth = 60 BestFitMaxWidth = 60
Width = 60 Width = 60
end end
object cxGridViewFAMILIA: TcxGridDBColumn
Caption = 'Familia'
DataBinding.FieldName = 'FAMILIA'
BestFitMaxWidth = 60
Width = 60
end
object cxGridViewDESCRIPCION: TcxGridDBColumn object cxGridViewDESCRIPCION: TcxGridDBColumn
Caption = 'Descripci'#243'n' Caption = 'Descripci'#243'n'
DataBinding.FieldName = 'DESCRIPCION' DataBinding.FieldName = 'DESCRIPCION'
BestFitMaxWidth = 120 BestFitMaxWidth = 120
Width = 120 Width = 120
end end
object cxGridViewFAMILIA: TcxGridDBColumn
Caption = 'Familia'
DataBinding.FieldName = 'FAMILIA'
BestFitMaxWidth = 60
Width = 60
end
object cxGridViewNOMBRE_PROVEEDOR: TcxGridDBColumn object cxGridViewNOMBRE_PROVEEDOR: TcxGridDBColumn
Caption = 'Proveedor' Caption = 'Proveedor'
DataBinding.FieldName = 'NOMBRE_PROVEEDOR' DataBinding.FieldName = 'NOMBRE_PROVEEDOR'
Visible = False
BestFitMaxWidth = 120 BestFitMaxWidth = 120
VisibleForCustomization = False
Width = 120 Width = 120
end end
object cxGridViewREFERENCIA_PROV: TcxGridDBColumn object cxGridViewREFERENCIA_PROV: TcxGridDBColumn
Caption = 'Ref. proveedor' Caption = 'Ref. proveedor'
DataBinding.FieldName = 'REFERENCIA_PROV' DataBinding.FieldName = 'REFERENCIA_PROV'
Visible = False
BestFitMaxWidth = 60 BestFitMaxWidth = 60
VisibleForCustomization = False
Width = 60 Width = 60
end end
object cxGridViewPRECIO_COSTE: TcxGridDBColumn object cxGridViewPRECIO_COSTE: TcxGridDBColumn
@ -112,24 +120,37 @@ inherited frViewArticulos: TfrViewArticulos
PropertiesClassName = 'TcxSpinEditProperties' PropertiesClassName = 'TcxSpinEditProperties'
Properties.Alignment.Horz = taRightJustify Properties.Alignment.Horz = taRightJustify
Properties.DisplayFormat = ',0.00 %;-,0.00 %' Properties.DisplayFormat = ',0.00 %;-,0.00 %'
Visible = False
FooterAlignmentHorz = taRightJustify FooterAlignmentHorz = taRightJustify
HeaderAlignmentHorz = taRightJustify HeaderAlignmentHorz = taRightJustify
VisibleForCustomization = False
end end
object cxGridViewPRECIO_NETO: TcxGridDBColumn object cxGridViewPRECIO_NETO: TcxGridDBColumn
Caption = 'Precio neto' Caption = 'Precio neto'
DataBinding.FieldName = 'PRECIO_NETO' DataBinding.FieldName = 'PRECIO_NETO'
PropertiesClassName = 'TcxCurrencyEditProperties' PropertiesClassName = 'TcxCurrencyEditProperties'
Properties.Alignment.Horz = taRightJustify Properties.Alignment.Horz = taRightJustify
Visible = False
FooterAlignmentHorz = taRightJustify FooterAlignmentHorz = taRightJustify
HeaderAlignmentHorz = taRightJustify HeaderAlignmentHorz = taRightJustify
VisibleForCustomization = False
end end
object cxGridViewPRECIO_PORTE: TcxGridDBColumn object cxGridViewPRECIO_PORTE: TcxGridDBColumn
Caption = 'Precio porte' Caption = 'Precio porte'
DataBinding.FieldName = 'PRECIO_PORTE' DataBinding.FieldName = 'PRECIO_PORTE'
PropertiesClassName = 'TcxCurrencyEditProperties' PropertiesClassName = 'TcxCurrencyEditProperties'
Properties.Alignment.Horz = taRightJustify Properties.Alignment.Horz = taRightJustify
Visible = False
FooterAlignmentHorz = taRightJustify FooterAlignmentHorz = taRightJustify
HeaderAlignmentHorz = taRightJustify HeaderAlignmentHorz = taRightJustify
VisibleForCustomization = False
end
object cxGridViewPRECIO_PVP: TcxGridDBColumn
Caption = 'Precio PVP'
DataBinding.FieldName = 'PRECIO_PVP'
PropertiesClassName = 'TcxCurrencyEditProperties'
Properties.Alignment.Horz = taRightJustify
HeaderAlignmentHorz = taRightJustify
end end
end end
end end
@ -159,7 +180,7 @@ inherited frViewArticulos: TfrViewArticulos
end end
inherited pnlAgrupaciones: TTBXDockablePanel inherited pnlAgrupaciones: TTBXDockablePanel
Visible = True Visible = True
ExplicitWidth = 128 ExplicitWidth = 554
inherited TBXAlignmentPanel1: TTBXAlignmentPanel inherited TBXAlignmentPanel1: TTBXAlignmentPanel
inherited TBXToolbar1: TTBXToolbar inherited TBXToolbar1: TTBXToolbar
object TBXSeparatorItem1: TTBXSeparatorItem object TBXSeparatorItem1: TTBXSeparatorItem

1
Source/Modulos/Articulos/Views/uViewArticulos.pas
View File

@ -37,6 +37,7 @@ type
TBXSeparatorItem1: TTBXSeparatorItem; TBXSeparatorItem1: TTBXSeparatorItem;
TBXSeparatorItem2: TTBXSeparatorItem; TBXSeparatorItem2: TTBXSeparatorItem;
cxGridViewINVENTARIABLE: TcxGridDBColumn; cxGridViewINVENTARIABLE: TcxGridDBColumn;
cxGridViewPRECIO_PVP: TcxGridDBColumn;
procedure cxGridViewIDCustomDrawCell( procedure cxGridViewIDCustomDrawCell(
Sender: TcxCustomGridTableView; ACanvas: TcxCanvas; Sender: TcxCustomGridTableView; ACanvas: TcxCanvas;
AViewInfo: TcxGridTableDataCellViewInfo; var ADone: Boolean); AViewInfo: TcxGridTableDataCellViewInfo; var ADone: Boolean);

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

@ -751,6 +751,9 @@ begin
AContrato.PLAZO_ENTREGA.Add(AppFactuGES.Configuracion.GetSettingAsString(teBD, CTE_PLAZOS_ENTREGA_COCINA)); AContrato.PLAZO_ENTREGA.Add(AppFactuGES.Configuracion.GetSettingAsString(teBD, CTE_PLAZOS_ENTREGA_COCINA));
AContrato.OBSERVACIONES.Add(AppFactuGES.Configuracion.GetSettingAsString(teBD, CTE_OBSERVACIONES_COCINA)); AContrato.OBSERVACIONES.Add(AppFactuGES.Configuracion.GetSettingAsString(teBD, CTE_OBSERVACIONES_COCINA));
(Self.DetallesController as IDetallesContratoClienteController).AnadirCapitulo(TIPO_CAPITULO_C, 'MUEBLES DE COCINA ', False, AContrato.Detalles); (Self.DetallesController as IDetallesContratoClienteController).AnadirCapitulo(TIPO_CAPITULO_C, 'MUEBLES DE COCINA ', False, AContrato.Detalles);
(Self.DetallesController as IDetallesContratoClienteController).AnadirCapitulo(TIPO_CAPITULO_V, 'ENCIMERA ', True, AContrato.Detalles);
(Self.DetallesController as IDetallesContratoClienteController).AnadirCapitulo(TIPO_CAPITULO_V, 'ELECTRODOMÉSTICOS ', True, AContrato.Detalles);
(Self.DetallesController as IDetallesContratoClienteController).AnadirCapitulo(TIPO_CAPITULO_V, 'COMPLEMENTOS ', True, AContrato.Detalles);
(Self.DetallesController as IDetallesContratoClienteController).AnadirCapitulo(TIPO_CAPITULO_V, 'IMPORTES ', True, AContrato.Detalles); (Self.DetallesController as IDetallesContratoClienteController).AnadirCapitulo(TIPO_CAPITULO_V, 'IMPORTES ', True, AContrato.Detalles);
(Self.DetallesController as IDetallesContratoClienteController).AnadirCapitulo(TIPO_CAPITULO_V, 'AUMENTO POR ', False, AContrato.Detalles); (Self.DetallesController as IDetallesContratoClienteController).AnadirCapitulo(TIPO_CAPITULO_V, 'AUMENTO POR ', False, AContrato.Detalles);
end; end;

1
Source/Modulos/Contratos de cliente/Controller/uDetallesContratoClienteController.pas
View File

@ -152,6 +152,7 @@ end;
procedure TDetallesContratoClienteController.RellenarOtros(ADetalles: IDAStronglyTypedDataTable; AArticulos: IBizArticulo); procedure TDetallesContratoClienteController.RellenarOtros(ADetalles: IDAStronglyTypedDataTable; AArticulos: IBizArticulo);
begin begin
ADetalles.DataTable.FieldByName('PROPIEDAD').AsString := AArticulos.FAMILIA;
//En Tecsitel no se tiene en cuenta el descuento de cliente para el precio PVP //En Tecsitel no se tiene en cuenta el descuento de cliente para el precio PVP
// if Assigned(AArticulos) then // if Assigned(AArticulos) then
// ADetalles.DataTable.FieldByName(CAMPO_DESCUENTO).AsFloat := AArticulos.DESCUENTO // ADetalles.DataTable.FieldByName(CAMPO_DESCUENTO).AsFloat := AArticulos.DESCUENTO

24
Source/Modulos/Contratos de cliente/Data/ContratosCliente_data.dproj
View File

@ -49,18 +49,18 @@
<DelphiCompile Include="ContratosCliente_data.dpk"> <DelphiCompile Include="ContratosCliente_data.dpk">
<MainSource>MainSource</MainSource> <MainSource>MainSource</MainSource>
</DelphiCompile> </DelphiCompile>
<DCCReference Include="..\..\Facturas de cliente\adortl.dcp" /> <DCCReference Include="..\adortl.dcp" />
<DCCReference Include="..\..\Facturas de cliente\ContratosCliente_model.dcp" /> <DCCReference Include="..\ContratosCliente_model.dcp" />
<DCCReference Include="..\..\Facturas de cliente\cxLibraryD11.dcp" /> <DCCReference Include="..\cxLibraryD11.dcp" />
<DCCReference Include="..\..\Facturas de cliente\DataAbstract_Core_D11.dcp" /> <DCCReference Include="..\DataAbstract_Core_D11.dcp" />
<DCCReference Include="..\..\Facturas de cliente\dbrtl.dcp" /> <DCCReference Include="..\dbrtl.dcp" />
<DCCReference Include="..\..\Facturas de cliente\dsnap.dcp" /> <DCCReference Include="..\dsnap.dcp" />
<DCCReference Include="..\..\Facturas de cliente\dxGDIPlusD11.dcp" /> <DCCReference Include="..\dxGDIPlusD11.dcp" />
<DCCReference Include="..\..\Facturas de cliente\dxThemeD11.dcp" /> <DCCReference Include="..\dxThemeD11.dcp" />
<DCCReference Include="..\..\Facturas de cliente\RemObjects_Core_D11.dcp" /> <DCCReference Include="..\RemObjects_Core_D11.dcp" />
<DCCReference Include="..\..\Facturas de cliente\rtl.dcp" /> <DCCReference Include="..\rtl.dcp" />
<DCCReference Include="..\..\Facturas de cliente\vcl.dcp" /> <DCCReference Include="..\vcl.dcp" />
<DCCReference Include="..\..\Facturas de cliente\vcldb.dcp" /> <DCCReference Include="..\vcldb.dcp" />
<DCCReference Include="uDataModuleContratosCliente.pas" /> <DCCReference Include="uDataModuleContratosCliente.pas" />
</ItemGroup> </ItemGroup>
</Project> </Project>

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

@ -357,6 +357,11 @@ inherited DataModuleContratosCliente: TDataModuleContratosCliente
DataType = datString DataType = datString
Size = 10 Size = 10
end end
item
Name = 'PROPIEDAD'
DataType = datString
Size = 255
end
item item
Name = 'CONCEPTO' Name = 'CONCEPTO'
DataType = datString DataType = datString
@ -398,7 +403,7 @@ inherited DataModuleContratosCliente: TDataModuleContratosCliente
item item
Name = 'REFERENCIA' Name = 'REFERENCIA'
DataType = datString DataType = datString
Size = 50 Size = 255
end end
item item
Name = 'REFERENCIA_PROVEEDOR' Name = 'REFERENCIA_PROVEEDOR'
@ -451,74 +456,6 @@ inherited DataModuleContratosCliente: TDataModuleContratosCliente
Left = 248 Left = 248
Top = 144 Top = 144
end end
object tbl_Propiedades: TDAMemDataTable
RemoteUpdatesOptions = []
Fields = <
item
Name = 'ID'
DataType = datInteger
Required = True
InPrimaryKey = True
end
item
Name = 'DESCRIPCION'
DataType = datString
Size = 50
end
item
Name = 'ID_PROPIEDAD_VALORES'
DataType = datInteger
end>
Params = <>
StreamingOptions = [soDisableEventsWhileStreaming]
RemoteDataAdapter = rda_ContratosCliente
LogicalName = 'Propiedades'
IndexDefs = <>
Left = 464
Top = 200
end
object ds_Propiedades: TDADataSource
DataSet = tbl_Propiedades.Dataset
DataTable = tbl_Propiedades
Left = 464
Top = 152
end
object tbl_Valores: TDAMemDataTable
RemoteUpdatesOptions = []
Fields = <
item
Name = 'ID'
DataType = datInteger
Required = True
InPrimaryKey = True
end
item
Name = 'ID_PROPIEDAD'
DataType = datInteger
end
item
Name = 'DESCRIPCION'
DataType = datString
Size = 2000
end>
Params = <>
MasterMappingMode = mmWhere
StreamingOptions = [soDisableEventsWhileStreaming]
RemoteDataAdapter = rda_ContratosCliente
MasterSource = ds_Propiedades
MasterFields = 'ID_PROPIEDAD_VALORES'
DetailFields = 'ID_PROPIEDAD'
LogicalName = 'Valores'
IndexDefs = <>
Left = 544
Top = 200
end
object ds_Valores: TDADataSource
DataSet = tbl_Valores.Dataset
DataTable = tbl_Valores
Left = 544
Top = 152
end
object tbl_TiposCapitulos: TDAMemDataTable object tbl_TiposCapitulos: TDAMemDataTable
RemoteUpdatesOptions = [] RemoteUpdatesOptions = []
Fields = < Fields = <

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

@ -25,10 +25,6 @@ type
RORemoteService1: TRORemoteService; RORemoteService1: TRORemoteService;
tbl_ListaAnosContratos: TDAMemDataTable; tbl_ListaAnosContratos: TDAMemDataTable;
ds_ListaAnosContratos: TDADataSource; ds_ListaAnosContratos: TDADataSource;
tbl_Propiedades: TDAMemDataTable;
ds_Propiedades: TDADataSource;
tbl_Valores: TDAMemDataTable;
ds_Valores: TDADataSource;
tbl_TiposCapitulos: TDAMemDataTable; tbl_TiposCapitulos: TDAMemDataTable;
ds_TiposCapitulos: TDADataSource; ds_TiposCapitulos: TDADataSource;
tbl_ContratosClienteBeneficios: TDAMemDataTable; tbl_ContratosClienteBeneficios: TDAMemDataTable;

85
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 = '{FA28DA02-8C68-4321-8EBF-B87F6681AAFB}'; RID_Valores = '{1DBD72A0-582B-4F32-8455-A45B6191054E}';
RID_Propiedades = '{70A934F6-65E3-46CB-925B-42CF5B2149DA}'; RID_Propiedades = '{8AAD78E4-F1A6-4878-B140-73DDC81C2BE0}';
RID_ListaAnosContratos = '{B946A2C7-5BA5-4907-BBC1-5BF68ADE7D7A}'; RID_ListaAnosContratos = '{FB083C00-73FE-4B12-A941-B572555FF37E}';
RID_ContratosClienteBeneficios = '{8D457DDB-766A-4BE9-8528-C6CD14B363FF}'; RID_ContratosClienteBeneficios = '{E24213CE-E549-4596-96B0-7E30EA157262}';
RID_ContratosCliente = '{9D72F545-BC54-46D8-B947-7942681F5F72}'; RID_ContratosCliente = '{ECF02D70-7B0A-412D-93F8-E3E58A79B5D3}';
RID_TiposCapitulos = '{A6ED3952-D8BE-4945-B0E6-0445ECB32C46}'; RID_TiposCapitulos = '{71A4C5A8-136B-419C-8766-73E324C003E6}';
RID_ContratosCliente_Detalles = '{3ACB6A32-FAD2-45C9-86FF-D681CB3E4D7B}'; RID_ContratosCliente_Detalles = '{60F97EEA-78E8-47C1-BB87-6962689FBE44}';
{ Data table names } { Data table names }
nme_Valores = 'Valores'; nme_Valores = 'Valores';
@ -199,6 +199,7 @@ const
fld_ContratosCliente_DetallesID_CONTRATO = 'ID_CONTRATO'; fld_ContratosCliente_DetallesID_CONTRATO = 'ID_CONTRATO';
fld_ContratosCliente_DetallesPOSICION = 'POSICION'; fld_ContratosCliente_DetallesPOSICION = 'POSICION';
fld_ContratosCliente_DetallesTIPO_DETALLE = 'TIPO_DETALLE'; fld_ContratosCliente_DetallesTIPO_DETALLE = 'TIPO_DETALLE';
fld_ContratosCliente_DetallesPROPIEDAD = 'PROPIEDAD';
fld_ContratosCliente_DetallesCONCEPTO = 'CONCEPTO'; fld_ContratosCliente_DetallesCONCEPTO = 'CONCEPTO';
fld_ContratosCliente_DetallesCANTIDAD = 'CANTIDAD'; fld_ContratosCliente_DetallesCANTIDAD = 'CANTIDAD';
fld_ContratosCliente_DetallesIMPORTE_UNIDAD = 'IMPORTE_UNIDAD'; fld_ContratosCliente_DetallesIMPORTE_UNIDAD = 'IMPORTE_UNIDAD';
@ -216,22 +217,23 @@ const
idx_ContratosCliente_DetallesID_CONTRATO = 1; idx_ContratosCliente_DetallesID_CONTRATO = 1;
idx_ContratosCliente_DetallesPOSICION = 2; idx_ContratosCliente_DetallesPOSICION = 2;
idx_ContratosCliente_DetallesTIPO_DETALLE = 3; idx_ContratosCliente_DetallesTIPO_DETALLE = 3;
idx_ContratosCliente_DetallesCONCEPTO = 4; idx_ContratosCliente_DetallesPROPIEDAD = 4;
idx_ContratosCliente_DetallesCANTIDAD = 5; idx_ContratosCliente_DetallesCONCEPTO = 5;
idx_ContratosCliente_DetallesIMPORTE_UNIDAD = 6; idx_ContratosCliente_DetallesCANTIDAD = 6;
idx_ContratosCliente_DetallesIMPORTE_TOTAL = 7; idx_ContratosCliente_DetallesIMPORTE_UNIDAD = 7;
idx_ContratosCliente_DetallesVISIBLE = 8; idx_ContratosCliente_DetallesIMPORTE_TOTAL = 8;
idx_ContratosCliente_DetallesID_ARTICULO = 9; idx_ContratosCliente_DetallesVISIBLE = 9;
idx_ContratosCliente_DetallesTIPO_ARTICULO = 10; idx_ContratosCliente_DetallesID_ARTICULO = 10;
idx_ContratosCliente_DetallesDESCUENTO = 11; idx_ContratosCliente_DetallesTIPO_ARTICULO = 11;
idx_ContratosCliente_DetallesIMPORTE_PORTE = 12; idx_ContratosCliente_DetallesDESCUENTO = 12;
idx_ContratosCliente_DetallesREFERENCIA = 13; idx_ContratosCliente_DetallesIMPORTE_PORTE = 13;
idx_ContratosCliente_DetallesREFERENCIA_PROVEEDOR = 14; idx_ContratosCliente_DetallesREFERENCIA = 14;
idx_ContratosCliente_DetallesREFERENCIA_PROVEEDOR = 15;
type type
{ IValores } { IValores }
IValores = interface(IDAStronglyTypedDataTable) IValores = interface(IDAStronglyTypedDataTable)
['{22EB6286-F205-40D3-9987-8300E2A9853F}'] ['{D86FAABE-B20B-48BE-B160-8767CEA84C3C}']
{ Property getters and setters } { Property getters and setters }
function GetIDValue: Integer; function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer); procedure SetIDValue(const aValue: Integer);
@ -290,7 +292,7 @@ type
{ IPropiedades } { IPropiedades }
IPropiedades = interface(IDAStronglyTypedDataTable) IPropiedades = interface(IDAStronglyTypedDataTable)
['{569F1642-7C0C-4370-ABF1-DAB4665459DB}'] ['{5AAF3E21-FEBD-4211-AD79-08B1438EF95D}']
{ Property getters and setters } { Property getters and setters }
function GetIDValue: Integer; function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer); procedure SetIDValue(const aValue: Integer);
@ -349,7 +351,7 @@ type
{ IListaAnosContratos } { IListaAnosContratos }
IListaAnosContratos = interface(IDAStronglyTypedDataTable) IListaAnosContratos = interface(IDAStronglyTypedDataTable)
['{04A9E518-9929-4B89-80A8-7E7E5D7095E0}'] ['{397A8CFD-9592-49B7-997B-A206E9159B76}']
{ Property getters and setters } { Property getters and setters }
function GetANOValue: String; function GetANOValue: String;
procedure SetANOValue(const aValue: String); procedure SetANOValue(const aValue: String);
@ -384,7 +386,7 @@ type
{ IContratosClienteBeneficios } { IContratosClienteBeneficios }
IContratosClienteBeneficios = interface(IDAStronglyTypedDataTable) IContratosClienteBeneficios = interface(IDAStronglyTypedDataTable)
['{324E56F5-35FA-4DCF-9CBD-E7B15B866EEE}'] ['{B7C19066-8DBC-473F-A005-CA6CECB8244A}']
{ Property getters and setters } { Property getters and setters }
function GetIDValue: Integer; function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer); procedure SetIDValue(const aValue: Integer);
@ -575,7 +577,7 @@ type
{ IContratosCliente } { IContratosCliente }
IContratosCliente = interface(IDAStronglyTypedDataTable) IContratosCliente = interface(IDAStronglyTypedDataTable)
['{036A6578-3BE5-4535-B2D6-666D13D40ECD}'] ['{F9EC2443-6943-4368-85E3-CA5C57103A1A}']
{ Property getters and setters } { Property getters and setters }
function GetIDValue: Integer; function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer); procedure SetIDValue(const aValue: Integer);
@ -1141,7 +1143,7 @@ type
} }
{ ITiposCapitulos } { ITiposCapitulos }
ITiposCapitulos = interface(IDAStronglyTypedDataTable) ITiposCapitulos = interface(IDAStronglyTypedDataTable)
['{C93A3AC0-EE98-4F02-BFB3-06817133648A}'] ['{81A688E8-AA17-41EE-A1D6-81479918BBF1}']
{ Property getters and setters } { Property getters and setters }
function GetIDValue: Integer; function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer); procedure SetIDValue(const aValue: Integer);
@ -1236,7 +1238,7 @@ type
{ IContratosCliente_Detalles } { IContratosCliente_Detalles }
IContratosCliente_Detalles = interface(IDAStronglyTypedDataTable) IContratosCliente_Detalles = interface(IDAStronglyTypedDataTable)
['{636577F2-0315-43C8-9372-BA688C2E6B72}'] ['{898E740D-B47B-4359-A144-870FF2217808}']
{ Property getters and setters } { Property getters and setters }
function GetIDValue: Integer; function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer); procedure SetIDValue(const aValue: Integer);
@ -1254,6 +1256,10 @@ type
procedure SetTIPO_DETALLEValue(const aValue: String); procedure SetTIPO_DETALLEValue(const aValue: String);
function GetTIPO_DETALLEIsNull: Boolean; function GetTIPO_DETALLEIsNull: Boolean;
procedure SetTIPO_DETALLEIsNull(const aValue: Boolean); procedure SetTIPO_DETALLEIsNull(const aValue: Boolean);
function GetPROPIEDADValue: String;
procedure SetPROPIEDADValue(const aValue: String);
function GetPROPIEDADIsNull: Boolean;
procedure SetPROPIEDADIsNull(const aValue: Boolean);
function GetCONCEPTOValue: String; function GetCONCEPTOValue: String;
procedure SetCONCEPTOValue(const aValue: String); procedure SetCONCEPTOValue(const aValue: String);
function GetCONCEPTOIsNull: Boolean; function GetCONCEPTOIsNull: Boolean;
@ -1309,6 +1315,8 @@ type
property POSICIONIsNull: Boolean read GetPOSICIONIsNull write SetPOSICIONIsNull; property POSICIONIsNull: Boolean read GetPOSICIONIsNull write SetPOSICIONIsNull;
property TIPO_DETALLE: String read GetTIPO_DETALLEValue write SetTIPO_DETALLEValue; property TIPO_DETALLE: String read GetTIPO_DETALLEValue write SetTIPO_DETALLEValue;
property TIPO_DETALLEIsNull: Boolean read GetTIPO_DETALLEIsNull write SetTIPO_DETALLEIsNull; property TIPO_DETALLEIsNull: Boolean read GetTIPO_DETALLEIsNull write SetTIPO_DETALLEIsNull;
property PROPIEDAD: String read GetPROPIEDADValue write SetPROPIEDADValue;
property PROPIEDADIsNull: Boolean read GetPROPIEDADIsNull write SetPROPIEDADIsNull;
property CONCEPTO: String read GetCONCEPTOValue write SetCONCEPTOValue; property CONCEPTO: String read GetCONCEPTOValue write SetCONCEPTOValue;
property CONCEPTOIsNull: Boolean read GetCONCEPTOIsNull write SetCONCEPTOIsNull; property CONCEPTOIsNull: Boolean read GetCONCEPTOIsNull write SetCONCEPTOIsNull;
property CANTIDAD: Currency read GetCANTIDADValue write SetCANTIDADValue; property CANTIDAD: Currency read GetCANTIDADValue write SetCANTIDADValue;
@ -1354,6 +1362,10 @@ type
procedure SetTIPO_DETALLEValue(const aValue: String); virtual; procedure SetTIPO_DETALLEValue(const aValue: String); virtual;
function GetTIPO_DETALLEIsNull: Boolean; virtual; function GetTIPO_DETALLEIsNull: Boolean; virtual;
procedure SetTIPO_DETALLEIsNull(const aValue: Boolean); virtual; procedure SetTIPO_DETALLEIsNull(const aValue: Boolean); virtual;
function GetPROPIEDADValue: String; virtual;
procedure SetPROPIEDADValue(const aValue: String); virtual;
function GetPROPIEDADIsNull: Boolean; virtual;
procedure SetPROPIEDADIsNull(const aValue: Boolean); virtual;
function GetCONCEPTOValue: String; virtual; function GetCONCEPTOValue: String; virtual;
procedure SetCONCEPTOValue(const aValue: String); virtual; procedure SetCONCEPTOValue(const aValue: String); virtual;
function GetCONCEPTOIsNull: Boolean; virtual; function GetCONCEPTOIsNull: Boolean; virtual;
@ -1408,6 +1420,8 @@ type
property POSICIONIsNull: Boolean read GetPOSICIONIsNull write SetPOSICIONIsNull; property POSICIONIsNull: Boolean read GetPOSICIONIsNull write SetPOSICIONIsNull;
property TIPO_DETALLE: String read GetTIPO_DETALLEValue write SetTIPO_DETALLEValue; property TIPO_DETALLE: String read GetTIPO_DETALLEValue write SetTIPO_DETALLEValue;
property TIPO_DETALLEIsNull: Boolean read GetTIPO_DETALLEIsNull write SetTIPO_DETALLEIsNull; property TIPO_DETALLEIsNull: Boolean read GetTIPO_DETALLEIsNull write SetTIPO_DETALLEIsNull;
property PROPIEDAD: String read GetPROPIEDADValue write SetPROPIEDADValue;
property PROPIEDADIsNull: Boolean read GetPROPIEDADIsNull write SetPROPIEDADIsNull;
property CONCEPTO: String read GetCONCEPTOValue write SetCONCEPTOValue; property CONCEPTO: String read GetCONCEPTOValue write SetCONCEPTOValue;
property CONCEPTOIsNull: Boolean read GetCONCEPTOIsNull write SetCONCEPTOIsNull; property CONCEPTOIsNull: Boolean read GetCONCEPTOIsNull write SetCONCEPTOIsNull;
property CANTIDAD: Currency read GetCANTIDADValue write SetCANTIDADValue; property CANTIDAD: Currency read GetCANTIDADValue write SetCANTIDADValue;
@ -3142,6 +3156,27 @@ begin
DataTable.Fields[idx_ContratosCliente_DetallesTIPO_DETALLE].AsVariant := Null; DataTable.Fields[idx_ContratosCliente_DetallesTIPO_DETALLE].AsVariant := Null;
end; end;
function TContratosCliente_DetallesDataTableRules.GetPROPIEDADValue: String;
begin
result := DataTable.Fields[idx_ContratosCliente_DetallesPROPIEDAD].AsString;
end;
procedure TContratosCliente_DetallesDataTableRules.SetPROPIEDADValue(const aValue: String);
begin
DataTable.Fields[idx_ContratosCliente_DetallesPROPIEDAD].AsString := aValue;
end;
function TContratosCliente_DetallesDataTableRules.GetPROPIEDADIsNull: boolean;
begin
result := DataTable.Fields[idx_ContratosCliente_DetallesPROPIEDAD].IsNull;
end;
procedure TContratosCliente_DetallesDataTableRules.SetPROPIEDADIsNull(const aValue: Boolean);
begin
if aValue then
DataTable.Fields[idx_ContratosCliente_DetallesPROPIEDAD].AsVariant := Null;
end;
function TContratosCliente_DetallesDataTableRules.GetCONCEPTOValue: String; function TContratosCliente_DetallesDataTableRules.GetCONCEPTOValue: String;
begin begin
result := DataTable.Fields[idx_ContratosCliente_DetallesCONCEPTO].AsString; result := DataTable.Fields[idx_ContratosCliente_DetallesCONCEPTO].AsString;

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

@ -9,18 +9,18 @@ const
{ Delta rules ids { Delta rules ids
Feel free to change them to something more human readable Feel free to change them to something more human readable
but make sure they are unique in the context of your application } but make sure they are unique in the context of your application }
RID_ValoresDelta = '{D32E0D68-A35E-40C0-B392-2D39D3D21953}'; RID_ValoresDelta = '{9CE22F1E-3F2B-4AD5-843D-F5128DD7C5F1}';
RID_PropiedadesDelta = '{DCD3B700-14A4-4CD6-AA62-79DA5F6F5856}'; RID_PropiedadesDelta = '{0F51AF81-3A0A-4867-8ABB-D63B99BBF522}';
RID_ListaAnosContratosDelta = '{383E48EC-36B7-42B2-B5CF-D03D68BE3274}'; RID_ListaAnosContratosDelta = '{F03E531D-9A34-49BC-910B-EBFA48C93D8B}';
RID_ContratosClienteBeneficiosDelta = '{AF389F8F-27E2-41B9-9FDB-38E77D712993}'; RID_ContratosClienteBeneficiosDelta = '{2926FE0C-6BF7-4326-87A6-70303D69EB58}';
RID_ContratosClienteDelta = '{2153CB43-1F8B-40FD-A227-71C190E7D3B2}'; RID_ContratosClienteDelta = '{1C1605F5-61F9-41A2-BDB3-B29C6B035DB0}';
RID_TiposCapitulosDelta = '{6FFB3E97-9DBC-4D0B-86BD-3E1B2825C119}'; RID_TiposCapitulosDelta = '{97A487E0-3FD8-4B85-818B-55EA15B54CA3}';
RID_ContratosCliente_DetallesDelta = '{31FC6830-EBF5-413C-921E-F2FD6FA71429}'; RID_ContratosCliente_DetallesDelta = '{8C9149BF-C3E8-47F8-A26F-A45942CA736B}';
type type
{ IValoresDelta } { IValoresDelta }
IValoresDelta = interface(IValores) IValoresDelta = interface(IValores)
['{D32E0D68-A35E-40C0-B392-2D39D3D21953}'] ['{9CE22F1E-3F2B-4AD5-843D-F5128DD7C5F1}']
{ 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)
['{DCD3B700-14A4-4CD6-AA62-79DA5F6F5856}'] ['{0F51AF81-3A0A-4867-8ABB-D63B99BBF522}']
{ 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)
['{383E48EC-36B7-42B2-B5CF-D03D68BE3274}'] ['{F03E531D-9A34-49BC-910B-EBFA48C93D8B}']
{ 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)
['{AF389F8F-27E2-41B9-9FDB-38E77D712993}'] ['{2926FE0C-6BF7-4326-87A6-70303D69EB58}']
{ Property getters and setters } { Property getters and setters }
function GetOldIDValue : Integer; function GetOldIDValue : Integer;
function GetOldREFERENCIAValue : String; function GetOldREFERENCIAValue : String;
@ -360,7 +360,7 @@ type
{ IContratosClienteDelta } { IContratosClienteDelta }
IContratosClienteDelta = interface(IContratosCliente) IContratosClienteDelta = interface(IContratosCliente)
['{2153CB43-1F8B-40FD-A227-71C190E7D3B2}'] ['{1C1605F5-61F9-41A2-BDB3-B29C6B035DB0}']
{ Property getters and setters } { Property getters and setters }
function GetOldIDValue : Integer; function GetOldIDValue : Integer;
function GetOldID_EMPRESAValue : Integer; function GetOldID_EMPRESAValue : Integer;
@ -926,7 +926,7 @@ type
{ ITiposCapitulosDelta } { ITiposCapitulosDelta }
ITiposCapitulosDelta = interface(ITiposCapitulos) ITiposCapitulosDelta = interface(ITiposCapitulos)
['{6FFB3E97-9DBC-4D0B-86BD-3E1B2825C119}'] ['{97A487E0-3FD8-4B85-818B-55EA15B54CA3}']
{ Property getters and setters } { Property getters and setters }
function GetOldIDValue : Integer; function GetOldIDValue : Integer;
function GetOldPOSICIONValue : Integer; function GetOldPOSICIONValue : Integer;
@ -1020,12 +1020,13 @@ type
{ IContratosCliente_DetallesDelta } { IContratosCliente_DetallesDelta }
IContratosCliente_DetallesDelta = interface(IContratosCliente_Detalles) IContratosCliente_DetallesDelta = interface(IContratosCliente_Detalles)
['{31FC6830-EBF5-413C-921E-F2FD6FA71429}'] ['{8C9149BF-C3E8-47F8-A26F-A45942CA736B}']
{ Property getters and setters } { Property getters and setters }
function GetOldIDValue : Integer; function GetOldIDValue : Integer;
function GetOldID_CONTRATOValue : Integer; function GetOldID_CONTRATOValue : Integer;
function GetOldPOSICIONValue : Integer; function GetOldPOSICIONValue : Integer;
function GetOldTIPO_DETALLEValue : String; function GetOldTIPO_DETALLEValue : String;
function GetOldPROPIEDADValue : String;
function GetOldCONCEPTOValue : String; function GetOldCONCEPTOValue : String;
function GetOldCANTIDADValue : Currency; function GetOldCANTIDADValue : Currency;
function GetOldIMPORTE_UNIDADValue : Currency; function GetOldIMPORTE_UNIDADValue : Currency;
@ -1043,6 +1044,7 @@ type
property OldID_CONTRATO : Integer read GetOldID_CONTRATOValue; property OldID_CONTRATO : Integer read GetOldID_CONTRATOValue;
property OldPOSICION : Integer read GetOldPOSICIONValue; property OldPOSICION : Integer read GetOldPOSICIONValue;
property OldTIPO_DETALLE : String read GetOldTIPO_DETALLEValue; property OldTIPO_DETALLE : String read GetOldTIPO_DETALLEValue;
property OldPROPIEDAD : String read GetOldPROPIEDADValue;
property OldCONCEPTO : String read GetOldCONCEPTOValue; property OldCONCEPTO : String read GetOldCONCEPTOValue;
property OldCANTIDAD : Currency read GetOldCANTIDADValue; property OldCANTIDAD : Currency read GetOldCANTIDADValue;
property OldIMPORTE_UNIDAD : Currency read GetOldIMPORTE_UNIDADValue; property OldIMPORTE_UNIDAD : Currency read GetOldIMPORTE_UNIDADValue;
@ -1085,6 +1087,12 @@ type
function GetOldTIPO_DETALLEIsNull: Boolean; virtual; function GetOldTIPO_DETALLEIsNull: Boolean; virtual;
procedure SetTIPO_DETALLEValue(const aValue: String); virtual; procedure SetTIPO_DETALLEValue(const aValue: String); virtual;
procedure SetTIPO_DETALLEIsNull(const aValue: Boolean); virtual; procedure SetTIPO_DETALLEIsNull(const aValue: Boolean); virtual;
function GetPROPIEDADValue: String; virtual;
function GetPROPIEDADIsNull: Boolean; virtual;
function GetOldPROPIEDADValue: String; virtual;
function GetOldPROPIEDADIsNull: Boolean; virtual;
procedure SetPROPIEDADValue(const aValue: String); virtual;
procedure SetPROPIEDADIsNull(const aValue: Boolean); virtual;
function GetCONCEPTOValue: String; virtual; function GetCONCEPTOValue: String; virtual;
function GetCONCEPTOIsNull: Boolean; virtual; function GetCONCEPTOIsNull: Boolean; virtual;
function GetOldCONCEPTOValue: String; virtual; function GetOldCONCEPTOValue: String; virtual;
@ -1169,6 +1177,10 @@ type
property TIPO_DETALLEIsNull : Boolean read GetTIPO_DETALLEIsNull write SetTIPO_DETALLEIsNull; property TIPO_DETALLEIsNull : Boolean read GetTIPO_DETALLEIsNull write SetTIPO_DETALLEIsNull;
property OldTIPO_DETALLE : String read GetOldTIPO_DETALLEValue; property OldTIPO_DETALLE : String read GetOldTIPO_DETALLEValue;
property OldTIPO_DETALLEIsNull : Boolean read GetOldTIPO_DETALLEIsNull; property OldTIPO_DETALLEIsNull : Boolean read GetOldTIPO_DETALLEIsNull;
property PROPIEDAD : String read GetPROPIEDADValue write SetPROPIEDADValue;
property PROPIEDADIsNull : Boolean read GetPROPIEDADIsNull write SetPROPIEDADIsNull;
property OldPROPIEDAD : String read GetOldPROPIEDADValue;
property OldPROPIEDADIsNull : Boolean read GetOldPROPIEDADIsNull;
property CONCEPTO : String read GetCONCEPTOValue write SetCONCEPTOValue; property CONCEPTO : String read GetCONCEPTOValue write SetCONCEPTOValue;
property CONCEPTOIsNull : Boolean read GetCONCEPTOIsNull write SetCONCEPTOIsNull; property CONCEPTOIsNull : Boolean read GetCONCEPTOIsNull write SetCONCEPTOIsNull;
property OldCONCEPTO : String read GetOldCONCEPTOValue; property OldCONCEPTO : String read GetOldCONCEPTOValue;
@ -3690,6 +3702,37 @@ begin
BusinessProcessor.CurrentChange.NewValueByName[fld_ContratosCliente_DetallesTIPO_DETALLE] := Null; BusinessProcessor.CurrentChange.NewValueByName[fld_ContratosCliente_DetallesTIPO_DETALLE] := Null;
end; end;
function TContratosCliente_DetallesBusinessProcessorRules.GetPROPIEDADValue: String;
begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_ContratosCliente_DetallesPROPIEDAD];
end;
function TContratosCliente_DetallesBusinessProcessorRules.GetPROPIEDADIsNull: Boolean;
begin
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_ContratosCliente_DetallesPROPIEDAD]);
end;
function TContratosCliente_DetallesBusinessProcessorRules.GetOldPROPIEDADValue: String;
begin
result := BusinessProcessor.CurrentChange.OldValueByName[fld_ContratosCliente_DetallesPROPIEDAD];
end;
function TContratosCliente_DetallesBusinessProcessorRules.GetOldPROPIEDADIsNull: Boolean;
begin
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_ContratosCliente_DetallesPROPIEDAD]);
end;
procedure TContratosCliente_DetallesBusinessProcessorRules.SetPROPIEDADValue(const aValue: String);
begin
BusinessProcessor.CurrentChange.NewValueByName[fld_ContratosCliente_DetallesPROPIEDAD] := aValue;
end;
procedure TContratosCliente_DetallesBusinessProcessorRules.SetPROPIEDADIsNull(const aValue: Boolean);
begin
if aValue then
BusinessProcessor.CurrentChange.NewValueByName[fld_ContratosCliente_DetallesPROPIEDAD] := Null;
end;
function TContratosCliente_DetallesBusinessProcessorRules.GetCONCEPTOValue: String; function TContratosCliente_DetallesBusinessProcessorRules.GetCONCEPTOValue: String;
begin begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_ContratosCliente_DetallesCONCEPTO]; result := BusinessProcessor.CurrentChange.NewValueByName[fld_ContratosCliente_DetallesCONCEPTO];

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

@ -785,18 +785,18 @@ object srvContratosCliente: TsrvContratosCliente
'SELECT'#10' CONTRATOS_CLIENTE_DETALLES.ID, CONTRATOS_CLIENTE_DETA' + 'SELECT'#10' CONTRATOS_CLIENTE_DETALLES.ID, CONTRATOS_CLIENTE_DETA' +
'LLES.ID_CONTRATO,'#10' CONTRATOS_CLIENTE_DETALLES.POSICION, CONTR' + 'LLES.ID_CONTRATO,'#10' CONTRATOS_CLIENTE_DETALLES.POSICION, CONTR' +
'ATOS_CLIENTE_DETALLES.TIPO_DETALLE,'#10' CONTRATOS_CLIENTE_DETALL' + 'ATOS_CLIENTE_DETALLES.TIPO_DETALLE,'#10' CONTRATOS_CLIENTE_DETALL' +
'ES.CONCEPTO, CONTRATOS_CLIENTE_DETALLES.CANTIDAD,'#10' CONTRATOS_' + 'ES.PROPIEDAD, CONTRATOS_CLIENTE_DETALLES.CONCEPTO, CONTRATOS_CLI' +
'CLIENTE_DETALLES.IMPORTE_UNIDAD, CONTRATOS_CLIENTE_DETALLES.IMPO' + 'ENTE_DETALLES.CANTIDAD,'#10' CONTRATOS_CLIENTE_DETALLES.IMPORTE_U' +
'RTE_TOTAL,'#10' CONTRATOS_CLIENTE_DETALLES.VISIBLE,'#10#10' CONTRATO' + 'NIDAD, CONTRATOS_CLIENTE_DETALLES.IMPORTE_TOTAL,'#10' CONTRATOS_C' +
'S_CLIENTE_DETALLES.ID_ARTICULO, CONTRATOS_CLIENTE_DETALLES.TIPO_' + 'LIENTE_DETALLES.VISIBLE,'#10#10' CONTRATOS_CLIENTE_DETALLES.ID_ARTI' +
'ARTICULO,'#10' CONTRATOS_CLIENTE_DETALLES.DESCUENTO,'#10' CONTRATO' + 'CULO, CONTRATOS_CLIENTE_DETALLES.TIPO_ARTICULO,'#10' CONTRATOS_CL' +
'S_CLIENTE_DETALLES.IMPORTE_PORTE,'#10' PRESUPUESTOS_PROPIEDADES.D' + 'IENTE_DETALLES.DESCUENTO,'#10' CONTRATOS_CLIENTE_DETALLES.IMPORTE' +
'ESCRIPCION as REFERENCIA,'#10' '#39#39' as REFERENCIA_PROVEEDOR /*Es ne' + '_PORTE, ARTICULOS.REFERENCIA,'#10' '#39#39' as REFERENCIA_PROVEEDOR /*E' +
'cesario para que no fallen los detalles porque los detalles son ' + 's necesario para que no fallen los detalles porque los detalles ' +
'comunes para la rama de cliente y de proveedor*/'#10#10'FROM CONTRATOS' + 'son comunes para la rama de cliente y de proveedor*/'#10#10'FROM CONTR' +
'_CLIENTE_DETALLES'#10'LEFT JOIN PRESUPUESTOS_PROPIEDADES ON (PRESUPU' + 'ATOS_CLIENTE_DETALLES'#10'LEFT JOIN ARTICULOS ON CONTRATOS_CLIENTE_D' +
'ESTOS_PROPIEDADES.ID = CONTRATOS_CLIENTE_DETALLES.ID_ARTICULO)'#10'w' + 'ETALLES.ID_ARTICULO = ARTICULOS.ID'#10'where {where}'#10'ORDER BY POSICI' +
'here {where}'#10'ORDER BY POSICION;'#10#10 'ON;'#10
StatementType = stSQL StatementType = stSQL
ColumnMappings = < ColumnMappings = <
item item
@ -860,6 +860,10 @@ object srvContratosCliente: TsrvContratosCliente
DatasetField = 'REFERENCIA_PROVEEDOR' DatasetField = 'REFERENCIA_PROVEEDOR'
TableField = '<unknown>' TableField = '<unknown>'
SQLOrigin = 'REFERENCIA_PROVEEDOR' SQLOrigin = 'REFERENCIA_PROVEEDOR'
end
item
DatasetField = 'PROPIEDAD'
TableField = 'PROPIEDAD'
end> end>
end> end>
Name = 'ContratosCliente_Detalles' Name = 'ContratosCliente_Detalles'
@ -883,6 +887,11 @@ object srvContratosCliente: TsrvContratosCliente
DataType = datString DataType = datString
Size = 10 Size = 10
end end
item
Name = 'PROPIEDAD'
DataType = datString
Size = 255
end
item item
Name = 'CONCEPTO' Name = 'CONCEPTO'
DataType = datString DataType = datString
@ -924,7 +933,7 @@ object srvContratosCliente: TsrvContratosCliente
item item
Name = 'REFERENCIA' Name = 'REFERENCIA'
DataType = datString DataType = datString
Size = 50 Size = 255
end end
item item
Name = 'REFERENCIA_PROVEEDOR' Name = 'REFERENCIA_PROVEEDOR'
@ -1440,6 +1449,12 @@ object srvContratosCliente: TsrvContratosCliente
Size = 10 Size = 10
Value = '' Value = ''
end end
item
Name = 'PROPIEDAD'
DataType = datString
Size = 255
Value = ''
end
item item
Name = 'CONCEPTO' Name = 'CONCEPTO'
DataType = datString DataType = datString
@ -1494,12 +1509,13 @@ object srvContratosCliente: TsrvContratosCliente
TargetTable = 'CONTRATOS_CLIENTE_DETALLES' TargetTable = 'CONTRATOS_CLIENTE_DETALLES'
SQL = SQL =
'INSERT'#10' INTO CONTRATOS_CLIENTE_DETALLES'#10' (ID, ID_CONTRATO, P' + 'INSERT'#10' INTO CONTRATOS_CLIENTE_DETALLES'#10' (ID, ID_CONTRATO, P' +
'OSICION, TIPO_DETALLE, CONCEPTO, CANTIDAD,'#10' IMPORTE_UNIDAD, ' + 'OSICION, TIPO_DETALLE, PROPIEDAD, CONCEPTO, CANTIDAD,'#10' IMPOR' +
'IMPORTE_TOTAL, VISIBLE, ID_ARTICULO, TIPO_ARTICULO,'#10' DESCUEN' + 'TE_UNIDAD, IMPORTE_TOTAL, VISIBLE, ID_ARTICULO, TIPO_ARTICULO,'#10' ' +
'TO, IMPORTE_PORTE, FECHA_ALTA)'#10' VALUES'#10' (:ID, :ID_CONTRATO, ' + ' DESCUENTO, IMPORTE_PORTE, FECHA_ALTA)'#10' VALUES'#10' (:ID, :ID' +
':POSICION, :TIPO_DETALLE, :CONCEPTO,'#10' :CANTIDAD, :IMPORTE_UN' + '_CONTRATO, :POSICION, :TIPO_DETALLE, :PROPIEDAD, :CONCEPTO,'#10' ' +
'IDAD, :IMPORTE_TOTAL, :VISIBLE,'#10' :ID_ARTICULO, :TIPO_ARTICUL' + ' :CANTIDAD, :IMPORTE_UNIDAD, :IMPORTE_TOTAL, :VISIBLE,'#10' :ID_' +
'O, :DESCUENTO, :IMPORTE_PORTE, CURRENT_TIMESTAMP)'#10 'ARTICULO, :TIPO_ARTICULO, :DESCUENTO, :IMPORTE_PORTE, CURRENT_TI' +
'MESTAMP)'#10
StatementType = stSQL StatementType = stSQL
ColumnMappings = <> ColumnMappings = <>
end> end>
@ -1548,6 +1564,12 @@ object srvContratosCliente: TsrvContratosCliente
Size = 10 Size = 10
Value = '' Value = ''
end end
item
Name = 'PROPIEDAD'
DataType = datString
Size = 255
Value = ''
end
item item
Name = 'CONCEPTO' Name = 'CONCEPTO'
DataType = datString DataType = datString
@ -1607,12 +1629,13 @@ object srvContratosCliente: TsrvContratosCliente
SQL = SQL =
'UPDATE CONTRATOS_CLIENTE_DETALLES'#10' SET '#10' ID = :ID,'#10' ID_CO' + 'UPDATE CONTRATOS_CLIENTE_DETALLES'#10' SET '#10' ID = :ID,'#10' ID_CO' +
'NTRATO = :ID_CONTRATO,'#10' POSICION = :POSICION, '#10' TIPO_DETAL' + 'NTRATO = :ID_CONTRATO,'#10' POSICION = :POSICION, '#10' TIPO_DETAL' +
'LE = :TIPO_DETALLE, '#10' CONCEPTO = :CONCEPTO, '#10' CANTIDAD = :' + 'LE = :TIPO_DETALLE, '#10' PROPIEDAD = :PROPIEDAD,'#10' CONCEPTO = ' +
'CANTIDAD, '#10' IMPORTE_UNIDAD = :IMPORTE_UNIDAD,'#10' IMPORTE_TOT' + ':CONCEPTO, '#10' CANTIDAD = :CANTIDAD, '#10' IMPORTE_UNIDAD = :IMP' +
'AL = :IMPORTE_TOTAL, '#10' VISIBLE = :VISIBLE, '#10' ID_ARTICULO =' + 'ORTE_UNIDAD,'#10' IMPORTE_TOTAL = :IMPORTE_TOTAL, '#10' VISIBLE = ' +
' :ID_ARTICULO, '#10' TIPO_ARTICULO = :TIPO_ARTICULO,'#10' DESCUENT' + ':VISIBLE, '#10' ID_ARTICULO = :ID_ARTICULO, '#10' TIPO_ARTICULO = ' +
'O = :DESCUENTO, '#10' IMPORTE_PORTE = :IMPORTE_PORTE,'#10' FECHA_M' + ':TIPO_ARTICULO,'#10' DESCUENTO = :DESCUENTO, '#10' IMPORTE_PORTE =' +
'ODIFICACION = CURRENT_TIMESTAMP'#10' WHERE'#10' (ID = :OLD_ID)'#10 ' :IMPORTE_PORTE,'#10' FECHA_MODIFICACION = CURRENT_TIMESTAMP'#10' WH' +
'ERE'#10' (ID = :OLD_ID)'#10
StatementType = stSQL StatementType = stSQL
ColumnMappings = <> ColumnMappings = <>
end> end>

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

@ -174,6 +174,7 @@ inherited fEditorContratoCliente: TfEditorContratoCliente
inherited pgPaginas: TPageControl inherited pgPaginas: TPageControl
Width = 839 Width = 839
Height = 270 Height = 270
ActivePage = pagContenido
TabOrder = 1 TabOrder = 1
OnChanging = pgPaginasChanging OnChanging = pgPaginasChanging
ExplicitWidth = 839 ExplicitWidth = 839
@ -207,98 +208,96 @@ inherited fEditorContratoCliente: TfEditorContratoCliente
ExplicitHeight = 242 ExplicitHeight = 242
inherited ToolBar1: TToolBar inherited ToolBar1: TToolBar
Width = 831 Width = 831
Height = 24
ExplicitWidth = 831 ExplicitWidth = 831
inherited ToolButton4: TToolButton ExplicitHeight = 24
Wrap = True
end
inherited ToolButton14: TToolButton inherited ToolButton14: TToolButton
Left = 0
Top = 22
Wrap = False Wrap = False
ExplicitLeft = 0
ExplicitTop = 22
end end
inherited FontName: TJvFontComboBox inherited FontName: TJvFontComboBox
Left = 34 Left = 368
Top = 0
ExplicitLeft = 368 ExplicitLeft = 368
ExplicitTop = 0 ExplicitTop = 0
end end
inherited FontSize: TEdit inherited UpDown1: TUpDown [6]
Left = 513 Left = 513
Top = 0 Top = 0
Width = 74
ExplicitLeft = 513 ExplicitLeft = 513
ExplicitTop = 0 ExplicitTop = 0
end
inherited ToolButton13: TToolButton [7]
Left = 530
Top = 0
ExplicitLeft = 530
ExplicitTop = 0
end
inherited ToolButton6: TToolButton [8]
Left = 538
Top = 0
ExplicitLeft = 538
ExplicitTop = 0
end
inherited ToolButton7: TToolButton [9]
Left = 572
Top = 0
ExplicitLeft = 572
ExplicitTop = 0
end
inherited ToolButton8: TToolButton [10]
Left = 606
Top = 0
ExplicitLeft = 606
ExplicitTop = 0
end
inherited ToolButton12: TToolButton [11]
Left = 640
Top = 0
ExplicitLeft = 640
ExplicitTop = 0
end
inherited ToolButton9: TToolButton [12]
Left = 648
Top = 0
ExplicitLeft = 648
ExplicitTop = 0
end
inherited ToolButton10: TToolButton [13]
Left = 682
Top = 0
ExplicitLeft = 682
ExplicitTop = 0
end
inherited ToolButton11: TToolButton [14]
Left = 716
Top = 0
ExplicitLeft = 716
ExplicitTop = 0
end
inherited FontSize: TEdit [15]
Left = 750
Top = 0
Width = 74
ExplicitLeft = 750
ExplicitTop = 0
ExplicitWidth = 74 ExplicitWidth = 74
end end
inherited UpDown1: TUpDown
Left = 587
Top = 0
ExplicitLeft = 587
ExplicitTop = 0
end
inherited ToolButton13: TToolButton
Left = 604
Top = 0
ExplicitLeft = 604
ExplicitTop = 0
end
inherited ToolButton6: TToolButton
Left = 612
Top = 0
ExplicitLeft = 612
ExplicitTop = 0
end
inherited ToolButton7: TToolButton
Left = 646
Top = 0
ExplicitLeft = 646
ExplicitTop = 0
end
inherited ToolButton8: TToolButton
Left = 680
Top = 0
ExplicitLeft = 680
ExplicitTop = 0
end
inherited ToolButton12: TToolButton
Left = 714
Top = 0
ExplicitLeft = 714
ExplicitTop = 0
end
inherited ToolButton9: TToolButton
Left = 722
Top = 0
ExplicitLeft = 722
ExplicitTop = 0
end
inherited ToolButton10: TToolButton
Left = 756
Top = 0
ExplicitLeft = 756
ExplicitTop = 0
end
inherited ToolButton11: TToolButton
Left = 790
Top = 0
ExplicitLeft = 790
ExplicitTop = 0
end
end end
inherited cxGrid: TcxGrid inherited cxGrid: TcxGrid
Top = 50 Top = 50
Width = 831 Width = 831
Height = 192 Height = 192
ExplicitTop = 50 ExplicitTop = 50
ExplicitWidth = 834 ExplicitWidth = 831
ExplicitHeight = 273 ExplicitHeight = 192
inherited cxGridView: TcxGridDBTableView
end
end end
inherited TBXDock1: TTBXDock inherited TBXDock1: TTBXDock
Top = 24 Top = 24
Width = 831 Width = 831
ExplicitTop = 24 ExplicitTop = 24
ExplicitWidth = 834 ExplicitWidth = 831
inherited TBXToolbar1: TTBXToolbar inherited TBXToolbar1: TTBXToolbar
ExplicitWidth = 564 ExplicitWidth = 564
end end
@ -309,6 +308,9 @@ inherited fEditorContratoCliente: TfEditorContratoCliente
inherited cxRichEdit1: TcxRichEdit inherited cxRichEdit1: TcxRichEdit
Style.IsFontAssigned = True Style.IsFontAssigned = True
end end
inherited cxLookupComboBox2: TcxLookupComboBox
Style.IsFontAssigned = True
end
end end
end end
object pagInicidencias: TTabSheet object pagInicidencias: TTabSheet
@ -466,6 +468,11 @@ inherited fEditorContratoCliente: TfEditorContratoCliente
Style.IsFontAssigned = True Style.IsFontAssigned = True
ExplicitLeft = 528 ExplicitLeft = 528
end end
inherited edtIRPF: TcxDBSpinEdit
Left = 528
Style.IsFontAssigned = True
ExplicitLeft = 528
end
inherited ImporteRE: TcxDBCurrencyEdit inherited ImporteRE: TcxDBCurrencyEdit
Left = 599 Left = 599
Style.IsFontAssigned = True Style.IsFontAssigned = True
@ -473,6 +480,13 @@ inherited fEditorContratoCliente: TfEditorContratoCliente
ExplicitWidth = 56 ExplicitWidth = 56
Width = 56 Width = 56
end end
inherited ImporteIRPF: TcxDBCurrencyEdit
Left = 599
Style.IsFontAssigned = True
ExplicitLeft = 599
ExplicitWidth = 56
Width = 56
end
inherited eImporteNeto: TcxDBCurrencyEdit inherited eImporteNeto: TcxDBCurrencyEdit
Style.IsFontAssigned = True Style.IsFontAssigned = True
ExplicitWidth = 147 ExplicitWidth = 147

44
Source/Modulos/Contratos de cliente/Views/uViewDetallesContratoCliente.dfm
View File

@ -68,19 +68,13 @@ inherited frViewDetallesContratoCliente: TfrViewDetallesContratoCliente
inherited cxGridViewVISIBLE: TcxGridDBColumn [5] inherited cxGridViewVISIBLE: TcxGridDBColumn [5]
Visible = True Visible = True
end end
object cxGridViewID_PROPIEDAD: TcxGridDBColumn [6] object cxGridViewPROPIEDAD: TcxGridDBColumn [6]
Caption = 'Propiedad' DataBinding.FieldName = 'PROPIEDAD'
DataBinding.FieldName = 'ID_ARTICULO' PropertiesClassName = 'TcxRichEditProperties'
PropertiesClassName = 'TcxLookupComboBoxProperties' OnGetPropertiesForEdit = cxGridViewPROPIEDADGetPropertiesForEdit
Properties.ImmediatePost = True BestFitMaxWidth = 150
Properties.KeyFieldNames = 'ID' Width = 150
Properties.ListColumns = < IsCaptionAssigned = True
item
FieldName = 'DESCRIPCION'
end>
Properties.ListOptions.ShowHeader = False
Properties.ListOptions.SyncMode = True
Properties.ListSource = DAPropiedades
end end
inherited cxGridViewREFERENCIA: TcxGridDBColumn [7] inherited cxGridViewREFERENCIA: TcxGridDBColumn [7]
end end
@ -100,7 +94,6 @@ inherited frViewDetallesContratoCliente: TfrViewDetallesContratoCliente
Width = 34 Width = 34
end end
inherited cxGridViewDESCUENTO: TcxGridDBColumn [12] inherited cxGridViewDESCUENTO: TcxGridDBColumn [12]
VisibleForCustomization = False
Width = 20 Width = 20
end end
inherited cxGridViewIMPORTENETO: TcxGridDBColumn [13] inherited cxGridViewIMPORTENETO: TcxGridDBColumn [13]
@ -205,6 +198,29 @@ inherited frViewDetallesContratoCliente: TfrViewDetallesContratoCliente
Height = 25 Height = 25
Width = 145 Width = 145
end end
object cxLookupComboBox2: TcxLookupComboBox [5]
Left = 78
Top = 280
ParentFont = False
Properties.DropDownListStyle = lsEditList
Properties.ImmediatePost = True
Properties.KeyFieldNames = 'DESCRIPCION'
Properties.ListColumns = <
item
FieldName = 'DESCRIPCION'
end>
Properties.ListOptions.ShowHeader = False
Properties.ListSource = DAPropiedades
Style.Font.Charset = DEFAULT_CHARSET
Style.Font.Color = clWindowText
Style.Font.Height = -13
Style.Font.Name = 'Lucida Console'
Style.Font.Style = []
Style.IsFontAssigned = True
TabOrder = 5
Visible = False
Width = 145
end
inherited ActionListContenido: TActionList inherited ActionListContenido: TActionList
object actAsignarDescuento: TAction object actAsignarDescuento: TAction
Category = 'Operaciones' Category = 'Operaciones'

35
Source/Modulos/Contratos de cliente/Views/uViewDetallesContratoCliente.pas
View File

@ -30,7 +30,7 @@ type
TBXItem18: TTBXItem; TBXItem18: TTBXItem;
TBXSeparatorItem9: TTBXSeparatorItem; TBXSeparatorItem9: TTBXSeparatorItem;
DAPropiedades: TDADataSource; DAPropiedades: TDADataSource;
cxGridViewID_PROPIEDAD: TcxGridDBColumn; cxGridViewPROPIEDAD: TcxGridDBColumn;
cxLookupComboBox1: TcxLookupComboBox; cxLookupComboBox1: TcxLookupComboBox;
DAValores: TDADataSource; DAValores: TDADataSource;
cxRichEdit1: TcxRichEdit; cxRichEdit1: TcxRichEdit;
@ -55,6 +55,7 @@ type
actCapituloImportes: TAction; actCapituloImportes: TAction;
TBXSeparatorItem11: TTBXSeparatorItem; TBXSeparatorItem11: TTBXSeparatorItem;
TBXItem21: TTBXItem; TBXItem21: TTBXItem;
cxLookupComboBox2: TcxLookupComboBox;
procedure actAsignarDescuentoExecute(Sender: TObject); procedure actAsignarDescuentoExecute(Sender: TObject);
procedure actAsignarDescuentoUpdate(Sender: TObject); procedure actAsignarDescuentoUpdate(Sender: TObject);
procedure CustomViewShow(Sender: TObject); procedure CustomViewShow(Sender: TObject);
@ -70,6 +71,9 @@ type
procedure actCapituloImportesExecute(Sender: TObject); procedure actCapituloImportesExecute(Sender: TObject);
procedure OnVISIBLEPropertiesEditValueChanged(Sender: TObject); procedure OnVISIBLEPropertiesEditValueChanged(Sender: TObject);
procedure CustomViewDestroy(Sender: TObject); procedure CustomViewDestroy(Sender: TObject);
procedure cxGridViewPROPIEDADGetPropertiesForEdit(
Sender: TcxCustomGridTableItem; ARecord: TcxCustomGridRecord;
var AProperties: TcxCustomEditProperties);
private private
procedure AnadirCapitulo(const Tipo: String;const Descripcion: String; const Descuento:Boolean = false); procedure AnadirCapitulo(const Tipo: String;const Descripcion: String; const Descuento:Boolean = false);
@ -259,18 +263,28 @@ begin
inherited; inherited;
//OJO sin esto no se refresca el filtro en tabla detalle "VALORES". //OJO sin esto no se refresca el filtro en tabla detalle "VALORES".
(cxGridViewID_PROPIEDAD.Properties as TcxLookupComboBoxProperties).ListSource.DataSet.Locate(fld_PropiedadesID, cxGridViewID_PROPIEDAD.DataBinding.Field.AsVariant,[]); DAPropiedades.DataTable.Locate(fld_PropiedadesDESCRIPCION, cxGridViewPROPIEDAD.DataBinding.Field.AsVariant,[]);
if (ARecord.DisplayTexts[cxGridViewTIPO.Index] = TIPO_DETALLE_CONCEPTO) if (ARecord.DisplayTexts[cxGridViewTIPO.Index] = TIPO_DETALLE_CONCEPTO)
and ((ARecord.DisplayTexts[cxGridViewTIPO_ARTICULO.Index] = TIPO_CAPITULO_AF) and (ARecord.DisplayTexts[cxGridViewPROPIEDAD.Index] <> '') then
or (ARecord.DisplayTexts[cxGridViewTIPO_ARTICULO.Index] = TIPO_CAPITULO_AI)
or (ARecord.DisplayTexts[cxGridViewTIPO_ARTICULO.Index] = TIPO_CAPITULO_B)
or (ARecord.DisplayTexts[cxGridViewTIPO_ARTICULO.Index] = TIPO_CAPITULO_C)) then
AProperties := cxLookupComboBox1.Properties AProperties := cxLookupComboBox1.Properties
else else
AProperties := cxRichEdit1.Properties; AProperties := cxRichEdit1.Properties;
end; end;
procedure TfrViewDetallesContratoCliente.cxGridViewPROPIEDADGetPropertiesForEdit(
Sender: TcxCustomGridTableItem; ARecord: TcxCustomGridRecord;
var AProperties: TcxCustomEditProperties);
begin
inherited;
if (ARecord.DisplayTexts[cxGridViewTIPO.Index] = TIPO_DETALLE_CONCEPTO)
then
AProperties := cxLookupComboBox2.Properties
else
AProperties := cxRichEdit1.Properties;
end;
function TfrViewDetallesContratoCliente.EsTipoEditable(AItem: TcxCustomGridTableItem): Boolean; function TfrViewDetallesContratoCliente.EsTipoEditable(AItem: TcxCustomGridTableItem): Boolean;
var var
IndiceCol : Integer; IndiceCol : Integer;
@ -283,7 +297,7 @@ begin
if (AItem.GridView.Items[IndiceCol].EditValue <> TIPO_DETALLE_DESCUENTO) then if (AItem.GridView.Items[IndiceCol].EditValue <> TIPO_DETALLE_DESCUENTO) then
Result := False Result := False
end end
else if (AItem.Index in [cxGridViewID_PROPIEDAD.Index, cxGridViewTIPO_ARTICULO.Index]) then else if (AItem.Index in [cxGridViewPROPIEDAD.Index, cxGridViewTIPO_ARTICULO.Index]) then
begin begin
IndiceCol := cxGridView.GetColumnByFieldName(CAMPO_TIPO).Index; IndiceCol := cxGridView.GetColumnByFieldName(CAMPO_TIPO).Index;
if ((AItem.GridView.Items[IndiceCol].EditValue = TIPO_DETALLE_SALTO) or if ((AItem.GridView.Items[IndiceCol].EditValue = TIPO_DETALLE_SALTO) or
@ -296,8 +310,11 @@ begin
IndiceCol := cxGridView.GetColumnByFieldName(fld_ContratosCliente_DetallesTIPO_ARTICULO).Index; IndiceCol := cxGridView.GetColumnByFieldName(fld_ContratosCliente_DetallesTIPO_ARTICULO).Index;
if ((AItem.GridView.Items[IndiceCol].EditValue <> TIPO_CAPITULO_AF) and if ((AItem.GridView.Items[IndiceCol].EditValue <> TIPO_CAPITULO_AF) and
(AItem.GridView.Items[IndiceCol].EditValue <> TIPO_CAPITULO_AI) and (AItem.GridView.Items[IndiceCol].EditValue <> TIPO_CAPITULO_AI) and
(AItem.GridView.Items[IndiceCol].EditValue <> TIPO_CAPITULO_B) and (AItem.GridView.Items[IndiceCol].EditValue <> TIPO_CAPITULO_C) and
(AItem.GridView.Items[IndiceCol].EditValue <> TIPO_CAPITULO_C)) then (AItem.GridView.Items[IndiceCol].EditValue <> TIPO_CAPITULO_O) and
(AItem.GridView.Items[IndiceCol].EditValue <> TIPO_CAPITULO_V) and
(AItem.GridView.Items[IndiceCol].EditValue <> TIPO_CAPITULO_E) and
(AItem.GridView.Items[IndiceCol].EditValue <> TIPO_CAPITULO_B)) then
Result := False Result := False
end; end;
end end

2
Source/Modulos/Familias/Plugin/uPluginFamilias.dfm
View File

@ -35,7 +35,7 @@ object PluginFamilias: TPluginFamilias
object Ventas1: TMenuItem object Ventas1: TMenuItem
Caption = 'Datos' Caption = 'Datos'
object Familias1: TMenuItem object Familias1: TMenuItem
Tag = 19000 Tag = 900
Action = actFamilias Action = actFamilias
end end
end end

59
Source/Modulos/Inventario/Controller/Inventario_controller.dproj
View File

@ -39,61 +39,21 @@
<Borland.Personality>Delphi.Personality</Borland.Personality> <Borland.Personality>Delphi.Personality</Borland.Personality>
<Borland.ProjectType>Package</Borland.ProjectType> <Borland.ProjectType>Package</Borland.ProjectType>
<BorlandProject> <BorlandProject>
<BorlandProject xmlns=""> <Delphi.Personality> <Parameters> <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><Source><Source Name="MainSource">Inventario_controller.dpk</Source></Source></Delphi.Personality></BorlandProject></BorlandProject>
<Parameters Name="UseLauncher">False</Parameters>
<Parameters Name="LoadAllSymbols">True</Parameters>
<Parameters Name="LoadUnspecifiedSymbols">False</Parameters>
</Parameters>
<Package_Options>
<Package_Options Name="ImplicitBuild">True</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>
<Source>
<Source Name="MainSource">Inventario_controller.dpk</Source>
</Source>
</Delphi.Personality> </BorlandProject></BorlandProject>
</ProjectExtensions> </ProjectExtensions>
<Import Project="$(MSBuildBinPath)\Borland.Delphi.Targets" /> <Import Project="$(MSBuildBinPath)\Borland.Delphi.Targets" />
<ItemGroup> <ItemGroup>
<DelphiCompile Include="Inventario_controller.dpk"> <DelphiCompile Include="Inventario_controller.dpk">
<MainSource>MainSource</MainSource> <MainSource>MainSource</MainSource>
</DelphiCompile> </DelphiCompile>
<DCCReference Include="..\..\Lib\Almacenes_controller.dcp" /> <DCCReference Include="..\Almacenes_controller.dcp" />
<DCCReference Include="..\..\Lib\Articulos_controller.dcp" /> <DCCReference Include="..\Articulos_controller.dcp" />
<DCCReference Include="..\..\Lib\Inventario_data.dcp" /> <DCCReference Include="..\Inventario_data.dcp" />
<DCCReference Include="..\..\Lib\Inventario_model.dcp" /> <DCCReference Include="..\Inventario_model.dcp" />
<DCCReference Include="..\..\Lib\PedidosProveedor_controller.dcp" /> <DCCReference Include="..\PedidosProveedor_controller.dcp" />
<DCCReference Include="..\..\Lib\PedidosProveedor_model.dcp" /> <DCCReference Include="..\PedidosProveedor_model.dcp" />
<DCCReference Include="..\..\Lib\PresupuestosCliente_controller.dcp" /> <DCCReference Include="..\PresupuestosCliente_controller.dcp" />
<DCCReference Include="..\..\Lib\PresupuestosCliente_model.dcp" /> <DCCReference Include="..\PresupuestosCliente_model.dcp" />
<DCCReference Include="..\Utiles\uInventarioUtils.pas"> <DCCReference Include="..\Utiles\uInventarioUtils.pas">
<Form>dmInventarioUtils</Form> <Form>dmInventarioUtils</Form>
<DesignClass>TDataModule</DesignClass> <DesignClass>TDataModule</DesignClass>
@ -107,7 +67,6 @@
<DCCReference Include="View\uIEditorInventario.pas" /> <DCCReference Include="View\uIEditorInventario.pas" />
</ItemGroup> </ItemGroup>
</Project> </Project>
<!-- EurekaLog First Line <!-- EurekaLog First Line
[Exception Log] [Exception Log]
EurekaLog Version=6006 EurekaLog Version=6006

2
Source/Modulos/Inventario/Controller/uInventarioController.pas
View File

@ -676,6 +676,7 @@ procedure TInventarioController.Reservar(AInventario : IBizInventario);
var var
APresupuesto: IBizPresupuestoCliente; APresupuesto: IBizPresupuestoCliente;
begin begin
{
if not Assigned(AInventario) then if not Assigned(AInventario) then
exit; exit;
@ -689,6 +690,7 @@ begin
finally finally
APresupuesto := Nil; APresupuesto := Nil;
end; end;
}
end; end;
function TInventarioController.Reservar(AInventario : IBizInventario; Todos: Boolean; const APedido: IBizPresupuestoCliente): Boolean; function TInventarioController.Reservar(AInventario : IBizInventario; Todos: Boolean; const APedido: IBizPresupuestoCliente): Boolean;

9
Source/Modulos/Inventario/Plugin/Inventario_plugin.dproj
View File

@ -41,20 +41,19 @@
<Borland.Personality>Delphi.Personality</Borland.Personality> <Borland.Personality>Delphi.Personality</Borland.Personality>
<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">True</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><Source><Source Name="MainSource">Inventario_plugin.dpk</Source></Source></Delphi.Personality></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><Source><Source Name="MainSource">Inventario_plugin.dpk</Source></Source></Delphi.Personality></BorlandProject></BorlandProject>
</ProjectExtensions> </ProjectExtensions>
<Import Project="$(MSBuildBinPath)\Borland.Delphi.Targets" /> <Import Project="$(MSBuildBinPath)\Borland.Delphi.Targets" />
<ItemGroup> <ItemGroup>
<DelphiCompile Include="Inventario_plugin.dpk"> <DelphiCompile Include="Inventario_plugin.dpk">
<MainSource>MainSource</MainSource> <MainSource>MainSource</MainSource>
</DelphiCompile> </DelphiCompile>
<DCCReference Include="..\..\Lib\Inventario_controller.dcp" /> <DCCReference Include="..\Inventario_controller.dcp" />
<DCCReference Include="..\..\Lib\Inventario_model.dcp" /> <DCCReference Include="..\Inventario_model.dcp" />
<DCCReference Include="..\..\Lib\Inventario_view.dcp" /> <DCCReference Include="..\Inventario_view.dcp" />
<DCCReference Include="uPluginInventario.pas" /> <DCCReference Include="uPluginInventario.pas" />
</ItemGroup> </ItemGroup>
</Project> </Project>
<!-- EurekaLog First Line <!-- EurekaLog First Line
[Exception Log] [Exception Log]
EurekaLog Version=6006 EurekaLog Version=6006

10
Source/Modulos/Inventario/Views/Inventario_view.dproj
View File

@ -39,17 +39,17 @@
<Borland.Personality>Delphi.Personality</Borland.Personality> <Borland.Personality>Delphi.Personality</Borland.Personality>
<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">True</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><Source><Source Name="MainSource">Inventario_view.dpk</Source></Source></Delphi.Personality></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><Source><Source Name="MainSource">Inventario_view.dpk</Source></Source></Delphi.Personality></BorlandProject></BorlandProject>
</ProjectExtensions> </ProjectExtensions>
<Import Project="$(MSBuildBinPath)\Borland.Delphi.Targets" /> <Import Project="$(MSBuildBinPath)\Borland.Delphi.Targets" />
<ItemGroup> <ItemGroup>
<DelphiCompile Include="Inventario_view.dpk"> <DelphiCompile Include="Inventario_view.dpk">
<MainSource>MainSource</MainSource> <MainSource>MainSource</MainSource>
</DelphiCompile> </DelphiCompile>
<DCCReference Include="..\..\..\GUIBase\Articulos_view.dcp" /> <DCCReference Include="..\Articulos_view.dcp" />
<DCCReference Include="..\..\..\GUIBase\GUIBase.dcp" /> <DCCReference Include="..\GUIBase.dcp" />
<DCCReference Include="..\..\..\GUIBase\Inventario_controller.dcp" /> <DCCReference Include="..\Inventario_controller.dcp" />
<DCCReference Include="..\..\..\GUIBase\Inventario_model.dcp" /> <DCCReference Include="..\Inventario_model.dcp" />
<DCCReference Include="uEditorDetalleReservas.pas"> <DCCReference Include="uEditorDetalleReservas.pas">
<Form>fEditorDetalleReservas</Form> <Form>fEditorDetalleReservas</Form>
<DesignClass>TfEditorDetalleReservas</DesignClass> <DesignClass>TfEditorDetalleReservas</DesignClass>

10
Source/Modulos/Presupuestos de cliente/Controller/uDetallesPresupuestoClienteController.pas
View File

@ -17,6 +17,7 @@ type
function DarPropiedades: IBizPropiedades; function DarPropiedades: IBizPropiedades;
procedure AnadirCapitulo (const Tipo: String; const Descripcion: String; const Descuento:Boolean; ADetalles: IDAStronglyTypedDataTable); procedure AnadirCapitulo (const Tipo: String; const Descripcion: String; const Descuento:Boolean; ADetalles: IDAStronglyTypedDataTable);
function BuscarCapitulo (const Tipo: String): IBizCapitulo;
procedure SetTipoArticulo(ADetalles: IDAStronglyTypedDataTable; ATipo: String); procedure SetTipoArticulo(ADetalles: IDAStronglyTypedDataTable; ATipo: String);
procedure SetVisible(ADetalles: IDAStronglyTypedDataTable;const AVisible: Integer;const Orden: Integer); //1Ascendente/0Descendente procedure SetVisible(ADetalles: IDAStronglyTypedDataTable;const AVisible: Integer;const Orden: Integer); //1Ascendente/0Descendente
end; end;
@ -47,6 +48,7 @@ type
function DarPropiedades: IBizPropiedades; function DarPropiedades: IBizPropiedades;
procedure AnadirCapitulo (const Tipo: String; const Descripcion: String; const Descuento:Boolean; ADetalles: IDAStronglyTypedDataTable); procedure AnadirCapitulo (const Tipo: String; const Descripcion: String; const Descuento:Boolean; ADetalles: IDAStronglyTypedDataTable);
function BuscarCapitulo (const Tipo: String): IBizCapitulo;
//Se sobre escribe para hacer otro recorrido y rellenar el tipo_articulo a todos los conceptos de los capitulos //Se sobre escribe para hacer otro recorrido y rellenar el tipo_articulo a todos los conceptos de los capitulos
procedure ValidarDetalles(ADataTable: IDAStronglyTypedDataTable); override; procedure ValidarDetalles(ADataTable: IDAStronglyTypedDataTable); override;
@ -130,7 +132,7 @@ begin
ADetalles.DataTable.Edit; ADetalles.DataTable.Edit;
ADetalles.DataTable.FieldByName(fld_PresupuestosCliente_DetallesTIPO_ARTICULO).AsString := Tipo; ADetalles.DataTable.FieldByName(fld_PresupuestosCliente_DetallesTIPO_ARTICULO).AsString := Tipo;
ADetalles.DataTable.FieldByName(fld_PresupuestosCliente_DetallesID_ARTICULO).AsInteger := ACapitulo.ID_ARTICULO; ADetalles.DataTable.FieldByName(fld_PresupuestosCliente_DetallesPROPIEDAD).AsString := ACapitulo.CONCEPTO;
Next; Next;
until EOF; until EOF;
end; end;
@ -159,6 +161,12 @@ begin
FArticulosController := TArticulosPresupuestoClienteController.Create; FArticulosController := TArticulosPresupuestoClienteController.Create;
end; end;
function TDetallesPresupuestoClienteController.BuscarCapitulo(
const Tipo: String): IBizCapitulo;
begin
Result := FDataModule.GetCapitulo(Tipo);
end;
function TDetallesPresupuestoClienteController.PedirDescuento: Variant; function TDetallesPresupuestoClienteController.PedirDescuento: Variant;
var var
AEditor: IEditorAsignarDescuento; AEditor: IEditorAsignarDescuento;

11
Source/Modulos/Presupuestos de cliente/Controller/uPresupuestosClienteController.pas
View File

@ -43,6 +43,12 @@ const
CTE_OBSERVACIONES_VARIOS = 'OBSERVACIONES_VARIOS'; CTE_OBSERVACIONES_VARIOS = 'OBSERVACIONES_VARIOS';
CTE_CONDICIONES_VARIOS = 'CONDICIONES_VARIOS'; CTE_CONDICIONES_VARIOS = 'CONDICIONES_VARIOS';
CTE_FORMA_PAGO_OBRA = 'FORMA_PAGO_OBRA';
CTE_PLAZOS_ENTREGA_OBRA = 'PLAZOS_ENTREGA_OBRA';
CTE_OBSERVACIONES_OBRA = 'OBSERVACIONES_OBRA';
CTE_CONDICIONES_OBRA = 'CONDICIONES_OBRA';
type type
TEnumTiposPresupuesto = (teCocina, teArmario, teBano, teElectrodomestico, teVarios); TEnumTiposPresupuesto = (teCocina, teArmario, teBano, teElectrodomestico, teVarios);
@ -897,7 +903,10 @@ begin
APresupuesto.PLAZO_ENTREGA.Add(AppFactuGES.Configuracion.GetSettingAsString(teBD, CTE_PLAZOS_ENTREGA_COCINA)); APresupuesto.PLAZO_ENTREGA.Add(AppFactuGES.Configuracion.GetSettingAsString(teBD, CTE_PLAZOS_ENTREGA_COCINA));
APresupuesto.OBSERVACIONES.Add(AppFactuGES.Configuracion.GetSettingAsString(teBD, CTE_OBSERVACIONES_COCINA)); APresupuesto.OBSERVACIONES.Add(AppFactuGES.Configuracion.GetSettingAsString(teBD, CTE_OBSERVACIONES_COCINA));
(Self.DetallesController as IDetallesPresupuestoClienteController).AnadirCapitulo(TIPO_CAPITULO_C_VACIO, 'MUEBLES DE COCINA ', False, APresupuesto.Detalles); (Self.DetallesController as IDetallesPresupuestoClienteController).AnadirCapitulo(TIPO_CAPITULO_C, 'MUEBLES DE COCINA ', False, APresupuesto.Detalles);
(Self.DetallesController as IDetallesPresupuestoClienteController).AnadirCapitulo(TIPO_CAPITULO_V, 'ENCIMERA ', True, APresupuesto.Detalles);
(Self.DetallesController as IDetallesPresupuestoClienteController).AnadirCapitulo(TIPO_CAPITULO_V, 'ELECTRODOMÉSTICOS ', True, APresupuesto.Detalles);
(Self.DetallesController as IDetallesPresupuestoClienteController).AnadirCapitulo(TIPO_CAPITULO_V, 'COMPLEMENTOS ', True, APresupuesto.Detalles);
(Self.DetallesController as IDetallesPresupuestoClienteController).AnadirCapitulo(TIPO_CAPITULO_V, 'IMPORTES ', True, APresupuesto.Detalles); (Self.DetallesController as IDetallesPresupuestoClienteController).AnadirCapitulo(TIPO_CAPITULO_V, 'IMPORTES ', True, APresupuesto.Detalles);
(Self.DetallesController as IDetallesPresupuestoClienteController).AnadirCapitulo(TIPO_CAPITULO_V, 'AUMENTO POR ', False, APresupuesto.Detalles); (Self.DetallesController as IDetallesPresupuestoClienteController).AnadirCapitulo(TIPO_CAPITULO_V, 'AUMENTO POR ', False, APresupuesto.Detalles);
end; end;

2
Source/Modulos/Presupuestos de cliente/Data/PresupuestosCliente_data.dproj
View File

@ -49,7 +49,7 @@
<DelphiCompile Include="PresupuestosCliente_data.dpk"> <DelphiCompile Include="PresupuestosCliente_data.dpk">
<MainSource>MainSource</MainSource> <MainSource>MainSource</MainSource>
</DelphiCompile> </DelphiCompile>
<DCCReference Include="..\Views\PresupuestosCliente_model.dcp" /> <DCCReference Include="..\..\..\Servidor\PresupuestosCliente_model.dcp" />
<DCCReference Include="uDataModulePresupuestosCliente.pas"> <DCCReference Include="uDataModulePresupuestosCliente.pas">
<Form>DataModulePresupuestosCliente</Form> <Form>DataModulePresupuestosCliente</Form>
</DCCReference> </DCCReference>

179
Source/Modulos/Presupuestos de cliente/Data/uDataModulePresupuestosCliente.dfm
View File

@ -292,6 +292,11 @@ inherited DataModulePresupuestosCliente: TDataModulePresupuestosCliente
DataType = datString DataType = datString
Size = 10 Size = 10
end end
item
Name = 'PROPIEDAD'
DataType = datString
Size = 255
end
item item
Name = 'CONCEPTO' Name = 'CONCEPTO'
DataType = datString DataType = datString
@ -386,6 +391,94 @@ inherited DataModulePresupuestosCliente: TDataModulePresupuestosCliente
Left = 248 Left = 248
Top = 144 Top = 144
end end
object tbl_CapitulosPresupuesto: TDAMemDataTable
RemoteUpdatesOptions = []
Fields = <
item
Name = 'ID'
DataType = datAutoInc
GeneratorName = 'GEN_PRESUPUESTOS_CLIENTE_CAPITU'
Required = True
DictionaryEntry = 'CapitulosPresupuesto_ID'
InPrimaryKey = True
end
item
Name = 'POSICION'
DataType = datInteger
DisplayLabel = 'CapitulosPresupuesto_POSICION'
DictionaryEntry = 'CapitulosPresupuesto_POSICION'
end
item
Name = 'TIPO_DETALLE'
DataType = datString
Size = 10
DisplayLabel = 'CapitulosPresupuesto_TIPO_DETALLE'
DictionaryEntry = 'CapitulosPresupuesto_TIPO_DETALLE'
end
item
Name = 'TIPO_ARTICULO'
DataType = datString
Size = 2
DisplayLabel = 'CapitulosPresupuesto_TIPO_ARTICULO'
DictionaryEntry = 'CapitulosPresupuesto_TIPO_ARTICULO'
end
item
Name = 'CONCEPTO'
DataType = datString
Size = 255
DisplayLabel = 'CapitulosPresupuesto_CONCEPTO'
DictionaryEntry = 'CapitulosPresupuesto_CONCEPTO'
end
item
Name = 'CANTIDAD'
DataType = datInteger
DisplayLabel = 'CapitulosPresupuesto_CANTIDAD'
DictionaryEntry = 'CapitulosPresupuesto_CANTIDAD'
end
item
Name = 'IMPORTE_UNIDAD'
DataType = datInteger
DisplayLabel = 'CapitulosPresupuesto_IMPORTE_UNIDAD'
DictionaryEntry = 'CapitulosPresupuesto_IMPORTE_UNIDAD'
end
item
Name = 'IMPORTE_TOTAL'
DataType = datInteger
DisplayLabel = 'CapitulosPresupuesto_IMPORTE_TOTAL'
DictionaryEntry = 'CapitulosPresupuesto_IMPORTE_TOTAL'
end
item
Name = 'DESCUENTO'
DataType = datInteger
DisplayLabel = 'CapitulosPresupuesto_DESCUENTO'
DictionaryEntry = 'CapitulosPresupuesto_DESCUENTO'
end
item
Name = 'IMPORTE_PORTE'
DataType = datInteger
DisplayLabel = 'CapitulosPresupuesto_IMPORTE_PORTE'
DictionaryEntry = 'CapitulosPresupuesto_IMPORTE_PORTE'
end
item
Name = 'VISIBLE'
DataType = datInteger
DisplayLabel = 'CapitulosPresupuesto_VISIBLE'
DictionaryEntry = 'CapitulosPresupuesto_VISIBLE'
end>
Params = <>
StreamingOptions = [soDisableEventsWhileStreaming]
RemoteDataAdapter = rda_PresupuestosCliente
LogicalName = 'CapitulosPresupuesto'
IndexDefs = <>
Left = 344
Top = 304
end
object ds_CapitulosPresupuesto: TDADataSource
DataSet = tbl_CapitulosPresupuesto.Dataset
DataTable = tbl_CapitulosPresupuesto
Left = 344
Top = 256
end
object tbl_Propiedades: TDAMemDataTable object tbl_Propiedades: TDAMemDataTable
RemoteUpdatesOptions = [] RemoteUpdatesOptions = []
Fields = < Fields = <
@ -398,25 +491,21 @@ inherited DataModulePresupuestosCliente: TDataModulePresupuestosCliente
item item
Name = 'DESCRIPCION' Name = 'DESCRIPCION'
DataType = datString DataType = datString
Size = 50 Size = 255
end
item
Name = 'ID_PROPIEDAD_VALORES'
DataType = datInteger
end> end>
Params = <> Params = <>
StreamingOptions = [soDisableEventsWhileStreaming] StreamingOptions = [soDisableEventsWhileStreaming]
RemoteDataAdapter = rda_PresupuestosCliente RemoteDataAdapter = rda_PresupuestosCliente
LogicalName = 'Propiedades' LogicalName = 'Propiedades'
IndexDefs = <> IndexDefs = <>
Left = 464 Left = 456
Top = 200 Top = 208
end end
object ds_Propiedades: TDADataSource object ds_Propiedades: TDADataSource
DataSet = tbl_Propiedades.Dataset DataSet = tbl_Propiedades.Dataset
DataTable = tbl_Propiedades DataTable = tbl_Propiedades
Left = 464 Left = 456
Top = 152 Top = 160
end end
object tbl_Valores: TDAMemDataTable object tbl_Valores: TDAMemDataTable
RemoteUpdatesOptions = [] RemoteUpdatesOptions = []
@ -428,76 +517,40 @@ inherited DataModulePresupuestosCliente: TDataModulePresupuestosCliente
InPrimaryKey = True InPrimaryKey = True
end end
item item
Name = 'ID_PROPIEDAD' Name = 'ID_EMPRESA'
DataType = datInteger DataType = datInteger
end end
item
Name = 'REFERENCIA'
DataType = datString
Size = 255
end
item item
Name = 'DESCRIPCION' Name = 'DESCRIPCION'
DataType = datString DataType = datString
Size = 2000 Size = 255
end
item
Name = 'FAMILIA'
DataType = datString
Size = 255
end> end>
Params = <> Params = <>
MasterMappingMode = mmWhere MasterMappingMode = mmWhere
StreamingOptions = [soDisableEventsWhileStreaming] StreamingOptions = [soDisableEventsWhileStreaming]
RemoteDataAdapter = rda_PresupuestosCliente RemoteDataAdapter = rda_PresupuestosCliente
MasterSource = ds_Propiedades MasterSource = ds_Propiedades
MasterFields = 'ID_PROPIEDAD_VALORES' MasterFields = 'DESCRIPCION'
DetailFields = 'ID_PROPIEDAD' DetailFields = 'FAMILIA'
LogicalName = 'Valores' LogicalName = 'Valores'
IndexDefs = <> IndexDefs = <>
Left = 544 Left = 536
Top = 200 Top = 208
end end
object ds_Valores: TDADataSource object ds_Valores: TDADataSource
DataSet = tbl_Valores.Dataset DataSet = tbl_Valores.Dataset
DataTable = tbl_Valores DataTable = tbl_Valores
Left = 544 Left = 536
Top = 152 Top = 160
end
object tbl_CapitulosPresupuesto: TDAMemDataTable
RemoteUpdatesOptions = []
Fields = <
item
Name = 'ID'
DataType = datInteger
Required = True
InPrimaryKey = True
end
item
Name = 'POSICION'
DataType = datInteger
end
item
Name = 'TIPO_DETALLE'
DataType = datString
Size = 10
end
item
Name = 'TIPO_ARTICULO'
DataType = datString
Size = 2
end
item
Name = 'ID_ARTICULO'
DataType = datInteger
end
item
Name = 'CONCEPTO'
DataType = datString
Size = 2000
end>
Params = <>
StreamingOptions = [soDisableEventsWhileStreaming]
RemoteDataAdapter = rda_PresupuestosCliente
LogicalName = 'CapitulosPresupuesto'
IndexDefs = <>
Left = 352
Top = 312
end
object ds_CapitulosPresupuesto: TDADataSource
DataSet = tbl_CapitulosPresupuesto.Dataset
DataTable = tbl_CapitulosPresupuesto
Left = 352
Top = 256
end end
end end

5
Source/Modulos/Presupuestos de cliente/Data/uDataModulePresupuestosCliente.pas
View File

@ -25,12 +25,12 @@ type
RORemoteService1: TRORemoteService; RORemoteService1: TRORemoteService;
tbl_ListaAnosPresupuestos: TDAMemDataTable; tbl_ListaAnosPresupuestos: TDAMemDataTable;
ds_ListaAnosPresupuestos: TDADataSource; ds_ListaAnosPresupuestos: TDADataSource;
tbl_CapitulosPresupuesto: TDAMemDataTable;
ds_CapitulosPresupuesto: TDADataSource;
tbl_Propiedades: TDAMemDataTable; tbl_Propiedades: TDAMemDataTable;
ds_Propiedades: TDADataSource; ds_Propiedades: TDADataSource;
tbl_Valores: TDAMemDataTable; tbl_Valores: TDAMemDataTable;
ds_Valores: TDADataSource; ds_Valores: TDADataSource;
tbl_CapitulosPresupuesto: TDAMemDataTable;
ds_CapitulosPresupuesto: TDADataSource;
procedure DAClientDataModuleCreate(Sender: TObject); procedure DAClientDataModuleCreate(Sender: TObject);
private private
@ -191,6 +191,7 @@ begin
ACapitulo.BusinessRulesID := BIZ_CLIENT_CAPITULOS; ACapitulo.BusinessRulesID := BIZ_CLIENT_CAPITULOS;
Result := (ACapitulo as IBizCapitulo); Result := (ACapitulo as IBizCapitulo);
Result.Tipo := TIPO_ARTICULO;
with Result.DataTable.DynamicWhere do with Result.DataTable.DynamicWhere do
begin begin

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

@ -9,12 +9,12 @@ const
{ Data table rules ids { Data table rules ids
Feel free to change them to something more human readable Feel free to change them to something more human readable
but make sure they are unique in the context of your application } but make sure they are unique in the context of your application }
RID_Valores = '{AC6EF137-1256-43A3-AB3F-76A5C484DFF0}'; RID_Valores = '{002F4C5F-E93F-43D7-BC30-F126BBF4A7BF}';
RID_Propiedades = '{A6F5198D-19FD-49CA-8AA3-BC35F11D3BEF}'; RID_Propiedades = '{AAEA9900-5F02-4F71-BF4A-3B4823902DD1}';
RID_ListaAnosPresupuestos = '{D4D48BBF-987E-4085-893B-DCC70A9B63E7}'; RID_ListaAnosPresupuestos = '{C57BB8C3-D37D-4E42-859D-216DC34BB994}';
RID_PresupuestosCliente = '{FF71F28A-9955-44A1-AE5B-5A1229D17A8F}'; RID_PresupuestosCliente = '{B96CBF85-1AFD-483F-9625-AFF5D2EB63BA}';
RID_CapitulosPresupuesto = '{3ACF0486-2EFD-4EF7-90DF-CE29E1006EC3}'; RID_CapitulosPresupuesto = '{0552CFCD-CC95-4194-9A78-02F7C224F817}';
RID_PresupuestosCliente_Detalles = '{12678EE2-C67A-44AC-A8FA-52125FCCBF5D}'; RID_PresupuestosCliente_Detalles = '{3BBBFC09-5C1B-4350-A007-99AFAF0EDF1A}';
{ Data table names } { Data table names }
nme_Valores = 'Valores'; nme_Valores = 'Valores';
@ -26,23 +26,25 @@ const
{ Valores fields } { Valores fields }
fld_ValoresID = 'ID'; fld_ValoresID = 'ID';
fld_ValoresID_PROPIEDAD = 'ID_PROPIEDAD'; fld_ValoresID_EMPRESA = 'ID_EMPRESA';
fld_ValoresREFERENCIA = 'REFERENCIA';
fld_ValoresDESCRIPCION = 'DESCRIPCION'; fld_ValoresDESCRIPCION = 'DESCRIPCION';
fld_ValoresFAMILIA = 'FAMILIA';
{ Valores field indexes } { Valores field indexes }
idx_ValoresID = 0; idx_ValoresID = 0;
idx_ValoresID_PROPIEDAD = 1; idx_ValoresID_EMPRESA = 1;
idx_ValoresDESCRIPCION = 2; idx_ValoresREFERENCIA = 2;
idx_ValoresDESCRIPCION = 3;
idx_ValoresFAMILIA = 4;
{ Propiedades fields } { Propiedades fields }
fld_PropiedadesID = 'ID'; fld_PropiedadesID = 'ID';
fld_PropiedadesDESCRIPCION = 'DESCRIPCION'; fld_PropiedadesDESCRIPCION = 'DESCRIPCION';
fld_PropiedadesID_PROPIEDAD_VALORES = 'ID_PROPIEDAD_VALORES';
{ Propiedades field indexes } { Propiedades field indexes }
idx_PropiedadesID = 0; idx_PropiedadesID = 0;
idx_PropiedadesDESCRIPCION = 1; idx_PropiedadesDESCRIPCION = 1;
idx_PropiedadesID_PROPIEDAD_VALORES = 2;
{ ListaAnosPresupuestos fields } { ListaAnosPresupuestos fields }
fld_ListaAnosPresupuestosANO = 'ANO'; fld_ListaAnosPresupuestosANO = 'ANO';
@ -141,22 +143,33 @@ const
fld_CapitulosPresupuestoPOSICION = 'POSICION'; fld_CapitulosPresupuestoPOSICION = 'POSICION';
fld_CapitulosPresupuestoTIPO_DETALLE = 'TIPO_DETALLE'; fld_CapitulosPresupuestoTIPO_DETALLE = 'TIPO_DETALLE';
fld_CapitulosPresupuestoTIPO_ARTICULO = 'TIPO_ARTICULO'; fld_CapitulosPresupuestoTIPO_ARTICULO = 'TIPO_ARTICULO';
fld_CapitulosPresupuestoID_ARTICULO = 'ID_ARTICULO';
fld_CapitulosPresupuestoCONCEPTO = 'CONCEPTO'; fld_CapitulosPresupuestoCONCEPTO = 'CONCEPTO';
fld_CapitulosPresupuestoCANTIDAD = 'CANTIDAD';
fld_CapitulosPresupuestoIMPORTE_UNIDAD = 'IMPORTE_UNIDAD';
fld_CapitulosPresupuestoIMPORTE_TOTAL = 'IMPORTE_TOTAL';
fld_CapitulosPresupuestoDESCUENTO = 'DESCUENTO';
fld_CapitulosPresupuestoIMPORTE_PORTE = 'IMPORTE_PORTE';
fld_CapitulosPresupuestoVISIBLE = 'VISIBLE';
{ CapitulosPresupuesto field indexes } { CapitulosPresupuesto field indexes }
idx_CapitulosPresupuestoID = 0; idx_CapitulosPresupuestoID = 0;
idx_CapitulosPresupuestoPOSICION = 1; idx_CapitulosPresupuestoPOSICION = 1;
idx_CapitulosPresupuestoTIPO_DETALLE = 2; idx_CapitulosPresupuestoTIPO_DETALLE = 2;
idx_CapitulosPresupuestoTIPO_ARTICULO = 3; idx_CapitulosPresupuestoTIPO_ARTICULO = 3;
idx_CapitulosPresupuestoID_ARTICULO = 4; idx_CapitulosPresupuestoCONCEPTO = 4;
idx_CapitulosPresupuestoCONCEPTO = 5; idx_CapitulosPresupuestoCANTIDAD = 5;
idx_CapitulosPresupuestoIMPORTE_UNIDAD = 6;
idx_CapitulosPresupuestoIMPORTE_TOTAL = 7;
idx_CapitulosPresupuestoDESCUENTO = 8;
idx_CapitulosPresupuestoIMPORTE_PORTE = 9;
idx_CapitulosPresupuestoVISIBLE = 10;
{ PresupuestosCliente_Detalles fields } { PresupuestosCliente_Detalles fields }
fld_PresupuestosCliente_DetallesID = 'ID'; fld_PresupuestosCliente_DetallesID = 'ID';
fld_PresupuestosCliente_DetallesID_PRESUPUESTO = 'ID_PRESUPUESTO'; fld_PresupuestosCliente_DetallesID_PRESUPUESTO = 'ID_PRESUPUESTO';
fld_PresupuestosCliente_DetallesPOSICION = 'POSICION'; fld_PresupuestosCliente_DetallesPOSICION = 'POSICION';
fld_PresupuestosCliente_DetallesTIPO_DETALLE = 'TIPO_DETALLE'; fld_PresupuestosCliente_DetallesTIPO_DETALLE = 'TIPO_DETALLE';
fld_PresupuestosCliente_DetallesPROPIEDAD = 'PROPIEDAD';
fld_PresupuestosCliente_DetallesCONCEPTO = 'CONCEPTO'; fld_PresupuestosCliente_DetallesCONCEPTO = 'CONCEPTO';
fld_PresupuestosCliente_DetallesCANTIDAD = 'CANTIDAD'; fld_PresupuestosCliente_DetallesCANTIDAD = 'CANTIDAD';
fld_PresupuestosCliente_DetallesIMPORTE_UNIDAD = 'IMPORTE_UNIDAD'; fld_PresupuestosCliente_DetallesIMPORTE_UNIDAD = 'IMPORTE_UNIDAD';
@ -174,44 +187,57 @@ const
idx_PresupuestosCliente_DetallesID_PRESUPUESTO = 1; idx_PresupuestosCliente_DetallesID_PRESUPUESTO = 1;
idx_PresupuestosCliente_DetallesPOSICION = 2; idx_PresupuestosCliente_DetallesPOSICION = 2;
idx_PresupuestosCliente_DetallesTIPO_DETALLE = 3; idx_PresupuestosCliente_DetallesTIPO_DETALLE = 3;
idx_PresupuestosCliente_DetallesCONCEPTO = 4; idx_PresupuestosCliente_DetallesPROPIEDAD = 4;
idx_PresupuestosCliente_DetallesCANTIDAD = 5; idx_PresupuestosCliente_DetallesCONCEPTO = 5;
idx_PresupuestosCliente_DetallesIMPORTE_UNIDAD = 6; idx_PresupuestosCliente_DetallesCANTIDAD = 6;
idx_PresupuestosCliente_DetallesIMPORTE_TOTAL = 7; idx_PresupuestosCliente_DetallesIMPORTE_UNIDAD = 7;
idx_PresupuestosCliente_DetallesVISIBLE = 8; idx_PresupuestosCliente_DetallesIMPORTE_TOTAL = 8;
idx_PresupuestosCliente_DetallesID_ARTICULO = 9; idx_PresupuestosCliente_DetallesVISIBLE = 9;
idx_PresupuestosCliente_DetallesTIPO_ARTICULO = 10; idx_PresupuestosCliente_DetallesID_ARTICULO = 10;
idx_PresupuestosCliente_DetallesDESCUENTO = 11; idx_PresupuestosCliente_DetallesTIPO_ARTICULO = 11;
idx_PresupuestosCliente_DetallesIMPORTE_PORTE = 12; idx_PresupuestosCliente_DetallesDESCUENTO = 12;
idx_PresupuestosCliente_DetallesREFERENCIA = 13; idx_PresupuestosCliente_DetallesIMPORTE_PORTE = 13;
idx_PresupuestosCliente_DetallesREFERENCIA_PROVEEDOR = 14; idx_PresupuestosCliente_DetallesREFERENCIA = 14;
idx_PresupuestosCliente_DetallesREFERENCIA_PROVEEDOR = 15;
type type
{ IValores } { IValores }
IValores = interface(IDAStronglyTypedDataTable) IValores = interface(IDAStronglyTypedDataTable)
['{1E453B5F-0C22-4019-AD7A-79E409310CF5}'] ['{845982F0-0F70-4777-BA05-68541F3384BD}']
{ Property getters and setters } { Property getters and setters }
function GetIDValue: Integer; function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer); procedure SetIDValue(const aValue: Integer);
function GetIDIsNull: Boolean; function GetIDIsNull: Boolean;
procedure SetIDIsNull(const aValue: Boolean); procedure SetIDIsNull(const aValue: Boolean);
function GetID_PROPIEDADValue: Integer; function GetID_EMPRESAValue: Integer;
procedure SetID_PROPIEDADValue(const aValue: Integer); procedure SetID_EMPRESAValue(const aValue: Integer);
function GetID_PROPIEDADIsNull: Boolean; function GetID_EMPRESAIsNull: Boolean;
procedure SetID_PROPIEDADIsNull(const aValue: Boolean); procedure SetID_EMPRESAIsNull(const aValue: Boolean);
function GetREFERENCIAValue: String;
procedure SetREFERENCIAValue(const aValue: String);
function GetREFERENCIAIsNull: Boolean;
procedure SetREFERENCIAIsNull(const aValue: Boolean);
function GetDESCRIPCIONValue: String; function GetDESCRIPCIONValue: String;
procedure SetDESCRIPCIONValue(const aValue: String); procedure SetDESCRIPCIONValue(const aValue: String);
function GetDESCRIPCIONIsNull: Boolean; function GetDESCRIPCIONIsNull: Boolean;
procedure SetDESCRIPCIONIsNull(const aValue: Boolean); procedure SetDESCRIPCIONIsNull(const aValue: Boolean);
function GetFAMILIAValue: String;
procedure SetFAMILIAValue(const aValue: String);
function GetFAMILIAIsNull: Boolean;
procedure SetFAMILIAIsNull(const aValue: Boolean);
{ Properties } { Properties }
property ID: Integer read GetIDValue write SetIDValue; property ID: Integer read GetIDValue write SetIDValue;
property IDIsNull: Boolean read GetIDIsNull write SetIDIsNull; property IDIsNull: Boolean read GetIDIsNull write SetIDIsNull;
property ID_PROPIEDAD: Integer read GetID_PROPIEDADValue write SetID_PROPIEDADValue; property ID_EMPRESA: Integer read GetID_EMPRESAValue write SetID_EMPRESAValue;
property ID_PROPIEDADIsNull: Boolean read GetID_PROPIEDADIsNull write SetID_PROPIEDADIsNull; property ID_EMPRESAIsNull: Boolean read GetID_EMPRESAIsNull write SetID_EMPRESAIsNull;
property REFERENCIA: String read GetREFERENCIAValue write SetREFERENCIAValue;
property REFERENCIAIsNull: Boolean read GetREFERENCIAIsNull write SetREFERENCIAIsNull;
property DESCRIPCION: String read GetDESCRIPCIONValue write SetDESCRIPCIONValue; property DESCRIPCION: String read GetDESCRIPCIONValue write SetDESCRIPCIONValue;
property DESCRIPCIONIsNull: Boolean read GetDESCRIPCIONIsNull write SetDESCRIPCIONIsNull; property DESCRIPCIONIsNull: Boolean read GetDESCRIPCIONIsNull write SetDESCRIPCIONIsNull;
property FAMILIA: String read GetFAMILIAValue write SetFAMILIAValue;
property FAMILIAIsNull: Boolean read GetFAMILIAIsNull write SetFAMILIAIsNull;
end; end;
{ TValoresDataTableRules } { TValoresDataTableRules }
@ -223,22 +249,34 @@ type
procedure SetIDValue(const aValue: Integer); virtual; procedure SetIDValue(const aValue: Integer); virtual;
function GetIDIsNull: Boolean; virtual; function GetIDIsNull: Boolean; virtual;
procedure SetIDIsNull(const aValue: Boolean); virtual; procedure SetIDIsNull(const aValue: Boolean); virtual;
function GetID_PROPIEDADValue: Integer; virtual; function GetID_EMPRESAValue: Integer; virtual;
procedure SetID_PROPIEDADValue(const aValue: Integer); virtual; procedure SetID_EMPRESAValue(const aValue: Integer); virtual;
function GetID_PROPIEDADIsNull: Boolean; virtual; function GetID_EMPRESAIsNull: Boolean; virtual;
procedure SetID_PROPIEDADIsNull(const aValue: Boolean); virtual; procedure SetID_EMPRESAIsNull(const aValue: Boolean); virtual;
function GetREFERENCIAValue: String; virtual;
procedure SetREFERENCIAValue(const aValue: String); virtual;
function GetREFERENCIAIsNull: Boolean; virtual;
procedure SetREFERENCIAIsNull(const aValue: Boolean); virtual;
function GetDESCRIPCIONValue: String; virtual; function GetDESCRIPCIONValue: String; virtual;
procedure SetDESCRIPCIONValue(const aValue: String); virtual; procedure SetDESCRIPCIONValue(const aValue: String); virtual;
function GetDESCRIPCIONIsNull: Boolean; virtual; function GetDESCRIPCIONIsNull: Boolean; virtual;
procedure SetDESCRIPCIONIsNull(const aValue: Boolean); virtual; procedure SetDESCRIPCIONIsNull(const aValue: Boolean); virtual;
function GetFAMILIAValue: String; virtual;
procedure SetFAMILIAValue(const aValue: String); virtual;
function GetFAMILIAIsNull: Boolean; virtual;
procedure SetFAMILIAIsNull(const aValue: Boolean); virtual;
{ Properties } { Properties }
property ID: Integer read GetIDValue write SetIDValue; property ID: Integer read GetIDValue write SetIDValue;
property IDIsNull: Boolean read GetIDIsNull write SetIDIsNull; property IDIsNull: Boolean read GetIDIsNull write SetIDIsNull;
property ID_PROPIEDAD: Integer read GetID_PROPIEDADValue write SetID_PROPIEDADValue; property ID_EMPRESA: Integer read GetID_EMPRESAValue write SetID_EMPRESAValue;
property ID_PROPIEDADIsNull: Boolean read GetID_PROPIEDADIsNull write SetID_PROPIEDADIsNull; property ID_EMPRESAIsNull: Boolean read GetID_EMPRESAIsNull write SetID_EMPRESAIsNull;
property REFERENCIA: String read GetREFERENCIAValue write SetREFERENCIAValue;
property REFERENCIAIsNull: Boolean read GetREFERENCIAIsNull write SetREFERENCIAIsNull;
property DESCRIPCION: String read GetDESCRIPCIONValue write SetDESCRIPCIONValue; property DESCRIPCION: String read GetDESCRIPCIONValue write SetDESCRIPCIONValue;
property DESCRIPCIONIsNull: Boolean read GetDESCRIPCIONIsNull write SetDESCRIPCIONIsNull; property DESCRIPCIONIsNull: Boolean read GetDESCRIPCIONIsNull write SetDESCRIPCIONIsNull;
property FAMILIA: String read GetFAMILIAValue write SetFAMILIAValue;
property FAMILIAIsNull: Boolean read GetFAMILIAIsNull write SetFAMILIAIsNull;
public public
constructor Create(aDataTable: TDADataTable); override; constructor Create(aDataTable: TDADataTable); override;
@ -248,7 +286,7 @@ type
{ IPropiedades } { IPropiedades }
IPropiedades = interface(IDAStronglyTypedDataTable) IPropiedades = interface(IDAStronglyTypedDataTable)
['{ED342BFE-21DA-4BE7-A720-199166F086D8}'] ['{FFE02136-AC49-416C-A207-58AB523A3ADF}']
{ Property getters and setters } { Property getters and setters }
function GetIDValue: Integer; function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer); procedure SetIDValue(const aValue: Integer);
@ -258,10 +296,6 @@ type
procedure SetDESCRIPCIONValue(const aValue: String); procedure SetDESCRIPCIONValue(const aValue: String);
function GetDESCRIPCIONIsNull: Boolean; function GetDESCRIPCIONIsNull: Boolean;
procedure SetDESCRIPCIONIsNull(const aValue: Boolean); procedure SetDESCRIPCIONIsNull(const aValue: Boolean);
function GetID_PROPIEDAD_VALORESValue: Integer;
procedure SetID_PROPIEDAD_VALORESValue(const aValue: Integer);
function GetID_PROPIEDAD_VALORESIsNull: Boolean;
procedure SetID_PROPIEDAD_VALORESIsNull(const aValue: Boolean);
{ Properties } { Properties }
@ -269,8 +303,6 @@ type
property IDIsNull: Boolean read GetIDIsNull write SetIDIsNull; property IDIsNull: Boolean read GetIDIsNull write SetIDIsNull;
property DESCRIPCION: String read GetDESCRIPCIONValue write SetDESCRIPCIONValue; property DESCRIPCION: String read GetDESCRIPCIONValue write SetDESCRIPCIONValue;
property DESCRIPCIONIsNull: Boolean read GetDESCRIPCIONIsNull write SetDESCRIPCIONIsNull; property DESCRIPCIONIsNull: Boolean read GetDESCRIPCIONIsNull write SetDESCRIPCIONIsNull;
property ID_PROPIEDAD_VALORES: Integer read GetID_PROPIEDAD_VALORESValue write SetID_PROPIEDAD_VALORESValue;
property ID_PROPIEDAD_VALORESIsNull: Boolean read GetID_PROPIEDAD_VALORESIsNull write SetID_PROPIEDAD_VALORESIsNull;
end; end;
{ TPropiedadesDataTableRules } { TPropiedadesDataTableRules }
@ -286,18 +318,12 @@ type
procedure SetDESCRIPCIONValue(const aValue: String); virtual; procedure SetDESCRIPCIONValue(const aValue: String); virtual;
function GetDESCRIPCIONIsNull: Boolean; virtual; function GetDESCRIPCIONIsNull: Boolean; virtual;
procedure SetDESCRIPCIONIsNull(const aValue: Boolean); virtual; procedure SetDESCRIPCIONIsNull(const aValue: Boolean); virtual;
function GetID_PROPIEDAD_VALORESValue: Integer; virtual;
procedure SetID_PROPIEDAD_VALORESValue(const aValue: Integer); virtual;
function GetID_PROPIEDAD_VALORESIsNull: Boolean; virtual;
procedure SetID_PROPIEDAD_VALORESIsNull(const aValue: Boolean); virtual;
{ Properties } { Properties }
property ID: Integer read GetIDValue write SetIDValue; property ID: Integer read GetIDValue write SetIDValue;
property IDIsNull: Boolean read GetIDIsNull write SetIDIsNull; property IDIsNull: Boolean read GetIDIsNull write SetIDIsNull;
property DESCRIPCION: String read GetDESCRIPCIONValue write SetDESCRIPCIONValue; property DESCRIPCION: String read GetDESCRIPCIONValue write SetDESCRIPCIONValue;
property DESCRIPCIONIsNull: Boolean read GetDESCRIPCIONIsNull write SetDESCRIPCIONIsNull; property DESCRIPCIONIsNull: Boolean read GetDESCRIPCIONIsNull write SetDESCRIPCIONIsNull;
property ID_PROPIEDAD_VALORES: Integer read GetID_PROPIEDAD_VALORESValue write SetID_PROPIEDAD_VALORESValue;
property ID_PROPIEDAD_VALORESIsNull: Boolean read GetID_PROPIEDAD_VALORESIsNull write SetID_PROPIEDAD_VALORESIsNull;
public public
constructor Create(aDataTable: TDADataTable); override; constructor Create(aDataTable: TDADataTable); override;
@ -307,7 +333,7 @@ type
{ IListaAnosPresupuestos } { IListaAnosPresupuestos }
IListaAnosPresupuestos = interface(IDAStronglyTypedDataTable) IListaAnosPresupuestos = interface(IDAStronglyTypedDataTable)
['{D632F9B0-5384-430B-B64C-E93F01D72966}'] ['{0FAE1985-358B-4700-8997-18C8D95D25B2}']
{ Property getters and setters } { Property getters and setters }
function GetANOValue: String; function GetANOValue: String;
procedure SetANOValue(const aValue: String); procedure SetANOValue(const aValue: String);
@ -342,7 +368,7 @@ type
{ IPresupuestosCliente } { IPresupuestosCliente }
IPresupuestosCliente = interface(IDAStronglyTypedDataTable) IPresupuestosCliente = interface(IDAStronglyTypedDataTable)
['{42A8FF1A-071F-44AE-9B50-2B5A4A7625C6}'] ['{32B323C8-467F-4F4B-843A-3B2EAECBD550}']
{ Property getters and setters } { Property getters and setters }
function GetIDValue: Integer; function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer); procedure SetIDValue(const aValue: Integer);
@ -857,7 +883,7 @@ type
{ ICapitulosPresupuesto } { ICapitulosPresupuesto }
ICapitulosPresupuesto = interface(IDAStronglyTypedDataTable) ICapitulosPresupuesto = interface(IDAStronglyTypedDataTable)
['{EC8BE7EC-E277-42FB-A7F2-C23DC9E74BB6}'] ['{ECFFE9A0-8BCE-4B25-A564-A12FB37DE3FE}']
{ Property getters and setters } { Property getters and setters }
function GetIDValue: Integer; function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer); procedure SetIDValue(const aValue: Integer);
@ -875,14 +901,34 @@ type
procedure SetTIPO_ARTICULOValue(const aValue: String); procedure SetTIPO_ARTICULOValue(const aValue: String);
function GetTIPO_ARTICULOIsNull: Boolean; function GetTIPO_ARTICULOIsNull: Boolean;
procedure SetTIPO_ARTICULOIsNull(const aValue: Boolean); procedure SetTIPO_ARTICULOIsNull(const aValue: Boolean);
function GetID_ARTICULOValue: Integer;
procedure SetID_ARTICULOValue(const aValue: Integer);
function GetID_ARTICULOIsNull: Boolean;
procedure SetID_ARTICULOIsNull(const aValue: Boolean);
function GetCONCEPTOValue: String; function GetCONCEPTOValue: String;
procedure SetCONCEPTOValue(const aValue: String); procedure SetCONCEPTOValue(const aValue: String);
function GetCONCEPTOIsNull: Boolean; function GetCONCEPTOIsNull: Boolean;
procedure SetCONCEPTOIsNull(const aValue: Boolean); procedure SetCONCEPTOIsNull(const aValue: Boolean);
function GetCANTIDADValue: Integer;
procedure SetCANTIDADValue(const aValue: Integer);
function GetCANTIDADIsNull: Boolean;
procedure SetCANTIDADIsNull(const aValue: Boolean);
function GetIMPORTE_UNIDADValue: Integer;
procedure SetIMPORTE_UNIDADValue(const aValue: Integer);
function GetIMPORTE_UNIDADIsNull: Boolean;
procedure SetIMPORTE_UNIDADIsNull(const aValue: Boolean);
function GetIMPORTE_TOTALValue: Integer;
procedure SetIMPORTE_TOTALValue(const aValue: Integer);
function GetIMPORTE_TOTALIsNull: Boolean;
procedure SetIMPORTE_TOTALIsNull(const aValue: Boolean);
function GetDESCUENTOValue: Integer;
procedure SetDESCUENTOValue(const aValue: Integer);
function GetDESCUENTOIsNull: Boolean;
procedure SetDESCUENTOIsNull(const aValue: Boolean);
function GetIMPORTE_PORTEValue: Integer;
procedure SetIMPORTE_PORTEValue(const aValue: Integer);
function GetIMPORTE_PORTEIsNull: Boolean;
procedure SetIMPORTE_PORTEIsNull(const aValue: Boolean);
function GetVISIBLEValue: Integer;
procedure SetVISIBLEValue(const aValue: Integer);
function GetVISIBLEIsNull: Boolean;
procedure SetVISIBLEIsNull(const aValue: Boolean);
{ Properties } { Properties }
@ -894,10 +940,20 @@ type
property TIPO_DETALLEIsNull: Boolean read GetTIPO_DETALLEIsNull write SetTIPO_DETALLEIsNull; property TIPO_DETALLEIsNull: Boolean read GetTIPO_DETALLEIsNull write SetTIPO_DETALLEIsNull;
property TIPO_ARTICULO: String read GetTIPO_ARTICULOValue write SetTIPO_ARTICULOValue; property TIPO_ARTICULO: String read GetTIPO_ARTICULOValue write SetTIPO_ARTICULOValue;
property TIPO_ARTICULOIsNull: Boolean read GetTIPO_ARTICULOIsNull write SetTIPO_ARTICULOIsNull; property TIPO_ARTICULOIsNull: Boolean read GetTIPO_ARTICULOIsNull write SetTIPO_ARTICULOIsNull;
property ID_ARTICULO: Integer read GetID_ARTICULOValue write SetID_ARTICULOValue;
property ID_ARTICULOIsNull: Boolean read GetID_ARTICULOIsNull write SetID_ARTICULOIsNull;
property CONCEPTO: String read GetCONCEPTOValue write SetCONCEPTOValue; property CONCEPTO: String read GetCONCEPTOValue write SetCONCEPTOValue;
property CONCEPTOIsNull: Boolean read GetCONCEPTOIsNull write SetCONCEPTOIsNull; property CONCEPTOIsNull: Boolean read GetCONCEPTOIsNull write SetCONCEPTOIsNull;
property CANTIDAD: Integer read GetCANTIDADValue write SetCANTIDADValue;
property CANTIDADIsNull: Boolean read GetCANTIDADIsNull write SetCANTIDADIsNull;
property IMPORTE_UNIDAD: Integer read GetIMPORTE_UNIDADValue write SetIMPORTE_UNIDADValue;
property IMPORTE_UNIDADIsNull: Boolean read GetIMPORTE_UNIDADIsNull write SetIMPORTE_UNIDADIsNull;
property IMPORTE_TOTAL: Integer read GetIMPORTE_TOTALValue write SetIMPORTE_TOTALValue;
property IMPORTE_TOTALIsNull: Boolean read GetIMPORTE_TOTALIsNull write SetIMPORTE_TOTALIsNull;
property DESCUENTO: Integer read GetDESCUENTOValue write SetDESCUENTOValue;
property DESCUENTOIsNull: Boolean read GetDESCUENTOIsNull write SetDESCUENTOIsNull;
property IMPORTE_PORTE: Integer read GetIMPORTE_PORTEValue write SetIMPORTE_PORTEValue;
property IMPORTE_PORTEIsNull: Boolean read GetIMPORTE_PORTEIsNull write SetIMPORTE_PORTEIsNull;
property VISIBLE: Integer read GetVISIBLEValue write SetVISIBLEValue;
property VISIBLEIsNull: Boolean read GetVISIBLEIsNull write SetVISIBLEIsNull;
end; end;
{ TCapitulosPresupuestoDataTableRules } { TCapitulosPresupuestoDataTableRules }
@ -921,14 +977,34 @@ type
procedure SetTIPO_ARTICULOValue(const aValue: String); virtual; procedure SetTIPO_ARTICULOValue(const aValue: String); virtual;
function GetTIPO_ARTICULOIsNull: Boolean; virtual; function GetTIPO_ARTICULOIsNull: Boolean; virtual;
procedure SetTIPO_ARTICULOIsNull(const aValue: Boolean); virtual; procedure SetTIPO_ARTICULOIsNull(const aValue: Boolean); virtual;
function GetID_ARTICULOValue: Integer; virtual;
procedure SetID_ARTICULOValue(const aValue: Integer); virtual;
function GetID_ARTICULOIsNull: Boolean; virtual;
procedure SetID_ARTICULOIsNull(const aValue: Boolean); virtual;
function GetCONCEPTOValue: String; virtual; function GetCONCEPTOValue: String; virtual;
procedure SetCONCEPTOValue(const aValue: String); virtual; procedure SetCONCEPTOValue(const aValue: String); virtual;
function GetCONCEPTOIsNull: Boolean; virtual; function GetCONCEPTOIsNull: Boolean; virtual;
procedure SetCONCEPTOIsNull(const aValue: Boolean); virtual; procedure SetCONCEPTOIsNull(const aValue: Boolean); virtual;
function GetCANTIDADValue: Integer; virtual;
procedure SetCANTIDADValue(const aValue: Integer); virtual;
function GetCANTIDADIsNull: Boolean; virtual;
procedure SetCANTIDADIsNull(const aValue: Boolean); virtual;
function GetIMPORTE_UNIDADValue: Integer; virtual;
procedure SetIMPORTE_UNIDADValue(const aValue: Integer); virtual;
function GetIMPORTE_UNIDADIsNull: Boolean; virtual;
procedure SetIMPORTE_UNIDADIsNull(const aValue: Boolean); virtual;
function GetIMPORTE_TOTALValue: Integer; virtual;
procedure SetIMPORTE_TOTALValue(const aValue: Integer); virtual;
function GetIMPORTE_TOTALIsNull: Boolean; virtual;
procedure SetIMPORTE_TOTALIsNull(const aValue: Boolean); virtual;
function GetDESCUENTOValue: Integer; virtual;
procedure SetDESCUENTOValue(const aValue: Integer); virtual;
function GetDESCUENTOIsNull: Boolean; virtual;
procedure SetDESCUENTOIsNull(const aValue: Boolean); virtual;
function GetIMPORTE_PORTEValue: Integer; virtual;
procedure SetIMPORTE_PORTEValue(const aValue: Integer); virtual;
function GetIMPORTE_PORTEIsNull: Boolean; virtual;
procedure SetIMPORTE_PORTEIsNull(const aValue: Boolean); virtual;
function GetVISIBLEValue: Integer; virtual;
procedure SetVISIBLEValue(const aValue: Integer); virtual;
function GetVISIBLEIsNull: Boolean; virtual;
procedure SetVISIBLEIsNull(const aValue: Boolean); virtual;
{ Properties } { Properties }
property ID: Integer read GetIDValue write SetIDValue; property ID: Integer read GetIDValue write SetIDValue;
@ -939,10 +1015,20 @@ type
property TIPO_DETALLEIsNull: Boolean read GetTIPO_DETALLEIsNull write SetTIPO_DETALLEIsNull; property TIPO_DETALLEIsNull: Boolean read GetTIPO_DETALLEIsNull write SetTIPO_DETALLEIsNull;
property TIPO_ARTICULO: String read GetTIPO_ARTICULOValue write SetTIPO_ARTICULOValue; property TIPO_ARTICULO: String read GetTIPO_ARTICULOValue write SetTIPO_ARTICULOValue;
property TIPO_ARTICULOIsNull: Boolean read GetTIPO_ARTICULOIsNull write SetTIPO_ARTICULOIsNull; property TIPO_ARTICULOIsNull: Boolean read GetTIPO_ARTICULOIsNull write SetTIPO_ARTICULOIsNull;
property ID_ARTICULO: Integer read GetID_ARTICULOValue write SetID_ARTICULOValue;
property ID_ARTICULOIsNull: Boolean read GetID_ARTICULOIsNull write SetID_ARTICULOIsNull;
property CONCEPTO: String read GetCONCEPTOValue write SetCONCEPTOValue; property CONCEPTO: String read GetCONCEPTOValue write SetCONCEPTOValue;
property CONCEPTOIsNull: Boolean read GetCONCEPTOIsNull write SetCONCEPTOIsNull; property CONCEPTOIsNull: Boolean read GetCONCEPTOIsNull write SetCONCEPTOIsNull;
property CANTIDAD: Integer read GetCANTIDADValue write SetCANTIDADValue;
property CANTIDADIsNull: Boolean read GetCANTIDADIsNull write SetCANTIDADIsNull;
property IMPORTE_UNIDAD: Integer read GetIMPORTE_UNIDADValue write SetIMPORTE_UNIDADValue;
property IMPORTE_UNIDADIsNull: Boolean read GetIMPORTE_UNIDADIsNull write SetIMPORTE_UNIDADIsNull;
property IMPORTE_TOTAL: Integer read GetIMPORTE_TOTALValue write SetIMPORTE_TOTALValue;
property IMPORTE_TOTALIsNull: Boolean read GetIMPORTE_TOTALIsNull write SetIMPORTE_TOTALIsNull;
property DESCUENTO: Integer read GetDESCUENTOValue write SetDESCUENTOValue;
property DESCUENTOIsNull: Boolean read GetDESCUENTOIsNull write SetDESCUENTOIsNull;
property IMPORTE_PORTE: Integer read GetIMPORTE_PORTEValue write SetIMPORTE_PORTEValue;
property IMPORTE_PORTEIsNull: Boolean read GetIMPORTE_PORTEIsNull write SetIMPORTE_PORTEIsNull;
property VISIBLE: Integer read GetVISIBLEValue write SetVISIBLEValue;
property VISIBLEIsNull: Boolean read GetVISIBLEIsNull write SetVISIBLEIsNull;
public public
constructor Create(aDataTable: TDADataTable); override; constructor Create(aDataTable: TDADataTable); override;
@ -952,7 +1038,7 @@ type
{ IPresupuestosCliente_Detalles } { IPresupuestosCliente_Detalles }
IPresupuestosCliente_Detalles = interface(IDAStronglyTypedDataTable) IPresupuestosCliente_Detalles = interface(IDAStronglyTypedDataTable)
['{23EFE68F-D5E4-4B76-A8F6-50E45D5C755A}'] ['{DDD9E6A0-55E8-41B7-84B2-E85B6A2ED4CC}']
{ Property getters and setters } { Property getters and setters }
function GetIDValue: Integer; function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer); procedure SetIDValue(const aValue: Integer);
@ -970,6 +1056,10 @@ type
procedure SetTIPO_DETALLEValue(const aValue: String); procedure SetTIPO_DETALLEValue(const aValue: String);
function GetTIPO_DETALLEIsNull: Boolean; function GetTIPO_DETALLEIsNull: Boolean;
procedure SetTIPO_DETALLEIsNull(const aValue: Boolean); procedure SetTIPO_DETALLEIsNull(const aValue: Boolean);
function GetPROPIEDADValue: String;
procedure SetPROPIEDADValue(const aValue: String);
function GetPROPIEDADIsNull: Boolean;
procedure SetPROPIEDADIsNull(const aValue: Boolean);
function GetCONCEPTOValue: String; function GetCONCEPTOValue: String;
procedure SetCONCEPTOValue(const aValue: String); procedure SetCONCEPTOValue(const aValue: String);
function GetCONCEPTOIsNull: Boolean; function GetCONCEPTOIsNull: Boolean;
@ -1025,6 +1115,8 @@ type
property POSICIONIsNull: Boolean read GetPOSICIONIsNull write SetPOSICIONIsNull; property POSICIONIsNull: Boolean read GetPOSICIONIsNull write SetPOSICIONIsNull;
property TIPO_DETALLE: String read GetTIPO_DETALLEValue write SetTIPO_DETALLEValue; property TIPO_DETALLE: String read GetTIPO_DETALLEValue write SetTIPO_DETALLEValue;
property TIPO_DETALLEIsNull: Boolean read GetTIPO_DETALLEIsNull write SetTIPO_DETALLEIsNull; property TIPO_DETALLEIsNull: Boolean read GetTIPO_DETALLEIsNull write SetTIPO_DETALLEIsNull;
property PROPIEDAD: String read GetPROPIEDADValue write SetPROPIEDADValue;
property PROPIEDADIsNull: Boolean read GetPROPIEDADIsNull write SetPROPIEDADIsNull;
property CONCEPTO: String read GetCONCEPTOValue write SetCONCEPTOValue; property CONCEPTO: String read GetCONCEPTOValue write SetCONCEPTOValue;
property CONCEPTOIsNull: Boolean read GetCONCEPTOIsNull write SetCONCEPTOIsNull; property CONCEPTOIsNull: Boolean read GetCONCEPTOIsNull write SetCONCEPTOIsNull;
property CANTIDAD: Currency read GetCANTIDADValue write SetCANTIDADValue; property CANTIDAD: Currency read GetCANTIDADValue write SetCANTIDADValue;
@ -1070,6 +1162,10 @@ type
procedure SetTIPO_DETALLEValue(const aValue: String); virtual; procedure SetTIPO_DETALLEValue(const aValue: String); virtual;
function GetTIPO_DETALLEIsNull: Boolean; virtual; function GetTIPO_DETALLEIsNull: Boolean; virtual;
procedure SetTIPO_DETALLEIsNull(const aValue: Boolean); virtual; procedure SetTIPO_DETALLEIsNull(const aValue: Boolean); virtual;
function GetPROPIEDADValue: String; virtual;
procedure SetPROPIEDADValue(const aValue: String); virtual;
function GetPROPIEDADIsNull: Boolean; virtual;
procedure SetPROPIEDADIsNull(const aValue: Boolean); virtual;
function GetCONCEPTOValue: String; virtual; function GetCONCEPTOValue: String; virtual;
procedure SetCONCEPTOValue(const aValue: String); virtual; procedure SetCONCEPTOValue(const aValue: String); virtual;
function GetCONCEPTOIsNull: Boolean; virtual; function GetCONCEPTOIsNull: Boolean; virtual;
@ -1124,6 +1220,8 @@ type
property POSICIONIsNull: Boolean read GetPOSICIONIsNull write SetPOSICIONIsNull; property POSICIONIsNull: Boolean read GetPOSICIONIsNull write SetPOSICIONIsNull;
property TIPO_DETALLE: String read GetTIPO_DETALLEValue write SetTIPO_DETALLEValue; property TIPO_DETALLE: String read GetTIPO_DETALLEValue write SetTIPO_DETALLEValue;
property TIPO_DETALLEIsNull: Boolean read GetTIPO_DETALLEIsNull write SetTIPO_DETALLEIsNull; property TIPO_DETALLEIsNull: Boolean read GetTIPO_DETALLEIsNull write SetTIPO_DETALLEIsNull;
property PROPIEDAD: String read GetPROPIEDADValue write SetPROPIEDADValue;
property PROPIEDADIsNull: Boolean read GetPROPIEDADIsNull write SetPROPIEDADIsNull;
property CONCEPTO: String read GetCONCEPTOValue write SetCONCEPTOValue; property CONCEPTO: String read GetCONCEPTOValue write SetCONCEPTOValue;
property CONCEPTOIsNull: Boolean read GetCONCEPTOIsNull write SetCONCEPTOIsNull; property CONCEPTOIsNull: Boolean read GetCONCEPTOIsNull write SetCONCEPTOIsNull;
property CANTIDAD: Currency read GetCANTIDADValue write SetCANTIDADValue; property CANTIDAD: Currency read GetCANTIDADValue write SetCANTIDADValue;
@ -1189,25 +1287,46 @@ begin
DataTable.Fields[idx_ValoresID].AsVariant := Null; DataTable.Fields[idx_ValoresID].AsVariant := Null;
end; end;
function TValoresDataTableRules.GetID_PROPIEDADValue: Integer; function TValoresDataTableRules.GetID_EMPRESAValue: Integer;
begin begin
result := DataTable.Fields[idx_ValoresID_PROPIEDAD].AsInteger; result := DataTable.Fields[idx_ValoresID_EMPRESA].AsInteger;
end; end;
procedure TValoresDataTableRules.SetID_PROPIEDADValue(const aValue: Integer); procedure TValoresDataTableRules.SetID_EMPRESAValue(const aValue: Integer);
begin begin
DataTable.Fields[idx_ValoresID_PROPIEDAD].AsInteger := aValue; DataTable.Fields[idx_ValoresID_EMPRESA].AsInteger := aValue;
end; end;
function TValoresDataTableRules.GetID_PROPIEDADIsNull: boolean; function TValoresDataTableRules.GetID_EMPRESAIsNull: boolean;
begin begin
result := DataTable.Fields[idx_ValoresID_PROPIEDAD].IsNull; result := DataTable.Fields[idx_ValoresID_EMPRESA].IsNull;
end; end;
procedure TValoresDataTableRules.SetID_PROPIEDADIsNull(const aValue: Boolean); procedure TValoresDataTableRules.SetID_EMPRESAIsNull(const aValue: Boolean);
begin begin
if aValue then if aValue then
DataTable.Fields[idx_ValoresID_PROPIEDAD].AsVariant := Null; DataTable.Fields[idx_ValoresID_EMPRESA].AsVariant := Null;
end;
function TValoresDataTableRules.GetREFERENCIAValue: String;
begin
result := DataTable.Fields[idx_ValoresREFERENCIA].AsString;
end;
procedure TValoresDataTableRules.SetREFERENCIAValue(const aValue: String);
begin
DataTable.Fields[idx_ValoresREFERENCIA].AsString := aValue;
end;
function TValoresDataTableRules.GetREFERENCIAIsNull: boolean;
begin
result := DataTable.Fields[idx_ValoresREFERENCIA].IsNull;
end;
procedure TValoresDataTableRules.SetREFERENCIAIsNull(const aValue: Boolean);
begin
if aValue then
DataTable.Fields[idx_ValoresREFERENCIA].AsVariant := Null;
end; end;
function TValoresDataTableRules.GetDESCRIPCIONValue: String; function TValoresDataTableRules.GetDESCRIPCIONValue: String;
@ -1231,6 +1350,27 @@ begin
DataTable.Fields[idx_ValoresDESCRIPCION].AsVariant := Null; DataTable.Fields[idx_ValoresDESCRIPCION].AsVariant := Null;
end; end;
function TValoresDataTableRules.GetFAMILIAValue: String;
begin
result := DataTable.Fields[idx_ValoresFAMILIA].AsString;
end;
procedure TValoresDataTableRules.SetFAMILIAValue(const aValue: String);
begin
DataTable.Fields[idx_ValoresFAMILIA].AsString := aValue;
end;
function TValoresDataTableRules.GetFAMILIAIsNull: boolean;
begin
result := DataTable.Fields[idx_ValoresFAMILIA].IsNull;
end;
procedure TValoresDataTableRules.SetFAMILIAIsNull(const aValue: Boolean);
begin
if aValue then
DataTable.Fields[idx_ValoresFAMILIA].AsVariant := Null;
end;
{ TPropiedadesDataTableRules } { TPropiedadesDataTableRules }
constructor TPropiedadesDataTableRules.Create(aDataTable: TDADataTable); constructor TPropiedadesDataTableRules.Create(aDataTable: TDADataTable);
@ -1285,27 +1425,6 @@ begin
DataTable.Fields[idx_PropiedadesDESCRIPCION].AsVariant := Null; DataTable.Fields[idx_PropiedadesDESCRIPCION].AsVariant := Null;
end; end;
function TPropiedadesDataTableRules.GetID_PROPIEDAD_VALORESValue: Integer;
begin
result := DataTable.Fields[idx_PropiedadesID_PROPIEDAD_VALORES].AsInteger;
end;
procedure TPropiedadesDataTableRules.SetID_PROPIEDAD_VALORESValue(const aValue: Integer);
begin
DataTable.Fields[idx_PropiedadesID_PROPIEDAD_VALORES].AsInteger := aValue;
end;
function TPropiedadesDataTableRules.GetID_PROPIEDAD_VALORESIsNull: boolean;
begin
result := DataTable.Fields[idx_PropiedadesID_PROPIEDAD_VALORES].IsNull;
end;
procedure TPropiedadesDataTableRules.SetID_PROPIEDAD_VALORESIsNull(const aValue: Boolean);
begin
if aValue then
DataTable.Fields[idx_PropiedadesID_PROPIEDAD_VALORES].AsVariant := Null;
end;
{ TListaAnosPresupuestosDataTableRules } { TListaAnosPresupuestosDataTableRules }
constructor TListaAnosPresupuestosDataTableRules.Create(aDataTable: TDADataTable); constructor TListaAnosPresupuestosDataTableRules.Create(aDataTable: TDADataTable);
@ -2330,27 +2449,6 @@ begin
DataTable.Fields[idx_CapitulosPresupuestoTIPO_ARTICULO].AsVariant := Null; DataTable.Fields[idx_CapitulosPresupuestoTIPO_ARTICULO].AsVariant := Null;
end; end;
function TCapitulosPresupuestoDataTableRules.GetID_ARTICULOValue: Integer;
begin
result := DataTable.Fields[idx_CapitulosPresupuestoID_ARTICULO].AsInteger;
end;
procedure TCapitulosPresupuestoDataTableRules.SetID_ARTICULOValue(const aValue: Integer);
begin
DataTable.Fields[idx_CapitulosPresupuestoID_ARTICULO].AsInteger := aValue;
end;
function TCapitulosPresupuestoDataTableRules.GetID_ARTICULOIsNull: boolean;
begin
result := DataTable.Fields[idx_CapitulosPresupuestoID_ARTICULO].IsNull;
end;
procedure TCapitulosPresupuestoDataTableRules.SetID_ARTICULOIsNull(const aValue: Boolean);
begin
if aValue then
DataTable.Fields[idx_CapitulosPresupuestoID_ARTICULO].AsVariant := Null;
end;
function TCapitulosPresupuestoDataTableRules.GetCONCEPTOValue: String; function TCapitulosPresupuestoDataTableRules.GetCONCEPTOValue: String;
begin begin
result := DataTable.Fields[idx_CapitulosPresupuestoCONCEPTO].AsString; result := DataTable.Fields[idx_CapitulosPresupuestoCONCEPTO].AsString;
@ -2372,6 +2470,132 @@ begin
DataTable.Fields[idx_CapitulosPresupuestoCONCEPTO].AsVariant := Null; DataTable.Fields[idx_CapitulosPresupuestoCONCEPTO].AsVariant := Null;
end; end;
function TCapitulosPresupuestoDataTableRules.GetCANTIDADValue: Integer;
begin
result := DataTable.Fields[idx_CapitulosPresupuestoCANTIDAD].AsInteger;
end;
procedure TCapitulosPresupuestoDataTableRules.SetCANTIDADValue(const aValue: Integer);
begin
DataTable.Fields[idx_CapitulosPresupuestoCANTIDAD].AsInteger := aValue;
end;
function TCapitulosPresupuestoDataTableRules.GetCANTIDADIsNull: boolean;
begin
result := DataTable.Fields[idx_CapitulosPresupuestoCANTIDAD].IsNull;
end;
procedure TCapitulosPresupuestoDataTableRules.SetCANTIDADIsNull(const aValue: Boolean);
begin
if aValue then
DataTable.Fields[idx_CapitulosPresupuestoCANTIDAD].AsVariant := Null;
end;
function TCapitulosPresupuestoDataTableRules.GetIMPORTE_UNIDADValue: Integer;
begin
result := DataTable.Fields[idx_CapitulosPresupuestoIMPORTE_UNIDAD].AsInteger;
end;
procedure TCapitulosPresupuestoDataTableRules.SetIMPORTE_UNIDADValue(const aValue: Integer);
begin
DataTable.Fields[idx_CapitulosPresupuestoIMPORTE_UNIDAD].AsInteger := aValue;
end;
function TCapitulosPresupuestoDataTableRules.GetIMPORTE_UNIDADIsNull: boolean;
begin
result := DataTable.Fields[idx_CapitulosPresupuestoIMPORTE_UNIDAD].IsNull;
end;
procedure TCapitulosPresupuestoDataTableRules.SetIMPORTE_UNIDADIsNull(const aValue: Boolean);
begin
if aValue then
DataTable.Fields[idx_CapitulosPresupuestoIMPORTE_UNIDAD].AsVariant := Null;
end;
function TCapitulosPresupuestoDataTableRules.GetIMPORTE_TOTALValue: Integer;
begin
result := DataTable.Fields[idx_CapitulosPresupuestoIMPORTE_TOTAL].AsInteger;
end;
procedure TCapitulosPresupuestoDataTableRules.SetIMPORTE_TOTALValue(const aValue: Integer);
begin
DataTable.Fields[idx_CapitulosPresupuestoIMPORTE_TOTAL].AsInteger := aValue;
end;
function TCapitulosPresupuestoDataTableRules.GetIMPORTE_TOTALIsNull: boolean;
begin
result := DataTable.Fields[idx_CapitulosPresupuestoIMPORTE_TOTAL].IsNull;
end;
procedure TCapitulosPresupuestoDataTableRules.SetIMPORTE_TOTALIsNull(const aValue: Boolean);
begin
if aValue then
DataTable.Fields[idx_CapitulosPresupuestoIMPORTE_TOTAL].AsVariant := Null;
end;
function TCapitulosPresupuestoDataTableRules.GetDESCUENTOValue: Integer;
begin
result := DataTable.Fields[idx_CapitulosPresupuestoDESCUENTO].AsInteger;
end;
procedure TCapitulosPresupuestoDataTableRules.SetDESCUENTOValue(const aValue: Integer);
begin
DataTable.Fields[idx_CapitulosPresupuestoDESCUENTO].AsInteger := aValue;
end;
function TCapitulosPresupuestoDataTableRules.GetDESCUENTOIsNull: boolean;
begin
result := DataTable.Fields[idx_CapitulosPresupuestoDESCUENTO].IsNull;
end;
procedure TCapitulosPresupuestoDataTableRules.SetDESCUENTOIsNull(const aValue: Boolean);
begin
if aValue then
DataTable.Fields[idx_CapitulosPresupuestoDESCUENTO].AsVariant := Null;
end;
function TCapitulosPresupuestoDataTableRules.GetIMPORTE_PORTEValue: Integer;
begin
result := DataTable.Fields[idx_CapitulosPresupuestoIMPORTE_PORTE].AsInteger;
end;
procedure TCapitulosPresupuestoDataTableRules.SetIMPORTE_PORTEValue(const aValue: Integer);
begin
DataTable.Fields[idx_CapitulosPresupuestoIMPORTE_PORTE].AsInteger := aValue;
end;
function TCapitulosPresupuestoDataTableRules.GetIMPORTE_PORTEIsNull: boolean;
begin
result := DataTable.Fields[idx_CapitulosPresupuestoIMPORTE_PORTE].IsNull;
end;
procedure TCapitulosPresupuestoDataTableRules.SetIMPORTE_PORTEIsNull(const aValue: Boolean);
begin
if aValue then
DataTable.Fields[idx_CapitulosPresupuestoIMPORTE_PORTE].AsVariant := Null;
end;
function TCapitulosPresupuestoDataTableRules.GetVISIBLEValue: Integer;
begin
result := DataTable.Fields[idx_CapitulosPresupuestoVISIBLE].AsInteger;
end;
procedure TCapitulosPresupuestoDataTableRules.SetVISIBLEValue(const aValue: Integer);
begin
DataTable.Fields[idx_CapitulosPresupuestoVISIBLE].AsInteger := aValue;
end;
function TCapitulosPresupuestoDataTableRules.GetVISIBLEIsNull: boolean;
begin
result := DataTable.Fields[idx_CapitulosPresupuestoVISIBLE].IsNull;
end;
procedure TCapitulosPresupuestoDataTableRules.SetVISIBLEIsNull(const aValue: Boolean);
begin
if aValue then
DataTable.Fields[idx_CapitulosPresupuestoVISIBLE].AsVariant := Null;
end;
{ TPresupuestosCliente_DetallesDataTableRules } { TPresupuestosCliente_DetallesDataTableRules }
constructor TPresupuestosCliente_DetallesDataTableRules.Create(aDataTable: TDADataTable); constructor TPresupuestosCliente_DetallesDataTableRules.Create(aDataTable: TDADataTable);
@ -2468,6 +2692,27 @@ begin
DataTable.Fields[idx_PresupuestosCliente_DetallesTIPO_DETALLE].AsVariant := Null; DataTable.Fields[idx_PresupuestosCliente_DetallesTIPO_DETALLE].AsVariant := Null;
end; end;
function TPresupuestosCliente_DetallesDataTableRules.GetPROPIEDADValue: String;
begin
result := DataTable.Fields[idx_PresupuestosCliente_DetallesPROPIEDAD].AsString;
end;
procedure TPresupuestosCliente_DetallesDataTableRules.SetPROPIEDADValue(const aValue: String);
begin
DataTable.Fields[idx_PresupuestosCliente_DetallesPROPIEDAD].AsString := aValue;
end;
function TPresupuestosCliente_DetallesDataTableRules.GetPROPIEDADIsNull: boolean;
begin
result := DataTable.Fields[idx_PresupuestosCliente_DetallesPROPIEDAD].IsNull;
end;
procedure TPresupuestosCliente_DetallesDataTableRules.SetPROPIEDADIsNull(const aValue: Boolean);
begin
if aValue then
DataTable.Fields[idx_PresupuestosCliente_DetallesPROPIEDAD].AsVariant := Null;
end;
function TPresupuestosCliente_DetallesDataTableRules.GetCONCEPTOValue: String; function TPresupuestosCliente_DetallesDataTableRules.GetCONCEPTOValue: String;
begin begin
result := DataTable.Fields[idx_PresupuestosCliente_DetallesCONCEPTO].AsString; result := DataTable.Fields[idx_PresupuestosCliente_DetallesCONCEPTO].AsString;

545
Source/Modulos/Presupuestos de cliente/Model/schPresupuestosClienteServer_Intf.pas
View File

@ -9,26 +9,30 @@ 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 = '{89E797B9-962D-4358-A7F2-A2C87D74F290}'; RID_ValoresDelta = '{BC8E41E9-8504-4F3A-9D33-AB1EBF7413EA}';
RID_PropiedadesDelta = '{7F6C1A91-3ACF-4AE9-B31B-F5F676E19824}'; RID_PropiedadesDelta = '{804468D0-2E8B-417B-824A-3182C04843D0}';
RID_ListaAnosPresupuestosDelta = '{57AFBB3B-DC9E-49C9-8FE1-84CFC4233879}'; RID_ListaAnosPresupuestosDelta = '{F947E684-3A20-44D7-B6EB-AA62D53F23CF}';
RID_PresupuestosClienteDelta = '{DED2F200-34F4-4A2B-9C56-78640B5B9B52}'; RID_PresupuestosClienteDelta = '{8F358490-44B9-49E7-A571-E77C073A5368}';
RID_CapitulosPresupuestoDelta = '{CB74C4B2-B235-4C86-8030-F3BFE2F75F8D}'; RID_CapitulosPresupuestoDelta = '{1F8AFF61-FF8A-4E9B-B6D8-B8B09C31DF15}';
RID_PresupuestosCliente_DetallesDelta = '{FD4CE9BE-0A53-4FB8-A820-356C4F7BACCA}'; RID_PresupuestosCliente_DetallesDelta = '{2806C346-E3D2-4415-AAF5-22F6A02D8F29}';
type type
{ IValoresDelta } { IValoresDelta }
IValoresDelta = interface(IValores) IValoresDelta = interface(IValores)
['{89E797B9-962D-4358-A7F2-A2C87D74F290}'] ['{BC8E41E9-8504-4F3A-9D33-AB1EBF7413EA}']
{ Property getters and setters } { Property getters and setters }
function GetOldIDValue : Integer; function GetOldIDValue : Integer;
function GetOldID_PROPIEDADValue : Integer; function GetOldID_EMPRESAValue : Integer;
function GetOldREFERENCIAValue : String;
function GetOldDESCRIPCIONValue : String; function GetOldDESCRIPCIONValue : String;
function GetOldFAMILIAValue : String;
{ Properties } { Properties }
property OldID : Integer read GetOldIDValue; property OldID : Integer read GetOldIDValue;
property OldID_PROPIEDAD : Integer read GetOldID_PROPIEDADValue; property OldID_EMPRESA : Integer read GetOldID_EMPRESAValue;
property OldREFERENCIA : String read GetOldREFERENCIAValue;
property OldDESCRIPCION : String read GetOldDESCRIPCIONValue; property OldDESCRIPCION : String read GetOldDESCRIPCIONValue;
property OldFAMILIA : String read GetOldFAMILIAValue;
end; end;
{ TValoresBusinessProcessorRules } { TValoresBusinessProcessorRules }
@ -42,32 +46,52 @@ type
function GetOldIDIsNull: Boolean; virtual; function GetOldIDIsNull: Boolean; virtual;
procedure SetIDValue(const aValue: Integer); virtual; procedure SetIDValue(const aValue: Integer); virtual;
procedure SetIDIsNull(const aValue: Boolean); virtual; procedure SetIDIsNull(const aValue: Boolean); virtual;
function GetID_PROPIEDADValue: Integer; virtual; function GetID_EMPRESAValue: Integer; virtual;
function GetID_PROPIEDADIsNull: Boolean; virtual; function GetID_EMPRESAIsNull: Boolean; virtual;
function GetOldID_PROPIEDADValue: Integer; virtual; function GetOldID_EMPRESAValue: Integer; virtual;
function GetOldID_PROPIEDADIsNull: Boolean; virtual; function GetOldID_EMPRESAIsNull: Boolean; virtual;
procedure SetID_PROPIEDADValue(const aValue: Integer); virtual; procedure SetID_EMPRESAValue(const aValue: Integer); virtual;
procedure SetID_PROPIEDADIsNull(const aValue: Boolean); virtual; procedure SetID_EMPRESAIsNull(const aValue: Boolean); virtual;
function GetREFERENCIAValue: String; virtual;
function GetREFERENCIAIsNull: Boolean; virtual;
function GetOldREFERENCIAValue: String; virtual;
function GetOldREFERENCIAIsNull: Boolean; virtual;
procedure SetREFERENCIAValue(const aValue: String); virtual;
procedure SetREFERENCIAIsNull(const aValue: Boolean); virtual;
function GetDESCRIPCIONValue: String; virtual; function GetDESCRIPCIONValue: String; virtual;
function GetDESCRIPCIONIsNull: Boolean; virtual; function GetDESCRIPCIONIsNull: Boolean; virtual;
function GetOldDESCRIPCIONValue: String; virtual; function GetOldDESCRIPCIONValue: String; virtual;
function GetOldDESCRIPCIONIsNull: Boolean; virtual; function GetOldDESCRIPCIONIsNull: Boolean; virtual;
procedure SetDESCRIPCIONValue(const aValue: String); virtual; procedure SetDESCRIPCIONValue(const aValue: String); virtual;
procedure SetDESCRIPCIONIsNull(const aValue: Boolean); virtual; procedure SetDESCRIPCIONIsNull(const aValue: Boolean); virtual;
function GetFAMILIAValue: String; virtual;
function GetFAMILIAIsNull: Boolean; virtual;
function GetOldFAMILIAValue: String; virtual;
function GetOldFAMILIAIsNull: Boolean; virtual;
procedure SetFAMILIAValue(const aValue: String); virtual;
procedure SetFAMILIAIsNull(const aValue: Boolean); virtual;
{ Properties } { Properties }
property ID : Integer read GetIDValue write SetIDValue; property ID : Integer read GetIDValue write SetIDValue;
property IDIsNull : Boolean read GetIDIsNull write SetIDIsNull; property IDIsNull : Boolean read GetIDIsNull write SetIDIsNull;
property OldID : Integer read GetOldIDValue; property OldID : Integer read GetOldIDValue;
property OldIDIsNull : Boolean read GetOldIDIsNull; property OldIDIsNull : Boolean read GetOldIDIsNull;
property ID_PROPIEDAD : Integer read GetID_PROPIEDADValue write SetID_PROPIEDADValue; property ID_EMPRESA : Integer read GetID_EMPRESAValue write SetID_EMPRESAValue;
property ID_PROPIEDADIsNull : Boolean read GetID_PROPIEDADIsNull write SetID_PROPIEDADIsNull; property ID_EMPRESAIsNull : Boolean read GetID_EMPRESAIsNull write SetID_EMPRESAIsNull;
property OldID_PROPIEDAD : Integer read GetOldID_PROPIEDADValue; property OldID_EMPRESA : Integer read GetOldID_EMPRESAValue;
property OldID_PROPIEDADIsNull : Boolean read GetOldID_PROPIEDADIsNull; property OldID_EMPRESAIsNull : Boolean read GetOldID_EMPRESAIsNull;
property REFERENCIA : String read GetREFERENCIAValue write SetREFERENCIAValue;
property REFERENCIAIsNull : Boolean read GetREFERENCIAIsNull write SetREFERENCIAIsNull;
property OldREFERENCIA : String read GetOldREFERENCIAValue;
property OldREFERENCIAIsNull : Boolean read GetOldREFERENCIAIsNull;
property DESCRIPCION : String read GetDESCRIPCIONValue write SetDESCRIPCIONValue; property DESCRIPCION : String read GetDESCRIPCIONValue write SetDESCRIPCIONValue;
property DESCRIPCIONIsNull : Boolean read GetDESCRIPCIONIsNull write SetDESCRIPCIONIsNull; property DESCRIPCIONIsNull : Boolean read GetDESCRIPCIONIsNull write SetDESCRIPCIONIsNull;
property OldDESCRIPCION : String read GetOldDESCRIPCIONValue; property OldDESCRIPCION : String read GetOldDESCRIPCIONValue;
property OldDESCRIPCIONIsNull : Boolean read GetOldDESCRIPCIONIsNull; property OldDESCRIPCIONIsNull : Boolean read GetOldDESCRIPCIONIsNull;
property FAMILIA : String read GetFAMILIAValue write SetFAMILIAValue;
property FAMILIAIsNull : Boolean read GetFAMILIAIsNull write SetFAMILIAIsNull;
property OldFAMILIA : String read GetOldFAMILIAValue;
property OldFAMILIAIsNull : Boolean read GetOldFAMILIAIsNull;
public public
constructor Create(aBusinessProcessor: TDABusinessProcessor); override; constructor Create(aBusinessProcessor: TDABusinessProcessor); override;
@ -77,16 +101,14 @@ type
{ IPropiedadesDelta } { IPropiedadesDelta }
IPropiedadesDelta = interface(IPropiedades) IPropiedadesDelta = interface(IPropiedades)
['{7F6C1A91-3ACF-4AE9-B31B-F5F676E19824}'] ['{804468D0-2E8B-417B-824A-3182C04843D0}']
{ Property getters and setters } { Property getters and setters }
function GetOldIDValue : Integer; function GetOldIDValue : Integer;
function GetOldDESCRIPCIONValue : String; function GetOldDESCRIPCIONValue : String;
function GetOldID_PROPIEDAD_VALORESValue : Integer;
{ Properties } { Properties }
property OldID : Integer read GetOldIDValue; property OldID : Integer read GetOldIDValue;
property OldDESCRIPCION : String read GetOldDESCRIPCIONValue; property OldDESCRIPCION : String read GetOldDESCRIPCIONValue;
property OldID_PROPIEDAD_VALORES : Integer read GetOldID_PROPIEDAD_VALORESValue;
end; end;
{ TPropiedadesBusinessProcessorRules } { TPropiedadesBusinessProcessorRules }
@ -106,12 +128,6 @@ type
function GetOldDESCRIPCIONIsNull: Boolean; virtual; function GetOldDESCRIPCIONIsNull: Boolean; virtual;
procedure SetDESCRIPCIONValue(const aValue: String); virtual; procedure SetDESCRIPCIONValue(const aValue: String); virtual;
procedure SetDESCRIPCIONIsNull(const aValue: Boolean); virtual; procedure SetDESCRIPCIONIsNull(const aValue: Boolean); virtual;
function GetID_PROPIEDAD_VALORESValue: Integer; virtual;
function GetID_PROPIEDAD_VALORESIsNull: Boolean; virtual;
function GetOldID_PROPIEDAD_VALORESValue: Integer; virtual;
function GetOldID_PROPIEDAD_VALORESIsNull: Boolean; virtual;
procedure SetID_PROPIEDAD_VALORESValue(const aValue: Integer); virtual;
procedure SetID_PROPIEDAD_VALORESIsNull(const aValue: Boolean); virtual;
{ Properties } { Properties }
property ID : Integer read GetIDValue write SetIDValue; property ID : Integer read GetIDValue write SetIDValue;
@ -122,10 +138,6 @@ type
property DESCRIPCIONIsNull : Boolean read GetDESCRIPCIONIsNull write SetDESCRIPCIONIsNull; property DESCRIPCIONIsNull : Boolean read GetDESCRIPCIONIsNull write SetDESCRIPCIONIsNull;
property OldDESCRIPCION : String read GetOldDESCRIPCIONValue; property OldDESCRIPCION : String read GetOldDESCRIPCIONValue;
property OldDESCRIPCIONIsNull : Boolean read GetOldDESCRIPCIONIsNull; property OldDESCRIPCIONIsNull : Boolean read GetOldDESCRIPCIONIsNull;
property ID_PROPIEDAD_VALORES : Integer read GetID_PROPIEDAD_VALORESValue write SetID_PROPIEDAD_VALORESValue;
property ID_PROPIEDAD_VALORESIsNull : Boolean read GetID_PROPIEDAD_VALORESIsNull write SetID_PROPIEDAD_VALORESIsNull;
property OldID_PROPIEDAD_VALORES : Integer read GetOldID_PROPIEDAD_VALORESValue;
property OldID_PROPIEDAD_VALORESIsNull : Boolean read GetOldID_PROPIEDAD_VALORESIsNull;
public public
constructor Create(aBusinessProcessor: TDABusinessProcessor); override; constructor Create(aBusinessProcessor: TDABusinessProcessor); override;
@ -135,7 +147,7 @@ type
{ IListaAnosPresupuestosDelta } { IListaAnosPresupuestosDelta }
IListaAnosPresupuestosDelta = interface(IListaAnosPresupuestos) IListaAnosPresupuestosDelta = interface(IListaAnosPresupuestos)
['{57AFBB3B-DC9E-49C9-8FE1-84CFC4233879}'] ['{F947E684-3A20-44D7-B6EB-AA62D53F23CF}']
{ Property getters and setters } { Property getters and setters }
function GetOldANOValue : String; function GetOldANOValue : String;
@ -169,7 +181,7 @@ type
{ IPresupuestosClienteDelta } { IPresupuestosClienteDelta }
IPresupuestosClienteDelta = interface(IPresupuestosCliente) IPresupuestosClienteDelta = interface(IPresupuestosCliente)
['{DED2F200-34F4-4A2B-9C56-78640B5B9B52}'] ['{8F358490-44B9-49E7-A571-E77C073A5368}']
{ Property getters and setters } { Property getters and setters }
function GetOldIDValue : Integer; function GetOldIDValue : Integer;
function GetOldID_EMPRESAValue : Integer; function GetOldID_EMPRESAValue : Integer;
@ -687,22 +699,32 @@ type
{ ICapitulosPresupuestoDelta } { ICapitulosPresupuestoDelta }
ICapitulosPresupuestoDelta = interface(ICapitulosPresupuesto) ICapitulosPresupuestoDelta = interface(ICapitulosPresupuesto)
['{CB74C4B2-B235-4C86-8030-F3BFE2F75F8D}'] ['{1F8AFF61-FF8A-4E9B-B6D8-B8B09C31DF15}']
{ Property getters and setters } { Property getters and setters }
function GetOldIDValue : Integer; function GetOldIDValue : Integer;
function GetOldPOSICIONValue : Integer; function GetOldPOSICIONValue : Integer;
function GetOldTIPO_DETALLEValue : String; function GetOldTIPO_DETALLEValue : String;
function GetOldTIPO_ARTICULOValue : String; function GetOldTIPO_ARTICULOValue : String;
function GetOldID_ARTICULOValue : Integer;
function GetOldCONCEPTOValue : String; function GetOldCONCEPTOValue : String;
function GetOldCANTIDADValue : Integer;
function GetOldIMPORTE_UNIDADValue : Integer;
function GetOldIMPORTE_TOTALValue : Integer;
function GetOldDESCUENTOValue : Integer;
function GetOldIMPORTE_PORTEValue : Integer;
function GetOldVISIBLEValue : Integer;
{ Properties } { Properties }
property OldID : Integer read GetOldIDValue; property OldID : Integer read GetOldIDValue;
property OldPOSICION : Integer read GetOldPOSICIONValue; property OldPOSICION : Integer read GetOldPOSICIONValue;
property OldTIPO_DETALLE : String read GetOldTIPO_DETALLEValue; property OldTIPO_DETALLE : String read GetOldTIPO_DETALLEValue;
property OldTIPO_ARTICULO : String read GetOldTIPO_ARTICULOValue; property OldTIPO_ARTICULO : String read GetOldTIPO_ARTICULOValue;
property OldID_ARTICULO : Integer read GetOldID_ARTICULOValue;
property OldCONCEPTO : String read GetOldCONCEPTOValue; property OldCONCEPTO : String read GetOldCONCEPTOValue;
property OldCANTIDAD : Integer read GetOldCANTIDADValue;
property OldIMPORTE_UNIDAD : Integer read GetOldIMPORTE_UNIDADValue;
property OldIMPORTE_TOTAL : Integer read GetOldIMPORTE_TOTALValue;
property OldDESCUENTO : Integer read GetOldDESCUENTOValue;
property OldIMPORTE_PORTE : Integer read GetOldIMPORTE_PORTEValue;
property OldVISIBLE : Integer read GetOldVISIBLEValue;
end; end;
{ TCapitulosPresupuestoBusinessProcessorRules } { TCapitulosPresupuestoBusinessProcessorRules }
@ -734,18 +756,48 @@ type
function GetOldTIPO_ARTICULOIsNull: Boolean; virtual; function GetOldTIPO_ARTICULOIsNull: Boolean; virtual;
procedure SetTIPO_ARTICULOValue(const aValue: String); virtual; procedure SetTIPO_ARTICULOValue(const aValue: String); virtual;
procedure SetTIPO_ARTICULOIsNull(const aValue: Boolean); virtual; procedure SetTIPO_ARTICULOIsNull(const aValue: Boolean); virtual;
function GetID_ARTICULOValue: Integer; virtual;
function GetID_ARTICULOIsNull: Boolean; virtual;
function GetOldID_ARTICULOValue: Integer; virtual;
function GetOldID_ARTICULOIsNull: Boolean; virtual;
procedure SetID_ARTICULOValue(const aValue: Integer); virtual;
procedure SetID_ARTICULOIsNull(const aValue: Boolean); virtual;
function GetCONCEPTOValue: String; virtual; function GetCONCEPTOValue: String; virtual;
function GetCONCEPTOIsNull: Boolean; virtual; function GetCONCEPTOIsNull: Boolean; virtual;
function GetOldCONCEPTOValue: String; virtual; function GetOldCONCEPTOValue: String; virtual;
function GetOldCONCEPTOIsNull: Boolean; virtual; function GetOldCONCEPTOIsNull: Boolean; virtual;
procedure SetCONCEPTOValue(const aValue: String); virtual; procedure SetCONCEPTOValue(const aValue: String); virtual;
procedure SetCONCEPTOIsNull(const aValue: Boolean); virtual; procedure SetCONCEPTOIsNull(const aValue: Boolean); virtual;
function GetCANTIDADValue: Integer; virtual;
function GetCANTIDADIsNull: Boolean; virtual;
function GetOldCANTIDADValue: Integer; virtual;
function GetOldCANTIDADIsNull: Boolean; virtual;
procedure SetCANTIDADValue(const aValue: Integer); virtual;
procedure SetCANTIDADIsNull(const aValue: Boolean); virtual;
function GetIMPORTE_UNIDADValue: Integer; virtual;
function GetIMPORTE_UNIDADIsNull: Boolean; virtual;
function GetOldIMPORTE_UNIDADValue: Integer; virtual;
function GetOldIMPORTE_UNIDADIsNull: Boolean; virtual;
procedure SetIMPORTE_UNIDADValue(const aValue: Integer); virtual;
procedure SetIMPORTE_UNIDADIsNull(const aValue: Boolean); virtual;
function GetIMPORTE_TOTALValue: Integer; virtual;
function GetIMPORTE_TOTALIsNull: Boolean; virtual;
function GetOldIMPORTE_TOTALValue: Integer; virtual;
function GetOldIMPORTE_TOTALIsNull: Boolean; virtual;
procedure SetIMPORTE_TOTALValue(const aValue: Integer); virtual;
procedure SetIMPORTE_TOTALIsNull(const aValue: Boolean); virtual;
function GetDESCUENTOValue: Integer; virtual;
function GetDESCUENTOIsNull: Boolean; virtual;
function GetOldDESCUENTOValue: Integer; virtual;
function GetOldDESCUENTOIsNull: Boolean; virtual;
procedure SetDESCUENTOValue(const aValue: Integer); virtual;
procedure SetDESCUENTOIsNull(const aValue: Boolean); virtual;
function GetIMPORTE_PORTEValue: Integer; virtual;
function GetIMPORTE_PORTEIsNull: Boolean; virtual;
function GetOldIMPORTE_PORTEValue: Integer; virtual;
function GetOldIMPORTE_PORTEIsNull: Boolean; virtual;
procedure SetIMPORTE_PORTEValue(const aValue: Integer); virtual;
procedure SetIMPORTE_PORTEIsNull(const aValue: Boolean); virtual;
function GetVISIBLEValue: Integer; virtual;
function GetVISIBLEIsNull: Boolean; virtual;
function GetOldVISIBLEValue: Integer; virtual;
function GetOldVISIBLEIsNull: Boolean; virtual;
procedure SetVISIBLEValue(const aValue: Integer); virtual;
procedure SetVISIBLEIsNull(const aValue: Boolean); virtual;
{ Properties } { Properties }
property ID : Integer read GetIDValue write SetIDValue; property ID : Integer read GetIDValue write SetIDValue;
@ -764,14 +816,34 @@ type
property TIPO_ARTICULOIsNull : Boolean read GetTIPO_ARTICULOIsNull write SetTIPO_ARTICULOIsNull; property TIPO_ARTICULOIsNull : Boolean read GetTIPO_ARTICULOIsNull write SetTIPO_ARTICULOIsNull;
property OldTIPO_ARTICULO : String read GetOldTIPO_ARTICULOValue; property OldTIPO_ARTICULO : String read GetOldTIPO_ARTICULOValue;
property OldTIPO_ARTICULOIsNull : Boolean read GetOldTIPO_ARTICULOIsNull; property OldTIPO_ARTICULOIsNull : Boolean read GetOldTIPO_ARTICULOIsNull;
property ID_ARTICULO : Integer read GetID_ARTICULOValue write SetID_ARTICULOValue;
property ID_ARTICULOIsNull : Boolean read GetID_ARTICULOIsNull write SetID_ARTICULOIsNull;
property OldID_ARTICULO : Integer read GetOldID_ARTICULOValue;
property OldID_ARTICULOIsNull : Boolean read GetOldID_ARTICULOIsNull;
property CONCEPTO : String read GetCONCEPTOValue write SetCONCEPTOValue; property CONCEPTO : String read GetCONCEPTOValue write SetCONCEPTOValue;
property CONCEPTOIsNull : Boolean read GetCONCEPTOIsNull write SetCONCEPTOIsNull; property CONCEPTOIsNull : Boolean read GetCONCEPTOIsNull write SetCONCEPTOIsNull;
property OldCONCEPTO : String read GetOldCONCEPTOValue; property OldCONCEPTO : String read GetOldCONCEPTOValue;
property OldCONCEPTOIsNull : Boolean read GetOldCONCEPTOIsNull; property OldCONCEPTOIsNull : Boolean read GetOldCONCEPTOIsNull;
property CANTIDAD : Integer read GetCANTIDADValue write SetCANTIDADValue;
property CANTIDADIsNull : Boolean read GetCANTIDADIsNull write SetCANTIDADIsNull;
property OldCANTIDAD : Integer read GetOldCANTIDADValue;
property OldCANTIDADIsNull : Boolean read GetOldCANTIDADIsNull;
property IMPORTE_UNIDAD : Integer read GetIMPORTE_UNIDADValue write SetIMPORTE_UNIDADValue;
property IMPORTE_UNIDADIsNull : Boolean read GetIMPORTE_UNIDADIsNull write SetIMPORTE_UNIDADIsNull;
property OldIMPORTE_UNIDAD : Integer read GetOldIMPORTE_UNIDADValue;
property OldIMPORTE_UNIDADIsNull : Boolean read GetOldIMPORTE_UNIDADIsNull;
property IMPORTE_TOTAL : Integer read GetIMPORTE_TOTALValue write SetIMPORTE_TOTALValue;
property IMPORTE_TOTALIsNull : Boolean read GetIMPORTE_TOTALIsNull write SetIMPORTE_TOTALIsNull;
property OldIMPORTE_TOTAL : Integer read GetOldIMPORTE_TOTALValue;
property OldIMPORTE_TOTALIsNull : Boolean read GetOldIMPORTE_TOTALIsNull;
property DESCUENTO : Integer read GetDESCUENTOValue write SetDESCUENTOValue;
property DESCUENTOIsNull : Boolean read GetDESCUENTOIsNull write SetDESCUENTOIsNull;
property OldDESCUENTO : Integer read GetOldDESCUENTOValue;
property OldDESCUENTOIsNull : Boolean read GetOldDESCUENTOIsNull;
property IMPORTE_PORTE : Integer read GetIMPORTE_PORTEValue write SetIMPORTE_PORTEValue;
property IMPORTE_PORTEIsNull : Boolean read GetIMPORTE_PORTEIsNull write SetIMPORTE_PORTEIsNull;
property OldIMPORTE_PORTE : Integer read GetOldIMPORTE_PORTEValue;
property OldIMPORTE_PORTEIsNull : Boolean read GetOldIMPORTE_PORTEIsNull;
property VISIBLE : Integer read GetVISIBLEValue write SetVISIBLEValue;
property VISIBLEIsNull : Boolean read GetVISIBLEIsNull write SetVISIBLEIsNull;
property OldVISIBLE : Integer read GetOldVISIBLEValue;
property OldVISIBLEIsNull : Boolean read GetOldVISIBLEIsNull;
public public
constructor Create(aBusinessProcessor: TDABusinessProcessor); override; constructor Create(aBusinessProcessor: TDABusinessProcessor); override;
@ -781,12 +853,13 @@ type
{ IPresupuestosCliente_DetallesDelta } { IPresupuestosCliente_DetallesDelta }
IPresupuestosCliente_DetallesDelta = interface(IPresupuestosCliente_Detalles) IPresupuestosCliente_DetallesDelta = interface(IPresupuestosCliente_Detalles)
['{FD4CE9BE-0A53-4FB8-A820-356C4F7BACCA}'] ['{2806C346-E3D2-4415-AAF5-22F6A02D8F29}']
{ Property getters and setters } { Property getters and setters }
function GetOldIDValue : Integer; function GetOldIDValue : Integer;
function GetOldID_PRESUPUESTOValue : Integer; function GetOldID_PRESUPUESTOValue : Integer;
function GetOldPOSICIONValue : Integer; function GetOldPOSICIONValue : Integer;
function GetOldTIPO_DETALLEValue : String; function GetOldTIPO_DETALLEValue : String;
function GetOldPROPIEDADValue : String;
function GetOldCONCEPTOValue : String; function GetOldCONCEPTOValue : String;
function GetOldCANTIDADValue : Currency; function GetOldCANTIDADValue : Currency;
function GetOldIMPORTE_UNIDADValue : Currency; function GetOldIMPORTE_UNIDADValue : Currency;
@ -804,6 +877,7 @@ type
property OldID_PRESUPUESTO : Integer read GetOldID_PRESUPUESTOValue; property OldID_PRESUPUESTO : Integer read GetOldID_PRESUPUESTOValue;
property OldPOSICION : Integer read GetOldPOSICIONValue; property OldPOSICION : Integer read GetOldPOSICIONValue;
property OldTIPO_DETALLE : String read GetOldTIPO_DETALLEValue; property OldTIPO_DETALLE : String read GetOldTIPO_DETALLEValue;
property OldPROPIEDAD : String read GetOldPROPIEDADValue;
property OldCONCEPTO : String read GetOldCONCEPTOValue; property OldCONCEPTO : String read GetOldCONCEPTOValue;
property OldCANTIDAD : Currency read GetOldCANTIDADValue; property OldCANTIDAD : Currency read GetOldCANTIDADValue;
property OldIMPORTE_UNIDAD : Currency read GetOldIMPORTE_UNIDADValue; property OldIMPORTE_UNIDAD : Currency read GetOldIMPORTE_UNIDADValue;
@ -846,6 +920,12 @@ type
function GetOldTIPO_DETALLEIsNull: Boolean; virtual; function GetOldTIPO_DETALLEIsNull: Boolean; virtual;
procedure SetTIPO_DETALLEValue(const aValue: String); virtual; procedure SetTIPO_DETALLEValue(const aValue: String); virtual;
procedure SetTIPO_DETALLEIsNull(const aValue: Boolean); virtual; procedure SetTIPO_DETALLEIsNull(const aValue: Boolean); virtual;
function GetPROPIEDADValue: String; virtual;
function GetPROPIEDADIsNull: Boolean; virtual;
function GetOldPROPIEDADValue: String; virtual;
function GetOldPROPIEDADIsNull: Boolean; virtual;
procedure SetPROPIEDADValue(const aValue: String); virtual;
procedure SetPROPIEDADIsNull(const aValue: Boolean); virtual;
function GetCONCEPTOValue: String; virtual; function GetCONCEPTOValue: String; virtual;
function GetCONCEPTOIsNull: Boolean; virtual; function GetCONCEPTOIsNull: Boolean; virtual;
function GetOldCONCEPTOValue: String; virtual; function GetOldCONCEPTOValue: String; virtual;
@ -930,6 +1010,10 @@ type
property TIPO_DETALLEIsNull : Boolean read GetTIPO_DETALLEIsNull write SetTIPO_DETALLEIsNull; property TIPO_DETALLEIsNull : Boolean read GetTIPO_DETALLEIsNull write SetTIPO_DETALLEIsNull;
property OldTIPO_DETALLE : String read GetOldTIPO_DETALLEValue; property OldTIPO_DETALLE : String read GetOldTIPO_DETALLEValue;
property OldTIPO_DETALLEIsNull : Boolean read GetOldTIPO_DETALLEIsNull; property OldTIPO_DETALLEIsNull : Boolean read GetOldTIPO_DETALLEIsNull;
property PROPIEDAD : String read GetPROPIEDADValue write SetPROPIEDADValue;
property PROPIEDADIsNull : Boolean read GetPROPIEDADIsNull write SetPROPIEDADIsNull;
property OldPROPIEDAD : String read GetOldPROPIEDADValue;
property OldPROPIEDADIsNull : Boolean read GetOldPROPIEDADIsNull;
property CONCEPTO : String read GetCONCEPTOValue write SetCONCEPTOValue; property CONCEPTO : String read GetCONCEPTOValue write SetCONCEPTOValue;
property CONCEPTOIsNull : Boolean read GetCONCEPTOIsNull write SetCONCEPTOIsNull; property CONCEPTOIsNull : Boolean read GetCONCEPTOIsNull write SetCONCEPTOIsNull;
property OldCONCEPTO : String read GetOldCONCEPTOValue; property OldCONCEPTO : String read GetOldCONCEPTOValue;
@ -1028,35 +1112,66 @@ begin
BusinessProcessor.CurrentChange.NewValueByName[fld_ValoresID] := Null; BusinessProcessor.CurrentChange.NewValueByName[fld_ValoresID] := Null;
end; end;
function TValoresBusinessProcessorRules.GetID_PROPIEDADValue: Integer; function TValoresBusinessProcessorRules.GetID_EMPRESAValue: Integer;
begin begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_ValoresID_PROPIEDAD]; result := BusinessProcessor.CurrentChange.NewValueByName[fld_ValoresID_EMPRESA];
end; end;
function TValoresBusinessProcessorRules.GetID_PROPIEDADIsNull: Boolean; function TValoresBusinessProcessorRules.GetID_EMPRESAIsNull: Boolean;
begin begin
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_ValoresID_PROPIEDAD]); result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_ValoresID_EMPRESA]);
end; end;
function TValoresBusinessProcessorRules.GetOldID_PROPIEDADValue: Integer; function TValoresBusinessProcessorRules.GetOldID_EMPRESAValue: Integer;
begin begin
result := BusinessProcessor.CurrentChange.OldValueByName[fld_ValoresID_PROPIEDAD]; result := BusinessProcessor.CurrentChange.OldValueByName[fld_ValoresID_EMPRESA];
end; end;
function TValoresBusinessProcessorRules.GetOldID_PROPIEDADIsNull: Boolean; function TValoresBusinessProcessorRules.GetOldID_EMPRESAIsNull: Boolean;
begin begin
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_ValoresID_PROPIEDAD]); result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_ValoresID_EMPRESA]);
end; end;
procedure TValoresBusinessProcessorRules.SetID_PROPIEDADValue(const aValue: Integer); procedure TValoresBusinessProcessorRules.SetID_EMPRESAValue(const aValue: Integer);
begin begin
BusinessProcessor.CurrentChange.NewValueByName[fld_ValoresID_PROPIEDAD] := aValue; BusinessProcessor.CurrentChange.NewValueByName[fld_ValoresID_EMPRESA] := aValue;
end; end;
procedure TValoresBusinessProcessorRules.SetID_PROPIEDADIsNull(const aValue: Boolean); procedure TValoresBusinessProcessorRules.SetID_EMPRESAIsNull(const aValue: Boolean);
begin begin
if aValue then if aValue then
BusinessProcessor.CurrentChange.NewValueByName[fld_ValoresID_PROPIEDAD] := Null; BusinessProcessor.CurrentChange.NewValueByName[fld_ValoresID_EMPRESA] := Null;
end;
function TValoresBusinessProcessorRules.GetREFERENCIAValue: String;
begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_ValoresREFERENCIA];
end;
function TValoresBusinessProcessorRules.GetREFERENCIAIsNull: Boolean;
begin
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_ValoresREFERENCIA]);
end;
function TValoresBusinessProcessorRules.GetOldREFERENCIAValue: String;
begin
result := BusinessProcessor.CurrentChange.OldValueByName[fld_ValoresREFERENCIA];
end;
function TValoresBusinessProcessorRules.GetOldREFERENCIAIsNull: Boolean;
begin
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_ValoresREFERENCIA]);
end;
procedure TValoresBusinessProcessorRules.SetREFERENCIAValue(const aValue: String);
begin
BusinessProcessor.CurrentChange.NewValueByName[fld_ValoresREFERENCIA] := aValue;
end;
procedure TValoresBusinessProcessorRules.SetREFERENCIAIsNull(const aValue: Boolean);
begin
if aValue then
BusinessProcessor.CurrentChange.NewValueByName[fld_ValoresREFERENCIA] := Null;
end; end;
function TValoresBusinessProcessorRules.GetDESCRIPCIONValue: String; function TValoresBusinessProcessorRules.GetDESCRIPCIONValue: String;
@ -1090,6 +1205,37 @@ begin
BusinessProcessor.CurrentChange.NewValueByName[fld_ValoresDESCRIPCION] := Null; BusinessProcessor.CurrentChange.NewValueByName[fld_ValoresDESCRIPCION] := Null;
end; end;
function TValoresBusinessProcessorRules.GetFAMILIAValue: String;
begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_ValoresFAMILIA];
end;
function TValoresBusinessProcessorRules.GetFAMILIAIsNull: Boolean;
begin
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_ValoresFAMILIA]);
end;
function TValoresBusinessProcessorRules.GetOldFAMILIAValue: String;
begin
result := BusinessProcessor.CurrentChange.OldValueByName[fld_ValoresFAMILIA];
end;
function TValoresBusinessProcessorRules.GetOldFAMILIAIsNull: Boolean;
begin
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_ValoresFAMILIA]);
end;
procedure TValoresBusinessProcessorRules.SetFAMILIAValue(const aValue: String);
begin
BusinessProcessor.CurrentChange.NewValueByName[fld_ValoresFAMILIA] := aValue;
end;
procedure TValoresBusinessProcessorRules.SetFAMILIAIsNull(const aValue: Boolean);
begin
if aValue then
BusinessProcessor.CurrentChange.NewValueByName[fld_ValoresFAMILIA] := Null;
end;
{ TPropiedadesBusinessProcessorRules } { TPropiedadesBusinessProcessorRules }
constructor TPropiedadesBusinessProcessorRules.Create(aBusinessProcessor: TDABusinessProcessor); constructor TPropiedadesBusinessProcessorRules.Create(aBusinessProcessor: TDABusinessProcessor);
@ -1164,37 +1310,6 @@ begin
BusinessProcessor.CurrentChange.NewValueByName[fld_PropiedadesDESCRIPCION] := Null; BusinessProcessor.CurrentChange.NewValueByName[fld_PropiedadesDESCRIPCION] := Null;
end; end;
function TPropiedadesBusinessProcessorRules.GetID_PROPIEDAD_VALORESValue: Integer;
begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_PropiedadesID_PROPIEDAD_VALORES];
end;
function TPropiedadesBusinessProcessorRules.GetID_PROPIEDAD_VALORESIsNull: Boolean;
begin
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_PropiedadesID_PROPIEDAD_VALORES]);
end;
function TPropiedadesBusinessProcessorRules.GetOldID_PROPIEDAD_VALORESValue: Integer;
begin
result := BusinessProcessor.CurrentChange.OldValueByName[fld_PropiedadesID_PROPIEDAD_VALORES];
end;
function TPropiedadesBusinessProcessorRules.GetOldID_PROPIEDAD_VALORESIsNull: Boolean;
begin
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_PropiedadesID_PROPIEDAD_VALORES]);
end;
procedure TPropiedadesBusinessProcessorRules.SetID_PROPIEDAD_VALORESValue(const aValue: Integer);
begin
BusinessProcessor.CurrentChange.NewValueByName[fld_PropiedadesID_PROPIEDAD_VALORES] := aValue;
end;
procedure TPropiedadesBusinessProcessorRules.SetID_PROPIEDAD_VALORESIsNull(const aValue: Boolean);
begin
if aValue then
BusinessProcessor.CurrentChange.NewValueByName[fld_PropiedadesID_PROPIEDAD_VALORES] := Null;
end;
{ TListaAnosPresupuestosBusinessProcessorRules } { TListaAnosPresupuestosBusinessProcessorRules }
constructor TListaAnosPresupuestosBusinessProcessorRules.Create(aBusinessProcessor: TDABusinessProcessor); constructor TListaAnosPresupuestosBusinessProcessorRules.Create(aBusinessProcessor: TDABusinessProcessor);
@ -2683,37 +2798,6 @@ begin
BusinessProcessor.CurrentChange.NewValueByName[fld_CapitulosPresupuestoTIPO_ARTICULO] := Null; BusinessProcessor.CurrentChange.NewValueByName[fld_CapitulosPresupuestoTIPO_ARTICULO] := Null;
end; end;
function TCapitulosPresupuestoBusinessProcessorRules.GetID_ARTICULOValue: Integer;
begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_CapitulosPresupuestoID_ARTICULO];
end;
function TCapitulosPresupuestoBusinessProcessorRules.GetID_ARTICULOIsNull: Boolean;
begin
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_CapitulosPresupuestoID_ARTICULO]);
end;
function TCapitulosPresupuestoBusinessProcessorRules.GetOldID_ARTICULOValue: Integer;
begin
result := BusinessProcessor.CurrentChange.OldValueByName[fld_CapitulosPresupuestoID_ARTICULO];
end;
function TCapitulosPresupuestoBusinessProcessorRules.GetOldID_ARTICULOIsNull: Boolean;
begin
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_CapitulosPresupuestoID_ARTICULO]);
end;
procedure TCapitulosPresupuestoBusinessProcessorRules.SetID_ARTICULOValue(const aValue: Integer);
begin
BusinessProcessor.CurrentChange.NewValueByName[fld_CapitulosPresupuestoID_ARTICULO] := aValue;
end;
procedure TCapitulosPresupuestoBusinessProcessorRules.SetID_ARTICULOIsNull(const aValue: Boolean);
begin
if aValue then
BusinessProcessor.CurrentChange.NewValueByName[fld_CapitulosPresupuestoID_ARTICULO] := Null;
end;
function TCapitulosPresupuestoBusinessProcessorRules.GetCONCEPTOValue: String; function TCapitulosPresupuestoBusinessProcessorRules.GetCONCEPTOValue: String;
begin begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_CapitulosPresupuestoCONCEPTO]; result := BusinessProcessor.CurrentChange.NewValueByName[fld_CapitulosPresupuestoCONCEPTO];
@ -2745,6 +2829,192 @@ begin
BusinessProcessor.CurrentChange.NewValueByName[fld_CapitulosPresupuestoCONCEPTO] := Null; BusinessProcessor.CurrentChange.NewValueByName[fld_CapitulosPresupuestoCONCEPTO] := Null;
end; end;
function TCapitulosPresupuestoBusinessProcessorRules.GetCANTIDADValue: Integer;
begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_CapitulosPresupuestoCANTIDAD];
end;
function TCapitulosPresupuestoBusinessProcessorRules.GetCANTIDADIsNull: Boolean;
begin
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_CapitulosPresupuestoCANTIDAD]);
end;
function TCapitulosPresupuestoBusinessProcessorRules.GetOldCANTIDADValue: Integer;
begin
result := BusinessProcessor.CurrentChange.OldValueByName[fld_CapitulosPresupuestoCANTIDAD];
end;
function TCapitulosPresupuestoBusinessProcessorRules.GetOldCANTIDADIsNull: Boolean;
begin
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_CapitulosPresupuestoCANTIDAD]);
end;
procedure TCapitulosPresupuestoBusinessProcessorRules.SetCANTIDADValue(const aValue: Integer);
begin
BusinessProcessor.CurrentChange.NewValueByName[fld_CapitulosPresupuestoCANTIDAD] := aValue;
end;
procedure TCapitulosPresupuestoBusinessProcessorRules.SetCANTIDADIsNull(const aValue: Boolean);
begin
if aValue then
BusinessProcessor.CurrentChange.NewValueByName[fld_CapitulosPresupuestoCANTIDAD] := Null;
end;
function TCapitulosPresupuestoBusinessProcessorRules.GetIMPORTE_UNIDADValue: Integer;
begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_CapitulosPresupuestoIMPORTE_UNIDAD];
end;
function TCapitulosPresupuestoBusinessProcessorRules.GetIMPORTE_UNIDADIsNull: Boolean;
begin
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_CapitulosPresupuestoIMPORTE_UNIDAD]);
end;
function TCapitulosPresupuestoBusinessProcessorRules.GetOldIMPORTE_UNIDADValue: Integer;
begin
result := BusinessProcessor.CurrentChange.OldValueByName[fld_CapitulosPresupuestoIMPORTE_UNIDAD];
end;
function TCapitulosPresupuestoBusinessProcessorRules.GetOldIMPORTE_UNIDADIsNull: Boolean;
begin
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_CapitulosPresupuestoIMPORTE_UNIDAD]);
end;
procedure TCapitulosPresupuestoBusinessProcessorRules.SetIMPORTE_UNIDADValue(const aValue: Integer);
begin
BusinessProcessor.CurrentChange.NewValueByName[fld_CapitulosPresupuestoIMPORTE_UNIDAD] := aValue;
end;
procedure TCapitulosPresupuestoBusinessProcessorRules.SetIMPORTE_UNIDADIsNull(const aValue: Boolean);
begin
if aValue then
BusinessProcessor.CurrentChange.NewValueByName[fld_CapitulosPresupuestoIMPORTE_UNIDAD] := Null;
end;
function TCapitulosPresupuestoBusinessProcessorRules.GetIMPORTE_TOTALValue: Integer;
begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_CapitulosPresupuestoIMPORTE_TOTAL];
end;
function TCapitulosPresupuestoBusinessProcessorRules.GetIMPORTE_TOTALIsNull: Boolean;
begin
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_CapitulosPresupuestoIMPORTE_TOTAL]);
end;
function TCapitulosPresupuestoBusinessProcessorRules.GetOldIMPORTE_TOTALValue: Integer;
begin
result := BusinessProcessor.CurrentChange.OldValueByName[fld_CapitulosPresupuestoIMPORTE_TOTAL];
end;
function TCapitulosPresupuestoBusinessProcessorRules.GetOldIMPORTE_TOTALIsNull: Boolean;
begin
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_CapitulosPresupuestoIMPORTE_TOTAL]);
end;
procedure TCapitulosPresupuestoBusinessProcessorRules.SetIMPORTE_TOTALValue(const aValue: Integer);
begin
BusinessProcessor.CurrentChange.NewValueByName[fld_CapitulosPresupuestoIMPORTE_TOTAL] := aValue;
end;
procedure TCapitulosPresupuestoBusinessProcessorRules.SetIMPORTE_TOTALIsNull(const aValue: Boolean);
begin
if aValue then
BusinessProcessor.CurrentChange.NewValueByName[fld_CapitulosPresupuestoIMPORTE_TOTAL] := Null;
end;
function TCapitulosPresupuestoBusinessProcessorRules.GetDESCUENTOValue: Integer;
begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_CapitulosPresupuestoDESCUENTO];
end;
function TCapitulosPresupuestoBusinessProcessorRules.GetDESCUENTOIsNull: Boolean;
begin
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_CapitulosPresupuestoDESCUENTO]);
end;
function TCapitulosPresupuestoBusinessProcessorRules.GetOldDESCUENTOValue: Integer;
begin
result := BusinessProcessor.CurrentChange.OldValueByName[fld_CapitulosPresupuestoDESCUENTO];
end;
function TCapitulosPresupuestoBusinessProcessorRules.GetOldDESCUENTOIsNull: Boolean;
begin
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_CapitulosPresupuestoDESCUENTO]);
end;
procedure TCapitulosPresupuestoBusinessProcessorRules.SetDESCUENTOValue(const aValue: Integer);
begin
BusinessProcessor.CurrentChange.NewValueByName[fld_CapitulosPresupuestoDESCUENTO] := aValue;
end;
procedure TCapitulosPresupuestoBusinessProcessorRules.SetDESCUENTOIsNull(const aValue: Boolean);
begin
if aValue then
BusinessProcessor.CurrentChange.NewValueByName[fld_CapitulosPresupuestoDESCUENTO] := Null;
end;
function TCapitulosPresupuestoBusinessProcessorRules.GetIMPORTE_PORTEValue: Integer;
begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_CapitulosPresupuestoIMPORTE_PORTE];
end;
function TCapitulosPresupuestoBusinessProcessorRules.GetIMPORTE_PORTEIsNull: Boolean;
begin
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_CapitulosPresupuestoIMPORTE_PORTE]);
end;
function TCapitulosPresupuestoBusinessProcessorRules.GetOldIMPORTE_PORTEValue: Integer;
begin
result := BusinessProcessor.CurrentChange.OldValueByName[fld_CapitulosPresupuestoIMPORTE_PORTE];
end;
function TCapitulosPresupuestoBusinessProcessorRules.GetOldIMPORTE_PORTEIsNull: Boolean;
begin
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_CapitulosPresupuestoIMPORTE_PORTE]);
end;
procedure TCapitulosPresupuestoBusinessProcessorRules.SetIMPORTE_PORTEValue(const aValue: Integer);
begin
BusinessProcessor.CurrentChange.NewValueByName[fld_CapitulosPresupuestoIMPORTE_PORTE] := aValue;
end;
procedure TCapitulosPresupuestoBusinessProcessorRules.SetIMPORTE_PORTEIsNull(const aValue: Boolean);
begin
if aValue then
BusinessProcessor.CurrentChange.NewValueByName[fld_CapitulosPresupuestoIMPORTE_PORTE] := Null;
end;
function TCapitulosPresupuestoBusinessProcessorRules.GetVISIBLEValue: Integer;
begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_CapitulosPresupuestoVISIBLE];
end;
function TCapitulosPresupuestoBusinessProcessorRules.GetVISIBLEIsNull: Boolean;
begin
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_CapitulosPresupuestoVISIBLE]);
end;
function TCapitulosPresupuestoBusinessProcessorRules.GetOldVISIBLEValue: Integer;
begin
result := BusinessProcessor.CurrentChange.OldValueByName[fld_CapitulosPresupuestoVISIBLE];
end;
function TCapitulosPresupuestoBusinessProcessorRules.GetOldVISIBLEIsNull: Boolean;
begin
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_CapitulosPresupuestoVISIBLE]);
end;
procedure TCapitulosPresupuestoBusinessProcessorRules.SetVISIBLEValue(const aValue: Integer);
begin
BusinessProcessor.CurrentChange.NewValueByName[fld_CapitulosPresupuestoVISIBLE] := aValue;
end;
procedure TCapitulosPresupuestoBusinessProcessorRules.SetVISIBLEIsNull(const aValue: Boolean);
begin
if aValue then
BusinessProcessor.CurrentChange.NewValueByName[fld_CapitulosPresupuestoVISIBLE] := Null;
end;
{ TPresupuestosCliente_DetallesBusinessProcessorRules } { TPresupuestosCliente_DetallesBusinessProcessorRules }
constructor TPresupuestosCliente_DetallesBusinessProcessorRules.Create(aBusinessProcessor: TDABusinessProcessor); constructor TPresupuestosCliente_DetallesBusinessProcessorRules.Create(aBusinessProcessor: TDABusinessProcessor);
@ -2881,6 +3151,37 @@ begin
BusinessProcessor.CurrentChange.NewValueByName[fld_PresupuestosCliente_DetallesTIPO_DETALLE] := Null; BusinessProcessor.CurrentChange.NewValueByName[fld_PresupuestosCliente_DetallesTIPO_DETALLE] := Null;
end; end;
function TPresupuestosCliente_DetallesBusinessProcessorRules.GetPROPIEDADValue: String;
begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_PresupuestosCliente_DetallesPROPIEDAD];
end;
function TPresupuestosCliente_DetallesBusinessProcessorRules.GetPROPIEDADIsNull: Boolean;
begin
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_PresupuestosCliente_DetallesPROPIEDAD]);
end;
function TPresupuestosCliente_DetallesBusinessProcessorRules.GetOldPROPIEDADValue: String;
begin
result := BusinessProcessor.CurrentChange.OldValueByName[fld_PresupuestosCliente_DetallesPROPIEDAD];
end;
function TPresupuestosCliente_DetallesBusinessProcessorRules.GetOldPROPIEDADIsNull: Boolean;
begin
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_PresupuestosCliente_DetallesPROPIEDAD]);
end;
procedure TPresupuestosCliente_DetallesBusinessProcessorRules.SetPROPIEDADValue(const aValue: String);
begin
BusinessProcessor.CurrentChange.NewValueByName[fld_PresupuestosCliente_DetallesPROPIEDAD] := aValue;
end;
procedure TPresupuestosCliente_DetallesBusinessProcessorRules.SetPROPIEDADIsNull(const aValue: Boolean);
begin
if aValue then
BusinessProcessor.CurrentChange.NewValueByName[fld_PresupuestosCliente_DetallesPROPIEDAD] := Null;
end;
function TPresupuestosCliente_DetallesBusinessProcessorRules.GetCONCEPTOValue: String; function TPresupuestosCliente_DetallesBusinessProcessorRules.GetCONCEPTOValue: String;
begin begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_PresupuestosCliente_DetallesCONCEPTO]; result := BusinessProcessor.CurrentChange.NewValueByName[fld_PresupuestosCliente_DetallesCONCEPTO];

36
Source/Modulos/Presupuestos de cliente/Model/uBizDetallesPresupuestoCliente.pas
View File

@ -18,6 +18,7 @@ const
TIPO_CAPITULO_E = 'E'; //ELECTRODOMÉSTICOS TIPO_CAPITULO_E = 'E'; //ELECTRODOMÉSTICOS
TIPO_CAPITULO_V = 'V'; //VARIOS TIPO_CAPITULO_V = 'V'; //VARIOS
TIPO_CAPITULO_C_VACIO = 'CV'; //COCINAVACIO TIPO_CAPITULO_C_VACIO = 'CV'; //COCINAVACIO
TIPO_CAPITULO_O = 'O'; //OBRA
type type
IBizValores = interface(IValores) IBizValores = interface(IValores)
@ -33,6 +34,9 @@ type
IBizCapitulo = interface(ICapitulosPresupuesto) IBizCapitulo = interface(ICapitulosPresupuesto)
['{FE35D755-7781-441F-960C-98F847A5039E}'] ['{FE35D755-7781-441F-960C-98F847A5039E}']
function GetTipo: String;
procedure SetTipo(Value: String);
property Tipo: String read GetTipo write SetTipo;
end; end;
IBizDetallesPresupuestoCliente = interface(IPresupuestosCliente_Detalles) IBizDetallesPresupuestoCliente = interface(IPresupuestosCliente_Detalles)
@ -58,6 +62,14 @@ type
end; end;
TBizCapitulo = class(TCapitulosPresupuestoDataTableRules, IBizCapitulo) TBizCapitulo = class(TCapitulosPresupuestoDataTableRules, IBizCapitulo)
protected
FTipo : String;
function GetTipo: String;
procedure SetTipo(Value: String);
procedure OnNewRecord(Sender: TDADataTable); override;
public
property Tipo: String read GetTipo write SetTipo;
constructor Create(aDataTable: TDADataTable); override;
end; end;
TBizDetallesPresupuestoCliente = class(TPresupuestosCliente_DetallesDataTableRules, IBizDetallesPresupuestoCliente) TBizDetallesPresupuestoCliente = class(TPresupuestosCliente_DetallesDataTableRules, IBizDetallesPresupuestoCliente)
@ -119,6 +131,30 @@ begin
EnlazarMaestroDetalle(FValoresLink, FValores); EnlazarMaestroDetalle(FValoresLink, FValores);
end; end;
{ TBizCapitulo }
constructor TBizCapitulo.Create(aDataTable: TDADataTable);
begin
inherited;
FTipo := TIPO_CAPITULO_V;
end;
function TBizCapitulo.GetTipo: String;
begin
Result := FTipo;
end;
procedure TBizCapitulo.OnNewRecord(Sender: TDADataTable);
begin
inherited;
TIPO_ARTICULO := FTipo;
end;
procedure TBizCapitulo.SetTipo(Value: String);
begin
FTipo := Value;
end;
initialization initialization
RegisterDataTableRules(BIZ_CLIENT_DETALLES_PRESUPUESTO_CLIENTE, TBizDetallesPresupuestoCliente); RegisterDataTableRules(BIZ_CLIENT_DETALLES_PRESUPUESTO_CLIENTE, TBizDetallesPresupuestoCliente);
RegisterDataTableRules(BIZ_CLIENT_PROPIEDADES, TBizPropiedades); RegisterDataTableRules(BIZ_CLIENT_PROPIEDADES, TBizPropiedades);

452
Source/Modulos/Presupuestos de cliente/Servidor/srvPresupuestosCliente_Impl.dfm
View File

@ -18,54 +18,11 @@ object srvPresupuestosCliente: TsrvPresupuestosCliente
Connection = 'IBX' Connection = 'IBX'
ConnectionType = 'Interbase' ConnectionType = 'Interbase'
Default = True Default = True
TargetTable = 'PRESUPUESTOS_VALORES' TargetTable = 'ARTICULOS'
Name = 'IBX'
StatementType = stAutoSQL
ColumnMappings = <
item
DatasetField = 'ID'
TableField = 'ID'
end
item
DatasetField = 'ID_PROPIEDAD'
TableField = 'ID_PROPIEDAD'
end
item
DatasetField = 'DESCRIPCION'
TableField = 'DESCRIPCION'
end>
end>
Name = 'Valores'
Fields = <
item
Name = 'ID'
DataType = datInteger
Required = True
InPrimaryKey = True
end
item
Name = 'ID_PROPIEDAD'
DataType = datInteger
end
item
Name = 'DESCRIPCION'
DataType = datString
Size = 2000
end>
end
item
Params = <>
Statements = <
item
Connection = 'IBX'
ConnectionType = 'Interbase'
Default = True
TargetTable = 'PRESUPUESTOS_PROPIEDADES'
Name = 'IBX' Name = 'IBX'
SQL = SQL =
'select ID,'#10' DESCRIPCION,'#10' case WHEN ID_PADRE IS NULL' + 'SELECT'#10' ID, ID_EMPRESA, REFERENCIA, DESCRIPCION, FAMILIA'#10#10' F' +
' THEN ID'#10' ELSE ID_PADRE'#10' end AS ID_PROPIEDAD_VA' + 'ROM'#10' ARTICULOS'#10' WHERE ELIMINADO = 0 and {Where}'#10
'LORES'#10#10'from presupuestos_propiedades'#10#10'WHERE {Where}'#10
StatementType = stSQL StatementType = stSQL
ColumnMappings = < ColumnMappings = <
item item
@ -77,9 +34,65 @@ object srvPresupuestosCliente: TsrvPresupuestosCliente
TableField = 'DESCRIPCION' TableField = 'DESCRIPCION'
end end
item item
DatasetField = 'ID_PROPIEDAD_VALORES' DatasetField = 'ID_EMPRESA'
TableField = '<unknown>' TableField = 'ID_EMPRESA'
SQLOrigin = 'ID_PROPIEDAD_VALORES' end
item
DatasetField = 'REFERENCIA'
TableField = 'REFERENCIA'
end
item
DatasetField = 'FAMILIA'
TableField = 'FAMILIA'
end>
end>
Name = 'Valores'
Fields = <
item
Name = 'ID'
DataType = datInteger
Required = True
InPrimaryKey = True
end
item
Name = 'ID_EMPRESA'
DataType = datInteger
end
item
Name = 'REFERENCIA'
DataType = datString
Size = 255
end
item
Name = 'DESCRIPCION'
DataType = datString
Size = 255
end
item
Name = 'FAMILIA'
DataType = datString
Size = 255
end>
end
item
Params = <>
Statements = <
item
Connection = 'IBX'
ConnectionType = 'Interbase'
Default = True
TargetTable = 'FAMILIAS'
Name = 'IBX'
SQL = 'select ID,'#10' DESCRIPCION'#10#10'from familias'#10#10'WHERE {Where}'#10
StatementType = stSQL
ColumnMappings = <
item
DatasetField = 'ID'
TableField = 'ID'
end
item
DatasetField = 'DESCRIPCION'
TableField = 'DESCRIPCION'
end> end>
end> end>
Name = 'Propiedades' Name = 'Propiedades'
@ -93,11 +106,7 @@ object srvPresupuestosCliente: TsrvPresupuestosCliente
item item
Name = 'DESCRIPCION' Name = 'DESCRIPCION'
DataType = datString DataType = datString
Size = 50 Size = 255
end
item
Name = 'ID_PROPIEDAD_VALORES'
DataType = datInteger
end> end>
end end
item item
@ -517,7 +526,13 @@ object srvPresupuestosCliente: TsrvPresupuestosCliente
Default = True Default = True
TargetTable = 'PRESUPUESTOS_CLIENTE_CAPITULOS' TargetTable = 'PRESUPUESTOS_CLIENTE_CAPITULOS'
Name = 'IBX' Name = 'IBX'
StatementType = stAutoSQL SQL =
'SELECT'#10' ID, POSICION, TIPO_DETALLE, TIPO_ARTICULO, CONCEPTO,'#10 +
' 1 as CANTIDAD, 0 as IMPORTE_UNIDAD, 0 as IMPORTE_TOTAL, 0 as' +
' DESCUENTO,'#10' 0 as IMPORTE_PORTE,'#10' 1 as VISIBLE'#10' FROM'#10' ' +
'PRESUPUESTOS_CLIENTE_CAPITULOS'#10' WHERE {Where}'#10' order by posici' +
'on'#10
StatementType = stSQL
ColumnMappings = < ColumnMappings = <
item item
DatasetField = 'ID' DatasetField = 'ID'
@ -535,45 +550,102 @@ object srvPresupuestosCliente: TsrvPresupuestosCliente
DatasetField = 'TIPO_ARTICULO' DatasetField = 'TIPO_ARTICULO'
TableField = 'TIPO_ARTICULO' TableField = 'TIPO_ARTICULO'
end end
item
DatasetField = 'ID_ARTICULO'
TableField = 'ID_ARTICULO'
end
item item
DatasetField = 'CONCEPTO' DatasetField = 'CONCEPTO'
TableField = 'CONCEPTO' TableField = 'CONCEPTO'
end
item
DatasetField = 'CANTIDAD'
TableField = '<unknown>'
SQLOrigin = 'CANTIDAD'
end
item
DatasetField = 'IMPORTE_UNIDAD'
TableField = '<unknown>'
SQLOrigin = 'IMPORTE_UNIDAD'
end
item
DatasetField = 'IMPORTE_TOTAL'
TableField = '<unknown>'
SQLOrigin = 'IMPORTE_TOTAL'
end
item
DatasetField = 'DESCUENTO'
TableField = '<unknown>'
SQLOrigin = 'DESCUENTO'
end
item
DatasetField = 'IMPORTE_PORTE'
TableField = '<unknown>'
SQLOrigin = 'IMPORTE_PORTE'
end
item
DatasetField = 'VISIBLE'
TableField = '<unknown>'
SQLOrigin = 'VISIBLE'
end> end>
end> end>
Name = 'CapitulosPresupuesto' Name = 'CapitulosPresupuesto'
Fields = < Fields = <
item item
Name = 'ID' Name = 'ID'
DataType = datInteger DataType = datAutoInc
Required = True GeneratorName = 'GEN_PRESUPUESTOS_CLIENTE_CAPITU'
DictionaryEntry = 'CapitulosPresupuesto_ID'
InPrimaryKey = True InPrimaryKey = True
end end
item item
Name = 'POSICION' Name = 'POSICION'
DataType = datInteger DataType = datInteger
DictionaryEntry = 'CapitulosPresupuesto_POSICION'
end end
item item
Name = 'TIPO_DETALLE' Name = 'TIPO_DETALLE'
DataType = datString DataType = datString
Size = 10 Size = 10
DictionaryEntry = 'CapitulosPresupuesto_TIPO_DETALLE'
end end
item item
Name = 'TIPO_ARTICULO' Name = 'TIPO_ARTICULO'
DataType = datString DataType = datString
Size = 2 Size = 2
end DictionaryEntry = 'CapitulosPresupuesto_TIPO_ARTICULO'
item
Name = 'ID_ARTICULO'
DataType = datInteger
end end
item item
Name = 'CONCEPTO' Name = 'CONCEPTO'
DataType = datString DataType = datString
Size = 2000 Size = 255
DictionaryEntry = 'CapitulosPresupuesto_CONCEPTO'
end
item
Name = 'CANTIDAD'
DataType = datInteger
DictionaryEntry = 'CapitulosPresupuesto_CANTIDAD'
end
item
Name = 'IMPORTE_UNIDAD'
DataType = datInteger
DictionaryEntry = 'CapitulosPresupuesto_IMPORTE_UNIDAD'
end
item
Name = 'IMPORTE_TOTAL'
DataType = datInteger
DictionaryEntry = 'CapitulosPresupuesto_IMPORTE_TOTAL'
end
item
Name = 'DESCUENTO'
DataType = datInteger
DictionaryEntry = 'CapitulosPresupuesto_DESCUENTO'
end
item
Name = 'IMPORTE_PORTE'
DataType = datInteger
DictionaryEntry = 'CapitulosPresupuesto_IMPORTE_PORTE'
end
item
Name = 'VISIBLE'
DataType = datInteger
DictionaryEntry = 'CapitulosPresupuesto_VISIBLE'
end> end>
end end
item item
@ -587,18 +659,18 @@ object srvPresupuestosCliente: TsrvPresupuestosCliente
'SELECT'#10' PRESUPUESTOS_CLIENTE_DETALLES.ID, PRESUPUESTOS_CLIENT' + 'SELECT'#10' PRESUPUESTOS_CLIENTE_DETALLES.ID, PRESUPUESTOS_CLIENT' +
'E_DETALLES.ID_PRESUPUESTO,'#10' PRESUPUESTOS_CLIENTE_DETALLES.POS' + 'E_DETALLES.ID_PRESUPUESTO,'#10' PRESUPUESTOS_CLIENTE_DETALLES.POS' +
'ICION, PRESUPUESTOS_CLIENTE_DETALLES.TIPO_DETALLE,'#10' PRESUPUES' + 'ICION, PRESUPUESTOS_CLIENTE_DETALLES.TIPO_DETALLE,'#10' PRESUPUES' +
'TOS_CLIENTE_DETALLES.CONCEPTO, PRESUPUESTOS_CLIENTE_DETALLES.CAN' + 'TOS_CLIENTE_DETALLES.PROPIEDAD, PRESUPUESTOS_CLIENTE_DETALLES.CO' +
'TIDAD,'#10' PRESUPUESTOS_CLIENTE_DETALLES.IMPORTE_UNIDAD, PRESUPU' + 'NCEPTO, PRESUPUESTOS_CLIENTE_DETALLES.CANTIDAD,'#10' PRESUPUESTOS' +
'ESTOS_CLIENTE_DETALLES.IMPORTE_TOTAL,'#10' PRESUPUESTOS_CLIENTE_D' + '_CLIENTE_DETALLES.IMPORTE_UNIDAD, PRESUPUESTOS_CLIENTE_DETALLES.' +
'ETALLES.VISIBLE,'#10#10' PRESUPUESTOS_CLIENTE_DETALLES.ID_ARTICULO,' + 'IMPORTE_TOTAL,'#10' PRESUPUESTOS_CLIENTE_DETALLES.VISIBLE,'#10#10' P' +
' PRESUPUESTOS_CLIENTE_DETALLES.TIPO_ARTICULO,'#10' PRESUPUESTOS_C' + 'RESUPUESTOS_CLIENTE_DETALLES.ID_ARTICULO, PRESUPUESTOS_CLIENTE_D' +
'LIENTE_DETALLES.DESCUENTO,'#10' PRESUPUESTOS_CLIENTE_DETALLES.IMP' + 'ETALLES.TIPO_ARTICULO,'#10' PRESUPUESTOS_CLIENTE_DETALLES.DESCUEN' +
'ORTE_PORTE, ARTICULOS.REFERENCIA,'#10' '#39#39' as REFERENCIA_PROVEEDOR' + 'TO,'#10' PRESUPUESTOS_CLIENTE_DETALLES.IMPORTE_PORTE, ARTICULOS.R' +
' /*Es necesario para que no fallen los detalles porque los detal' + 'EFERENCIA,'#10' '#39#39' as REFERENCIA_PROVEEDOR /*Es necesario para qu' +
'les son comunes para la rama de cliente y de proveedor*/'#10#10'FROM P' + 'e no fallen los detalles porque los detalles son comunes para la' +
'RESUPUESTOS_CLIENTE_DETALLES'#10'LEFT JOIN ARTICULOS ON PRESUPUESTOS' + ' rama de cliente y de proveedor*/'#10#10'FROM PRESUPUESTOS_CLIENTE_DET' +
'_CLIENTE_DETALLES.ID_ARTICULO = ARTICULOS.ID'#10'where {where}'#10'ORDER' + 'ALLES'#10'LEFT JOIN ARTICULOS ON PRESUPUESTOS_CLIENTE_DETALLES.ID_AR' +
' BY POSICION;'#10#10#10 'TICULO = ARTICULOS.ID'#10'where {where}'#10'ORDER BY POSICION;'#10#10#10
StatementType = stSQL StatementType = stSQL
ColumnMappings = < ColumnMappings = <
item item
@ -662,6 +734,10 @@ object srvPresupuestosCliente: TsrvPresupuestosCliente
DatasetField = 'REFERENCIA_PROVEEDOR' DatasetField = 'REFERENCIA_PROVEEDOR'
TableField = '<unknown>' TableField = '<unknown>'
SQLOrigin = 'REFERENCIA_PROVEEDOR' SQLOrigin = 'REFERENCIA_PROVEEDOR'
end
item
DatasetField = 'PROPIEDAD'
TableField = 'PROPIEDAD'
end> end>
end> end>
Name = 'PresupuestosCliente_Detalles' Name = 'PresupuestosCliente_Detalles'
@ -685,6 +761,11 @@ object srvPresupuestosCliente: TsrvPresupuestosCliente
DataType = datString DataType = datString
Size = 10 Size = 10
end end
item
Name = 'PROPIEDAD'
DataType = datString
Size = 255
end
item item
Name = 'CONCEPTO' Name = 'CONCEPTO'
DataType = datString DataType = datString
@ -1189,6 +1270,12 @@ object srvPresupuestosCliente: TsrvPresupuestosCliente
Size = 10 Size = 10
Value = '' Value = ''
end end
item
Name = 'PROPIEDAD'
DataType = datString
Size = 255
Value = ''
end
item item
Name = 'CONCEPTO' Name = 'CONCEPTO'
DataType = datString DataType = datString
@ -1243,12 +1330,13 @@ object srvPresupuestosCliente: TsrvPresupuestosCliente
TargetTable = 'PRESUPUESTOS_CLIENTE_DETALLES' TargetTable = 'PRESUPUESTOS_CLIENTE_DETALLES'
SQL = SQL =
'INSERT'#10' INTO PRESUPUESTOS_CLIENTE_DETALLES'#10' (ID, ID_PRESUPUE' + 'INSERT'#10' INTO PRESUPUESTOS_CLIENTE_DETALLES'#10' (ID, ID_PRESUPUE' +
'STO, POSICION, TIPO_DETALLE, CONCEPTO, CANTIDAD,'#10' IMPORTE_UN' + 'STO, POSICION, TIPO_DETALLE, PROPIEDAD, CONCEPTO, CANTIDAD,'#10' ' +
'IDAD, IMPORTE_TOTAL, VISIBLE, ID_ARTICULO, TIPO_ARTICULO,'#10' D' + ' IMPORTE_UNIDAD, IMPORTE_TOTAL, VISIBLE, ID_ARTICULO, TIPO_ARTIC' +
'ESCUENTO, IMPORTE_PORTE, FECHA_ALTA)'#10' VALUES'#10' (:ID, :ID_PRES' + 'ULO,'#10' DESCUENTO, IMPORTE_PORTE, FECHA_ALTA)'#10' VALUES'#10' (:I' +
'UPUESTO, :POSICION, :TIPO_DETALLE, :CONCEPTO,'#10' :CANTIDAD, :I' + 'D, :ID_PRESUPUESTO, :POSICION, :TIPO_DETALLE, :PROPIEDAD, :CONCE' +
'MPORTE_UNIDAD, :IMPORTE_TOTAL, :VISIBLE,'#10' :ID_ARTICULO, :TIP' + 'PTO,'#10' :CANTIDAD, :IMPORTE_UNIDAD, :IMPORTE_TOTAL, :VISIBLE,'#10 +
'O_ARTICULO, :DESCUENTO, :IMPORTE_PORTE, CURRENT_TIMESTAMP)'#10 ' :ID_ARTICULO, :TIPO_ARTICULO, :DESCUENTO, :IMPORTE_PORTE, C' +
'URRENT_TIMESTAMP)'#10
StatementType = stSQL StatementType = stSQL
ColumnMappings = <> ColumnMappings = <>
end> end>
@ -1297,6 +1385,12 @@ object srvPresupuestosCliente: TsrvPresupuestosCliente
Size = 10 Size = 10
Value = '' Value = ''
end end
item
Name = 'PROPIEDAD'
DataType = datString
Size = 255
Value = ''
end
item item
Name = 'CONCEPTO' Name = 'CONCEPTO'
DataType = datString DataType = datString
@ -1356,25 +1450,136 @@ object srvPresupuestosCliente: TsrvPresupuestosCliente
SQL = SQL =
'UPDATE PRESUPUESTOS_CLIENTE_DETALLES'#10' SET '#10' ID = :ID,'#10' ID' + 'UPDATE PRESUPUESTOS_CLIENTE_DETALLES'#10' SET '#10' ID = :ID,'#10' ID' +
'_PRESUPUESTO = :ID_PRESUPUESTO, '#10' POSICION = :POSICION, '#10' ' + '_PRESUPUESTO = :ID_PRESUPUESTO, '#10' POSICION = :POSICION, '#10' ' +
'TIPO_DETALLE = :TIPO_DETALLE, '#10' CONCEPTO = :CONCEPTO, '#10' CA' + 'TIPO_DETALLE = :TIPO_DETALLE, '#10' PROPIEDAD = :PROPIEDAD,'#10' C' +
'NTIDAD = :CANTIDAD, '#10' IMPORTE_UNIDAD = :IMPORTE_UNIDAD,'#10' I' + 'ONCEPTO = :CONCEPTO, '#10' CANTIDAD = :CANTIDAD, '#10' IMPORTE_UNI' +
'MPORTE_TOTAL = :IMPORTE_TOTAL, '#10' VISIBLE = :VISIBLE, '#10' ID_' + 'DAD = :IMPORTE_UNIDAD,'#10' IMPORTE_TOTAL = :IMPORTE_TOTAL, '#10' ' +
'ARTICULO = :ID_ARTICULO, '#10' TIPO_ARTICULO = :TIPO_ARTICULO,'#10' ' + 'VISIBLE = :VISIBLE, '#10' ID_ARTICULO = :ID_ARTICULO, '#10' TIPO_A' +
' DESCUENTO = :DESCUENTO, '#10' IMPORTE_PORTE = :IMPORTE_PORTE,'#10' ' + 'RTICULO = :TIPO_ARTICULO,'#10' DESCUENTO = :DESCUENTO, '#10' IMPOR' +
' FECHA_MODIFICACION = CURRENT_TIMESTAMP'#10' WHERE'#10' (ID = :OLD' + 'TE_PORTE = :IMPORTE_PORTE,'#10' FECHA_MODIFICACION = CURRENT_TIME' +
'_ID)'#10 'STAMP'#10' WHERE'#10' (ID = :OLD_ID)'#10
StatementType = stSQL StatementType = stSQL
ColumnMappings = <> ColumnMappings = <>
end> end>
Name = 'Update_PresupuestosCliente_Detalles' Name = 'Update_PresupuestosCliente_Detalles'
end
item
Params = <
item
Name = 'ID'
DataType = datAutoInc
GeneratorName = 'GEN_PRESUPUESTOS_CLIENTE_CAPITU'
Value = ''
end
item
Name = 'POSICION'
DataType = datInteger
Value = ''
end
item
Name = 'TIPO_DETALLE'
DataType = datString
Size = 10
Value = ''
end
item
Name = 'TIPO_ARTICULO'
DataType = datString
Size = 2
Value = ''
end
item
Name = 'CONCEPTO'
DataType = datString
Size = 255
Value = ''
end>
Statements = <
item
Connection = 'IBX'
ConnectionType = 'Interbase'
Default = True
TargetTable = 'PRESUPUESTOS_CLIENTE_CAPITULOS'
SQL =
'INSERT'#10' INTO PRESUPUESTOS_CLIENTE_CAPITULOS'#10' (ID, POSICION, ' +
'TIPO_DETALLE, TIPO_ARTICULO, CONCEPTO)'#10' VALUES'#10' (:ID, :POSIC' +
'ION, :TIPO_DETALLE, :TIPO_ARTICULO, :CONCEPTO)'#10
StatementType = stSQL
ColumnMappings = <>
end>
Name = 'Insert_CapitulosPresupuesto'
end
item
Params = <
item
Name = 'OLD_ID'
DataType = datAutoInc
Value = ''
end>
Statements = <
item
Connection = 'IBX'
ConnectionType = 'Interbase'
Default = True
TargetTable = 'PRESUPUESTOS_CLIENTE_CAPITULOS'
SQL =
'DELETE '#10' FROM'#10' PRESUPUESTOS_CLIENTE_CAPITULOS'#10' WHERE'#10' (I' +
'D = :OLD_ID)'
StatementType = stSQL
ColumnMappings = <>
end>
Name = 'Delete_CapitulosPresupuesto'
end
item
Params = <
item
Name = 'POSICION'
DataType = datInteger
Value = ''
end
item
Name = 'TIPO_DETALLE'
DataType = datString
Size = 10
Value = ''
end
item
Name = 'TIPO_ARTICULO'
DataType = datString
Size = 2
Value = ''
end
item
Name = 'CONCEPTO'
DataType = datString
Size = 255
Value = ''
end
item
Name = 'OLD_ID'
Value = ''
end>
Statements = <
item
Connection = 'IBX'
ConnectionType = 'Interbase'
Default = True
TargetTable = 'PRESUPUESTOS_CLIENTE_CAPITULOS'
SQL =
'UPDATE PRESUPUESTOS_CLIENTE_CAPITULOS'#10' SET'#10' POSICION = :POSI' +
'CION,'#10' TIPO_DETALLE = :TIPO_DETALLE,'#10' TIPO_ARTICULO = :TIP' +
'O_ARTICULO,'#10' CONCEPTO = :CONCEPTO'#10' WHERE'#10' (ID = :OLD_ID)'#10
StatementType = stSQL
ColumnMappings = <>
end>
Name = 'Update_CapitulosPresupuesto'
end> end>
RelationShips = < RelationShips = <
item item
Name = 'FK_Propiedades_Valores' Name = 'FK_Propiedades_Valores'
MasterDatasetName = 'Propiedades' MasterDatasetName = 'Propiedades'
MasterFields = 'ID_PROPIEDAD_VALORES' MasterFields = 'DESCRIPCION'
DetailDatasetName = 'Valores' DetailDatasetName = 'Valores'
DetailFields = 'ID_PROPIEDAD' DetailFields = 'FAMILIA'
RelationshipType = rtForeignKey RelationshipType = rtForeignKey
end end
item item
@ -1685,6 +1890,56 @@ object srvPresupuestosCliente: TsrvPresupuestosCliente
DataType = datString DataType = datString
Size = 255 Size = 255
DisplayLabel = 'Tipo' DisplayLabel = 'Tipo'
end
item
Name = 'CapitulosPresupuesto_ID'
DataType = datAutoInc
GeneratorName = 'GEN_PRESUPUESTOS_CLIENTE_CAPITU'
Required = True
DisplayLabel = 'ID'
end
item
Name = 'CapitulosPresupuesto_POSICION'
DataType = datInteger
end
item
Name = 'CapitulosPresupuesto_TIPO_DETALLE'
DataType = datString
Size = 10
end
item
Name = 'CapitulosPresupuesto_TIPO_ARTICULO'
DataType = datString
Size = 2
end
item
Name = 'CapitulosPresupuesto_CONCEPTO'
DataType = datString
Size = 255
end
item
Name = 'CapitulosPresupuesto_CANTIDAD'
DataType = datInteger
end
item
Name = 'CapitulosPresupuesto_IMPORTE_UNIDAD'
DataType = datInteger
end
item
Name = 'CapitulosPresupuesto_IMPORTE_TOTAL'
DataType = datInteger
end
item
Name = 'CapitulosPresupuesto_DESCUENTO'
DataType = datInteger
end
item
Name = 'CapitulosPresupuesto_IMPORTE_PORTE'
DataType = datInteger
end
item
Name = 'CapitulosPresupuesto_VISIBLE'
DataType = datInteger
end> end>
Left = 48 Left = 48
Top = 152 Top = 152
@ -1715,4 +1970,15 @@ object srvPresupuestosCliente: TsrvPresupuestosCliente
Left = 232 Left = 232
Top = 96 Top = 96
end end
object bpCapitulosPresupuesto: TDABusinessProcessor
Schema = schPresupuestosCliente
InsertCommandName = 'Insert_CapitulosPresupuesto'
DeleteCommandName = 'Delete_CapitulosPresupuesto'
UpdateCommandName = 'Update_CapitulosPresupuesto'
ReferencedDataset = 'CapitulosPresupuesto'
ProcessorOptions = [poAutoGenerateRefreshDataset, poPrepareCommands]
UpdateMode = updWhereKeyOnly
Left = 232
Top = 168
end
end end

1
Source/Modulos/Presupuestos de cliente/Servidor/srvPresupuestosCliente_Impl.pas
View File

@ -24,6 +24,7 @@ type
Bin2DataStreamer: TDABin2DataStreamer; Bin2DataStreamer: TDABin2DataStreamer;
bpPresupuestosCliente: TDABusinessProcessor; bpPresupuestosCliente: TDABusinessProcessor;
bpPresupuestosClienteDetalles: TDABusinessProcessor; bpPresupuestosClienteDetalles: TDABusinessProcessor;
bpCapitulosPresupuesto: TDABusinessProcessor;
schPresupuestosCliente: TDASchema; schPresupuestosCliente: TDASchema;
DADataDictionary: TDADataDictionary; DADataDictionary: TDADataDictionary;
procedure DataAbstractServiceBeforeAcquireConnection(aSender: TObject; procedure DataAbstractServiceBeforeAcquireConnection(aSender: TObject;

21
Source/Modulos/Presupuestos de cliente/Views/PresupuestosCliente_view.dpk
View File

@ -52,7 +52,22 @@ requires
cxEditorsD11, cxEditorsD11,
cxDataD11, cxDataD11,
cxExtEditorsD11, cxExtEditorsD11,
ApplicationBase; ApplicationBase,
PngComponentsD10,
PNG_D10,
vclactnband,
tb2k_d10,
tbx_d10,
DataAbstract_Core_D11,
dsnap,
adortl,
RemObjects_Core_D11,
cxGridD11,
cxPageControlD11,
cxExportD11,
GUISDK_D11R,
designide,
xmlrtl;
contains contains
uPresupuestosClienteViewRegister in 'uPresupuestosClienteViewRegister.pas', uPresupuestosClienteViewRegister in 'uPresupuestosClienteViewRegister.pas',
@ -75,6 +90,8 @@ contains
uViewConfiguracionDocBano in 'uViewConfiguracionDocBano.pas' {frViewConfiguracionDocBano: TFrame}, uViewConfiguracionDocBano in 'uViewConfiguracionDocBano.pas' {frViewConfiguracionDocBano: TFrame},
uViewConfiguracionDocCocina in 'uViewConfiguracionDocCocina.pas' {frViewConfiguracionDocCocina: TFrame}, uViewConfiguracionDocCocina in 'uViewConfiguracionDocCocina.pas' {frViewConfiguracionDocCocina: TFrame},
uViewConfiguracionDocElectrodomestico in 'uViewConfiguracionDocElectrodomestico.pas' {frViewConfiguracionDocElectrodomestico: TFrame}, uViewConfiguracionDocElectrodomestico in 'uViewConfiguracionDocElectrodomestico.pas' {frViewConfiguracionDocElectrodomestico: TFrame},
uViewConfiguracionDocVarios in 'uViewConfiguracionDocVarios.pas' {frViewConfiguracionDocVarios: TFrame}; uViewConfiguracionDocVarios in 'uViewConfiguracionDocVarios.pas' {frViewConfiguracionDocVarios: TFrame},
uViewConfiguracionCapitulo in 'uViewConfiguracionCapitulo.pas' {frViewConfiguracionCapitulo: TFrame},
uViewConfiguracionDocObra in 'uViewConfiguracionDocObra.pas' {frViewConfiguracionDocObra: TFrame};
end. end.

79
Source/Modulos/Presupuestos de cliente/Views/PresupuestosCliente_view.dproj
View File

@ -49,34 +49,43 @@
<DelphiCompile Include="PresupuestosCliente_view.dpk"> <DelphiCompile Include="PresupuestosCliente_view.dpk">
<MainSource>MainSource</MainSource> <MainSource>MainSource</MainSource>
</DelphiCompile> </DelphiCompile>
<DCCReference Include="..\ApplicationBase.dcp" /> <DCCReference Include="adortl.dcp" />
<DCCReference Include="..\Articulos_view.dcp" /> <DCCReference Include="ApplicationBase.dcp" />
<DCCReference Include="..\Base.dcp" /> <DCCReference Include="Articulos_view.dcp" />
<DCCReference Include="..\cxDataD11.dcp" /> <DCCReference Include="Base.dcp" />
<DCCReference Include="..\cxEditorsD11.dcp" /> <DCCReference Include="cxDataD11.dcp" />
<DCCReference Include="..\cxExtEditorsD11.dcp" /> <DCCReference Include="cxEditorsD11.dcp" />
<DCCReference Include="..\cxLibraryD11.dcp" /> <DCCReference Include="cxExportD11.dcp" />
<DCCReference Include="..\dbrtl.dcp" /> <DCCReference Include="cxExtEditorsD11.dcp" />
<DCCReference Include="..\dxCoreD11.dcp" /> <DCCReference Include="cxGridD11.dcp" />
<DCCReference Include="..\dxGDIPlusD11.dcp" /> <DCCReference Include="cxLibraryD11.dcp" />
<DCCReference Include="..\dxThemeD11.dcp" /> <DCCReference Include="cxPageControlD11.dcp" />
<DCCReference Include="..\GestorInformes_controller.dcp" /> <DCCReference Include="DataAbstract_Core_D11.dcp" />
<DCCReference Include="..\GUIBase.dcp" /> <DCCReference Include="dbrtl.dcp" />
<DCCReference Include="..\Jcl.dcp" /> <DCCReference Include="designide.dcp" />
<DCCReference Include="..\JclVcl.dcp" /> <DCCReference Include="dsnap.dcp" />
<DCCReference Include="..\JvCoreD11R.dcp" /> <DCCReference Include="dxCoreD11.dcp" />
<DCCReference Include="..\JvCtrlsD11R.dcp" /> <DCCReference Include="dxGDIPlusD11.dcp" />
<DCCReference Include="..\JvMMD11R.dcp" /> <DCCReference Include="dxThemeD11.dcp" />
<DCCReference Include="..\JvStdCtrlsD11R.dcp" /> <DCCReference Include="GestorInformes_controller.dcp" />
<DCCReference Include="..\JvSystemD11R.dcp" /> <DCCReference Include="GUIBase.dcp" />
<DCCReference Include="..\PreCli_ConCli_relation.dcp" /> <DCCReference Include="GUISDK_D11R.dcp" />
<DCCReference Include="..\PresupuestosCliente_controller.dcp" /> <DCCReference Include="Jcl.dcp" />
<DCCReference Include="..\PresupuestosCliente_model.dcp" /> <DCCReference Include="JclVcl.dcp" />
<DCCReference Include="..\rtl.dcp" /> <DCCReference Include="JvCoreD11R.dcp" />
<DCCReference Include="..\vcl.dcp" /> <DCCReference Include="JvCtrlsD11R.dcp" />
<DCCReference Include="..\vcldb.dcp" /> <DCCReference Include="JvMMD11R.dcp" />
<DCCReference Include="..\vcljpg.dcp" /> <DCCReference Include="JvStdCtrlsD11R.dcp" />
<DCCReference Include="..\vclx.dcp" /> <DCCReference Include="JvSystemD11R.dcp" />
<DCCReference Include="PngComponentsD10.dcp" />
<DCCReference Include="PNG_D10.dcp" />
<DCCReference Include="PreCli_ConCli_relation.dcp" />
<DCCReference Include="PresupuestosCliente_controller.dcp" />
<DCCReference Include="PresupuestosCliente_model.dcp" />
<DCCReference Include="RemObjects_Core_D11.dcp" />
<DCCReference Include="rtl.dcp" />
<DCCReference Include="tb2k_d10.dcp" />
<DCCReference Include="tbx_d10.dcp" />
<DCCReference Include="uEditorAsignarDescuento.pas"> <DCCReference Include="uEditorAsignarDescuento.pas">
<Form>fEditorAsignarDescuento</Form> <Form>fEditorAsignarDescuento</Form>
</DCCReference> </DCCReference>
@ -104,6 +113,10 @@
<DesignClass>TfEditorPedidosClientePreview</DesignClass> <DesignClass>TfEditorPedidosClientePreview</DesignClass>
</DCCReference> </DCCReference>
<DCCReference Include="uPresupuestosClienteViewRegister.pas" /> <DCCReference Include="uPresupuestosClienteViewRegister.pas" />
<DCCReference Include="uViewConfiguracionCapitulo.pas">
<Form>frViewConfiguracionCapitulo</Form>
<DesignClass>TFrame</DesignClass>
</DCCReference>
<DCCReference Include="uViewConfiguracionDocArmario.pas"> <DCCReference Include="uViewConfiguracionDocArmario.pas">
<Form>frViewConfiguracionDocArmario</Form> <Form>frViewConfiguracionDocArmario</Form>
<DesignClass>TFrame</DesignClass> <DesignClass>TFrame</DesignClass>
@ -120,6 +133,10 @@
<Form>frViewConfiguracionDocElectrodomestico</Form> <Form>frViewConfiguracionDocElectrodomestico</Form>
<DesignClass>TFrame</DesignClass> <DesignClass>TFrame</DesignClass>
</DCCReference> </DCCReference>
<DCCReference Include="uViewConfiguracionDocObra.pas">
<Form>frViewConfiguracionCapitulo</Form>
<DesignClass>TFrame</DesignClass>
</DCCReference>
<DCCReference Include="uViewConfiguracionDocVarios.pas"> <DCCReference Include="uViewConfiguracionDocVarios.pas">
<Form>frViewConfiguracionDocVarios</Form> <Form>frViewConfiguracionDocVarios</Form>
<DesignClass>TFrame</DesignClass> <DesignClass>TFrame</DesignClass>
@ -156,6 +173,12 @@
<Form>frViewTotalesPresupuesto</Form> <Form>frViewTotalesPresupuesto</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="vclx.dcp" />
<DCCReference Include="xmlrtl.dcp" />
</ItemGroup> </ItemGroup>
</Project> </Project>
<!-- EurekaLog First Line <!-- EurekaLog First Line

42
Source/Modulos/Presupuestos de cliente/Views/uEditorPresupuestoCliente.dfm
View File

@ -177,6 +177,7 @@ inherited fEditorPresupuestoCliente: TfEditorPresupuestoCliente
inherited pgPaginas: TPageControl inherited pgPaginas: TPageControl
Width = 842 Width = 842
Height = 317 Height = 317
ActivePage = pagContenido
TabOrder = 1 TabOrder = 1
OnChanging = pgPaginasChanging OnChanging = pgPaginasChanging
ExplicitWidth = 842 ExplicitWidth = 842
@ -292,6 +293,8 @@ inherited fEditorPresupuestoCliente: TfEditorPresupuestoCliente
ExplicitTop = 50 ExplicitTop = 50
ExplicitWidth = 834 ExplicitWidth = 834
ExplicitHeight = 239 ExplicitHeight = 239
inherited cxGridView: TcxGridDBTableView
end
end end
inherited TBXDock1: TTBXDock inherited TBXDock1: TTBXDock
Top = 24 Top = 24
@ -308,6 +311,9 @@ inherited fEditorPresupuestoCliente: TfEditorPresupuestoCliente
inherited cxRichEdit1: TcxRichEdit inherited cxRichEdit1: TcxRichEdit
Style.IsFontAssigned = True Style.IsFontAssigned = True
end end
inherited cxLookupComboBox2: TcxLookupComboBox
Style.IsFontAssigned = True
end
end end
end end
object pagInicidencias: TTabSheet object pagInicidencias: TTabSheet
@ -449,10 +455,10 @@ inherited fEditorPresupuestoCliente: TfEditorPresupuestoCliente
end end
inherited ImporteTotal: TcxDBCurrencyEdit inherited ImporteTotal: TcxDBCurrencyEdit
Left = 465 Left = 465
Top = 162 Top = 189
Style.IsFontAssigned = True Style.IsFontAssigned = True
ExplicitLeft = 465 ExplicitLeft = 465
ExplicitTop = 162 ExplicitTop = 189
ExplicitWidth = 137 ExplicitWidth = 137
Width = 137 Width = 137
end end
@ -478,6 +484,13 @@ inherited fEditorPresupuestoCliente: TfEditorPresupuestoCliente
Width = 92 Width = 92
end end
inherited edtRE: TcxDBSpinEdit inherited edtRE: TcxDBSpinEdit
Left = 464
Top = 162
Style.IsFontAssigned = True
ExplicitLeft = 464
ExplicitTop = 162
end
inherited edtIRPF: TcxDBSpinEdit
Left = 464 Left = 464
Top = 135 Top = 135
Style.IsFontAssigned = True Style.IsFontAssigned = True
@ -485,6 +498,15 @@ inherited fEditorPresupuestoCliente: TfEditorPresupuestoCliente
ExplicitTop = 135 ExplicitTop = 135
end end
inherited ImporteRE: TcxDBCurrencyEdit inherited ImporteRE: TcxDBCurrencyEdit
Left = 535
Top = 162
Style.IsFontAssigned = True
ExplicitLeft = 535
ExplicitTop = 162
ExplicitWidth = 56
Width = 56
end
inherited ImporteIRPF: TcxDBCurrencyEdit
Left = 535 Left = 535
Top = 135 Top = 135
Style.IsFontAssigned = True Style.IsFontAssigned = True
@ -513,6 +535,14 @@ inherited fEditorPresupuestoCliente: TfEditorPresupuestoCliente
ExplicitWidth = 81 ExplicitWidth = 81
Width = 81 Width = 81
end end
inherited cbValorado: TcxDBCheckBox
Left = 11
Top = 11
ExplicitLeft = 11
ExplicitTop = 11
ExplicitWidth = 455
Width = 455
end
inherited bTiposIVA: TButton inherited bTiposIVA: TButton
Left = 204 Left = 204
Top = 138 Top = 138
@ -526,14 +556,6 @@ inherited fEditorPresupuestoCliente: TfEditorPresupuestoCliente
ExplicitWidth = 219 ExplicitWidth = 219
Width = 219 Width = 219
end end
inherited cbValorado: TcxDBCheckBox
Left = 11
Top = 11
ExplicitLeft = 11
ExplicitTop = 11
ExplicitWidth = 455
Width = 455
end
end end
inherited DADataSource: TDADataSource inherited DADataSource: TDADataSource
Left = 40 Left = 40

83
Source/Modulos/Presupuestos de cliente/Views/uViewConfiguracionCapitulo.dfm Normal file
View File

@ -0,0 +1,83 @@
inherited frViewConfiguracionCapitulo: TfrViewConfiguracionCapitulo
inherited cxGrid: TcxGrid
inherited cxGridView: TcxGridDBTableView
inherited cxGridViewID: TcxGridDBColumn
VisibleForCustomization = False
end
inherited cxGridViewPOSICION: TcxGridDBColumn
VisibleForCustomization = False
end
inherited cxGridViewTIPO: TcxGridDBColumn
VisibleForCustomization = False
end
inherited cxGridViewID_ARTICULO: TcxGridDBColumn
DataBinding.FieldName = 'TIPO_ARTICULO'
VisibleForCustomization = False
end
inherited cxGridViewDESCRIPCION: TcxGridDBColumn
OnGetPropertiesForEdit = cxGridViewDESCRIPCIONGetPropertiesForEdit
end
inherited cxGridViewCANTIDAD: TcxGridDBColumn
Visible = False
VisibleForCustomization = False
end
inherited cxGridViewIMPORTEUNIDAD: TcxGridDBColumn
Visible = False
VisibleForCustomization = False
end
inherited cxGridViewDESCUENTO: TcxGridDBColumn
Visible = False
VisibleForCustomization = False
end
inherited cxGridViewIMPORTENETO: TcxGridDBColumn
Visible = False
VisibleForCustomization = False
end
inherited cxGridViewIMPORTETOTAL: TcxGridDBColumn
Visible = False
VisibleForCustomization = False
end
inherited cxGridViewVISIBLE: TcxGridDBColumn
VisibleForCustomization = False
end
end
end
inherited TBXDock1: TTBXDock
inherited TBXToolbar1: TTBXToolbar
ExplicitWidth = 447
end
end
object cxLookupComboBox: TcxLookupComboBox [3]
Left = 78
Top = 280
ParentFont = False
Properties.DropDownListStyle = lsEditList
Properties.ImmediatePost = True
Properties.KeyFieldNames = 'DESCRIPCION'
Properties.ListColumns = <
item
FieldName = 'DESCRIPCION'
end>
Properties.ListOptions.ShowHeader = False
Properties.ListSource = DAPropiedades
Style.Font.Charset = DEFAULT_CHARSET
Style.Font.Color = clWindowText
Style.Font.Height = -13
Style.Font.Name = 'Lucida Console'
Style.Font.Style = []
Style.IsFontAssigned = True
TabOrder = 3
Visible = False
Width = 145
end
inherited ActionListContenido: TActionList
inherited actAnadirArticulos: TAction
Enabled = False
Visible = False
end
end
object DAPropiedades: TDADataSource
Left = 32
Top = 272
end
end

64
Source/Modulos/Presupuestos de cliente/Views/uViewConfiguracionCapitulo.pas Normal file
View File

@ -0,0 +1,64 @@
unit uViewConfiguracionCapitulo;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, uViewDetallesArticulos, cxStyles, cxCustomData, cxGraphics, cxFilter,
cxData, cxDataStorage, cxEdit, DB, cxDBData, cxImageComboBox, cxTextEdit,
cxRichEdit, cxCurrencyEdit, cxCheckBox, ImgList, PngImageList, uDAInterfaces,
uDADataTable, StdActns, ExtActns, ActnList, TB2Item, TBX, TB2Dock, TB2Toolbar,
cxGridLevel, cxGridCustomTableView, cxGridTableView, cxGridDBTableView,
cxClasses, cxControls, cxGridCustomView, cxGrid, ComCtrls, StdCtrls,
JvExStdCtrls, JvCombobox, JvColorCombo, ToolWin, cxContainer, cxMaskEdit,
cxDropDownEdit, cxLookupEdit, cxDBLookupEdit, cxDBLookupComboBox, uBizDetallesPresupuestoCliente;
type
TfrViewConfiguracionCapitulo = class(TfrViewDetallesArticulos)
cxLookupComboBox: TcxLookupComboBox;
DAPropiedades: TDADataSource;
procedure CustomViewShow(Sender: TObject);
procedure cxGridViewDESCRIPCIONGetPropertiesForEdit(
Sender: TcxCustomGridTableItem; ARecord: TcxCustomGridRecord;
var AProperties: TcxCustomEditProperties);
procedure CustomViewDestroy(Sender: TObject);
protected
FPropiedades: IBizPropiedades;
public
{ Public declarations }
end;
implementation
{$R *.dfm}
uses uDetallesPresupuestoClienteController;
procedure TfrViewConfiguracionCapitulo.CustomViewDestroy(Sender: TObject);
begin
FPropiedades := Nil;
inherited;
end;
procedure TfrViewConfiguracionCapitulo.CustomViewShow(Sender: TObject);
begin
inherited;
if not Assigned(FPropiedades) then
begin
FPropiedades := (Controller as IDetallesPresupuestoClienteController).DarPropiedades;
FPropiedades.DataTable.Active := True;
DAPropiedades.DataTable := FPropiedades.DataTable;
end;
if Assigned(Detalles) then
Detalles.Active := True;
end;
procedure TfrViewConfiguracionCapitulo.cxGridViewDESCRIPCIONGetPropertiesForEdit(
Sender: TcxCustomGridTableItem; ARecord: TcxCustomGridRecord;
var AProperties: TcxCustomEditProperties);
begin
inherited;
AProperties := cxLookupComboBox.Properties;
end;
end.

338
Source/Modulos/Presupuestos de cliente/Views/uViewConfiguracionDocArmario.dfm
View File

@ -1,52 +1,79 @@
inherited frViewConfiguracionDocArmario: TfrViewConfiguracionDocArmario inherited frViewConfiguracionDocArmario: TfrViewConfiguracionDocArmario
Width = 559 Width = 762
Height = 467 Height = 683
object Label2: TLabel [0] inherited Panel1: TPanel
Width = 752
TabOrder = 1
inherited Label3: TLabel
Width = 740
Visible = False
end
end
inherited JvGradientHeaderPanel1: TJvGradientHeaderPanel
Width = 762
LabelCaption = 'Configuraci'#243'n de los documentos de armario'
TabOrder = 0
end
object Paginas: TPageControl
Left = 0
Top = 68
Width = 762
Height = 615
ActivePage = pagNotas
Align = alClient
TabOrder = 2
ExplicitWidth = 451
ExplicitHeight = 236
object pagNotas: TTabSheet
Caption = 'Notas'
ExplicitWidth = 443
ExplicitHeight = 208
object Label1: TLabel
Left = 11 Left = 11
Top = 140 Top = 266
Width = 76
Height = 13
Caption = 'Forma de pago:'
Visible = False
end
object Label2: TLabel
Left = 11
Top = 19
Width = 90 Width = 90
Height = 13 Height = 13
Caption = 'Plazos de entrega:' Caption = 'Plazos de entrega:'
end end
object Label4: TLabel [1] object Label4: TLabel
Left = 11 Left = 11
Top = 262 Top = 141
Width = 75 Width = 75
Height = 13 Height = 13
Caption = 'Observaciones:' Caption = 'Observaciones:'
end end
object Label5: TLabel [2]
Left = 11
Top = 100
Width = 76
Height = 13
Caption = 'Forma de pago:'
end
inherited Panel1: TPanel
Width = 549
TabOrder = 2
ExplicitWidth = 530
inherited Label3: TLabel
Width = 537
end
end
inherited JvGradientHeaderPanel1: TJvGradientHeaderPanel
Width = 559
LabelCaption = 'Configuraci'#243'n de los documentos de armario'
ExplicitWidth = 540
end
object eCondiciones: TcxRichEdit
Left = 11
Top = 384
Properties.ScrollBars = ssVertical
Lines.Strings = (
'eCondiciones')
TabOrder = 0
Visible = False
Height = 57
Width = 529
end
object ePlazosEntrega: TMemo object ePlazosEntrega: TMemo
Left = 11
Top = 40
Width = 529
Height = 90
BevelInner = bvNone
BevelOuter = bvNone
Ctl3D = True
ParentCtl3D = False
ScrollBars = ssVertical
TabOrder = 0
end
object eFormaPago: TMemo
Left = 11
Top = 287
Width = 529
Height = 90
Ctl3D = True
ParentCtl3D = False
ScrollBars = ssVertical
TabOrder = 1
Visible = False
end
object eObservaciones: TMemo
Left = 11 Left = 11
Top = 161 Top = 161
Width = 529 Width = 529
@ -56,42 +83,205 @@ inherited frViewConfiguracionDocArmario: TfrViewConfiguracionDocArmario
Ctl3D = True Ctl3D = True
ParentCtl3D = False ParentCtl3D = False
ScrollBars = ssVertical ScrollBars = ssVertical
TabOrder = 3 TabOrder = 2
end end
object eObservaciones: TMemo end
Left = 11 object pagCapituloFrente: TTabSheet
Top = 282 Caption = 'Cap'#237'tulo frente'
Width = 529 ImageIndex = 1
Height = 90 ExplicitWidth = 443
BevelInner = bvNone ExplicitHeight = 208
BevelOuter = bvNone inline frViewConfiguracionCapituloFrente: TfrViewConfiguracionCapitulo
Ctl3D = True Left = 0
ParentCtl3D = False Top = 0
ScrollBars = ssVertical Width = 754
TabOrder = 4 Height = 587
end Align = alClient
object bFormasPago: TButton BiDiMode = bdLeftToRight
Left = 277 Font.Charset = DEFAULT_CHARSET
Top = 97 Font.Color = clWindowText
Width = 132 Font.Height = -11
Height = 21 Font.Name = 'Tahoma'
Caption = 'Ver las formas de pago...' Font.Style = []
TabOrder = 5 ParentBiDiMode = False
end ParentFont = False
object cbFormaPago: TcxLookupComboBox TabOrder = 0
Left = 93 ReadOnly = False
Top = 97 ExplicitWidth = 443
Properties.KeyFieldNames = 'ID' ExplicitHeight = 208
Properties.ListColumns = < inherited ToolBar1: TToolBar
item Width = 754
FieldName = 'REFERENCIA' ExplicitWidth = 754
end> inherited FontSize: TEdit
Properties.ListSource = dsFormaPago Width = 58
TabOrder = 6 ExplicitWidth = 58
Width = 178 end
end inherited UpDown1: TUpDown
object dsFormaPago: TDADataSource Left = 237
Left = 424 ExplicitLeft = 237
Top = 88 end
inherited ToolButton13: TToolButton
Left = 254
ExplicitLeft = 254
end
inherited ToolButton6: TToolButton
Left = 262
ExplicitLeft = 262
end
inherited ToolButton7: TToolButton
Left = 296
ExplicitLeft = 296
end
inherited ToolButton8: TToolButton
Left = 330
ExplicitLeft = 330
end
inherited ToolButton12: TToolButton
Left = 364
ExplicitLeft = 364
end
inherited ToolButton9: TToolButton
Left = 372
ExplicitLeft = 372
end
inherited ToolButton10: TToolButton
Left = 406
ExplicitLeft = 406
end
inherited ToolButton11: TToolButton
Left = 440
ExplicitLeft = 440
end
end
inherited cxGrid: TcxGrid
Width = 754
Height = 515
ExplicitWidth = 754
ExplicitHeight = 515
end
inherited TBXDock1: TTBXDock
Width = 754
ExplicitWidth = 754
end
inherited cxLookupComboBox: TcxLookupComboBox
Style.IsFontAssigned = True
end
end
end
object pagCapituloInterior: TTabSheet
Caption = 'Cap'#237'tulo interior'
ImageIndex = 2
ExplicitWidth = 443
ExplicitHeight = 208
inline frViewConfiguracionCapituloInterior: TfrViewConfiguracionCapitulo
Left = 0
Top = 0
Width = 754
Height = 587
Align = alClient
BiDiMode = bdLeftToRight
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'Tahoma'
Font.Style = []
ParentBiDiMode = False
ParentFont = False
TabOrder = 0
ReadOnly = False
ExplicitWidth = 443
ExplicitHeight = 208
inherited ToolBar1: TToolBar
Width = 754
ExplicitWidth = 754
inherited ToolButton4: TToolButton
Wrap = False
end
inherited ToolButton14: TToolButton
Left = 334
Top = 0
Wrap = True
ExplicitLeft = 334
ExplicitTop = 0
end
inherited FontName: TJvFontComboBox
Left = 0
ExplicitLeft = 0
end
inherited FontSize: TEdit
Left = 145
Width = 58
ExplicitLeft = 145
ExplicitWidth = 58
end
inherited UpDown1: TUpDown
Left = 219
ExplicitLeft = 219
end
inherited ToolButton13: TToolButton
Left = 236
ExplicitLeft = 236
end
inherited ToolButton6: TToolButton
Left = 244
ExplicitLeft = 244
end
inherited ToolButton7: TToolButton
Left = 278
ExplicitLeft = 278
end
inherited ToolButton8: TToolButton
Left = 312
ExplicitLeft = 312
end
inherited ToolButton12: TToolButton
Left = 346
ExplicitLeft = 346
end
inherited ToolButton9: TToolButton
Left = 354
ExplicitLeft = 354
end
inherited ToolButton10: TToolButton
Left = 388
ExplicitLeft = 388
end
inherited ToolButton11: TToolButton
Left = 422
ExplicitLeft = 422
end
end
inherited cxGrid: TcxGrid
Width = 754
Height = 515
ExplicitWidth = 754
ExplicitHeight = 515
end
inherited TBXDock1: TTBXDock
Width = 754
ExplicitWidth = 754
end
inherited cxLookupComboBox: TcxLookupComboBox
Style.IsFontAssigned = True
end
end
end
object pagCondiciones: TTabSheet
Caption = 'Condiciones'
Enabled = False
ImageIndex = 3
TabVisible = False
object eCondiciones: TcxRichEdit
Left = 0
Top = 0
Align = alClient
Properties.ScrollBars = ssVertical
Lines.Strings = (
'eCondiciones')
TabOrder = 0
Height = 587
Width = 754
end
end
end end
end end

62
Source/Modulos/Presupuestos de cliente/Views/uViewConfiguracionDocArmario.pas
View File

@ -6,31 +6,30 @@ uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, uViewConfiguracionBase, cxControls, cxContainer, cxEdit, cxTextEdit, cxMemo, Dialogs, uViewConfiguracionBase, cxControls, cxContainer, cxEdit, cxTextEdit, cxMemo,
cxRichEdit, uViewBase, JvExControls, JvGradientHeaderPanel, StdCtrls, ExtCtrls, cxRichEdit, uViewBase, JvExControls, JvGradientHeaderPanel, StdCtrls, ExtCtrls,
cxGraphics, DB, uDAInterfaces, uDADataTable, cxMaskEdit, cxDropDownEdit, ComCtrls, uCustomView, uViewDetallesBase, uViewDetallesDTO,
cxLookupEdit, cxDBLookupEdit, cxDBLookupComboBox, uFormasPagoController, uBizFormasPago; uViewDetallesArticulos, uViewConfiguracionCapitulo;
type type
TfrViewConfiguracionDocArmario = class(TfrViewConfiguracionBase) TfrViewConfiguracionDocArmario = class(TfrViewConfiguracionBase)
eCondiciones: TcxRichEdit; Paginas: TPageControl;
ePlazosEntrega: TMemo; pagNotas: TTabSheet;
eObservaciones: TMemo; Label1: TLabel;
Label2: TLabel; Label2: TLabel;
Label4: TLabel; Label4: TLabel;
bFormasPago: TButton; ePlazosEntrega: TMemo;
cbFormaPago: TcxLookupComboBox; eFormaPago: TMemo;
Label5: TLabel; eObservaciones: TMemo;
dsFormaPago: TDADataSource; pagCapituloFrente: TTabSheet;
protected frViewConfiguracionCapituloFrente: TfrViewConfiguracionCapitulo;
FFormasPago : IBizFormaPago; pagCapituloInterior: TTabSheet;
FFormasPagoController : IFormasPagoController; frViewConfiguracionCapituloInterior: TfrViewConfiguracionCapitulo;
pagCondiciones: TTabSheet;
eCondiciones: TcxRichEdit;
public public
class function GetViewClass : TClass; override; class function GetViewClass : TClass; override;
class function DarEtiqueta : String; override; class function DarEtiqueta : String; override;
procedure CargarValores; override; procedure CargarValores; override;
procedure GuardarValores; override; procedure GuardarValores; override;
constructor Create(AOwner: TComponent); override;
destructor Destroy; override;
end; end;
var var
@ -40,28 +39,27 @@ implementation
{$R *.dfm} {$R *.dfm}
{ TfrViewConfiguracionDocARMARIO } { TfrViewConfiguracionDocARMARIO }
uses uFactuGES_App, uConfiguracionController, uPresupuestosClienteController; uses uFactuGES_App, uConfiguracionController, uPresupuestosClienteController,
uBizDetallesPresupuestoCliente, uDetallesPresupuestoClienteController;
procedure TfrViewConfiguracionDocArmario.CargarValores; procedure TfrViewConfiguracionDocArmario.CargarValores;
begin begin
inherited; inherited;
FFormasPago := FFormasPagoController.BuscarTodos; eFormaPago.Lines.Clear;
dsFormaPago.DataTable := FFormasPago.DataTable; eFormaPago.Text := AppFactuGES.Configuracion.GetSettingAsString(teBD,CTE_FORMA_PAGO_ARMARIO);
dsFormaPago.DataTable.Active := True;
cbFormaPago.EditValue := AppFactuGES.Configuracion.GetSettingAsString(teBD,CTE_FORMA_PAGO_ARMARIO);
ePlazosEntrega.Lines.Clear; ePlazosEntrega.Lines.Clear;
ePlazosEntrega.Text := AppFactuGES.Configuracion.GetSettingAsString(teBD,CTE_PLAZOS_ENTREGA_ARMARIO); ePlazosEntrega.Text := AppFactuGES.Configuracion.GetSettingAsString(teBD,CTE_PLAZOS_ENTREGA_ARMARIO);
eObservaciones.Lines.Clear; eObservaciones.Lines.Clear;
eObservaciones.Text := AppFactuGES.Configuracion.GetSettingAsString(teBD,CTE_OBSERVACIONES_ARMARIO); eObservaciones.Text := AppFactuGES.Configuracion.GetSettingAsString(teBD,CTE_OBSERVACIONES_ARMARIO);
eCondiciones.Lines.Clear; eCondiciones.Lines.Clear;
eCondiciones.Text := AppFactuGES.Configuracion.GetSettingAsString(teBD,CTE_CONDICIONES_ARMARIO); eCondiciones.Text := AppFactuGES.Configuracion.GetSettingAsString(teBD,CTE_CONDICIONES_ARMARIO);
end;
constructor TfrViewConfiguracionDocArmario.Create(AOwner: TComponent); frViewConfiguracionCapituloFrente.Controller := TDetallesPresupuestoClienteController.Create;
begin frViewConfiguracionCapituloFrente.Detalles := (frViewConfiguracionCapituloFrente.Controller as IDetallesPresupuestoClienteController).BuscarCapitulo(TIPO_CAPITULO_AF);
inherited;
FFormasPagoController := TFormasPagoController.Create; frViewConfiguracionCapituloInterior.Controller := TDetallesPresupuestoClienteController.Create;
frViewConfiguracionCapituloInterior.Detalles := (frViewConfiguracionCapituloInterior.Controller as IDetallesPresupuestoClienteController).BuscarCapitulo(TIPO_CAPITULO_AI);
end; end;
class function TfrViewConfiguracionDocArmario.DarEtiqueta: String; class function TfrViewConfiguracionDocArmario.DarEtiqueta: String;
@ -69,13 +67,6 @@ begin
Result := 'Documentos armario'; Result := 'Documentos armario';
end; end;
destructor TfrViewConfiguracionDocArmario.Destroy;
begin
FFormasPago := Nil;
FFormasPagoController := NIL;
inherited;
end;
class function TfrViewConfiguracionDocArmario.GetViewClass: TClass; class function TfrViewConfiguracionDocArmario.GetViewClass: TClass;
begin begin
Result := TfrViewConfiguracionDocARMARIO; Result := TfrViewConfiguracionDocARMARIO;
@ -84,10 +75,13 @@ end;
procedure TfrViewConfiguracionDocArmario.GuardarValores; procedure TfrViewConfiguracionDocArmario.GuardarValores;
begin begin
inherited; inherited;
AppFactuGES.Configuracion.SetSettingAsString(teBD, CTE_FORMA_PAGO_ARMARIO, cbFormaPago.EditValue); AppFactuGES.Configuracion.SetSettingAsString(teBD, CTE_FORMA_PAGO_ARMARIO, eFormaPago.Text);
AppFactuGES.Configuracion.SetSettingAsString(teBD, CTE_PLAZOS_ENTREGA_ARMARIO, ePlazosEntrega.Text); AppFactuGES.Configuracion.SetSettingAsString(teBD, CTE_PLAZOS_ENTREGA_ARMARIO, ePlazosEntrega.Text);
AppFactuGES.Configuracion.SetSettingAsString(teBD, CTE_OBSERVACIONES_ARMARIO, eObservaciones.Text); AppFactuGES.Configuracion.SetSettingAsString(teBD, CTE_OBSERVACIONES_ARMARIO, eObservaciones.Text);
AppFactuGES.Configuracion.SetSettingAsString(teBD, CTE_CONDICIONES_ARMARIO, eCondiciones.Text); AppFactuGES.Configuracion.SetSettingAsString(teBD, CTE_CONDICIONES_ARMARIO, eCondiciones.Text);
frViewConfiguracionCapituloFrente.Detalles.DataTable.ApplyUpdates;
frViewConfiguracionCapituloInterior.Detalles.DataTable.ApplyUpdates;
end; end;

248
Source/Modulos/Presupuestos de cliente/Views/uViewConfiguracionDocBano.dfm
View File

@ -1,93 +1,201 @@
inherited frViewConfiguracionDocBano: TfrViewConfiguracionDocBano inherited frViewConfiguracionDocBANO: TfrViewConfiguracionDocBANO
Width = 555 Width = 676
Height = 462 Height = 622
object Label2: TLabel [0] inherited Panel1: TPanel
Width = 666
TabOrder = 1
inherited Label3: TLabel
Width = 654
Visible = False
end
end
inherited JvGradientHeaderPanel1: TJvGradientHeaderPanel
Width = 676
LabelCaption = 'Configuraci'#243'n de los documentos de ba'#241'o'
TabOrder = 0
end
object paginas: TPageControl
Left = 0
Top = 68
Width = 676
Height = 554
ActivePage = pagNotas
Align = alClient
TabOrder = 2
ExplicitWidth = 451
ExplicitHeight = 236
object pagNotas: TTabSheet
Caption = 'Notas'
ExplicitWidth = 443
ExplicitHeight = 208
object Label1: TLabel
Left = 11 Left = 11
Top = 140 Top = 262
Width = 76
Height = 13
Caption = 'Forma de pago:'
Visible = False
end
object Label2: TLabel
Left = 11
Top = 17
Width = 90 Width = 90
Height = 13 Height = 13
Caption = 'Plazos de entrega:' Caption = 'Plazos de entrega:'
end end
object Label4: TLabel [1] object Label4: TLabel
Left = 11 Left = 11
Top = 262 Top = 139
Width = 75 Width = 75
Height = 13 Height = 13
Caption = 'Observaciones:' Caption = 'Observaciones:'
end end
object Label5: TLabel [2] object ePlazosEntrega: TMemo
Left = 11 Left = 11
Top = 100 Top = 38
Width = 76 Width = 529
Height = 13 Height = 90
Caption = 'Forma de pago:' Ctl3D = True
ParentCtl3D = False
ScrollBars = ssVertical
TabOrder = 0
end end
inherited Panel1: TPanel object eFormaPago: TMemo
Width = 545 Left = 11
Top = 283
Width = 529
Height = 90
Ctl3D = True
ParentCtl3D = False
ScrollBars = ssVertical
TabOrder = 1
Visible = False
end
object eObservaciones: TMemo
Left = 11
Top = 159
Width = 529
Height = 90
Ctl3D = True
ParentCtl3D = False
ScrollBars = ssVertical
TabOrder = 2 TabOrder = 2
ExplicitWidth = 530
inherited Label3: TLabel
Width = 533
end end
end end
inherited JvGradientHeaderPanel1: TJvGradientHeaderPanel object pagCapitulo: TTabSheet
Width = 555 Caption = 'Cap'#237'tulo'
LabelCaption = 'Configuraci'#243'n de los documentos de ba'#241'o' ImageIndex = 1
ExplicitWidth = 540 ExplicitWidth = 443
ExplicitHeight = 208
inline frViewConfiguracionCapitulo: TfrViewConfiguracionCapitulo
Left = 0
Top = 0
Width = 668
Height = 526
Align = alClient
BiDiMode = bdLeftToRight
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'Tahoma'
Font.Style = []
ParentBiDiMode = False
ParentFont = False
TabOrder = 0
ReadOnly = False
ExplicitWidth = 443
ExplicitHeight = 208
inherited ToolBar1: TToolBar
Width = 668
ExplicitWidth = 668
inherited ToolButton4: TToolButton
Wrap = False
end end
inherited ToolButton14: TToolButton
Left = 334
Top = 0
Wrap = True
ExplicitLeft = 334
ExplicitTop = 0
end
inherited FontName: TJvFontComboBox
Left = 0
ExplicitLeft = 0
end
inherited FontSize: TEdit
Left = 145
Width = 58
ExplicitLeft = 145
ExplicitWidth = 58
end
inherited UpDown1: TUpDown
Left = 203
ExplicitLeft = 203
end
inherited ToolButton13: TToolButton
Left = 220
ExplicitLeft = 220
end
inherited ToolButton6: TToolButton
Left = 228
ExplicitLeft = 228
end
inherited ToolButton7: TToolButton
Left = 262
ExplicitLeft = 262
end
inherited ToolButton8: TToolButton
Left = 296
ExplicitLeft = 296
end
inherited ToolButton12: TToolButton
Left = 330
ExplicitLeft = 330
end
inherited ToolButton9: TToolButton
Left = 338
ExplicitLeft = 338
end
inherited ToolButton10: TToolButton
Left = 372
ExplicitLeft = 372
end
inherited ToolButton11: TToolButton
Left = 406
ExplicitLeft = 406
end
end
inherited cxGrid: TcxGrid
Width = 668
Height = 454
ExplicitWidth = 668
ExplicitHeight = 454
end
inherited TBXDock1: TTBXDock
Width = 668
ExplicitWidth = 668
end
inherited cxLookupComboBox: TcxLookupComboBox
Style.IsFontAssigned = True
end
end
end
object pagCondiciones: TTabSheet
Caption = 'Condiciones'
Enabled = False
ImageIndex = 2
TabVisible = False
object eCondiciones: TcxRichEdit object eCondiciones: TcxRichEdit
Left = 11 Left = 0
Top = 384 Top = 0
Align = alClient
Properties.ScrollBars = ssVertical Properties.ScrollBars = ssVertical
Lines.Strings = ( Lines.Strings = (
'eCondiciones') 'eCondiciones')
TabOrder = 0 TabOrder = 0
Visible = False Height = 526
Height = 57 Width = 668
Width = 529 end
end end
object ePlazosEntrega: TMemo
Left = 11
Top = 161
Width = 529
Height = 90
Ctl3D = True
ParentCtl3D = False
ScrollBars = ssVertical
TabOrder = 3
end
object eObservaciones: TMemo
Left = 11
Top = 282
Width = 529
Height = 90
Ctl3D = True
ParentCtl3D = False
ScrollBars = ssVertical
TabOrder = 4
end
object bFormasPago: TButton
Left = 277
Top = 97
Width = 132
Height = 21
Caption = 'Ver las formas de pago...'
TabOrder = 5
end
object cbFormaPago: TcxLookupComboBox
Left = 93
Top = 97
Properties.KeyFieldNames = 'ID'
Properties.ListColumns = <
item
FieldName = 'REFERENCIA'
end>
Properties.ListSource = dsFormaPago
TabOrder = 6
Width = 178
end
object dsFormaPago: TDADataSource
Left = 424
Top = 88
end end
end end

69
Source/Modulos/Presupuestos de cliente/Views/uViewConfiguracionDocBano.pas
View File

@ -6,88 +6,75 @@ uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, uViewConfiguracionBase, cxControls, cxContainer, cxEdit, cxTextEdit, cxMemo, Dialogs, uViewConfiguracionBase, cxControls, cxContainer, cxEdit, cxTextEdit, cxMemo,
cxRichEdit, uViewBase, JvExControls, JvGradientHeaderPanel, StdCtrls, ExtCtrls, cxRichEdit, uViewBase, JvExControls, JvGradientHeaderPanel, StdCtrls, ExtCtrls,
cxGraphics, DB, uDAInterfaces, uDADataTable, cxMaskEdit, cxDropDownEdit, ComCtrls, uCustomView, uViewDetallesBase, uViewConfiguracionCapitulo,
cxLookupEdit, cxDBLookupEdit, cxDBLookupComboBox, uFormasPagoController, uBizFormasPago; uViewDetallesDTO, uViewDetallesArticulos;
type type
TfrViewConfiguracionDocBano = class(TfrViewConfiguracionBase) TfrViewConfiguracionDocBANO = class(TfrViewConfiguracionBase)
eCondiciones: TcxRichEdit; paginas: TPageControl;
ePlazosEntrega: TMemo; pagNotas: TTabSheet;
eObservaciones: TMemo; Label1: TLabel;
Label2: TLabel; Label2: TLabel;
Label4: TLabel; Label4: TLabel;
bFormasPago: TButton; ePlazosEntrega: TMemo;
cbFormaPago: TcxLookupComboBox; eFormaPago: TMemo;
Label5: TLabel; eObservaciones: TMemo;
dsFormaPago: TDADataSource; pagCapitulo: TTabSheet;
protected frViewConfiguracionCapitulo: TfrViewConfiguracionCapitulo;
FFormasPago : IBizFormaPago; pagCondiciones: TTabSheet;
FFormasPagoController : IFormasPagoController; eCondiciones: TcxRichEdit;
public public
class function GetViewClass : TClass; override; class function GetViewClass : TClass; override;
class function DarEtiqueta : String; override; class function DarEtiqueta : String; override;
procedure CargarValores; override; procedure CargarValores; override;
procedure GuardarValores; override; procedure GuardarValores; override;
constructor Create(AOwner: TComponent); override;
destructor Destroy; override;
end; end;
var var
frViewConfiguracionDocBano: TfrViewConfiguracionDocBano; frViewConfiguracionDocBANO: TfrViewConfiguracionDocBANO;
implementation implementation
{$R *.dfm} {$R *.dfm}
{ TfrViewConfiguracionDocBANO } { TfrViewConfiguracionDocBANO }
uses uFactuGES_App, uConfiguracionController, uPresupuestosClienteController; uses uFactuGES_App, uConfiguracionController, uPresupuestosClienteController,
uBizDetallesPresupuestoCliente, uDetallesPresupuestoClienteController;
procedure TfrViewConfiguracionDocBano.CargarValores; procedure TfrViewConfiguracionDocBANO.CargarValores;
begin begin
inherited; inherited;
FFormasPago := FFormasPagoController.BuscarTodos; eFormaPago.Lines.Clear;
dsFormaPago.DataTable := FFormasPago.DataTable; eFormaPago.Text := AppFactuGES.Configuracion.GetSettingAsString(teBD,CTE_FORMA_PAGO_BANO);
dsFormaPago.DataTable.Active := True;
cbFormaPago.EditValue := AppFactuGES.Configuracion.GetSettingAsString(teBD,CTE_FORMA_PAGO_BANO);
ePlazosEntrega.Lines.Clear; ePlazosEntrega.Lines.Clear;
ePlazosEntrega.Text := AppFactuGES.Configuracion.GetSettingAsString(teBD,CTE_PLAZOS_ENTREGA_BANO); ePlazosEntrega.Text := AppFactuGES.Configuracion.GetSettingAsString(teBD,CTE_PLAZOS_ENTREGA_BANO);
eObservaciones.Lines.Clear; eObservaciones.Lines.Clear;
eObservaciones.Text := AppFactuGES.Configuracion.GetSettingAsString(teBD,CTE_OBSERVACIONES_BANO); eObservaciones.Text := AppFactuGES.Configuracion.GetSettingAsString(teBD,CTE_OBSERVACIONES_BANO);
eCondiciones.Lines.Clear; eCondiciones.Lines.Clear;
eCondiciones.Text := AppFactuGES.Configuracion.GetSettingAsString(teBD,CTE_CONDICIONES_BANO); eCondiciones.Text := AppFactuGES.Configuracion.GetSettingAsString(teBD,CTE_CONDICIONES_BANO);
frViewConfiguracionCapitulo.Controller := TDetallesPresupuestoClienteController.Create;
frViewConfiguracionCapitulo.Detalles := (frViewConfiguracionCapitulo.Controller as IDetallesPresupuestoClienteController).BuscarCapitulo(TIPO_CAPITULO_B);
end; end;
constructor TfrViewConfiguracionDocBano.Create(AOwner: TComponent); class function TfrViewConfiguracionDocBANO.DarEtiqueta: String;
begin
inherited;
FFormasPagoController := TFormasPagoController.Create;
end;
class function TfrViewConfiguracionDocBano.DarEtiqueta: String;
begin begin
Result := 'Documentos baño'; Result := 'Documentos baño';
end; end;
destructor TfrViewConfiguracionDocBano.Destroy; class function TfrViewConfiguracionDocBANO.GetViewClass: TClass;
begin
FFormasPago := Nil;
FFormasPagoController := NIL;
inherited;
end;
class function TfrViewConfiguracionDocBano.GetViewClass: TClass;
begin begin
Result := TfrViewConfiguracionDocBANO; Result := TfrViewConfiguracionDocBANO;
end; end;
procedure TfrViewConfiguracionDocBano.GuardarValores; procedure TfrViewConfiguracionDocBANO.GuardarValores;
begin begin
inherited; inherited;
AppFactuGES.Configuracion.SetSettingAsString(teBD, CTE_FORMA_PAGO_BANO, cbFormaPago.EditValue); AppFactuGES.Configuracion.SetSettingAsString(teBD, CTE_FORMA_PAGO_BANO, eFormaPago.Text);
AppFactuGES.Configuracion.SetSettingAsString(teBD, CTE_PLAZOS_ENTREGA_BANO, ePlazosEntrega.Text); AppFactuGES.Configuracion.SetSettingAsString(teBD, CTE_PLAZOS_ENTREGA_BANO, ePlazosEntrega.Text);
AppFactuGES.Configuracion.SetSettingAsString(teBD, CTE_OBSERVACIONES_BANO, eObservaciones.Text); AppFactuGES.Configuracion.SetSettingAsString(teBD, CTE_OBSERVACIONES_BANO, eObservaciones.Text);
AppFactuGES.Configuracion.SetSettingAsString(teBD, CTE_CONDICIONES_BANO, eCondiciones.Text); AppFactuGES.Configuracion.SetSettingAsString(teBD, CTE_CONDICIONES_BANO, eCondiciones.Text);
frViewConfiguracionCapitulo.Detalles.DataTable.ApplyUpdates;
end; end;

246
Source/Modulos/Presupuestos de cliente/Views/uViewConfiguracionDocCocina.dfm
View File

@ -1,93 +1,201 @@
inherited frViewConfiguracionDocCocina: TfrViewConfiguracionDocCocina inherited frViewConfiguracionDocCocina: TfrViewConfiguracionDocCocina
Width = 568 Width = 666
Height = 463 Height = 607
object Label2: TLabel [0] inherited Panel1: TPanel
Width = 656
TabOrder = 1
inherited Label3: TLabel
Width = 644
Visible = False
end
end
inherited JvGradientHeaderPanel1: TJvGradientHeaderPanel
Width = 666
LabelCaption = 'Configuraci'#243'n de los documentos de cocina'
TabOrder = 0
end
object Paginas: TPageControl
Left = 0
Top = 68
Width = 666
Height = 539
ActivePage = pagNotas
Align = alClient
TabOrder = 2
ExplicitWidth = 451
ExplicitHeight = 236
object pagNotas: TTabSheet
Caption = 'Notas'
ExplicitWidth = 443
ExplicitHeight = 208
object Label1: TLabel
Left = 11 Left = 11
Top = 140 Top = 267
Width = 76
Height = 13
Caption = 'Forma de pago:'
Visible = False
end
object Label2: TLabel
Left = 11
Top = 23
Width = 90 Width = 90
Height = 13 Height = 13
Caption = 'Plazos de entrega:' Caption = 'Plazos de entrega:'
end end
object Label4: TLabel [1] object Label4: TLabel
Left = 11 Left = 11
Top = 262 Top = 145
Width = 75 Width = 75
Height = 13 Height = 13
Caption = 'Observaciones:' Caption = 'Observaciones:'
end end
object Label5: TLabel [2] object ePlazosEntrega: TMemo
Left = 11 Left = 11
Top = 100 Top = 44
Width = 76 Width = 529
Height = 13 Height = 90
Caption = 'Forma de pago:' Ctl3D = True
ParentCtl3D = False
ScrollBars = ssVertical
TabOrder = 0
end end
inherited Panel1: TPanel object eFormaPago: TMemo
Width = 558 Left = 11
Top = 288
Width = 529
Height = 90
Ctl3D = True
ParentCtl3D = False
ScrollBars = ssVertical
TabOrder = 1
Visible = False
end
object eObservaciones: TMemo
Left = 11
Top = 165
Width = 529
Height = 90
Ctl3D = True
ParentCtl3D = False
ScrollBars = ssVertical
TabOrder = 2 TabOrder = 2
ExplicitWidth = 530
inherited Label3: TLabel
Width = 546
end end
end end
inherited JvGradientHeaderPanel1: TJvGradientHeaderPanel object pagCapitulo: TTabSheet
Width = 568 Caption = 'Cap'#237'tulo'
LabelCaption = 'Configuraci'#243'n de los documentos de cocina' ImageIndex = 1
ExplicitWidth = 540 ExplicitWidth = 443
ExplicitHeight = 208
inline frViewConfiguracionCapitulo: TfrViewConfiguracionCapitulo
Left = 0
Top = 0
Width = 658
Height = 511
Align = alClient
BiDiMode = bdLeftToRight
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'Tahoma'
Font.Style = []
ParentBiDiMode = False
ParentFont = False
TabOrder = 0
ReadOnly = False
ExplicitWidth = 443
ExplicitHeight = 208
inherited ToolBar1: TToolBar
Width = 658
ExplicitWidth = 658
inherited ToolButton4: TToolButton
Wrap = False
end end
inherited ToolButton14: TToolButton
Left = 334
Top = 0
Wrap = True
ExplicitLeft = 334
ExplicitTop = 0
end
inherited FontName: TJvFontComboBox
Left = 0
ExplicitLeft = 0
end
inherited FontSize: TEdit
Left = 145
Width = 58
ExplicitLeft = 145
ExplicitWidth = 58
end
inherited UpDown1: TUpDown
Left = 203
ExplicitLeft = 203
end
inherited ToolButton13: TToolButton
Left = 220
ExplicitLeft = 220
end
inherited ToolButton6: TToolButton
Left = 228
ExplicitLeft = 228
end
inherited ToolButton7: TToolButton
Left = 262
ExplicitLeft = 262
end
inherited ToolButton8: TToolButton
Left = 296
ExplicitLeft = 296
end
inherited ToolButton12: TToolButton
Left = 330
ExplicitLeft = 330
end
inherited ToolButton9: TToolButton
Left = 338
ExplicitLeft = 338
end
inherited ToolButton10: TToolButton
Left = 372
ExplicitLeft = 372
end
inherited ToolButton11: TToolButton
Left = 406
ExplicitLeft = 406
end
end
inherited cxGrid: TcxGrid
Width = 658
Height = 439
ExplicitWidth = 658
ExplicitHeight = 439
end
inherited TBXDock1: TTBXDock
Width = 658
ExplicitWidth = 658
end
inherited cxLookupComboBox: TcxLookupComboBox
Style.IsFontAssigned = True
end
end
end
object pagCondiciones: TTabSheet
Caption = 'Condiciones contrato'
Enabled = False
ImageIndex = 2
TabVisible = False
object eCondiciones: TcxRichEdit object eCondiciones: TcxRichEdit
Left = 11 Left = 0
Top = 384 Top = 0
Align = alClient
Properties.ScrollBars = ssVertical Properties.ScrollBars = ssVertical
Lines.Strings = ( Lines.Strings = (
'eCondiciones') 'eCondiciones')
TabOrder = 0 TabOrder = 0
Visible = False Height = 511
Height = 57 Width = 658
Width = 529 end
end end
object ePlazosEntrega: TMemo
Left = 11
Top = 161
Width = 529
Height = 90
Ctl3D = True
ParentCtl3D = False
ScrollBars = ssVertical
TabOrder = 3
end
object eObservaciones: TMemo
Left = 11
Top = 282
Width = 529
Height = 90
Ctl3D = True
ParentCtl3D = False
ScrollBars = ssVertical
TabOrder = 4
end
object bFormasPago: TButton
Left = 277
Top = 97
Width = 132
Height = 21
Caption = 'Ver las formas de pago...'
TabOrder = 5
end
object cbFormaPago: TcxLookupComboBox
Left = 93
Top = 97
Properties.KeyFieldNames = 'ID'
Properties.ListColumns = <
item
FieldName = 'REFERENCIA'
end>
Properties.ListSource = dsFormaPago
TabOrder = 6
Width = 178
end
object dsFormaPago: TDADataSource
Left = 424
Top = 88
end end
end end

58
Source/Modulos/Presupuestos de cliente/Views/uViewConfiguracionDocCocina.pas
View File

@ -6,62 +6,51 @@ uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, uViewConfiguracionBase, cxControls, cxContainer, cxEdit, cxTextEdit, cxMemo, Dialogs, uViewConfiguracionBase, cxControls, cxContainer, cxEdit, cxTextEdit, cxMemo,
cxRichEdit, uViewBase, JvExControls, JvGradientHeaderPanel, StdCtrls, ExtCtrls, cxRichEdit, uViewBase, JvExControls, JvGradientHeaderPanel, StdCtrls, ExtCtrls,
cxGraphics, DB, uDAInterfaces, uDADataTable, cxMaskEdit, cxDropDownEdit, ComCtrls, uCustomView, uViewDetallesBase, uViewDetallesDTO,
cxLookupEdit, cxDBLookupEdit, cxDBLookupComboBox, uFormasPagoController, uBizFormasPago; uViewDetallesArticulos, uViewConfiguracionCapitulo;
type type
TfrViewConfiguracionDocCocina = class(TfrViewConfiguracionBase) TfrViewConfiguracionDocCocina = class(TfrViewConfiguracionBase)
eCondiciones: TcxRichEdit; Paginas: TPageControl;
ePlazosEntrega: TMemo; pagNotas: TTabSheet;
eObservaciones: TMemo; Label1: TLabel;
Label2: TLabel; Label2: TLabel;
Label4: TLabel; Label4: TLabel;
bFormasPago: TButton; ePlazosEntrega: TMemo;
cbFormaPago: TcxLookupComboBox; eFormaPago: TMemo;
Label5: TLabel; eObservaciones: TMemo;
dsFormaPago: TDADataSource; pagCapitulo: TTabSheet;
protected frViewConfiguracionCapitulo: TfrViewConfiguracionCapitulo;
FFormasPago : IBizFormaPago; pagCondiciones: TTabSheet;
FFormasPagoController : IFormasPagoController; eCondiciones: TcxRichEdit;
public public
class function GetViewClass : TClass; override; class function GetViewClass : TClass; override;
class function DarEtiqueta : String; override; class function DarEtiqueta : String; override;
procedure CargarValores; override; procedure CargarValores; override;
procedure GuardarValores; override; procedure GuardarValores; override;
constructor Create(AOwner: TComponent); override;
destructor Destroy; override;
end; end;
var
frViewConfiguracionDocCocina: TfrViewConfiguracionDocCocina;
implementation implementation
{$R *.dfm} {$R *.dfm}
{ TfrViewConfiguracionDocCocina } { TfrViewConfiguracionDocCocina }
uses uFactuGES_App, uConfiguracionController, uPresupuestosClienteController; uses uFactuGES_App, uConfiguracionController, uPresupuestosClienteController,
uBizDetallesPresupuestoCliente, uDetallesPresupuestoClienteController;
procedure TfrViewConfiguracionDocCocina.CargarValores; procedure TfrViewConfiguracionDocCocina.CargarValores;
begin begin
inherited; inherited;
FFormasPago := FFormasPagoController.BuscarTodos; eFormaPago.Lines.Clear;
dsFormaPago.DataTable := FFormasPago.DataTable; eFormaPago.Text := AppFactuGES.Configuracion.GetSettingAsString(teBD,CTE_FORMA_PAGO_COCINA);
dsFormaPago.DataTable.Active := True;
cbFormaPago.EditValue := AppFactuGES.Configuracion.GetSettingAsString(teBD,CTE_FORMA_PAGO_COCINA);
ePlazosEntrega.Lines.Clear; ePlazosEntrega.Lines.Clear;
ePlazosEntrega.Text := AppFactuGES.Configuracion.GetSettingAsString(teBD,CTE_PLAZOS_ENTREGA_COCINA); ePlazosEntrega.Text := AppFactuGES.Configuracion.GetSettingAsString(teBD,CTE_PLAZOS_ENTREGA_COCINA);
eObservaciones.Lines.Clear; eObservaciones.Lines.Clear;
eObservaciones.Text := AppFactuGES.Configuracion.GetSettingAsString(teBD,CTE_OBSERVACIONES_COCINA); eObservaciones.Text := AppFactuGES.Configuracion.GetSettingAsString(teBD,CTE_OBSERVACIONES_COCINA);
eCondiciones.Lines.Clear; eCondiciones.Lines.Clear;
eCondiciones.Text := AppFactuGES.Configuracion.GetSettingAsString(teBD,CTE_CONDICIONES_COCINA); eCondiciones.Text := AppFactuGES.Configuracion.GetSettingAsString(teBD,CTE_CONDICIONES_COCINA);
end;
constructor TfrViewConfiguracionDocCocina.Create(AOwner: TComponent); frViewConfiguracionCapitulo.Controller := TDetallesPresupuestoClienteController.Create;
begin frViewConfiguracionCapitulo.Detalles := (frViewConfiguracionCapitulo.Controller as IDetallesPresupuestoClienteController).BuscarCapitulo(TIPO_CAPITULO_C);
inherited;
FFormasPagoController := TFormasPagoController.Create;
end; end;
class function TfrViewConfiguracionDocCocina.DarEtiqueta: String; class function TfrViewConfiguracionDocCocina.DarEtiqueta: String;
@ -69,13 +58,6 @@ begin
Result := 'Documentos cocina'; Result := 'Documentos cocina';
end; end;
destructor TfrViewConfiguracionDocCocina.Destroy;
begin
FFormasPago := Nil;
FFormasPagoController := NIL;
inherited;
end;
class function TfrViewConfiguracionDocCocina.GetViewClass: TClass; class function TfrViewConfiguracionDocCocina.GetViewClass: TClass;
begin begin
Result := TfrViewConfiguracionDocCocina; Result := TfrViewConfiguracionDocCocina;
@ -84,10 +66,12 @@ end;
procedure TfrViewConfiguracionDocCocina.GuardarValores; procedure TfrViewConfiguracionDocCocina.GuardarValores;
begin begin
inherited; inherited;
AppFactuGES.Configuracion.SetSettingAsString(teBD, CTE_FORMA_PAGO_COCINA, cbFormaPago.EditValue); AppFactuGES.Configuracion.SetSettingAsString(teBD, CTE_FORMA_PAGO_COCINA, eFormaPago.Text);
AppFactuGES.Configuracion.SetSettingAsString(teBD, CTE_PLAZOS_ENTREGA_COCINA, ePlazosEntrega.Text); AppFactuGES.Configuracion.SetSettingAsString(teBD, CTE_PLAZOS_ENTREGA_COCINA, ePlazosEntrega.Text);
AppFactuGES.Configuracion.SetSettingAsString(teBD, CTE_OBSERVACIONES_COCINA, eObservaciones.Text); AppFactuGES.Configuracion.SetSettingAsString(teBD, CTE_OBSERVACIONES_COCINA, eObservaciones.Text);
AppFactuGES.Configuracion.SetSettingAsString(teBD, CTE_CONDICIONES_COCINA, eCondiciones.Text); AppFactuGES.Configuracion.SetSettingAsString(teBD, CTE_CONDICIONES_COCINA, eCondiciones.Text);
frViewConfiguracionCapitulo.Detalles.DataTable.ApplyUpdates;
end; end;

246
Source/Modulos/Presupuestos de cliente/Views/uViewConfiguracionDocElectrodomestico.dfm
View File

@ -1,93 +1,201 @@
inherited frViewConfiguracionDocElectrodomestico: TfrViewConfiguracionDocElectrodomestico inherited frViewConfiguracionDocElectrodomestico: TfrViewConfiguracionDocElectrodomestico
Width = 558 Width = 714
Height = 493 Height = 598
object Label2: TLabel [0] inherited Panel1: TPanel
Width = 704
TabOrder = 1
inherited Label3: TLabel
Width = 692
Visible = False
end
end
inherited JvGradientHeaderPanel1: TJvGradientHeaderPanel
Width = 714
LabelCaption = 'Configuraci'#243'n de los documentos de electrodom'#233'sticos'
TabOrder = 0
end
object Paginas: TPageControl
Left = 0
Top = 68
Width = 714
Height = 530
ActivePage = pagNotas
Align = alClient
TabOrder = 2
ExplicitWidth = 451
ExplicitHeight = 236
object pagNotas: TTabSheet
Caption = 'Notas'
ExplicitWidth = 443
ExplicitHeight = 208
object Label1: TLabel
Left = 11 Left = 11
Top = 148 Top = 264
Width = 76
Height = 13
Caption = 'Forma de pago:'
Visible = False
end
object Label2: TLabel
Left = 11
Top = 19
Width = 90 Width = 90
Height = 13 Height = 13
Caption = 'Plazos de entrega:' Caption = 'Plazos de entrega:'
end end
object Label4: TLabel [1] object Label4: TLabel
Left = 11 Left = 11
Top = 270 Top = 141
Width = 75 Width = 75
Height = 13 Height = 13
Caption = 'Observaciones:' Caption = 'Observaciones:'
end end
object Label5: TLabel [2] object ePlazosEntrega: TMemo
Left = 11 Left = 11
Top = 100 Top = 40
Width = 76 Width = 529
Height = 13 Height = 90
Caption = 'Forma de pago:' Ctl3D = True
ParentCtl3D = False
ScrollBars = ssVertical
TabOrder = 0
end end
inherited Panel1: TPanel object eFormaPago: TMemo
Width = 548 Left = 11
Top = 285
Width = 529
Height = 90
Ctl3D = True
ParentCtl3D = False
ScrollBars = ssVertical
TabOrder = 1
Visible = False
end
object eObservaciones: TMemo
Left = 11
Top = 161
Width = 529
Height = 90
Ctl3D = True
ParentCtl3D = False
ScrollBars = ssVertical
TabOrder = 2 TabOrder = 2
ExplicitWidth = 530
inherited Label3: TLabel
Width = 536
end end
end end
inherited JvGradientHeaderPanel1: TJvGradientHeaderPanel object pagCapitulo: TTabSheet
Width = 558 Caption = 'Cap'#237'tulo'
LabelCaption = 'Configuraci'#243'n de los documentos de electrodom'#233'sticos' ImageIndex = 1
ExplicitWidth = 540 ExplicitWidth = 443
ExplicitHeight = 208
inline frViewConfiguracionCapitulo: TfrViewConfiguracionCapitulo
Left = 0
Top = 0
Width = 706
Height = 502
Align = alClient
BiDiMode = bdLeftToRight
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'Tahoma'
Font.Style = []
ParentBiDiMode = False
ParentFont = False
TabOrder = 0
ReadOnly = False
ExplicitWidth = 443
ExplicitHeight = 208
inherited ToolBar1: TToolBar
Width = 706
ExplicitWidth = 706
inherited ToolButton4: TToolButton
Wrap = False
end end
inherited ToolButton14: TToolButton
Left = 334
Top = 0
Wrap = True
ExplicitLeft = 334
ExplicitTop = 0
end
inherited FontName: TJvFontComboBox
Left = 0
ExplicitLeft = 0
end
inherited FontSize: TEdit
Left = 145
Width = 58
ExplicitLeft = 145
ExplicitWidth = 58
end
inherited UpDown1: TUpDown
Left = 219
ExplicitLeft = 219
end
inherited ToolButton13: TToolButton
Left = 236
ExplicitLeft = 236
end
inherited ToolButton6: TToolButton
Left = 244
ExplicitLeft = 244
end
inherited ToolButton7: TToolButton
Left = 278
ExplicitLeft = 278
end
inherited ToolButton8: TToolButton
Left = 312
ExplicitLeft = 312
end
inherited ToolButton12: TToolButton
Left = 346
ExplicitLeft = 346
end
inherited ToolButton9: TToolButton
Left = 354
ExplicitLeft = 354
end
inherited ToolButton10: TToolButton
Left = 388
ExplicitLeft = 388
end
inherited ToolButton11: TToolButton
Left = 422
ExplicitLeft = 422
end
end
inherited cxGrid: TcxGrid
Width = 706
Height = 430
ExplicitWidth = 706
ExplicitHeight = 430
end
inherited TBXDock1: TTBXDock
Width = 706
ExplicitWidth = 706
end
inherited cxLookupComboBox: TcxLookupComboBox
Style.IsFontAssigned = True
end
end
end
object pagCondiciones: TTabSheet
Caption = 'Condiciones'
Enabled = False
ImageIndex = 2
TabVisible = False
object eCondiciones: TcxRichEdit object eCondiciones: TcxRichEdit
Left = 11 Left = 0
Top = 392 Top = 0
Align = alClient
Properties.ScrollBars = ssVertical Properties.ScrollBars = ssVertical
Lines.Strings = ( Lines.Strings = (
'eCondiciones') 'eCondiciones')
TabOrder = 0 TabOrder = 0
Visible = False Height = 502
Height = 57 Width = 706
Width = 529 end
end end
object ePlazosEntrega: TMemo
Left = 11
Top = 169
Width = 529
Height = 90
Ctl3D = True
ParentCtl3D = False
ScrollBars = ssVertical
TabOrder = 3
end
object eObservaciones: TMemo
Left = 11
Top = 290
Width = 529
Height = 90
Ctl3D = True
ParentCtl3D = False
ScrollBars = ssVertical
TabOrder = 4
end
object bFormasPago: TButton
Left = 277
Top = 97
Width = 132
Height = 21
Caption = 'Ver las formas de pago...'
TabOrder = 5
end
object cbFormaPago: TcxLookupComboBox
Left = 93
Top = 97
Properties.KeyFieldNames = 'ID'
Properties.ListColumns = <
item
FieldName = 'REFERENCIA'
end>
Properties.ListSource = dsFormaPago
TabOrder = 6
Width = 178
end
object dsFormaPago: TDADataSource
Left = 424
Top = 88
end end
end end

55
Source/Modulos/Presupuestos de cliente/Views/uViewConfiguracionDocElectrodomestico.pas
View File

@ -6,31 +6,28 @@ uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, uViewConfiguracionBase, cxControls, cxContainer, cxEdit, cxTextEdit, cxMemo, Dialogs, uViewConfiguracionBase, cxControls, cxContainer, cxEdit, cxTextEdit, cxMemo,
cxRichEdit, uViewBase, JvExControls, JvGradientHeaderPanel, StdCtrls, ExtCtrls, cxRichEdit, uViewBase, JvExControls, JvGradientHeaderPanel, StdCtrls, ExtCtrls,
cxGraphics, DB, uDAInterfaces, uDADataTable, cxMaskEdit, cxDropDownEdit, ComCtrls, uCustomView, uViewDetallesBase, uViewDetallesDTO,
cxLookupEdit, cxDBLookupEdit, cxDBLookupComboBox, uFormasPagoController, uBizFormasPago; uViewDetallesArticulos, uViewConfiguracionCapitulo;
type type
TfrViewConfiguracionDocElectrodomestico = class(TfrViewConfiguracionBase) TfrViewConfiguracionDocElectrodomestico = class(TfrViewConfiguracionBase)
eCondiciones: TcxRichEdit; Paginas: TPageControl;
ePlazosEntrega: TMemo; pagNotas: TTabSheet;
eObservaciones: TMemo; Label1: TLabel;
Label2: TLabel; Label2: TLabel;
Label4: TLabel; Label4: TLabel;
bFormasPago: TButton; ePlazosEntrega: TMemo;
cbFormaPago: TcxLookupComboBox; eFormaPago: TMemo;
Label5: TLabel; eObservaciones: TMemo;
dsFormaPago: TDADataSource; pagCapitulo: TTabSheet;
protected frViewConfiguracionCapitulo: TfrViewConfiguracionCapitulo;
FFormasPago : IBizFormaPago; pagCondiciones: TTabSheet;
FFormasPagoController : IFormasPagoController; eCondiciones: TcxRichEdit;
public public
class function GetViewClass : TClass; override; class function GetViewClass : TClass; override;
class function DarEtiqueta : String; override; class function DarEtiqueta : String; override;
procedure CargarValores; override; procedure CargarValores; override;
procedure GuardarValores; override; procedure GuardarValores; override;
constructor Create(AOwner: TComponent); override;
destructor Destroy; override;
end; end;
var var
@ -40,28 +37,23 @@ implementation
{$R *.dfm} {$R *.dfm}
{ TfrViewConfiguracionDocELECTRODOMESTICO } { TfrViewConfiguracionDocELECTRODOMESTICO }
uses uFactuGES_App, uConfiguracionController, uPresupuestosClienteController; uses uFactuGES_App, uConfiguracionController, uPresupuestosClienteController,
uBizDetallesPresupuestoCliente, uDetallesPresupuestoClienteController;
procedure TfrViewConfiguracionDocElectrodomestico.CargarValores; procedure TfrViewConfiguracionDocElectrodomestico.CargarValores;
begin begin
inherited; inherited;
FFormasPago := FFormasPagoController.BuscarTodos; eFormaPago.Lines.Clear;
dsFormaPago.DataTable := FFormasPago.DataTable; eFormaPago.Text := AppFactuGES.Configuracion.GetSettingAsString(teBD,CTE_FORMA_PAGO_ELECTRODOMESTICO);
dsFormaPago.DataTable.Active := True;
cbFormaPago.EditValue := AppFactuGES.Configuracion.GetSettingAsString(teBD,CTE_FORMA_PAGO_ELECTRODOMESTICO);
ePlazosEntrega.Lines.Clear; ePlazosEntrega.Lines.Clear;
ePlazosEntrega.Text := AppFactuGES.Configuracion.GetSettingAsString(teBD,CTE_PLAZOS_ENTREGA_ELECTRODOMESTICO); ePlazosEntrega.Text := AppFactuGES.Configuracion.GetSettingAsString(teBD,CTE_PLAZOS_ENTREGA_ELECTRODOMESTICO);
eObservaciones.Lines.Clear; eObservaciones.Lines.Clear;
eObservaciones.Text := AppFactuGES.Configuracion.GetSettingAsString(teBD,CTE_OBSERVACIONES_ELECTRODOMESTICO); eObservaciones.Text := AppFactuGES.Configuracion.GetSettingAsString(teBD,CTE_OBSERVACIONES_ELECTRODOMESTICO);
eCondiciones.Lines.Clear; eCondiciones.Lines.Clear;
eCondiciones.Text := AppFactuGES.Configuracion.GetSettingAsString(teBD,CTE_CONDICIONES_ELECTRODOMESTICO); eCondiciones.Text := AppFactuGES.Configuracion.GetSettingAsString(teBD,CTE_CONDICIONES_ELECTRODOMESTICO);
end;
constructor TfrViewConfiguracionDocElectrodomestico.Create(AOwner: TComponent); frViewConfiguracionCapitulo.Controller := TDetallesPresupuestoClienteController.Create;
begin frViewConfiguracionCapitulo.Detalles := (frViewConfiguracionCapitulo.Controller as IDetallesPresupuestoClienteController).BuscarCapitulo(TIPO_CAPITULO_E);
inherited;
FFormasPagoController := TFormasPagoController.Create;
end; end;
class function TfrViewConfiguracionDocElectrodomestico.DarEtiqueta: String; class function TfrViewConfiguracionDocElectrodomestico.DarEtiqueta: String;
@ -69,13 +61,6 @@ begin
Result := 'Documentos electrodoméstico'; Result := 'Documentos electrodoméstico';
end; end;
destructor TfrViewConfiguracionDocElectrodomestico.Destroy;
begin
FFormasPago := Nil;
FFormasPagoController := NIL;
inherited;
end;
class function TfrViewConfiguracionDocElectrodomestico.GetViewClass: TClass; class function TfrViewConfiguracionDocElectrodomestico.GetViewClass: TClass;
begin begin
Result := TfrViewConfiguracionDocELECTRODOMESTICO; Result := TfrViewConfiguracionDocELECTRODOMESTICO;
@ -84,10 +69,12 @@ end;
procedure TfrViewConfiguracionDocElectrodomestico.GuardarValores; procedure TfrViewConfiguracionDocElectrodomestico.GuardarValores;
begin begin
inherited; inherited;
AppFactuGES.Configuracion.SetSettingAsString(teBD, CTE_FORMA_PAGO_ELECTRODOMESTICO, cbFormaPago.EditValue); AppFactuGES.Configuracion.SetSettingAsString(teBD, CTE_FORMA_PAGO_ELECTRODOMESTICO, eFormaPago.Text);
AppFactuGES.Configuracion.SetSettingAsString(teBD, CTE_PLAZOS_ENTREGA_ELECTRODOMESTICO, ePlazosEntrega.Text); AppFactuGES.Configuracion.SetSettingAsString(teBD, CTE_PLAZOS_ENTREGA_ELECTRODOMESTICO, ePlazosEntrega.Text);
AppFactuGES.Configuracion.SetSettingAsString(teBD, CTE_OBSERVACIONES_ELECTRODOMESTICO, eObservaciones.Text); AppFactuGES.Configuracion.SetSettingAsString(teBD, CTE_OBSERVACIONES_ELECTRODOMESTICO, eObservaciones.Text);
AppFactuGES.Configuracion.SetSettingAsString(teBD, CTE_CONDICIONES_ELECTRODOMESTICO, eCondiciones.Text); AppFactuGES.Configuracion.SetSettingAsString(teBD, CTE_CONDICIONES_ELECTRODOMESTICO, eCondiciones.Text);
frViewConfiguracionCapitulo.Detalles.DataTable.ApplyUpdates;
end; end;

200
Source/Modulos/Presupuestos de cliente/Views/uViewConfiguracionDocObra.dfm Normal file
View File

@ -0,0 +1,200 @@
inherited frViewConfiguracionDocObra: TfrViewConfiguracionDocObra
Width = 719
Height = 538
inherited Panel1: TPanel
Width = 709
TabOrder = 1
inherited Label3: TLabel
Width = 697
end
end
inherited JvGradientHeaderPanel1: TJvGradientHeaderPanel
Width = 719
LabelCaption = 'Configuraci'#243'n de los documentos de obra'
TabOrder = 0
end
object paginas: TPageControl
Left = 0
Top = 68
Width = 719
Height = 470
ActivePage = pagNotas
Align = alClient
TabOrder = 2
ExplicitWidth = 451
ExplicitHeight = 236
object pagNotas: TTabSheet
Caption = 'Notas'
ExplicitWidth = 443
ExplicitHeight = 208
object Label1: TLabel
Left = 11
Top = 264
Width = 76
Height = 13
Caption = 'Forma de pago:'
Visible = False
end
object Label2: TLabel
Left = 11
Top = 15
Width = 90
Height = 13
Caption = 'Plazos de entrega:'
end
object Label4: TLabel
Left = 11
Top = 139
Width = 75
Height = 13
Caption = 'Observaciones:'
end
object ePlazosEntrega: TMemo
Left = 11
Top = 38
Width = 529
Height = 90
Ctl3D = True
ParentCtl3D = False
ScrollBars = ssVertical
TabOrder = 0
end
object eFormaPago: TMemo
Left = 11
Top = 285
Width = 529
Height = 90
Ctl3D = True
ParentCtl3D = False
ScrollBars = ssVertical
TabOrder = 1
Visible = False
end
object eObservaciones: TMemo
Left = 11
Top = 159
Width = 529
Height = 90
Ctl3D = True
ParentCtl3D = False
ScrollBars = ssVertical
TabOrder = 2
end
end
object pagCapitulo: TTabSheet
Caption = 'Cap'#237'tulo'
ImageIndex = 1
ExplicitWidth = 443
ExplicitHeight = 208
inline frViewConfiguracionCapitulo: TfrViewConfiguracionCapitulo
Left = 0
Top = 0
Width = 711
Height = 442
Align = alClient
BiDiMode = bdLeftToRight
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'Tahoma'
Font.Style = []
ParentBiDiMode = False
ParentFont = False
TabOrder = 0
ReadOnly = False
ExplicitWidth = 443
ExplicitHeight = 208
inherited ToolBar1: TToolBar
Width = 711
ExplicitWidth = 711
inherited ToolButton4: TToolButton
Wrap = False
end
inherited ToolButton14: TToolButton
Left = 334
Top = 0
Wrap = True
ExplicitLeft = 334
ExplicitTop = 0
end
inherited FontName: TJvFontComboBox
Left = 0
ExplicitLeft = 0
end
inherited FontSize: TEdit
Left = 145
Width = 58
ExplicitLeft = 145
ExplicitWidth = 58
end
inherited UpDown1: TUpDown
Left = 219
ExplicitLeft = 219
end
inherited ToolButton13: TToolButton
Left = 236
ExplicitLeft = 236
end
inherited ToolButton6: TToolButton
Left = 244
ExplicitLeft = 244
end
inherited ToolButton7: TToolButton
Left = 278
ExplicitLeft = 278
end
inherited ToolButton8: TToolButton
Left = 312
ExplicitLeft = 312
end
inherited ToolButton12: TToolButton
Left = 346
ExplicitLeft = 346
end
inherited ToolButton9: TToolButton
Left = 354
ExplicitLeft = 354
end
inherited ToolButton10: TToolButton
Left = 388
ExplicitLeft = 388
end
inherited ToolButton11: TToolButton
Left = 422
ExplicitLeft = 422
end
end
inherited cxGrid: TcxGrid
Width = 711
Height = 370
ExplicitWidth = 711
ExplicitHeight = 370
end
inherited TBXDock1: TTBXDock
Width = 711
ExplicitWidth = 711
end
inherited cxLookupComboBox: TcxLookupComboBox
Style.IsFontAssigned = True
end
end
end
object pagCondiciones: TTabSheet
Caption = 'Condiciones'
Enabled = False
ImageIndex = 2
TabVisible = False
object eCondiciones: TcxRichEdit
Left = 0
Top = 0
Align = alClient
Properties.ScrollBars = ssVertical
Lines.Strings = (
'eCondiciones')
TabOrder = 0
Height = 442
Width = 711
end
end
end
end

81
Source/Modulos/Presupuestos de cliente/Views/uViewConfiguracionDocObra.pas Normal file
View File

@ -0,0 +1,81 @@
unit uViewConfiguracionDocObra;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, uViewConfiguracionBase, cxControls, cxContainer, cxEdit, cxTextEdit, cxMemo,
cxRichEdit, uViewBase, JvExControls, JvGradientHeaderPanel, StdCtrls, ExtCtrls,
ComCtrls, uCustomView, uViewDetallesBase, uViewDetallesDTO,
uViewDetallesArticulos, uViewConfiguracionCapitulo;
type
TfrViewConfiguracionDocObra = class(TfrViewConfiguracionBase)
paginas: TPageControl;
pagNotas: TTabSheet;
Label1: TLabel;
Label2: TLabel;
Label4: TLabel;
ePlazosEntrega: TMemo;
eFormaPago: TMemo;
eObservaciones: TMemo;
pagCapitulo: TTabSheet;
frViewConfiguracionCapitulo: TfrViewConfiguracionCapitulo;
pagCondiciones: TTabSheet;
eCondiciones: TcxRichEdit;
public
class function GetViewClass : TClass; override;
class function DarEtiqueta : String; override;
procedure CargarValores; override;
procedure GuardarValores; override;
end;
var
frViewConfiguracionDocObra: TfrViewConfiguracionDocObra;
implementation
{$R *.dfm}
{ TfrViewConfiguracionDocOBRA }
uses uFactuGES_App, uConfiguracionController, uPresupuestosClienteController,
uBizDetallesPresupuestoCliente, uDetallesPresupuestoClienteController;
procedure TfrViewConfiguracionDocObra.CargarValores;
begin
inherited;
eFormaPago.Lines.Clear;
eFormaPago.Text := AppFactuGES.Configuracion.GetSettingAsString(teBD,CTE_FORMA_PAGO_OBRA);
ePlazosEntrega.Lines.Clear;
ePlazosEntrega.Text := AppFactuGES.Configuracion.GetSettingAsString(teBD,CTE_PLAZOS_ENTREGA_OBRA);
eObservaciones.Lines.Clear;
eObservaciones.Text := AppFactuGES.Configuracion.GetSettingAsString(teBD,CTE_OBSERVACIONES_OBRA);
eCondiciones.Lines.Clear;
eCondiciones.Text := AppFactuGES.Configuracion.GetSettingAsString(teBD,CTE_CONDICIONES_OBRA);
frViewConfiguracionCapitulo.Controller := TDetallesPresupuestoClienteController.Create;
frViewConfiguracionCapitulo.Detalles := (frViewConfiguracionCapitulo.Controller as IDetallesPresupuestoClienteController).BuscarCapitulo(TIPO_CAPITULO_O);
end;
class function TfrViewConfiguracionDocObra.DarEtiqueta: String;
begin
Result := 'Documentos obra';
end;
class function TfrViewConfiguracionDocObra.GetViewClass: TClass;
begin
Result := TfrViewConfiguracionDocOBRA;
end;
procedure TfrViewConfiguracionDocObra.GuardarValores;
begin
inherited;
AppFactuGES.Configuracion.SetSettingAsString(teBD, CTE_FORMA_PAGO_OBRA, eFormaPago.Text);
AppFactuGES.Configuracion.SetSettingAsString(teBD, CTE_PLAZOS_ENTREGA_OBRA, ePlazosEntrega.Text);
AppFactuGES.Configuracion.SetSettingAsString(teBD, CTE_OBSERVACIONES_OBRA, eObservaciones.Text);
AppFactuGES.Configuracion.SetSettingAsString(teBD, CTE_CONDICIONES_OBRA, eCondiciones.Text);
frViewConfiguracionCapitulo.Detalles.DataTable.ApplyUpdates;
end;
end.

148
Source/Modulos/Presupuestos de cliente/Views/uViewConfiguracionDocVarios.dfm
View File

@ -1,94 +1,100 @@
inherited frViewConfiguracionDocVarios: TfrViewConfiguracionDocVarios inherited frViewConfiguracionDocVarios: TfrViewConfiguracionDocVarios
Width = 633 Width = 836
Height = 474 Height = 606
object Label2: TLabel [0] inherited Panel1: TPanel
Width = 826
TabOrder = 1
inherited Label3: TLabel
Width = 814
end
end
inherited JvGradientHeaderPanel1: TJvGradientHeaderPanel
Width = 836
LabelCaption = 'Configuraci'#243'n de los documentos de varios'
TabOrder = 0
end
object PageControl1: TPageControl
Left = 0
Top = 68
Width = 836
Height = 538
ActivePage = pagNotas
Align = alClient
TabOrder = 2
object pagNotas: TTabSheet
Caption = 'Notas'
ExplicitWidth = 443
ExplicitHeight = 208
object Label1: TLabel
Left = 11 Left = 11
Top = 132 Top = 262
Width = 76
Height = 13
Caption = 'Forma de pago:'
Visible = False
end
object Label2: TLabel
Left = 11
Top = 17
Width = 90 Width = 90
Height = 13 Height = 13
Caption = 'Plazos de entrega:' Caption = 'Plazos de entrega:'
end end
object Label4: TLabel [1] object Label4: TLabel
Left = 11 Left = 11
Top = 254 Top = 139
Width = 75 Width = 75
Height = 13 Height = 13
Caption = 'Observaciones:' Caption = 'Observaciones:'
end end
object Label5: TLabel [2] object ePlazosEntrega: TMemo
Left = 11 Left = 11
Top = 100 Top = 38
Width = 76 Width = 529
Height = 13 Height = 90
Caption = 'Forma de pago:' Ctl3D = True
ParentCtl3D = False
ScrollBars = ssVertical
TabOrder = 0
end end
inherited Panel1: TPanel object eFormaPago: TMemo
Width = 623 Left = 11
Top = 283
Width = 529
Height = 90
Ctl3D = True
ParentCtl3D = False
ScrollBars = ssVertical
TabOrder = 1
Visible = False
end
object eObservaciones: TMemo
Left = 11
Top = 159
Width = 529
Height = 90
Ctl3D = True
ParentCtl3D = False
ScrollBars = ssVertical
TabOrder = 2 TabOrder = 2
ExplicitWidth = 530
inherited Label3: TLabel
Width = 611
end end
end end
inherited JvGradientHeaderPanel1: TJvGradientHeaderPanel object pagCondiciones: TTabSheet
Width = 633 Caption = 'Condiciones'
LabelCaption = 'Configuraci'#243'n de los documentos de varios' Enabled = False
ExplicitWidth = 540 ImageIndex = 1
end TabVisible = False
object eCondiciones: TcxRichEdit object eCondiciones: TcxRichEdit
Left = 11 Left = 0
Top = 376 Top = 0
Align = alClient
Properties.ScrollBars = ssVertical Properties.ScrollBars = ssVertical
Lines.Strings = ( Lines.Strings = (
'eCondiciones') 'eCondiciones')
TabOrder = 0 TabOrder = 0
Visible = False Height = 510
Height = 57 Width = 828
Width = 529 end
end end
object ePlazosEntrega: TMemo
Left = 11
Top = 153
Width = 529
Height = 90
Ctl3D = True
ParentCtl3D = False
ScrollBars = ssVertical
TabOrder = 3
end
object eObservaciones: TMemo
Left = 11
Top = 274
Width = 529
Height = 90
Ctl3D = True
ParentCtl3D = False
ScrollBars = ssVertical
TabOrder = 4
end
object bFormasPago: TButton
Left = 277
Top = 97
Width = 132
Height = 21
Caption = 'Ver las formas de pago...'
TabOrder = 5
OnClick = bFormasPagoClick
end
object cbFormaPago: TcxLookupComboBox
Left = 93
Top = 97
Properties.KeyFieldNames = 'ID'
Properties.ListColumns = <
item
FieldName = 'REFERENCIA'
end>
Properties.ListSource = dsFormaPago
TabOrder = 6
Width = 178
end
object dsFormaPago: TDADataSource
Left = 424
Top = 88
end end
end end

54
Source/Modulos/Presupuestos de cliente/Views/uViewConfiguracionDocVarios.pas
View File

@ -6,32 +6,25 @@ uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, uViewConfiguracionBase, cxControls, cxContainer, cxEdit, cxTextEdit, cxMemo, Dialogs, uViewConfiguracionBase, cxControls, cxContainer, cxEdit, cxTextEdit, cxMemo,
cxRichEdit, uViewBase, JvExControls, JvGradientHeaderPanel, StdCtrls, ExtCtrls, cxRichEdit, uViewBase, JvExControls, JvGradientHeaderPanel, StdCtrls, ExtCtrls,
uFormasPagoController, uBizFormasPago, cxGraphics, cxMaskEdit, cxDropDownEdit, ComCtrls;
cxLookupEdit, cxDBLookupEdit, cxDBLookupComboBox, DB, uDAInterfaces,
uDADataTable;
type type
TfrViewConfiguracionDocVarios = class(TfrViewConfiguracionBase) TfrViewConfiguracionDocVarios = class(TfrViewConfiguracionBase)
eCondiciones: TcxRichEdit; PageControl1: TPageControl;
ePlazosEntrega: TMemo; pagNotas: TTabSheet;
eObservaciones: TMemo; pagCondiciones: TTabSheet;
Label1: TLabel;
Label2: TLabel; Label2: TLabel;
Label4: TLabel; Label4: TLabel;
Label5: TLabel; ePlazosEntrega: TMemo;
bFormasPago: TButton; eFormaPago: TMemo;
dsFormaPago: TDADataSource; eObservaciones: TMemo;
cbFormaPago: TcxLookupComboBox; eCondiciones: TcxRichEdit;
procedure bFormasPagoClick(Sender: TObject);
protected
FFormasPago : IBizFormaPago;
FFormasPagoController : IFormasPagoController;
public public
class function GetViewClass : TClass; override; class function GetViewClass : TClass; override;
class function DarEtiqueta : String; override; class function DarEtiqueta : String; override;
procedure CargarValores; override; procedure CargarValores; override;
procedure GuardarValores; override; procedure GuardarValores; override;
constructor Create(AOwner: TComponent); override;
destructor Destroy; override;
end; end;
var var
@ -43,21 +36,11 @@ implementation
uses uFactuGES_App, uConfiguracionController, uPresupuestosClienteController; uses uFactuGES_App, uConfiguracionController, uPresupuestosClienteController;
procedure TfrViewConfiguracionDocVarios.bFormasPagoClick(Sender: TObject);
begin
inherited;
if Assigned(FFormasPago) then
FFormasPagoController.VerTodos(FFormasPago);
end;
procedure TfrViewConfiguracionDocVarios.CargarValores; procedure TfrViewConfiguracionDocVarios.CargarValores;
begin begin
inherited; inherited;
FFormasPago := FFormasPagoController.BuscarTodos; eFormaPago.Lines.Clear;
dsFormaPago.DataTable := FFormasPago.DataTable; eFormaPago.Text := AppFactuGES.Configuracion.GetSettingAsString(teBD,CTE_FORMA_PAGO_VARIOS);
dsFormaPago.DataTable.Active := True;
cbFormaPago.EditValue := AppFactuGES.Configuracion.GetSettingAsString(teBD,CTE_FORMA_PAGO_VARIOS);
ePlazosEntrega.Lines.Clear; ePlazosEntrega.Lines.Clear;
ePlazosEntrega.Text := AppFactuGES.Configuracion.GetSettingAsString(teBD,CTE_PLAZOS_ENTREGA_VARIOS); ePlazosEntrega.Text := AppFactuGES.Configuracion.GetSettingAsString(teBD,CTE_PLAZOS_ENTREGA_VARIOS);
eObservaciones.Lines.Clear; eObservaciones.Lines.Clear;
@ -66,24 +49,11 @@ begin
eCondiciones.Text := AppFactuGES.Configuracion.GetSettingAsString(teBD,CTE_CONDICIONES_VARIOS); eCondiciones.Text := AppFactuGES.Configuracion.GetSettingAsString(teBD,CTE_CONDICIONES_VARIOS);
end; end;
constructor TfrViewConfiguracionDocVarios.Create(AOwner: TComponent);
begin
inherited;
FFormasPagoController := TFormasPagoController.Create;
end;
class function TfrViewConfiguracionDocVarios.DarEtiqueta: String; class function TfrViewConfiguracionDocVarios.DarEtiqueta: String;
begin begin
Result := 'Documentos varios'; Result := 'Documentos varios';
end; end;
destructor TfrViewConfiguracionDocVarios.Destroy;
begin
FFormasPago := Nil;
FFormasPagoController := NIL;
inherited;
end;
class function TfrViewConfiguracionDocVarios.GetViewClass: TClass; class function TfrViewConfiguracionDocVarios.GetViewClass: TClass;
begin begin
Result := TfrViewConfiguracionDocVARIOS; Result := TfrViewConfiguracionDocVARIOS;
@ -92,7 +62,7 @@ end;
procedure TfrViewConfiguracionDocVarios.GuardarValores; procedure TfrViewConfiguracionDocVarios.GuardarValores;
begin begin
inherited; inherited;
AppFactuGES.Configuracion.SetSettingAsString(teBD, CTE_FORMA_PAGO_VARIOS, cbFormaPago.EditValue); AppFactuGES.Configuracion.SetSettingAsString(teBD, CTE_FORMA_PAGO_VARIOS, eFormaPago.Text);
AppFactuGES.Configuracion.SetSettingAsString(teBD, CTE_PLAZOS_ENTREGA_VARIOS, ePlazosEntrega.Text); AppFactuGES.Configuracion.SetSettingAsString(teBD, CTE_PLAZOS_ENTREGA_VARIOS, ePlazosEntrega.Text);
AppFactuGES.Configuracion.SetSettingAsString(teBD, CTE_OBSERVACIONES_VARIOS, eObservaciones.Text); AppFactuGES.Configuracion.SetSettingAsString(teBD, CTE_OBSERVACIONES_VARIOS, eObservaciones.Text);
AppFactuGES.Configuracion.SetSettingAsString(teBD, CTE_CONDICIONES_VARIOS, eCondiciones.Text); AppFactuGES.Configuracion.SetSettingAsString(teBD, CTE_CONDICIONES_VARIOS, eCondiciones.Text);

44
Source/Modulos/Presupuestos de cliente/Views/uViewDetallesPresupuestoCliente.dfm
View File

@ -72,19 +72,13 @@ inherited frViewDetallesPresupuestoCliente: TfrViewDetallesPresupuestoCliente
Caption = #191'Valorado?' Caption = #191'Valorado?'
Visible = True Visible = True
end end
object cxGridViewID_PROPIEDAD: TcxGridDBColumn [6] object cxGridViewPROPIEDAD: TcxGridDBColumn [6]
Caption = 'Propiedad' DataBinding.FieldName = 'PROPIEDAD'
DataBinding.FieldName = 'ID_ARTICULO' PropertiesClassName = 'TcxRichEditProperties'
PropertiesClassName = 'TcxLookupComboBoxProperties' OnGetPropertiesForEdit = cxGridViewPROPIEDADGetPropertiesForEdit
Properties.ImmediatePost = True BestFitMaxWidth = 150
Properties.KeyFieldNames = 'ID' Width = 150
Properties.ListColumns = < IsCaptionAssigned = True
item
FieldName = 'DESCRIPCION'
end>
Properties.ListOptions.ShowHeader = False
Properties.ListOptions.SyncMode = True
Properties.ListSource = DAPropiedades
end end
inherited cxGridViewREFERENCIA: TcxGridDBColumn [7] inherited cxGridViewREFERENCIA: TcxGridDBColumn [7]
end end
@ -104,7 +98,6 @@ inherited frViewDetallesPresupuestoCliente: TfrViewDetallesPresupuestoCliente
Width = 34 Width = 34
end end
inherited cxGridViewDESCUENTO: TcxGridDBColumn [12] inherited cxGridViewDESCUENTO: TcxGridDBColumn [12]
VisibleForCustomization = False
Width = 20 Width = 20
end end
inherited cxGridViewIMPORTENETO: TcxGridDBColumn [13] inherited cxGridViewIMPORTENETO: TcxGridDBColumn [13]
@ -210,6 +203,29 @@ inherited frViewDetallesPresupuestoCliente: TfrViewDetallesPresupuestoCliente
Height = 25 Height = 25
Width = 145 Width = 145
end end
object cxLookupComboBox2: TcxLookupComboBox [5]
Left = 78
Top = 283
ParentFont = False
Properties.DropDownListStyle = lsEditList
Properties.ImmediatePost = True
Properties.KeyFieldNames = 'DESCRIPCION'
Properties.ListColumns = <
item
FieldName = 'DESCRIPCION'
end>
Properties.ListOptions.ShowHeader = False
Properties.ListSource = DAPropiedades
Style.Font.Charset = DEFAULT_CHARSET
Style.Font.Color = clWindowText
Style.Font.Height = -13
Style.Font.Name = 'Lucida Console'
Style.Font.Style = []
Style.IsFontAssigned = True
TabOrder = 5
Visible = False
Width = 145
end
inherited ActionListContenido: TActionList inherited ActionListContenido: TActionList
object actAsignarDescuento: TAction object actAsignarDescuento: TAction
Category = 'Operaciones' Category = 'Operaciones'

39
Source/Modulos/Presupuestos de cliente/Views/uViewDetallesPresupuestoCliente.pas
View File

@ -30,7 +30,7 @@ type
TBXItem18: TTBXItem; TBXItem18: TTBXItem;
TBXSeparatorItem9: TTBXSeparatorItem; TBXSeparatorItem9: TTBXSeparatorItem;
DAPropiedades: TDADataSource; DAPropiedades: TDADataSource;
cxGridViewID_PROPIEDAD: TcxGridDBColumn; cxGridViewPROPIEDAD: TcxGridDBColumn;
cxLookupComboBox1: TcxLookupComboBox; cxLookupComboBox1: TcxLookupComboBox;
DAValores: TDADataSource; DAValores: TDADataSource;
cxRichEdit1: TcxRichEdit; cxRichEdit1: TcxRichEdit;
@ -55,6 +55,7 @@ type
actCapituloImportes: TAction; actCapituloImportes: TAction;
TBXSeparatorItem11: TTBXSeparatorItem; TBXSeparatorItem11: TTBXSeparatorItem;
TBXItem21: TTBXItem; TBXItem21: TTBXItem;
cxLookupComboBox2: TcxLookupComboBox;
procedure actAsignarDescuentoExecute(Sender: TObject); procedure actAsignarDescuentoExecute(Sender: TObject);
procedure actAsignarDescuentoUpdate(Sender: TObject); procedure actAsignarDescuentoUpdate(Sender: TObject);
procedure CustomViewShow(Sender: TObject); procedure CustomViewShow(Sender: TObject);
@ -70,6 +71,9 @@ type
procedure actCapituloImportesExecute(Sender: TObject); procedure actCapituloImportesExecute(Sender: TObject);
procedure OnVISIBLEPropertiesEditValueChanged(Sender: TObject); procedure OnVISIBLEPropertiesEditValueChanged(Sender: TObject);
procedure CustomViewDestroy(Sender: TObject); procedure CustomViewDestroy(Sender: TObject);
procedure cxGridViewPROPIEDADGetPropertiesForEdit(
Sender: TcxCustomGridTableItem; ARecord: TcxCustomGridRecord;
var AProperties: TcxCustomEditProperties);
private private
procedure AnadirCapitulo(const Tipo: String;const Descripcion: String; const Descuento:Boolean = false); procedure AnadirCapitulo(const Tipo: String;const Descripcion: String; const Descuento:Boolean = false);
@ -258,7 +262,7 @@ begin
inherited; inherited;
//OJO sin esto no se refresca el filtro en tabla detalle "VALORES". //OJO sin esto no se refresca el filtro en tabla detalle "VALORES".
(cxGridViewID_PROPIEDAD.Properties as TcxLookupComboBoxProperties).ListSource.DataSet.Locate(fld_PropiedadesID, cxGridViewID_PROPIEDAD.DataBinding.Field.AsVariant,[]); { (cxGridViewID_PROPIEDAD.Properties as TcxLookupComboBoxProperties).ListSource.DataSet.Locate(fld_PropiedadesID, cxGridViewID_PROPIEDAD.DataBinding.Field.AsVariant,[]);
if (ARecord.DisplayTexts[cxGridViewTIPO.Index] = TIPO_DETALLE_CONCEPTO) if (ARecord.DisplayTexts[cxGridViewTIPO.Index] = TIPO_DETALLE_CONCEPTO)
and ((ARecord.DisplayTexts[cxGridViewTIPO_ARTICULO.Index] = TIPO_CAPITULO_AF) and ((ARecord.DisplayTexts[cxGridViewTIPO_ARTICULO.Index] = TIPO_CAPITULO_AF)
@ -267,6 +271,31 @@ begin
AProperties := cxLookupComboBox1.Properties AProperties := cxLookupComboBox1.Properties
else else
AProperties := cxRichEdit1.Properties; AProperties := cxRichEdit1.Properties;
}
//OJO sin esto no se refresca el filtro en tabla detalle "VALORES".
DAPropiedades.DataTable.Locate(fld_PropiedadesDESCRIPCION, cxGridViewPROPIEDAD.DataBinding.Field.AsVariant,[]);
if (ARecord.DisplayTexts[cxGridViewTIPO.Index] = TIPO_DETALLE_CONCEPTO)
and (ARecord.DisplayTexts[cxGridViewPROPIEDAD.Index] <> '') then
AProperties := cxLookupComboBox1.Properties
else
AProperties := cxRichEdit1.Properties;
end;
procedure TfrViewDetallesPresupuestoCliente.cxGridViewPROPIEDADGetPropertiesForEdit(
Sender: TcxCustomGridTableItem; ARecord: TcxCustomGridRecord;
var AProperties: TcxCustomEditProperties);
begin
inherited;
if (ARecord.DisplayTexts[cxGridViewTIPO.Index] = TIPO_DETALLE_CONCEPTO)
then
AProperties := cxLookupComboBox2.Properties
else
AProperties := cxRichEdit1.Properties;
end; end;
procedure TfrViewDetallesPresupuestoCliente.OnVISIBLEPropertiesEditValueChanged(Sender: TObject); procedure TfrViewDetallesPresupuestoCliente.OnVISIBLEPropertiesEditValueChanged(Sender: TObject);
@ -302,7 +331,7 @@ begin
if (AItem.GridView.Items[IndiceCol].EditValue <> TIPO_DETALLE_DESCUENTO) then if (AItem.GridView.Items[IndiceCol].EditValue <> TIPO_DETALLE_DESCUENTO) then
Result := False Result := False
end end
else if (AItem.Index in [cxGridViewID_PROPIEDAD.Index, cxGridViewTIPO_ARTICULO.Index]) then else if (AItem.Index in [cxGridViewPROPIEDAD.Index, cxGridViewTIPO_ARTICULO.Index]) then
begin begin
IndiceCol := cxGridView.GetColumnByFieldName(CAMPO_TIPO).Index; IndiceCol := cxGridView.GetColumnByFieldName(CAMPO_TIPO).Index;
if ((AItem.GridView.Items[IndiceCol].EditValue = TIPO_DETALLE_SALTO) or if ((AItem.GridView.Items[IndiceCol].EditValue = TIPO_DETALLE_SALTO) or
@ -316,6 +345,10 @@ begin
IndiceCol := cxGridView.GetColumnByFieldName(fld_PresupuestosCliente_DetallesTIPO_ARTICULO).Index; IndiceCol := cxGridView.GetColumnByFieldName(fld_PresupuestosCliente_DetallesTIPO_ARTICULO).Index;
if ((AItem.GridView.Items[IndiceCol].EditValue <> TIPO_CAPITULO_AF) and if ((AItem.GridView.Items[IndiceCol].EditValue <> TIPO_CAPITULO_AF) and
(AItem.GridView.Items[IndiceCol].EditValue <> TIPO_CAPITULO_AI) and (AItem.GridView.Items[IndiceCol].EditValue <> TIPO_CAPITULO_AI) and
(AItem.GridView.Items[IndiceCol].EditValue <> TIPO_CAPITULO_C) and
(AItem.GridView.Items[IndiceCol].EditValue <> TIPO_CAPITULO_O) and
(AItem.GridView.Items[IndiceCol].EditValue <> TIPO_CAPITULO_V) and
(AItem.GridView.Items[IndiceCol].EditValue <> TIPO_CAPITULO_E) and
(AItem.GridView.Items[IndiceCol].EditValue <> TIPO_CAPITULO_B)) then (AItem.GridView.Items[IndiceCol].EditValue <> TIPO_CAPITULO_B)) then
Result := False Result := False
end; end;

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

@ -117,14 +117,8 @@ begin
ADetalles.Edit; ADetalles.Edit;
ADetalles.REFERENCIA := AArticulos.REFERENCIA; ADetalles.REFERENCIA := AArticulos.REFERENCIA;
ADetalles.ID_ARTICULO := AArticulos.ID_ARTICULO; ADetalles.ID_ARTICULO := AArticulos.ID_ARTICULO;
if ((AArticulos.TIPO_ARTICULO = TIPO_CAPITULO_C) if (AArticulos.PROPIEDAD <> '') then
or (AArticulos.TIPO_ARTICULO = TIPO_CAPITULO_AF) ADetalles.CONCEPTO := AArticulos.PROPIEDAD + ': '+ AArticulos.CONCEPTO
or (AArticulos.TIPO_ARTICULO = TIPO_CAPITULO_AI)
or (AArticulos.TIPO_ARTICULO = TIPO_CAPITULO_B))
and (AArticulos.TIPO_DETALLE = TIPO_DETALLE_CONCEPTO) then
//Usamos el campo referencia para lamacenar la descripcion de la propiedad
//ya que hemos usado ID_ARTICULO para almacenar el id de la propiedad.
ADetalles.CONCEPTO := AArticulos.REFERENCIA + ': '+ AArticulos.CONCEPTO
else else
ADetalles.CONCEPTO := AArticulos.CONCEPTO; ADetalles.CONCEPTO := AArticulos.CONCEPTO;

1
Source/Modulos/Relaciones/Presupuestos de cliente - Contratos de cliente/uGenerarContratosCliUtils.pas
View File

@ -174,6 +174,7 @@ begin
ADetalles.REFERENCIA := AArticulos.REFERENCIA; ADetalles.REFERENCIA := AArticulos.REFERENCIA;
ADetalles.ID_ARTICULO := AArticulos.ID_ARTICULO; ADetalles.ID_ARTICULO := AArticulos.ID_ARTICULO;
ADetalles.TIPO_ARTICULO := AArticulos.TIPO_ARTICULO; ADetalles.TIPO_ARTICULO := AArticulos.TIPO_ARTICULO;
ADetalles.PROPIEDAD := AArticulos.PROPIEDAD;
ADetalles.CONCEPTO := AArticulos.CONCEPTO; ADetalles.CONCEPTO := AArticulos.CONCEPTO;
if not AArticulos.CANTIDADIsNull then if not AArticulos.CANTIDADIsNull then
ADetalles.CANTIDAD := AArticulos.CANTIDAD; ADetalles.CANTIDAD := AArticulos.CANTIDAD;

2
Source/Modulos/Unidades de medida/Plugin/uPluginUnidadesMedida.dfm
View File

@ -42,7 +42,9 @@ object PluginUnidadesMedida: TPluginUnidadesMedida
object actUnidadesMedida: TAction object actUnidadesMedida: TAction
Category = 'Datos' Category = 'Datos'
Caption = 'Unidades de medida' Caption = 'Unidades de medida'
Enabled = False
ImageIndex = 0 ImageIndex = 0
Visible = False
OnExecute = actUnidadesMedidaExecute OnExecute = actUnidadesMedidaExecute
end end
end end

8
Source/Servidor/FactuGES_Server.dpr
View File

@ -58,8 +58,6 @@ uses
uBizPedidosProveedorServer in '..\Modulos\Pedidos a proveedor\Model\uBizPedidosProveedorServer.pas', uBizPedidosProveedorServer in '..\Modulos\Pedidos a proveedor\Model\uBizPedidosProveedorServer.pas',
uBizAlbaranProveedorServer in '..\Modulos\Albaranes de proveedor\Model\uBizAlbaranProveedorServer.PAS', uBizAlbaranProveedorServer in '..\Modulos\Albaranes de proveedor\Model\uBizAlbaranProveedorServer.PAS',
uBizFacturasProveedorServer in '..\Modulos\Facturas de proveedor\Model\uBizFacturasProveedorServer.pas', uBizFacturasProveedorServer in '..\Modulos\Facturas de proveedor\Model\uBizFacturasProveedorServer.pas',
schArticulosClient_Intf in '..\Modulos\Articulos\Model\schArticulosClient_Intf.pas',
schArticulosServer_Intf in '..\Modulos\Articulos\Model\schArticulosServer_Intf.pas',
srvRemesasCliente_Impl in '..\Modulos\Remesas de cliente\Servidor\srvRemesasCliente_Impl.pas' {srvRemesasCliente: TDataAbstractService}, srvRemesasCliente_Impl in '..\Modulos\Remesas de cliente\Servidor\srvRemesasCliente_Impl.pas' {srvRemesasCliente: TDataAbstractService},
srvRemesasProveedor_Impl in '..\Modulos\Remesas de proveedor\Servidor\srvRemesasProveedor_Impl.pas' {srvRemesasProveedor: TDataAbstractService}, srvRemesasProveedor_Impl in '..\Modulos\Remesas de proveedor\Servidor\srvRemesasProveedor_Impl.pas' {srvRemesasProveedor: TDataAbstractService},
srvInventario_Impl in '..\Modulos\Inventario\Servidor\srvInventario_Impl.pas' {srvInventario: TDataAbstractService}, srvInventario_Impl in '..\Modulos\Inventario\Servidor\srvInventario_Impl.pas' {srvInventario: TDataAbstractService},
@ -127,14 +125,16 @@ uses
schInventarioServer_Intf in '..\Modulos\Inventario\Model\schInventarioServer_Intf.pas', schInventarioServer_Intf in '..\Modulos\Inventario\Model\schInventarioServer_Intf.pas',
schPedidosProveedorClient_Intf in '..\Modulos\Pedidos a proveedor\Model\schPedidosProveedorClient_Intf.pas', schPedidosProveedorClient_Intf in '..\Modulos\Pedidos a proveedor\Model\schPedidosProveedorClient_Intf.pas',
schPedidosProveedorServer_Intf in '..\Modulos\Pedidos a proveedor\Model\schPedidosProveedorServer_Intf.pas', schPedidosProveedorServer_Intf in '..\Modulos\Pedidos a proveedor\Model\schPedidosProveedorServer_Intf.pas',
schPresupuestosClienteClient_Intf in '..\Modulos\Presupuestos de cliente\Model\schPresupuestosClienteClient_Intf.pas',
schPresupuestosClienteServer_Intf in '..\Modulos\Presupuestos de cliente\Model\schPresupuestosClienteServer_Intf.pas',
schRecibosClienteClient_Intf in '..\Modulos\Recibos de cliente\Model\schRecibosClienteClient_Intf.pas', schRecibosClienteClient_Intf in '..\Modulos\Recibos de cliente\Model\schRecibosClienteClient_Intf.pas',
schRecibosClienteServer_Intf in '..\Modulos\Recibos de cliente\Model\schRecibosClienteServer_Intf.pas', schRecibosClienteServer_Intf in '..\Modulos\Recibos de cliente\Model\schRecibosClienteServer_Intf.pas',
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',
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',
schArticulosClient_Intf in '..\Modulos\Articulos\Model\schArticulosClient_Intf.pas',
schArticulosServer_Intf in '..\Modulos\Articulos\Model\schArticulosServer_Intf.pas',
schPresupuestosClienteClient_Intf in '..\Modulos\Presupuestos de cliente\Model\schPresupuestosClienteClient_Intf.pas',
schPresupuestosClienteServer_Intf in '..\Modulos\Presupuestos de cliente\Model\schPresupuestosClienteServer_Intf.pas',
schContratosClienteClient_Intf in '..\Modulos\Contratos de cliente\Model\schContratosClienteClient_Intf.pas', schContratosClienteClient_Intf in '..\Modulos\Contratos de cliente\Model\schContratosClienteClient_Intf.pas',
schContratosClienteServer_Intf in '..\Modulos\Contratos de cliente\Model\schContratosClienteServer_Intf.pas'; schContratosClienteServer_Intf in '..\Modulos\Contratos de cliente\Model\schContratosClienteServer_Intf.pas';

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">5</VersionInfo><VersionInfo Name="Release">3</VersionInfo><VersionInfo Name="Build">0</VersionInfo><VersionInfo Name="Debug">False</VersionInfo><VersionInfo Name="PreRelease">False</VersionInfo><VersionInfo Name="Special">False</VersionInfo><VersionInfo Name="Private">False</VersionInfo><VersionInfo Name="DLL">False</VersionInfo><VersionInfo Name="Locale">3082</VersionInfo><VersionInfo Name="CodePage">1252</VersionInfo></VersionInfo><VersionInfoKeys><VersionInfoKeys Name="CompanyName">Rodax Software S.L.</VersionInfoKeys><VersionInfoKeys Name="FileDescription"></VersionInfoKeys><VersionInfoKeys Name="FileVersion">2.5.3.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.5.3.0</VersionInfoKeys><VersionInfoKeys Name="Comments"></VersionInfoKeys><VersionInfoKeys Name="CompileDate">miércoles, 29 de febrero de 2012 16:51</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">5</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.5.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.5.4.0</VersionInfoKeys><VersionInfoKeys Name="Comments"></VersionInfoKeys><VersionInfoKeys Name="CompileDate">miércoles, 11 de julio de 2012 10:34</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.