Tecistel/Tecsitel_FactuGES2
0
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

En los grids ordenar correctamente los campos de referencias.

Browse Source 
git-svn-id: https://192.168.0.254/svn/Proyectos.Tecsitel_FactuGES2/trunk@413 0c75b7a4-871f-7646-8a2f-f78d34cc349f
This commit is contained in:
David Arranz 2008-06-03 11:15:51 +00:00
parent c0649b21e9
commit 219798e3c9
29 changed files with 393 additions and 352 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
Source/Base/Base.dpk
View File

@ -110,6 +110,7 @@ contains
Ctltortf in 'Utiles\Ctltortf.pas', Ctltortf in 'Utiles\Ctltortf.pas',
uRTFUtils in 'Utiles\uRTFUtils.pas', uRTFUtils in 'Utiles\uRTFUtils.pas',
ClipboardUtils in 'Utiles\ClipboardUtils.pas', ClipboardUtils in 'Utiles\ClipboardUtils.pas',
uGridClipboardUtils in 'Utiles\uGridClipboardUtils.pas'; uGridClipboardUtils in 'Utiles\uGridClipboardUtils.pas',
uReferenciasUtils in 'Utiles\uReferenciasUtils.pas';
end. end.

105
Source/Base/Base.dproj
View File

@ -44,6 +44,8 @@
<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\dcloffice2k100.bpl">Microsoft Office 2000 Sample Automation Server Wrapper Components</Excluded_Packages> <Excluded_Packages Name="$(BDS)\bin\dcloffice2k100.bpl">Microsoft Office 2000 Sample Automation Server Wrapper Components</Excluded_Packages>
<Excluded_Packages Name="$(BDS)\bin\dclofficexp100.bpl">Microsoft Office XP Sample Automation Server Wrapper Components</Excluded_Packages> <Excluded_Packages Name="$(BDS)\bin\dclofficexp100.bpl">Microsoft Office XP Sample Automation Server Wrapper Components</Excluded_Packages>
</Excluded_Packages><Source><Source Name="MainSource">Base.dpk</Source></Source></Delphi.Personality></BorlandProject></BorlandProject> </Excluded_Packages><Source><Source Name="MainSource">Base.dpk</Source></Source></Delphi.Personality></BorlandProject></BorlandProject>
@ -53,57 +55,6 @@
<DelphiCompile Include="Base.dpk"> <DelphiCompile Include="Base.dpk">
<MainSource>MainSource</MainSource> <MainSource>MainSource</MainSource>
</DelphiCompile> </DelphiCompile>
<DCCReference Include="..\Modulos\Albaranes de proveedor\adortl.dcp" />
<DCCReference Include="..\Modulos\Albaranes de proveedor\cxDataD11.dcp" />
<DCCReference Include="..\Modulos\Albaranes de proveedor\cxEditorsD11.dcp" />
<DCCReference Include="..\Modulos\Albaranes de proveedor\cxExportD11.dcp" />
<DCCReference Include="..\Modulos\Albaranes de proveedor\cxExtEditorsD11.dcp" />
<DCCReference Include="..\Modulos\Albaranes de proveedor\cxGridD11.dcp" />
<DCCReference Include="..\Modulos\Albaranes de proveedor\cxIntl6D11.dcp" />
<DCCReference Include="..\Modulos\Albaranes de proveedor\cxIntlPrintSys3D11.dcp" />
<DCCReference Include="..\Modulos\Albaranes de proveedor\cxLibraryD11.dcp" />
<DCCReference Include="..\Modulos\Albaranes de proveedor\cxPageControlD11.dcp" />
<DCCReference Include="..\Modulos\Albaranes de proveedor\DataAbstract_Core_D11.dcp" />
<DCCReference Include="..\Modulos\Albaranes de proveedor\dbrtl.dcp" />
<DCCReference Include="..\Modulos\Albaranes de proveedor\dclIndyCore.dcp" />
<DCCReference Include="..\Modulos\Albaranes de proveedor\designide.dcp" />
<DCCReference Include="..\Modulos\Albaranes de proveedor\dsnap.dcp" />
<DCCReference Include="..\Modulos\Albaranes de proveedor\dxGDIPlusD11.dcp" />
<DCCReference Include="..\Modulos\Albaranes de proveedor\dxPSCoreD11.dcp" />
<DCCReference Include="..\Modulos\Albaranes de proveedor\dxThemeD11.dcp" />
<DCCReference Include="..\Modulos\Albaranes de proveedor\GUISDK_D11.dcp" />
<DCCReference Include="..\Modulos\Albaranes de proveedor\IndyCore.dcp" />
<DCCReference Include="..\Modulos\Albaranes de proveedor\IndyProtocols.dcp" />
<DCCReference Include="..\Modulos\Albaranes de proveedor\IndySystem.dcp" />
<DCCReference Include="..\Modulos\Albaranes de proveedor\Jcl.dcp" />
<DCCReference Include="..\Modulos\Albaranes de proveedor\JclVcl.dcp" />
<DCCReference Include="..\Modulos\Albaranes de proveedor\JSDialog100.dcp" />
<DCCReference Include="..\Modulos\Albaranes de proveedor\JvCmpD11R.dcp" />
<DCCReference Include="..\Modulos\Albaranes de proveedor\JvCoreD11R.dcp" />
<DCCReference Include="..\Modulos\Albaranes de proveedor\JvCtrlsD11R.dcp" />
<DCCReference Include="..\Modulos\Albaranes de proveedor\JvDlgsD11R.dcp" />
<DCCReference Include="..\Modulos\Albaranes de proveedor\JvMMD11R.dcp" />
<DCCReference Include="..\Modulos\Albaranes de proveedor\JvNetD11R.dcp" />
<DCCReference Include="..\Modulos\Albaranes de proveedor\JvPageCompsD11R.dcp" />
<DCCReference Include="..\Modulos\Albaranes de proveedor\JvStdCtrlsD11R.dcp" />
<DCCReference Include="..\Modulos\Albaranes de proveedor\JvSystemD11R.dcp" />
<DCCReference Include="..\Modulos\Albaranes de proveedor\pckMD5.dcp" />
<DCCReference Include="..\Modulos\Albaranes de proveedor\pckUCDataConnector.dcp" />
<DCCReference Include="..\Modulos\Albaranes de proveedor\pckUserControl_RT.dcp" />
<DCCReference Include="..\Modulos\Albaranes de proveedor\PngComponentsD10.dcp" />
<DCCReference Include="..\Modulos\Albaranes de proveedor\PNG_D10.dcp" />
<DCCReference Include="..\Modulos\Albaranes de proveedor\RemObjects_Core_D11.dcp" />
<DCCReference Include="..\Modulos\Albaranes de proveedor\RemObjects_Indy_D11.dcp" />
<DCCReference Include="..\Modulos\Albaranes de proveedor\rtl.dcp" />
<DCCReference Include="..\Modulos\Albaranes de proveedor\TB2k_D10.dcp" />
<DCCReference Include="..\Modulos\Albaranes de proveedor\tbx_d10.dcp" />
<DCCReference Include="..\Modulos\Albaranes de proveedor\vcl.dcp" />
<DCCReference Include="..\Modulos\Albaranes de proveedor\vclactnband.dcp" />
<DCCReference Include="..\Modulos\Albaranes de proveedor\vcldb.dcp" />
<DCCReference Include="..\Modulos\Albaranes de proveedor\vcljpg.dcp" />
<DCCReference Include="..\Modulos\Albaranes de proveedor\VclSmp.dcp" />
<DCCReference Include="..\Modulos\Albaranes de proveedor\vclx.dcp" />
<DCCReference Include="..\Modulos\Albaranes de proveedor\xmlrtl.dcp" />
<DCCReference Include="..\Servicios\FactuGES_Intf.pas" /> <DCCReference Include="..\Servicios\FactuGES_Intf.pas" />
<DCCReference Include="Conexion\uConfigurarConexion.pas"> <DCCReference Include="Conexion\uConfigurarConexion.pas">
<Form>fConfigurarConexion</Form> <Form>fConfigurarConexion</Form>
@ -128,12 +79,56 @@
<Form>dmBase</Form> <Form>dmBase</Form>
<DesignClass>TDataModule</DesignClass> <DesignClass>TDataModule</DesignClass>
</DCCReference> </DCCReference>
<DCCReference Include="Utiles\adortl.dcp" />
<DCCReference Include="Utiles\ClassRegistry\uClassRegistryUtils.pas" /> <DCCReference Include="Utiles\ClassRegistry\uClassRegistryUtils.pas" />
<DCCReference Include="Utiles\ClassRegistry\uEditorRegistryUtils.pas" /> <DCCReference Include="Utiles\ClassRegistry\uEditorRegistryUtils.pas" />
<DCCReference Include="Utiles\ClassRegistry\uInformeRegistryUtils.pas" /> <DCCReference Include="Utiles\ClassRegistry\uInformeRegistryUtils.pas" />
<DCCReference Include="Utiles\ClassRegistry\uViewRegistryUtils.pas" /> <DCCReference Include="Utiles\ClassRegistry\uViewRegistryUtils.pas" />
<DCCReference Include="Utiles\ClipboardUtils.pas" /> <DCCReference Include="Utiles\ClipboardUtils.pas" />
<DCCReference Include="Utiles\Ctltortf.pas" /> <DCCReference Include="Utiles\Ctltortf.pas" />
<DCCReference Include="Utiles\cxDataD11.dcp" />
<DCCReference Include="Utiles\cxEditorsD11.dcp" />
<DCCReference Include="Utiles\cxExportD11.dcp" />
<DCCReference Include="Utiles\cxExtEditorsD11.dcp" />
<DCCReference Include="Utiles\cxGridD11.dcp" />
<DCCReference Include="Utiles\cxIntl6D11.dcp" />
<DCCReference Include="Utiles\cxIntlPrintSys3D11.dcp" />
<DCCReference Include="Utiles\cxLibraryD11.dcp" />
<DCCReference Include="Utiles\cxPageControlD11.dcp" />
<DCCReference Include="Utiles\DataAbstract_Core_D11.dcp" />
<DCCReference Include="Utiles\dbrtl.dcp" />
<DCCReference Include="Utiles\dclIndyCore.dcp" />
<DCCReference Include="Utiles\designide.dcp" />
<DCCReference Include="Utiles\dsnap.dcp" />
<DCCReference Include="Utiles\dxGDIPlusD11.dcp" />
<DCCReference Include="Utiles\dxPSCoreD11.dcp" />
<DCCReference Include="Utiles\dxThemeD11.dcp" />
<DCCReference Include="Utiles\GUISDK_D11.dcp" />
<DCCReference Include="Utiles\IndyCore.dcp" />
<DCCReference Include="Utiles\IndyProtocols.dcp" />
<DCCReference Include="Utiles\IndySystem.dcp" />
<DCCReference Include="Utiles\Jcl.dcp" />
<DCCReference Include="Utiles\JclVcl.dcp" />
<DCCReference Include="Utiles\JSDialog100.dcp" />
<DCCReference Include="Utiles\JvCmpD11R.dcp" />
<DCCReference Include="Utiles\JvCoreD11R.dcp" />
<DCCReference Include="Utiles\JvCtrlsD11R.dcp" />
<DCCReference Include="Utiles\JvDlgsD11R.dcp" />
<DCCReference Include="Utiles\JvMMD11R.dcp" />
<DCCReference Include="Utiles\JvNetD11R.dcp" />
<DCCReference Include="Utiles\JvPageCompsD11R.dcp" />
<DCCReference Include="Utiles\JvStdCtrlsD11R.dcp" />
<DCCReference Include="Utiles\JvSystemD11R.dcp" />
<DCCReference Include="Utiles\pckMD5.dcp" />
<DCCReference Include="Utiles\pckUCDataConnector.dcp" />
<DCCReference Include="Utiles\pckUserControl_RT.dcp" />
<DCCReference Include="Utiles\PngComponentsD10.dcp" />
<DCCReference Include="Utiles\PNG_D10.dcp" />
<DCCReference Include="Utiles\RemObjects_Core_D11.dcp" />
<DCCReference Include="Utiles\RemObjects_Indy_D11.dcp" />
<DCCReference Include="Utiles\rtl.dcp" />
<DCCReference Include="Utiles\TB2k_D10.dcp" />
<DCCReference Include="Utiles\tbx_d10.dcp" />
<DCCReference Include="Utiles\uAppInfoUtils.pas" /> <DCCReference Include="Utiles\uAppInfoUtils.pas" />
<DCCReference Include="Utiles\uCalculosUtils.pas" /> <DCCReference Include="Utiles\uCalculosUtils.pas" />
<DCCReference Include="Utiles\uDataTableUtils.pas" /> <DCCReference Include="Utiles\uDataTableUtils.pas" />
@ -147,9 +142,17 @@
<DCCReference Include="Utiles\uMD5.pas" /> <DCCReference Include="Utiles\uMD5.pas" />
<DCCReference Include="Utiles\uNumUtils.pas" /> <DCCReference Include="Utiles\uNumUtils.pas" />
<DCCReference Include="Utiles\uPasswordUtils.pas" /> <DCCReference Include="Utiles\uPasswordUtils.pas" />
<DCCReference Include="Utiles\uReferenciasUtils.pas" />
<DCCReference Include="Utiles\uRTFUtils.pas" /> <DCCReference Include="Utiles\uRTFUtils.pas" />
<DCCReference Include="Utiles\uSistemaFunc.pas" /> <DCCReference Include="Utiles\uSistemaFunc.pas" />
<DCCReference Include="Utiles\uStringsUtils.pas" /> <DCCReference Include="Utiles\uStringsUtils.pas" />
<DCCReference Include="Utiles\vcl.dcp" />
<DCCReference Include="Utiles\vclactnband.dcp" />
<DCCReference Include="Utiles\vcldb.dcp" />
<DCCReference Include="Utiles\vcljpg.dcp" />
<DCCReference Include="Utiles\VclSmp.dcp" />
<DCCReference Include="Utiles\vclx.dcp" />
<DCCReference Include="Utiles\xmlrtl.dcp" />
</ItemGroup> </ItemGroup>
</Project> </Project>
<!-- EurekaLog First Line <!-- EurekaLog First Line

92
Source/GUIBase/GUIBase.dproj
View File

@ -58,52 +58,52 @@
<DelphiCompile Include="GUIBase.dpk"> <DelphiCompile Include="GUIBase.dpk">
<MainSource>MainSource</MainSource> <MainSource>MainSource</MainSource>
</DelphiCompile> </DelphiCompile>
<DCCReference Include="..\Base\Utiles\Base.dcp" /> <DCCReference Include="..\Modulos\Relaciones\Albaranes de proveedor - Facturas de proveedor\Base.dcp" />
<DCCReference Include="..\Base\Utiles\cxLibraryD11.dcp" /> <DCCReference Include="..\Modulos\Relaciones\Albaranes de proveedor - Facturas de proveedor\cxLibraryD11.dcp" />
<DCCReference Include="..\Base\Utiles\dbrtl.dcp" /> <DCCReference Include="..\Modulos\Relaciones\Albaranes de proveedor - Facturas de proveedor\dbrtl.dcp" />
<DCCReference Include="..\Base\Utiles\dxBarD11.dcp" /> <DCCReference Include="..\Modulos\Relaciones\Albaranes de proveedor - Facturas de proveedor\dxBarD11.dcp" />
<DCCReference Include="..\Base\Utiles\dxBarExtItemsD11.dcp" /> <DCCReference Include="..\Modulos\Relaciones\Albaranes de proveedor - Facturas de proveedor\dxBarExtItemsD11.dcp" />
<DCCReference Include="..\Base\Utiles\dxComnD11.dcp" /> <DCCReference Include="..\Modulos\Relaciones\Albaranes de proveedor - Facturas de proveedor\dxComnD11.dcp" />
<DCCReference Include="..\Base\Utiles\dxGDIPlusD11.dcp" /> <DCCReference Include="..\Modulos\Relaciones\Albaranes de proveedor - Facturas de proveedor\dxGDIPlusD11.dcp" />
<DCCReference Include="..\Base\Utiles\dxLayoutControlD11.dcp" /> <DCCReference Include="..\Modulos\Relaciones\Albaranes de proveedor - Facturas de proveedor\dxLayoutControlD11.dcp" />
<DCCReference Include="..\Base\Utiles\dxPSCoreD11.dcp" /> <DCCReference Include="..\Modulos\Relaciones\Albaranes de proveedor - Facturas de proveedor\dxPSCoreD11.dcp" />
<DCCReference Include="..\Base\Utiles\dxPScxCommonD11.dcp" /> <DCCReference Include="..\Modulos\Relaciones\Albaranes de proveedor - Facturas de proveedor\dxPScxCommonD11.dcp" />
<DCCReference Include="..\Base\Utiles\dxPScxGrid6LnkD11.dcp" /> <DCCReference Include="..\Modulos\Relaciones\Albaranes de proveedor - Facturas de proveedor\dxPScxGrid6LnkD11.dcp" />
<DCCReference Include="..\Base\Utiles\dxPsPrVwAdvD11.dcp" /> <DCCReference Include="..\Modulos\Relaciones\Albaranes de proveedor - Facturas de proveedor\dxPsPrVwAdvD11.dcp" />
<DCCReference Include="..\Base\Utiles\dxSkinBlackD11.dcp" /> <DCCReference Include="..\Modulos\Relaciones\Albaranes de proveedor - Facturas de proveedor\dxSkinBlackD11.dcp" />
<DCCReference Include="..\Base\Utiles\dxSkinBlueD11.dcp" /> <DCCReference Include="..\Modulos\Relaciones\Albaranes de proveedor - Facturas de proveedor\dxSkinBlueD11.dcp" />
<DCCReference Include="..\Base\Utiles\dxSkinCaramelD11.dcp" /> <DCCReference Include="..\Modulos\Relaciones\Albaranes de proveedor - Facturas de proveedor\dxSkinCaramelD11.dcp" />
<DCCReference Include="..\Base\Utiles\dxSkinCoffeeD11.dcp" /> <DCCReference Include="..\Modulos\Relaciones\Albaranes de proveedor - Facturas de proveedor\dxSkinCoffeeD11.dcp" />
<DCCReference Include="..\Base\Utiles\dxSkinGlassOceansD11.dcp" /> <DCCReference Include="..\Modulos\Relaciones\Albaranes de proveedor - Facturas de proveedor\dxSkinGlassOceansD11.dcp" />
<DCCReference Include="..\Base\Utiles\dxSkiniMaginaryD11.dcp" /> <DCCReference Include="..\Modulos\Relaciones\Albaranes de proveedor - Facturas de proveedor\dxSkiniMaginaryD11.dcp" />
<DCCReference Include="..\Base\Utiles\dxSkinLilianD11.dcp" /> <DCCReference Include="..\Modulos\Relaciones\Albaranes de proveedor - Facturas de proveedor\dxSkinLilianD11.dcp" />
<DCCReference Include="..\Base\Utiles\dxSkinLiquidSkyD11.dcp" /> <DCCReference Include="..\Modulos\Relaciones\Albaranes de proveedor - Facturas de proveedor\dxSkinLiquidSkyD11.dcp" />
<DCCReference Include="..\Base\Utiles\dxSkinLondonLiquidSkyD11.dcp" /> <DCCReference Include="..\Modulos\Relaciones\Albaranes de proveedor - Facturas de proveedor\dxSkinLondonLiquidSkyD11.dcp" />
<DCCReference Include="..\Base\Utiles\dxSkinMcSkinD11.dcp" /> <DCCReference Include="..\Modulos\Relaciones\Albaranes de proveedor - Facturas de proveedor\dxSkinMcSkinD11.dcp" />
<DCCReference Include="..\Base\Utiles\dxSkinMoneyTwinsD11.dcp" /> <DCCReference Include="..\Modulos\Relaciones\Albaranes de proveedor - Facturas de proveedor\dxSkinMoneyTwinsD11.dcp" />
<DCCReference Include="..\Base\Utiles\dxSkinOffice2007BlackD11.dcp" /> <DCCReference Include="..\Modulos\Relaciones\Albaranes de proveedor - Facturas de proveedor\dxSkinOffice2007BlackD11.dcp" />
<DCCReference Include="..\Base\Utiles\dxSkinOffice2007BlueD11.dcp" /> <DCCReference Include="..\Modulos\Relaciones\Albaranes de proveedor - Facturas de proveedor\dxSkinOffice2007BlueD11.dcp" />
<DCCReference Include="..\Base\Utiles\dxSkinOffice2007GreenD11.dcp" /> <DCCReference Include="..\Modulos\Relaciones\Albaranes de proveedor - Facturas de proveedor\dxSkinOffice2007GreenD11.dcp" />
<DCCReference Include="..\Base\Utiles\dxSkinOffice2007PinkD11.dcp" /> <DCCReference Include="..\Modulos\Relaciones\Albaranes de proveedor - Facturas de proveedor\dxSkinOffice2007PinkD11.dcp" />
<DCCReference Include="..\Base\Utiles\dxSkinOffice2007SilverD11.dcp" /> <DCCReference Include="..\Modulos\Relaciones\Albaranes de proveedor - Facturas de proveedor\dxSkinOffice2007SilverD11.dcp" />
<DCCReference Include="..\Base\Utiles\dxSkinsCoreD11.dcp" /> <DCCReference Include="..\Modulos\Relaciones\Albaranes de proveedor - Facturas de proveedor\dxSkinsCoreD11.dcp" />
<DCCReference Include="..\Base\Utiles\dxSkinscxPCPainterD11.dcp" /> <DCCReference Include="..\Modulos\Relaciones\Albaranes de proveedor - Facturas de proveedor\dxSkinscxPCPainterD11.dcp" />
<DCCReference Include="..\Base\Utiles\dxSkinsdxLCPainterD11.dcp" /> <DCCReference Include="..\Modulos\Relaciones\Albaranes de proveedor - Facturas de proveedor\dxSkinsdxLCPainterD11.dcp" />
<DCCReference Include="..\Base\Utiles\dxSkinSilverD11.dcp" /> <DCCReference Include="..\Modulos\Relaciones\Albaranes de proveedor - Facturas de proveedor\dxSkinSilverD11.dcp" />
<DCCReference Include="..\Base\Utiles\dxSkinStardustD11.dcp" /> <DCCReference Include="..\Modulos\Relaciones\Albaranes de proveedor - Facturas de proveedor\dxSkinStardustD11.dcp" />
<DCCReference Include="..\Base\Utiles\dxSkinValentineD11.dcp" /> <DCCReference Include="..\Modulos\Relaciones\Albaranes de proveedor - Facturas de proveedor\dxSkinValentineD11.dcp" />
<DCCReference Include="..\Base\Utiles\dxSkinXmas2008BlueD11.dcp" /> <DCCReference Include="..\Modulos\Relaciones\Albaranes de proveedor - Facturas de proveedor\dxSkinXmas2008BlueD11.dcp" />
<DCCReference Include="..\Base\Utiles\dxThemeD11.dcp" /> <DCCReference Include="..\Modulos\Relaciones\Albaranes de proveedor - Facturas de proveedor\dxThemeD11.dcp" />
<DCCReference Include="..\Base\Utiles\frx11.dcp" /> <DCCReference Include="..\Modulos\Relaciones\Albaranes de proveedor - Facturas de proveedor\frx11.dcp" />
<DCCReference Include="..\Base\Utiles\frxe11.dcp" /> <DCCReference Include="..\Modulos\Relaciones\Albaranes de proveedor - Facturas de proveedor\frxe11.dcp" />
<DCCReference Include="..\Base\Utiles\fs11.dcp" /> <DCCReference Include="..\Modulos\Relaciones\Albaranes de proveedor - Facturas de proveedor\fs11.dcp" />
<DCCReference Include="..\Base\Utiles\JvAppFrmD11R.dcp" /> <DCCReference Include="..\Modulos\Relaciones\Albaranes de proveedor - Facturas de proveedor\JvAppFrmD11R.dcp" />
<DCCReference Include="..\Base\Utiles\JvCtrlsD11R.dcp" /> <DCCReference Include="..\Modulos\Relaciones\Albaranes de proveedor - Facturas de proveedor\JvCtrlsD11R.dcp" />
<DCCReference Include="..\Base\Utiles\rtl.dcp" /> <DCCReference Include="..\Modulos\Relaciones\Albaranes de proveedor - Facturas de proveedor\rtl.dcp" />
<DCCReference Include="..\Base\Utiles\vcl.dcp" /> <DCCReference Include="..\Modulos\Relaciones\Albaranes de proveedor - Facturas de proveedor\vcl.dcp" />
<DCCReference Include="..\Base\Utiles\vcldb.dcp" /> <DCCReference Include="..\Modulos\Relaciones\Albaranes de proveedor - Facturas de proveedor\vcldb.dcp" />
<DCCReference Include="..\Base\Utiles\vcljpg.dcp" /> <DCCReference Include="..\Modulos\Relaciones\Albaranes de proveedor - Facturas de proveedor\vcljpg.dcp" />
<DCCReference Include="..\Base\Utiles\vclx.dcp" /> <DCCReference Include="..\Modulos\Relaciones\Albaranes de proveedor - Facturas de proveedor\vclx.dcp" />
<DCCReference Include="uDialogBase.pas"> <DCCReference Include="uDialogBase.pas">
<Form>fDialogBase</Form> <Form>fDialogBase</Form>
</DCCReference> </DCCReference>

13
Source/Modulos/Albaranes de cliente/Views/uViewAlbaranesCliente.dfm
View File

@ -35,6 +35,7 @@ inherited frViewAlbaranesCliente: TfrViewAlbaranesCliente
Kind = skSum Kind = skSum
Column = cxGridViewIMPORTE_TOTAL Column = cxGridViewIMPORTE_TOTAL
end> end>
DataController.OnCompare = cxGridViewDataControllerCompare
OptionsCustomize.ColumnHidingOnGrouping = False OptionsCustomize.ColumnHidingOnGrouping = False
OptionsView.GroupFooters = gfAlwaysVisible OptionsView.GroupFooters = gfAlwaysVisible
object cxGridViewINCIDENCIAS_ACTIVAS: TcxGridDBColumn object cxGridViewINCIDENCIAS_ACTIVAS: TcxGridDBColumn
@ -199,27 +200,15 @@ inherited frViewAlbaranesCliente: TfrViewAlbaranesCliente
Width = 802 Width = 802
ExplicitWidth = 802 ExplicitWidth = 802
inherited txtFiltroTodo: TcxTextEdit inherited txtFiltroTodo: TcxTextEdit
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitWidth = 705 ExplicitWidth = 705
Width = 705 Width = 705
end end
inherited edtFechaIniFiltro: TcxDateEdit inherited edtFechaIniFiltro: TcxDateEdit
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitWidth = 228 ExplicitWidth = 228
Width = 228 Width = 228
end end
inherited edtFechaFinFiltro: TcxDateEdit inherited edtFechaFinFiltro: TcxDateEdit
Left = 332 Left = 332
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitLeft = 332 ExplicitLeft = 332
ExplicitWidth = 460 ExplicitWidth = 460
Width = 460 Width = 460

22
Source/Modulos/Albaranes de cliente/Views/uViewAlbaranesCliente.pas
View File

@ -79,6 +79,9 @@ type
ACellViewInfo: TcxGridTableDataCellViewInfo; const AMousePos: TPoint; ACellViewInfo: TcxGridTableDataCellViewInfo; const AMousePos: TPoint;
var AHintText: TCaption; var AIsHintMultiLine: Boolean; var AHintText: TCaption; var AIsHintMultiLine: Boolean;
var AHintTextRect: TRect); var AHintTextRect: TRect);
procedure cxGridViewDataControllerCompare(
ADataController: TcxCustomDataController; ARecordIndex1, ARecordIndex2,
AItemIndex: Integer; const V1, V2: Variant; var Compare: Integer);
private private
//Filtros relativos a la vista //Filtros relativos a la vista
@ -96,8 +99,9 @@ type
implementation implementation
uses SysUtils, DateUtils, variants, windows, uDataModuleAlbaranesCliente, schAlbaranesClienteClient_Intf, uses
uViewGridBase; SysUtils, DateUtils, variants, windows, uDataModuleAlbaranesCliente, schAlbaranesClienteClient_Intf,
uViewGridBase, uReferenciasUtils, cxVariants;
{$R *.dfm} {$R *.dfm}
@ -206,6 +210,20 @@ begin
RefrescarFiltro; RefrescarFiltro;
end; end;
procedure TfrViewAlbaranesCliente.cxGridViewDataControllerCompare(
ADataController: TcxCustomDataController; ARecordIndex1, ARecordIndex2,
AItemIndex: Integer; const V1, V2: Variant; var Compare: Integer);
begin
inherited;
if ((AItemIndex = cxGridViewREFERENCIA.Index) or
(AItemIndex = cxGridViewREF_FACTURA.Index) or
(AItemIndex = cxGridViewREF_PEDIDO.Index)) and
(VarType(V1) = VarType(V2)) and (VarType(V1) = varString) then
Compare := CompararReferencias(V1, V2)
else
Compare := VarCompare(V1, V2);
end;
procedure TfrViewAlbaranesCliente.cxGridViewINCIDENCIAS_ACTIVASGetCellHint( procedure TfrViewAlbaranesCliente.cxGridViewINCIDENCIAS_ACTIVASGetCellHint(
Sender: TcxCustomGridTableItem; ARecord: TcxCustomGridRecord; Sender: TcxCustomGridTableItem; ARecord: TcxCustomGridRecord;
ACellViewInfo: TcxGridTableDataCellViewInfo; const AMousePos: TPoint; ACellViewInfo: TcxGridTableDataCellViewInfo; const AMousePos: TPoint;

14
Source/Modulos/Albaranes de proveedor/Views/uViewAlbaranesProveedor.dfm
View File

@ -7,7 +7,6 @@ inherited frViewAlbaranesProveedor: TfrViewAlbaranesProveedor
Width = 596 Width = 596
Height = 351 Height = 351
OnActiveTabChanged = cxGridActiveTabChanged OnActiveTabChanged = cxGridActiveTabChanged
ExplicitTop = 102
ExplicitWidth = 596 ExplicitWidth = 596
ExplicitHeight = 351 ExplicitHeight = 351
inherited cxGridView: TcxGridDBTableView inherited cxGridView: TcxGridDBTableView
@ -35,6 +34,7 @@ inherited frViewAlbaranesProveedor: TfrViewAlbaranesProveedor
Kind = skSum Kind = skSum
Column = cxGridViewIMPORTE_TOTAL Column = cxGridViewIMPORTE_TOTAL
end> end>
DataController.OnCompare = cxGridViewDataControllerCompare
OptionsView.GroupFooters = gfAlwaysVisible OptionsView.GroupFooters = gfAlwaysVisible
object cxGridViewINCIDENCIAS_ACTIVAS: TcxGridDBColumn object cxGridViewINCIDENCIAS_ACTIVAS: TcxGridDBColumn
Caption = 'Incidencias' Caption = 'Incidencias'
@ -151,27 +151,15 @@ inherited frViewAlbaranesProveedor: TfrViewAlbaranesProveedor
Width = 596 Width = 596
ExplicitWidth = 596 ExplicitWidth = 596
inherited txtFiltroTodo: TcxTextEdit inherited txtFiltroTodo: TcxTextEdit
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitWidth = 499 ExplicitWidth = 499
Width = 499 Width = 499
end end
inherited edtFechaIniFiltro: TcxDateEdit inherited edtFechaIniFiltro: TcxDateEdit
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitWidth = 188 ExplicitWidth = 188
Width = 188 Width = 188
end end
inherited edtFechaFinFiltro: TcxDateEdit inherited edtFechaFinFiltro: TcxDateEdit
Left = 292 Left = 292
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitLeft = 292 ExplicitLeft = 292
ExplicitWidth = 294 ExplicitWidth = 294
Width = 294 Width = 294

21
Source/Modulos/Albaranes de proveedor/Views/uViewAlbaranesProveedor.pas
View File

@ -66,6 +66,9 @@ type
ACellViewInfo: TcxGridTableDataCellViewInfo; const AMousePos: TPoint; ACellViewInfo: TcxGridTableDataCellViewInfo; const AMousePos: TPoint;
var AHintText: TCaption; var AIsHintMultiLine: Boolean; var AHintText: TCaption; var AIsHintMultiLine: Boolean;
var AHintTextRect: TRect); var AHintTextRect: TRect);
procedure cxGridViewDataControllerCompare(
ADataController: TcxCustomDataController; ARecordIndex1, ARecordIndex2,
AItemIndex: Integer; const V1, V2: Variant; var Compare: Integer);
private private
//Filtros relativos a la vista //Filtros relativos a la vista
@ -84,7 +87,8 @@ implementation
uses uses
SysUtils, variants, windows, uDataModuleAlbaranesProveedor, SysUtils, variants, windows, uDataModuleAlbaranesProveedor,
schAlbaranesProveedorClient_Intf, uViewGridBase, cxGridDBDataDefinitions; schAlbaranesProveedorClient_Intf, uViewGridBase, cxGridDBDataDefinitions,
uReferenciasUtils, cxVariants;
{$R *.dfm} {$R *.dfm}
@ -167,6 +171,21 @@ begin
RefrescarFiltro; RefrescarFiltro;
end; end;
procedure TfrViewAlbaranesProveedor.cxGridViewDataControllerCompare(
ADataController: TcxCustomDataController; ARecordIndex1, ARecordIndex2,
AItemIndex: Integer; const V1, V2: Variant; var Compare: Integer);
begin
inherited;
if ((AItemIndex = cxGridViewREFERENCIA.Index) or
(AItemIndex = cxGridViewREF_PED_PROVEEDOR.Index) or
(AItemIndex = cxGridViewREF_FACTURA_PROV.Index) or
(AItemIndex = cxGridViewREFERENCIA_PROVEEDOR.Index)) and
(VarType(V1) = VarType(V2)) and (VarType(V1) = varString) then
Compare := CompararReferencias(V1, V2)
else
Compare := VarCompare(V1, V2);
end;
procedure TfrViewAlbaranesProveedor.cxGridViewINCIDENCIAS_ACTIVASGetCellHint( procedure TfrViewAlbaranesProveedor.cxGridViewINCIDENCIAS_ACTIVASGetCellHint(
Sender: TcxCustomGridTableItem; ARecord: TcxCustomGridRecord; Sender: TcxCustomGridTableItem; ARecord: TcxCustomGridRecord;
ACellViewInfo: TcxGridTableDataCellViewInfo; const AMousePos: TPoint; ACellViewInfo: TcxGridTableDataCellViewInfo; const AMousePos: TPoint;

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

@ -21,6 +21,7 @@ inherited frViewArticulos: TfrViewArticulos
Kind = skCount Kind = skCount
Column = cxGridViewDESCRIPCION Column = cxGridViewDESCRIPCION
end> end>
DataController.OnCompare = cxGridViewDataControllerCompare
OptionsBehavior.PullFocusing = True OptionsBehavior.PullFocusing = True
OptionsCustomize.ColumnHidingOnGrouping = False OptionsCustomize.ColumnHidingOnGrouping = False
OptionsView.GroupFooters = gfAlwaysVisible OptionsView.GroupFooters = gfAlwaysVisible
@ -165,45 +166,33 @@ inherited frViewArticulos: TfrViewArticulos
end end
inherited frViewFiltroBase1: TfrViewFiltroBase inherited frViewFiltroBase1: TfrViewFiltroBase
Width = 924 Width = 924
ExplicitWidth = 738 ExplicitWidth = 924
inherited TBXDockablePanel1: TTBXDockablePanel inherited TBXDockablePanel1: TTBXDockablePanel
ExplicitWidth = 738 ExplicitWidth = 924
inherited dxLayoutControl1: TdxLayoutControl inherited dxLayoutControl1: TdxLayoutControl
Width = 924 Width = 924
ExplicitWidth = 738 ExplicitWidth = 924
inherited txtFiltroTodo: TcxTextEdit inherited txtFiltroTodo: TcxTextEdit
Style.LookAndFeel.SkinName = '' ExplicitWidth = 827
StyleDisabled.LookAndFeel.SkinName = '' Width = 827
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitWidth = 641
Width = 641
end end
inherited edtFechaIniFiltro: TcxDateEdit inherited edtFechaIniFiltro: TcxDateEdit
Style.LookAndFeel.SkinName = '' ExplicitWidth = 462
StyleDisabled.LookAndFeel.SkinName = '' Width = 462
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitWidth = 350
Width = 350
end end
inherited edtFechaFinFiltro: TcxDateEdit inherited edtFechaFinFiltro: TcxDateEdit
Left = 566 Left = 566
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitLeft = 566 ExplicitLeft = 566
ExplicitWidth = 274 ExplicitWidth = 348
Width = 274 Width = 348
end end
end end
inherited TBXAlignmentPanel1: TTBXAlignmentPanel inherited TBXAlignmentPanel1: TTBXAlignmentPanel
Width = 924 Width = 924
ExplicitWidth = 738 ExplicitWidth = 924
inherited tbxBotones: TTBXToolbar inherited tbxBotones: TTBXToolbar
Width = 914 Width = 914
ExplicitWidth = 728 ExplicitWidth = 914
end end
end end
end end
@ -211,14 +200,14 @@ inherited frViewArticulos: TfrViewArticulos
inherited pnlAgrupaciones: TTBXDockablePanel inherited pnlAgrupaciones: TTBXDockablePanel
Top = 436 Top = 436
Visible = True Visible = True
ExplicitTop = 484 ExplicitTop = 436
ExplicitWidth = 738 ExplicitWidth = 924
inherited TBXAlignmentPanel1: TTBXAlignmentPanel inherited TBXAlignmentPanel1: TTBXAlignmentPanel
Width = 924 Width = 924
ExplicitWidth = 738 ExplicitWidth = 924
inherited TBXToolbar1: TTBXToolbar inherited TBXToolbar1: TTBXToolbar
Width = 914 Width = 914
ExplicitWidth = 728 ExplicitWidth = 914
object TBXSeparatorItem1: TTBXSeparatorItem object TBXSeparatorItem1: TTBXSeparatorItem
end end
object TBXItem3: TTBXItem object TBXItem3: TTBXItem

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

@ -54,6 +54,9 @@ type
procedure actFamiliaUpdate(Sender: TObject); procedure actFamiliaUpdate(Sender: TObject);
procedure actFabricanteExecute(Sender: TObject); procedure actFabricanteExecute(Sender: TObject);
procedure actFabricanteUpdate(Sender: TObject); procedure actFabricanteUpdate(Sender: TObject);
procedure cxGridViewDataControllerCompare(
ADataController: TcxCustomDataController; ARecordIndex1, ARecordIndex2,
AItemIndex: Integer; const V1, V2: Variant; var Compare: Integer);
protected protected
FArticulos: IBizArticulo; FArticulos: IBizArticulo;
function GetArticulos: IBizArticulo; virtual; function GetArticulos: IBizArticulo; virtual;
@ -65,9 +68,8 @@ type
implementation implementation
{$R *.dfm} {$R *.dfm}
uses //uDataModuleArticulos, uses
schArticulosClient_Intf, uReferenciasUtils, cxVariants;
schArticulosClient_Intf;
{ TfrViewArticulos } { TfrViewArticulos }
@ -149,4 +151,16 @@ begin
(Sender as TAction).Checked := not (cxGridViewNOMBRE_PROVEEDOR.GroupIndex < 0); (Sender as TAction).Checked := not (cxGridViewNOMBRE_PROVEEDOR.GroupIndex < 0);
end; end;
procedure TfrViewArticulos.cxGridViewDataControllerCompare(
ADataController: TcxCustomDataController; ARecordIndex1, ARecordIndex2,
AItemIndex: Integer; const V1, V2: Variant; var Compare: Integer);
begin
inherited;
if ((AItemIndex = cxGridViewREFERENCIA.Index)) and
(VarType(V1) = VarType(V2)) and (VarType(V1) = varString) then
Compare := CompararReferencias(V1, V2)
else
Compare := VarCompare(V1, V2);
end;
end. end.

64
Source/Modulos/Contactos/Views/Contactos_view.dproj
View File

@ -49,38 +49,38 @@
<DelphiCompile Include="Contactos_view.dpk"> <DelphiCompile Include="Contactos_view.dpk">
<MainSource>MainSource</MainSource> <MainSource>MainSource</MainSource>
</DelphiCompile> </DelphiCompile>
<DCCReference Include="..\..\Albaranes de cliente\adortl.dcp" /> <DCCReference Include="..\adortl.dcp" />
<DCCReference Include="..\..\Albaranes de cliente\ApplicationBase.dcp" /> <DCCReference Include="..\ApplicationBase.dcp" />
<DCCReference Include="..\..\Albaranes de cliente\Base.dcp" /> <DCCReference Include="..\Base.dcp" />
<DCCReference Include="..\..\Albaranes de cliente\Contactos_controller.dcp" /> <DCCReference Include="..\Contactos_controller.dcp" />
<DCCReference Include="..\..\Albaranes de cliente\Contactos_model.dcp" /> <DCCReference Include="..\Contactos_model.dcp" />
<DCCReference Include="..\..\Albaranes de cliente\cxDataD11.dcp" /> <DCCReference Include="..\cxDataD11.dcp" />
<DCCReference Include="..\..\Albaranes de cliente\cxEditorsD11.dcp" /> <DCCReference Include="..\cxEditorsD11.dcp" />
<DCCReference Include="..\..\Albaranes de cliente\cxExportD11.dcp" /> <DCCReference Include="..\cxExportD11.dcp" />
<DCCReference Include="..\..\Albaranes de cliente\cxExtEditorsD11.dcp" /> <DCCReference Include="..\cxExtEditorsD11.dcp" />
<DCCReference Include="..\..\Albaranes de cliente\cxGridD11.dcp" /> <DCCReference Include="..\cxGridD11.dcp" />
<DCCReference Include="..\..\Albaranes de cliente\cxLibraryD11.dcp" /> <DCCReference Include="..\cxLibraryD11.dcp" />
<DCCReference Include="..\..\Albaranes de cliente\cxPageControlD11.dcp" /> <DCCReference Include="..\cxPageControlD11.dcp" />
<DCCReference Include="..\..\Albaranes de cliente\DataAbstract_Core_D11.dcp" /> <DCCReference Include="..\DataAbstract_Core_D11.dcp" />
<DCCReference Include="..\..\Albaranes de cliente\dbrtl.dcp" /> <DCCReference Include="..\dbrtl.dcp" />
<DCCReference Include="..\..\Albaranes de cliente\dsnap.dcp" /> <DCCReference Include="..\dsnap.dcp" />
<DCCReference Include="..\..\Albaranes de cliente\dxGDIPlusD11.dcp" /> <DCCReference Include="..\dxGDIPlusD11.dcp" />
<DCCReference Include="..\..\Albaranes de cliente\dxThemeD11.dcp" /> <DCCReference Include="..\dxThemeD11.dcp" />
<DCCReference Include="..\..\Albaranes de cliente\FormasPago_controller.dcp" /> <DCCReference Include="..\FormasPago_controller.dcp" />
<DCCReference Include="..\..\Albaranes de cliente\FormasPago_model.dcp" /> <DCCReference Include="..\FormasPago_model.dcp" />
<DCCReference Include="..\..\Albaranes de cliente\GUIBase.dcp" /> <DCCReference Include="..\GUIBase.dcp" />
<DCCReference Include="..\..\Albaranes de cliente\JvGlobusD11R.dcp" /> <DCCReference Include="..\JvGlobusD11R.dcp" />
<DCCReference Include="..\..\Albaranes de cliente\PngComponentsD10.dcp" /> <DCCReference Include="..\PngComponentsD10.dcp" />
<DCCReference Include="..\..\Albaranes de cliente\PNG_D10.dcp" /> <DCCReference Include="..\PNG_D10.dcp" />
<DCCReference Include="..\..\Albaranes de cliente\RemObjects_Core_D11.dcp" /> <DCCReference Include="..\RemObjects_Core_D11.dcp" />
<DCCReference Include="..\..\Albaranes de cliente\rtl.dcp" /> <DCCReference Include="..\rtl.dcp" />
<DCCReference Include="..\..\Albaranes de cliente\TiposIVA_controller.dcp" /> <DCCReference Include="..\TiposIVA_controller.dcp" />
<DCCReference Include="..\..\Albaranes de cliente\TiposIVA_model.dcp" /> <DCCReference Include="..\TiposIVA_model.dcp" />
<DCCReference Include="..\..\Albaranes de cliente\vcl.dcp" /> <DCCReference Include="..\vcl.dcp" />
<DCCReference Include="..\..\Albaranes de cliente\vclactnband.dcp" /> <DCCReference Include="..\vclactnband.dcp" />
<DCCReference Include="..\..\Albaranes de cliente\vcldb.dcp" /> <DCCReference Include="..\vcldb.dcp" />
<DCCReference Include="..\..\Albaranes de cliente\vcljpg.dcp" /> <DCCReference Include="..\vcljpg.dcp" />
<DCCReference Include="..\..\Albaranes de cliente\vclx.dcp" /> <DCCReference Include="..\vclx.dcp" />
<DCCReference Include="uContactosViewRegister.pas" /> <DCCReference Include="uContactosViewRegister.pas" />
<DCCReference Include="uEditorCliente.pas"> <DCCReference Include="uEditorCliente.pas">
<Form>fEditorCliente</Form> <Form>fEditorCliente</Form>

43
Source/Modulos/Facturas de cliente/Views/uViewFacturasCliente.dfm
View File

@ -1,11 +1,11 @@
inherited frViewFacturasCliente: TfrViewFacturasCliente inherited frViewFacturasCliente: TfrViewFacturasCliente
Width = 531 Width = 665
Height = 397 Height = 418
ExplicitWidth = 531 ExplicitWidth = 665
ExplicitHeight = 397 ExplicitHeight = 418
inherited cxGrid: TcxGrid inherited cxGrid: TcxGrid
Width = 531 Width = 665
Height = 269 Height = 290
RootLevelOptions.DetailTabsPosition = dtpTop RootLevelOptions.DetailTabsPosition = dtpTop
OnActiveTabChanged = cxGridActiveTabChanged OnActiveTabChanged = cxGridActiveTabChanged
ExplicitWidth = 531 ExplicitWidth = 531
@ -19,6 +19,7 @@ inherited frViewFacturasCliente: TfrViewFacturasCliente
Kind = skCount Kind = skCount
Column = cxGridViewREFERENCIA Column = cxGridViewREFERENCIA
end> end>
DataController.OnCompare = cxGridViewDataControllerCompare
OptionsCustomize.ColumnHidingOnGrouping = False OptionsCustomize.ColumnHidingOnGrouping = False
OptionsView.GroupFooters = gfAlwaysVisible OptionsView.GroupFooters = gfAlwaysVisible
object cxGridViewTIPO: TcxGridDBColumn object cxGridViewTIPO: TcxGridDBColumn
@ -142,60 +143,48 @@ inherited frViewFacturasCliente: TfrViewFacturasCliente
end end
end end
inherited frViewFiltroBase1: TfrViewFiltroBase inherited frViewFiltroBase1: TfrViewFiltroBase
Width = 531 Width = 665
ExplicitWidth = 531 ExplicitWidth = 531
inherited TBXDockablePanel1: TTBXDockablePanel inherited TBXDockablePanel1: TTBXDockablePanel
ExplicitWidth = 531 ExplicitWidth = 531
inherited dxLayoutControl1: TdxLayoutControl inherited dxLayoutControl1: TdxLayoutControl
Width = 531 Width = 665
ExplicitWidth = 531 ExplicitWidth = 531
inherited txtFiltroTodo: TcxTextEdit inherited txtFiltroTodo: TcxTextEdit
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitWidth = 434 ExplicitWidth = 434
Width = 434 Width = 434
end end
inherited edtFechaIniFiltro: TcxDateEdit inherited edtFechaIniFiltro: TcxDateEdit
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitWidth = 144 ExplicitWidth = 144
Width = 144 Width = 144
end end
inherited edtFechaFinFiltro: TcxDateEdit inherited edtFechaFinFiltro: TcxDateEdit
Left = 248 Left = 307
Style.LookAndFeel.SkinName = '' ExplicitLeft = 307
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitLeft = 248
ExplicitWidth = 273 ExplicitWidth = 273
Width = 273 Width = 273
end end
end end
inherited TBXAlignmentPanel1: TTBXAlignmentPanel inherited TBXAlignmentPanel1: TTBXAlignmentPanel
Width = 531 Width = 665
ExplicitWidth = 531 ExplicitWidth = 531
inherited tbxBotones: TTBXToolbar inherited tbxBotones: TTBXToolbar
Width = 521 Width = 655
ExplicitWidth = 521 ExplicitWidth = 521
end end
end end
end end
end end
inherited pnlAgrupaciones: TTBXDockablePanel inherited pnlAgrupaciones: TTBXDockablePanel
Top = 371 Top = 392
Visible = True Visible = True
ExplicitTop = 371 ExplicitTop = 371
ExplicitWidth = 531 ExplicitWidth = 531
inherited TBXAlignmentPanel1: TTBXAlignmentPanel inherited TBXAlignmentPanel1: TTBXAlignmentPanel
Width = 531 Width = 665
ExplicitWidth = 531 ExplicitWidth = 531
inherited TBXToolbar1: TTBXToolbar inherited TBXToolbar1: TTBXToolbar
Width = 521 Width = 655
ExplicitWidth = 521 ExplicitWidth = 521
object TBXSeparatorItem2: TTBXSeparatorItem object TBXSeparatorItem2: TTBXSeparatorItem
end end

19
Source/Modulos/Facturas de cliente/Views/uViewFacturasCliente.pas
View File

@ -69,6 +69,9 @@ type
procedure actProvinciaExecute(Sender: TObject); procedure actProvinciaExecute(Sender: TObject);
procedure actProvinciaUpdate(Sender: TObject); procedure actProvinciaUpdate(Sender: TObject);
procedure actClienteUpdate(Sender: TObject); procedure actClienteUpdate(Sender: TObject);
procedure cxGridViewDataControllerCompare(
ADataController: TcxCustomDataController; ARecordIndex1, ARecordIndex2,
AItemIndex: Integer; const V1, V2: Variant; var Compare: Integer);
private private
//Filtros relativos a la vista //Filtros relativos a la vista
@ -89,7 +92,8 @@ type
implementation implementation
uses uses
uDataModuleFacturasCliente, DateUtils, uViewGridBase; uDataModuleFacturasCliente, DateUtils, uViewGridBase, uReferenciasUtils,
cxVariants;
{$R *.dfm} {$R *.dfm}
@ -189,6 +193,19 @@ begin
RefrescarFiltro; RefrescarFiltro;
end; end;
procedure TfrViewFacturasCliente.cxGridViewDataControllerCompare(
ADataController: TcxCustomDataController; ARecordIndex1, ARecordIndex2,
AItemIndex: Integer; const V1, V2: Variant; var Compare: Integer);
begin
inherited;
if ((AItemIndex = cxGridViewREFERENCIA.Index) or
(AItemIndex = cxGridViewREFERENCIA_COMISION.Index)) and
(VarType(V1) = VarType(V2)) and (VarType(V1) = varString) then
Compare := CompararReferencias(V1, V2)
else
Compare := VarCompare(V1, V2);
end;
procedure TfrViewFacturasCliente.cxGridViewStylesGetContentStyle( procedure TfrViewFacturasCliente.cxGridViewStylesGetContentStyle(
Sender: TcxCustomGridTableView; ARecord: TcxCustomGridRecord; Sender: TcxCustomGridTableView; ARecord: TcxCustomGridRecord;
AItem: TcxCustomGridTableItem; out AStyle: TcxStyle); AItem: TcxCustomGridTableItem; out AStyle: TcxStyle);

21
Source/Modulos/Facturas de proveedor/Views/uViewFacturasProveedor.dfm
View File

@ -31,6 +31,7 @@ inherited frViewFacturasProveedor: TfrViewFacturasProveedor
Kind = skCount Kind = skCount
Column = cxGridViewREFERENCIA Column = cxGridViewREFERENCIA
end> end>
DataController.OnCompare = cxGridViewDataControllerCompare
OptionsCustomize.ColumnHidingOnGrouping = False OptionsCustomize.ColumnHidingOnGrouping = False
OptionsView.GroupFooters = gfAlwaysVisible OptionsView.GroupFooters = gfAlwaysVisible
object cxGridViewTIPO: TcxGridDBColumn object cxGridViewTIPO: TcxGridDBColumn
@ -164,26 +165,18 @@ inherited frViewFacturasProveedor: TfrViewFacturasProveedor
Width = 531 Width = 531
ExplicitWidth = 531 ExplicitWidth = 531
inherited txtFiltroTodo: TcxTextEdit inherited txtFiltroTodo: TcxTextEdit
Style.LookAndFeel.SkinName = '' ExplicitWidth = 434
StyleDisabled.LookAndFeel.SkinName = '' Width = 434
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
end end
inherited edtFechaIniFiltro: TcxDateEdit inherited edtFechaIniFiltro: TcxDateEdit
Style.LookAndFeel.SkinName = '' ExplicitWidth = 229
StyleDisabled.LookAndFeel.SkinName = '' Width = 229
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
end end
inherited edtFechaFinFiltro: TcxDateEdit inherited edtFechaFinFiltro: TcxDateEdit
Left = 333 Left = 333
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitLeft = 333 ExplicitLeft = 333
ExplicitWidth = 216 ExplicitWidth = 188
Width = 216 Width = 188
end end
end end
inherited TBXAlignmentPanel1: TTBXAlignmentPanel inherited TBXAlignmentPanel1: TTBXAlignmentPanel

20
Source/Modulos/Facturas de proveedor/Views/uViewFacturasProveedor.pas
View File

@ -69,6 +69,9 @@ type
procedure actProveedorUpdate(Sender: TObject); procedure actProveedorUpdate(Sender: TObject);
procedure actProvinciaExecute(Sender: TObject); procedure actProvinciaExecute(Sender: TObject);
procedure actProvinciaUpdate(Sender: TObject); procedure actProvinciaUpdate(Sender: TObject);
procedure cxGridViewDataControllerCompare(
ADataController: TcxCustomDataController; ARecordIndex1, ARecordIndex2,
AItemIndex: Integer; const V1, V2: Variant; var Compare: Integer);
private private
//Filtros relativos a la vista //Filtros relativos a la vista
@ -88,7 +91,8 @@ type
implementation implementation
uses uses
uDataModuleFacturasProveedor, DateUtils, uViewGridBase; uDataModuleFacturasProveedor, DateUtils, uViewGridBase, uReferenciasUtils,
cxVariants;
{$R *.dfm} {$R *.dfm}
@ -188,6 +192,20 @@ begin
RefrescarFiltro; RefrescarFiltro;
end; end;
procedure TfrViewFacturasProveedor.cxGridViewDataControllerCompare(
ADataController: TcxCustomDataController; ARecordIndex1, ARecordIndex2,
AItemIndex: Integer; const V1, V2: Variant; var Compare: Integer);
begin
inherited;
if ((AItemIndex = cxGridViewREFERENCIA.Index) or
(AItemIndex = cxGridViewREFERENCIA_COMISION.Index) or
(AItemIndex = cxGridViewREFERENCIA_PROVEEDOR.Index)) and
(VarType(V1) = VarType(V2)) and (VarType(V1) = varString) then
Compare := CompararReferencias(V1, V2)
else
Compare := VarCompare(V1, V2);
end;
procedure TfrViewFacturasProveedor.cxGridViewStylesGetContentStyle( procedure TfrViewFacturasProveedor.cxGridViewStylesGetContentStyle(
Sender: TcxCustomGridTableView; ARecord: TcxCustomGridRecord; Sender: TcxCustomGridTableView; ARecord: TcxCustomGridRecord;
AItem: TcxCustomGridTableItem; out AStyle: TcxStyle); AItem: TcxCustomGridTableItem; out AStyle: TcxStyle);

14
Source/Modulos/Pedidos a proveedor/Views/uViewPedidosProveedor.dfm
View File

@ -8,7 +8,6 @@ inherited frViewPedidosProveedor: TfrViewPedidosProveedor
Height = 361 Height = 361
RootLevelOptions.DetailTabsPosition = dtpTop RootLevelOptions.DetailTabsPosition = dtpTop
OnActiveTabChanged = cxGridActiveTabChanged OnActiveTabChanged = cxGridActiveTabChanged
ExplicitTop = 102
ExplicitWidth = 839 ExplicitWidth = 839
ExplicitHeight = 361 ExplicitHeight = 361
inherited cxGridView: TcxGridDBTableView inherited cxGridView: TcxGridDBTableView
@ -32,6 +31,7 @@ inherited frViewPedidosProveedor: TfrViewPedidosProveedor
Kind = skSum Kind = skSum
Column = cxGridViewIMPORTE_TOTAL Column = cxGridViewIMPORTE_TOTAL
end> end>
DataController.OnCompare = cxGridViewDataControllerCompare
OptionsView.GroupFooters = gfAlwaysVisible OptionsView.GroupFooters = gfAlwaysVisible
object cxGridViewINCIDENCIASACTIVAS: TcxGridDBColumn object cxGridViewINCIDENCIASACTIVAS: TcxGridDBColumn
Caption = 'Incidencias' Caption = 'Incidencias'
@ -179,27 +179,15 @@ inherited frViewPedidosProveedor: TfrViewPedidosProveedor
Width = 839 Width = 839
ExplicitWidth = 839 ExplicitWidth = 839
inherited txtFiltroTodo: TcxTextEdit inherited txtFiltroTodo: TcxTextEdit
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitWidth = 742 ExplicitWidth = 742
Width = 742 Width = 742
end end
inherited edtFechaIniFiltro: TcxDateEdit inherited edtFechaIniFiltro: TcxDateEdit
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitWidth = 243 ExplicitWidth = 243
Width = 243 Width = 243
end end
inherited edtFechaFinFiltro: TcxDateEdit inherited edtFechaFinFiltro: TcxDateEdit
Left = 347 Left = 347
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitLeft = 347 ExplicitLeft = 347
ExplicitWidth = 482 ExplicitWidth = 482
Width = 482 Width = 482

21
Source/Modulos/Pedidos a proveedor/Views/uViewPedidosProveedor.pas
View File

@ -74,6 +74,9 @@ type
ACellViewInfo: TcxGridTableDataCellViewInfo; const AMousePos: TPoint; ACellViewInfo: TcxGridTableDataCellViewInfo; const AMousePos: TPoint;
var AHintText: TCaption; var AIsHintMultiLine: Boolean; var AHintText: TCaption; var AIsHintMultiLine: Boolean;
var AHintTextRect: TRect); var AHintTextRect: TRect);
procedure cxGridViewDataControllerCompare(
ADataController: TcxCustomDataController; ARecordIndex1, ARecordIndex2,
AItemIndex: Integer; const V1, V2: Variant; var Compare: Integer);
private private
//Filtros relativos a la vista //Filtros relativos a la vista
@ -91,7 +94,10 @@ type
implementation implementation
uses SysUtils, variants, windows, uDataModulePedidosProveedor, schPedidosProveedorClient_Intf; uses
SysUtils, Variants, Windows,
uDataModulePedidosProveedor, schPedidosProveedorClient_Intf,
uReferenciasUtils, cxVariants;
{$R *.dfm} {$R *.dfm}
@ -188,6 +194,19 @@ begin
RefrescarFiltro; RefrescarFiltro;
end; end;
procedure TfrViewPedidosProveedor.cxGridViewDataControllerCompare(
ADataController: TcxCustomDataController; ARecordIndex1, ARecordIndex2,
AItemIndex: Integer; const V1, V2: Variant; var Compare: Integer);
begin
inherited;
if ((AItemIndex = cxGridViewREFERENCIA.Index) or
(AItemIndex = cxGridViewREF_PED_CLIENTE.Index)) and
(VarType(V1) = VarType(V2)) and (VarType(V1) = varString) then
Compare := CompararReferencias(V1, V2)
else
Compare := VarCompare(V1, V2);
end;
procedure TfrViewPedidosProveedor.cxGridViewINCIDENCIASACTIVASGetCellHint( procedure TfrViewPedidosProveedor.cxGridViewINCIDENCIASACTIVASGetCellHint(
Sender: TcxCustomGridTableItem; ARecord: TcxCustomGridRecord; Sender: TcxCustomGridTableItem; ARecord: TcxCustomGridRecord;
ACellViewInfo: TcxGridTableDataCellViewInfo; const AMousePos: TPoint; ACellViewInfo: TcxGridTableDataCellViewInfo; const AMousePos: TPoint;

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

@ -42,23 +42,20 @@
<Borland.Personality>Delphi.Personality</Borland.Personality> <Borland.Personality>Delphi.Personality</Borland.Personality>
<Borland.ProjectType>Package</Borland.ProjectType> <Borland.ProjectType>Package</Borland.ProjectType>
<BorlandProject> <BorlandProject>
<BorlandProject><Delphi.Personality><Parameters><Parameters Name="UseLauncher">False</Parameters><Parameters Name="LoadAllSymbols">True</Parameters><Parameters Name="LoadUnspecifiedSymbols">False</Parameters></Parameters><Package_Options><Package_Options Name="ImplicitBuild">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 /><Source><Source Name="MainSource">PresupuestosCliente_view.dpk</Source></Source></Delphi.Personality></BorlandProject></BorlandProject>
<Excluded_Packages Name="c:\archivos de programa\borland\delphi10\Bin\dclIntraweb_80_100.bpl">Intraweb 8.0 Design Package for Borland Development Studio 2006</Excluded_Packages>
</Excluded_Packages><Source><Source Name="MainSource">PresupuestosCliente_view.dpk</Source></Source></Delphi.Personality></BorlandProject></BorlandProject>
</ProjectExtensions> </ProjectExtensions>
<Import Project="$(MSBuildBinPath)\Borland.Delphi.Targets" /> <Import Project="$(MSBuildBinPath)\Borland.Delphi.Targets" />
<ItemGroup> <ItemGroup>
<DelphiCompile Include="PresupuestosCliente_view.dpk"> <DelphiCompile Include="PresupuestosCliente_view.dpk">
<MainSource>MainSource</MainSource> <MainSource>MainSource</MainSource>
</DelphiCompile> </DelphiCompile>
<DCCReference Include="..\..\Lib\Articulos_view.dcp" /> <DCCReference Include="C:\Documents and Settings\All Users\Documentos\RAD Studio\5.0\Bpl\Articulos_view.dcp" />
<DCCReference Include="..\..\Lib\Base.dcp" /> <DCCReference Include="C:\Documents and Settings\All Users\Documentos\RAD Studio\5.0\Bpl\Base.dcp" />
<DCCReference Include="..\..\Lib\GUIBase.dcp" /> <DCCReference Include="C:\Documents and Settings\All Users\Documentos\RAD Studio\5.0\Bpl\GUIBase.dcp" />
<DCCReference Include="..\..\Lib\PreCli_AlbCli_relation.dcp" /> <DCCReference Include="C:\Documents and Settings\All Users\Documentos\RAD Studio\5.0\Bpl\PreCli_AlbCli_relation.dcp" />
<DCCReference Include="..\..\Lib\PreCli_FacCli_relation.dcp" /> <DCCReference Include="C:\Documents and Settings\All Users\Documentos\RAD Studio\5.0\Bpl\PreCli_FacCli_relation.dcp" />
<DCCReference Include="..\..\Lib\PresupuestosCliente_controller.dcp" /> <DCCReference Include="C:\Documents and Settings\All Users\Documentos\RAD Studio\5.0\Bpl\PresupuestosCliente_controller.dcp" />
<DCCReference Include="..\..\Lib\PresupuestosCliente_model.dcp" /> <DCCReference Include="C:\Documents and Settings\All Users\Documentos\RAD Studio\5.0\Bpl\PresupuestosCliente_model.dcp" />
<DCCReference Include="uEditorElegirArticulosPresupuestoCliente.pas"> <DCCReference Include="uEditorElegirArticulosPresupuestoCliente.pas">
<Form>fEditorElegirArticulosPresupuestoCliente</Form> <Form>fEditorElegirArticulosPresupuestoCliente</Form>
<DesignClass>TfEditorElegirArticulosPedidoCliente</DesignClass> <DesignClass>TfEditorElegirArticulosPedidoCliente</DesignClass>

13
Source/Modulos/Presupuestos de cliente/Views/uViewPresupuestosCliente.dfm
View File

@ -31,6 +31,7 @@ inherited frViewPresupuestosCliente: TfrViewPresupuestosCliente
Kind = skSum Kind = skSum
Column = cxGridViewIMPORTE_TOTAL Column = cxGridViewIMPORTE_TOTAL
end> end>
DataController.OnCompare = cxGridViewDataControllerCompare
OptionsCustomize.ColumnHidingOnGrouping = False OptionsCustomize.ColumnHidingOnGrouping = False
OptionsView.GroupFooters = gfAlwaysVisible OptionsView.GroupFooters = gfAlwaysVisible
object cxGridViewINCIDENCIASACTIVAS: TcxGridDBColumn object cxGridViewINCIDENCIASACTIVAS: TcxGridDBColumn
@ -151,27 +152,15 @@ inherited frViewPresupuestosCliente: TfrViewPresupuestosCliente
Width = 903 Width = 903
ExplicitWidth = 903 ExplicitWidth = 903
inherited txtFiltroTodo: TcxTextEdit inherited txtFiltroTodo: TcxTextEdit
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitWidth = 806 ExplicitWidth = 806
Width = 806 Width = 806
end end
inherited edtFechaIniFiltro: TcxDateEdit inherited edtFechaIniFiltro: TcxDateEdit
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitWidth = 285 ExplicitWidth = 285
Width = 285 Width = 285
end end
inherited edtFechaFinFiltro: TcxDateEdit inherited edtFechaFinFiltro: TcxDateEdit
Left = 389 Left = 389
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitLeft = 389 ExplicitLeft = 389
ExplicitWidth = 504 ExplicitWidth = 504
Width = 504 Width = 504

17
Source/Modulos/Presupuestos de cliente/Views/uViewPresupuestosCliente.pas
View File

@ -70,6 +70,9 @@ type
ACellViewInfo: TcxGridTableDataCellViewInfo; const AMousePos: TPoint; ACellViewInfo: TcxGridTableDataCellViewInfo; const AMousePos: TPoint;
var AHintText: TCaption; var AIsHintMultiLine: Boolean; var AHintText: TCaption; var AIsHintMultiLine: Boolean;
var AHintTextRect: TRect); var AHintTextRect: TRect);
procedure cxGridViewDataControllerCompare(
ADataController: TcxCustomDataController; ARecordIndex1, ARecordIndex2,
AItemIndex: Integer; const V1, V2: Variant; var Compare: Integer);
private private
//Filtros relativos a la vista //Filtros relativos a la vista
@ -89,7 +92,7 @@ implementation
uses uses
SysUtils, variants, uDataModulePresupuestosCliente, schPresupuestosClienteClient_Intf, SysUtils, variants, uDataModulePresupuestosCliente, schPresupuestosClienteClient_Intf,
uViewGridBase; uViewGridBase, uReferenciasUtils, cxVariants;
{$R *.dfm} {$R *.dfm}
@ -191,6 +194,18 @@ begin
RefrescarFiltro; RefrescarFiltro;
end; end;
procedure TfrViewPresupuestosCliente.cxGridViewDataControllerCompare(
ADataController: TcxCustomDataController; ARecordIndex1, ARecordIndex2,
AItemIndex: Integer; const V1, V2: Variant; var Compare: Integer);
begin
inherited;
if (AItemIndex = cxGridViewREFERENCIA.Index) and
(VarType(V1) = VarType(V2)) and (VarType(V1) = varString) then
Compare := CompararReferencias(V1, V2)
else
Compare := VarCompare(V1, V2);
end;
procedure TfrViewPresupuestosCliente.cxGridViewICONOCustomDrawCell( procedure TfrViewPresupuestosCliente.cxGridViewICONOCustomDrawCell(
Sender: TcxCustomGridTableView; ACanvas: TcxCanvas; Sender: TcxCustomGridTableView; ACanvas: TcxCanvas;
AViewInfo: TcxGridTableDataCellViewInfo; var ADone: Boolean); AViewInfo: TcxGridTableDataCellViewInfo; var ADone: Boolean);

14
Source/Modulos/Recibos de cliente/Views/uViewRecibosCliente.dfm
View File

@ -8,7 +8,6 @@ inherited frViewRecibosCliente: TfrViewRecibosCliente
Height = 259 Height = 259
RootLevelOptions.DetailTabsPosition = dtpTop RootLevelOptions.DetailTabsPosition = dtpTop
OnActiveTabChanged = cxGridActiveTabChanged OnActiveTabChanged = cxGridActiveTabChanged
ExplicitTop = 102
ExplicitWidth = 531 ExplicitWidth = 531
ExplicitHeight = 259 ExplicitHeight = 259
inherited cxGridView: TcxGridDBTableView inherited cxGridView: TcxGridDBTableView
@ -42,6 +41,7 @@ inherited frViewRecibosCliente: TfrViewRecibosCliente
Kind = skSum Kind = skSum
Column = cxGridViewOTROS_GASTOS Column = cxGridViewOTROS_GASTOS
end> end>
DataController.OnCompare = cxGridViewDataControllerCompare
OptionsCustomize.ColumnHidingOnGrouping = False OptionsCustomize.ColumnHidingOnGrouping = False
OptionsView.GroupFooters = gfAlwaysVisible OptionsView.GroupFooters = gfAlwaysVisible
object cxGridViewREFERENCIA: TcxGridDBColumn object cxGridViewREFERENCIA: TcxGridDBColumn
@ -158,27 +158,15 @@ inherited frViewRecibosCliente: TfrViewRecibosCliente
Width = 531 Width = 531
ExplicitWidth = 531 ExplicitWidth = 531
inherited txtFiltroTodo: TcxTextEdit inherited txtFiltroTodo: TcxTextEdit
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitWidth = 434 ExplicitWidth = 434
Width = 434 Width = 434
end end
inherited edtFechaIniFiltro: TcxDateEdit inherited edtFechaIniFiltro: TcxDateEdit
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitWidth = 195 ExplicitWidth = 195
Width = 195 Width = 195
end end
inherited edtFechaFinFiltro: TcxDateEdit inherited edtFechaFinFiltro: TcxDateEdit
Left = 299 Left = 299
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitLeft = 299 ExplicitLeft = 299
ExplicitWidth = 222 ExplicitWidth = 222
Width = 222 Width = 222

20
Source/Modulos/Recibos de cliente/Views/uViewRecibosCliente.pas
View File

@ -68,6 +68,9 @@ type
procedure cxGridViewID_RECIBO_COMPENSADOCustomDrawCell( procedure cxGridViewID_RECIBO_COMPENSADOCustomDrawCell(
Sender: TcxCustomGridTableView; ACanvas: TcxCanvas; Sender: TcxCustomGridTableView; ACanvas: TcxCanvas;
AViewInfo: TcxGridTableDataCellViewInfo; var ADone: Boolean); AViewInfo: TcxGridTableDataCellViewInfo; var ADone: Boolean);
procedure cxGridViewDataControllerCompare(
ADataController: TcxCustomDataController; ARecordIndex1, ARecordIndex2,
AItemIndex: Integer; const V1, V2: Variant; var Compare: Integer);
private private
//Filtros relativos a la vista //Filtros relativos a la vista
@ -90,7 +93,8 @@ type
implementation implementation
uses uses
schRecibosClienteClient_Intf, uDataModuleRecibosCliente, DateUtils; schRecibosClienteClient_Intf, uDataModuleRecibosCliente, DateUtils,
uReferenciasUtils, cxVariants;
{$R *.dfm} {$R *.dfm}
@ -170,6 +174,20 @@ begin
RefrescarFiltro; RefrescarFiltro;
end; end;
procedure TfrViewRecibosCliente.cxGridViewDataControllerCompare(
ADataController: TcxCustomDataController; ARecordIndex1, ARecordIndex2,
AItemIndex: Integer; const V1, V2: Variant; var Compare: Integer);
begin
inherited;
if ((AItemIndex = cxGridViewREFERENCIA.Index) or
(AItemIndex = cxGridViewREFERENCIA_REMESA.Index) or
(AItemIndex = cxGridViewREFERENCIA_REC_COMPENSADO.Index)) and
(VarType(V1) = VarType(V2)) and (VarType(V1) = varString) then
Compare := CompararReferencias(V1, V2)
else
Compare := VarCompare(V1, V2);
end;
procedure TfrViewRecibosCliente.cxGridViewICONOCustomDrawCell( procedure TfrViewRecibosCliente.cxGridViewICONOCustomDrawCell(
Sender: TcxCustomGridTableView; ACanvas: TcxCanvas; Sender: TcxCustomGridTableView; ACanvas: TcxCanvas;
AViewInfo: TcxGridTableDataCellViewInfo; var ADone: Boolean); AViewInfo: TcxGridTableDataCellViewInfo; var ADone: Boolean);

14
Source/Modulos/Recibos de proveedor/Views/uViewRecibosProveedor.dfm
View File

@ -8,7 +8,6 @@ inherited frViewRecibosProveedor: TfrViewRecibosProveedor
Height = 287 Height = 287
RootLevelOptions.DetailTabsPosition = dtpTop RootLevelOptions.DetailTabsPosition = dtpTop
OnActiveTabChanged = cxGridActiveTabChanged OnActiveTabChanged = cxGridActiveTabChanged
ExplicitTop = 102
ExplicitWidth = 531 ExplicitWidth = 531
ExplicitHeight = 287 ExplicitHeight = 287
inherited cxGridView: TcxGridDBTableView inherited cxGridView: TcxGridDBTableView
@ -42,6 +41,7 @@ inherited frViewRecibosProveedor: TfrViewRecibosProveedor
Kind = skSum Kind = skSum
Column = cxGridViewOTROS_GASTOS Column = cxGridViewOTROS_GASTOS
end> end>
DataController.OnCompare = cxGridViewDataControllerCompare
OptionsCustomize.ColumnHidingOnGrouping = False OptionsCustomize.ColumnHidingOnGrouping = False
OptionsView.GroupFooters = gfAlwaysVisible OptionsView.GroupFooters = gfAlwaysVisible
object cxGridViewREFERENCIA: TcxGridDBColumn object cxGridViewREFERENCIA: TcxGridDBColumn
@ -161,27 +161,15 @@ inherited frViewRecibosProveedor: TfrViewRecibosProveedor
Width = 531 Width = 531
ExplicitWidth = 531 ExplicitWidth = 531
inherited txtFiltroTodo: TcxTextEdit inherited txtFiltroTodo: TcxTextEdit
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitWidth = 434 ExplicitWidth = 434
Width = 434 Width = 434
end end
inherited edtFechaIniFiltro: TcxDateEdit inherited edtFechaIniFiltro: TcxDateEdit
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitWidth = 201 ExplicitWidth = 201
Width = 201 Width = 201
end end
inherited edtFechaFinFiltro: TcxDateEdit inherited edtFechaFinFiltro: TcxDateEdit
Left = 305 Left = 305
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitLeft = 305 ExplicitLeft = 305
ExplicitWidth = 216 ExplicitWidth = 216
Width = 216 Width = 216

21
Source/Modulos/Recibos de proveedor/Views/uViewRecibosProveedor.pas
View File

@ -69,6 +69,9 @@ type
procedure cxGridViewID_RECIBO_COMPENSADOCustomDrawCell( procedure cxGridViewID_RECIBO_COMPENSADOCustomDrawCell(
Sender: TcxCustomGridTableView; ACanvas: TcxCanvas; Sender: TcxCustomGridTableView; ACanvas: TcxCanvas;
AViewInfo: TcxGridTableDataCellViewInfo; var ADone: Boolean); AViewInfo: TcxGridTableDataCellViewInfo; var ADone: Boolean);
procedure cxGridViewDataControllerCompare(
ADataController: TcxCustomDataController; ARecordIndex1, ARecordIndex2,
AItemIndex: Integer; const V1, V2: Variant; var Compare: Integer);
private private
//Filtros relativos a la vista //Filtros relativos a la vista
@ -89,7 +92,8 @@ type
implementation implementation
uses uses
schRecibosProveedorClient_Intf, uDataModuleRecibosProveedor, DateUtils, uViewGridBase; schRecibosProveedorClient_Intf, uDataModuleRecibosProveedor,
DateUtils, uViewGridBase, uReferenciasUtils, cxVariants;
{$R *.dfm} {$R *.dfm}
@ -171,6 +175,21 @@ begin
RefrescarFiltro; RefrescarFiltro;
end; end;
procedure TfrViewRecibosProveedor.cxGridViewDataControllerCompare(
ADataController: TcxCustomDataController; ARecordIndex1, ARecordIndex2,
AItemIndex: Integer; const V1, V2: Variant; var Compare: Integer);
begin
inherited;
if ((AItemIndex = cxGridViewREFERENCIA.Index) or
(AItemIndex = cxGridViewREFERENCIA_REMESA.Index) or
(AItemIndex = cxGridViewREFERENCIA_REC_COMPENSADO.Index) or
(AItemIndex = cxGridViewREFERENCIA_FACTURA_PROV.Index)) and
(VarType(V1) = VarType(V2)) and (VarType(V1) = varString) then
Compare := CompararReferencias(V1, V2)
else
Compare := VarCompare(V1, V2);
end;
procedure TfrViewRecibosProveedor.cxGridViewICONOCustomDrawCell( procedure TfrViewRecibosProveedor.cxGridViewICONOCustomDrawCell(
Sender: TcxCustomGridTableView; ACanvas: TcxCanvas; Sender: TcxCustomGridTableView; ACanvas: TcxCanvas;
AViewInfo: TcxGridTableDataCellViewInfo; var ADone: Boolean); AViewInfo: TcxGridTableDataCellViewInfo; var ADone: Boolean);

27
Source/Modulos/Remesas de cliente/Views/uViewRemesasCliente.dfm
View File

@ -3,7 +3,6 @@ inherited frViewRemesasCliente: TfrViewRemesasCliente
ExplicitHeight = 420 ExplicitHeight = 420
inherited cxGrid: TcxGrid inherited cxGrid: TcxGrid
Height = 292 Height = 292
ExplicitTop = 102
ExplicitHeight = 292 ExplicitHeight = 292
inherited cxGridView: TcxGridDBTableView inherited cxGridView: TcxGridDBTableView
DataController.KeyFieldNames = 'RecID' DataController.KeyFieldNames = 'RecID'
@ -33,6 +32,7 @@ inherited frViewRemesasCliente: TfrViewRemesasCliente
Kind = skSum Kind = skSum
Column = cxGridViewIMPORTE_TOTAL Column = cxGridViewIMPORTE_TOTAL
end> end>
DataController.OnCompare = cxGridViewDataControllerCompare
OptionsBehavior.PullFocusing = True OptionsBehavior.PullFocusing = True
object cxGridViewREFERENCIA: TcxGridDBColumn object cxGridViewREFERENCIA: TcxGridDBColumn
Caption = 'Referencia' Caption = 'Referencia'
@ -82,34 +82,9 @@ inherited frViewRemesasCliente: TfrViewRemesasCliente
end end
end end
end end
inherited frViewFiltroBase1: TfrViewFiltroBase
inherited TBXDockablePanel1: TTBXDockablePanel
inherited dxLayoutControl1: TdxLayoutControl
inherited txtFiltroTodo: TcxTextEdit
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
end
inherited edtFechaIniFiltro: TcxDateEdit
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
end
inherited edtFechaFinFiltro: TcxDateEdit
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
end
end
end
end
inherited pnlAgrupaciones: TTBXDockablePanel inherited pnlAgrupaciones: TTBXDockablePanel
Top = 394 Top = 394
ExplicitTop = 394 ExplicitTop = 394
ExplicitWidth = 607
end end
inherited dxComponentPrinter: TdxComponentPrinter inherited dxComponentPrinter: TdxComponentPrinter
inherited dxComponentPrinterLink: TdxGridReportLink inherited dxComponentPrinterLink: TdxGridReportLink

18
Source/Modulos/Remesas de cliente/Views/uViewRemesasCliente.pas
View File

@ -41,6 +41,9 @@ type
cxGridViewDC: TcxGridDBColumn; cxGridViewDC: TcxGridDBColumn;
cxGridViewCUENTA: TcxGridDBColumn; cxGridViewCUENTA: TcxGridDBColumn;
cxGridViewTIPO: TcxGridDBColumn; cxGridViewTIPO: TcxGridDBColumn;
procedure cxGridViewDataControllerCompare(
ADataController: TcxCustomDataController; ARecordIndex1, ARecordIndex2,
AItemIndex: Integer; const V1, V2: Variant; var Compare: Integer);
protected protected
FRemesasCliente: IBizRemesaCliente; FRemesasCliente: IBizRemesaCliente;
function GetRemesasCliente: IBizRemesaCliente; virtual; function GetRemesasCliente: IBizRemesaCliente; virtual;
@ -51,7 +54,8 @@ type
implementation implementation
uses uDataModuleRemesasCliente; uses
uDataModuleRemesasCliente, uReferenciasUtils, cxVariants;
{$R *.dfm} {$R *.dfm}
@ -61,6 +65,18 @@ uses uDataModuleRemesasCliente;
{ {
******************************* TfrViewRemesasCliente ******************************* ******************************* TfrViewRemesasCliente *******************************
} }
procedure TfrViewRemesasCliente.cxGridViewDataControllerCompare(
ADataController: TcxCustomDataController; ARecordIndex1, ARecordIndex2,
AItemIndex: Integer; const V1, V2: Variant; var Compare: Integer);
begin
inherited;
if ((AItemIndex = cxGridViewREFERENCIA.Index)) and
(VarType(V1) = VarType(V2)) and (VarType(V1) = varString) then
Compare := CompararReferencias(V1, V2)
else
Compare := VarCompare(V1, V2);
end;
function TfrViewRemesasCliente.GetRemesasCliente: IBizRemesaCliente; function TfrViewRemesasCliente.GetRemesasCliente: IBizRemesaCliente;
begin begin
Result := FRemesasCliente; Result := FRemesasCliente;

27
Source/Modulos/Remesas de proveedor/Views/uViewRemesasProveedor.dfm
View File

@ -3,7 +3,6 @@ inherited frViewRemesasProveedor: TfrViewRemesasProveedor
ExplicitHeight = 397 ExplicitHeight = 397
inherited cxGrid: TcxGrid inherited cxGrid: TcxGrid
Height = 269 Height = 269
ExplicitTop = 102
ExplicitHeight = 269 ExplicitHeight = 269
inherited cxGridView: TcxGridDBTableView inherited cxGridView: TcxGridDBTableView
DataController.KeyFieldNames = 'RecID' DataController.KeyFieldNames = 'RecID'
@ -33,6 +32,7 @@ inherited frViewRemesasProveedor: TfrViewRemesasProveedor
Kind = skSum Kind = skSum
Column = cxGridViewIMPORTE_TOTAL Column = cxGridViewIMPORTE_TOTAL
end> end>
DataController.OnCompare = cxGridViewDataControllerCompare
OptionsBehavior.PullFocusing = True OptionsBehavior.PullFocusing = True
object cxGridViewREFERENCIA: TcxGridDBColumn object cxGridViewREFERENCIA: TcxGridDBColumn
Caption = 'Referencia' Caption = 'Referencia'
@ -83,34 +83,9 @@ inherited frViewRemesasProveedor: TfrViewRemesasProveedor
end end
end end
end end
inherited frViewFiltroBase1: TfrViewFiltroBase
inherited TBXDockablePanel1: TTBXDockablePanel
inherited dxLayoutControl1: TdxLayoutControl
inherited txtFiltroTodo: TcxTextEdit
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
end
inherited edtFechaIniFiltro: TcxDateEdit
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
end
inherited edtFechaFinFiltro: TcxDateEdit
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
end
end
end
end
inherited pnlAgrupaciones: TTBXDockablePanel inherited pnlAgrupaciones: TTBXDockablePanel
Top = 371 Top = 371
ExplicitTop = 371 ExplicitTop = 371
ExplicitWidth = 607
end end
inherited dxComponentPrinter: TdxComponentPrinter inherited dxComponentPrinter: TdxComponentPrinter
inherited dxComponentPrinterLink: TdxGridReportLink inherited dxComponentPrinterLink: TdxGridReportLink

18
Source/Modulos/Remesas de proveedor/Views/uViewRemesasProveedor.pas
View File

@ -41,6 +41,9 @@ type
cxGridViewDC: TcxGridDBColumn; cxGridViewDC: TcxGridDBColumn;
cxGridViewCUENTA: TcxGridDBColumn; cxGridViewCUENTA: TcxGridDBColumn;
cxGridViewTIPO: TcxGridDBColumn; cxGridViewTIPO: TcxGridDBColumn;
procedure cxGridViewDataControllerCompare(
ADataController: TcxCustomDataController; ARecordIndex1, ARecordIndex2,
AItemIndex: Integer; const V1, V2: Variant; var Compare: Integer);
protected protected
FRemesasProveedor: IBizRemesaProveedor; FRemesasProveedor: IBizRemesaProveedor;
function GetRemesasProveedor: IBizRemesaProveedor; virtual; function GetRemesasProveedor: IBizRemesaProveedor; virtual;
@ -51,7 +54,8 @@ type
implementation implementation
uses uDataModuleRemesasProveedor; uses
uDataModuleRemesasProveedor, uReferenciasUtils, cxVariants;
{$R *.dfm} {$R *.dfm}
@ -61,6 +65,18 @@ uses uDataModuleRemesasProveedor;
{ {
******************************* TfrViewRemesasProveedor ******************************* ******************************* TfrViewRemesasProveedor *******************************
} }
procedure TfrViewRemesasProveedor.cxGridViewDataControllerCompare(
ADataController: TcxCustomDataController; ARecordIndex1, ARecordIndex2,
AItemIndex: Integer; const V1, V2: Variant; var Compare: Integer);
begin
inherited;
if ((AItemIndex = cxGridViewREFERENCIA.Index)) and
(VarType(V1) = VarType(V2)) and (VarType(V1) = varString) then
Compare := CompararReferencias(V1, V2)
else
Compare := VarCompare(V1, V2);
end;
function TfrViewRemesasProveedor.GetRemesasProveedor: IBizRemesaProveedor; function TfrViewRemesasProveedor.GetRemesasProveedor: IBizRemesaProveedor;
begin begin
Result := FRemesasProveedor; Result := FRemesasProveedor;

BIN
Source/Servidor/FactuGES_Server.RES
View File

Binary file not shown.

2
Source/Servidor/FactuGES_Server.rc
View File

@ -14,7 +14,7 @@ BEGIN
BEGIN BEGIN
VALUE "FileVersion", "1.0.4.0\0" VALUE "FileVersion", "1.0.4.0\0"
VALUE "ProductVersion", "1.0.4.0\0" VALUE "ProductVersion", "1.0.4.0\0"
VALUE "CompileDate", "lunes, 02 de junio de 2008 20:48\0" VALUE "CompileDate", "martes, 03 de junio de 2008 12:49\0"
END END
END END
BLOCK "VarFileInfo" BLOCK "VarFileInfo"