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

Repaso general

Browse Source 
git-svn-id: https://192.168.0.254/svn/Proyectos.Tecsitel_FactuGES2/trunk@373 0c75b7a4-871f-7646-8a2f-f78d34cc349f
This commit is contained in:
David Arranz 2008-05-16 17:18:06 +00:00
parent cc4d57d0de
commit 8422968027
24 changed files with 939 additions and 363 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

42
Source/ApplicationBase/ApplicationBase.dproj
View File

@ -60,27 +60,27 @@
<DelphiCompile Include="ApplicationBase.dpk"> <DelphiCompile Include="ApplicationBase.dpk">
<MainSource>MainSource</MainSource> <MainSource>MainSource</MainSource>
</DelphiCompile> </DelphiCompile>
<DCCReference Include="..\Modulos\Almacenes\Base.dcp" /> <DCCReference Include="..\Modulos\Contactos\Base.dcp" />
<DCCReference Include="..\Modulos\Almacenes\dbrtl.dcp" /> <DCCReference Include="..\Modulos\Contactos\dbrtl.dcp" />
<DCCReference Include="..\Modulos\Almacenes\dclIndyCore.dcp" /> <DCCReference Include="..\Modulos\Contactos\dclIndyCore.dcp" />
<DCCReference Include="..\Modulos\Almacenes\designide.dcp" /> <DCCReference Include="..\Modulos\Contactos\designide.dcp" />
<DCCReference Include="..\Modulos\Almacenes\GUIBase.dcp" /> <DCCReference Include="..\Modulos\Contactos\GUIBase.dcp" />
<DCCReference Include="..\Modulos\Almacenes\IndyCore.dcp" /> <DCCReference Include="..\Modulos\Contactos\IndyCore.dcp" />
<DCCReference Include="..\Modulos\Almacenes\IndyProtocols.dcp" /> <DCCReference Include="..\Modulos\Contactos\IndyProtocols.dcp" />
<DCCReference Include="..\Modulos\Almacenes\IndySystem.dcp" /> <DCCReference Include="..\Modulos\Contactos\IndySystem.dcp" />
<DCCReference Include="..\Modulos\Almacenes\JvJansD11R.dcp" /> <DCCReference Include="..\Modulos\Contactos\JvJansD11R.dcp" />
<DCCReference Include="..\Modulos\Almacenes\pckMD5.dcp" /> <DCCReference Include="..\Modulos\Contactos\pckMD5.dcp" />
<DCCReference Include="..\Modulos\Almacenes\pckUCDataConnector.dcp" /> <DCCReference Include="..\Modulos\Contactos\pckUCDataConnector.dcp" />
<DCCReference Include="..\Modulos\Almacenes\pckUserControl_RT.dcp" /> <DCCReference Include="..\Modulos\Contactos\pckUserControl_RT.dcp" />
<DCCReference Include="..\Modulos\Almacenes\PLuginSDK_D10R.dcp" /> <DCCReference Include="..\Modulos\Contactos\PLuginSDK_D10R.dcp" />
<DCCReference Include="..\Modulos\Almacenes\rtl.dcp" /> <DCCReference Include="..\Modulos\Contactos\rtl.dcp" />
<DCCReference Include="..\Modulos\Almacenes\vcl.dcp" /> <DCCReference Include="..\Modulos\Contactos\vcl.dcp" />
<DCCReference Include="..\Modulos\Almacenes\vclactnband.dcp" /> <DCCReference Include="..\Modulos\Contactos\vclactnband.dcp" />
<DCCReference Include="..\Modulos\Almacenes\vcldb.dcp" /> <DCCReference Include="..\Modulos\Contactos\vcldb.dcp" />
<DCCReference Include="..\Modulos\Almacenes\vcljpg.dcp" /> <DCCReference Include="..\Modulos\Contactos\vcljpg.dcp" />
<DCCReference Include="..\Modulos\Almacenes\VclSmp.dcp" /> <DCCReference Include="..\Modulos\Contactos\VclSmp.dcp" />
<DCCReference Include="..\Modulos\Almacenes\vclx.dcp" /> <DCCReference Include="..\Modulos\Contactos\vclx.dcp" />
<DCCReference Include="..\Modulos\Almacenes\xmlrtl.dcp" /> <DCCReference Include="..\Modulos\Contactos\xmlrtl.dcp" />
<DCCReference Include="Empresas\Controller\uDatosBancariosEmpresaController.pas" /> <DCCReference Include="Empresas\Controller\uDatosBancariosEmpresaController.pas" />
<DCCReference Include="Empresas\Controller\uEmpresasController.pas" /> <DCCReference Include="Empresas\Controller\uEmpresasController.pas" />
<DCCReference Include="Empresas\Controller\View\uIEditorDatosBancarioEmpresa.pas" /> <DCCReference Include="Empresas\Controller\View\uIEditorDatosBancarioEmpresa.pas" />

102
Source/Base/Base.dproj
View File

@ -53,58 +53,58 @@
<DelphiCompile Include="Base.dpk"> <DelphiCompile Include="Base.dpk">
<MainSource>MainSource</MainSource> <MainSource>MainSource</MainSource>
</DelphiCompile> </DelphiCompile>
<DCCReference Include="..\Modulos\Contactos\adortl.dcp" />
<DCCReference Include="..\Modulos\Contactos\cxDataD11.dcp" />
<DCCReference Include="..\Modulos\Contactos\cxEditorsD11.dcp" />
<DCCReference Include="..\Modulos\Contactos\cxExportD11.dcp" />
<DCCReference Include="..\Modulos\Contactos\cxExtEditorsD11.dcp" />
<DCCReference Include="..\Modulos\Contactos\cxGridD11.dcp" />
<DCCReference Include="..\Modulos\Contactos\cxIntl6D11.dcp" />
<DCCReference Include="..\Modulos\Contactos\cxIntlPrintSys3D11.dcp" />
<DCCReference Include="..\Modulos\Contactos\cxLibraryD11.dcp" />
<DCCReference Include="..\Modulos\Contactos\cxPageControlD11.dcp" />
<DCCReference Include="..\Modulos\Contactos\DataAbstract_Core_D11.dcp" />
<DCCReference Include="..\Modulos\Contactos\dbrtl.dcp" />
<DCCReference Include="..\Modulos\Contactos\dclIndyCore.dcp" />
<DCCReference Include="..\Modulos\Contactos\designide.dcp" />
<DCCReference Include="..\Modulos\Contactos\dsnap.dcp" />
<DCCReference Include="..\Modulos\Contactos\dxGDIPlusD11.dcp" />
<DCCReference Include="..\Modulos\Contactos\dxPSCoreD11.dcp" />
<DCCReference Include="..\Modulos\Contactos\dxThemeD11.dcp" />
<DCCReference Include="..\Modulos\Contactos\GUISDK_D11.dcp" />
<DCCReference Include="..\Modulos\Contactos\IndyCore.dcp" />
<DCCReference Include="..\Modulos\Contactos\IndyProtocols.dcp" />
<DCCReference Include="..\Modulos\Contactos\IndySystem.dcp" />
<DCCReference Include="..\Modulos\Contactos\Jcl.dcp" />
<DCCReference Include="..\Modulos\Contactos\JclVcl.dcp" />
<DCCReference Include="..\Modulos\Contactos\JSDialog100.dcp" />
<DCCReference Include="..\Modulos\Contactos\JvCmpD11R.dcp" />
<DCCReference Include="..\Modulos\Contactos\JvCoreD11R.dcp" />
<DCCReference Include="..\Modulos\Contactos\JvCtrlsD11R.dcp" />
<DCCReference Include="..\Modulos\Contactos\JvDlgsD11R.dcp" />
<DCCReference Include="..\Modulos\Contactos\JvMMD11R.dcp" />
<DCCReference Include="..\Modulos\Contactos\JvNetD11R.dcp" />
<DCCReference Include="..\Modulos\Contactos\JvPageCompsD11R.dcp" />
<DCCReference Include="..\Modulos\Contactos\JvStdCtrlsD11R.dcp" />
<DCCReference Include="..\Modulos\Contactos\JvSystemD11R.dcp" />
<DCCReference Include="..\Modulos\Contactos\pckMD5.dcp" />
<DCCReference Include="..\Modulos\Contactos\pckUCDataConnector.dcp" />
<DCCReference Include="..\Modulos\Contactos\pckUserControl_RT.dcp" />
<DCCReference Include="..\Modulos\Contactos\PngComponentsD10.dcp" />
<DCCReference Include="..\Modulos\Contactos\PNG_D10.dcp" />
<DCCReference Include="..\Modulos\Contactos\RemObjects_Core_D11.dcp" />
<DCCReference Include="..\Modulos\Contactos\RemObjects_Indy_D11.dcp" />
<DCCReference Include="..\Modulos\Contactos\rtl.dcp" />
<DCCReference Include="..\Modulos\Contactos\TB2k_D10.dcp" />
<DCCReference Include="..\Modulos\Contactos\tbx_d10.dcp" />
<DCCReference Include="..\Modulos\Contactos\vcl.dcp" />
<DCCReference Include="..\Modulos\Contactos\vclactnband.dcp" />
<DCCReference Include="..\Modulos\Contactos\vcldb.dcp" />
<DCCReference Include="..\Modulos\Contactos\vcljpg.dcp" />
<DCCReference Include="..\Modulos\Contactos\VclSmp.dcp" />
<DCCReference Include="..\Modulos\Contactos\vclx.dcp" />
<DCCReference Include="..\Modulos\Contactos\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\cxExportD11.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\cxExtEditorsD11.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\cxGridD11.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\cxIntl6D11.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\cxIntlPrintSys3D11.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_D11.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\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\RemObjects_Indy_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>

BIN
Source/Base/Base.res
View File

Binary file not shown.

9
Source/GUIBase/GUIBase.dpk
View File

@ -64,7 +64,14 @@ requires
dxSkinSilverD11, dxSkinSilverD11,
dxSkinStardustD11, dxSkinStardustD11,
dxSkinValentineD11, dxSkinValentineD11,
dxSkinXmas2008BlueD11; dxSkinXmas2008BlueD11,
cxLibraryD11,
dxThemeD11,
dxGDIPlusD11,
dxComnD11,
dxPSCoreD11,
vcljpg,
vclx;
contains contains
uEditorBase in 'uEditorBase.pas' {fEditorBase: TCustomEditor}, uEditorBase in 'uEditorBase.pas' {fEditorBase: TCustomEditor},

85
Source/GUIBase/GUIBase.dproj
View File

@ -58,43 +58,52 @@
<DelphiCompile Include="GUIBase.dpk"> <DelphiCompile Include="GUIBase.dpk">
<MainSource>MainSource</MainSource> <MainSource>MainSource</MainSource>
</DelphiCompile> </DelphiCompile>
<DCCReference Include="Base.dcp" /> <DCCReference Include="..\Modulos\Contactos\Base.dcp" />
<DCCReference Include="dbrtl.dcp" /> <DCCReference Include="..\Modulos\Contactos\cxLibraryD11.dcp" />
<DCCReference Include="dxBarD11.dcp" /> <DCCReference Include="..\Modulos\Contactos\dbrtl.dcp" />
<DCCReference Include="dxBarExtItemsD11.dcp" /> <DCCReference Include="..\Modulos\Contactos\dxBarD11.dcp" />
<DCCReference Include="dxLayoutControlD11.dcp" /> <DCCReference Include="..\Modulos\Contactos\dxBarExtItemsD11.dcp" />
<DCCReference Include="dxPScxCommonD11.dcp" /> <DCCReference Include="..\Modulos\Contactos\dxComnD11.dcp" />
<DCCReference Include="dxPScxGrid6LnkD11.dcp" /> <DCCReference Include="..\Modulos\Contactos\dxGDIPlusD11.dcp" />
<DCCReference Include="dxPsPrVwAdvD11.dcp" /> <DCCReference Include="..\Modulos\Contactos\dxLayoutControlD11.dcp" />
<DCCReference Include="dxSkinBlackD11.dcp" /> <DCCReference Include="..\Modulos\Contactos\dxPSCoreD11.dcp" />
<DCCReference Include="dxSkinBlueD11.dcp" /> <DCCReference Include="..\Modulos\Contactos\dxPScxCommonD11.dcp" />
<DCCReference Include="dxSkinCaramelD11.dcp" /> <DCCReference Include="..\Modulos\Contactos\dxPScxGrid6LnkD11.dcp" />
<DCCReference Include="dxSkinCoffeeD11.dcp" /> <DCCReference Include="..\Modulos\Contactos\dxPsPrVwAdvD11.dcp" />
<DCCReference Include="dxSkinGlassOceansD11.dcp" /> <DCCReference Include="..\Modulos\Contactos\dxSkinBlackD11.dcp" />
<DCCReference Include="dxSkiniMaginaryD11.dcp" /> <DCCReference Include="..\Modulos\Contactos\dxSkinBlueD11.dcp" />
<DCCReference Include="dxSkinLilianD11.dcp" /> <DCCReference Include="..\Modulos\Contactos\dxSkinCaramelD11.dcp" />
<DCCReference Include="dxSkinLiquidSkyD11.dcp" /> <DCCReference Include="..\Modulos\Contactos\dxSkinCoffeeD11.dcp" />
<DCCReference Include="dxSkinLondonLiquidSkyD11.dcp" /> <DCCReference Include="..\Modulos\Contactos\dxSkinGlassOceansD11.dcp" />
<DCCReference Include="dxSkinMcSkinD11.dcp" /> <DCCReference Include="..\Modulos\Contactos\dxSkiniMaginaryD11.dcp" />
<DCCReference Include="dxSkinMoneyTwinsD11.dcp" /> <DCCReference Include="..\Modulos\Contactos\dxSkinLilianD11.dcp" />
<DCCReference Include="dxSkinOffice2007BlackD11.dcp" /> <DCCReference Include="..\Modulos\Contactos\dxSkinLiquidSkyD11.dcp" />
<DCCReference Include="dxSkinOffice2007BlueD11.dcp" /> <DCCReference Include="..\Modulos\Contactos\dxSkinLondonLiquidSkyD11.dcp" />
<DCCReference Include="dxSkinOffice2007GreenD11.dcp" /> <DCCReference Include="..\Modulos\Contactos\dxSkinMcSkinD11.dcp" />
<DCCReference Include="dxSkinOffice2007PinkD11.dcp" /> <DCCReference Include="..\Modulos\Contactos\dxSkinMoneyTwinsD11.dcp" />
<DCCReference Include="dxSkinOffice2007SilverD11.dcp" /> <DCCReference Include="..\Modulos\Contactos\dxSkinOffice2007BlackD11.dcp" />
<DCCReference Include="dxSkinsCoreD11.dcp" /> <DCCReference Include="..\Modulos\Contactos\dxSkinOffice2007BlueD11.dcp" />
<DCCReference Include="dxSkinscxPCPainterD11.dcp" /> <DCCReference Include="..\Modulos\Contactos\dxSkinOffice2007GreenD11.dcp" />
<DCCReference Include="dxSkinsdxLCPainterD11.dcp" /> <DCCReference Include="..\Modulos\Contactos\dxSkinOffice2007PinkD11.dcp" />
<DCCReference Include="dxSkinSilverD11.dcp" /> <DCCReference Include="..\Modulos\Contactos\dxSkinOffice2007SilverD11.dcp" />
<DCCReference Include="dxSkinStardustD11.dcp" /> <DCCReference Include="..\Modulos\Contactos\dxSkinsCoreD11.dcp" />
<DCCReference Include="dxSkinValentineD11.dcp" /> <DCCReference Include="..\Modulos\Contactos\dxSkinscxPCPainterD11.dcp" />
<DCCReference Include="dxSkinXmas2008BlueD11.dcp" /> <DCCReference Include="..\Modulos\Contactos\dxSkinsdxLCPainterD11.dcp" />
<DCCReference Include="frx11.dcp" /> <DCCReference Include="..\Modulos\Contactos\dxSkinSilverD11.dcp" />
<DCCReference Include="frxe11.dcp" /> <DCCReference Include="..\Modulos\Contactos\dxSkinStardustD11.dcp" />
<DCCReference Include="fs11.dcp" /> <DCCReference Include="..\Modulos\Contactos\dxSkinValentineD11.dcp" />
<DCCReference Include="JvAppFrmD11R.dcp" /> <DCCReference Include="..\Modulos\Contactos\dxSkinXmas2008BlueD11.dcp" />
<DCCReference Include="JvCtrlsD11R.dcp" /> <DCCReference Include="..\Modulos\Contactos\dxThemeD11.dcp" />
<DCCReference Include="rtl.dcp" /> <DCCReference Include="..\Modulos\Contactos\frx11.dcp" />
<DCCReference Include="..\Modulos\Contactos\frxe11.dcp" />
<DCCReference Include="..\Modulos\Contactos\fs11.dcp" />
<DCCReference Include="..\Modulos\Contactos\JvAppFrmD11R.dcp" />
<DCCReference Include="..\Modulos\Contactos\JvCtrlsD11R.dcp" />
<DCCReference Include="..\Modulos\Contactos\rtl.dcp" />
<DCCReference Include="..\Modulos\Contactos\vcl.dcp" />
<DCCReference Include="..\Modulos\Contactos\vcldb.dcp" />
<DCCReference Include="..\Modulos\Contactos\vcljpg.dcp" />
<DCCReference Include="..\Modulos\Contactos\vclx.dcp" />
<DCCReference Include="uDialogBase.pas"> <DCCReference Include="uDialogBase.pas">
<Form>fDialogBase</Form> <Form>fDialogBase</Form>
</DCCReference> </DCCReference>
@ -185,8 +194,6 @@
<Form>frViewTotales</Form> <Form>frViewTotales</Form>
<DesignClass>TFrame</DesignClass> <DesignClass>TFrame</DesignClass>
</DCCReference> </DCCReference>
<DCCReference Include="vcl.dcp" />
<DCCReference Include="vcldb.dcp" />
</ItemGroup> </ItemGroup>
</Project> </Project>
<!-- EurekaLog First Line <!-- EurekaLog First Line

BIN
Source/GUIBase/GUIBase.res
View File

Binary file not shown.

37
Source/GUIBase/uViewGrid.dfm
View File

@ -18,8 +18,6 @@ inherited frViewGrid: TfrViewGrid
TabOrder = 0 TabOrder = 0
LookAndFeel.Kind = lfOffice11 LookAndFeel.Kind = lfOffice11
LookAndFeel.NativeStyle = True LookAndFeel.NativeStyle = True
ExplicitWidth = 554
ExplicitHeight = 271
object cxGridView: TcxGridDBTableView object cxGridView: TcxGridDBTableView
OnDblClick = cxGridViewDblClick OnDblClick = cxGridViewDblClick
NavigatorButtons.ConfirmDelete = False NavigatorButtons.ConfirmDelete = False
@ -65,28 +63,28 @@ inherited frViewGrid: TfrViewGrid
Align = alTop Align = alTop
TabOrder = 1 TabOrder = 1
Visible = False Visible = False
ExplicitWidth = 554 ExplicitWidth = 607
inherited TBXDockablePanel1: TTBXDockablePanel inherited TBXDockablePanel1: TTBXDockablePanel
ExplicitWidth = 554 ExplicitWidth = 607
ExplicitHeight = 102 ExplicitHeight = 102
inherited dxLayoutControl1: TdxLayoutControl inherited dxLayoutControl1: TdxLayoutControl
Width = 607 Width = 607
ExplicitWidth = 554 ExplicitWidth = 607
inherited txtFiltroTodo: TcxTextEdit inherited txtFiltroTodo: TcxTextEdit
Style.LookAndFeel.SkinName = '' Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = '' StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = '' StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = '' StyleHot.LookAndFeel.SkinName = ''
ExplicitWidth = 457 ExplicitWidth = 510
Width = 457 Width = 510
end end
inherited edtFechaIniFiltro: TcxDateEdit inherited edtFechaIniFiltro: TcxDateEdit
Style.LookAndFeel.SkinName = '' Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = '' StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = '' StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = '' StyleHot.LookAndFeel.SkinName = ''
ExplicitWidth = 240 ExplicitWidth = 272
Width = 240 Width = 272
end end
inherited edtFechaFinFiltro: TcxDateEdit inherited edtFechaFinFiltro: TcxDateEdit
Left = 376 Left = 376
@ -95,16 +93,16 @@ inherited frViewGrid: TfrViewGrid
StyleFocused.LookAndFeel.SkinName = '' StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = '' StyleHot.LookAndFeel.SkinName = ''
ExplicitLeft = 376 ExplicitLeft = 376
ExplicitWidth = 200 ExplicitWidth = 221
Width = 200 Width = 221
end end
end end
inherited TBXAlignmentPanel1: TTBXAlignmentPanel inherited TBXAlignmentPanel1: TTBXAlignmentPanel
Width = 607 Width = 607
ExplicitWidth = 554 ExplicitWidth = 607
inherited tbxBotones: TTBXToolbar inherited tbxBotones: TTBXToolbar
Width = 597 Width = 597
ExplicitWidth = 544 ExplicitWidth = 597
end end
end end
end end
@ -121,8 +119,6 @@ inherited frViewGrid: TfrViewGrid
SupportedDocks = [dkStandardDock, dkMultiDock] SupportedDocks = [dkStandardDock, dkMultiDock]
TabOrder = 2 TabOrder = 2
Visible = False Visible = False
ExplicitTop = 373
ExplicitWidth = 554
object TBXAlignmentPanel1: TTBXAlignmentPanel object TBXAlignmentPanel1: TTBXAlignmentPanel
Left = 0 Left = 0
Top = 0 Top = 0
@ -131,7 +127,6 @@ inherited frViewGrid: TfrViewGrid
Margins.Left = 10 Margins.Left = 10
Align = alTop Align = alTop
TabOrder = 0 TabOrder = 0
ExplicitWidth = 554
object TBXToolbar1: TTBXToolbar object TBXToolbar1: TTBXToolbar
Left = 10 Left = 10
Top = 0 Top = 0
@ -141,7 +136,6 @@ inherited frViewGrid: TfrViewGrid
AutoResize = False AutoResize = False
Caption = 'TBXToolbar1' Caption = 'TBXToolbar1'
TabOrder = 0 TabOrder = 0
ExplicitWidth = 544
object TBXItem1: TTBXItem object TBXItem1: TTBXItem
Action = actQuitarAgrupaciones Action = actQuitarAgrupaciones
end end
@ -172,7 +166,7 @@ inherited frViewGrid: TfrViewGrid
PrinterPage.ScaleMode = smFit PrinterPage.ScaleMode = smFit
PrinterPage._dxMeasurementUnits_ = 0 PrinterPage._dxMeasurementUnits_ = 0
PrinterPage._dxLastMU_ = 2 PrinterPage._dxLastMU_ = 2
ReportDocument.CreationDate = 39581.739711365740000000 ReportDocument.CreationDate = 39584.791125752320000000
StyleManager = dxPrintStyleManager1 StyleManager = dxPrintStyleManager1
OptionsCards.Shadow.Depth = 0 OptionsCards.Shadow.Depth = 0
OptionsExpanding.ExpandGroupRows = True OptionsExpanding.ExpandGroupRows = True
@ -245,12 +239,7 @@ inherited frViewGrid: TfrViewGrid
end end
object cxViewGridPopupMenu: TcxGridPopupMenu object cxViewGridPopupMenu: TcxGridPopupMenu
Grid = cxGrid Grid = cxGrid
PopupMenus = < PopupMenus = <>
item
GridView = cxGridView
HitTypes = [gvhtCell]
Index = 0
end>
Left = 264 Left = 264
Top = 128 Top = 128
end end

126
Source/GUIBase/uViewGridBase.pas
View File

@ -110,6 +110,22 @@ type
procedure SetViewFiltros(const Value: IViewFiltroBase); virtual; procedure SetViewFiltros(const Value: IViewFiltroBase); virtual;
procedure FilterChanged(Sender : TObject); virtual; procedure FilterChanged(Sender : TObject); virtual;
procedure cxGridViewInitStoredObject(Sender: TcxCustomGridView; AObject: TObject);
procedure cxGridViewGetStoredProperties(Sender: TcxCustomGridView;
AProperties: TStrings);
procedure cxGridViewGetStoredPropertyValue(Sender: TcxCustomGridView;
const AName: string; var AValue: Variant);
procedure cxGridViewSetStoredPropertyValue(Sender: TcxCustomGridView;
const AName: string; const AValue: Variant);
procedure cxGridViewColumnGetStoredProperties(
Sender: TcxCustomGridTableItem; AProperties: TStrings);
procedure cxGridViewColumnGetStoredPropertyValue(
Sender: TcxCustomGridTableItem; const AName: string; var AValue: Variant);
procedure cxGridViewColumnSetStoredPropertyValue(
Sender: TcxCustomGridTableItem; const AName: string;
const AValue: Variant);
public public
constructor Create(AOwner: TComponent); override; constructor Create(AOwner: TComponent); override;
destructor Destroy; override; destructor Destroy; override;
@ -150,6 +166,7 @@ type
property PopupMenu: TPopupMenu read GetPopupMenu write SetPopupMenu; property PopupMenu: TPopupMenu read GetPopupMenu write SetPopupMenu;
property MultiSelect : Boolean read GetMultiSelect write SetMultiSelect; property MultiSelect : Boolean read GetMultiSelect write SetMultiSelect;
property NumSeleccionados: Integer read getNumSeleccionados; property NumSeleccionados: Integer read getNumSeleccionados;
end; end;
procedure Register; procedure Register;
@ -157,7 +174,7 @@ procedure Register;
implementation implementation
uses uses
CCReg, uDMBase, uDBSelectionListUtils; CCReg, uDMBase, cxGridBandedTableView, uDBSelectionListUtils;
{$R *.dfm} {$R *.dfm}
@ -170,21 +187,16 @@ procedure BestFitAllColumns (TheView:TcxGridDBTableView; ALimit:Integer = 0);
var var
i : Integer ; i : Integer ;
begin begin
try for i := 0 to TheView.VisibleColumnCount-1 do
TheView.BeginUpdate; begin
for i := 0 to TheView.VisibleColumnCount-1 do //TheView.VisibleColumns[i].BestFitMaxWidth := 0;
begin TheView.VisibleColumns[i].ApplyBestFit;
//TheView.VisibleColumns[i].BestFitMaxWidth := 0; if (ALimit > 0) then
TheView.VisibleColumns[i].ApplyBestFit; begin
if (ALimit > 0) then if (TheView.VisibleColumns[i].Width > ALimit) then
begin TheView.VisibleColumns[i].Width := ALimit;
if (TheView.VisibleColumns[i].Width > ALimit) then end;
TheView.VisibleColumns[i].Width := ALimit; end;
end;
end;
finally
TheView.EndUpdate;
end;
End; End;
{ TfrViewGrid } { TfrViewGrid }
@ -209,6 +221,8 @@ begin
end; end;
constructor TfrViewGridBase.Create(AOwner: TComponent); constructor TfrViewGridBase.Create(AOwner: TComponent);
var
I: Integer;
begin begin
inherited; inherited;
FFilter := ''; FFilter := '';
@ -216,6 +230,60 @@ begin
FPopupMenu := nil; FPopupMenu := nil;
FOnDblClick := nil; FOnDblClick := nil;
FGridStatus := NIL; FGridStatus := NIL;
if Assigned(_FocusedView) then
begin
_FocusedView.OnInitStoredObject := cxGridViewInitStoredObject;
_FocusedView.OnGetStoredProperties := cxGridViewGetStoredProperties;
_FocusedView.OnGetStoredPropertyValue := cxGridViewGetStoredPropertyValue;
_FocusedView.OnSetStoredPropertyValue := cxGridViewSetStoredPropertyValue;
for I := 0 to _FocusedView.ColumnCount - 1 do
begin
_FocusedView.Columns[i].OnGetStoredProperties := cxGridViewColumnGetStoredProperties;
_FocusedView.Columns[i].OnGetStoredPropertyValue := cxGridViewColumnGetStoredPropertyValue;
_FocusedView.Columns[i].OnSetStoredPropertyValue := cxGridViewColumnSetStoredPropertyValue;
end;
end;
end;
procedure TfrViewGridBase.cxGridViewColumnGetStoredProperties(
Sender: TcxCustomGridTableItem; AProperties: TStrings);
begin
// ShowMessage(Sender.Name + ' cxGridViewColumnGetStoredProperties');
end;
procedure TfrViewGridBase.cxGridViewColumnGetStoredPropertyValue(
Sender: TcxCustomGridTableItem; const AName: string; var AValue: Variant);
begin
// ShowMessage(Sender.Name + ' cxGridViewColumnGetStoredPropertyValue');
end;
procedure TfrViewGridBase.cxGridViewColumnSetStoredPropertyValue(
Sender: TcxCustomGridTableItem; const AName: string; const AValue: Variant);
begin
// ShowMessage(Sender.Name + ' cxGridViewColumnSetStoredPropertyValue');
end;
procedure TfrViewGridBase.cxGridViewGetStoredProperties(
Sender: TcxCustomGridView; AProperties: TStrings);
begin
// ShowMessage('cxGridViewGetStoredProperties');
AProperties.Delete(AProperties.IndexOf('Footer'));
AProperties.Delete(AProperties.IndexOf('GroupByBox'));
AProperties.Delete(AProperties.IndexOf('GroupFooters'));
AProperties.Delete(AProperties.IndexOf('NewItemRow'));
end;
procedure TfrViewGridBase.cxGridViewGetStoredPropertyValue(
Sender: TcxCustomGridView; const AName: string; var AValue: Variant);
begin
// ShowMessage('cxGridViewGetStoredPropertyValue');
end;
procedure TfrViewGridBase.cxGridViewSetStoredPropertyValue(
Sender: TcxCustomGridView; const AName: string; const AValue: Variant);
begin
// ShowMessage('cxGridViewSetStoredPropertyValue');
end; end;
procedure TfrViewGridBase.ExpandirTodo; procedure TfrViewGridBase.ExpandirTodo;
@ -275,6 +343,19 @@ begin
_FocusedView.DataController.GotoLast; _FocusedView.DataController.GotoLast;
end; end;
procedure TfrViewGridBase.cxGridViewInitStoredObject(Sender: TcxCustomGridView;
AObject: TObject);
begin
if AObject is TcxGridDBColumn then
with TcxGridDBColumn(AObject) do
begin
// ShowMessage('InitStoredObject');
OnGetStoredProperties := cxGridViewColumnGetStoredProperties;
OnGetStoredPropertyValue := cxGridViewColumnGetStoredPropertyValue;
OnSetStoredPropertyValue := cxGridViewColumnSetStoredPropertyValue;
end;
end;
function TfrViewGridBase.IsEmpty: Boolean; function TfrViewGridBase.IsEmpty: Boolean;
begin begin
Result := (_FocusedView.ViewData.RowCount < 1); Result := (_FocusedView.ViewData.RowCount < 1);
@ -314,7 +395,13 @@ end;
procedure TfrViewGridBase.RestoreFromRegistry(const Path : String); procedure TfrViewGridBase.RestoreFromRegistry(const Path : String);
begin begin
if Assigned(_FocusedView) then if Assigned(_FocusedView) then
_FocusedView.RestoreFromRegistry(Path + '\\GridSettings\\' + Self.Name, False, False, [], Self.Name); _FocusedView.RestoreFromRegistry(Path + '\\GridSettings\\' + Self.Name, False, False, []);
end;
procedure TfrViewGridBase.StoreToRegistry(const Path : String);
begin
if Assigned(_FocusedView) then
_FocusedView.StoreToRegistry(Path + '\\GridSettings\\' + Self.Name, True, []);
end; end;
procedure TfrViewGridBase.RestoreGridStatus; procedure TfrViewGridBase.RestoreGridStatus;
@ -388,11 +475,6 @@ begin
end; end;
end; end;
procedure TfrViewGridBase.StoreToRegistry(const Path : String);
begin
if Assigned(_FocusedView) then
_FocusedView.StoreToRegistry(Path + '\\GridSettings\\' + Self.Name, False, [], Self.Name);
end;
procedure TfrViewGridBase.FiltrarGrid(TextoFiltro : String); procedure TfrViewGridBase.FiltrarGrid(TextoFiltro : String);
var var

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="..\..\Obras\adortl.dcp" /> <DCCReference Include="..\adortl.dcp" />
<DCCReference Include="..\..\Obras\ApplicationBase.dcp" /> <DCCReference Include="..\ApplicationBase.dcp" />
<DCCReference Include="..\..\Obras\Base.dcp" /> <DCCReference Include="..\Base.dcp" />
<DCCReference Include="..\..\Obras\Contactos_controller.dcp" /> <DCCReference Include="..\Contactos_controller.dcp" />
<DCCReference Include="..\..\Obras\Contactos_model.dcp" /> <DCCReference Include="..\Contactos_model.dcp" />
<DCCReference Include="..\..\Obras\cxDataD11.dcp" /> <DCCReference Include="..\cxDataD11.dcp" />
<DCCReference Include="..\..\Obras\cxEditorsD11.dcp" /> <DCCReference Include="..\cxEditorsD11.dcp" />
<DCCReference Include="..\..\Obras\cxExportD11.dcp" /> <DCCReference Include="..\cxExportD11.dcp" />
<DCCReference Include="..\..\Obras\cxExtEditorsD11.dcp" /> <DCCReference Include="..\cxExtEditorsD11.dcp" />
<DCCReference Include="..\..\Obras\cxGridD11.dcp" /> <DCCReference Include="..\cxGridD11.dcp" />
<DCCReference Include="..\..\Obras\cxLibraryD11.dcp" /> <DCCReference Include="..\cxLibraryD11.dcp" />
<DCCReference Include="..\..\Obras\cxPageControlD11.dcp" /> <DCCReference Include="..\cxPageControlD11.dcp" />
<DCCReference Include="..\..\Obras\DataAbstract_Core_D11.dcp" /> <DCCReference Include="..\DataAbstract_Core_D11.dcp" />
<DCCReference Include="..\..\Obras\dbrtl.dcp" /> <DCCReference Include="..\dbrtl.dcp" />
<DCCReference Include="..\..\Obras\dsnap.dcp" /> <DCCReference Include="..\dsnap.dcp" />
<DCCReference Include="..\..\Obras\dxGDIPlusD11.dcp" /> <DCCReference Include="..\dxGDIPlusD11.dcp" />
<DCCReference Include="..\..\Obras\dxThemeD11.dcp" /> <DCCReference Include="..\dxThemeD11.dcp" />
<DCCReference Include="..\..\Obras\FormasPago_controller.dcp" /> <DCCReference Include="..\FormasPago_controller.dcp" />
<DCCReference Include="..\..\Obras\FormasPago_model.dcp" /> <DCCReference Include="..\FormasPago_model.dcp" />
<DCCReference Include="..\..\Obras\GUIBase.dcp" /> <DCCReference Include="..\GUIBase.dcp" />
<DCCReference Include="..\..\Obras\JvGlobusD11R.dcp" /> <DCCReference Include="..\JvGlobusD11R.dcp" />
<DCCReference Include="..\..\Obras\PngComponentsD10.dcp" /> <DCCReference Include="..\PngComponentsD10.dcp" />
<DCCReference Include="..\..\Obras\PNG_D10.dcp" /> <DCCReference Include="..\PNG_D10.dcp" />
<DCCReference Include="..\..\Obras\RemObjects_Core_D11.dcp" /> <DCCReference Include="..\RemObjects_Core_D11.dcp" />
<DCCReference Include="..\..\Obras\rtl.dcp" /> <DCCReference Include="..\rtl.dcp" />
<DCCReference Include="..\..\Obras\TiposIVA_controller.dcp" /> <DCCReference Include="..\TiposIVA_controller.dcp" />
<DCCReference Include="..\..\Obras\TiposIVA_model.dcp" /> <DCCReference Include="..\TiposIVA_model.dcp" />
<DCCReference Include="..\..\Obras\vcl.dcp" /> <DCCReference Include="..\vcl.dcp" />
<DCCReference Include="..\..\Obras\vclactnband.dcp" /> <DCCReference Include="..\vclactnband.dcp" />
<DCCReference Include="..\..\Obras\vcldb.dcp" /> <DCCReference Include="..\vcldb.dcp" />
<DCCReference Include="..\..\Obras\vcljpg.dcp" /> <DCCReference Include="..\vcljpg.dcp" />
<DCCReference Include="..\..\Obras\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>

BIN
Source/Modulos/Contactos/Views/Contactos_view.res
View File

Binary file not shown.

30
Source/Modulos/Contactos/Views/uEditorClientes.dfm
View File

@ -5,7 +5,7 @@ inherited fEditorClientes: TfEditorClientes
ClientHeight = 519 ClientHeight = 519
ClientWidth = 786 ClientWidth = 786
ExplicitWidth = 794 ExplicitWidth = 794
ExplicitHeight = 546 ExplicitHeight = 553
PixelsPerInch = 96 PixelsPerInch = 96
TextHeight = 13 TextHeight = 13
inherited JvNavPanelHeader: TJvNavPanelHeader inherited JvNavPanelHeader: TJvNavPanelHeader
@ -104,18 +104,30 @@ inherited fEditorClientes: TfEditorClientes
Width = 786 Width = 786
ExplicitWidth = 786 ExplicitWidth = 786
inherited txtFiltroTodo: TcxTextEdit inherited txtFiltroTodo: TcxTextEdit
ExplicitWidth = 457 Style.LookAndFeel.SkinName = ''
Width = 457 StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitWidth = 689
Width = 689
end end
inherited edtFechaIniFiltro: TcxDateEdit inherited edtFechaIniFiltro: TcxDateEdit
ExplicitWidth = 240 Style.LookAndFeel.SkinName = ''
Width = 240 StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitWidth = 460
Width = 460
end end
inherited edtFechaFinFiltro: TcxDateEdit inherited edtFechaFinFiltro: TcxDateEdit
Left = 564 Left = 564
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitLeft = 564 ExplicitLeft = 564
ExplicitWidth = 121 ExplicitWidth = 212
Width = 121 Width = 212
end end
end end
inherited TBXAlignmentPanel1: TTBXAlignmentPanel inherited TBXAlignmentPanel1: TTBXAlignmentPanel
@ -164,10 +176,6 @@ inherited fEditorClientes: TfEditorClientes
BuiltInStyle = True BuiltInStyle = True
end end
end end
inherited PngImageList: TPngImageList
Left = 120
Top = 56
end
end end
inherited EditorActionList: TActionList [4] inherited EditorActionList: TActionList [4]
Left = 56 Left = 56

2
Source/Modulos/Contactos/Views/uEditorContactos.dfm
View File

@ -3,7 +3,7 @@ inherited fEditorContactos: TfEditorContactos
Top = 448 Top = 448
Caption = 'Lista de contactos' Caption = 'Lista de contactos'
ExplicitWidth = 320 ExplicitWidth = 320
ExplicitHeight = 471 ExplicitHeight = 240
PixelsPerInch = 96 PixelsPerInch = 96
TextHeight = 13 TextHeight = 13
inherited JvNavPanelHeader: TJvNavPanelHeader inherited JvNavPanelHeader: TJvNavPanelHeader

34
Source/Modulos/Contactos/Views/uEditorElegirClientes.dfm
View File

@ -51,17 +51,17 @@ inherited fEditorElegirClientes: TfEditorElegirClientes
ExplicitTop = 87 ExplicitTop = 87
ExplicitWidth = 683 ExplicitWidth = 683
inherited tbxMain: TTBXToolbar inherited tbxMain: TTBXToolbar
ExplicitWidth = 126 ExplicitWidth = 284
inherited TBXItem36: TTBXItem inherited TBXItem36: TTBXItem
Action = actAnchoAuto2 Action = actAnchoAuto2
end end
end end
inherited tbxFiltro: TTBXToolbar inherited tbxFiltro: TTBXToolbar
Left = 126 Left = 284
Top = 23 Top = 23
DockPos = 96 DockPos = 96
DockRow = 1 DockRow = 1
ExplicitLeft = 126 ExplicitLeft = 284
ExplicitTop = 23 ExplicitTop = 23
inherited TBXItem34: TTBXItem inherited TBXItem34: TTBXItem
Action = actQuitarFiltro2 Action = actQuitarFiltro2
@ -165,9 +165,25 @@ inherited fEditorElegirClientes: TfEditorElegirClientes
inherited dxLayoutControl1: TdxLayoutControl inherited dxLayoutControl1: TdxLayoutControl
Width = 663 Width = 663
ExplicitWidth = 663 ExplicitWidth = 663
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 inherited edtFechaFinFiltro: TcxDateEdit
ExplicitWidth = 232 Style.LookAndFeel.SkinName = ''
Width = 232 StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitWidth = 123
Width = 123
end end
end end
inherited TBXAlignmentPanel1: TTBXAlignmentPanel inherited TBXAlignmentPanel1: TTBXAlignmentPanel
@ -188,6 +204,10 @@ inherited fEditorElegirClientes: TfEditorElegirClientes
ExplicitWidth = 663 ExplicitWidth = 663
inherited TBXAlignmentPanel1: TTBXAlignmentPanel inherited TBXAlignmentPanel1: TTBXAlignmentPanel
Width = 663 Width = 663
ExplicitWidth = 663
inherited TBXToolbar1: TTBXToolbar
Width = 653
end
end end
end end
inherited dsDataSource: TDADataSource inherited dsDataSource: TDADataSource
@ -212,10 +232,6 @@ inherited fEditorElegirClientes: TfEditorElegirClientes
BuiltInStyle = True BuiltInStyle = True
end end
end end
inherited PngImageList: TPngImageList
Left = 40
Top = 96
end
end end
inherited EditorActionList: TActionList [6] inherited EditorActionList: TActionList [6]
Left = 112 Left = 112

24
Source/Modulos/Contactos/Views/uEditorElegirProveedores.dfm
View File

@ -3,7 +3,7 @@ inherited fEditorElegirProveedores: TfEditorElegirProveedores
ClientHeight = 480 ClientHeight = 480
ClientWidth = 656 ClientWidth = 656
ExplicitWidth = 664 ExplicitWidth = 664
ExplicitHeight = 507 ExplicitHeight = 514
PixelsPerInch = 96 PixelsPerInch = 96
TextHeight = 13 TextHeight = 13
object JvgWizardHeader1: TJvgWizardHeader [0] object JvgWizardHeader1: TJvgWizardHeader [0]
@ -54,9 +54,6 @@ inherited fEditorElegirProveedores: TfEditorElegirProveedores
ExplicitWidth = 656 ExplicitWidth = 656
inherited tbxMain: TTBXToolbar inherited tbxMain: TTBXToolbar
ExplicitWidth = 284 ExplicitWidth = 284
inherited TBXItem2: TTBXItem
Images = frViewProveedores1.PngImageList
end
inherited TBXItem36: TTBXItem inherited TBXItem36: TTBXItem
Action = actAnchoAuto2 Action = actAnchoAuto2
end end
@ -172,6 +169,24 @@ inherited fEditorElegirProveedores: TfEditorElegirProveedores
inherited dxLayoutControl1: TdxLayoutControl inherited dxLayoutControl1: TdxLayoutControl
Width = 636 Width = 636
ExplicitWidth = 636 ExplicitWidth = 636
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
inherited TBXAlignmentPanel1: TTBXAlignmentPanel inherited TBXAlignmentPanel1: TTBXAlignmentPanel
Width = 636 Width = 636
@ -193,6 +208,7 @@ inherited fEditorElegirProveedores: TfEditorElegirProveedores
ExplicitWidth = 636 ExplicitWidth = 636
inherited TBXToolbar1: TTBXToolbar inherited TBXToolbar1: TTBXToolbar
Width = 626 Width = 626
ExplicitWidth = 626
end end
end end
end end

31
Source/Modulos/Contactos/Views/uEditorEmpleados.dfm
View File

@ -103,18 +103,30 @@ inherited fEditorEmpleados: TfEditorEmpleados
Width = 786 Width = 786
ExplicitWidth = 786 ExplicitWidth = 786
inherited txtFiltroTodo: TcxTextEdit inherited txtFiltroTodo: TcxTextEdit
ExplicitWidth = 273 Style.LookAndFeel.SkinName = ''
Width = 273 StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitWidth = 689
Width = 689
end end
inherited edtFechaIniFiltro: TcxDateEdit inherited edtFechaIniFiltro: TcxDateEdit
ExplicitWidth = 121 Style.LookAndFeel.SkinName = ''
Width = 121 StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitWidth = 290
Width = 290
end end
inherited edtFechaFinFiltro: TcxDateEdit inherited edtFechaFinFiltro: TcxDateEdit
Left = 394 Left = 394
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitLeft = 394 ExplicitLeft = 394
ExplicitWidth = 201 ExplicitWidth = 382
Width = 201 Width = 382
end end
end end
inherited TBXAlignmentPanel1: TTBXAlignmentPanel inherited TBXAlignmentPanel1: TTBXAlignmentPanel
@ -163,10 +175,6 @@ inherited fEditorEmpleados: TfEditorEmpleados
BuiltInStyle = True BuiltInStyle = True
end end
end end
inherited PngImageList: TPngImageList
Left = 224
Top = 128
end
end end
inherited EditorActionList: TActionList [4] inherited EditorActionList: TActionList [4]
Left = 72 Left = 72
@ -1531,6 +1539,9 @@ inherited fEditorEmpleados: TfEditorEmpleados
end end
inherited JvFormStorage: TJvFormStorage [7] inherited JvFormStorage: TJvFormStorage [7]
end end
inherited JvAppRegistryStorage: TJvAppRegistryStorage
Left = 440
end
inherited dsDataTable: TDADataSource [9] inherited dsDataTable: TDADataSource [9]
end end
inherited StatusBarImages: TPngImageList [10] inherited StatusBarImages: TPngImageList [10]

31
Source/Modulos/Contactos/Views/uEditorProveedores.dfm
View File

@ -1,6 +1,5 @@
inherited fEditorProveedores: TfEditorProveedores inherited fEditorProveedores: TfEditorProveedores
Caption = 'fEditorProveedores' Caption = 'fEditorProveedores'
ExplicitWidth = 551
PixelsPerInch = 96 PixelsPerInch = 96
TextHeight = 13 TextHeight = 13
inherited JvNavPanelHeader: TJvNavPanelHeader inherited JvNavPanelHeader: TJvNavPanelHeader
@ -88,18 +87,30 @@ inherited fEditorProveedores: TfEditorProveedores
Width = 543 Width = 543
ExplicitWidth = 543 ExplicitWidth = 543
inherited txtFiltroTodo: TcxTextEdit inherited txtFiltroTodo: TcxTextEdit
ExplicitWidth = 460 Style.LookAndFeel.SkinName = ''
Width = 460 StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitWidth = 446
Width = 446
end end
inherited edtFechaIniFiltro: TcxDateEdit inherited edtFechaIniFiltro: TcxDateEdit
ExplicitWidth = 207 Style.LookAndFeel.SkinName = ''
Width = 207 StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitWidth = 219
Width = 219
end end
inherited edtFechaFinFiltro: TcxDateEdit inherited edtFechaFinFiltro: TcxDateEdit
Left = 323 Left = 323
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitLeft = 323 ExplicitLeft = 323
ExplicitWidth = 201 ExplicitWidth = 210
Width = 201 Width = 210
end end
end end
inherited TBXAlignmentPanel1: TTBXAlignmentPanel inherited TBXAlignmentPanel1: TTBXAlignmentPanel
@ -144,10 +155,6 @@ inherited fEditorProveedores: TfEditorProveedores
BuiltInStyle = True BuiltInStyle = True
end end
end end
inherited PngImageList: TPngImageList
Left = 228
Top = 128
end
end end
inherited EditorActionList: TActionList [4] inherited EditorActionList: TActionList [4]
inherited actNuevo: TAction inherited actNuevo: TAction
@ -1315,7 +1322,7 @@ inherited fEditorProveedores: TfEditorProveedores
001F8000003F800000FFF8FFFFFF} 001F8000003F800000FFF8FFFFFF}
Width = 550 Width = 550
Left = 328 Left = 328
Top = 144 Top = 136
end end
object JsListaContactosNoEliminados: TJSDialog object JsListaContactosNoEliminados: TJSDialog
Glyph.Data = { Glyph.Data = {

160
Source/Modulos/Contactos/Views/uViewClientes.dfm
View File

@ -15,12 +15,6 @@ inherited frViewClientes: TfrViewClientes
Kind = skCount Kind = skCount
Column = cxGridViewNIF_CIF Column = cxGridViewNIF_CIF
end> end>
inherited cxGridViewICONO: TcxGridDBColumn
BestFitMaxWidth = 22
MinWidth = 22
Options.HorzSizing = False
Width = 22
end
object cxGridViewBLOQUEADO: TcxGridDBColumn [1] object cxGridViewBLOQUEADO: TcxGridDBColumn [1]
DataBinding.FieldName = 'BLOQUEADO' DataBinding.FieldName = 'BLOQUEADO'
PropertiesClassName = 'TcxTextEditProperties' PropertiesClassName = 'TcxTextEditProperties'
@ -35,7 +29,6 @@ inherited frViewClientes: TfrViewClientes
Caption = 'Acceso a tienda web' Caption = 'Acceso a tienda web'
DataBinding.FieldName = 'TIENDA_WEB' DataBinding.FieldName = 'TIENDA_WEB'
PropertiesClassName = 'TcxImageComboBoxProperties' PropertiesClassName = 'TcxImageComboBoxProperties'
Properties.Images = PngImageList
Properties.Items = < Properties.Items = <
item item
Value = 0 Value = 0
@ -68,14 +61,30 @@ inherited frViewClientes: TfrViewClientes
Width = 793 Width = 793
ExplicitWidth = 793 ExplicitWidth = 793
inherited txtFiltroTodo: TcxTextEdit inherited txtFiltroTodo: TcxTextEdit
ExplicitWidth = 273 Style.LookAndFeel.SkinName = ''
Width = 273 StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitWidth = 696
Width = 696
end
inherited edtFechaIniFiltro: TcxDateEdit
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitWidth = 154
Width = 154
end end
inherited edtFechaFinFiltro: TcxDateEdit inherited edtFechaFinFiltro: TcxDateEdit
Left = 335 Left = 258
ExplicitLeft = 335 Style.LookAndFeel.SkinName = ''
ExplicitWidth = 284 StyleDisabled.LookAndFeel.SkinName = ''
Width = 284 StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitLeft = 258
ExplicitWidth = 525
Width = 525
end end
end end
inherited TBXAlignmentPanel1: TTBXAlignmentPanel inherited TBXAlignmentPanel1: TTBXAlignmentPanel
@ -119,13 +128,110 @@ inherited frViewClientes: TfrViewClientes
inherited cxViewGridPopupMenu: TcxGridPopupMenu inherited cxViewGridPopupMenu: TcxGridPopupMenu
Left = 32 Left = 32
end end
inherited PngImageList10: TPngImageList
Left = 104
Top = 216
end
inherited dxPrintStyleManager1: TdxPrintStyleManager inherited dxPrintStyleManager1: TdxPrintStyleManager
inherited dxPrintStyleManager1Style1: TdxPSPrintStyle inherited dxPrintStyleManager1Style1: TdxPSPrintStyle
BuiltInStyle = True BuiltInStyle = True
end end
end end
inherited PngImageList: TPngImageList inherited GridImageList: TPngImageList
PngImages = < PngImages = <
item
PngImage.Data = {
89504E470D0A1A0A0000000D49484452000000100000001008060000001FF3FF
61000000097048597300000B1300000B1301009A9C1800000A4F694343505068
6F746F73686F70204943432070726F66696C65000078DA9D53675453E9163DF7
DEF4424B8880944B6F5215082052428B801491262A2109104A8821A1D91551C1
114545041BC8A088038E8E808C15512C0C8A0AD807E421A28E83A3888ACAFBE1
7BA36BD6BCF7E6CDFEB5D73EE7ACF39DB3CF07C0080C9648335135800CA9421E
11E083C7C4C6E1E42E40810A2470001008B3642173FD230100F87E3C3C2B22C0
07BE000178D30B0800C04D9BC0301C87FF0FEA42995C01808401C07491384B08
801400407A8E42A600404601809D98265300A0040060CB6362E300502D006027
7FE6D300809DF8997B01005B94211501A09100201365884400683B00ACCF568A
450058300014664BC43900D82D00304957664800B0B700C0CE100BB200080C00
305188852900047B0060C8232378008499001446F2573CF12BAE10E72A000078
99B23CB9243945815B082D710757572E1E28CE49172B14366102619A402EC279
99193281340FE0F3CC0000A0911511E083F3FD78CE0EAECECE368EB60E5F2DEA
BF06FF226262E3FEE5CFAB70400000E1747ED1FE2C2FB31A803B06806DFEA225
EE04685E0BA075F78B66B20F40B500A0E9DA57F370F87E3C3C45A190B9D9D9E5
E4E4D84AC4425B61CA577DFE67C25FC057FD6CF97E3CFCF7F5E0BEE22481325D
814704F8E0C2CCF44CA51CCF92098462DCE68F47FCB70BFFFC1DD322C44962B9
582A14E35112718E449A8CF332A52289429229C525D2FF64E2DF2CFB033EDF35
00B06A3E017B912DA85D6303F64B27105874C0E2F70000F2BB6FC1D428080380
6883E1CF77FFEF3FFD47A02500806649927100005E44242E54CAB33FC7080000
44A0812AB0411BF4C1182CC0061CC105DCC10BFC6036844224C4C24210420A64
801C726029AC82422886CDB01D2A602FD4401D34C051688693700E2EC255B80E
3D700FFA61089EC128BC81090441C808136121DA8801628A58238E08179985F8
21C14804128B2420C9881451224B91354831528A542055481DF23D720239875C
46BA913BC8003282FC86BC47319481B2513DD40CB543B9A8371A8446A20BD064
74319A8F16A09BD072B41A3D8C36A1E7D0AB680FDA8F3E43C730C0E8180733C4
6C302EC6C342B1382C099363CBB122AC0CABC61AB056AC03BB89F563CFB17704
128145C0093604774220611E4148584C584ED848A8201C243411DA0937090384
51C2272293A84BB426BA11F9C4186232318758482C23D6128F132F107B8843C4
37241289433227B9900249B1A454D212D246D26E5223E92CA99B34481A2393C9
DA646BB20739942C202BC885E49DE4C3E433E41BE421F25B0A9D624071A4F853
E22852CA6A4A19E510E534E5066598324155A39A52DDA8A15411358F5A42ADA1
B652AF5187A81334759A39CD8316494BA5ADA295D31A681768F769AFE874BA11
DD951E4E97D057D2CBE947E897E803F4770C0D861583C7886728199B18071867
197718AF984CA619D38B19C754303731EB98E7990F996F55582AB62A7C1591CA
0A954A9526951B2A2F54A9AAA6AADEAA0B55F355CB548FA95E537DAE46553353
E3A909D496AB55AA9D50EB531B5367A93BA887AA67A86F543FA47E59FD890659
C34CC34F43A451A0B15FE3BCC6200B6319B3782C216B0DAB86758135C426B1CD
D97C762ABB98FD1DBB8B3DAAA9A13943334A3357B352F394663F07E39871F89C
744E09E728A797F37E8ADE14EF29E2291BA6344CB931655C6BAA96979658AB48
AB51AB47EBBD36AEEDA79DA6BD45BB59FB810E41C74A275C2747678FCE059DE7
53D953DDA70AA7164D3D3AF5AE2EAA6BA51BA1BB4477BF6EA7EE989EBE5E809E
4C6FA7DE79BDE7FA1C7D2FFD54FD6DFAA7F5470C5806B30C2406DB0CCE183CC5
35716F3C1D2FC7DBF151435DC34043A561956197E18491B9D13CA3D5468D460F
8C69C65CE324E36DC66DC6A326062621264B4DEA4DEE9A524DB9A629A63B4C3B
4CC7CDCCCDA2CDD699359B3D31D732E79BE79BD79BDFB7605A785A2CB6A8B6B8
6549B2E45AA659EEB6BC6E855A3959A558555A5DB346AD9DAD25D6BBADBBA711
A7B94E934EAB9ED667C3B0F1B6C9B6A9B719B0E5D806DBAEB66DB67D61676217
67B7C5AEC3EE93BD937DBA7D8DFD3D070D87D90EAB1D5A1D7E73B472143A563A
DE9ACE9CEE3F7DC5F496E92F6758CF10CFD833E3B613CB29C4699D539BD34767
1767B97383F3888B894B82CB2E973E2E9B1BC6DDC8BDE44A74F5715DE17AD2F5
9D9BB39BC2EDA8DBAFEE36EE69EE87DC9FCC349F299E593373D0C3C843E051E5
D13F0B9F95306BDFAC7E4F434F8167B5E7232F632F9157ADD7B0B7A577AAF761
EF173EF63E729FE33EE33C37DE32DE595FCC37C0B7C8B7CB4FC36F9E5F85DF43
7F23FF64FF7AFFD100A78025016703898141815B02FBF87A7C21BF8E3F3ADB65
F6B2D9ED418CA0B94115418F82AD82E5C1AD2168C8EC90AD21F7E798CE91CE69
0E85507EE8D6D00761E6618BC37E0C2785878557863F8E7088581AD131973577
D1DC4373DF44FA449644DE9B67314F39AF2D4A352A3EAA2E6A3CDA37BA34BA3F
C62E6659CCD5589D58496C4B1C392E2AAE366E6CBEDFFCEDF387E29DE20BE37B
17982FC85D7079A1CEC2F485A716A92E122C3A96404C884E3894F041102AA816
8C25F21377258E0A79C21DC267222FD136D188D8435C2A1E4EF2482A4D7A92EC
91BC357924C533A52CE5B98427A990BC4C0D4CDD9B3A9E169A76206D323D3ABD
31839291907142AA214D93B667EA67E66676CBAC6585B2FEC56E8BB72F1E9507
C96BB390AC05592D0AB642A6E8545A28D72A07B267655766BFCD89CA3996AB9E
2BCDEDCCB3CADB90379CEF9FFFED12C212E192B6A5864B572D1D58E6BDAC6A39
B23C7179DB0AE315052B865606AC3CB88AB62A6DD54FABED5797AE7EBD267A4D
6B815EC1CA82C1B5016BEB0B550AE5857DEBDCD7ED5D4F582F59DFB561FA869D
1B3E15898AAE14DB1797157FD828DC78E51B876FCABF99DC94B4A9ABC4B964CF
66D266E9E6DE2D9E5B0E96AA97E6970E6E0DD9DAB40DDF56B4EDF5F645DB2F97
CD28DBBB83B643B9A3BF3CB8BC65A7C9CECD3B3F54A454F454FA5436EED2DDB5
61D7F86ED1EE1B7BBCF634ECD5DB5BBCF7FD3EC9BEDB5501554DD566D565FB49
FBB3F73FAE89AAE9F896FB6D5DAD4E6D71EDC703D203FD07230EB6D7B9D4D51D
D23D54528FD62BEB470EC71FBEFE9DEF772D0D360D558D9CC6E223704479E4E9
F709DFF71E0D3ADA768C7BACE107D31F761D671D2F6A429AF29A469B539AFB5B
625BBA4FCC3ED1D6EADE7AFC47DB1F0F9C343C59794AF354C969DAE982D39367
F2CF8C9D959D7D7E2EF9DC60DBA2B67BE763CEDF6A0F6FEFBA1074E1D245FF8B
E73BBC3BCE5CF2B874F2B2DBE51357B8579AAF3A5F6DEA74EA3CFE93D34FC7BB
9CBB9AAEB95C6BB9EE7ABDB57B66F7E91B9E37CEDDF4BD79F116FFD6D59E393D
DDBDF37A6FF7C5F7F5DF16DD7E7227FDCECBBBD97727EEADBC4FBC5FF440ED41
D943DD87D53F5BFEDCD8EFDC7F6AC077A0F3D1DC47F7068583CFFE91F58F0F43
058F998FCB860D86EB9E383E3939E23F72FDE9FCA743CF64CF269E17FEA2FECB
AE17162F7EF8D5EBD7CED198D1A197F29793BF6D7CA5FDEAC0EB19AFDBC6C2C6
1EBEC97833315EF456FBEDC177DC771DEFA3DF0F4FE47C207F28FF68F9B1F553
D0A7FB93199393FF040398F3FC63332DDB000000434944415478DA63FCFFFF3F
03258011D900464646ACA601D530126D00BA6298A1B80C21CA0090183639925C
80CB3B040DC0E69A510306BD010C04005E03C801036F00008D248BE16F9028BA
0000000049454E44AE426082}
Name = 'PngImage0'
Background = clWindow
end
item item
PngImage.Data = { PngImage.Data = {
89504E470D0A1A0A0000000D49484452000000100000001008060000001FF3FF 89504E470D0A1A0A0000000D49484452000000100000001008060000001FF3FF
@ -152,7 +258,7 @@ inherited frViewClientes: TfrViewClientes
D855B34A247F074A8BA91A40A2808C91803955E6E70233F36F3D0D58C6DEEDD6 D855B34A247F074A8BA91A40A2808C91803955E6E70233F36F3D0D58C6DEEDD6
B8D35040179B9DA602305266AC028925A4A0B822A090C20BAB09BF96F35D736E B8D35040179B9DA602305266AC028925A4A0B822A090C20BAB09BF96F35D736E
53F70B90E997F07974AFDF0000000049454E44AE426082} 53F70B90E997F07974AFDF0000000049454E44AE426082}
Name = 'PngImage0' Name = 'PngImage2'
Background = clWindow Background = clWindow
end end
item item
@ -268,31 +374,7 @@ inherited frViewClientes: TfrViewClientes
49454E44AE426082} 49454E44AE426082}
Name = 'PngImage1' Name = 'PngImage1'
Background = clWindow Background = clWindow
end
item
PngImage.Data = {
89504E470D0A1A0A0000000D49484452000000100000001008060000001FF3FF
61000001E34944415478DAA5932D72E43010855F98D934341BC1858261D10D76
8E3047305C1685051A067A59A0E042E70682863D6C608719EE6B399EADDABFAA
AD7595CAB2DCFDF5EB1FDDE13F9FBB9F0FF258225F27AEC415D109B05A35C3CC
EF32E653FD2380CE035F4388720C41609DC2D68ABA28B42688E1820E79CAE7E9
17407316E4788F43E8033CF2F46D42F804E8E29084E0A2ACBE7B90E9798334C0
40D9145AC2BD1E8591A58B5CFE27406D462915EA59AD4A70812CF142FBD3340E
750764113C8648C9A214E20A0C762560A1A925A662A8FDD0D48A06846B782220
6F80E732C7181F14858079CB69895B1D57D6824BBB99FF4A03C9952134BD9597
21ED008BF1F341F52BAA3035098CC23428DB561A70D53EC39888EFB941D4F45E
5EB2DC0021A6035BC56A0F306660BD1B464A3DB5A8B00CED89606A62B201A61D
90CB8C3E3EA03BD2F002BD8EF4550FB441D421532B62658D02CFC4C2DBFC9AD3
0EC86CDBA349DC24B2F7BA8E2D227BCF9CFD3CB573EC69409EE6D731EF804899
EC4F3CB6D631927623FFD48F5AC84741B1B572D58B4FEB5CC67A1BA4739ECE34
18D185435DE756B070B5CDB17305B63BB741A2F38F41BA41BE38C4324D8FE6C6
3E0FBE7CEF15F602716877E7DF5EA6F330B6CBC4F6A55641CAE69EC973245714
97FDD7DBF8AFCF7740E00D20BA266C3A0000000049454E44AE426082}
Name = 'PngImage2'
Background = clWindow
end> end>
Left = 104
Top = 168
Bitmap = {} Bitmap = {}
end end
end end

16
Source/Modulos/Contactos/Views/uViewClientes.pas
View File

@ -14,7 +14,13 @@ uses
dxPScxCommon, cxImageComboBox, cxGridCustomPopupMenu, cxGridPopupMenu, dxPScxCommon, cxImageComboBox, cxGridCustomPopupMenu, cxGridPopupMenu,
dxPScxGrid6Lnk, ExtCtrls, JvComponentBase, JvBalloonHint, JvHint, dxPScxGrid6Lnk, ExtCtrls, JvComponentBase, JvBalloonHint, JvHint,
uViewFiltroBase, dxPgsDlg, TB2Item, TBX, TB2Toolbar, TBXDkPanels, TB2Dock, uViewFiltroBase, dxPgsDlg, TB2Item, TBX, TB2Toolbar, TBXDkPanels, TB2Dock,
uDAInterfaces, cxTextEdit; uDAInterfaces, cxTextEdit, dxSkinsCore, dxSkinBlack, dxSkinBlue,
dxSkinCaramel, dxSkinCoffee, dxSkinGlassOceans, dxSkiniMaginary, dxSkinLilian,
dxSkinLiquidSky, dxSkinLondonLiquidSky, dxSkinMcSkin, dxSkinMoneyTwins,
dxSkinOffice2007Black, dxSkinOffice2007Blue, dxSkinOffice2007Green,
dxSkinOffice2007Pink, dxSkinOffice2007Silver, dxSkinSilver, dxSkinStardust,
dxSkinsDefaultPainters, dxSkinValentine, dxSkinXmas2008Blue,
dxSkinscxPCPainter, Menus;
type type
IViewClientes = interface(IViewContactos) IViewClientes = interface(IViewContactos)
@ -29,7 +35,7 @@ type
ARecord: TcxCustomGridRecord; ACellViewInfo: TcxGridTableDataCellViewInfo; ARecord: TcxCustomGridRecord; ACellViewInfo: TcxGridTableDataCellViewInfo;
const AMousePos: TPoint; var AHintText: TCaption; const AMousePos: TPoint; var AHintText: TCaption;
var AIsHintMultiLine: Boolean; var AHintTextRect: TRect); var AIsHintMultiLine: Boolean; var AHintTextRect: TRect);
procedure cxGridViewCODIGOCustomDrawCell(Sender: TcxCustomGridTableView; procedure cxGridViewICONOCustomDrawCell(Sender: TcxCustomGridTableView;
ACanvas: TcxCanvas; AViewInfo: TcxGridTableDataCellViewInfo; ACanvas: TcxCanvas; AViewInfo: TcxGridTableDataCellViewInfo;
var ADone: Boolean); var ADone: Boolean);
end; end;
@ -43,7 +49,7 @@ uses uViewGridBase;
{$R *.dfm} {$R *.dfm}
procedure TfrViewClientes.cxGridViewCODIGOCustomDrawCell( procedure TfrViewClientes.cxGridViewICONOCustomDrawCell(
Sender: TcxCustomGridTableView; ACanvas: TcxCanvas; Sender: TcxCustomGridTableView; ACanvas: TcxCanvas;
AViewInfo: TcxGridTableDataCellViewInfo; var ADone: Boolean); AViewInfo: TcxGridTableDataCellViewInfo; var ADone: Boolean);
var var
@ -54,9 +60,9 @@ begin
ACanvas.FillRect(R); ACanvas.FillRect(R);
if (cxGridView.DataController.DisplayTexts[AViewInfo.GridRecord.RecordIndex, if (cxGridView.DataController.DisplayTexts[AViewInfo.GridRecord.RecordIndex,
cxGridViewBLOQUEADO.Index] = '1') then cxGridViewBLOQUEADO.Index] = '1') then
ACanvas.DrawImage(PngImageList, R.Left + 2, R.Top + 2, 1) ACanvas.DrawImage(GridImageList, R.Left + 2, R.Top + 2, 2)
else else
ACanvas.DrawImage(PngImageList, R.Left + 2, R.Top + 2, 0); ACanvas.DrawImage(GridImageList, R.Left + 2, R.Top + 2, 1);
ADone := True; ADone := True;
end; end;

136
Source/Modulos/Contactos/Views/uViewContactos.dfm
View File

@ -19,10 +19,14 @@ inherited frViewContactos: TfrViewContactos
end> end>
OptionsBehavior.PullFocusing = True OptionsBehavior.PullFocusing = True
object cxGridViewICONO: TcxGridDBColumn object cxGridViewICONO: TcxGridDBColumn
OnCustomDrawCell = cxGridViewCODIGOCustomDrawCell Caption = 'Icono'
BestFitMaxWidth = 18 OnCustomDrawCell = cxGridViewICONOCustomDrawCell
BestFitMaxWidth = 22
MinWidth = 22
Options.HorzSizing = False
Options.Sorting = False Options.Sorting = False
Width = 20 Width = 22
OnCustomDrawHeader = cxGridViewICONOCustomDrawHeader
end end
object cxGridViewREFERENCIA: TcxGridDBColumn object cxGridViewREFERENCIA: TcxGridDBColumn
Caption = 'C'#243'digo' Caption = 'C'#243'digo'
@ -112,15 +116,27 @@ inherited frViewContactos: TfrViewContactos
Width = 557 Width = 557
ExplicitWidth = 557 ExplicitWidth = 557
inherited txtFiltroTodo: TcxTextEdit inherited txtFiltroTodo: TcxTextEdit
ExplicitWidth = 273 Style.LookAndFeel.SkinName = ''
Width = 273 StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitWidth = 460
Width = 460
end end
inherited edtFechaIniFiltro: TcxDateEdit inherited edtFechaIniFiltro: TcxDateEdit
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitWidth = 121 ExplicitWidth = 121
Width = 121 Width = 121
end end
inherited edtFechaFinFiltro: TcxDateEdit inherited edtFechaFinFiltro: TcxDateEdit
Left = 225 Left = 225
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitLeft = 225 ExplicitLeft = 225
ExplicitWidth = 322 ExplicitWidth = 322
Width = 322 Width = 322
@ -159,14 +175,116 @@ inherited frViewContactos: TfrViewContactos
BuiltInReportLink = True BuiltInReportLink = True
end end
end end
inherited ActionList1: TActionList
Left = 336
Top = 304
end
inherited PngImageList10: TPngImageList
Left = 232
Top = 304
end
inherited dxPrintStyleManager1: TdxPrintStyleManager inherited dxPrintStyleManager1: TdxPrintStyleManager
inherited dxPrintStyleManager1Style1: TdxPSPrintStyle inherited dxPrintStyleManager1Style1: TdxPSPrintStyle
BuiltInStyle = True BuiltInStyle = True
end end
end end
object PngImageList: TPngImageList object GridImageList: TPngImageList
PngImages = <> PngImages = <
Left = 160 item
Top = 32 PngImage.Data = {
89504E470D0A1A0A0000000D49484452000000100000001008060000001FF3FF
61000000097048597300000B1300000B1301009A9C1800000A4F694343505068
6F746F73686F70204943432070726F66696C65000078DA9D53675453E9163DF7
DEF4424B8880944B6F5215082052428B801491262A2109104A8821A1D91551C1
114545041BC8A088038E8E808C15512C0C8A0AD807E421A28E83A3888ACAFBE1
7BA36BD6BCF7E6CDFEB5D73EE7ACF39DB3CF07C0080C9648335135800CA9421E
11E083C7C4C6E1E42E40810A2470001008B3642173FD230100F87E3C3C2B22C0
07BE000178D30B0800C04D9BC0301C87FF0FEA42995C01808401C07491384B08
801400407A8E42A600404601809D98265300A0040060CB6362E300502D006027
7FE6D300809DF8997B01005B94211501A09100201365884400683B00ACCF568A
450058300014664BC43900D82D00304957664800B0B700C0CE100BB200080C00
305188852900047B0060C8232378008499001446F2573CF12BAE10E72A000078
99B23CB9243945815B082D710757572E1E28CE49172B14366102619A402EC279
99193281340FE0F3CC0000A0911511E083F3FD78CE0EAECECE368EB60E5F2DEA
BF06FF226262E3FEE5CFAB70400000E1747ED1FE2C2FB31A803B06806DFEA225
EE04685E0BA075F78B66B20F40B500A0E9DA57F370F87E3C3C45A190B9D9D9E5
E4E4D84AC4425B61CA577DFE67C25FC057FD6CF97E3CFCF7F5E0BEE22481325D
814704F8E0C2CCF44CA51CCF92098462DCE68F47FCB70BFFFC1DD322C44962B9
582A14E35112718E449A8CF332A52289429229C525D2FF64E2DF2CFB033EDF35
00B06A3E017B912DA85D6303F64B27105874C0E2F70000F2BB6FC1D428080380
6883E1CF77FFEF3FFD47A02500806649927100005E44242E54CAB33FC7080000
44A0812AB0411BF4C1182CC0061CC105DCC10BFC6036844224C4C24210420A64
801C726029AC82422886CDB01D2A602FD4401D34C051688693700E2EC255B80E
3D700FFA61089EC128BC81090441C808136121DA8801628A58238E08179985F8
21C14804128B2420C9881451224B91354831528A542055481DF23D720239875C
46BA913BC8003282FC86BC47319481B2513DD40CB543B9A8371A8446A20BD064
74319A8F16A09BD072B41A3D8C36A1E7D0AB680FDA8F3E43C730C0E8180733C4
6C302EC6C342B1382C099363CBB122AC0CABC61AB056AC03BB89F563CFB17704
128145C0093604774220611E4148584C584ED848A8201C243411DA0937090384
51C2272293A84BB426BA11F9C4186232318758482C23D6128F132F107B8843C4
37241289433227B9900249B1A454D212D246D26E5223E92CA99B34481A2393C9
DA646BB20739942C202BC885E49DE4C3E433E41BE421F25B0A9D624071A4F853
E22852CA6A4A19E510E534E5066598324155A39A52DDA8A15411358F5A42ADA1
B652AF5187A81334759A39CD8316494BA5ADA295D31A681768F769AFE874BA11
DD951E4E97D057D2CBE947E897E803F4770C0D861583C7886728199B18071867
197718AF984CA619D38B19C754303731EB98E7990F996F55582AB62A7C1591CA
0A954A9526951B2A2F54A9AAA6AADEAA0B55F355CB548FA95E537DAE46553353
E3A909D496AB55AA9D50EB531B5367A93BA887AA67A86F543FA47E59FD890659
C34CC34F43A451A0B15FE3BCC6200B6319B3782C216B0DAB86758135C426B1CD
D97C762ABB98FD1DBB8B3DAAA9A13943334A3357B352F394663F07E39871F89C
744E09E728A797F37E8ADE14EF29E2291BA6344CB931655C6BAA96979658AB48
AB51AB47EBBD36AEEDA79DA6BD45BB59FB810E41C74A275C2747678FCE059DE7
53D953DDA70AA7164D3D3AF5AE2EAA6BA51BA1BB4477BF6EA7EE989EBE5E809E
4C6FA7DE79BDE7FA1C7D2FFD54FD6DFAA7F5470C5806B30C2406DB0CCE183CC5
35716F3C1D2FC7DBF151435DC34043A561956197E18491B9D13CA3D5468D460F
8C69C65CE324E36DC66DC6A326062621264B4DEA4DEE9A524DB9A629A63B4C3B
4CC7CDCCCDA2CDD699359B3D31D732E79BE79BD79BDFB7605A785A2CB6A8B6B8
6549B2E45AA659EEB6BC6E855A3959A558555A5DB346AD9DAD25D6BBADBBA711
A7B94E934EAB9ED667C3B0F1B6C9B6A9B719B0E5D806DBAEB66DB67D61676217
67B7C5AEC3EE93BD937DBA7D8DFD3D070D87D90EAB1D5A1D7E73B472143A563A
DE9ACE9CEE3F7DC5F496E92F6758CF10CFD833E3B613CB29C4699D539BD34767
1767B97383F3888B894B82CB2E973E2E9B1BC6DDC8BDE44A74F5715DE17AD2F5
9D9BB39BC2EDA8DBAFEE36EE69EE87DC9FCC349F299E593373D0C3C843E051E5
D13F0B9F95306BDFAC7E4F434F8167B5E7232F632F9157ADD7B0B7A577AAF761
EF173EF63E729FE33EE33C37DE32DE595FCC37C0B7C8B7CB4FC36F9E5F85DF43
7F23FF64FF7AFFD100A78025016703898141815B02FBF87A7C21BF8E3F3ADB65
F6B2D9ED418CA0B94115418F82AD82E5C1AD2168C8EC90AD21F7E798CE91CE69
0E85507EE8D6D00761E6618BC37E0C2785878557863F8E7088581AD131973577
D1DC4373DF44FA449644DE9B67314F39AF2D4A352A3EAA2E6A3CDA37BA34BA3F
C62E6659CCD5589D58496C4B1C392E2AAE366E6CBEDFFCEDF387E29DE20BE37B
17982FC85D7079A1CEC2F485A716A92E122C3A96404C884E3894F041102AA816
8C25F21377258E0A79C21DC267222FD136D188D8435C2A1E4EF2482A4D7A92EC
91BC357924C533A52CE5B98427A990BC4C0D4CDD9B3A9E169A76206D323D3ABD
31839291907142AA214D93B667EA67E66676CBAC6585B2FEC56E8BB72F1E9507
C96BB390AC05592D0AB642A6E8545A28D72A07B267655766BFCD89CA3996AB9E
2BCDEDCCB3CADB90379CEF9FFFED12C212E192B6A5864B572D1D58E6BDAC6A39
B23C7179DB0AE315052B865606AC3CB88AB62A6DD54FABED5797AE7EBD267A4D
6B815EC1CA82C1B5016BEB0B550AE5857DEBDCD7ED5D4F582F59DFB561FA869D
1B3E15898AAE14DB1797157FD828DC78E51B876FCABF99DC94B4A9ABC4B964CF
66D266E9E6DE2D9E5B0E96AA97E6970E6E0DD9DAB40DDF56B4EDF5F645DB2F97
CD28DBBB83B643B9A3BF3CB8BC65A7C9CECD3B3F54A454F454FA5436EED2DDB5
61D7F86ED1EE1B7BBCF634ECD5DB5BBCF7FD3EC9BEDB5501554DD566D565FB49
FBB3F73FAE89AAE9F896FB6D5DAD4E6D71EDC703D203FD07230EB6D7B9D4D51D
D23D54528FD62BEB470EC71FBEFE9DEF772D0D360D558D9CC6E223704479E4E9
F709DFF71E0D3ADA768C7BACE107D31F761D671D2F6A429AF29A469B539AFB5B
625BBA4FCC3ED1D6EADE7AFC47DB1F0F9C343C59794AF354C969DAE982D39367
F2CF8C9D959D7D7E2EF9DC60DBA2B67BE763CEDF6A0F6FEFBA1074E1D245FF8B
E73BBC3BCE5CF2B874F2B2DBE51357B8579AAF3A5F6DEA74EA3CFE93D34FC7BB
9CBB9AAEB95C6BB9EE7ABDB57B66F7E91B9E37CEDDF4BD79F116FFD6D59E393D
DDBDF37A6FF7C5F7F5DF16DD7E7227FDCECBBBD97727EEADBC4FBC5FF440ED41
D943DD87D53F5BFEDCD8EFDC7F6AC077A0F3D1DC47F7068583CFFE91F58F0F43
058F998FCB860D86EB9E383E3939E23F72FDE9FCA743CF64CF269E17FEA2FECB
AE17162F7EF8D5EBD7CED198D1A197F29793BF6D7CA5FDEAC0EB19AFDBC6C2C6
1EBEC97833315EF456FBEDC177DC771DEFA3DF0F4FE47C207F28FF68F9B1F553
D0A7FB93199393FF040398F3FC63332DDB000000434944415478DA63FCFFFF3F
03258011D900464646ACA601D530126D00BA6298A1B80C21CA0090183639925C
80CB3B040DC0E69A510306BD010C04005E03C801036F00008D248BE16F9028BA
0000000049454E44AE426082}
Name = 'PngImage0'
Background = clWindow
end>
Left = 184
Top = 304
Bitmap = {}
end end
end end

68
Source/Modulos/Contactos/Views/uViewContactos.pas
View File

@ -13,8 +13,14 @@ uses
dxPrnPg, dxBkgnd, dxWrap, dxPrnDev, dxPSCompsProvider, dxPSFillPatterns, dxPrnPg, dxBkgnd, dxWrap, dxPrnDev, dxPSCompsProvider, dxPSFillPatterns,
dxPSEdgePatterns, cxIntlPrintSys3, dxPSCore, dxPScxCommon, dxPSEdgePatterns, cxIntlPrintSys3, dxPSCore, dxPScxCommon,
uDataModuleClientes, cxGridCustomPopupMenu, cxGridPopupMenu, uViewFiltroBase, uDataModuleClientes, cxGridCustomPopupMenu, cxGridPopupMenu, uViewFiltroBase,
ComCtrls, TB2Item, TBX, TB2Toolbar, TBXDkPanels, TB2Dock, dxPgsDlg, ComCtrls, TB2Item, TBX, TB2Toolbar, dxSkinsCore, dxSkinBlack, dxSkinBlue,
uDAInterfaces, dxPScxGrid6Lnk; dxSkinCaramel, dxSkinCoffee, dxSkinGlassOceans, dxSkiniMaginary, dxSkinLilian,
dxSkinLiquidSky, dxSkinLondonLiquidSky, dxSkinMcSkin, dxSkinMoneyTwins,
dxSkinOffice2007Black, dxSkinOffice2007Blue, dxSkinOffice2007Green,
dxSkinOffice2007Pink, dxSkinOffice2007Silver, dxSkinSilver, dxSkinStardust,
dxSkinsDefaultPainters, dxSkinValentine, dxSkinXmas2008Blue,
dxSkinscxPCPainter, dxPgsDlg, dxPScxGrid6Lnk, uDAInterfaces, TBXDkPanels,
TB2Dock;
type type
IViewContactos = interface(IViewGrid) IViewContactos = interface(IViewGrid)
@ -25,7 +31,6 @@ type
end; end;
TfrViewContactos = class(TfrViewGrid, IViewContactos) TfrViewContactos = class(TfrViewGrid, IViewContactos)
PngImageList: TPngImageList;
cxGridViewICONO: TcxGridDBColumn; cxGridViewICONO: TcxGridDBColumn;
cxGridViewNIF_CIF: TcxGridDBColumn; cxGridViewNIF_CIF: TcxGridDBColumn;
cxGridViewNOMBRE: TcxGridDBColumn; cxGridViewNOMBRE: TcxGridDBColumn;
@ -41,9 +46,13 @@ type
cxGridViewEMAIL_2: TcxGridDBColumn; cxGridViewEMAIL_2: TcxGridDBColumn;
cxGridViewPAGINA_WEB: TcxGridDBColumn; cxGridViewPAGINA_WEB: TcxGridDBColumn;
cxGridViewREFERENCIA: TcxGridDBColumn; cxGridViewREFERENCIA: TcxGridDBColumn;
procedure cxGridViewCODIGOCustomDrawCell( GridImageList: TPngImageList;
Sender: TcxCustomGridTableView; ACanvas: TcxCanvas; procedure cxGridViewICONOCustomDrawHeader(Sender: TcxGridTableView;
AViewInfo: TcxGridTableDataCellViewInfo; var ADone: Boolean); ACanvas: TcxCanvas; AViewInfo: TcxGridColumnHeaderViewInfo;
var ADone: Boolean);
procedure cxGridViewICONOCustomDrawCell(Sender: TcxCustomGridTableView;
ACanvas: TcxCanvas; AViewInfo: TcxGridTableDataCellViewInfo;
var ADone: Boolean);
protected protected
FContactos: IBizContacto; FContactos: IBizContacto;
function GetContactos: IBizContacto; virtual; function GetContactos: IBizContacto; virtual;
@ -61,6 +70,40 @@ implementation
{ {
******************************* TfrViewContactos ******************************* ******************************* TfrViewContactos *******************************
} }
procedure TfrViewContactos.cxGridViewICONOCustomDrawCell(
Sender: TcxCustomGridTableView; ACanvas: TcxCanvas;
AViewInfo: TcxGridTableDataCellViewInfo; var ADone: Boolean);
var
R : TRect;
begin
inherited;
R := AViewInfo.ContentBounds;
ACanvas.FillRect(R);
ACanvas.DrawImage(GridImageList, R.Left + 2, R.Top + 2, 1);
ADone := True;
end;
procedure TfrViewContactos.cxGridViewICONOCustomDrawHeader(
Sender: TcxGridTableView; ACanvas: TcxCanvas;
AViewInfo: TcxGridColumnHeaderViewInfo; var ADone: Boolean);
var
R : TRect;
begin
inherited;
with AViewInfo do
begin
LookAndFeelPainter.DrawHeader(ACanvas, Bounds, TextAreaBounds, Neighbors,
Borders, ButtonState, AlignmentHorz, AlignmentVert, MultiLine,
False, '', Params.Font, Params.TextColor, Params.Color);
R := AViewInfo.ContentBounds;
ACanvas.FillRect(R);
ACanvas.DrawImage(GridImageList, R.Left + 2, R.Top + 2, 0);
end;
ADone := True;
end;
function TfrViewContactos.GetContactos: IBizContacto; function TfrViewContactos.GetContactos: IBizContacto;
begin begin
Result := FContactos; Result := FContactos;
@ -74,17 +117,4 @@ begin
end; end;
procedure TfrViewContactos.cxGridViewCODIGOCustomDrawCell(
Sender: TcxCustomGridTableView; ACanvas: TcxCanvas;
AViewInfo: TcxGridTableDataCellViewInfo; var ADone: Boolean);
var
R : TRect;
begin
inherited;
R := AViewInfo.ContentBounds;
ACanvas.FillRect(R);
ACanvas.DrawImage(PngImageList, R.Left + 2, R.Top + 2, 0);
ADone := True;
end;
end. end.

124
Source/Modulos/Contactos/Views/uViewEmpleados.dfm
View File

@ -9,11 +9,7 @@ inherited frViewEmpleados: TfrViewEmpleados
Column = cxGridViewNIF_CIF Column = cxGridViewNIF_CIF
end> end>
inherited cxGridViewICONO: TcxGridDBColumn inherited cxGridViewICONO: TcxGridDBColumn
BestFitMaxWidth = 22
MinWidth = 22
Options.HorzSizing = False
VisibleForCustomization = False VisibleForCustomization = False
Width = 22
end end
inherited cxGridViewNIF_CIF: TcxGridDBColumn inherited cxGridViewNIF_CIF: TcxGridDBColumn
Caption = 'DNI' Caption = 'DNI'
@ -32,12 +28,26 @@ inherited frViewEmpleados: TfrViewEmpleados
inherited frViewFiltroBase1: TfrViewFiltroBase inherited frViewFiltroBase1: TfrViewFiltroBase
inherited TBXDockablePanel1: TTBXDockablePanel inherited TBXDockablePanel1: TTBXDockablePanel
inherited dxLayoutControl1: TdxLayoutControl inherited dxLayoutControl1: TdxLayoutControl
inherited txtFiltroTodo: TcxTextEdit
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
end
inherited edtFechaIniFiltro: TcxDateEdit inherited edtFechaIniFiltro: TcxDateEdit
ExplicitWidth = 239 Style.LookAndFeel.SkinName = ''
Width = 239 StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitWidth = 238
Width = 238
end end
inherited edtFechaFinFiltro: TcxDateEdit inherited edtFechaFinFiltro: TcxDateEdit
Left = 342 Left = 342
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitLeft = 342 ExplicitLeft = 342
ExplicitWidth = 205 ExplicitWidth = 205
Width = 205 Width = 205
@ -45,6 +55,9 @@ inherited frViewEmpleados: TfrViewEmpleados
end end
end end
end end
inherited pnlAgrupaciones: TTBXDockablePanel
ExplicitWidth = 128
end
inherited dxComponentPrinter: TdxComponentPrinter inherited dxComponentPrinter: TdxComponentPrinter
inherited dxComponentPrinterLink: TdxGridReportLink inherited dxComponentPrinterLink: TdxGridReportLink
ReportDocument.CreationDate = 39211.791248726860000000 ReportDocument.CreationDate = 39211.791248726860000000
@ -56,8 +69,101 @@ inherited frViewEmpleados: TfrViewEmpleados
BuiltInStyle = True BuiltInStyle = True
end end
end end
inherited PngImageList: TPngImageList inherited GridImageList: TPngImageList
PngImages = < PngImages = <
item
PngImage.Data = {
89504E470D0A1A0A0000000D49484452000000100000001008060000001FF3FF
61000000097048597300000B1300000B1301009A9C1800000A4F694343505068
6F746F73686F70204943432070726F66696C65000078DA9D53675453E9163DF7
DEF4424B8880944B6F5215082052428B801491262A2109104A8821A1D91551C1
114545041BC8A088038E8E808C15512C0C8A0AD807E421A28E83A3888ACAFBE1
7BA36BD6BCF7E6CDFEB5D73EE7ACF39DB3CF07C0080C9648335135800CA9421E
11E083C7C4C6E1E42E40810A2470001008B3642173FD230100F87E3C3C2B22C0
07BE000178D30B0800C04D9BC0301C87FF0FEA42995C01808401C07491384B08
801400407A8E42A600404601809D98265300A0040060CB6362E300502D006027
7FE6D300809DF8997B01005B94211501A09100201365884400683B00ACCF568A
450058300014664BC43900D82D00304957664800B0B700C0CE100BB200080C00
305188852900047B0060C8232378008499001446F2573CF12BAE10E72A000078
99B23CB9243945815B082D710757572E1E28CE49172B14366102619A402EC279
99193281340FE0F3CC0000A0911511E083F3FD78CE0EAECECE368EB60E5F2DEA
BF06FF226262E3FEE5CFAB70400000E1747ED1FE2C2FB31A803B06806DFEA225
EE04685E0BA075F78B66B20F40B500A0E9DA57F370F87E3C3C45A190B9D9D9E5
E4E4D84AC4425B61CA577DFE67C25FC057FD6CF97E3CFCF7F5E0BEE22481325D
814704F8E0C2CCF44CA51CCF92098462DCE68F47FCB70BFFFC1DD322C44962B9
582A14E35112718E449A8CF332A52289429229C525D2FF64E2DF2CFB033EDF35
00B06A3E017B912DA85D6303F64B27105874C0E2F70000F2BB6FC1D428080380
6883E1CF77FFEF3FFD47A02500806649927100005E44242E54CAB33FC7080000
44A0812AB0411BF4C1182CC0061CC105DCC10BFC6036844224C4C24210420A64
801C726029AC82422886CDB01D2A602FD4401D34C051688693700E2EC255B80E
3D700FFA61089EC128BC81090441C808136121DA8801628A58238E08179985F8
21C14804128B2420C9881451224B91354831528A542055481DF23D720239875C
46BA913BC8003282FC86BC47319481B2513DD40CB543B9A8371A8446A20BD064
74319A8F16A09BD072B41A3D8C36A1E7D0AB680FDA8F3E43C730C0E8180733C4
6C302EC6C342B1382C099363CBB122AC0CABC61AB056AC03BB89F563CFB17704
128145C0093604774220611E4148584C584ED848A8201C243411DA0937090384
51C2272293A84BB426BA11F9C4186232318758482C23D6128F132F107B8843C4
37241289433227B9900249B1A454D212D246D26E5223E92CA99B34481A2393C9
DA646BB20739942C202BC885E49DE4C3E433E41BE421F25B0A9D624071A4F853
E22852CA6A4A19E510E534E5066598324155A39A52DDA8A15411358F5A42ADA1
B652AF5187A81334759A39CD8316494BA5ADA295D31A681768F769AFE874BA11
DD951E4E97D057D2CBE947E897E803F4770C0D861583C7886728199B18071867
197718AF984CA619D38B19C754303731EB98E7990F996F55582AB62A7C1591CA
0A954A9526951B2A2F54A9AAA6AADEAA0B55F355CB548FA95E537DAE46553353
E3A909D496AB55AA9D50EB531B5367A93BA887AA67A86F543FA47E59FD890659
C34CC34F43A451A0B15FE3BCC6200B6319B3782C216B0DAB86758135C426B1CD
D97C762ABB98FD1DBB8B3DAAA9A13943334A3357B352F394663F07E39871F89C
744E09E728A797F37E8ADE14EF29E2291BA6344CB931655C6BAA96979658AB48
AB51AB47EBBD36AEEDA79DA6BD45BB59FB810E41C74A275C2747678FCE059DE7
53D953DDA70AA7164D3D3AF5AE2EAA6BA51BA1BB4477BF6EA7EE989EBE5E809E
4C6FA7DE79BDE7FA1C7D2FFD54FD6DFAA7F5470C5806B30C2406DB0CCE183CC5
35716F3C1D2FC7DBF151435DC34043A561956197E18491B9D13CA3D5468D460F
8C69C65CE324E36DC66DC6A326062621264B4DEA4DEE9A524DB9A629A63B4C3B
4CC7CDCCCDA2CDD699359B3D31D732E79BE79BD79BDFB7605A785A2CB6A8B6B8
6549B2E45AA659EEB6BC6E855A3959A558555A5DB346AD9DAD25D6BBADBBA711
A7B94E934EAB9ED667C3B0F1B6C9B6A9B719B0E5D806DBAEB66DB67D61676217
67B7C5AEC3EE93BD937DBA7D8DFD3D070D87D90EAB1D5A1D7E73B472143A563A
DE9ACE9CEE3F7DC5F496E92F6758CF10CFD833E3B613CB29C4699D539BD34767
1767B97383F3888B894B82CB2E973E2E9B1BC6DDC8BDE44A74F5715DE17AD2F5
9D9BB39BC2EDA8DBAFEE36EE69EE87DC9FCC349F299E593373D0C3C843E051E5
D13F0B9F95306BDFAC7E4F434F8167B5E7232F632F9157ADD7B0B7A577AAF761
EF173EF63E729FE33EE33C37DE32DE595FCC37C0B7C8B7CB4FC36F9E5F85DF43
7F23FF64FF7AFFD100A78025016703898141815B02FBF87A7C21BF8E3F3ADB65
F6B2D9ED418CA0B94115418F82AD82E5C1AD2168C8EC90AD21F7E798CE91CE69
0E85507EE8D6D00761E6618BC37E0C2785878557863F8E7088581AD131973577
D1DC4373DF44FA449644DE9B67314F39AF2D4A352A3EAA2E6A3CDA37BA34BA3F
C62E6659CCD5589D58496C4B1C392E2AAE366E6CBEDFFCEDF387E29DE20BE37B
17982FC85D7079A1CEC2F485A716A92E122C3A96404C884E3894F041102AA816
8C25F21377258E0A79C21DC267222FD136D188D8435C2A1E4EF2482A4D7A92EC
91BC357924C533A52CE5B98427A990BC4C0D4CDD9B3A9E169A76206D323D3ABD
31839291907142AA214D93B667EA67E66676CBAC6585B2FEC56E8BB72F1E9507
C96BB390AC05592D0AB642A6E8545A28D72A07B267655766BFCD89CA3996AB9E
2BCDEDCCB3CADB90379CEF9FFFED12C212E192B6A5864B572D1D58E6BDAC6A39
B23C7179DB0AE315052B865606AC3CB88AB62A6DD54FABED5797AE7EBD267A4D
6B815EC1CA82C1B5016BEB0B550AE5857DEBDCD7ED5D4F582F59DFB561FA869D
1B3E15898AAE14DB1797157FD828DC78E51B876FCABF99DC94B4A9ABC4B964CF
66D266E9E6DE2D9E5B0E96AA97E6970E6E0DD9DAB40DDF56B4EDF5F645DB2F97
CD28DBBB83B643B9A3BF3CB8BC65A7C9CECD3B3F54A454F454FA5436EED2DDB5
61D7F86ED1EE1B7BBCF634ECD5DB5BBCF7FD3EC9BEDB5501554DD566D565FB49
FBB3F73FAE89AAE9F896FB6D5DAD4E6D71EDC703D203FD07230EB6D7B9D4D51D
D23D54528FD62BEB470EC71FBEFE9DEF772D0D360D558D9CC6E223704479E4E9
F709DFF71E0D3ADA768C7BACE107D31F761D671D2F6A429AF29A469B539AFB5B
625BBA4FCC3ED1D6EADE7AFC47DB1F0F9C343C59794AF354C969DAE982D39367
F2CF8C9D959D7D7E2EF9DC60DBA2B67BE763CEDF6A0F6FEFBA1074E1D245FF8B
E73BBC3BCE5CF2B874F2B2DBE51357B8579AAF3A5F6DEA74EA3CFE93D34FC7BB
9CBB9AAEB95C6BB9EE7ABDB57B66F7E91B9E37CEDDF4BD79F116FFD6D59E393D
DDBDF37A6FF7C5F7F5DF16DD7E7227FDCECBBBD97727EEADBC4FBC5FF440ED41
D943DD87D53F5BFEDCD8EFDC7F6AC077A0F3D1DC47F7068583CFFE91F58F0F43
058F998FCB860D86EB9E383E3939E23F72FDE9FCA743CF64CF269E17FEA2FECB
AE17162F7EF8D5EBD7CED198D1A197F29793BF6D7CA5FDEAC0EB19AFDBC6C2C6
1EBEC97833315EF456FBEDC177DC771DEFA3DF0F4FE47C207F28FF68F9B1F553
D0A7FB93199393FF040398F3FC63332DDB000000434944415478DA63FCFFFF3F
03258011D900464646ACA601D530126D00BA6298A1B80C21CA0090183639925C
80CB3B040DC0E69A510306BD010C04005E03C801036F00008D248BE16F9028BA
0000000049454E44AE426082}
Name = 'PngImage0'
Background = clWindow
end
item item
PngImage.Data = { PngImage.Data = {
89504E470D0A1A0A0000000D49484452000000100000001008060000001FF3FF 89504E470D0A1A0A0000000D49484452000000100000001008060000001FF3FF
@ -85,11 +191,9 @@ inherited frViewEmpleados: TfrViewEmpleados
9909ACCC0D379189D8CF2D53309BCD658273AF1BAD705582466F4064492329AC 9909ACCC0D379189D8CF2D53309BCD658273AF1BAD705582466F4064492329AC
20F15C0E2882449716226A5930AD66ADE71FDF3497F05E932988000000004945 20F15C0E2882449716226A5930AD66ADE71FDF3497F05E932988000000004945
4E44AE426082} 4E44AE426082}
Name = 'PngImage0' Name = 'PngImage1'
Background = clWindow Background = clWindow
end> end>
Left = 296
Top = 168
Bitmap = {} Bitmap = {}
end end
end end

8
Source/Modulos/Contactos/Views/uViewEmpleados.pas
View File

@ -11,7 +11,13 @@ uses
cxGridPopupMenu, dxPSCore, dxPScxCommon, dxPScxGrid6Lnk, uDADataTable, cxGridPopupMenu, dxPSCore, dxPScxCommon, dxPScxGrid6Lnk, uDADataTable,
cxGridLevel, cxGridCustomTableView, cxGridTableView, cxGridDBTableView, cxGridLevel, cxGridCustomTableView, cxGridTableView, cxGridDBTableView,
cxClasses, cxControls, cxGridCustomView, cxGrid, dxPgsDlg, ActnList, TB2Item, cxClasses, cxControls, cxGridCustomView, cxGrid, dxPgsDlg, ActnList, TB2Item,
TBX, TB2Toolbar, TBXDkPanels, TB2Dock, uViewFiltroBase, uDAInterfaces; TBX, TB2Toolbar, TBXDkPanels, TB2Dock, uViewFiltroBase, uDAInterfaces,
dxSkinsCore, dxSkinBlack, dxSkinBlue, dxSkinCaramel, dxSkinCoffee,
dxSkinGlassOceans, dxSkiniMaginary, dxSkinLilian, dxSkinLiquidSky,
dxSkinLondonLiquidSky, dxSkinMcSkin, dxSkinMoneyTwins, dxSkinOffice2007Black,
dxSkinOffice2007Blue, dxSkinOffice2007Green, dxSkinOffice2007Pink,
dxSkinOffice2007Silver, dxSkinSilver, dxSkinStardust, dxSkinsDefaultPainters,
dxSkinValentine, dxSkinXmas2008Blue, dxSkinscxPCPainter, Menus;
type type
IViewEmpleados = interface(IViewContactos) IViewEmpleados = interface(IViewContactos)

151
Source/Modulos/Contactos/Views/uViewProveedores.dfm
View File

@ -18,17 +18,11 @@ inherited frViewProveedores: TfrViewProveedores
end> end>
inherited cxGridViewICONO: TcxGridDBColumn inherited cxGridViewICONO: TcxGridDBColumn
OnGetCellHint = cxGridViewICONOGetCellHint OnGetCellHint = cxGridViewICONOGetCellHint
BestFitMaxWidth = 22
MinWidth = 22
Options.HorzSizing = False
VisibleForCustomization = False
Width = 22
end end
object cxGridViewTIENDA_WEB: TcxGridDBColumn [1] object cxGridViewTIENDA_WEB: TcxGridDBColumn [1]
Caption = 'Incluido en tienda web' Caption = 'Incluido en tienda web'
DataBinding.FieldName = 'TIENDA_WEB' DataBinding.FieldName = 'TIENDA_WEB'
PropertiesClassName = 'TcxImageComboBoxProperties' PropertiesClassName = 'TcxImageComboBoxProperties'
Properties.Images = PngImageList
Properties.Items = < Properties.Items = <
item item
Value = 0 Value = 0
@ -62,14 +56,30 @@ inherited frViewProveedores: TfrViewProveedores
Width = 483 Width = 483
ExplicitWidth = 483 ExplicitWidth = 483
inherited txtFiltroTodo: TcxTextEdit inherited txtFiltroTodo: TcxTextEdit
ExplicitWidth = 273 Style.LookAndFeel.SkinName = ''
Width = 273 StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitWidth = 386
Width = 386
end
inherited edtFechaIniFiltro: TcxDateEdit
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitWidth = 125
Width = 125
end end
inherited edtFechaFinFiltro: TcxDateEdit inherited edtFechaFinFiltro: TcxDateEdit
Left = 234 Left = 229
ExplicitLeft = 234 Style.LookAndFeel.SkinName = ''
ExplicitWidth = 228 StyleDisabled.LookAndFeel.SkinName = ''
Width = 228 StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitLeft = 229
ExplicitWidth = 244
Width = 244
end end
end end
inherited TBXAlignmentPanel1: TTBXAlignmentPanel inherited TBXAlignmentPanel1: TTBXAlignmentPanel
@ -106,8 +116,101 @@ inherited frViewProveedores: TfrViewProveedores
BuiltInStyle = True BuiltInStyle = True
end end
end end
inherited PngImageList: TPngImageList inherited GridImageList: TPngImageList
PngImages = < PngImages = <
item
PngImage.Data = {
89504E470D0A1A0A0000000D49484452000000100000001008060000001FF3FF
61000000097048597300000B1300000B1301009A9C1800000A4F694343505068
6F746F73686F70204943432070726F66696C65000078DA9D53675453E9163DF7
DEF4424B8880944B6F5215082052428B801491262A2109104A8821A1D91551C1
114545041BC8A088038E8E808C15512C0C8A0AD807E421A28E83A3888ACAFBE1
7BA36BD6BCF7E6CDFEB5D73EE7ACF39DB3CF07C0080C9648335135800CA9421E
11E083C7C4C6E1E42E40810A2470001008B3642173FD230100F87E3C3C2B22C0
07BE000178D30B0800C04D9BC0301C87FF0FEA42995C01808401C07491384B08
801400407A8E42A600404601809D98265300A0040060CB6362E300502D006027
7FE6D300809DF8997B01005B94211501A09100201365884400683B00ACCF568A
450058300014664BC43900D82D00304957664800B0B700C0CE100BB200080C00
305188852900047B0060C8232378008499001446F2573CF12BAE10E72A000078
99B23CB9243945815B082D710757572E1E28CE49172B14366102619A402EC279
99193281340FE0F3CC0000A0911511E083F3FD78CE0EAECECE368EB60E5F2DEA
BF06FF226262E3FEE5CFAB70400000E1747ED1FE2C2FB31A803B06806DFEA225
EE04685E0BA075F78B66B20F40B500A0E9DA57F370F87E3C3C45A190B9D9D9E5
E4E4D84AC4425B61CA577DFE67C25FC057FD6CF97E3CFCF7F5E0BEE22481325D
814704F8E0C2CCF44CA51CCF92098462DCE68F47FCB70BFFFC1DD322C44962B9
582A14E35112718E449A8CF332A52289429229C525D2FF64E2DF2CFB033EDF35
00B06A3E017B912DA85D6303F64B27105874C0E2F70000F2BB6FC1D428080380
6883E1CF77FFEF3FFD47A02500806649927100005E44242E54CAB33FC7080000
44A0812AB0411BF4C1182CC0061CC105DCC10BFC6036844224C4C24210420A64
801C726029AC82422886CDB01D2A602FD4401D34C051688693700E2EC255B80E
3D700FFA61089EC128BC81090441C808136121DA8801628A58238E08179985F8
21C14804128B2420C9881451224B91354831528A542055481DF23D720239875C
46BA913BC8003282FC86BC47319481B2513DD40CB543B9A8371A8446A20BD064
74319A8F16A09BD072B41A3D8C36A1E7D0AB680FDA8F3E43C730C0E8180733C4
6C302EC6C342B1382C099363CBB122AC0CABC61AB056AC03BB89F563CFB17704
128145C0093604774220611E4148584C584ED848A8201C243411DA0937090384
51C2272293A84BB426BA11F9C4186232318758482C23D6128F132F107B8843C4
37241289433227B9900249B1A454D212D246D26E5223E92CA99B34481A2393C9
DA646BB20739942C202BC885E49DE4C3E433E41BE421F25B0A9D624071A4F853
E22852CA6A4A19E510E534E5066598324155A39A52DDA8A15411358F5A42ADA1
B652AF5187A81334759A39CD8316494BA5ADA295D31A681768F769AFE874BA11
DD951E4E97D057D2CBE947E897E803F4770C0D861583C7886728199B18071867
197718AF984CA619D38B19C754303731EB98E7990F996F55582AB62A7C1591CA
0A954A9526951B2A2F54A9AAA6AADEAA0B55F355CB548FA95E537DAE46553353
E3A909D496AB55AA9D50EB531B5367A93BA887AA67A86F543FA47E59FD890659
C34CC34F43A451A0B15FE3BCC6200B6319B3782C216B0DAB86758135C426B1CD
D97C762ABB98FD1DBB8B3DAAA9A13943334A3357B352F394663F07E39871F89C
744E09E728A797F37E8ADE14EF29E2291BA6344CB931655C6BAA96979658AB48
AB51AB47EBBD36AEEDA79DA6BD45BB59FB810E41C74A275C2747678FCE059DE7
53D953DDA70AA7164D3D3AF5AE2EAA6BA51BA1BB4477BF6EA7EE989EBE5E809E
4C6FA7DE79BDE7FA1C7D2FFD54FD6DFAA7F5470C5806B30C2406DB0CCE183CC5
35716F3C1D2FC7DBF151435DC34043A561956197E18491B9D13CA3D5468D460F
8C69C65CE324E36DC66DC6A326062621264B4DEA4DEE9A524DB9A629A63B4C3B
4CC7CDCCCDA2CDD699359B3D31D732E79BE79BD79BDFB7605A785A2CB6A8B6B8
6549B2E45AA659EEB6BC6E855A3959A558555A5DB346AD9DAD25D6BBADBBA711
A7B94E934EAB9ED667C3B0F1B6C9B6A9B719B0E5D806DBAEB66DB67D61676217
67B7C5AEC3EE93BD937DBA7D8DFD3D070D87D90EAB1D5A1D7E73B472143A563A
DE9ACE9CEE3F7DC5F496E92F6758CF10CFD833E3B613CB29C4699D539BD34767
1767B97383F3888B894B82CB2E973E2E9B1BC6DDC8BDE44A74F5715DE17AD2F5
9D9BB39BC2EDA8DBAFEE36EE69EE87DC9FCC349F299E593373D0C3C843E051E5
D13F0B9F95306BDFAC7E4F434F8167B5E7232F632F9157ADD7B0B7A577AAF761
EF173EF63E729FE33EE33C37DE32DE595FCC37C0B7C8B7CB4FC36F9E5F85DF43
7F23FF64FF7AFFD100A78025016703898141815B02FBF87A7C21BF8E3F3ADB65
F6B2D9ED418CA0B94115418F82AD82E5C1AD2168C8EC90AD21F7E798CE91CE69
0E85507EE8D6D00761E6618BC37E0C2785878557863F8E7088581AD131973577
D1DC4373DF44FA449644DE9B67314F39AF2D4A352A3EAA2E6A3CDA37BA34BA3F
C62E6659CCD5589D58496C4B1C392E2AAE366E6CBEDFFCEDF387E29DE20BE37B
17982FC85D7079A1CEC2F485A716A92E122C3A96404C884E3894F041102AA816
8C25F21377258E0A79C21DC267222FD136D188D8435C2A1E4EF2482A4D7A92EC
91BC357924C533A52CE5B98427A990BC4C0D4CDD9B3A9E169A76206D323D3ABD
31839291907142AA214D93B667EA67E66676CBAC6585B2FEC56E8BB72F1E9507
C96BB390AC05592D0AB642A6E8545A28D72A07B267655766BFCD89CA3996AB9E
2BCDEDCCB3CADB90379CEF9FFFED12C212E192B6A5864B572D1D58E6BDAC6A39
B23C7179DB0AE315052B865606AC3CB88AB62A6DD54FABED5797AE7EBD267A4D
6B815EC1CA82C1B5016BEB0B550AE5857DEBDCD7ED5D4F582F59DFB561FA869D
1B3E15898AAE14DB1797157FD828DC78E51B876FCABF99DC94B4A9ABC4B964CF
66D266E9E6DE2D9E5B0E96AA97E6970E6E0DD9DAB40DDF56B4EDF5F645DB2F97
CD28DBBB83B643B9A3BF3CB8BC65A7C9CECD3B3F54A454F454FA5436EED2DDB5
61D7F86ED1EE1B7BBCF634ECD5DB5BBCF7FD3EC9BEDB5501554DD566D565FB49
FBB3F73FAE89AAE9F896FB6D5DAD4E6D71EDC703D203FD07230EB6D7B9D4D51D
D23D54528FD62BEB470EC71FBEFE9DEF772D0D360D558D9CC6E223704479E4E9
F709DFF71E0D3ADA768C7BACE107D31F761D671D2F6A429AF29A469B539AFB5B
625BBA4FCC3ED1D6EADE7AFC47DB1F0F9C343C59794AF354C969DAE982D39367
F2CF8C9D959D7D7E2EF9DC60DBA2B67BE763CEDF6A0F6FEFBA1074E1D245FF8B
E73BBC3BCE5CF2B874F2B2DBE51357B8579AAF3A5F6DEA74EA3CFE93D34FC7BB
9CBB9AAEB95C6BB9EE7ABDB57B66F7E91B9E37CEDDF4BD79F116FFD6D59E393D
DDBDF37A6FF7C5F7F5DF16DD7E7227FDCECBBBD97727EEADBC4FBC5FF440ED41
D943DD87D53F5BFEDCD8EFDC7F6AC077A0F3D1DC47F7068583CFFE91F58F0F43
058F998FCB860D86EB9E383E3939E23F72FDE9FCA743CF64CF269E17FEA2FECB
AE17162F7EF8D5EBD7CED198D1A197F29793BF6D7CA5FDEAC0EB19AFDBC6C2C6
1EBEC97833315EF456FBEDC177DC771DEFA3DF0F4FE47C207F28FF68F9B1F553
D0A7FB93199393FF040398F3FC63332DDB000000434944415478DA63FCFFFF3F
03258011D900464646ACA601D530126D00BA6298A1B80C21CA0090183639925C
80CB3B040DC0E69A510306BD010C04005E03C801036F00008D248BE16F9028BA
0000000049454E44AE426082}
Name = 'PngImage0'
Background = clWindow
end
item item
PngImage.Data = { PngImage.Data = {
89504E470D0A1A0A0000000D49484452000000100000001008060000001FF3FF 89504E470D0A1A0A0000000D49484452000000100000001008060000001FF3FF
@ -220,28 +323,6 @@ inherited frViewProveedores: TfrViewProveedores
Name = 'PngImage1' Name = 'PngImage1'
Background = clWindow Background = clWindow
end end
item
PngImage.Data = {
89504E470D0A1A0A0000000D49484452000000100000001008060000001FF3FF
61000001E34944415478DAA5932D72E43010855F98D934341BC1858261D10D76
8E3047305C1685051A067A59A0E042E70682863D6C608719EE6B399EADDABFAA
AD7595CAB2DCFDF5EB1FDDE13F9FBB9F0FF258225F27AEC415D109B05A35C3CC
EF32E653FD2380CE035F4388720C41609DC2D68ABA28B42688E1820E79CAE7E9
17407316E4788F43E8033CF2F46D42F804E8E29084E0A2ACBE7B90E9798334C0
40D9145AC2BD1E8591A58B5CFE27406D462915EA59AD4A70812CF142FBD3340E
750764113C8648C9A214E20A0C762560A1A925A662A8FDD0D48A06846B782220
6F80E732C7181F14858079CB69895B1D57D6824BBB99FF4A03C9952134BD9597
21ED008BF1F341F52BAA3035098CC23428DB561A70D53EC39888EFB941D4F45E
5EB2DC0021A6035BC56A0F306660BD1B464A3DB5A8B00CED89606A62B201A61D
90CB8C3E3EA03BD2F002BD8EF4550FB441D421532B62658D02CFC4C2DBFC9AD3
0EC86CDBA349DC24B2F7BA8E2D227BCF9CFD3CB573EC69409EE6D731EF804899
EC4F3CB6D631927623FFD48F5AC84741B1B572D58B4FEB5CC67A1BA4739ECE34
18D185435DE756B070B5CDB17305B63BB741A2F38F41BA41BE38C4324D8FE6C6
3E0FBE7CEF15F602716877E7DF5EA6F330B6CBC4F6A55641CAE69EC973245714
97FDD7DBF8AFCF7740E00D20BA266C3A0000000049454E44AE426082}
Name = 'PngImage0'
Background = clWindow
end
item item
PngImage.Data = { PngImage.Data = {
89504E470D0A1A0A0000000D49484452000000100000001008060000001FF3FF 89504E470D0A1A0A0000000D49484452000000100000001008060000001FF3FF

20
Source/Modulos/Contactos/Views/uViewProveedores.pas
View File

@ -12,7 +12,13 @@ uses
cxGridLevel, cxGridCustomTableView, cxGridTableView, cxGridDBTableView, cxGridLevel, cxGridCustomTableView, cxGridTableView, cxGridDBTableView,
cxClasses, cxControls, cxGridCustomView, cxGrid, dxPgsDlg, ActnList, TB2Item, cxClasses, cxControls, cxGridCustomView, cxGrid, dxPgsDlg, ActnList, TB2Item,
TBX, TB2Toolbar, TBXDkPanels, TB2Dock, uViewFiltroBase, cxImageComboBox, TBX, TB2Toolbar, TBXDkPanels, TB2Dock, uViewFiltroBase, cxImageComboBox,
uDAInterfaces; uDAInterfaces, dxSkinsCore, dxSkinBlack, dxSkinBlue, dxSkinCaramel,
dxSkinCoffee, dxSkinGlassOceans, dxSkiniMaginary, dxSkinLilian,
dxSkinLiquidSky, dxSkinLondonLiquidSky, dxSkinMcSkin, dxSkinMoneyTwins,
dxSkinOffice2007Black, dxSkinOffice2007Blue, dxSkinOffice2007Green,
dxSkinOffice2007Pink, dxSkinOffice2007Silver, dxSkinSilver, dxSkinStardust,
dxSkinsDefaultPainters, dxSkinValentine, dxSkinXmas2008Blue,
dxSkinscxPCPainter, Menus;
type type
IViewProveedores = interface(IViewContactos) IViewProveedores = interface(IViewContactos)
@ -22,20 +28,20 @@ type
TfrViewProveedores = class(TfrViewContactos, IViewProveedores) TfrViewProveedores = class(TfrViewContactos, IViewProveedores)
cxGridViewTIENDA_WEB: TcxGridDBColumn; cxGridViewTIENDA_WEB: TcxGridDBColumn;
cxGridViewHOMOLOGADO: TcxGridDBColumn; cxGridViewHOMOLOGADO: TcxGridDBColumn;
procedure cxGridViewCODIGOCustomDrawCell(Sender: TcxCustomGridTableView;
ACanvas: TcxCanvas; AViewInfo: TcxGridTableDataCellViewInfo;
var ADone: Boolean);
procedure cxGridViewICONOGetCellHint(Sender: TcxCustomGridTableItem; procedure cxGridViewICONOGetCellHint(Sender: TcxCustomGridTableItem;
ARecord: TcxCustomGridRecord; ACellViewInfo: TcxGridTableDataCellViewInfo; ARecord: TcxCustomGridRecord; ACellViewInfo: TcxGridTableDataCellViewInfo;
const AMousePos: TPoint; var AHintText: TCaption; const AMousePos: TPoint; var AHintText: TCaption;
var AIsHintMultiLine: Boolean; var AHintTextRect: TRect); var AIsHintMultiLine: Boolean; var AHintTextRect: TRect);
procedure cxGridViewICONOCustomDrawCell(Sender: TcxCustomGridTableView;
ACanvas: TcxCanvas; AViewInfo: TcxGridTableDataCellViewInfo;
var ADone: Boolean);
end; end;
implementation implementation
{$R *.dfm} {$R *.dfm}
procedure TfrViewProveedores.cxGridViewCODIGOCustomDrawCell( procedure TfrViewProveedores.cxGridViewICONOCustomDrawCell(
Sender: TcxCustomGridTableView; ACanvas: TcxCanvas; Sender: TcxCustomGridTableView; ACanvas: TcxCanvas;
AViewInfo: TcxGridTableDataCellViewInfo; var ADone: Boolean); AViewInfo: TcxGridTableDataCellViewInfo; var ADone: Boolean);
var var
@ -46,9 +52,9 @@ begin
ACanvas.FillRect(R); ACanvas.FillRect(R);
if (cxGridView.DataController.DisplayTexts[AViewInfo.GridRecord.RecordIndex, if (cxGridView.DataController.DisplayTexts[AViewInfo.GridRecord.RecordIndex,
cxGridViewHOMOLOGADO.Index] = '1') then cxGridViewHOMOLOGADO.Index] = '1') then
ACanvas.DrawImage(PngImageList, R.Left + 2, R.Top + 2, 2) ACanvas.DrawImage(GridImageList, R.Left + 2, R.Top + 2, 2)
else else
ACanvas.DrawImage(PngImageList, R.Left + 2, R.Top + 2, 0); ACanvas.DrawImage(GridImageList, R.Left + 2, R.Top + 2, 1);
ADone := True; ADone := True;
end; end;