Acana_Interiorismo/FactuGES2
2
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Tarea #1072 -> Guardar el estado de las columnas del grid de detalles

Browse Source 
Tarea #1078 -> Poner una columna de VISIBLE en los conceptos de presupuestos y contratos

git-svn-id: https://192.168.0.254/svn/Proyectos.Acana_FactuGES2/trunk@571 f4e31baf-9722-1c47-927c-6f952f962d4b
This commit is contained in:
David Arranz 2012-09-14 16:53:12 +00:00
parent 5478d242ac
commit 1728a71067
39 changed files with 1023 additions and 403 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

159
Source/Base/Base.dproj
View File

@ -44,69 +44,6 @@
<Borland.ProjectType>Package</Borland.ProjectType> <Borland.ProjectType>Package</Borland.ProjectType>
<BorlandProject> <BorlandProject>
<BorlandProject><Delphi.Personality><Parameters><Parameters Name="UseLauncher">False</Parameters><Parameters Name="LoadAllSymbols">True</Parameters><Parameters Name="LoadUnspecifiedSymbols">False</Parameters></Parameters><Package_Options><Package_Options Name="PackageDescription">Libreria base de FactuGES</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><Excluded_Packages> <BorlandProject><Delphi.Personality><Parameters><Parameters Name="UseLauncher">False</Parameters><Parameters Name="LoadAllSymbols">True</Parameters><Parameters Name="LoadUnspecifiedSymbols">False</Parameters></Parameters><Package_Options><Package_Options Name="PackageDescription">Libreria base de FactuGES</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><Excluded_Packages>
<Excluded_Packages Name="$(BDS)\Bin\dclintraweb_90_100.bpl">VCL for the Web Design Package for CodeGear RAD Studio</Excluded_Packages> <Excluded_Packages Name="$(BDS)\Bin\dclintraweb_90_100.bpl">VCL for the Web Design Package for CodeGear RAD Studio</Excluded_Packages>
<Excluded_Packages Name="$(BDS)\bin\dclwebsnap100.bpl">CodeGear WebSnap Components</Excluded_Packages> <Excluded_Packages Name="$(BDS)\bin\dclwebsnap100.bpl">CodeGear WebSnap Components</Excluded_Packages>
<Excluded_Packages Name="$(BDS)\bin\dclsoap100.bpl">CodeGear SOAP Components</Excluded_Packages> <Excluded_Packages Name="$(BDS)\bin\dclsoap100.bpl">CodeGear SOAP Components</Excluded_Packages>
@ -121,55 +58,55 @@
<DelphiCompile Include="Base.dpk"> <DelphiCompile Include="Base.dpk">
<MainSource>MainSource</MainSource> <MainSource>MainSource</MainSource>
</DelphiCompile> </DelphiCompile>
<DCCReference Include="..\Modulos\Presupuestos de cliente\Views\adortl.dcp" />
<DCCReference Include="..\Modulos\Presupuestos de cliente\Views\cxDataD11.dcp" />
<DCCReference Include="..\Modulos\Presupuestos de cliente\Views\cxEditorsD11.dcp" />
<DCCReference Include="..\Modulos\Presupuestos de cliente\Views\cxExtEditorsD11.dcp" />
<DCCReference Include="..\Modulos\Presupuestos de cliente\Views\cxGridD11.dcp" />
<DCCReference Include="..\Modulos\Presupuestos de cliente\Views\cxLibraryD11.dcp" />
<DCCReference Include="..\Modulos\Presupuestos de cliente\Views\cxPageControlD11.dcp" />
<DCCReference Include="..\Modulos\Presupuestos de cliente\Views\DataAbstract_Core_D11.dcp" />
<DCCReference Include="..\Modulos\Presupuestos de cliente\Views\dbrtl.dcp" />
<DCCReference Include="..\Modulos\Presupuestos de cliente\Views\dclIndyCore.dcp" />
<DCCReference Include="..\Modulos\Presupuestos de cliente\Views\designide.dcp" />
<DCCReference Include="..\Modulos\Presupuestos de cliente\Views\dsnap.dcp" />
<DCCReference Include="..\Modulos\Presupuestos de cliente\Views\dxGDIPlusD11.dcp" />
<DCCReference Include="..\Modulos\Presupuestos de cliente\Views\dxPSCoreD11.dcp" />
<DCCReference Include="..\Modulos\Presupuestos de cliente\Views\dxThemeD11.dcp" />
<DCCReference Include="..\Modulos\Presupuestos de cliente\Views\GUISDK_D11R.dcp" />
<DCCReference Include="..\Modulos\Presupuestos de cliente\Views\IndyCore.dcp" />
<DCCReference Include="..\Modulos\Presupuestos de cliente\Views\IndyProtocols.dcp" />
<DCCReference Include="..\Modulos\Presupuestos de cliente\Views\IndySystem.dcp" />
<DCCReference Include="..\Modulos\Presupuestos de cliente\Views\Jcl.dcp" />
<DCCReference Include="..\Modulos\Presupuestos de cliente\Views\JclVcl.dcp" />
<DCCReference Include="..\Modulos\Presupuestos de cliente\Views\JSDialog100.dcp" />
<DCCReference Include="..\Modulos\Presupuestos de cliente\Views\JvCmpD11R.dcp" />
<DCCReference Include="..\Modulos\Presupuestos de cliente\Views\JvCoreD11R.dcp" />
<DCCReference Include="..\Modulos\Presupuestos de cliente\Views\JvCtrlsD11R.dcp" />
<DCCReference Include="..\Modulos\Presupuestos de cliente\Views\JvDlgsD11R.dcp" />
<DCCReference Include="..\Modulos\Presupuestos de cliente\Views\JvMMD11R.dcp" />
<DCCReference Include="..\Modulos\Presupuestos de cliente\Views\JvNetD11R.dcp" />
<DCCReference Include="..\Modulos\Presupuestos de cliente\Views\JvPageCompsD11R.dcp" />
<DCCReference Include="..\Modulos\Presupuestos de cliente\Views\JvStdCtrlsD11R.dcp" />
<DCCReference Include="..\Modulos\Presupuestos de cliente\Views\JvSystemD11R.dcp" />
<DCCReference Include="..\Modulos\Presupuestos de cliente\Views\pckMD5.dcp" />
<DCCReference Include="..\Modulos\Presupuestos de cliente\Views\pckUCDataConnector.dcp" />
<DCCReference Include="..\Modulos\Presupuestos de cliente\Views\pckUserControl_RT.dcp" />
<DCCReference Include="..\Modulos\Presupuestos de cliente\Views\PluginSDK_D11R.dcp" />
<DCCReference Include="..\Modulos\Presupuestos de cliente\Views\PngComponentsD10.dcp" />
<DCCReference Include="..\Modulos\Presupuestos de cliente\Views\PNG_D10.dcp" />
<DCCReference Include="..\Modulos\Presupuestos de cliente\Views\RemObjects_Core_D11.dcp" />
<DCCReference Include="..\Modulos\Presupuestos de cliente\Views\rtl.dcp" />
<DCCReference Include="..\Modulos\Presupuestos de cliente\Views\TB2k_D10.dcp" />
<DCCReference Include="..\Modulos\Presupuestos de cliente\Views\tbx_d10.dcp" />
<DCCReference Include="..\Modulos\Presupuestos de cliente\Views\vcl.dcp" />
<DCCReference Include="..\Modulos\Presupuestos de cliente\Views\vclactnband.dcp" />
<DCCReference Include="..\Modulos\Presupuestos de cliente\Views\vcldb.dcp" />
<DCCReference Include="..\Modulos\Presupuestos de cliente\Views\vcljpg.dcp" />
<DCCReference Include="..\Modulos\Presupuestos de cliente\Views\VclSmp.dcp" />
<DCCReference Include="..\Modulos\Presupuestos de cliente\Views\vclx.dcp" />
<DCCReference Include="..\Modulos\Presupuestos de cliente\Views\xmlrtl.dcp" />
<DCCReference Include="..\Servicios\FactuGES_Intf.pas" /> <DCCReference Include="..\Servicios\FactuGES_Intf.pas" />
<DCCReference Include="C:\Documents and Settings\Usuario\adortl.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\cxDataD11.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\cxEditorsD11.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\cxExtEditorsD11.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\cxGridD11.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\cxLibraryD11.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\cxPageControlD11.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\DataAbstract_Core_D11.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\dbrtl.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\dclIndyCore.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\designide.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\dsnap.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\dxGDIPlusD11.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\dxPSCoreD11.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\dxThemeD11.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\GUISDK_D11R.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\IndyCore.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\IndyProtocols.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\IndySystem.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\Jcl.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\JclVcl.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\JSDialog100.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\JvCmpD11R.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\JvCoreD11R.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\JvCtrlsD11R.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\JvDlgsD11R.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\JvMMD11R.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\JvNetD11R.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\JvPageCompsD11R.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\JvStdCtrlsD11R.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\JvSystemD11R.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\pckMD5.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\pckUCDataConnector.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\pckUserControl_RT.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\PluginSDK_D11R.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\PngComponentsD10.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\PNG_D10.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\RemObjects_Core_D11.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\rtl.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\TB2k_D10.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\tbx_d10.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\vcl.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\vclactnband.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\vcldb.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\vcljpg.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\VclSmp.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\vclx.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\xmlrtl.dcp" />
<DCCReference Include="Conexion\uConfigurarConexion.pas"> <DCCReference Include="Conexion\uConfigurarConexion.pas">
<Form>fConfigurarConexion</Form> <Form>fConfigurarConexion</Form>
<DesignClass>TForm</DesignClass> <DesignClass>TForm</DesignClass>

1
Source/Base/Utiles/uCalculosUtils.pas
View File

@ -17,6 +17,7 @@ const
CAMPO_DESCUENTO = 'DESCUENTO'; CAMPO_DESCUENTO = 'DESCUENTO';
CAMPO_IMPORTE_PORTE = 'IMPORTE_PORTE'; CAMPO_IMPORTE_PORTE = 'IMPORTE_PORTE';
CAMPO_VISIBLE = 'VISIBLE'; //Se usará para saber si un concepto se debe sumar o no CAMPO_VISIBLE = 'VISIBLE'; //Se usará para saber si un concepto se debe sumar o no
CAMPO_VISIBLE2 = 'VISIBLE2'; //Se usará para saber si un concepto se muestra o no
function CalcularLineaConcepto (const ADataTable : TDADataTable): Double; function CalcularLineaConcepto (const ADataTable : TDADataTable): Double;
procedure ValidarCamposLineaConcepto(DataTable: TDADataTable); procedure ValidarCamposLineaConcepto(DataTable: TDADataTable);

4
Source/Cliente/FactuGES.dproj
View File

@ -52,7 +52,9 @@
<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">0</VersionInfo><VersionInfo Name="Build">0</VersionInfo><VersionInfo Name="Debug">False</VersionInfo><VersionInfo Name="PreRelease">False</VersionInfo><VersionInfo Name="Special">False</VersionInfo><VersionInfo Name="Private">False</VersionInfo><VersionInfo Name="DLL">False</VersionInfo><VersionInfo Name="Locale">3082</VersionInfo><VersionInfo Name="CodePage">1252</VersionInfo></VersionInfo><VersionInfoKeys><VersionInfoKeys Name="CompanyName">Rodax Software S.L.</VersionInfoKeys><VersionInfoKeys Name="FileDescription"></VersionInfoKeys><VersionInfoKeys Name="FileVersion">2.5.0.0</VersionInfoKeys><VersionInfoKeys Name="InternalName">FactuGES</VersionInfoKeys><VersionInfoKeys Name="LegalCopyright"></VersionInfoKeys><VersionInfoKeys Name="LegalTrademarks"></VersionInfoKeys><VersionInfoKeys Name="OriginalFilename"></VersionInfoKeys><VersionInfoKeys Name="ProductName">FactuGES</VersionInfoKeys><VersionInfoKeys Name="ProductVersion">2.5.0.0</VersionInfoKeys><VersionInfoKeys Name="Comments"></VersionInfoKeys></VersionInfoKeys><Excluded_Packages> <BorlandProject><Delphi.Personality><Parameters><Parameters Name="UseLauncher">False</Parameters><Parameters Name="LoadAllSymbols">True</Parameters><Parameters Name="LoadUnspecifiedSymbols">False</Parameters></Parameters><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">1</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.1.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.1.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>

8
Source/Cliente/FactuGES.rc
View File

@ -1,7 +1,7 @@
MAINICON ICON "C:\Codigo Acana\Resources\Iconos\Factuges.ico" MAINICON ICON "C:\Codigo Acana\Resources\Iconos\Factuges.ico"
1 VERSIONINFO 1 VERSIONINFO
FILEVERSION 2,5,0,0 FILEVERSION 2,5,1,0
PRODUCTVERSION 2,5,0,0 PRODUCTVERSION 2,5,1,0
FILEFLAGSMASK 0x3FL FILEFLAGSMASK 0x3FL
FILEFLAGS 0x00L FILEFLAGS 0x00L
FILEOS 0x40004L FILEOS 0x40004L
@ -13,10 +13,10 @@ BEGIN
BLOCK "0C0A04E4" BLOCK "0C0A04E4"
BEGIN BEGIN
VALUE "CompanyName", "Rodax Software S.L.\0" VALUE "CompanyName", "Rodax Software S.L.\0"
VALUE "FileVersion", "2.5.0.0\0" VALUE "FileVersion", "2.5.1.0\0"
VALUE "InternalName", "FactuGES\0" VALUE "InternalName", "FactuGES\0"
VALUE "ProductName", "FactuGES\0" VALUE "ProductName", "FactuGES\0"
VALUE "ProductVersion", "2.5.0.0\0" VALUE "ProductVersion", "2.5.1.0\0"
END END
END END
BLOCK "VarFileInfo" BLOCK "VarFileInfo"

BIN
Source/Cliente/FactuGES.res
View File

Binary file not shown.

56
Source/GUIBase/GUIBase.dproj
View File

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

50
Source/GUIBase/uViewDetallesBase.dfm
View File

@ -64,7 +64,7 @@ inherited frViewDetallesBase: TfrViewDetallesBase
DroppedDownWidth = 145 DroppedDownWidth = 145
MaxMRUCount = 0 MaxMRUCount = 0
FontName = 'Tahoma' FontName = 'Tahoma'
ItemIndex = 35 ItemIndex = 40
Options = [foTrueTypeOnly, foNoOEMFonts, foScalableOnly, foWysiWyg] Options = [foTrueTypeOnly, foNoOEMFonts, foScalableOnly, foWysiWyg]
Sorted = True Sorted = True
TabOrder = 2 TabOrder = 2
@ -328,6 +328,54 @@ inherited frViewDetallesBase: TfrViewDetallesBase
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Width = 25 Width = 25
end end
object cxGridViewVISIBLE2: TcxGridDBColumn
Caption = #191'Visible?'
DataBinding.FieldName = 'VISIBLE2'
PropertiesClassName = 'TcxCheckBoxProperties'
Properties.Alignment = taCenter
Properties.DisplayChecked = '1'
Properties.DisplayUnchecked = '0'
Properties.Glyph.Data = {
92030000424D9203000000000000920100002800000020000000100000000100
08000000000000020000120B0000120B0000570000005700000000000000FFFF
FF0040384000703840008048500090586000C0606000A0505000804040006030
30009050500070404000A060600090606000A0707000B0808000C09090004030
3000E0B0B000B0909000FFF0F000FF787000E0787000C0686000FF9890009048
4000A0585000D0888000E0989000E0706000FF80700080484000A0686000FFA0
9000FF887000B060500070484000FFB0A000C0989000D0A8A000E0B8B000FF98
8000A0605000FFC0B000F0C0B00080686000F0D8D000B0908000E0C8B000E0D8
D000FFE0C000FFF8F000F0E0C000FFF0D000FFF8E00020283000FEFEFE00FAFA
FA00F7F7F700F3F3F300F1F1F100F0F0F000EDEDED00EAEAEA00E7E7E700E6E6
E600E3E3E300E0E0E000DADADA00D7D7D700D3D3D300D0D0D000CDCDCD00C9C9
C900C6C6C600C4C4C400C3C3C300C0C0C000BEBEBE00BCBCBC00B9B9B900B7B7
B700B3B3B300AEAEAE00ACACAC00A6A6A600FFFFFF0056565656565656565656
5656565656565656565656565656565656565656565656565656565656565656
5656565656565656565656565656565656565656565656565656565656565656
5656565656565656565656565656565656565656565656565656565656565656
5656565656565656565656565656565656565656565656565656404040444C4C
463D5656565656565656122830262D2D2F325656565644444444433E4145474A
50463B404456101010102734181D061A242F35122656564646443A3F434A544C
49493A3C4646560F0F10362C1507110A2320362E0F0F56564845394341535554
44473944484856560E13331C21023711161714260E0E5656564A3E403E38544A
4344464B4B565656560D31122B01111A1E1B0F050556565656564E49423F4343
434A4E4E565656565656040C2925221E1E2A04045656565656565650504F4D4F
50505056565656565656560B0B1F19080B0B0B56565656565656565652505151
505656565656565656565656090B03030B565656565656565656565656565656
5656565656565656565656565656565656565656565656565656565656565656
5656565656565656565656565656565656565656565656565656565656565656
5656565656565656565656565656565656565656565656565656565656565656
56565656565656565656565656565656565656565656}
Properties.GlyphCount = 2
Properties.ImmediatePost = True
Properties.NullStyle = nssUnchecked
Properties.ValueChecked = 1
Properties.ValueUnchecked = 0
Visible = False
FooterAlignmentHorz = taCenter
HeaderAlignmentHorz = taCenter
VisibleForCustomization = False
Width = 25
end
end end
object cxGridLevel: TcxGridLevel object cxGridLevel: TcxGridLevel
GridView = cxGridView GridView = cxGridView

52
Source/GUIBase/uViewDetallesBase.pas
View File

@ -23,6 +23,9 @@ type
procedure SaveGridStatus; procedure SaveGridStatus;
procedure RestoreGridStatus; procedure RestoreGridStatus;
procedure RestoreFromIniFile;
procedure StoreToIniFile;
procedure BeginUpdate; procedure BeginUpdate;
procedure EndUpdate; procedure EndUpdate;
@ -108,6 +111,7 @@ type
TBXItem13: TTBXItem; TBXItem13: TTBXItem;
cxStyle_DESCUENTO: TcxStyle; cxStyle_DESCUENTO: TcxStyle;
cxStyleDesactivado: TcxStyle; cxStyleDesactivado: TcxStyle;
cxGridViewVISIBLE2: TcxGridDBColumn;
procedure actAnadirExecute(Sender: TObject); procedure actAnadirExecute(Sender: TObject);
procedure actEliminarExecute(Sender: TObject); procedure actEliminarExecute(Sender: TObject);
@ -176,6 +180,8 @@ type
procedure EndUpdate; procedure EndUpdate;
procedure SaveGridStatus; procedure SaveGridStatus;
procedure RestoreGridStatus; procedure RestoreGridStatus;
procedure RestoreFromIniFile;
procedure StoreToIniFile;
procedure ExpandirTodo; procedure ExpandirTodo;
procedure ContraerTodo; procedure ContraerTodo;
procedure AjustarAncho; procedure AjustarAncho;
@ -192,7 +198,7 @@ implementation
{$R *.dfm} {$R *.dfm}
uses uses
uCalculosUtils, uSistemaFunc; uCalculosUtils, uSistemaFunc, SHFolder, uAppInfoUtils;
function EnumFontsProc(var LogFont: TLogFont; var TextMetric: TTextMetric; function EnumFontsProc(var LogFont: TLogFont; var TextMetric: TTextMetric;
FontType: Integer; Data: Pointer): Integer; stdcall; FontType: Integer; Data: Pointer): Integer; stdcall;
@ -348,6 +354,7 @@ procedure TfrViewDetallesBase.CustomViewDestroy(Sender: TObject);
begin begin
inherited; inherited;
CurEdit := Nil; CurEdit := Nil;
StoreToIniFile;
end; end;
procedure TfrViewDetallesBase.cxGridViewEditing(Sender: TcxCustomGridTableView; procedure TfrViewDetallesBase.cxGridViewEditing(Sender: TcxCustomGridTableView;
@ -630,6 +637,24 @@ begin
end; end;
end; end;
procedure TfrViewDetallesBase.RestoreFromIniFile;
var
AIniFile : String;
begin
inherited;
if Assigned(_FocusedView) then
begin
AIniFile := GetSpecialFolderPath(CSIDL_APPDATA); //[Current Users]\Application Data
AIniFile := AIniFile + PathDelim + 'Rodax Software' + PathDelim + GetAppName + PathDelim;
if not DirectoryExists(AIniFile) then
ForceDirectories(AIniFile);
_FocusedView.RestoreFromIniFile(AIniFile + 'grid.xml', True, False, []);
end;
end;
procedure TfrViewDetallesBase.RestoreGridStatus; procedure TfrViewDetallesBase.RestoreGridStatus;
begin begin
if Assigned(FGridStatus) and (not IsEmpty) then if Assigned(FGridStatus) and (not IsEmpty) then
@ -698,11 +723,34 @@ procedure TfrViewDetallesBase.SetDetalles(const Value: IDAStronglyTypedDataTable
begin begin
FDetalles := Value; FDetalles := Value;
if Assigned(FDetalles) then if Assigned(FDetalles) then
DADataSource.DataTable := FDetalles.DataTable begin
DADataSource.DataTable := FDetalles.DataTable;
RestoreFromIniFile; // la restauración de las columnas sólo funciona cuando hay datos.
end
else else
DADataSource.DataTable := NIL; DADataSource.DataTable := NIL;
end; end;
procedure TfrViewDetallesBase.StoreToIniFile;
var
AIniFile : String;
begin
inherited;
if Assigned(_FocusedView) then
begin
AIniFile := GetSpecialFolderPath(CSIDL_APPDATA); //[Current Users]\Application Data
AIniFile := AIniFile + PathDelim + 'Rodax Software' + PathDelim + GetAppName + PathDelim;
if not DirectoryExists(AIniFile) then
ForceDirectories(AIniFile);
_FocusedView.StoreToIniFile(AIniFile + 'grid.xml', False, []);
// _FocusedView.StoreToRegistry(Path + '\\GridSettings\\' + Self.Name, False, [], Self.Name);
end;
end;
procedure TfrViewDetallesBase.TBXItem13Click(Sender: TObject); procedure TfrViewDetallesBase.TBXItem13Click(Sender: TObject);
begin begin
inherited; inherited;

2
Source/GUIBase/uViewDocumentos.pas
View File

@ -220,8 +220,6 @@ end;
function TfrViewDocumentos.AsignarImagen(ANombreFichero: String): Integer; function TfrViewDocumentos.AsignarImagen(ANombreFichero: String): Integer;
begin begin
Result := -1;
if (LOWERCASE(ExtractFileExt(ANombreFichero)) = '.txt') if (LOWERCASE(ExtractFileExt(ANombreFichero)) = '.txt')
or (LOWERCASE(ExtractFileExt(ANombreFichero)) = '.ini') or (LOWERCASE(ExtractFileExt(ANombreFichero)) = '.ini')
or (LOWERCASE(ExtractFileExt(ANombreFichero)) = '.sql') then or (LOWERCASE(ExtractFileExt(ANombreFichero)) = '.sql') then

18
Source/Informes/InfContratoCliente.fr3
View File

File diff suppressed because one or more lines are too long

16
Source/Informes/InfPresupuestoCliente.fr3
View File

File diff suppressed because one or more lines are too long

16
Source/Modulos/Contratos de cliente/Controller/ContratosCliente_controller.dproj
View File

@ -49,18 +49,18 @@
<DelphiCompile Include="ContratosCliente_controller.dpk"> <DelphiCompile Include="ContratosCliente_controller.dpk">
<MainSource>MainSource</MainSource> <MainSource>MainSource</MainSource>
</DelphiCompile> </DelphiCompile>
<DCCReference Include="..\Articulos_controller.dcp" />
<DCCReference Include="..\Contactos_controller.dcp" />
<DCCReference Include="..\ContratosCliente_data.dcp" />
<DCCReference Include="..\ContratosCliente_model.dcp" />
<DCCReference Include="..\GestorDocumentos_controller.dcp" />
<DCCReference Include="..\GUIBase.dcp" />
<DCCReference Include="..\PresupuestosCliente_controller.dcp" />
<DCCReference Include="..\PresupuestosCliente_model.dcp" />
<DCCReference Include="uArticulosContratoClienteController.pas" /> <DCCReference Include="uArticulosContratoClienteController.pas" />
<DCCReference Include="uContratosClienteController.pas" /> <DCCReference Include="uContratosClienteController.pas" />
<DCCReference Include="uContratosClienteReportController.pas" /> <DCCReference Include="uContratosClienteReportController.pas" />
<DCCReference Include="uDetallesContratoClienteController.pas" /> <DCCReference Include="uDetallesContratoClienteController.pas" />
<DCCReference Include="View\Articulos_controller.dcp" />
<DCCReference Include="View\Contactos_controller.dcp" />
<DCCReference Include="View\ContratosCliente_data.dcp" />
<DCCReference Include="View\ContratosCliente_model.dcp" />
<DCCReference Include="View\GestorDocumentos_controller.dcp" />
<DCCReference Include="View\GUIBase.dcp" />
<DCCReference Include="View\PresupuestosCliente_controller.dcp" />
<DCCReference Include="View\PresupuestosCliente_model.dcp" />
<DCCReference Include="View\uIEditorContratoCliente.pas" /> <DCCReference Include="View\uIEditorContratoCliente.pas" />
<DCCReference Include="View\uIEditorContratosCliente.pas" /> <DCCReference Include="View\uIEditorContratosCliente.pas" />
<DCCReference Include="View\uIEditorContratosClienteBeneficios.pas" /> <DCCReference Include="View\uIEditorContratosClienteBeneficios.pas" />

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

@ -18,6 +18,7 @@ type
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);
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
procedure SetVisible2(ADetalles: IDAStronglyTypedDataTable;const AVisible: Integer;const Orden: Integer);
end; end;
TDetallesContratoClienteController = class(TControllerDetallesArticulos, IDetallesContratoClienteController) TDetallesContratoClienteController = class(TControllerDetallesArticulos, IDetallesContratoClienteController)
@ -50,6 +51,7 @@ type
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
procedure SetVisible2(ADetalles: IDAStronglyTypedDataTable;const AVisible: Integer;const Orden: Integer);
end; end;
implementation implementation
@ -176,6 +178,12 @@ begin
FDetallesPresupuestoCliente.SetVisible(ADetalles, AVisible, Orden); FDetallesPresupuestoCliente.SetVisible(ADetalles, AVisible, Orden);
end; end;
procedure TDetallesContratoClienteController.SetVisible2(
ADetalles: IDAStronglyTypedDataTable; const AVisible, Orden: Integer);
begin
FDetallesPresupuestoCliente.SetVisible2(ADetalles, AVisible, Orden);
end;
procedure TDetallesContratoClienteController.ValidarCampos(DataTable: TDADataTable); procedure TDetallesContratoClienteController.ValidarCampos(DataTable: TDADataTable);
begin begin
inherited; inherited;

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

@ -379,6 +379,10 @@ inherited DataModuleContratosCliente: TDataModuleContratosCliente
Name = 'IMPORTE_TOTAL' Name = 'IMPORTE_TOTAL'
DataType = datCurrency DataType = datCurrency
end end
item
Name = 'VISIBLE2'
DataType = datSmallInt
end
item item
Name = 'VISIBLE' Name = 'VISIBLE'
DataType = datSmallInt DataType = datSmallInt

77
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 = '{77A5C873-380F-4698-9E11-F611CF7B4D6A}'; RID_Valores = '{A3223E5F-2D10-45AF-8361-05537914212E}';
RID_Propiedades = '{486DF363-F3FC-4540-B80F-3D6ECD60057F}'; RID_Propiedades = '{506EF0BF-FB5A-4737-A7FD-09951FD2C7B8}';
RID_ListaAnosContratos = '{5F6BBC0C-7DD6-4B5A-93C3-E0A70687F51B}'; RID_ListaAnosContratos = '{578CAF17-79FA-448E-BDEE-1FC0F15EFC68}';
RID_ContratosClienteBeneficios = '{5001FCC6-7A3E-420B-A362-C66022A8D4F9}'; RID_ContratosClienteBeneficios = '{6A8C9891-3518-459A-969C-5760CBFDA3D3}';
RID_ContratosCliente = '{ED10394C-954E-4012-88CC-B63CAC527A63}'; RID_ContratosCliente = '{D4734C94-87F5-4A8B-A8FC-BBBF6121322C}';
RID_TiposCapitulos = '{2DF18C63-1821-49E9-AC1D-634E5396332E}'; RID_TiposCapitulos = '{D2CDA279-9E7E-412A-901B-92F2F70555BA}';
RID_ContratosCliente_Detalles = '{FE59D0AE-E7D9-4742-A444-A90ACC89B005}'; RID_ContratosCliente_Detalles = '{EA4FF513-3EDB-4F49-9025-2C5011436584}';
{ Data table names } { Data table names }
nme_Valores = 'Valores'; nme_Valores = 'Valores';
@ -198,6 +198,7 @@ const
fld_ContratosCliente_DetallesCANTIDAD = 'CANTIDAD'; fld_ContratosCliente_DetallesCANTIDAD = 'CANTIDAD';
fld_ContratosCliente_DetallesIMPORTE_UNIDAD = 'IMPORTE_UNIDAD'; fld_ContratosCliente_DetallesIMPORTE_UNIDAD = 'IMPORTE_UNIDAD';
fld_ContratosCliente_DetallesIMPORTE_TOTAL = 'IMPORTE_TOTAL'; fld_ContratosCliente_DetallesIMPORTE_TOTAL = 'IMPORTE_TOTAL';
fld_ContratosCliente_DetallesVISIBLE2 = 'VISIBLE2';
fld_ContratosCliente_DetallesVISIBLE = 'VISIBLE'; fld_ContratosCliente_DetallesVISIBLE = 'VISIBLE';
fld_ContratosCliente_DetallesID_ARTICULO = 'ID_ARTICULO'; fld_ContratosCliente_DetallesID_ARTICULO = 'ID_ARTICULO';
fld_ContratosCliente_DetallesTIPO_ARTICULO = 'TIPO_ARTICULO'; fld_ContratosCliente_DetallesTIPO_ARTICULO = 'TIPO_ARTICULO';
@ -216,18 +217,19 @@ const
idx_ContratosCliente_DetallesCANTIDAD = 6; idx_ContratosCliente_DetallesCANTIDAD = 6;
idx_ContratosCliente_DetallesIMPORTE_UNIDAD = 7; idx_ContratosCliente_DetallesIMPORTE_UNIDAD = 7;
idx_ContratosCliente_DetallesIMPORTE_TOTAL = 8; idx_ContratosCliente_DetallesIMPORTE_TOTAL = 8;
idx_ContratosCliente_DetallesVISIBLE = 9; idx_ContratosCliente_DetallesVISIBLE2 = 9;
idx_ContratosCliente_DetallesID_ARTICULO = 10; idx_ContratosCliente_DetallesVISIBLE = 10;
idx_ContratosCliente_DetallesTIPO_ARTICULO = 11; idx_ContratosCliente_DetallesID_ARTICULO = 11;
idx_ContratosCliente_DetallesDESCUENTO = 12; idx_ContratosCliente_DetallesTIPO_ARTICULO = 12;
idx_ContratosCliente_DetallesIMPORTE_PORTE = 13; idx_ContratosCliente_DetallesDESCUENTO = 13;
idx_ContratosCliente_DetallesREFERENCIA = 14; idx_ContratosCliente_DetallesIMPORTE_PORTE = 14;
idx_ContratosCliente_DetallesREFERENCIA_PROVEEDOR = 15; idx_ContratosCliente_DetallesREFERENCIA = 15;
idx_ContratosCliente_DetallesREFERENCIA_PROVEEDOR = 16;
type type
{ IValores } { IValores }
IValores = interface(IDAStronglyTypedDataTable) IValores = interface(IDAStronglyTypedDataTable)
['{DFCE6325-A26B-4ABC-B445-11FC8A0B0EA5}'] ['{C2EFDF3D-8F14-4A69-8754-E2384C48DC25}']
{ Property getters and setters } { Property getters and setters }
function GetIDValue: Integer; function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer); procedure SetIDValue(const aValue: Integer);
@ -286,7 +288,7 @@ type
{ IPropiedades } { IPropiedades }
IPropiedades = interface(IDAStronglyTypedDataTable) IPropiedades = interface(IDAStronglyTypedDataTable)
['{3905AFC7-7942-4A46-9780-838277847C23}'] ['{75054379-E40C-4CD7-96C1-46C26308E523}']
{ Property getters and setters } { Property getters and setters }
function GetIDValue: Integer; function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer); procedure SetIDValue(const aValue: Integer);
@ -345,7 +347,7 @@ type
{ IListaAnosContratos } { IListaAnosContratos }
IListaAnosContratos = interface(IDAStronglyTypedDataTable) IListaAnosContratos = interface(IDAStronglyTypedDataTable)
['{50911EB2-C48F-4B1B-B3B5-2AE0C9EF69E9}'] ['{417E2367-4285-4DF4-9854-1E44C8A5008B}']
{ Property getters and setters } { Property getters and setters }
function GetANOValue: String; function GetANOValue: String;
procedure SetANOValue(const aValue: String); procedure SetANOValue(const aValue: String);
@ -380,7 +382,7 @@ type
{ IContratosClienteBeneficios } { IContratosClienteBeneficios }
IContratosClienteBeneficios = interface(IDAStronglyTypedDataTable) IContratosClienteBeneficios = interface(IDAStronglyTypedDataTable)
['{E857F9D0-94BB-4BAD-8CC8-5BBBAFDB6B52}'] ['{F9A3D0AB-50BF-4390-A1D7-228F020BF1BD}']
{ Property getters and setters } { Property getters and setters }
function GetIDValue: Integer; function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer); procedure SetIDValue(const aValue: Integer);
@ -535,7 +537,7 @@ type
{ IContratosCliente } { IContratosCliente }
IContratosCliente = interface(IDAStronglyTypedDataTable) IContratosCliente = interface(IDAStronglyTypedDataTable)
['{918B08A5-1B87-4AC4-A9E9-AC5F96815EB0}'] ['{135031F8-11AD-44F9-8712-F24C96C7D409}']
{ Property getters and setters } { Property getters and setters }
function GetIDValue: Integer; function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer); procedure SetIDValue(const aValue: Integer);
@ -1101,7 +1103,7 @@ type
} }
{ ITiposCapitulos } { ITiposCapitulos }
ITiposCapitulos = interface(IDAStronglyTypedDataTable) ITiposCapitulos = interface(IDAStronglyTypedDataTable)
['{48215290-558C-4E03-B941-E5C5162F335F}'] ['{447F4E62-0CA7-42E6-A436-174E923F5865}']
{ Property getters and setters } { Property getters and setters }
function GetIDValue: Integer; function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer); procedure SetIDValue(const aValue: Integer);
@ -1196,7 +1198,7 @@ type
{ IContratosCliente_Detalles } { IContratosCliente_Detalles }
IContratosCliente_Detalles = interface(IDAStronglyTypedDataTable) IContratosCliente_Detalles = interface(IDAStronglyTypedDataTable)
['{202C1D1C-1786-4027-A601-61B2DF617286}'] ['{642FAB02-5C40-4C1C-9F3D-010C305C3544}']
{ Property getters and setters } { Property getters and setters }
function GetIDValue: Integer; function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer); procedure SetIDValue(const aValue: Integer);
@ -1234,6 +1236,10 @@ type
procedure SetIMPORTE_TOTALValue(const aValue: Currency); procedure SetIMPORTE_TOTALValue(const aValue: Currency);
function GetIMPORTE_TOTALIsNull: Boolean; function GetIMPORTE_TOTALIsNull: Boolean;
procedure SetIMPORTE_TOTALIsNull(const aValue: Boolean); procedure SetIMPORTE_TOTALIsNull(const aValue: Boolean);
function GetVISIBLE2Value: SmallInt;
procedure SetVISIBLE2Value(const aValue: SmallInt);
function GetVISIBLE2IsNull: Boolean;
procedure SetVISIBLE2IsNull(const aValue: Boolean);
function GetVISIBLEValue: SmallInt; function GetVISIBLEValue: SmallInt;
procedure SetVISIBLEValue(const aValue: SmallInt); procedure SetVISIBLEValue(const aValue: SmallInt);
function GetVISIBLEIsNull: Boolean; function GetVISIBLEIsNull: Boolean;
@ -1283,6 +1289,8 @@ type
property IMPORTE_UNIDADIsNull: Boolean read GetIMPORTE_UNIDADIsNull write SetIMPORTE_UNIDADIsNull; property IMPORTE_UNIDADIsNull: Boolean read GetIMPORTE_UNIDADIsNull write SetIMPORTE_UNIDADIsNull;
property IMPORTE_TOTAL: Currency read GetIMPORTE_TOTALValue write SetIMPORTE_TOTALValue; property IMPORTE_TOTAL: Currency read GetIMPORTE_TOTALValue write SetIMPORTE_TOTALValue;
property IMPORTE_TOTALIsNull: Boolean read GetIMPORTE_TOTALIsNull write SetIMPORTE_TOTALIsNull; property IMPORTE_TOTALIsNull: Boolean read GetIMPORTE_TOTALIsNull write SetIMPORTE_TOTALIsNull;
property VISIBLE2: SmallInt read GetVISIBLE2Value write SetVISIBLE2Value;
property VISIBLE2IsNull: Boolean read GetVISIBLE2IsNull write SetVISIBLE2IsNull;
property VISIBLE: SmallInt read GetVISIBLEValue write SetVISIBLEValue; property VISIBLE: SmallInt read GetVISIBLEValue write SetVISIBLEValue;
property VISIBLEIsNull: Boolean read GetVISIBLEIsNull write SetVISIBLEIsNull; property VISIBLEIsNull: Boolean read GetVISIBLEIsNull write SetVISIBLEIsNull;
property ID_ARTICULO: Integer read GetID_ARTICULOValue write SetID_ARTICULOValue; property ID_ARTICULO: Integer read GetID_ARTICULOValue write SetID_ARTICULOValue;
@ -1340,6 +1348,10 @@ type
procedure SetIMPORTE_TOTALValue(const aValue: Currency); virtual; procedure SetIMPORTE_TOTALValue(const aValue: Currency); virtual;
function GetIMPORTE_TOTALIsNull: Boolean; virtual; function GetIMPORTE_TOTALIsNull: Boolean; virtual;
procedure SetIMPORTE_TOTALIsNull(const aValue: Boolean); virtual; procedure SetIMPORTE_TOTALIsNull(const aValue: Boolean); virtual;
function GetVISIBLE2Value: SmallInt; virtual;
procedure SetVISIBLE2Value(const aValue: SmallInt); virtual;
function GetVISIBLE2IsNull: Boolean; virtual;
procedure SetVISIBLE2IsNull(const aValue: Boolean); virtual;
function GetVISIBLEValue: SmallInt; virtual; function GetVISIBLEValue: SmallInt; virtual;
procedure SetVISIBLEValue(const aValue: SmallInt); virtual; procedure SetVISIBLEValue(const aValue: SmallInt); virtual;
function GetVISIBLEIsNull: Boolean; virtual; function GetVISIBLEIsNull: Boolean; virtual;
@ -1388,6 +1400,8 @@ type
property IMPORTE_UNIDADIsNull: Boolean read GetIMPORTE_UNIDADIsNull write SetIMPORTE_UNIDADIsNull; property IMPORTE_UNIDADIsNull: Boolean read GetIMPORTE_UNIDADIsNull write SetIMPORTE_UNIDADIsNull;
property IMPORTE_TOTAL: Currency read GetIMPORTE_TOTALValue write SetIMPORTE_TOTALValue; property IMPORTE_TOTAL: Currency read GetIMPORTE_TOTALValue write SetIMPORTE_TOTALValue;
property IMPORTE_TOTALIsNull: Boolean read GetIMPORTE_TOTALIsNull write SetIMPORTE_TOTALIsNull; property IMPORTE_TOTALIsNull: Boolean read GetIMPORTE_TOTALIsNull write SetIMPORTE_TOTALIsNull;
property VISIBLE2: SmallInt read GetVISIBLE2Value write SetVISIBLE2Value;
property VISIBLE2IsNull: Boolean read GetVISIBLE2IsNull write SetVISIBLE2IsNull;
property VISIBLE: SmallInt read GetVISIBLEValue write SetVISIBLEValue; property VISIBLE: SmallInt read GetVISIBLEValue write SetVISIBLEValue;
property VISIBLEIsNull: Boolean read GetVISIBLEIsNull write SetVISIBLEIsNull; property VISIBLEIsNull: Boolean read GetVISIBLEIsNull write SetVISIBLEIsNull;
property ID_ARTICULO: Integer read GetID_ARTICULOValue write SetID_ARTICULOValue; property ID_ARTICULO: Integer read GetID_ARTICULOValue write SetID_ARTICULOValue;
@ -3156,6 +3170,27 @@ begin
DataTable.Fields[idx_ContratosCliente_DetallesIMPORTE_TOTAL].AsVariant := Null; DataTable.Fields[idx_ContratosCliente_DetallesIMPORTE_TOTAL].AsVariant := Null;
end; end;
function TContratosCliente_DetallesDataTableRules.GetVISIBLE2Value: SmallInt;
begin
result := DataTable.Fields[idx_ContratosCliente_DetallesVISIBLE2].AsSmallInt;
end;
procedure TContratosCliente_DetallesDataTableRules.SetVISIBLE2Value(const aValue: SmallInt);
begin
DataTable.Fields[idx_ContratosCliente_DetallesVISIBLE2].AsSmallInt := aValue;
end;
function TContratosCliente_DetallesDataTableRules.GetVISIBLE2IsNull: boolean;
begin
result := DataTable.Fields[idx_ContratosCliente_DetallesVISIBLE2].IsNull;
end;
procedure TContratosCliente_DetallesDataTableRules.SetVISIBLE2IsNull(const aValue: Boolean);
begin
if aValue then
DataTable.Fields[idx_ContratosCliente_DetallesVISIBLE2].AsVariant := Null;
end;
function TContratosCliente_DetallesDataTableRules.GetVISIBLEValue: SmallInt; function TContratosCliente_DetallesDataTableRules.GetVISIBLEValue: SmallInt;
begin begin
result := DataTable.Fields[idx_ContratosCliente_DetallesVISIBLE].AsSmallInt; result := DataTable.Fields[idx_ContratosCliente_DetallesVISIBLE].AsSmallInt;

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 = '{8CBBCC4D-7331-4B84-AAA3-4BB44C00350D}'; RID_ValoresDelta = '{ACD58DAA-F31F-4349-BA59-32F5BB5C3E5E}';
RID_PropiedadesDelta = '{ABE36068-9C2A-4085-A298-7A30650655AB}'; RID_PropiedadesDelta = '{B5FFFD19-4935-4CB2-8987-1762AC2EDFA6}';
RID_ListaAnosContratosDelta = '{A4974C08-1841-49BF-8870-5515D21B8330}'; RID_ListaAnosContratosDelta = '{D47F07C0-6EA3-47C0-9CAE-36FEAE8310C6}';
RID_ContratosClienteBeneficiosDelta = '{E213F4FC-FC45-4298-BB98-EFCC5BF3A82F}'; RID_ContratosClienteBeneficiosDelta = '{432F7094-684F-436C-8BCF-CEF1FC9C4BA9}';
RID_ContratosClienteDelta = '{D5BD987F-847E-4F41-AB14-F13F95A95B72}'; RID_ContratosClienteDelta = '{689F7295-72C8-4658-A6B8-CF751A4F8E74}';
RID_TiposCapitulosDelta = '{5573FCA2-DCAD-4F1D-BE66-CD8EE363EEF6}'; RID_TiposCapitulosDelta = '{3D0913EE-324F-43C6-9F91-30143D154B25}';
RID_ContratosCliente_DetallesDelta = '{6F34F5D3-1DE1-4784-97F6-30522B0CBAC2}'; RID_ContratosCliente_DetallesDelta = '{BA05CF81-F011-4DC0-BCD5-065A91F1F4F1}';
type type
{ IValoresDelta } { IValoresDelta }
IValoresDelta = interface(IValores) IValoresDelta = interface(IValores)
['{8CBBCC4D-7331-4B84-AAA3-4BB44C00350D}'] ['{ACD58DAA-F31F-4349-BA59-32F5BB5C3E5E}']
{ 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)
['{ABE36068-9C2A-4085-A298-7A30650655AB}'] ['{B5FFFD19-4935-4CB2-8987-1762AC2EDFA6}']
{ 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)
['{A4974C08-1841-49BF-8870-5515D21B8330}'] ['{D47F07C0-6EA3-47C0-9CAE-36FEAE8310C6}']
{ 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)
['{E213F4FC-FC45-4298-BB98-EFCC5BF3A82F}'] ['{432F7094-684F-436C-8BCF-CEF1FC9C4BA9}']
{ Property getters and setters } { Property getters and setters }
function GetOldIDValue : Integer; function GetOldIDValue : Integer;
function GetOldREFERENCIAValue : String; function GetOldREFERENCIAValue : String;
@ -324,7 +324,7 @@ type
{ IContratosClienteDelta } { IContratosClienteDelta }
IContratosClienteDelta = interface(IContratosCliente) IContratosClienteDelta = interface(IContratosCliente)
['{D5BD987F-847E-4F41-AB14-F13F95A95B72}'] ['{689F7295-72C8-4658-A6B8-CF751A4F8E74}']
{ Property getters and setters } { Property getters and setters }
function GetOldIDValue : Integer; function GetOldIDValue : Integer;
function GetOldID_EMPRESAValue : Integer; function GetOldID_EMPRESAValue : Integer;
@ -890,7 +890,7 @@ type
{ ITiposCapitulosDelta } { ITiposCapitulosDelta }
ITiposCapitulosDelta = interface(ITiposCapitulos) ITiposCapitulosDelta = interface(ITiposCapitulos)
['{5573FCA2-DCAD-4F1D-BE66-CD8EE363EEF6}'] ['{3D0913EE-324F-43C6-9F91-30143D154B25}']
{ Property getters and setters } { Property getters and setters }
function GetOldIDValue : Integer; function GetOldIDValue : Integer;
function GetOldPOSICIONValue : Integer; function GetOldPOSICIONValue : Integer;
@ -984,7 +984,7 @@ type
{ IContratosCliente_DetallesDelta } { IContratosCliente_DetallesDelta }
IContratosCliente_DetallesDelta = interface(IContratosCliente_Detalles) IContratosCliente_DetallesDelta = interface(IContratosCliente_Detalles)
['{6F34F5D3-1DE1-4784-97F6-30522B0CBAC2}'] ['{BA05CF81-F011-4DC0-BCD5-065A91F1F4F1}']
{ Property getters and setters } { Property getters and setters }
function GetOldIDValue : Integer; function GetOldIDValue : Integer;
function GetOldID_CONTRATOValue : Integer; function GetOldID_CONTRATOValue : Integer;
@ -995,6 +995,7 @@ type
function GetOldCANTIDADValue : Currency; function GetOldCANTIDADValue : Currency;
function GetOldIMPORTE_UNIDADValue : Currency; function GetOldIMPORTE_UNIDADValue : Currency;
function GetOldIMPORTE_TOTALValue : Currency; function GetOldIMPORTE_TOTALValue : Currency;
function GetOldVISIBLE2Value : SmallInt;
function GetOldVISIBLEValue : SmallInt; function GetOldVISIBLEValue : SmallInt;
function GetOldID_ARTICULOValue : Integer; function GetOldID_ARTICULOValue : Integer;
function GetOldTIPO_ARTICULOValue : String; function GetOldTIPO_ARTICULOValue : String;
@ -1013,6 +1014,7 @@ type
property OldCANTIDAD : Currency read GetOldCANTIDADValue; property OldCANTIDAD : Currency read GetOldCANTIDADValue;
property OldIMPORTE_UNIDAD : Currency read GetOldIMPORTE_UNIDADValue; property OldIMPORTE_UNIDAD : Currency read GetOldIMPORTE_UNIDADValue;
property OldIMPORTE_TOTAL : Currency read GetOldIMPORTE_TOTALValue; property OldIMPORTE_TOTAL : Currency read GetOldIMPORTE_TOTALValue;
property OldVISIBLE2 : SmallInt read GetOldVISIBLE2Value;
property OldVISIBLE : SmallInt read GetOldVISIBLEValue; property OldVISIBLE : SmallInt read GetOldVISIBLEValue;
property OldID_ARTICULO : Integer read GetOldID_ARTICULOValue; property OldID_ARTICULO : Integer read GetOldID_ARTICULOValue;
property OldTIPO_ARTICULO : String read GetOldTIPO_ARTICULOValue; property OldTIPO_ARTICULO : String read GetOldTIPO_ARTICULOValue;
@ -1081,6 +1083,12 @@ type
function GetOldIMPORTE_TOTALIsNull: Boolean; virtual; function GetOldIMPORTE_TOTALIsNull: Boolean; virtual;
procedure SetIMPORTE_TOTALValue(const aValue: Currency); virtual; procedure SetIMPORTE_TOTALValue(const aValue: Currency); virtual;
procedure SetIMPORTE_TOTALIsNull(const aValue: Boolean); virtual; procedure SetIMPORTE_TOTALIsNull(const aValue: Boolean); virtual;
function GetVISIBLE2Value: SmallInt; virtual;
function GetVISIBLE2IsNull: Boolean; virtual;
function GetOldVISIBLE2Value: SmallInt; virtual;
function GetOldVISIBLE2IsNull: Boolean; virtual;
procedure SetVISIBLE2Value(const aValue: SmallInt); virtual;
procedure SetVISIBLE2IsNull(const aValue: Boolean); virtual;
function GetVISIBLEValue: SmallInt; virtual; function GetVISIBLEValue: SmallInt; virtual;
function GetVISIBLEIsNull: Boolean; virtual; function GetVISIBLEIsNull: Boolean; virtual;
function GetOldVISIBLEValue: SmallInt; virtual; function GetOldVISIBLEValue: SmallInt; virtual;
@ -1161,6 +1169,10 @@ type
property IMPORTE_TOTALIsNull : Boolean read GetIMPORTE_TOTALIsNull write SetIMPORTE_TOTALIsNull; property IMPORTE_TOTALIsNull : Boolean read GetIMPORTE_TOTALIsNull write SetIMPORTE_TOTALIsNull;
property OldIMPORTE_TOTAL : Currency read GetOldIMPORTE_TOTALValue; property OldIMPORTE_TOTAL : Currency read GetOldIMPORTE_TOTALValue;
property OldIMPORTE_TOTALIsNull : Boolean read GetOldIMPORTE_TOTALIsNull; property OldIMPORTE_TOTALIsNull : Boolean read GetOldIMPORTE_TOTALIsNull;
property VISIBLE2 : SmallInt read GetVISIBLE2Value write SetVISIBLE2Value;
property VISIBLE2IsNull : Boolean read GetVISIBLE2IsNull write SetVISIBLE2IsNull;
property OldVISIBLE2 : SmallInt read GetOldVISIBLE2Value;
property OldVISIBLE2IsNull : Boolean read GetOldVISIBLE2IsNull;
property VISIBLE : SmallInt read GetVISIBLEValue write SetVISIBLEValue; property VISIBLE : SmallInt read GetVISIBLEValue write SetVISIBLEValue;
property VISIBLEIsNull : Boolean read GetVISIBLEIsNull write SetVISIBLEIsNull; property VISIBLEIsNull : Boolean read GetVISIBLEIsNull write SetVISIBLEIsNull;
property OldVISIBLE : SmallInt read GetOldVISIBLEValue; property OldVISIBLE : SmallInt read GetOldVISIBLEValue;
@ -3728,6 +3740,37 @@ begin
BusinessProcessor.CurrentChange.NewValueByName[fld_ContratosCliente_DetallesIMPORTE_TOTAL] := Null; BusinessProcessor.CurrentChange.NewValueByName[fld_ContratosCliente_DetallesIMPORTE_TOTAL] := Null;
end; end;
function TContratosCliente_DetallesBusinessProcessorRules.GetVISIBLE2Value: SmallInt;
begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_ContratosCliente_DetallesVISIBLE2];
end;
function TContratosCliente_DetallesBusinessProcessorRules.GetVISIBLE2IsNull: Boolean;
begin
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_ContratosCliente_DetallesVISIBLE2]);
end;
function TContratosCliente_DetallesBusinessProcessorRules.GetOldVISIBLE2Value: SmallInt;
begin
result := BusinessProcessor.CurrentChange.OldValueByName[fld_ContratosCliente_DetallesVISIBLE2];
end;
function TContratosCliente_DetallesBusinessProcessorRules.GetOldVISIBLE2IsNull: Boolean;
begin
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_ContratosCliente_DetallesVISIBLE2]);
end;
procedure TContratosCliente_DetallesBusinessProcessorRules.SetVISIBLE2Value(const aValue: SmallInt);
begin
BusinessProcessor.CurrentChange.NewValueByName[fld_ContratosCliente_DetallesVISIBLE2] := aValue;
end;
procedure TContratosCliente_DetallesBusinessProcessorRules.SetVISIBLE2IsNull(const aValue: Boolean);
begin
if aValue then
BusinessProcessor.CurrentChange.NewValueByName[fld_ContratosCliente_DetallesVISIBLE2] := Null;
end;
function TContratosCliente_DetallesBusinessProcessorRules.GetVISIBLEValue: SmallInt; function TContratosCliente_DetallesBusinessProcessorRules.GetVISIBLEValue: SmallInt;
begin begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_ContratosCliente_DetallesVISIBLE]; result := BusinessProcessor.CurrentChange.NewValueByName[fld_ContratosCliente_DetallesVISIBLE];

1
Source/Modulos/Contratos de cliente/Model/uBizDetallesContratoCliente.pas
View File

@ -41,6 +41,7 @@ procedure TBizDetallesContratoCliente.OnNewRecord(Sender: TDADataTable);
begin begin
inherited; inherited;
VISIBLE := 1; VISIBLE := 1;
VISIBLE2 := 1;
end; end;
initialization initialization

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

@ -676,7 +676,7 @@ object RptContratosCliente: TRptContratosCliente
item item
Name = 'ID_PRE_CON' Name = 'ID_PRE_CON'
DataType = datInteger DataType = datInteger
Value = '' Value = '11'
end> end>
Statements = < Statements = <
item item
@ -747,6 +747,10 @@ object RptContratosCliente: TRptContratosCliente
item item
DatasetField = 'VISIBLE' DatasetField = 'VISIBLE'
TableField = 'VISIBLE' TableField = 'VISIBLE'
end
item
DatasetField = 'VISIBLE2'
TableField = 'VISIBLE2'
end> end>
end> end>
Name = 'Informe_Capitulos_Detalles' Name = 'Informe_Capitulos_Detalles'
@ -811,6 +815,10 @@ object RptContratosCliente: TRptContratosCliente
Name = 'IMPORTE_TOTAL' Name = 'IMPORTE_TOTAL'
DataType = datCurrency DataType = datCurrency
end end
item
Name = 'VISIBLE2'
DataType = datSmallInt
end
item item
Name = 'VISIBLE' Name = 'VISIBLE'
DataType = datSmallInt DataType = datSmallInt
@ -1027,7 +1035,7 @@ object RptContratosCliente: TRptContratosCliente
PrintOptions.Printer = 'Por defecto' PrintOptions.Printer = 'Por defecto'
PrintOptions.PrintOnSheet = 0 PrintOptions.PrintOnSheet = 0
ReportOptions.CreateDate = 39065.872423495400000000 ReportOptions.CreateDate = 39065.872423495400000000
ReportOptions.LastChange = 41081.761483032410000000 ReportOptions.LastChange = 41157.903052835650000000
ScriptLanguage = 'PascalScript' ScriptLanguage = 'PascalScript'
ShowProgress = False ShowProgress = False
StoreInDFM = False StoreInDFM = False
@ -1690,6 +1698,10 @@ object RptContratosCliente: TRptContratosCliente
item item
Name = 'VISIBLE' Name = 'VISIBLE'
DataType = datSmallInt DataType = datSmallInt
end
item
Name = 'VISIBLE2'
DataType = datSmallInt
end> end>
Params = < Params = <
item item

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

@ -763,15 +763,15 @@ object srvContratosCliente: TsrvContratosCliente
'ES.PROPIEDAD, CONTRATOS_CLIENTE_DETALLES.CONCEPTO, CONTRATOS_CLI' + 'ES.PROPIEDAD, CONTRATOS_CLIENTE_DETALLES.CONCEPTO, CONTRATOS_CLI' +
'ENTE_DETALLES.CANTIDAD,'#10' CONTRATOS_CLIENTE_DETALLES.IMPORTE_U' + 'ENTE_DETALLES.CANTIDAD,'#10' CONTRATOS_CLIENTE_DETALLES.IMPORTE_U' +
'NIDAD, CONTRATOS_CLIENTE_DETALLES.IMPORTE_TOTAL,'#10' CONTRATOS_C' + 'NIDAD, CONTRATOS_CLIENTE_DETALLES.IMPORTE_TOTAL,'#10' CONTRATOS_C' +
'LIENTE_DETALLES.VISIBLE,'#10#10' CONTRATOS_CLIENTE_DETALLES.ID_ARTI' + 'LIENTE_DETALLES.VISIBLE, CONTRATOS_CLIENTE_DETALLES.VISIBLE2,'#10#10' ' +
'CULO, CONTRATOS_CLIENTE_DETALLES.TIPO_ARTICULO,'#10' CONTRATOS_CL' + ' CONTRATOS_CLIENTE_DETALLES.ID_ARTICULO, CONTRATOS_CLIENTE_DET' +
'IENTE_DETALLES.DESCUENTO,'#10' CONTRATOS_CLIENTE_DETALLES.IMPORTE' + 'ALLES.TIPO_ARTICULO,'#10' CONTRATOS_CLIENTE_DETALLES.DESCUENTO,'#10' ' +
'_PORTE, ARTICULOS.REFERENCIA,'#10' '#39#39' as REFERENCIA_PROVEEDOR /*E' + ' CONTRATOS_CLIENTE_DETALLES.IMPORTE_PORTE, ARTICULOS.REFERENCI' +
's necesario para que no fallen los detalles porque los detalles ' + 'A,'#10' '#39#39' as REFERENCIA_PROVEEDOR /*Es necesario para que no fal' +
'son comunes para la rama de cliente y de proveedor*/'#10#10'FROM CONTR' + 'len los detalles porque los detalles son comunes para la rama de' +
'ATOS_CLIENTE_DETALLES'#10'LEFT JOIN ARTICULOS ON CONTRATOS_CLIENTE_D' + ' cliente y de proveedor*/'#10#10'FROM CONTRATOS_CLIENTE_DETALLES'#10'LEFT ' +
'ETALLES.ID_ARTICULO = ARTICULOS.ID'#10'where {where}'#10'ORDER BY POSICI' + 'JOIN ARTICULOS ON CONTRATOS_CLIENTE_DETALLES.ID_ARTICULO = ARTIC' +
'ON;'#10#10#10#10 'ULOS.ID'#10'where {where}'#10'ORDER BY POSICION;'#10#10#10#10
StatementType = stSQL StatementType = stSQL
ColumnMappings = < ColumnMappings = <
item item
@ -839,6 +839,10 @@ object srvContratosCliente: TsrvContratosCliente
DatasetField = 'REFERENCIA' DatasetField = 'REFERENCIA'
TableField = '<unknown>' TableField = '<unknown>'
SQLOrigin = 'REFERENCIA' SQLOrigin = 'REFERENCIA'
end
item
DatasetField = 'VISIBLE2'
TableField = 'VISIBLE2'
end> end>
end> end>
Name = 'ContratosCliente_Detalles' Name = 'ContratosCliente_Detalles'
@ -884,6 +888,10 @@ object srvContratosCliente: TsrvContratosCliente
Name = 'IMPORTE_TOTAL' Name = 'IMPORTE_TOTAL'
DataType = datCurrency DataType = datCurrency
end end
item
Name = 'VISIBLE2'
DataType = datSmallInt
end
item item
Name = 'VISIBLE' Name = 'VISIBLE'
DataType = datSmallInt DataType = datSmallInt
@ -1456,6 +1464,11 @@ object srvContratosCliente: TsrvContratosCliente
DataType = datSmallInt DataType = datSmallInt
Value = '' Value = ''
end end
item
Name = 'VISIBLE2'
DataType = datSmallInt
Value = ''
end
item item
Name = 'ID_ARTICULO' Name = 'ID_ARTICULO'
DataType = datInteger DataType = datInteger
@ -1485,12 +1498,12 @@ object srvContratosCliente: TsrvContratosCliente
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, PROPIEDAD, CONCEPTO, CANTIDAD,'#10' IMPOR' + 'OSICION, TIPO_DETALLE, PROPIEDAD, CONCEPTO, CANTIDAD,'#10' IMPOR' +
'TE_UNIDAD, IMPORTE_TOTAL, VISIBLE, ID_ARTICULO, TIPO_ARTICULO,'#10' ' + 'TE_UNIDAD, IMPORTE_TOTAL, VISIBLE, VISIBLE2, ID_ARTICULO, TIPO_A' +
' DESCUENTO, IMPORTE_PORTE, FECHA_ALTA)'#10' VALUES'#10' (:ID, :ID' + 'RTICULO,'#10' DESCUENTO, IMPORTE_PORTE, FECHA_ALTA)'#10' VALUES'#10' ' +
'_CONTRATO, :POSICION, :TIPO_DETALLE, :PROPIEDAD, :CONCEPTO,'#10' ' + ' (:ID, :ID_CONTRATO, :POSICION, :TIPO_DETALLE, :PROPIEDAD, :CONC' +
' :CANTIDAD, :IMPORTE_UNIDAD, :IMPORTE_TOTAL, :VISIBLE,'#10' :ID_' + 'EPTO,'#10' :CANTIDAD, :IMPORTE_UNIDAD, :IMPORTE_TOTAL, :VISIBLE,' +
'ARTICULO, :TIPO_ARTICULO, :DESCUENTO, :IMPORTE_PORTE, CURRENT_TI' + ' :VISIBLE2,'#10' :ID_ARTICULO, :TIPO_ARTICULO, :DESCUENTO, :IMPO' +
'MESTAMP)'#10 'RTE_PORTE, CURRENT_TIMESTAMP)'#10
StatementType = stSQL StatementType = stSQL
ColumnMappings = <> ColumnMappings = <>
end> end>
@ -1520,7 +1533,8 @@ object srvContratosCliente: TsrvContratosCliente
Params = < Params = <
item item
Name = 'ID' Name = 'ID'
DataType = datInteger DataType = datAutoInc
GeneratorName = 'GEN_CONTRATOS_CLI_DETALLE_ID'
Value = '' Value = ''
end end
item item
@ -1571,6 +1585,11 @@ object srvContratosCliente: TsrvContratosCliente
DataType = datSmallInt DataType = datSmallInt
Value = '' Value = ''
end end
item
Name = 'VISIBLE2'
DataType = datSmallInt
Value = ''
end
item item
Name = 'ID_ARTICULO' Name = 'ID_ARTICULO'
DataType = datInteger DataType = datInteger
@ -1607,10 +1626,10 @@ object srvContratosCliente: TsrvContratosCliente
'LE = :TIPO_DETALLE,'#10' PROPIEDAD = :PROPIEDAD,'#10' CONCEPTO = :' + 'LE = :TIPO_DETALLE,'#10' PROPIEDAD = :PROPIEDAD,'#10' CONCEPTO = :' +
'CONCEPTO, '#10' CANTIDAD = :CANTIDAD, '#10' IMPORTE_UNIDAD = :IMPO' + 'CONCEPTO, '#10' CANTIDAD = :CANTIDAD, '#10' IMPORTE_UNIDAD = :IMPO' +
'RTE_UNIDAD,'#10' IMPORTE_TOTAL = :IMPORTE_TOTAL, '#10' VISIBLE = :' + 'RTE_UNIDAD,'#10' IMPORTE_TOTAL = :IMPORTE_TOTAL, '#10' VISIBLE = :' +
'VISIBLE, '#10' ID_ARTICULO = :ID_ARTICULO, '#10' TIPO_ARTICULO = :' + 'VISIBLE, '#10' VISIBLE2 = :VISIBLE2,'#10' ID_ARTICULO = :ID_ARTICU' +
'TIPO_ARTICULO,'#10' DESCUENTO = :DESCUENTO, '#10' IMPORTE_PORTE = ' + 'LO, '#10' TIPO_ARTICULO = :TIPO_ARTICULO,'#10' DESCUENTO = :DESCUE' +
':IMPORTE_PORTE,'#10' FECHA_MODIFICACION = CURRENT_TIMESTAMP'#10' WHE' + 'NTO, '#10' IMPORTE_PORTE = :IMPORTE_PORTE,'#10' FECHA_MODIFICACION' +
'RE'#10' (ID = :OLD_ID)'#10 ' = CURRENT_TIMESTAMP'#10' WHERE'#10' (ID = :OLD_ID)'#10
StatementType = stSQL StatementType = stSQL
ColumnMappings = <> ColumnMappings = <>
end> end>

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

@ -211,9 +211,15 @@ inherited fEditorContratoCliente: TfEditorContratoCliente
Height = 24 Height = 24
ExplicitWidth = 831 ExplicitWidth = 831
ExplicitHeight = 24 ExplicitHeight = 24
inherited ToolButton14: TToolButton inherited ToolButton4: TToolButton
Wrap = False Wrap = False
end end
inherited ToolButton14: TToolButton
Left = 334
Top = 0
ExplicitLeft = 334
ExplicitTop = 0
end
inherited FontName: TJvFontComboBox inherited FontName: TJvFontComboBox
Left = 368 Left = 368
Top = 0 Top = 0
@ -297,7 +303,7 @@ inherited fEditorContratoCliente: TfEditorContratoCliente
ExplicitTop = 24 ExplicitTop = 24
ExplicitWidth = 831 ExplicitWidth = 831
inherited TBXToolbar1: TTBXToolbar inherited TBXToolbar1: TTBXToolbar
ExplicitWidth = 665 ExplicitWidth = 663
end end
end end
inherited cxLookupComboBox1: TcxLookupComboBox inherited cxLookupComboBox1: TcxLookupComboBox

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

@ -264,7 +264,7 @@ begin
inherited; inherited;
ShowHourglassCursor; ShowHourglassCursor;
// frViewDetallesContratoCliente1.SaveGridStatus; frViewDetallesContratoCliente1.SaveGridStatus;
frViewDetallesContratoCliente1.BeginUpdate; frViewDetallesContratoCliente1.BeginUpdate;
try try
bEsNuevo := FContrato.EsNuevo; bEsNuevo := FContrato.EsNuevo;
@ -274,7 +274,7 @@ begin
finally finally
frViewDetallesContratoCliente1.EndUpdate; frViewDetallesContratoCliente1.EndUpdate;
// frViewDetallesContratoCliente1.RestoreGridStatus; frViewDetallesContratoCliente1.RestoreGridStatus;
HideHourglassCursor; HideHourglassCursor;
end; end;
if bEsNuevo then if bEsNuevo then

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

@ -9,45 +9,49 @@ inherited frViewDetallesContratoCliente: TfrViewDetallesContratoCliente
Visible = False Visible = False
VisibleForCustomization = False VisibleForCustomization = False
end end
inherited cxGridViewVISIBLE: TcxGridDBColumn [5] inherited cxGridViewVISIBLE2: TcxGridDBColumn [5]
Visible = True Visible = True
end end
object cxGridViewPROPIEDAD: TcxGridDBColumn [6] inherited cxGridViewVISIBLE: TcxGridDBColumn [6]
Caption = #191'Valorado?'
Visible = True
end
object cxGridViewPROPIEDAD: TcxGridDBColumn [7]
Caption = 'Propiedad' Caption = 'Propiedad'
DataBinding.FieldName = 'PROPIEDAD' DataBinding.FieldName = 'PROPIEDAD'
PropertiesClassName = 'TcxRichEditProperties' PropertiesClassName = 'TcxRichEditProperties'
OnGetPropertiesForEdit = cxGridViewPROPIEDADGetPropertiesForEdit OnGetPropertiesForEdit = cxGridViewPROPIEDADGetPropertiesForEdit
Width = 138 Width = 138
end end
inherited cxGridViewREFERENCIA: TcxGridDBColumn [7] inherited cxGridViewREFERENCIA: TcxGridDBColumn [8]
end end
inherited cxGridViewREFERENCIA_PROVEEDOR: TcxGridDBColumn [8] inherited cxGridViewREFERENCIA_PROVEEDOR: TcxGridDBColumn [9]
DataBinding.FieldName = '' DataBinding.FieldName = ''
end end
inherited cxGridViewDESCRIPCION: TcxGridDBColumn [9] inherited cxGridViewDESCRIPCION: TcxGridDBColumn [10]
OnGetPropertiesForEdit = cxGridViewDESCRIPCIONGetPropertiesForEdit OnGetPropertiesForEdit = cxGridViewDESCRIPCIONGetPropertiesForEdit
Width = 186 Width = 186
end end
inherited cxGridViewCANTIDAD: TcxGridDBColumn [10] inherited cxGridViewCANTIDAD: TcxGridDBColumn [11]
VisibleForCustomization = False VisibleForCustomization = False
Width = 20 Width = 20
end end
inherited cxGridViewIMPORTEUNIDAD: TcxGridDBColumn [11] inherited cxGridViewIMPORTEUNIDAD: TcxGridDBColumn [12]
VisibleForCustomization = False VisibleForCustomization = False
Width = 26 Width = 26
end end
inherited cxGridViewDESCUENTO: TcxGridDBColumn [12] inherited cxGridViewDESCUENTO: TcxGridDBColumn [13]
VisibleForCustomization = False VisibleForCustomization = False
Width = 20 Width = 20
end end
inherited cxGridViewIMPORTENETO: TcxGridDBColumn [13] inherited cxGridViewIMPORTENETO: TcxGridDBColumn [14]
Visible = False Visible = False
VisibleForCustomization = False VisibleForCustomization = False
Width = 29 Width = 29
end end
inherited cxGridViewIMPORTEPORTE: TcxGridDBColumn [14] inherited cxGridViewIMPORTEPORTE: TcxGridDBColumn [15]
end end
inherited cxGridViewIMPORTETOTAL: TcxGridDBColumn [15] inherited cxGridViewIMPORTETOTAL: TcxGridDBColumn [16]
VisibleForCustomization = False VisibleForCustomization = False
Width = 22 Width = 22
end end
@ -112,10 +116,13 @@ inherited frViewDetallesContratoCliente: TfrViewDetallesContratoCliente
Properties.KeyFieldNames = 'DESCRIPCION' Properties.KeyFieldNames = 'DESCRIPCION'
Properties.ListColumns = < Properties.ListColumns = <
item item
SortOrder = soAscending
FieldName = 'DESCRIPCION' FieldName = 'DESCRIPCION'
end> end>
Properties.ListOptions.ShowHeader = False Properties.ListOptions.ShowHeader = False
Properties.ListOptions.SyncMode = True
Properties.ListSource = DAValores Properties.ListSource = DAValores
Properties.OnEditValueChanged = cxLookupComboBox1PropertiesEditValueChanged
Style.Font.Charset = DEFAULT_CHARSET Style.Font.Charset = DEFAULT_CHARSET
Style.Font.Color = clWindowText Style.Font.Color = clWindowText
Style.Font.Height = -13 Style.Font.Height = -13

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

@ -76,9 +76,11 @@ type
procedure OnVISIBLEPropertiesEditValueChanged(Sender: TObject); procedure OnVISIBLEPropertiesEditValueChanged(Sender: TObject);
procedure CustomViewDestroy(Sender: TObject); procedure CustomViewDestroy(Sender: TObject);
procedure actCapituloObraExecute(Sender: TObject); procedure actCapituloObraExecute(Sender: TObject);
procedure cxLookupComboBox1PropertiesEditValueChanged(Sender: TObject);
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);
procedure OnVISIBLE2PropertiesEditValueChanged(Sender: TObject);
protected protected
FContrato: IBizContratoCliente; FContrato: IBizContratoCliente;
@ -99,8 +101,9 @@ type
implementation implementation
{$R *.dfm} {$R *.dfm}
uses uControllerDetallesBase, uDetallesContratoClienteController, schContratosClienteClient_Intf, uses
uDetallesPresupuestoClienteController, uControllerDetallesBase, uDetallesContratoClienteController, schContratosClienteClient_Intf,
uDetallesPresupuestoClienteController, cxVariants, cxDataUtils,
uCalculosUtils; uCalculosUtils;
{ TfrViewDetallesContratoProveedor } { TfrViewDetallesContratoProveedor }
@ -248,6 +251,7 @@ end;
procedure TfrViewDetallesContratoCliente.CustomViewDestroy(Sender: TObject); procedure TfrViewDetallesContratoCliente.CustomViewDestroy(Sender: TObject);
begin begin
cxGridViewVISIBLE.Properties.OnEditValueChanged := Nil; cxGridViewVISIBLE.Properties.OnEditValueChanged := Nil;
cxGridViewVISIBLE2.Properties.OnEditValueChanged := Nil;
inherited; inherited;
end; end;
@ -261,6 +265,7 @@ begin
DAPropiedades.DataTable := FPropiedades.DataTable; DAPropiedades.DataTable := FPropiedades.DataTable;
DAValores.DataTable := FPropiedades.Valores.DataTable; DAValores.DataTable := FPropiedades.Valores.DataTable;
cxGridViewVISIBLE.Properties.OnEditValueChanged := OnVISIBLEPropertiesEditValueChanged; cxGridViewVISIBLE.Properties.OnEditValueChanged := OnVISIBLEPropertiesEditValueChanged;
cxGridViewVISIBLE2.Properties.OnEditValueChanged := OnVISIBLE2PropertiesEditValueChanged;
end; end;
end; end;
@ -275,9 +280,12 @@ begin
if (ARecord.DisplayTexts[cxGridViewTIPO.Index] = TIPO_DETALLE_CONCEPTO) if (ARecord.DisplayTexts[cxGridViewTIPO.Index] = TIPO_DETALLE_CONCEPTO)
and (ARecord.DisplayTexts[cxGridViewPROPIEDAD.Index] <> '') then and (ARecord.DisplayTexts[cxGridViewPROPIEDAD.Index] <> '') then
begin
AProperties := cxLookupComboBox1.Properties AProperties := cxLookupComboBox1.Properties
else end
else begin
AProperties := cxRichEdit1.Properties; AProperties := cxRichEdit1.Properties;
end;
end; end;
procedure TfrViewDetallesContratoCliente.cxGridViewPROPIEDADGetPropertiesForEdit( procedure TfrViewDetallesContratoCliente.cxGridViewPROPIEDADGetPropertiesForEdit(
@ -286,13 +294,32 @@ procedure TfrViewDetallesContratoCliente.cxGridViewPROPIEDADGetPropertiesForEdit
begin begin
inherited; inherited;
if (ARecord.DisplayTexts[cxGridViewTIPO.Index] = TIPO_DETALLE_CONCEPTO) if (ARecord.DisplayTexts[cxGridViewTIPO.Index] = TIPO_DETALLE_CONCEPTO) then
then begin
AProperties := cxLookupComboBox2.Properties AProperties := cxLookupComboBox2.Properties
end
else else
AProperties := cxRichEdit1.Properties; AProperties := cxRichEdit1.Properties;
end; end;
procedure TfrViewDetallesContratoCliente.cxLookupComboBox1PropertiesEditValueChanged(
Sender: TObject);
var
AEdit: TcxCustomEdit;
AValue: Variant;
begin
inherited;
AEdit := Sender as TcxCustomEdit;
if (AEdit.EditValue = DAValores.DataTable.FieldByName('DESCRIPCION').AsString) then
begin
AValue := DAValores.DataTable.FieldByName('PRECIO_PVP').Value;
AEdit.PostEditValue; // To 'stick' the new value in the active cell
cxGridView.DataController.SetEditValue(cxGridViewIMPORTEUNIDAD.Index, AValue, evsValue);
Controller.actualizarTotales(Detalles);
end;
end;
function TfrViewDetallesContratoCliente.EsTipoEditable(AItem: TcxCustomGridTableItem): Boolean; function TfrViewDetallesContratoCliente.EsTipoEditable(AItem: TcxCustomGridTableItem): Boolean;
var var
IndiceCol : Integer; IndiceCol : Integer;
@ -335,6 +362,26 @@ begin
Result := FContrato; Result := FContrato;
end; end;
procedure TfrViewDetallesContratoCliente.OnVISIBLE2PropertiesEditValueChanged(Sender: TObject);
var
Orden: Integer;
begin
inherited;
Orden := 1;
if (cxGridView.DataController.GetItemByFieldName(CAMPO_TIPO).EditValue = TIPO_DETALLE_TITULO)
or (cxGridView.DataController.GetItemByFieldName(CAMPO_TIPO).EditValue = TIPO_DETALLE_TITULO_OPCIONAL)
or (cxGridView.DataController.GetItemByFieldName(CAMPO_TIPO).EditValue = TIPO_DETALLE_SUBTOTAL) then
begin
cxGridView.BeginUpdate;
if (cxGridView.DataController.GetItemByFieldName(CAMPO_TIPO).EditValue = TIPO_DETALLE_SUBTOTAL) then
Orden := 0;
(Controller as IDetallesContratoClienteController).SetVisible2(Detalles, cxGridView.DataController.GetItemByFieldName(CAMPO_VISIBLE2).EditValue, Orden);
cxGridView.EndUpdate;
end;
end;
procedure TfrViewDetallesContratoCliente.OnVISIBLEPropertiesEditValueChanged(Sender: TObject); procedure TfrViewDetallesContratoCliente.OnVISIBLEPropertiesEditValueChanged(Sender: TObject);
var var
Orden: Integer; Orden: Integer;

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

@ -20,6 +20,7 @@ type
function BuscarCapitulo (const Tipo: String): IBizCapitulo; 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
procedure SetVisible2(ADetalles: IDAStronglyTypedDataTable;const AVisible: Integer;const Orden: Integer);
end; end;
TDetallesPresupuestoClienteController = class(TControllerDetallesArticulos, IDetallesPresupuestoClienteController) TDetallesPresupuestoClienteController = class(TControllerDetallesArticulos, IDetallesPresupuestoClienteController)
@ -56,6 +57,7 @@ type
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
procedure SetVisible2(ADetalles: IDAStronglyTypedDataTable;const AVisible: Integer;const Orden: Integer);
end; end;
implementation implementation
@ -295,6 +297,45 @@ begin
end; end;
end; end;
procedure TDetallesPresupuestoClienteController.SetVisible2(
ADetalles: IDAStronglyTypedDataTable; const AVisible, Orden: Integer);
var
ABookmark : TBookmark;
AuxPosicion: Integer;
AuxEncontrado: Boolean;
begin
AuxPosicion := ADetalles.DataTable.FieldByName(CAMPO_POSICION).AsInteger;
ABookmark := ADetalles.DataTable.GetBookMark;
try
ADetalles.DataTable.DisableControls;
repeat
if (Orden > 0) then
Inc(AuxPosicion)
else
Dec(AuxPosicion);
ADetalles.First;
AuxEncontrado := ADetalles.Locate(CAMPO_POSICION, AuxPosicion, []);
if AuxEncontrado then
begin
ADetalles.DataTable.Edit;
ADetalles.DataTable.FieldByName(CAMPO_VISIBLE2).AsInteger := AVisible;
ADetalles.DataTable.Post;
end;
until (ADetalles.DataTable.FieldByName(CAMPO_TIPO).AsString = TIPO_DETALLE_SUBTOTAL)
or (ADetalles.DataTable.FieldByName(CAMPO_TIPO).AsString = TIPO_DETALLE_TITULO)
or (ADetalles.DataTable.FieldByName(CAMPO_TIPO).AsString = TIPO_DETALLE_TITULO_OPCIONAL)
or (AuxEncontrado = False)
finally
ADetalles.DataTable.GotoBookmark(ABookmark);
ADetalles.DataTable.FreeBookmark(ABookmark);
ADetalles.DataTable.EnableControls;
end;
end;
procedure TDetallesPresupuestoClienteController.ValidarCampos(DataTable: TDADataTable); procedure TDetallesPresupuestoClienteController.ValidarCampos(DataTable: TDADataTable);
begin begin
inherited; inherited;

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

@ -314,9 +314,15 @@ inherited DataModulePresupuestosCliente: TDataModulePresupuestosCliente
Name = 'IMPORTE_TOTAL' Name = 'IMPORTE_TOTAL'
DataType = datCurrency DataType = datCurrency
end end
item
Name = 'VISIBLE2'
DataType = datSmallInt
DisplayLabel = #191'Visible?'
end
item item
Name = 'VISIBLE' Name = 'VISIBLE'
DataType = datSmallInt DataType = datSmallInt
DisplayLabel = #191'Valorado?'
end end
item item
Name = 'ID_ARTICULO' Name = 'ID_ARTICULO'
@ -425,8 +431,6 @@ inherited DataModulePresupuestosCliente: TDataModulePresupuestosCliente
item item
Name = 'ID' Name = 'ID'
DataType = datInteger DataType = datInteger
Required = True
InPrimaryKey = True
end end
item item
Name = 'ID_EMPRESA' Name = 'ID_EMPRESA'
@ -436,16 +440,29 @@ inherited DataModulePresupuestosCliente: TDataModulePresupuestosCliente
Name = 'REFERENCIA' Name = 'REFERENCIA'
DataType = datString DataType = datString
Size = 255 Size = 255
DisplayLabel = 'Referencia'
end end
item item
Name = 'DESCRIPCION' Name = 'DESCRIPCION'
DataType = datString DataType = datString
Size = 255 Size = 255
DisplayLabel = 'Descripci'#243'n'
end end
item item
Name = 'FAMILIA' Name = 'FAMILIA'
DataType = datString DataType = datString
Size = 255 Size = 255
DisplayLabel = 'Familia'
end
item
Name = 'PRECIO_COSTE'
DataType = datCurrency
DisplayLabel = 'Precio de coste'
end
item
Name = 'PRECIO_PVP'
DataType = datCurrency
DisplayLabel = 'Precio PVP'
end> end>
Params = <> Params = <>
MasterMappingMode = mmWhere MasterMappingMode = mmWhere

4
Source/Modulos/Presupuestos de cliente/Model/PresupuestosCliente_model.dproj
View File

@ -43,10 +43,6 @@
<Borland.ProjectType>Package</Borland.ProjectType> <Borland.ProjectType>Package</Borland.ProjectType>
<BorlandProject> <BorlandProject>
<BorlandProject><Delphi.Personality><Parameters><Parameters Name="UseLauncher">False</Parameters><Parameters Name="LoadAllSymbols">True</Parameters><Parameters Name="LoadUnspecifiedSymbols">False</Parameters></Parameters><Package_Options><Package_Options Name="ImplicitBuild">False</Package_Options><Package_Options Name="DesigntimeOnly">False</Package_Options><Package_Options Name="RuntimeOnly">False</Package_Options></Package_Options><VersionInfo><VersionInfo Name="IncludeVerInfo">True</VersionInfo><VersionInfo Name="AutoIncBuild">False</VersionInfo><VersionInfo Name="MajorVer">1</VersionInfo><VersionInfo Name="MinorVer">0</VersionInfo><VersionInfo Name="Release">0</VersionInfo><VersionInfo Name="Build">0</VersionInfo><VersionInfo Name="Debug">False</VersionInfo><VersionInfo Name="PreRelease">False</VersionInfo><VersionInfo Name="Special">False</VersionInfo><VersionInfo Name="Private">False</VersionInfo><VersionInfo Name="DLL">False</VersionInfo><VersionInfo Name="Locale">3082</VersionInfo><VersionInfo Name="CodePage">1252</VersionInfo></VersionInfo><VersionInfoKeys><VersionInfoKeys Name="CompanyName"></VersionInfoKeys><VersionInfoKeys Name="FileDescription"></VersionInfoKeys><VersionInfoKeys Name="FileVersion">1.0.0.0</VersionInfoKeys><VersionInfoKeys Name="InternalName"></VersionInfoKeys><VersionInfoKeys Name="LegalCopyright"></VersionInfoKeys><VersionInfoKeys Name="LegalTrademarks"></VersionInfoKeys><VersionInfoKeys Name="OriginalFilename"></VersionInfoKeys><VersionInfoKeys Name="ProductName"></VersionInfoKeys><VersionInfoKeys Name="ProductVersion">1.0.0.0</VersionInfoKeys><VersionInfoKeys Name="Comments"></VersionInfoKeys></VersionInfoKeys><Excluded_Packages> <BorlandProject><Delphi.Personality><Parameters><Parameters Name="UseLauncher">False</Parameters><Parameters Name="LoadAllSymbols">True</Parameters><Parameters Name="LoadUnspecifiedSymbols">False</Parameters></Parameters><Package_Options><Package_Options Name="ImplicitBuild">False</Package_Options><Package_Options Name="DesigntimeOnly">False</Package_Options><Package_Options Name="RuntimeOnly">False</Package_Options></Package_Options><VersionInfo><VersionInfo Name="IncludeVerInfo">True</VersionInfo><VersionInfo Name="AutoIncBuild">False</VersionInfo><VersionInfo Name="MajorVer">1</VersionInfo><VersionInfo Name="MinorVer">0</VersionInfo><VersionInfo Name="Release">0</VersionInfo><VersionInfo Name="Build">0</VersionInfo><VersionInfo Name="Debug">False</VersionInfo><VersionInfo Name="PreRelease">False</VersionInfo><VersionInfo Name="Special">False</VersionInfo><VersionInfo Name="Private">False</VersionInfo><VersionInfo Name="DLL">False</VersionInfo><VersionInfo Name="Locale">3082</VersionInfo><VersionInfo Name="CodePage">1252</VersionInfo></VersionInfo><VersionInfoKeys><VersionInfoKeys Name="CompanyName"></VersionInfoKeys><VersionInfoKeys Name="FileDescription"></VersionInfoKeys><VersionInfoKeys Name="FileVersion">1.0.0.0</VersionInfoKeys><VersionInfoKeys Name="InternalName"></VersionInfoKeys><VersionInfoKeys Name="LegalCopyright"></VersionInfoKeys><VersionInfoKeys Name="LegalTrademarks"></VersionInfoKeys><VersionInfoKeys Name="OriginalFilename"></VersionInfoKeys><VersionInfoKeys Name="ProductName"></VersionInfoKeys><VersionInfoKeys Name="ProductVersion">1.0.0.0</VersionInfoKeys><VersionInfoKeys Name="Comments"></VersionInfoKeys></VersionInfoKeys><Excluded_Packages>
<Excluded_Packages Name="C:\Archivos de programa\RemObjects Software\Pascal Script\Dcu\D10\PascalScript_RO_D10.bpl">RemObjects Pascal Script - RemObjects SDK 3.0 Integration</Excluded_Packages> <Excluded_Packages Name="C:\Archivos de programa\RemObjects Software\Pascal Script\Dcu\D10\PascalScript_RO_D10.bpl">RemObjects Pascal Script - RemObjects SDK 3.0 Integration</Excluded_Packages>
<Excluded_Packages Name="C:\Archivos de programa\EurekaLog 5\Delphi10\ExceptionExpert10.bpl">EurekaLog 5.1.9</Excluded_Packages> <Excluded_Packages Name="C:\Archivos de programa\EurekaLog 5\Delphi10\ExceptionExpert10.bpl">EurekaLog 5.1.9</Excluded_Packages>
</Excluded_Packages><Source><Source Name="MainSource">PresupuestosCliente_model.dpk</Source></Source></Delphi.Personality></BorlandProject></BorlandProject> </Excluded_Packages><Source><Source Name="MainSource">PresupuestosCliente_model.dpk</Source></Source></Delphi.Personality></BorlandProject></BorlandProject>

143
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 = '{6348B4C1-5922-413E-9A20-13FACB52DC4D}'; RID_Valores = '{01240DD5-A0EB-453D-82E2-811190BCCCB0}';
RID_Propiedades = '{FA67BDBC-F85D-4E3D-B403-7AC43AF007F3}'; RID_Propiedades = '{84FE1A88-2F78-4428-8BE5-AB6823809F69}';
RID_ListaAnosPresupuestos = '{9CE1B82B-66E8-498E-9559-105748B1B8D0}'; RID_ListaAnosPresupuestos = '{F179C1AE-48C3-4E76-87FB-6BB6AA0B9953}';
RID_PresupuestosCliente = '{13CE35AE-8D8D-488C-8C8D-70063B48C2C5}'; RID_PresupuestosCliente = '{7C99E973-7D22-467E-B0D2-232A872F4AD0}';
RID_CapitulosPresupuesto = '{25C8A50F-E9A5-478E-A825-DF6332C457C2}'; RID_CapitulosPresupuesto = '{96502DDF-3960-4105-B99D-D1F12570194E}';
RID_PresupuestosCliente_Detalles = '{128B9C7B-1A51-4571-8948-A8D1201FF20A}'; RID_PresupuestosCliente_Detalles = '{E263EC66-1B4A-4341-B7EF-18026268971D}';
{ Data table names } { Data table names }
nme_Valores = 'Valores'; nme_Valores = 'Valores';
@ -30,6 +30,8 @@ const
fld_ValoresREFERENCIA = 'REFERENCIA'; fld_ValoresREFERENCIA = 'REFERENCIA';
fld_ValoresDESCRIPCION = 'DESCRIPCION'; fld_ValoresDESCRIPCION = 'DESCRIPCION';
fld_ValoresFAMILIA = 'FAMILIA'; fld_ValoresFAMILIA = 'FAMILIA';
fld_ValoresPRECIO_COSTE = 'PRECIO_COSTE';
fld_ValoresPRECIO_PVP = 'PRECIO_PVP';
{ Valores field indexes } { Valores field indexes }
idx_ValoresID = 0; idx_ValoresID = 0;
@ -37,6 +39,8 @@ const
idx_ValoresREFERENCIA = 2; idx_ValoresREFERENCIA = 2;
idx_ValoresDESCRIPCION = 3; idx_ValoresDESCRIPCION = 3;
idx_ValoresFAMILIA = 4; idx_ValoresFAMILIA = 4;
idx_ValoresPRECIO_COSTE = 5;
idx_ValoresPRECIO_PVP = 6;
{ Propiedades fields } { Propiedades fields }
fld_PropiedadesID = 'ID'; fld_PropiedadesID = 'ID';
@ -174,6 +178,7 @@ const
fld_PresupuestosCliente_DetallesCANTIDAD = 'CANTIDAD'; fld_PresupuestosCliente_DetallesCANTIDAD = 'CANTIDAD';
fld_PresupuestosCliente_DetallesIMPORTE_UNIDAD = 'IMPORTE_UNIDAD'; fld_PresupuestosCliente_DetallesIMPORTE_UNIDAD = 'IMPORTE_UNIDAD';
fld_PresupuestosCliente_DetallesIMPORTE_TOTAL = 'IMPORTE_TOTAL'; fld_PresupuestosCliente_DetallesIMPORTE_TOTAL = 'IMPORTE_TOTAL';
fld_PresupuestosCliente_DetallesVISIBLE2 = 'VISIBLE2';
fld_PresupuestosCliente_DetallesVISIBLE = 'VISIBLE'; fld_PresupuestosCliente_DetallesVISIBLE = 'VISIBLE';
fld_PresupuestosCliente_DetallesID_ARTICULO = 'ID_ARTICULO'; fld_PresupuestosCliente_DetallesID_ARTICULO = 'ID_ARTICULO';
fld_PresupuestosCliente_DetallesTIPO_ARTICULO = 'TIPO_ARTICULO'; fld_PresupuestosCliente_DetallesTIPO_ARTICULO = 'TIPO_ARTICULO';
@ -192,18 +197,19 @@ const
idx_PresupuestosCliente_DetallesCANTIDAD = 6; idx_PresupuestosCliente_DetallesCANTIDAD = 6;
idx_PresupuestosCliente_DetallesIMPORTE_UNIDAD = 7; idx_PresupuestosCliente_DetallesIMPORTE_UNIDAD = 7;
idx_PresupuestosCliente_DetallesIMPORTE_TOTAL = 8; idx_PresupuestosCliente_DetallesIMPORTE_TOTAL = 8;
idx_PresupuestosCliente_DetallesVISIBLE = 9; idx_PresupuestosCliente_DetallesVISIBLE2 = 9;
idx_PresupuestosCliente_DetallesID_ARTICULO = 10; idx_PresupuestosCliente_DetallesVISIBLE = 10;
idx_PresupuestosCliente_DetallesTIPO_ARTICULO = 11; idx_PresupuestosCliente_DetallesID_ARTICULO = 11;
idx_PresupuestosCliente_DetallesDESCUENTO = 12; idx_PresupuestosCliente_DetallesTIPO_ARTICULO = 12;
idx_PresupuestosCliente_DetallesIMPORTE_PORTE = 13; idx_PresupuestosCliente_DetallesDESCUENTO = 13;
idx_PresupuestosCliente_DetallesREFERENCIA = 14; idx_PresupuestosCliente_DetallesIMPORTE_PORTE = 14;
idx_PresupuestosCliente_DetallesREFERENCIA_PROVEEDOR = 15; idx_PresupuestosCliente_DetallesREFERENCIA = 15;
idx_PresupuestosCliente_DetallesREFERENCIA_PROVEEDOR = 16;
type type
{ IValores } { IValores }
IValores = interface(IDAStronglyTypedDataTable) IValores = interface(IDAStronglyTypedDataTable)
['{AA0C40BF-2339-4326-9A5E-EEE260CADC74}'] ['{C10745AB-25B0-4C44-B0F9-6FB4D71D3575}']
{ Property getters and setters } { Property getters and setters }
function GetIDValue: Integer; function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer); procedure SetIDValue(const aValue: Integer);
@ -225,6 +231,14 @@ type
procedure SetFAMILIAValue(const aValue: String); procedure SetFAMILIAValue(const aValue: String);
function GetFAMILIAIsNull: Boolean; function GetFAMILIAIsNull: Boolean;
procedure SetFAMILIAIsNull(const aValue: Boolean); procedure SetFAMILIAIsNull(const aValue: Boolean);
function GetPRECIO_COSTEValue: Currency;
procedure SetPRECIO_COSTEValue(const aValue: Currency);
function GetPRECIO_COSTEIsNull: Boolean;
procedure SetPRECIO_COSTEIsNull(const aValue: Boolean);
function GetPRECIO_PVPValue: Currency;
procedure SetPRECIO_PVPValue(const aValue: Currency);
function GetPRECIO_PVPIsNull: Boolean;
procedure SetPRECIO_PVPIsNull(const aValue: Boolean);
{ Properties } { Properties }
@ -238,6 +252,10 @@ type
property DESCRIPCIONIsNull: Boolean read GetDESCRIPCIONIsNull write SetDESCRIPCIONIsNull; property DESCRIPCIONIsNull: Boolean read GetDESCRIPCIONIsNull write SetDESCRIPCIONIsNull;
property FAMILIA: String read GetFAMILIAValue write SetFAMILIAValue; property FAMILIA: String read GetFAMILIAValue write SetFAMILIAValue;
property FAMILIAIsNull: Boolean read GetFAMILIAIsNull write SetFAMILIAIsNull; property FAMILIAIsNull: Boolean read GetFAMILIAIsNull write SetFAMILIAIsNull;
property PRECIO_COSTE: Currency read GetPRECIO_COSTEValue write SetPRECIO_COSTEValue;
property PRECIO_COSTEIsNull: Boolean read GetPRECIO_COSTEIsNull write SetPRECIO_COSTEIsNull;
property PRECIO_PVP: Currency read GetPRECIO_PVPValue write SetPRECIO_PVPValue;
property PRECIO_PVPIsNull: Boolean read GetPRECIO_PVPIsNull write SetPRECIO_PVPIsNull;
end; end;
{ TValoresDataTableRules } { TValoresDataTableRules }
@ -265,6 +283,14 @@ type
procedure SetFAMILIAValue(const aValue: String); virtual; procedure SetFAMILIAValue(const aValue: String); virtual;
function GetFAMILIAIsNull: Boolean; virtual; function GetFAMILIAIsNull: Boolean; virtual;
procedure SetFAMILIAIsNull(const aValue: Boolean); virtual; procedure SetFAMILIAIsNull(const aValue: Boolean); virtual;
function GetPRECIO_COSTEValue: Currency; virtual;
procedure SetPRECIO_COSTEValue(const aValue: Currency); virtual;
function GetPRECIO_COSTEIsNull: Boolean; virtual;
procedure SetPRECIO_COSTEIsNull(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;
{ Properties } { Properties }
property ID: Integer read GetIDValue write SetIDValue; property ID: Integer read GetIDValue write SetIDValue;
@ -277,6 +303,10 @@ type
property DESCRIPCIONIsNull: Boolean read GetDESCRIPCIONIsNull write SetDESCRIPCIONIsNull; property DESCRIPCIONIsNull: Boolean read GetDESCRIPCIONIsNull write SetDESCRIPCIONIsNull;
property FAMILIA: String read GetFAMILIAValue write SetFAMILIAValue; property FAMILIA: String read GetFAMILIAValue write SetFAMILIAValue;
property FAMILIAIsNull: Boolean read GetFAMILIAIsNull write SetFAMILIAIsNull; property FAMILIAIsNull: Boolean read GetFAMILIAIsNull write SetFAMILIAIsNull;
property PRECIO_COSTE: Currency read GetPRECIO_COSTEValue write SetPRECIO_COSTEValue;
property PRECIO_COSTEIsNull: Boolean read GetPRECIO_COSTEIsNull write SetPRECIO_COSTEIsNull;
property PRECIO_PVP: Currency read GetPRECIO_PVPValue write SetPRECIO_PVPValue;
property PRECIO_PVPIsNull: Boolean read GetPRECIO_PVPIsNull write SetPRECIO_PVPIsNull;
public public
constructor Create(aDataTable: TDADataTable); override; constructor Create(aDataTable: TDADataTable); override;
@ -286,7 +316,7 @@ type
{ IPropiedades } { IPropiedades }
IPropiedades = interface(IDAStronglyTypedDataTable) IPropiedades = interface(IDAStronglyTypedDataTable)
['{EA75AD60-D801-4B85-B0EF-6ED926A30B2A}'] ['{58959861-2906-481E-9128-89F3C54D24D4}']
{ Property getters and setters } { Property getters and setters }
function GetIDValue: Integer; function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer); procedure SetIDValue(const aValue: Integer);
@ -333,7 +363,7 @@ type
{ IListaAnosPresupuestos } { IListaAnosPresupuestos }
IListaAnosPresupuestos = interface(IDAStronglyTypedDataTable) IListaAnosPresupuestos = interface(IDAStronglyTypedDataTable)
['{282E6250-DA69-4658-A522-A54C6A1705CE}'] ['{8C8359FD-8B9C-40FB-AAA7-F99D251D6EBA}']
{ Property getters and setters } { Property getters and setters }
function GetANOValue: String; function GetANOValue: String;
procedure SetANOValue(const aValue: String); procedure SetANOValue(const aValue: String);
@ -368,7 +398,7 @@ type
{ IPresupuestosCliente } { IPresupuestosCliente }
IPresupuestosCliente = interface(IDAStronglyTypedDataTable) IPresupuestosCliente = interface(IDAStronglyTypedDataTable)
['{D998C033-F1BC-4A07-B2ED-AF2753438192}'] ['{24023A22-7BF2-416E-AD04-A496E6F9E4C1}']
{ Property getters and setters } { Property getters and setters }
function GetIDValue: Integer; function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer); procedure SetIDValue(const aValue: Integer);
@ -883,7 +913,7 @@ type
{ ICapitulosPresupuesto } { ICapitulosPresupuesto }
ICapitulosPresupuesto = interface(IDAStronglyTypedDataTable) ICapitulosPresupuesto = interface(IDAStronglyTypedDataTable)
['{311247FA-7E4E-4B5A-AC81-6E596ADD47B8}'] ['{CC4491CC-4270-451B-9120-A6DBEF668324}']
{ Property getters and setters } { Property getters and setters }
function GetIDValue: Integer; function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer); procedure SetIDValue(const aValue: Integer);
@ -1038,7 +1068,7 @@ type
{ IPresupuestosCliente_Detalles } { IPresupuestosCliente_Detalles }
IPresupuestosCliente_Detalles = interface(IDAStronglyTypedDataTable) IPresupuestosCliente_Detalles = interface(IDAStronglyTypedDataTable)
['{1C2C32E6-33C3-4D21-A13B-AD25078DC360}'] ['{A94CE8DD-1625-4372-8F27-2F2D25DB2912}']
{ Property getters and setters } { Property getters and setters }
function GetIDValue: Integer; function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer); procedure SetIDValue(const aValue: Integer);
@ -1076,6 +1106,10 @@ type
procedure SetIMPORTE_TOTALValue(const aValue: Currency); procedure SetIMPORTE_TOTALValue(const aValue: Currency);
function GetIMPORTE_TOTALIsNull: Boolean; function GetIMPORTE_TOTALIsNull: Boolean;
procedure SetIMPORTE_TOTALIsNull(const aValue: Boolean); procedure SetIMPORTE_TOTALIsNull(const aValue: Boolean);
function GetVISIBLE2Value: SmallInt;
procedure SetVISIBLE2Value(const aValue: SmallInt);
function GetVISIBLE2IsNull: Boolean;
procedure SetVISIBLE2IsNull(const aValue: Boolean);
function GetVISIBLEValue: SmallInt; function GetVISIBLEValue: SmallInt;
procedure SetVISIBLEValue(const aValue: SmallInt); procedure SetVISIBLEValue(const aValue: SmallInt);
function GetVISIBLEIsNull: Boolean; function GetVISIBLEIsNull: Boolean;
@ -1125,6 +1159,8 @@ type
property IMPORTE_UNIDADIsNull: Boolean read GetIMPORTE_UNIDADIsNull write SetIMPORTE_UNIDADIsNull; property IMPORTE_UNIDADIsNull: Boolean read GetIMPORTE_UNIDADIsNull write SetIMPORTE_UNIDADIsNull;
property IMPORTE_TOTAL: Currency read GetIMPORTE_TOTALValue write SetIMPORTE_TOTALValue; property IMPORTE_TOTAL: Currency read GetIMPORTE_TOTALValue write SetIMPORTE_TOTALValue;
property IMPORTE_TOTALIsNull: Boolean read GetIMPORTE_TOTALIsNull write SetIMPORTE_TOTALIsNull; property IMPORTE_TOTALIsNull: Boolean read GetIMPORTE_TOTALIsNull write SetIMPORTE_TOTALIsNull;
property VISIBLE2: SmallInt read GetVISIBLE2Value write SetVISIBLE2Value;
property VISIBLE2IsNull: Boolean read GetVISIBLE2IsNull write SetVISIBLE2IsNull;
property VISIBLE: SmallInt read GetVISIBLEValue write SetVISIBLEValue; property VISIBLE: SmallInt read GetVISIBLEValue write SetVISIBLEValue;
property VISIBLEIsNull: Boolean read GetVISIBLEIsNull write SetVISIBLEIsNull; property VISIBLEIsNull: Boolean read GetVISIBLEIsNull write SetVISIBLEIsNull;
property ID_ARTICULO: Integer read GetID_ARTICULOValue write SetID_ARTICULOValue; property ID_ARTICULO: Integer read GetID_ARTICULOValue write SetID_ARTICULOValue;
@ -1182,6 +1218,10 @@ type
procedure SetIMPORTE_TOTALValue(const aValue: Currency); virtual; procedure SetIMPORTE_TOTALValue(const aValue: Currency); virtual;
function GetIMPORTE_TOTALIsNull: Boolean; virtual; function GetIMPORTE_TOTALIsNull: Boolean; virtual;
procedure SetIMPORTE_TOTALIsNull(const aValue: Boolean); virtual; procedure SetIMPORTE_TOTALIsNull(const aValue: Boolean); virtual;
function GetVISIBLE2Value: SmallInt; virtual;
procedure SetVISIBLE2Value(const aValue: SmallInt); virtual;
function GetVISIBLE2IsNull: Boolean; virtual;
procedure SetVISIBLE2IsNull(const aValue: Boolean); virtual;
function GetVISIBLEValue: SmallInt; virtual; function GetVISIBLEValue: SmallInt; virtual;
procedure SetVISIBLEValue(const aValue: SmallInt); virtual; procedure SetVISIBLEValue(const aValue: SmallInt); virtual;
function GetVISIBLEIsNull: Boolean; virtual; function GetVISIBLEIsNull: Boolean; virtual;
@ -1230,6 +1270,8 @@ type
property IMPORTE_UNIDADIsNull: Boolean read GetIMPORTE_UNIDADIsNull write SetIMPORTE_UNIDADIsNull; property IMPORTE_UNIDADIsNull: Boolean read GetIMPORTE_UNIDADIsNull write SetIMPORTE_UNIDADIsNull;
property IMPORTE_TOTAL: Currency read GetIMPORTE_TOTALValue write SetIMPORTE_TOTALValue; property IMPORTE_TOTAL: Currency read GetIMPORTE_TOTALValue write SetIMPORTE_TOTALValue;
property IMPORTE_TOTALIsNull: Boolean read GetIMPORTE_TOTALIsNull write SetIMPORTE_TOTALIsNull; property IMPORTE_TOTALIsNull: Boolean read GetIMPORTE_TOTALIsNull write SetIMPORTE_TOTALIsNull;
property VISIBLE2: SmallInt read GetVISIBLE2Value write SetVISIBLE2Value;
property VISIBLE2IsNull: Boolean read GetVISIBLE2IsNull write SetVISIBLE2IsNull;
property VISIBLE: SmallInt read GetVISIBLEValue write SetVISIBLEValue; property VISIBLE: SmallInt read GetVISIBLEValue write SetVISIBLEValue;
property VISIBLEIsNull: Boolean read GetVISIBLEIsNull write SetVISIBLEIsNull; property VISIBLEIsNull: Boolean read GetVISIBLEIsNull write SetVISIBLEIsNull;
property ID_ARTICULO: Integer read GetID_ARTICULOValue write SetID_ARTICULOValue; property ID_ARTICULO: Integer read GetID_ARTICULOValue write SetID_ARTICULOValue;
@ -1371,6 +1413,48 @@ begin
DataTable.Fields[idx_ValoresFAMILIA].AsVariant := Null; DataTable.Fields[idx_ValoresFAMILIA].AsVariant := Null;
end; end;
function TValoresDataTableRules.GetPRECIO_COSTEValue: Currency;
begin
result := DataTable.Fields[idx_ValoresPRECIO_COSTE].AsCurrency;
end;
procedure TValoresDataTableRules.SetPRECIO_COSTEValue(const aValue: Currency);
begin
DataTable.Fields[idx_ValoresPRECIO_COSTE].AsCurrency := aValue;
end;
function TValoresDataTableRules.GetPRECIO_COSTEIsNull: boolean;
begin
result := DataTable.Fields[idx_ValoresPRECIO_COSTE].IsNull;
end;
procedure TValoresDataTableRules.SetPRECIO_COSTEIsNull(const aValue: Boolean);
begin
if aValue then
DataTable.Fields[idx_ValoresPRECIO_COSTE].AsVariant := Null;
end;
function TValoresDataTableRules.GetPRECIO_PVPValue: Currency;
begin
result := DataTable.Fields[idx_ValoresPRECIO_PVP].AsCurrency;
end;
procedure TValoresDataTableRules.SetPRECIO_PVPValue(const aValue: Currency);
begin
DataTable.Fields[idx_ValoresPRECIO_PVP].AsCurrency := aValue;
end;
function TValoresDataTableRules.GetPRECIO_PVPIsNull: boolean;
begin
result := DataTable.Fields[idx_ValoresPRECIO_PVP].IsNull;
end;
procedure TValoresDataTableRules.SetPRECIO_PVPIsNull(const aValue: Boolean);
begin
if aValue then
DataTable.Fields[idx_ValoresPRECIO_PVP].AsVariant := Null;
end;
{ TPropiedadesDataTableRules } { TPropiedadesDataTableRules }
constructor TPropiedadesDataTableRules.Create(aDataTable: TDADataTable); constructor TPropiedadesDataTableRules.Create(aDataTable: TDADataTable);
@ -2797,6 +2881,27 @@ begin
DataTable.Fields[idx_PresupuestosCliente_DetallesIMPORTE_TOTAL].AsVariant := Null; DataTable.Fields[idx_PresupuestosCliente_DetallesIMPORTE_TOTAL].AsVariant := Null;
end; end;
function TPresupuestosCliente_DetallesDataTableRules.GetVISIBLE2Value: SmallInt;
begin
result := DataTable.Fields[idx_PresupuestosCliente_DetallesVISIBLE2].AsSmallInt;
end;
procedure TPresupuestosCliente_DetallesDataTableRules.SetVISIBLE2Value(const aValue: SmallInt);
begin
DataTable.Fields[idx_PresupuestosCliente_DetallesVISIBLE2].AsSmallInt := aValue;
end;
function TPresupuestosCliente_DetallesDataTableRules.GetVISIBLE2IsNull: boolean;
begin
result := DataTable.Fields[idx_PresupuestosCliente_DetallesVISIBLE2].IsNull;
end;
procedure TPresupuestosCliente_DetallesDataTableRules.SetVISIBLE2IsNull(const aValue: Boolean);
begin
if aValue then
DataTable.Fields[idx_PresupuestosCliente_DetallesVISIBLE2].AsVariant := Null;
end;
function TPresupuestosCliente_DetallesDataTableRules.GetVISIBLEValue: SmallInt; function TPresupuestosCliente_DetallesDataTableRules.GetVISIBLEValue: SmallInt;
begin begin
result := DataTable.Fields[idx_PresupuestosCliente_DetallesVISIBLE].AsSmallInt; result := DataTable.Fields[idx_PresupuestosCliente_DetallesVISIBLE].AsSmallInt;

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

@ -9,23 +9,25 @@ 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 = '{F474C394-03E2-478D-B532-27D4854BFAF2}'; RID_ValoresDelta = '{416F5769-AE40-4A91-AC03-BAEE67591266}';
RID_PropiedadesDelta = '{884EB1CE-DC47-4617-8333-3EC5DBFD665B}'; RID_PropiedadesDelta = '{79C29CFD-CEB2-4958-A514-0F08DFA587C1}';
RID_ListaAnosPresupuestosDelta = '{925DEA86-D6E7-405B-8AC5-DC91888B5F49}'; RID_ListaAnosPresupuestosDelta = '{5AD64A70-834D-4211-B4E2-CF197FBED98B}';
RID_PresupuestosClienteDelta = '{1EAAD063-02A3-4241-8820-524FA60D7806}'; RID_PresupuestosClienteDelta = '{A9E95F7E-9B12-460D-A255-24BBF1AA5E58}';
RID_CapitulosPresupuestoDelta = '{70F8EB27-2019-40CA-9A3C-091F37ADC909}'; RID_CapitulosPresupuestoDelta = '{793834E6-6B3C-4618-99AF-A6629F835A46}';
RID_PresupuestosCliente_DetallesDelta = '{13C9A38A-3687-4815-8E90-F51DAC75F95B}'; RID_PresupuestosCliente_DetallesDelta = '{625AFBDA-44C7-4EE0-B18E-3803CFAC970C}';
type type
{ IValoresDelta } { IValoresDelta }
IValoresDelta = interface(IValores) IValoresDelta = interface(IValores)
['{F474C394-03E2-478D-B532-27D4854BFAF2}'] ['{416F5769-AE40-4A91-AC03-BAEE67591266}']
{ Property getters and setters } { Property getters and setters }
function GetOldIDValue : Integer; function GetOldIDValue : Integer;
function GetOldID_EMPRESAValue : Integer; function GetOldID_EMPRESAValue : Integer;
function GetOldREFERENCIAValue : String; function GetOldREFERENCIAValue : String;
function GetOldDESCRIPCIONValue : String; function GetOldDESCRIPCIONValue : String;
function GetOldFAMILIAValue : String; function GetOldFAMILIAValue : String;
function GetOldPRECIO_COSTEValue : Currency;
function GetOldPRECIO_PVPValue : Currency;
{ Properties } { Properties }
property OldID : Integer read GetOldIDValue; property OldID : Integer read GetOldIDValue;
@ -33,6 +35,8 @@ type
property OldREFERENCIA : String read GetOldREFERENCIAValue; property OldREFERENCIA : String read GetOldREFERENCIAValue;
property OldDESCRIPCION : String read GetOldDESCRIPCIONValue; property OldDESCRIPCION : String read GetOldDESCRIPCIONValue;
property OldFAMILIA : String read GetOldFAMILIAValue; property OldFAMILIA : String read GetOldFAMILIAValue;
property OldPRECIO_COSTE : Currency read GetOldPRECIO_COSTEValue;
property OldPRECIO_PVP : Currency read GetOldPRECIO_PVPValue;
end; end;
{ TValoresBusinessProcessorRules } { TValoresBusinessProcessorRules }
@ -70,6 +74,18 @@ type
function GetOldFAMILIAIsNull: Boolean; virtual; function GetOldFAMILIAIsNull: Boolean; virtual;
procedure SetFAMILIAValue(const aValue: String); virtual; procedure SetFAMILIAValue(const aValue: String); virtual;
procedure SetFAMILIAIsNull(const aValue: Boolean); virtual; procedure SetFAMILIAIsNull(const aValue: Boolean); virtual;
function GetPRECIO_COSTEValue: Currency; virtual;
function GetPRECIO_COSTEIsNull: Boolean; virtual;
function GetOldPRECIO_COSTEValue: Currency; virtual;
function GetOldPRECIO_COSTEIsNull: Boolean; virtual;
procedure SetPRECIO_COSTEValue(const aValue: Currency); virtual;
procedure SetPRECIO_COSTEIsNull(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;
{ Properties } { Properties }
property ID : Integer read GetIDValue write SetIDValue; property ID : Integer read GetIDValue write SetIDValue;
@ -92,6 +108,14 @@ type
property FAMILIAIsNull : Boolean read GetFAMILIAIsNull write SetFAMILIAIsNull; property FAMILIAIsNull : Boolean read GetFAMILIAIsNull write SetFAMILIAIsNull;
property OldFAMILIA : String read GetOldFAMILIAValue; property OldFAMILIA : String read GetOldFAMILIAValue;
property OldFAMILIAIsNull : Boolean read GetOldFAMILIAIsNull; property OldFAMILIAIsNull : Boolean read GetOldFAMILIAIsNull;
property PRECIO_COSTE : Currency read GetPRECIO_COSTEValue write SetPRECIO_COSTEValue;
property PRECIO_COSTEIsNull : Boolean read GetPRECIO_COSTEIsNull write SetPRECIO_COSTEIsNull;
property OldPRECIO_COSTE : Currency read GetOldPRECIO_COSTEValue;
property OldPRECIO_COSTEIsNull : Boolean read GetOldPRECIO_COSTEIsNull;
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;
public public
constructor Create(aBusinessProcessor: TDABusinessProcessor); override; constructor Create(aBusinessProcessor: TDABusinessProcessor); override;
@ -101,7 +125,7 @@ type
{ IPropiedadesDelta } { IPropiedadesDelta }
IPropiedadesDelta = interface(IPropiedades) IPropiedadesDelta = interface(IPropiedades)
['{884EB1CE-DC47-4617-8333-3EC5DBFD665B}'] ['{79C29CFD-CEB2-4958-A514-0F08DFA587C1}']
{ Property getters and setters } { Property getters and setters }
function GetOldIDValue : Integer; function GetOldIDValue : Integer;
function GetOldDESCRIPCIONValue : String; function GetOldDESCRIPCIONValue : String;
@ -147,7 +171,7 @@ type
{ IListaAnosPresupuestosDelta } { IListaAnosPresupuestosDelta }
IListaAnosPresupuestosDelta = interface(IListaAnosPresupuestos) IListaAnosPresupuestosDelta = interface(IListaAnosPresupuestos)
['{925DEA86-D6E7-405B-8AC5-DC91888B5F49}'] ['{5AD64A70-834D-4211-B4E2-CF197FBED98B}']
{ Property getters and setters } { Property getters and setters }
function GetOldANOValue : String; function GetOldANOValue : String;
@ -181,7 +205,7 @@ type
{ IPresupuestosClienteDelta } { IPresupuestosClienteDelta }
IPresupuestosClienteDelta = interface(IPresupuestosCliente) IPresupuestosClienteDelta = interface(IPresupuestosCliente)
['{1EAAD063-02A3-4241-8820-524FA60D7806}'] ['{A9E95F7E-9B12-460D-A255-24BBF1AA5E58}']
{ Property getters and setters } { Property getters and setters }
function GetOldIDValue : Integer; function GetOldIDValue : Integer;
function GetOldID_EMPRESAValue : Integer; function GetOldID_EMPRESAValue : Integer;
@ -699,7 +723,7 @@ type
{ ICapitulosPresupuestoDelta } { ICapitulosPresupuestoDelta }
ICapitulosPresupuestoDelta = interface(ICapitulosPresupuesto) ICapitulosPresupuestoDelta = interface(ICapitulosPresupuesto)
['{70F8EB27-2019-40CA-9A3C-091F37ADC909}'] ['{793834E6-6B3C-4618-99AF-A6629F835A46}']
{ Property getters and setters } { Property getters and setters }
function GetOldIDValue : Integer; function GetOldIDValue : Integer;
function GetOldPOSICIONValue : Integer; function GetOldPOSICIONValue : Integer;
@ -853,7 +877,7 @@ type
{ IPresupuestosCliente_DetallesDelta } { IPresupuestosCliente_DetallesDelta }
IPresupuestosCliente_DetallesDelta = interface(IPresupuestosCliente_Detalles) IPresupuestosCliente_DetallesDelta = interface(IPresupuestosCliente_Detalles)
['{13C9A38A-3687-4815-8E90-F51DAC75F95B}'] ['{625AFBDA-44C7-4EE0-B18E-3803CFAC970C}']
{ Property getters and setters } { Property getters and setters }
function GetOldIDValue : Integer; function GetOldIDValue : Integer;
function GetOldID_PRESUPUESTOValue : Integer; function GetOldID_PRESUPUESTOValue : Integer;
@ -864,6 +888,7 @@ type
function GetOldCANTIDADValue : Currency; function GetOldCANTIDADValue : Currency;
function GetOldIMPORTE_UNIDADValue : Currency; function GetOldIMPORTE_UNIDADValue : Currency;
function GetOldIMPORTE_TOTALValue : Currency; function GetOldIMPORTE_TOTALValue : Currency;
function GetOldVISIBLE2Value : SmallInt;
function GetOldVISIBLEValue : SmallInt; function GetOldVISIBLEValue : SmallInt;
function GetOldID_ARTICULOValue : Integer; function GetOldID_ARTICULOValue : Integer;
function GetOldTIPO_ARTICULOValue : String; function GetOldTIPO_ARTICULOValue : String;
@ -882,6 +907,7 @@ type
property OldCANTIDAD : Currency read GetOldCANTIDADValue; property OldCANTIDAD : Currency read GetOldCANTIDADValue;
property OldIMPORTE_UNIDAD : Currency read GetOldIMPORTE_UNIDADValue; property OldIMPORTE_UNIDAD : Currency read GetOldIMPORTE_UNIDADValue;
property OldIMPORTE_TOTAL : Currency read GetOldIMPORTE_TOTALValue; property OldIMPORTE_TOTAL : Currency read GetOldIMPORTE_TOTALValue;
property OldVISIBLE2 : SmallInt read GetOldVISIBLE2Value;
property OldVISIBLE : SmallInt read GetOldVISIBLEValue; property OldVISIBLE : SmallInt read GetOldVISIBLEValue;
property OldID_ARTICULO : Integer read GetOldID_ARTICULOValue; property OldID_ARTICULO : Integer read GetOldID_ARTICULOValue;
property OldTIPO_ARTICULO : String read GetOldTIPO_ARTICULOValue; property OldTIPO_ARTICULO : String read GetOldTIPO_ARTICULOValue;
@ -950,6 +976,12 @@ type
function GetOldIMPORTE_TOTALIsNull: Boolean; virtual; function GetOldIMPORTE_TOTALIsNull: Boolean; virtual;
procedure SetIMPORTE_TOTALValue(const aValue: Currency); virtual; procedure SetIMPORTE_TOTALValue(const aValue: Currency); virtual;
procedure SetIMPORTE_TOTALIsNull(const aValue: Boolean); virtual; procedure SetIMPORTE_TOTALIsNull(const aValue: Boolean); virtual;
function GetVISIBLE2Value: SmallInt; virtual;
function GetVISIBLE2IsNull: Boolean; virtual;
function GetOldVISIBLE2Value: SmallInt; virtual;
function GetOldVISIBLE2IsNull: Boolean; virtual;
procedure SetVISIBLE2Value(const aValue: SmallInt); virtual;
procedure SetVISIBLE2IsNull(const aValue: Boolean); virtual;
function GetVISIBLEValue: SmallInt; virtual; function GetVISIBLEValue: SmallInt; virtual;
function GetVISIBLEIsNull: Boolean; virtual; function GetVISIBLEIsNull: Boolean; virtual;
function GetOldVISIBLEValue: SmallInt; virtual; function GetOldVISIBLEValue: SmallInt; virtual;
@ -1030,6 +1062,10 @@ type
property IMPORTE_TOTALIsNull : Boolean read GetIMPORTE_TOTALIsNull write SetIMPORTE_TOTALIsNull; property IMPORTE_TOTALIsNull : Boolean read GetIMPORTE_TOTALIsNull write SetIMPORTE_TOTALIsNull;
property OldIMPORTE_TOTAL : Currency read GetOldIMPORTE_TOTALValue; property OldIMPORTE_TOTAL : Currency read GetOldIMPORTE_TOTALValue;
property OldIMPORTE_TOTALIsNull : Boolean read GetOldIMPORTE_TOTALIsNull; property OldIMPORTE_TOTALIsNull : Boolean read GetOldIMPORTE_TOTALIsNull;
property VISIBLE2 : SmallInt read GetVISIBLE2Value write SetVISIBLE2Value;
property VISIBLE2IsNull : Boolean read GetVISIBLE2IsNull write SetVISIBLE2IsNull;
property OldVISIBLE2 : SmallInt read GetOldVISIBLE2Value;
property OldVISIBLE2IsNull : Boolean read GetOldVISIBLE2IsNull;
property VISIBLE : SmallInt read GetVISIBLEValue write SetVISIBLEValue; property VISIBLE : SmallInt read GetVISIBLEValue write SetVISIBLEValue;
property VISIBLEIsNull : Boolean read GetVISIBLEIsNull write SetVISIBLEIsNull; property VISIBLEIsNull : Boolean read GetVISIBLEIsNull write SetVISIBLEIsNull;
property OldVISIBLE : SmallInt read GetOldVISIBLEValue; property OldVISIBLE : SmallInt read GetOldVISIBLEValue;
@ -1236,6 +1272,68 @@ begin
BusinessProcessor.CurrentChange.NewValueByName[fld_ValoresFAMILIA] := Null; BusinessProcessor.CurrentChange.NewValueByName[fld_ValoresFAMILIA] := Null;
end; end;
function TValoresBusinessProcessorRules.GetPRECIO_COSTEValue: Currency;
begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_ValoresPRECIO_COSTE];
end;
function TValoresBusinessProcessorRules.GetPRECIO_COSTEIsNull: Boolean;
begin
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_ValoresPRECIO_COSTE]);
end;
function TValoresBusinessProcessorRules.GetOldPRECIO_COSTEValue: Currency;
begin
result := BusinessProcessor.CurrentChange.OldValueByName[fld_ValoresPRECIO_COSTE];
end;
function TValoresBusinessProcessorRules.GetOldPRECIO_COSTEIsNull: Boolean;
begin
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_ValoresPRECIO_COSTE]);
end;
procedure TValoresBusinessProcessorRules.SetPRECIO_COSTEValue(const aValue: Currency);
begin
BusinessProcessor.CurrentChange.NewValueByName[fld_ValoresPRECIO_COSTE] := aValue;
end;
procedure TValoresBusinessProcessorRules.SetPRECIO_COSTEIsNull(const aValue: Boolean);
begin
if aValue then
BusinessProcessor.CurrentChange.NewValueByName[fld_ValoresPRECIO_COSTE] := Null;
end;
function TValoresBusinessProcessorRules.GetPRECIO_PVPValue: Currency;
begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_ValoresPRECIO_PVP];
end;
function TValoresBusinessProcessorRules.GetPRECIO_PVPIsNull: Boolean;
begin
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_ValoresPRECIO_PVP]);
end;
function TValoresBusinessProcessorRules.GetOldPRECIO_PVPValue: Currency;
begin
result := BusinessProcessor.CurrentChange.OldValueByName[fld_ValoresPRECIO_PVP];
end;
function TValoresBusinessProcessorRules.GetOldPRECIO_PVPIsNull: Boolean;
begin
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_ValoresPRECIO_PVP]);
end;
procedure TValoresBusinessProcessorRules.SetPRECIO_PVPValue(const aValue: Currency);
begin
BusinessProcessor.CurrentChange.NewValueByName[fld_ValoresPRECIO_PVP] := aValue;
end;
procedure TValoresBusinessProcessorRules.SetPRECIO_PVPIsNull(const aValue: Boolean);
begin
if aValue then
BusinessProcessor.CurrentChange.NewValueByName[fld_ValoresPRECIO_PVP] := Null;
end;
{ TPropiedadesBusinessProcessorRules } { TPropiedadesBusinessProcessorRules }
constructor TPropiedadesBusinessProcessorRules.Create(aBusinessProcessor: TDABusinessProcessor); constructor TPropiedadesBusinessProcessorRules.Create(aBusinessProcessor: TDABusinessProcessor);
@ -3306,6 +3404,37 @@ begin
BusinessProcessor.CurrentChange.NewValueByName[fld_PresupuestosCliente_DetallesIMPORTE_TOTAL] := Null; BusinessProcessor.CurrentChange.NewValueByName[fld_PresupuestosCliente_DetallesIMPORTE_TOTAL] := Null;
end; end;
function TPresupuestosCliente_DetallesBusinessProcessorRules.GetVISIBLE2Value: SmallInt;
begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_PresupuestosCliente_DetallesVISIBLE2];
end;
function TPresupuestosCliente_DetallesBusinessProcessorRules.GetVISIBLE2IsNull: Boolean;
begin
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_PresupuestosCliente_DetallesVISIBLE2]);
end;
function TPresupuestosCliente_DetallesBusinessProcessorRules.GetOldVISIBLE2Value: SmallInt;
begin
result := BusinessProcessor.CurrentChange.OldValueByName[fld_PresupuestosCliente_DetallesVISIBLE2];
end;
function TPresupuestosCliente_DetallesBusinessProcessorRules.GetOldVISIBLE2IsNull: Boolean;
begin
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_PresupuestosCliente_DetallesVISIBLE2]);
end;
procedure TPresupuestosCliente_DetallesBusinessProcessorRules.SetVISIBLE2Value(const aValue: SmallInt);
begin
BusinessProcessor.CurrentChange.NewValueByName[fld_PresupuestosCliente_DetallesVISIBLE2] := aValue;
end;
procedure TPresupuestosCliente_DetallesBusinessProcessorRules.SetVISIBLE2IsNull(const aValue: Boolean);
begin
if aValue then
BusinessProcessor.CurrentChange.NewValueByName[fld_PresupuestosCliente_DetallesVISIBLE2] := Null;
end;
function TPresupuestosCliente_DetallesBusinessProcessorRules.GetVISIBLEValue: SmallInt; function TPresupuestosCliente_DetallesBusinessProcessorRules.GetVISIBLEValue: SmallInt;
begin begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_PresupuestosCliente_DetallesVISIBLE]; result := BusinessProcessor.CurrentChange.NewValueByName[fld_PresupuestosCliente_DetallesVISIBLE];

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

@ -100,6 +100,7 @@ procedure TBizDetallesPresupuestoCliente.OnNewRecord(Sender: TDADataTable);
begin begin
inherited; inherited;
VISIBLE := 1; VISIBLE := 1;
VISIBLE2 := 1;
end; end;
{ TBizPropiedades } { TBizPropiedades }

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

@ -515,7 +515,7 @@ object RptPresupuestosCliente: TRptPresupuestosCliente
item item
Name = 'ID_PRE_CON' Name = 'ID_PRE_CON'
DataType = datInteger DataType = datInteger
Value = '' Value = '11'
end> end>
Statements = < Statements = <
item item
@ -586,6 +586,10 @@ object RptPresupuestosCliente: TRptPresupuestosCliente
item item
DatasetField = 'VISIBLE' DatasetField = 'VISIBLE'
TableField = 'VISIBLE' TableField = 'VISIBLE'
end
item
DatasetField = 'VISIBLE2'
TableField = 'VISIBLE2'
end> end>
end> end>
Name = 'Informe_Capitulos_Detalles' Name = 'Informe_Capitulos_Detalles'
@ -654,6 +658,10 @@ object RptPresupuestosCliente: TRptPresupuestosCliente
item item
Name = 'VISIBLE' Name = 'VISIBLE'
DataType = datSmallInt DataType = datSmallInt
end
item
Name = 'VISIBLE2'
DataType = datSmallInt
end> end>
ReadOnly = True ReadOnly = True
end end
@ -868,7 +876,7 @@ object RptPresupuestosCliente: TRptPresupuestosCliente
PrintOptions.Printer = 'Por defecto' PrintOptions.Printer = 'Por defecto'
PrintOptions.PrintOnSheet = 0 PrintOptions.PrintOnSheet = 0
ReportOptions.CreateDate = 39065.872423495400000000 ReportOptions.CreateDate = 39065.872423495400000000
ReportOptions.LastChange = 40141.552037754600000000 ReportOptions.LastChange = 41156.501393946760000000
ScriptLanguage = 'PascalScript' ScriptLanguage = 'PascalScript'
ShowProgress = False ShowProgress = False
StoreInDFM = False StoreInDFM = False
@ -1610,6 +1618,10 @@ object RptPresupuestosCliente: TRptPresupuestosCliente
item item
Name = 'VISIBLE' Name = 'VISIBLE'
DataType = datSmallInt DataType = datSmallInt
end
item
Name = 'VISIBLE2'
DataType = datSmallInt
end> end>
Params = < Params = <
item item

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

@ -21,18 +21,15 @@ object srvPresupuestosCliente: TsrvPresupuestosCliente
TargetTable = 'ARTICULOS' TargetTable = 'ARTICULOS'
Name = 'IBX' Name = 'IBX'
SQL = SQL =
'SELECT '#10' ID, ID_EMPRESA, REFERENCIA, DESCRIPCION, FAMILIA'#10#10' ' + 'SELECT '#10' ID, ID_EMPRESA, REFERENCIA, DESCRIPCION, FAMILIA, PR' +
'FROM'#10' ARTICULOS'#10' WHERE ELIMINADO = 0 and {Where}'#10 'ECIO_COSTE, PRECIO_PVP'#10' FROM'#10' ARTICULOS'#10' WHERE ELIMINADO = ' +
'0 and {Where}'#10
StatementType = stSQL StatementType = stSQL
ColumnMappings = < ColumnMappings = <
item item
DatasetField = 'ID' DatasetField = 'ID'
TableField = 'ID' TableField = 'ID'
end end
item
DatasetField = 'DESCRIPCION'
TableField = 'DESCRIPCION'
end
item item
DatasetField = 'ID_EMPRESA' DatasetField = 'ID_EMPRESA'
TableField = 'ID_EMPRESA' TableField = 'ID_EMPRESA'
@ -41,9 +38,21 @@ object srvPresupuestosCliente: TsrvPresupuestosCliente
DatasetField = 'REFERENCIA' DatasetField = 'REFERENCIA'
TableField = 'REFERENCIA' TableField = 'REFERENCIA'
end end
item
DatasetField = 'DESCRIPCION'
TableField = 'DESCRIPCION'
end
item item
DatasetField = 'FAMILIA' DatasetField = 'FAMILIA'
TableField = 'FAMILIA' TableField = 'FAMILIA'
end
item
DatasetField = 'PRECIO_COSTE'
TableField = 'PRECIO_COSTE'
end
item
DatasetField = 'PRECIO_PVP'
TableField = 'PRECIO_PVP'
end> end>
end> end>
Name = 'Valores' Name = 'Valores'
@ -51,8 +60,6 @@ object srvPresupuestosCliente: TsrvPresupuestosCliente
item item
Name = 'ID' Name = 'ID'
DataType = datInteger DataType = datInteger
Required = True
InPrimaryKey = True
end end
item item
Name = 'ID_EMPRESA' Name = 'ID_EMPRESA'
@ -62,16 +69,29 @@ object srvPresupuestosCliente: TsrvPresupuestosCliente
Name = 'REFERENCIA' Name = 'REFERENCIA'
DataType = datString DataType = datString
Size = 255 Size = 255
DisplayLabel = 'Referencia'
end end
item item
Name = 'DESCRIPCION' Name = 'DESCRIPCION'
DataType = datString DataType = datString
Size = 255 Size = 255
DisplayLabel = 'Descripci'#243'n'
end end
item item
Name = 'FAMILIA' Name = 'FAMILIA'
DataType = datString DataType = datString
Size = 255 Size = 255
DisplayLabel = 'Familia'
end
item
Name = 'PRECIO_COSTE'
DataType = datCurrency
DisplayLabel = 'Precio de coste'
end
item
Name = 'PRECIO_PVP'
DataType = datCurrency
DisplayLabel = 'Precio PVP'
end> end>
end end
item item
@ -662,15 +682,16 @@ object srvPresupuestosCliente: TsrvPresupuestosCliente
'TOS_CLIENTE_DETALLES.PROPIEDAD, PRESUPUESTOS_CLIENTE_DETALLES.CO' + 'TOS_CLIENTE_DETALLES.PROPIEDAD, PRESUPUESTOS_CLIENTE_DETALLES.CO' +
'NCEPTO, PRESUPUESTOS_CLIENTE_DETALLES.CANTIDAD,'#10' PRESUPUESTOS' + 'NCEPTO, PRESUPUESTOS_CLIENTE_DETALLES.CANTIDAD,'#10' PRESUPUESTOS' +
'_CLIENTE_DETALLES.IMPORTE_UNIDAD, PRESUPUESTOS_CLIENTE_DETALLES.' + '_CLIENTE_DETALLES.IMPORTE_UNIDAD, PRESUPUESTOS_CLIENTE_DETALLES.' +
'IMPORTE_TOTAL,'#10' PRESUPUESTOS_CLIENTE_DETALLES.VISIBLE,'#10#10' P' + 'IMPORTE_TOTAL,'#10' PRESUPUESTOS_CLIENTE_DETALLES.VISIBLE, PRESUP' +
'RESUPUESTOS_CLIENTE_DETALLES.ID_ARTICULO, PRESUPUESTOS_CLIENTE_D' + 'UESTOS_CLIENTE_DETALLES.VISIBLE2,'#10#10' PRESUPUESTOS_CLIENTE_DETA' +
'ETALLES.TIPO_ARTICULO,'#10' PRESUPUESTOS_CLIENTE_DETALLES.DESCUEN' + 'LLES.ID_ARTICULO, PRESUPUESTOS_CLIENTE_DETALLES.TIPO_ARTICULO,'#10' ' +
'TO,'#10' PRESUPUESTOS_CLIENTE_DETALLES.IMPORTE_PORTE, ARTICULOS.R' + ' PRESUPUESTOS_CLIENTE_DETALLES.DESCUENTO,'#10' PRESUPUESTOS_CLI' +
'EFERENCIA,'#10' '#39#39' as REFERENCIA_PROVEEDOR /*Es necesario para qu' + 'ENTE_DETALLES.IMPORTE_PORTE, ARTICULOS.REFERENCIA,'#10' '#39#39' as REF' +
'e no fallen los detalles porque los detalles son comunes para la' + 'ERENCIA_PROVEEDOR /*Es necesario para que no fallen los detalles' +
' rama de cliente y de proveedor*/'#10#10'FROM PRESUPUESTOS_CLIENTE_DET' + ' porque los detalles son comunes para la rama de cliente y de pr' +
'ALLES'#10'LEFT JOIN ARTICULOS ON PRESUPUESTOS_CLIENTE_DETALLES.ID_AR' + 'oveedor*/'#10#10'FROM PRESUPUESTOS_CLIENTE_DETALLES'#10'LEFT JOIN ARTICULO' +
'TICULO = ARTICULOS.ID'#10'where {where}'#10'ORDER BY POSICION;'#10#10#10 'S ON PRESUPUESTOS_CLIENTE_DETALLES.ID_ARTICULO = ARTICULOS.ID'#10'wh' +
'ere {where}'#10'ORDER BY POSICION;'#10#10#10
StatementType = stSQL StatementType = stSQL
ColumnMappings = < ColumnMappings = <
item item
@ -738,6 +759,10 @@ object srvPresupuestosCliente: TsrvPresupuestosCliente
item item
DatasetField = 'PROPIEDAD' DatasetField = 'PROPIEDAD'
TableField = 'PROPIEDAD' TableField = 'PROPIEDAD'
end
item
DatasetField = 'VISIBLE2'
TableField = 'VISIBLE2'
end> end>
end> end>
Name = 'PresupuestosCliente_Detalles' Name = 'PresupuestosCliente_Detalles'
@ -783,9 +808,15 @@ object srvPresupuestosCliente: TsrvPresupuestosCliente
Name = 'IMPORTE_TOTAL' Name = 'IMPORTE_TOTAL'
DataType = datCurrency DataType = datCurrency
end end
item
Name = 'VISIBLE2'
DataType = datSmallInt
DisplayLabel = #191'Visible?'
end
item item
Name = 'VISIBLE' Name = 'VISIBLE'
DataType = datSmallInt DataType = datSmallInt
DisplayLabel = #191'Valorado?'
end end
item item
Name = 'ID_ARTICULO' Name = 'ID_ARTICULO'
@ -1273,7 +1304,7 @@ object srvPresupuestosCliente: TsrvPresupuestosCliente
item item
Name = 'PROPIEDAD' Name = 'PROPIEDAD'
DataType = datString DataType = datString
Size = 2000 Size = 255
Value = '' Value = ''
end end
item item
@ -1302,6 +1333,11 @@ object srvPresupuestosCliente: TsrvPresupuestosCliente
DataType = datSmallInt DataType = datSmallInt
Value = '' Value = ''
end end
item
Name = 'VISIBLE2'
DataType = datSmallInt
Value = ''
end
item item
Name = 'ID_ARTICULO' Name = 'ID_ARTICULO'
DataType = datInteger DataType = datInteger
@ -1331,12 +1367,12 @@ object srvPresupuestosCliente: TsrvPresupuestosCliente
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, PROPIEDAD, CONCEPTO, CANTIDAD,'#10' ' + 'STO, POSICION, TIPO_DETALLE, PROPIEDAD, CONCEPTO, CANTIDAD,'#10' ' +
' IMPORTE_UNIDAD, IMPORTE_TOTAL, VISIBLE, ID_ARTICULO, TIPO_ARTIC' + ' IMPORTE_UNIDAD, IMPORTE_TOTAL, VISIBLE, VISIBLE2, ID_ARTICULO, ' +
'ULO,'#10' DESCUENTO, IMPORTE_PORTE, FECHA_ALTA)'#10' VALUES'#10' (:I' + 'TIPO_ARTICULO,'#10' DESCUENTO, IMPORTE_PORTE, FECHA_ALTA)'#10' VALU' +
'D, :ID_PRESUPUESTO, :POSICION, :TIPO_DETALLE, :PROPIEDAD, :CONCE' + 'ES'#10' (:ID, :ID_PRESUPUESTO, :POSICION, :TIPO_DETALLE, :PROPIED' +
'PTO,'#10' :CANTIDAD, :IMPORTE_UNIDAD, :IMPORTE_TOTAL, :VISIBLE,'#10 + 'AD, :CONCEPTO,'#10' :CANTIDAD, :IMPORTE_UNIDAD, :IMPORTE_TOTAL, ' +
' :ID_ARTICULO, :TIPO_ARTICULO, :DESCUENTO, :IMPORTE_PORTE, C' + ':VISIBLE, :VISIBLE2,'#10' :ID_ARTICULO, :TIPO_ARTICULO, :DESCUEN' +
'URRENT_TIMESTAMP)'#10 'TO, :IMPORTE_PORTE, CURRENT_TIMESTAMP)'#10
StatementType = stSQL StatementType = stSQL
ColumnMappings = <> ColumnMappings = <>
end> end>
@ -1366,7 +1402,8 @@ object srvPresupuestosCliente: TsrvPresupuestosCliente
Params = < Params = <
item item
Name = 'ID' Name = 'ID'
DataType = datInteger DataType = datAutoInc
GeneratorName = 'GEN_PRESUPUESTOS_CLI_DETALLE_ID'
Value = '' Value = ''
end end
item item
@ -1388,7 +1425,7 @@ object srvPresupuestosCliente: TsrvPresupuestosCliente
item item
Name = 'PROPIEDAD' Name = 'PROPIEDAD'
DataType = datString DataType = datString
Size = 2000 Size = 255
Value = '' Value = ''
end end
item item
@ -1417,6 +1454,11 @@ object srvPresupuestosCliente: TsrvPresupuestosCliente
DataType = datSmallInt DataType = datSmallInt
Value = '' Value = ''
end end
item
Name = 'VISIBLE2'
DataType = datSmallInt
Value = ''
end
item item
Name = 'ID_ARTICULO' Name = 'ID_ARTICULO'
DataType = datInteger DataType = datInteger
@ -1453,10 +1495,10 @@ object srvPresupuestosCliente: TsrvPresupuestosCliente
'TIPO_DETALLE = :TIPO_DETALLE, '#10' PROPIEDAD = :PROPIEDAD,'#10' C' + 'TIPO_DETALLE = :TIPO_DETALLE, '#10' PROPIEDAD = :PROPIEDAD,'#10' C' +
'ONCEPTO = :CONCEPTO, '#10' CANTIDAD = :CANTIDAD, '#10' IMPORTE_UNI' + 'ONCEPTO = :CONCEPTO, '#10' CANTIDAD = :CANTIDAD, '#10' IMPORTE_UNI' +
'DAD = :IMPORTE_UNIDAD,'#10' IMPORTE_TOTAL = :IMPORTE_TOTAL, '#10' ' + 'DAD = :IMPORTE_UNIDAD,'#10' IMPORTE_TOTAL = :IMPORTE_TOTAL, '#10' ' +
'VISIBLE = :VISIBLE, '#10' ID_ARTICULO = :ID_ARTICULO, '#10' TIPO_A' + 'VISIBLE = :VISIBLE, '#10' VISIBLE2 = :VISIBLE2,'#10' ID_ARTICULO =' +
'RTICULO = :TIPO_ARTICULO,'#10' DESCUENTO = :DESCUENTO, '#10' IMPOR' + ' :ID_ARTICULO, '#10' TIPO_ARTICULO = :TIPO_ARTICULO,'#10' DESCUENT' +
'TE_PORTE = :IMPORTE_PORTE,'#10' FECHA_MODIFICACION = CURRENT_TIME' + 'O = :DESCUENTO, '#10' IMPORTE_PORTE = :IMPORTE_PORTE,'#10' FECHA_M' +
'STAMP'#10' WHERE'#10' (ID = :OLD_ID)'#10 'ODIFICACION = CURRENT_TIMESTAMP'#10' WHERE'#10' (ID = :OLD_ID)'#10
StatementType = stSQL StatementType = stSQL
ColumnMappings = <> ColumnMappings = <>
end> end>
@ -1871,7 +1913,7 @@ object srvPresupuestosCliente: TsrvPresupuestosCliente
item item
Name = 'PresupuestosCliente_Detalles_VISIBLE' Name = 'PresupuestosCliente_Detalles_VISIBLE'
DataType = datInteger DataType = datInteger
DisplayLabel = 'VISIBLE' DisplayLabel = #191'Valorado?'
end end
item item
Name = 'PresupuestosCliente_Detalles_ID_ARTICULO' Name = 'PresupuestosCliente_Detalles_ID_ARTICULO'
@ -1967,6 +2009,12 @@ object srvPresupuestosCliente: TsrvPresupuestosCliente
item item
Name = 'CapitulosPresupuesto_VISIBLE' Name = 'CapitulosPresupuesto_VISIBLE'
DataType = datInteger DataType = datInteger
DisplayLabel = #191'Valorado?'
end
item
Name = 'PresupuestosCliente_Detalles_VISIBLE2'
DataType = datInteger
DisplayLabel = #191'Visible?'
end> end>
Left = 48 Left = 48
Top = 152 Top = 152

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

@ -213,16 +213,31 @@ inherited fEditorPresupuestoCliente: TfEditorPresupuestoCliente
Width = 834 Width = 834
Height = 24 Height = 24
ExplicitWidth = 834 ExplicitWidth = 834
ExplicitHeight = 24 inherited ToolButton14: TToolButton [1]
inherited ToolButton14: TToolButton Left = 109
Wrap = False
end
inherited FontName: TJvFontComboBox
Left = 368
Top = 0 Top = 0
ExplicitLeft = 368 Enabled = True
ExplicitLeft = 109
ExplicitTop = 0 ExplicitTop = 0
end end
inherited ToolButton2: TToolButton [2]
Left = 143
end
inherited FontName: TJvFontComboBox [3]
Left = 257
Top = 0
ExplicitLeft = 257
ExplicitTop = 0
end
inherited ToolButton3: TToolButton [4]
Left = 402
ExplicitLeft = 402
end
inherited ToolButton4: TToolButton [5]
Left = 457
Wrap = False
ExplicitLeft = 457
end
inherited FontSize: TEdit inherited FontSize: TEdit
Left = 513 Left = 513
Top = 0 Top = 0
@ -290,25 +305,27 @@ inherited fEditorPresupuestoCliente: TfEditorPresupuestoCliente
Top = 50 Top = 50
Width = 834 Width = 834
Height = 239 Height = 239
ExplicitTop = 50
ExplicitWidth = 834 ExplicitWidth = 834
ExplicitHeight = 239 ExplicitHeight = 239
end end
inherited TBXDock1: TTBXDock inherited TBXDock1: TTBXDock
Top = 24 Top = 24
Width = 834 Width = 834
ExplicitTop = 24
ExplicitWidth = 834 ExplicitWidth = 834
inherited TBXToolbar1: TTBXToolbar inherited TBXToolbar1: TTBXToolbar
ExplicitWidth = 665 ExplicitWidth = 663
end end
end end
inherited cxLookupComboBox1: TcxLookupComboBox inherited cxLookupComboBox1: TcxLookupComboBox
Properties.OnCloseUp = nil
Style.IsFontAssigned = True Style.IsFontAssigned = True
end end
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
@ -417,18 +434,16 @@ inherited fEditorPresupuestoCliente: TfEditorPresupuestoCliente
LookAndFeel = dxLayoutOfficeLookAndFeel1 LookAndFeel = dxLayoutOfficeLookAndFeel1
ExplicitWidth = 848 ExplicitWidth = 848
inherited Bevel3: TBevel inherited Bevel3: TBevel
Left = 352 Left = 310
Top = 57 Top = 57
Height = 122 ExplicitLeft = 310
ExplicitLeft = 352
ExplicitTop = 57 ExplicitTop = 57
ExplicitHeight = 122
end end
inherited Bevel4: TBevel inherited Bevel4: TBevel
Left = 464 Left = 422
Top = 88 Top = 88
Width = 342 Width = 342
ExplicitLeft = 464 ExplicitLeft = 422
ExplicitTop = 88 ExplicitTop = 88
ExplicitWidth = 342 ExplicitWidth = 342
end end
@ -436,26 +451,20 @@ inherited fEditorPresupuestoCliente: TfEditorPresupuestoCliente
Top = 84 Top = 84
Style.IsFontAssigned = True Style.IsFontAssigned = True
ExplicitTop = 84 ExplicitTop = 84
ExplicitWidth = 93
Width = 93
end end
inherited ImporteIVA: TcxDBCurrencyEdit inherited ImporteIVA: TcxDBCurrencyEdit
Left = 535 Left = 493
Top = 108 Top = 108
Style.IsFontAssigned = True Style.IsFontAssigned = True
ExplicitLeft = 535 ExplicitLeft = 493
ExplicitTop = 108 ExplicitTop = 108
ExplicitWidth = 137
Width = 137
end end
inherited ImporteTotal: TcxDBCurrencyEdit inherited ImporteTotal: TcxDBCurrencyEdit
Left = 465 Left = 423
Top = 162 Top = 162
Style.IsFontAssigned = True Style.IsFontAssigned = True
ExplicitLeft = 465 ExplicitLeft = 423
ExplicitTop = 162 ExplicitTop = 162
ExplicitWidth = 137
Width = 137
end end
inherited edtDescuento: TcxDBSpinEdit inherited edtDescuento: TcxDBSpinEdit
Top = 84 Top = 84
@ -463,69 +472,57 @@ inherited fEditorPresupuestoCliente: TfEditorPresupuestoCliente
ExplicitTop = 84 ExplicitTop = 84
end end
inherited edtIVA: TcxDBSpinEdit inherited edtIVA: TcxDBSpinEdit
Left = 464 Left = 422
Top = 108 Top = 108
Style.IsFontAssigned = True Style.IsFontAssigned = True
ExplicitLeft = 464 ExplicitLeft = 422
ExplicitTop = 108 ExplicitTop = 108
end end
inherited ImporteBase: TcxDBCurrencyEdit inherited ImporteBase: TcxDBCurrencyEdit
Left = 464 Left = 422
Top = 57 Top = 57
Style.IsFontAssigned = True Style.IsFontAssigned = True
ExplicitLeft = 464 ExplicitLeft = 422
ExplicitTop = 57 ExplicitTop = 57
ExplicitWidth = 92
Width = 92
end end
inherited edtRE: TcxDBSpinEdit inherited edtRE: TcxDBSpinEdit
Left = 464 Left = 422
Top = 135 Top = 135
Style.IsFontAssigned = True Style.IsFontAssigned = True
ExplicitLeft = 464 ExplicitLeft = 422
ExplicitTop = 135 ExplicitTop = 135
end end
inherited ImporteRE: TcxDBCurrencyEdit inherited ImporteRE: TcxDBCurrencyEdit
Left = 535 Left = 493
Top = 135 Top = 135
Style.IsFontAssigned = True Style.IsFontAssigned = True
ExplicitLeft = 535 ExplicitLeft = 493
ExplicitTop = 135 ExplicitTop = 135
ExplicitWidth = 56
Width = 56
end end
inherited eImporteNeto: TcxDBCurrencyEdit inherited eImporteNeto: TcxDBCurrencyEdit
Top = 57 Top = 57
Style.IsFontAssigned = True Style.IsFontAssigned = True
ExplicitTop = 57 ExplicitTop = 57
ExplicitWidth = 147
Width = 147
end end
inherited ePorte: TcxDBCurrencyEdit inherited ePorte: TcxDBCurrencyEdit
Top = 111 Top = 111
Style.IsFontAssigned = True Style.IsFontAssigned = True
ExplicitTop = 111 ExplicitTop = 111
ExplicitWidth = 147
Width = 147
end end
inherited eIVA: TcxDBLookupComboBox inherited eIVA: TcxDBLookupComboBox
Top = 138 Top = 138
ExplicitTop = 138 ExplicitTop = 138
ExplicitWidth = 81
Width = 81
end end
inherited bTiposIVA: TButton inherited bTiposIVA: TButton
Left = 204 Left = 162
Top = 138 Top = 138
OnClick = frViewTotales1bTiposIVAClick OnClick = frViewTotales1bTiposIVAClick
ExplicitLeft = 204 ExplicitLeft = 162
ExplicitTop = 138 ExplicitTop = 138
end end
inherited cbRecargoEquivalencia: TcxDBCheckBox inherited cbRecargoEquivalencia: TcxDBCheckBox
Top = 165 Top = 165
ExplicitTop = 165 ExplicitTop = 165
ExplicitWidth = 219
Width = 219
end end
inherited cbValorado: TcxDBCheckBox inherited cbValorado: TcxDBCheckBox
Left = 11 Left = 11

7
Source/Modulos/Presupuestos de cliente/Views/uEditorPresupuestoCliente.pas
View File

@ -159,6 +159,8 @@ procedure TfEditorPresupuestoCliente.CustomEditorClose(Sender: TObject;
var Action: TCloseAction); var Action: TCloseAction);
begin begin
inherited; inherited;
frViewDetallesPresupuestoCliente1.SaveGridStatus;
//GESTION_DOCUMENTOS //GESTION_DOCUMENTOS
//Este método eliminará el directorio temporal si se ha creado //Este método eliminará el directorio temporal si se ha creado
frViewDocumentosPresupuestoCliente1.actEliminarTodo.Execute; frViewDocumentosPresupuestoCliente1.actEliminarTodo.Execute;
@ -198,6 +200,7 @@ begin
pgPaginas.ActivePage := pagGeneral; pgPaginas.ActivePage := pagGeneral;
Presupuesto.DataTable.Active := True; Presupuesto.DataTable.Active := True;
frViewDetallesPresupuestoCliente1.RestoreGridStatus;
end; end;
procedure TfEditorPresupuestoCliente.frViewTotales1bTiposIVAClick( procedure TfEditorPresupuestoCliente.frViewTotales1bTiposIVAClick(
@ -264,7 +267,7 @@ begin
inherited; inherited;
ShowHourglassCursor; ShowHourglassCursor;
// frViewDetallesPresupuestoCliente1.SaveGridStatus; frViewDetallesPresupuestoCliente1.SaveGridStatus;
frViewDetallesPresupuestoCliente1.BeginUpdate; frViewDetallesPresupuestoCliente1.BeginUpdate;
try try
bEsNuevo := FPresupuesto.EsNuevo; bEsNuevo := FPresupuesto.EsNuevo;
@ -274,7 +277,7 @@ begin
finally finally
frViewDetallesPresupuestoCliente1.EndUpdate; frViewDetallesPresupuestoCliente1.EndUpdate;
// frViewDetallesPresupuestoCliente1.RestoreGridStatus; frViewDetallesPresupuestoCliente1.RestoreGridStatus;
HideHourglassCursor; HideHourglassCursor;
end; end;
if bEsNuevo then if bEsNuevo then

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

@ -9,51 +9,55 @@ inherited frViewDetallesPresupuestoCliente: TfrViewDetallesPresupuestoCliente
Visible = False Visible = False
VisibleForCustomization = False VisibleForCustomization = False
end end
inherited cxGridViewVISIBLE: TcxGridDBColumn [4] inherited cxGridViewVISIBLE2: TcxGridDBColumn [4]
Visible = True
Width = 51
end
inherited cxGridViewVISIBLE: TcxGridDBColumn [5]
Caption = #191'Valorado?' Caption = #191'Valorado?'
Visible = True Visible = True
Width = 51 Width = 51
end end
inherited cxGridViewID_ARTICULO: TcxGridDBColumn [5] inherited cxGridViewID_ARTICULO: TcxGridDBColumn [6]
VisibleForCustomization = False VisibleForCustomization = False
Width = 57 Width = 57
end end
object cxGridViewPROPIEDAD: TcxGridDBColumn [6] object cxGridViewPROPIEDAD: TcxGridDBColumn [7]
Caption = 'Familia' Caption = 'Familia'
DataBinding.FieldName = 'PROPIEDAD' DataBinding.FieldName = 'PROPIEDAD'
PropertiesClassName = 'TcxRichEditProperties' PropertiesClassName = 'TcxRichEditProperties'
OnGetPropertiesForEdit = cxGridViewPROPIEDADGetPropertiesForEdit OnGetPropertiesForEdit = cxGridViewPROPIEDADGetPropertiesForEdit
Width = 287 Width = 287
end end
inherited cxGridViewREFERENCIA: TcxGridDBColumn [7] inherited cxGridViewREFERENCIA: TcxGridDBColumn [8]
end end
inherited cxGridViewREFERENCIA_PROVEEDOR: TcxGridDBColumn [8] inherited cxGridViewREFERENCIA_PROVEEDOR: TcxGridDBColumn [9]
DataBinding.FieldName = '' DataBinding.FieldName = ''
end end
inherited cxGridViewDESCRIPCION: TcxGridDBColumn [9] inherited cxGridViewDESCRIPCION: TcxGridDBColumn [10]
OnGetPropertiesForEdit = cxGridViewDESCRIPCIONGetPropertiesForEdit OnGetPropertiesForEdit = cxGridViewDESCRIPCIONGetPropertiesForEdit
Width = 383 Width = 383
end end
inherited cxGridViewCANTIDAD: TcxGridDBColumn [10] inherited cxGridViewCANTIDAD: TcxGridDBColumn [11]
VisibleForCustomization = False VisibleForCustomization = False
Width = 39 Width = 39
end end
inherited cxGridViewIMPORTEUNIDAD: TcxGridDBColumn [11] inherited cxGridViewIMPORTEUNIDAD: TcxGridDBColumn [12]
VisibleForCustomization = False VisibleForCustomization = False
Width = 54 Width = 54
end end
inherited cxGridViewDESCUENTO: TcxGridDBColumn [12] inherited cxGridViewDESCUENTO: TcxGridDBColumn [13]
VisibleForCustomization = False VisibleForCustomization = False
Width = 31 Width = 31
end end
inherited cxGridViewIMPORTENETO: TcxGridDBColumn [13] inherited cxGridViewIMPORTENETO: TcxGridDBColumn [14]
Visible = False Visible = False
VisibleForCustomization = False VisibleForCustomization = False
Width = 29 Width = 29
end end
inherited cxGridViewIMPORTEPORTE: TcxGridDBColumn [14] inherited cxGridViewIMPORTEPORTE: TcxGridDBColumn [15]
end end
inherited cxGridViewIMPORTETOTAL: TcxGridDBColumn [15] inherited cxGridViewIMPORTETOTAL: TcxGridDBColumn [16]
VisibleForCustomization = False VisibleForCustomization = False
Width = 46 Width = 46
end end
@ -115,14 +119,17 @@ inherited frViewDetallesPresupuestoCliente: TfrViewDetallesPresupuestoCliente
Top = 256 Top = 256
ParentFont = False ParentFont = False
Properties.DropDownListStyle = lsEditList Properties.DropDownListStyle = lsEditList
Properties.ImmediatePost = True
Properties.KeyFieldNames = 'DESCRIPCION' Properties.KeyFieldNames = 'DESCRIPCION'
Properties.ListColumns = < Properties.ListColumns = <
item item
SortOrder = soAscending
FieldName = 'DESCRIPCION' FieldName = 'DESCRIPCION'
end> end>
Properties.ListOptions.ShowHeader = False Properties.ListOptions.ShowHeader = False
Properties.ListOptions.SyncMode = True
Properties.ListSource = DAValores Properties.ListSource = DAValores
Properties.PostPopupValueOnTab = True
Properties.OnEditValueChanged = cxLookupComboBox1PropertiesEditValueChanged
Style.Font.Charset = DEFAULT_CHARSET Style.Font.Charset = DEFAULT_CHARSET
Style.Font.Color = clWindowText Style.Font.Color = clWindowText
Style.Font.Height = -13 Style.Font.Height = -13

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

@ -15,7 +15,7 @@ uses
Mask, DBCtrls, cxButtonEdit, cxDropDownEdit, Menus, cxGridCustomPopupMenu, Mask, DBCtrls, cxButtonEdit, cxDropDownEdit, Menus, cxGridCustomPopupMenu,
cxGridPopupMenu, cxDBLookupComboBox, cxCalc, cxEditRepositoryItems, cxGridPopupMenu, cxDBLookupComboBox, cxCalc, cxEditRepositoryItems,
cxContainer, cxLookupEdit, cxDBLookupEdit, uBizDetallesPresupuestoCliente, cxContainer, cxLookupEdit, cxDBLookupEdit, uBizDetallesPresupuestoCliente,
cxMemo; cxMemo, cxDBEditRepository, cxExtEditRepositoryItems;
type type
IViewDetallesPresupuestoCliente = interface(IViewDetallesArticulos) IViewDetallesPresupuestoCliente = interface(IViewDetallesArticulos)
@ -74,8 +74,10 @@ type
procedure actAnadirExecute(Sender: TObject); procedure actAnadirExecute(Sender: TObject);
procedure actCapituloImportesExecute(Sender: TObject); procedure actCapituloImportesExecute(Sender: TObject);
procedure OnVISIBLEPropertiesEditValueChanged(Sender: TObject); procedure OnVISIBLEPropertiesEditValueChanged(Sender: TObject);
procedure OnVISIBLE2PropertiesEditValueChanged(Sender: TObject);
procedure CustomViewDestroy(Sender: TObject); procedure CustomViewDestroy(Sender: TObject);
procedure actCapituloObraExecute(Sender: TObject); procedure actCapituloObraExecute(Sender: TObject);
procedure cxLookupComboBox1PropertiesEditValueChanged(Sender: TObject);
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);
@ -99,8 +101,9 @@ type
implementation implementation
{$R *.dfm} {$R *.dfm}
uses uControllerDetallesBase, uDetallesPresupuestoClienteController, schPresupuestosClienteClient_Intf, uses
uCalculosUtils; uControllerDetallesBase, uDetallesPresupuestoClienteController, schPresupuestosClienteClient_Intf,
uCalculosUtils, cxVariants, cxDataUtils;
{ TfrViewDetallesPresupuestoProveedor } { TfrViewDetallesPresupuestoProveedor }
@ -245,6 +248,7 @@ end;
procedure TfrViewDetallesPresupuestoCliente.CustomViewDestroy(Sender: TObject); procedure TfrViewDetallesPresupuestoCliente.CustomViewDestroy(Sender: TObject);
begin begin
cxGridViewVISIBLE2.Properties.OnEditValueChanged := Nil;
cxGridViewVISIBLE.Properties.OnEditValueChanged := Nil; cxGridViewVISIBLE.Properties.OnEditValueChanged := Nil;
inherited; inherited;
end; end;
@ -259,6 +263,7 @@ begin
DAPropiedades.DataTable := FPropiedades.DataTable; DAPropiedades.DataTable := FPropiedades.DataTable;
DAValores.DataTable := FPropiedades.Valores.DataTable; DAValores.DataTable := FPropiedades.Valores.DataTable;
cxGridViewVISIBLE2.Properties.OnEditValueChanged := OnVISIBLE2PropertiesEditValueChanged;
cxGridViewVISIBLE.Properties.OnEditValueChanged := OnVISIBLEPropertiesEditValueChanged; cxGridViewVISIBLE.Properties.OnEditValueChanged := OnVISIBLEPropertiesEditValueChanged;
end; end;
end; end;
@ -274,9 +279,12 @@ begin
if (ARecord.DisplayTexts[cxGridViewTIPO.Index] = TIPO_DETALLE_CONCEPTO) if (ARecord.DisplayTexts[cxGridViewTIPO.Index] = TIPO_DETALLE_CONCEPTO)
and (ARecord.DisplayTexts[cxGridViewPROPIEDAD.Index] <> '') then and (ARecord.DisplayTexts[cxGridViewPROPIEDAD.Index] <> '') then
AProperties := cxLookupComboBox1.Properties begin
else AProperties := cxLookupComboBox1.Properties;
end
else begin
AProperties := cxRichEdit1.Properties; AProperties := cxRichEdit1.Properties;
end;
end; end;
procedure TfrViewDetallesPresupuestoCliente.cxGridViewPROPIEDADGetPropertiesForEdit( procedure TfrViewDetallesPresupuestoCliente.cxGridViewPROPIEDADGetPropertiesForEdit(
@ -285,13 +293,53 @@ procedure TfrViewDetallesPresupuestoCliente.cxGridViewPROPIEDADGetPropertiesForE
begin begin
inherited; inherited;
if (ARecord.DisplayTexts[cxGridViewTIPO.Index] = TIPO_DETALLE_CONCEPTO) if (ARecord.DisplayTexts[cxGridViewTIPO.Index] = TIPO_DETALLE_CONCEPTO) then
then begin
AProperties := cxLookupComboBox2.Properties AProperties := cxLookupComboBox2.Properties
end
else else
AProperties := cxRichEdit1.Properties; AProperties := cxRichEdit1.Properties;
end; end;
procedure TfrViewDetallesPresupuestoCliente.cxLookupComboBox1PropertiesEditValueChanged(
Sender: TObject);
var
AEdit: TcxCustomEdit;
AValue: Variant;
begin
inherited;
AEdit := Sender as TcxCustomEdit;
if (AEdit.EditValue = DAValores.DataTable.FieldByName('DESCRIPCION').AsString) then
begin
AValue := DAValores.DataTable.FieldByName('PRECIO_PVP').Value;
AEdit.PostEditValue; // To 'stick' the new value in the active cell
cxGridView.DataController.SetEditValue(cxGridViewIMPORTEUNIDAD.Index, AValue, evsValue);
Controller.actualizarTotales(Detalles);
end;
end;
procedure TfrViewDetallesPresupuestoCliente.OnVISIBLE2PropertiesEditValueChanged(
Sender: TObject);
var
Orden: Integer;
begin
inherited;
Orden := 1;
if (cxGridView.DataController.GetItemByFieldName(CAMPO_TIPO).EditValue = TIPO_DETALLE_TITULO)
or (cxGridView.DataController.GetItemByFieldName(CAMPO_TIPO).EditValue = TIPO_DETALLE_TITULO_OPCIONAL)
or (cxGridView.DataController.GetItemByFieldName(CAMPO_TIPO).EditValue = TIPO_DETALLE_SUBTOTAL) then
begin
cxGridView.BeginUpdate;
if (cxGridView.DataController.GetItemByFieldName(CAMPO_TIPO).EditValue = TIPO_DETALLE_SUBTOTAL) then
Orden := 0;
(Controller as IDetallesPresupuestoClienteController).SetVisible2(Detalles, cxGridView.DataController.GetItemByFieldName(CAMPO_VISIBLE2).EditValue, Orden);
cxGridView.EndUpdate;
end;
end;
procedure TfrViewDetallesPresupuestoCliente.OnVISIBLEPropertiesEditValueChanged(Sender: TObject); procedure TfrViewDetallesPresupuestoCliente.OnVISIBLEPropertiesEditValueChanged(Sender: TObject);
var var
Orden: Integer; Orden: Integer;

6
Source/Servidor/FactuGES_Server.dpr
View File

@ -133,10 +133,10 @@ uses
schFamiliasServer_Intf in '..\Modulos\Familias\Model\schFamiliasServer_Intf.pas', schFamiliasServer_Intf in '..\Modulos\Familias\Model\schFamiliasServer_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',
schPresupuestosClienteClient_Intf in '..\Modulos\Presupuestos de cliente\Model\schPresupuestosClienteClient_Intf.pas',
schPresupuestosClienteServer_Intf in '..\Modulos\Presupuestos de cliente\Model\schPresupuestosClienteServer_Intf.pas',
schArticulosClient_Intf in '..\Modulos\Articulos\Model\schArticulosClient_Intf.pas', schArticulosClient_Intf in '..\Modulos\Articulos\Model\schArticulosClient_Intf.pas',
schArticulosServer_Intf in '..\Modulos\Articulos\Model\schArticulosServer_Intf.pas'; schArticulosServer_Intf in '..\Modulos\Articulos\Model\schArticulosServer_Intf.pas',
schPresupuestosClienteClient_Intf in '..\Modulos\Presupuestos de cliente\Model\schPresupuestosClienteClient_Intf.pas',
schPresupuestosClienteServer_Intf in '..\Modulos\Presupuestos de cliente\Model\schPresupuestosClienteServer_Intf.pas';
{$R *.res} {$R *.res}
{$R ..\Servicios\RODLFile.res} {$R ..\Servicios\RODLFile.res}

2
Source/Servidor/FactuGES_Server.dproj
View File

@ -28,7 +28,7 @@
<Borland.Personality>Delphi.Personality</Borland.Personality> <Borland.Personality>Delphi.Personality</Borland.Personality>
<Borland.ProjectType/> <Borland.ProjectType/>
<BorlandProject> <BorlandProject>
<BorlandProject><Delphi.Personality><Parameters><Parameters Name="UseLauncher">False</Parameters><Parameters Name="LoadAllSymbols">True</Parameters><Parameters Name="LoadUnspecifiedSymbols">False</Parameters></Parameters><VersionInfo><VersionInfo Name="IncludeVerInfo">True</VersionInfo><VersionInfo Name="AutoIncBuild">False</VersionInfo><VersionInfo Name="MajorVer">2</VersionInfo><VersionInfo Name="MinorVer">5</VersionInfo><VersionInfo Name="Release">0</VersionInfo><VersionInfo Name="Build">0</VersionInfo><VersionInfo Name="Debug">False</VersionInfo><VersionInfo Name="PreRelease">False</VersionInfo><VersionInfo Name="Special">False</VersionInfo><VersionInfo Name="Private">False</VersionInfo><VersionInfo Name="DLL">False</VersionInfo><VersionInfo Name="Locale">3082</VersionInfo><VersionInfo Name="CodePage">1252</VersionInfo></VersionInfo><VersionInfoKeys><VersionInfoKeys Name="CompanyName">Rodax Software S.L.</VersionInfoKeys><VersionInfoKeys Name="FileDescription"></VersionInfoKeys><VersionInfoKeys Name="FileVersion">2.5.0.0</VersionInfoKeys><VersionInfoKeys Name="InternalName"></VersionInfoKeys><VersionInfoKeys Name="LegalCopyright"></VersionInfoKeys><VersionInfoKeys Name="LegalTrademarks"></VersionInfoKeys><VersionInfoKeys Name="OriginalFilename"></VersionInfoKeys><VersionInfoKeys Name="ProductName">FactuGES (Servidor)</VersionInfoKeys><VersionInfoKeys Name="ProductVersion">2.5.0.0</VersionInfoKeys><VersionInfoKeys Name="Comments"></VersionInfoKeys><VersionInfoKeys Name="CompileDate">miércoles, 23 de mayo de 2012 13:56</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">1</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.1.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.1.0</VersionInfoKeys><VersionInfoKeys Name="Comments"></VersionInfoKeys><VersionInfoKeys Name="CompileDate">miércoles, 05 de septiembre de 2012 20:56</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>

10
Source/Servidor/FactuGES_Server.rc
View File

@ -1,7 +1,7 @@
MAINICON ICON "C:\Codigo Acana\Resources\Iconos\Servidor.ico" MAINICON ICON "C:\Codigo Acana\Resources\Iconos\Servidor.ico"
1 VERSIONINFO 1 VERSIONINFO
FILEVERSION 2,5,0,0 FILEVERSION 2,5,1,0
PRODUCTVERSION 2,5,0,0 PRODUCTVERSION 2,5,1,0
FILEFLAGSMASK 0x3FL FILEFLAGSMASK 0x3FL
FILEFLAGS 0x00L FILEFLAGS 0x00L
FILEOS 0x40004L FILEOS 0x40004L
@ -13,10 +13,10 @@ BEGIN
BLOCK "0C0A04E4" BLOCK "0C0A04E4"
BEGIN BEGIN
VALUE "CompanyName", "Rodax Software S.L.\0" VALUE "CompanyName", "Rodax Software S.L.\0"
VALUE "FileVersion", "2.5.0.0\0" VALUE "FileVersion", "2.5.1.0\0"
VALUE "ProductName", "FactuGES (Servidor)\0" VALUE "ProductName", "FactuGES (Servidor)\0"
VALUE "ProductVersion", "2.5.0.0\0" VALUE "ProductVersion", "2.5.1.0\0"
VALUE "CompileDate", "jueves, 21 de junio de 2012 19:00\0" VALUE "CompileDate", "viernes, 14 de septiembre de 2012 18:42\0"
END END
END END
BLOCK "VarFileInfo" BLOCK "VarFileInfo"

BIN
Source/Servidor/FactuGES_Server.res
View File

Binary file not shown.