Archivado/Noviseda_FactuGES2
Archived
0
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Repaso por actualización de componentes.

Browse Source 
git-svn-id: https://192.168.0.254/svn/Proyectos.Noviseda_FactuGES2/trunk@48 f33bb606-9f5c-448d-9c99-757f00063c96
This commit is contained in:
David Arranz 2010-01-22 15:02:51 +00:00
parent d8aa5d14b7
commit 6f4279d737
33 changed files with 406 additions and 314 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

102
Source/Base/Base.dproj
View File

@ -45,6 +45,8 @@
<Borland.ProjectType>Package</Borland.ProjectType> <Borland.ProjectType>Package</Borland.ProjectType>
<BorlandProject> <BorlandProject>
<BorlandProject><Delphi.Personality><Parameters><Parameters Name="UseLauncher">False</Parameters><Parameters Name="LoadAllSymbols">True</Parameters><Parameters Name="LoadUnspecifiedSymbols">False</Parameters></Parameters><Package_Options><Package_Options Name="PackageDescription">Libreria base de FactuGES</Package_Options><Package_Options Name="ImplicitBuild">False</Package_Options><Package_Options Name="DesigntimeOnly">False</Package_Options><Package_Options Name="RuntimeOnly">False</Package_Options></Package_Options><VersionInfo><VersionInfo Name="IncludeVerInfo">True</VersionInfo><VersionInfo Name="AutoIncBuild">False</VersionInfo><VersionInfo Name="MajorVer">1</VersionInfo><VersionInfo Name="MinorVer">0</VersionInfo><VersionInfo Name="Release">0</VersionInfo><VersionInfo Name="Build">0</VersionInfo><VersionInfo Name="Debug">False</VersionInfo><VersionInfo Name="PreRelease">False</VersionInfo><VersionInfo Name="Special">False</VersionInfo><VersionInfo Name="Private">False</VersionInfo><VersionInfo Name="DLL">False</VersionInfo><VersionInfo Name="Locale">3082</VersionInfo><VersionInfo Name="CodePage">1252</VersionInfo></VersionInfo><VersionInfoKeys><VersionInfoKeys Name="CompanyName"></VersionInfoKeys><VersionInfoKeys Name="FileDescription"></VersionInfoKeys><VersionInfoKeys Name="FileVersion">1.0.0.0</VersionInfoKeys><VersionInfoKeys Name="InternalName"></VersionInfoKeys><VersionInfoKeys Name="LegalCopyright"></VersionInfoKeys><VersionInfoKeys Name="LegalTrademarks"></VersionInfoKeys><VersionInfoKeys Name="OriginalFilename"></VersionInfoKeys><VersionInfoKeys Name="ProductName"></VersionInfoKeys><VersionInfoKeys Name="ProductVersion">1.0.0.0</VersionInfoKeys></VersionInfoKeys><Excluded_Packages> <BorlandProject><Delphi.Personality><Parameters><Parameters Name="UseLauncher">False</Parameters><Parameters Name="LoadAllSymbols">True</Parameters><Parameters Name="LoadUnspecifiedSymbols">False</Parameters></Parameters><Package_Options><Package_Options Name="PackageDescription">Libreria base de FactuGES</Package_Options><Package_Options Name="ImplicitBuild">False</Package_Options><Package_Options Name="DesigntimeOnly">False</Package_Options><Package_Options Name="RuntimeOnly">False</Package_Options></Package_Options><VersionInfo><VersionInfo Name="IncludeVerInfo">True</VersionInfo><VersionInfo Name="AutoIncBuild">False</VersionInfo><VersionInfo Name="MajorVer">1</VersionInfo><VersionInfo Name="MinorVer">0</VersionInfo><VersionInfo Name="Release">0</VersionInfo><VersionInfo Name="Build">0</VersionInfo><VersionInfo Name="Debug">False</VersionInfo><VersionInfo Name="PreRelease">False</VersionInfo><VersionInfo Name="Special">False</VersionInfo><VersionInfo Name="Private">False</VersionInfo><VersionInfo Name="DLL">False</VersionInfo><VersionInfo Name="Locale">3082</VersionInfo><VersionInfo Name="CodePage">1252</VersionInfo></VersionInfo><VersionInfoKeys><VersionInfoKeys Name="CompanyName"></VersionInfoKeys><VersionInfoKeys Name="FileDescription"></VersionInfoKeys><VersionInfoKeys Name="FileVersion">1.0.0.0</VersionInfoKeys><VersionInfoKeys Name="InternalName"></VersionInfoKeys><VersionInfoKeys Name="LegalCopyright"></VersionInfoKeys><VersionInfoKeys Name="LegalTrademarks"></VersionInfoKeys><VersionInfoKeys Name="OriginalFilename"></VersionInfoKeys><VersionInfoKeys Name="ProductName"></VersionInfoKeys><VersionInfoKeys Name="ProductVersion">1.0.0.0</VersionInfoKeys></VersionInfoKeys><Excluded_Packages>
<Excluded_Packages Name="$(BDS)\bin\dcloffice2k100.bpl">Microsoft Office 2000 Sample Automation Server Wrapper Components</Excluded_Packages> <Excluded_Packages Name="$(BDS)\bin\dcloffice2k100.bpl">Microsoft Office 2000 Sample Automation Server Wrapper Components</Excluded_Packages>
<Excluded_Packages Name="$(BDS)\bin\dclofficexp100.bpl">Microsoft Office XP Sample Automation Server Wrapper Components</Excluded_Packages> <Excluded_Packages Name="$(BDS)\bin\dclofficexp100.bpl">Microsoft Office XP Sample Automation Server Wrapper Components</Excluded_Packages>
</Excluded_Packages><Source><Source Name="MainSource">Base.dpk</Source></Source></Delphi.Personality></BorlandProject></BorlandProject> </Excluded_Packages><Source><Source Name="MainSource">Base.dpk</Source></Source></Delphi.Personality></BorlandProject></BorlandProject>
@ -54,57 +56,57 @@
<DelphiCompile Include="Base.dpk"> <DelphiCompile Include="Base.dpk">
<MainSource>MainSource</MainSource> <MainSource>MainSource</MainSource>
</DelphiCompile> </DelphiCompile>
<DCCReference Include="..\Modulos\Articulos\adortl.dcp" />
<DCCReference Include="..\Modulos\Articulos\cxDataD11.dcp" />
<DCCReference Include="..\Modulos\Articulos\cxEditorsD11.dcp" />
<DCCReference Include="..\Modulos\Articulos\cxExportD11.dcp" />
<DCCReference Include="..\Modulos\Articulos\cxExtEditorsD11.dcp" />
<DCCReference Include="..\Modulos\Articulos\cxGridD11.dcp" />
<DCCReference Include="..\Modulos\Articulos\cxLibraryD11.dcp" />
<DCCReference Include="..\Modulos\Articulos\cxPageControlD11.dcp" />
<DCCReference Include="..\Modulos\Articulos\DataAbstract_Core_D11.dcp" />
<DCCReference Include="..\Modulos\Articulos\dbrtl.dcp" />
<DCCReference Include="..\Modulos\Articulos\dclIndyCore.dcp" />
<DCCReference Include="..\Modulos\Articulos\designide.dcp" />
<DCCReference Include="..\Modulos\Articulos\dsnap.dcp" />
<DCCReference Include="..\Modulos\Articulos\dxCoreD11.dcp" />
<DCCReference Include="..\Modulos\Articulos\dxGDIPlusD11.dcp" />
<DCCReference Include="..\Modulos\Articulos\dxPSCoreD11.dcp" />
<DCCReference Include="..\Modulos\Articulos\dxThemeD11.dcp" />
<DCCReference Include="..\Modulos\Articulos\GUISDK_D11R.dcp" />
<DCCReference Include="..\Modulos\Articulos\IndyCore.dcp" />
<DCCReference Include="..\Modulos\Articulos\IndyProtocols.dcp" />
<DCCReference Include="..\Modulos\Articulos\IndySystem.dcp" />
<DCCReference Include="..\Modulos\Articulos\Jcl.dcp" />
<DCCReference Include="..\Modulos\Articulos\JclVcl.dcp" />
<DCCReference Include="..\Modulos\Articulos\JSDialog100.dcp" />
<DCCReference Include="..\Modulos\Articulos\JvCmpD11R.dcp" />
<DCCReference Include="..\Modulos\Articulos\JvCoreD11R.dcp" />
<DCCReference Include="..\Modulos\Articulos\JvCtrlsD11R.dcp" />
<DCCReference Include="..\Modulos\Articulos\JvDlgsD11R.dcp" />
<DCCReference Include="..\Modulos\Articulos\JvMMD11R.dcp" />
<DCCReference Include="..\Modulos\Articulos\JvNetD11R.dcp" />
<DCCReference Include="..\Modulos\Articulos\JvPageCompsD11R.dcp" />
<DCCReference Include="..\Modulos\Articulos\JvStdCtrlsD11R.dcp" />
<DCCReference Include="..\Modulos\Articulos\JvSystemD11R.dcp" />
<DCCReference Include="..\Modulos\Articulos\pckMD5.dcp" />
<DCCReference Include="..\Modulos\Articulos\pckUCDataConnector.dcp" />
<DCCReference Include="..\Modulos\Articulos\pckUserControl_RT.dcp" />
<DCCReference Include="..\Modulos\Articulos\PngComponentsD10.dcp" />
<DCCReference Include="..\Modulos\Articulos\PNG_D10.dcp" />
<DCCReference Include="..\Modulos\Articulos\RemObjects_Core_D11.dcp" />
<DCCReference Include="..\Modulos\Articulos\RemObjects_Indy_D11.dcp" />
<DCCReference Include="..\Modulos\Articulos\rtl.dcp" />
<DCCReference Include="..\Modulos\Articulos\SpTBXLib_d11.dcp" />
<DCCReference Include="..\Modulos\Articulos\tb2k_d11.dcp" />
<DCCReference Include="..\Modulos\Articulos\vcl.dcp" />
<DCCReference Include="..\Modulos\Articulos\vclactnband.dcp" />
<DCCReference Include="..\Modulos\Articulos\vcldb.dcp" />
<DCCReference Include="..\Modulos\Articulos\vcljpg.dcp" />
<DCCReference Include="..\Modulos\Articulos\VclSmp.dcp" />
<DCCReference Include="..\Modulos\Articulos\vclx.dcp" />
<DCCReference Include="..\Modulos\Articulos\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\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\dxCoreD11.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\dxGDIPlusD11.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\dxPSCoreD11.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\dxThemeD11.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\GUISDK_D11R.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\IndyCore.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\IndyProtocols.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\IndySystem.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\Jcl.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\JclVcl.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\JSDialog100.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\JvCmpD11R.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\JvCoreD11R.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\JvCtrlsD11R.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\JvDlgsD11R.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\JvMMD11R.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\JvNetD11R.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\JvPageCompsD11R.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\JvStdCtrlsD11R.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\JvSystemD11R.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\pckMD5.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\pckUCDataConnector.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\pckUserControl_RT.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\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\SpTBXLib_d11.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\tb2k_d11.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>

6
Source/Cliente/uPantallaPrincipal.dfm
View File

@ -36,7 +36,6 @@ object fPantallaPrincipal: TfPantallaPrincipal
TabOrder = 0 TabOrder = 0
ShowCaption = False ShowCaption = False
ShowCaptionWhenDocked = False ShowCaptionWhenDocked = False
ExplicitHeight = 517
object JvSyncSplitter1: TJvSyncSplitter object JvSyncSplitter1: TJvSyncSplitter
Left = 210 Left = 210
Top = 0 Top = 0
@ -91,7 +90,6 @@ object fPantallaPrincipal: TfPantallaPrincipal
NavPanelHotTrackFont.Style = [] NavPanelHotTrackFont.Style = []
SmallImages = ModulesSmallImageList SmallImages = ModulesSmallImageList
OnChange = JvNavigationPaneChange OnChange = JvNavigationPaneChange
ExplicitHeight = 517
object pagInicio: TJvNavPanelPage object pagInicio: TJvNavPanelPage
Left = 0 Left = 0
Top = 0 Top = 0
@ -104,7 +102,6 @@ object fPantallaPrincipal: TfPantallaPrincipal
Background.Transparent = False Background.Transparent = False
Caption = 'Inicio' Caption = 'Inicio'
ImageIndex = 0 ImageIndex = 0
ExplicitHeight = 444
object Panel1: TPanel object Panel1: TPanel
Left = 0 Left = 0
Top = 374 Top = 374
@ -114,7 +111,6 @@ object fPantallaPrincipal: TfPantallaPrincipal
Color = clWindow Color = clWindow
ParentBackground = False ParentBackground = False
TabOrder = 1 TabOrder = 1
ExplicitTop = 358
object Label1: TLabel object Label1: TLabel
Left = 38 Left = 38
Top = 29 Top = 29
@ -167,7 +163,6 @@ object fPantallaPrincipal: TfPantallaPrincipal
BoundLines = [blLeft, blTop, blRight, blBottom] BoundLines = [blLeft, blTop, blRight, blBottom]
Caption = 'pnlBorde' Caption = 'pnlBorde'
Align = alClient Align = alClient
ExplicitHeight = 517
object pnlMain: TSpTBXDockablePanel object pnlMain: TSpTBXDockablePanel
Left = 1 Left = 1
Top = 1 Top = 1
@ -178,7 +173,6 @@ object fPantallaPrincipal: TfPantallaPrincipal
TabOrder = 0 TabOrder = 0
ShowCaption = False ShowCaption = False
ShowCaptionWhenDocked = False ShowCaptionWhenDocked = False
ExplicitHeight = 515
object lblBienvenido: TLabel object lblBienvenido: TLabel
Left = 8 Left = 8
Top = 8 Top = 8

53
Source/Cliente/uPantallaPrincipal.pas
View File

@ -150,7 +150,7 @@ uses
uSplash, uAcercaDe, UxTheme, Themes, uMenuUtils, uBizEmpresas, uSplash, uAcercaDe, UxTheme, Themes, uMenuUtils, uBizEmpresas,
uFactuGES_App, uDMBase, uDataModuleConexion, uFactuGES_App, uDMBase, uDataModuleConexion,
uModuleController, uMainMenuController, uNavPaneController, uModuleController, uMainMenuController, uNavPaneController,
uDialogUtils, cxControls; uDialogUtils, cxControls, SpTBXSkins;
{$R *.dfm} {$R *.dfm}
@ -330,39 +330,42 @@ var
begin begin
ShowHourglassCursor; ShowHourglassCursor;
try try
for i := 0 to AppFactuGES.ModuleManager.ModulesCount - 1 do // Set skin type to sknTBX
MainMenuController.RegisterModule(AppFactuGES.ModuleManager.Modules[i]); SkinManager.ChangeControlSkinType(Self, sknSkin);
MainMenuController.SortMenuByTag; for i := 0 to AppFactuGES.ModuleManager.ModulesCount - 1 do
MainMenuController.InitMainMenu; MainMenuController.RegisterModule(AppFactuGES.ModuleManager.Modules[i]);
for i := 0 to AppFactuGES.ModuleManager.ModulesCount - 1 do MainMenuController.SortMenuByTag;
NavPaneController.RegisterModule(AppFactuGES.ModuleManager.Modules[i]); MainMenuController.InitMainMenu;
NavPaneController.InitNavPane; for i := 0 to AppFactuGES.ModuleManager.ModulesCount - 1 do
NavPaneController.RegisterModule(AppFactuGES.ModuleManager.Modules[i]);
try NavPaneController.InitNavPane;
AListaEmpresas := AppFactuGES.EmpresasController.BuscarTodos;
if Assigned(AListaEmpresas) then
begin
AListaEmpresas.Active := True;
if AListaEmpresas.RecordCount = 1 then try
AListaEmpresas := AppFactuGES.EmpresasController.BuscarTodos;
if Assigned(AListaEmpresas) then
begin begin
// Oculto la página de inicio para que no parezca AListaEmpresas.Active := True;
// que se pueden manejar varias empresas.
JvNavigationPane.ActivePageIndex := 1; if AListaEmpresas.RecordCount = 1 then
pagInicio.PageList := NIL; begin
pagInicio.Visible := False; // Oculto la página de inicio para que no parezca
// que se pueden manejar varias empresas.
JvNavigationPane.ActivePageIndex := 1;
pagInicio.PageList := NIL;
pagInicio.Visible := False;
end;
end; end;
finally
AListaEmpresas.Close;
AListaEmpresas := NIL;
end; end;
finally RefrescarUI;
AListaEmpresas.Close;
AListaEmpresas := NIL;
end;
RefrescarUI;
finally finally
HideHourglassCursor; HideHourglassCursor;
end; end;

52
Source/GUIBase/GUIBase.dproj
View File

@ -59,32 +59,32 @@
<DelphiCompile Include="GUIBase.dpk"> <DelphiCompile Include="GUIBase.dpk">
<MainSource>MainSource</MainSource> <MainSource>MainSource</MainSource>
</DelphiCompile> </DelphiCompile>
<DCCReference Include="..\Modulos\Articulos\Base.dcp" /> <DCCReference Include="C:\Documents and Settings\Usuario\Base.dcp" />
<DCCReference Include="..\Modulos\Articulos\cxLibraryD11.dcp" /> <DCCReference Include="C:\Documents and Settings\Usuario\cxLibraryD11.dcp" />
<DCCReference Include="..\Modulos\Articulos\cxTreeListD11.dcp" /> <DCCReference Include="C:\Documents and Settings\Usuario\cxTreeListD11.dcp" />
<DCCReference Include="..\Modulos\Articulos\dbrtl.dcp" /> <DCCReference Include="C:\Documents and Settings\Usuario\dbrtl.dcp" />
<DCCReference Include="..\Modulos\Articulos\dxBarD11.dcp" /> <DCCReference Include="C:\Documents and Settings\Usuario\dxBarD11.dcp" />
<DCCReference Include="..\Modulos\Articulos\dxBarExtItemsD11.dcp" /> <DCCReference Include="C:\Documents and Settings\Usuario\dxBarExtItemsD11.dcp" />
<DCCReference Include="..\Modulos\Articulos\dxComnD11.dcp" /> <DCCReference Include="C:\Documents and Settings\Usuario\dxComnD11.dcp" />
<DCCReference Include="..\Modulos\Articulos\dxGDIPlusD11.dcp" /> <DCCReference Include="C:\Documents and Settings\Usuario\dxGDIPlusD11.dcp" />
<DCCReference Include="..\Modulos\Articulos\dxLayoutControlD11.dcp" /> <DCCReference Include="C:\Documents and Settings\Usuario\dxLayoutControlD11.dcp" />
<DCCReference Include="..\Modulos\Articulos\dxPSCoreD11.dcp" /> <DCCReference Include="C:\Documents and Settings\Usuario\dxPSCoreD11.dcp" />
<DCCReference Include="..\Modulos\Articulos\dxPScxCommonD11.dcp" /> <DCCReference Include="C:\Documents and Settings\Usuario\dxPScxCommonD11.dcp" />
<DCCReference Include="..\Modulos\Articulos\dxPScxExtCommonD11.dcp" /> <DCCReference Include="C:\Documents and Settings\Usuario\dxPScxExtCommonD11.dcp" />
<DCCReference Include="..\Modulos\Articulos\dxPScxGrid6LnkD11.dcp" /> <DCCReference Include="C:\Documents and Settings\Usuario\dxPScxGrid6LnkD11.dcp" />
<DCCReference Include="..\Modulos\Articulos\dxPScxPCProdD11.dcp" /> <DCCReference Include="C:\Documents and Settings\Usuario\dxPScxPCProdD11.dcp" />
<DCCReference Include="..\Modulos\Articulos\dxPsPrVwAdvD11.dcp" /> <DCCReference Include="C:\Documents and Settings\Usuario\dxPsPrVwAdvD11.dcp" />
<DCCReference Include="..\Modulos\Articulos\dxThemeD11.dcp" /> <DCCReference Include="C:\Documents and Settings\Usuario\dxThemeD11.dcp" />
<DCCReference Include="..\Modulos\Articulos\frx11.dcp" /> <DCCReference Include="C:\Documents and Settings\Usuario\frx11.dcp" />
<DCCReference Include="..\Modulos\Articulos\frxe11.dcp" /> <DCCReference Include="C:\Documents and Settings\Usuario\frxe11.dcp" />
<DCCReference Include="..\Modulos\Articulos\fs11.dcp" /> <DCCReference Include="C:\Documents and Settings\Usuario\fs11.dcp" />
<DCCReference Include="..\Modulos\Articulos\JvAppFrmD11R.dcp" /> <DCCReference Include="C:\Documents and Settings\Usuario\JvAppFrmD11R.dcp" />
<DCCReference Include="..\Modulos\Articulos\JvCtrlsD11R.dcp" /> <DCCReference Include="C:\Documents and Settings\Usuario\JvCtrlsD11R.dcp" />
<DCCReference Include="..\Modulos\Articulos\rtl.dcp" /> <DCCReference Include="C:\Documents and Settings\Usuario\rtl.dcp" />
<DCCReference Include="..\Modulos\Articulos\vcl.dcp" /> <DCCReference Include="C:\Documents and Settings\Usuario\vcl.dcp" />
<DCCReference Include="..\Modulos\Articulos\vcldb.dcp" /> <DCCReference Include="C:\Documents and Settings\Usuario\vcldb.dcp" />
<DCCReference Include="..\Modulos\Articulos\vcljpg.dcp" /> <DCCReference Include="C:\Documents and Settings\Usuario\vcljpg.dcp" />
<DCCReference Include="..\Modulos\Articulos\vclx.dcp" /> <DCCReference Include="C:\Documents and Settings\Usuario\vclx.dcp" />
<DCCReference Include="uDialogBase.pas"> <DCCReference Include="uDialogBase.pas">
<Form>fDialogBase</Form> <Form>fDialogBase</Form>
</DCCReference> </DCCReference>

1
Source/GUIBase/uEditorGridBase.pas
View File

@ -47,6 +47,7 @@ type
Imprimir1: TMenuItem; Imprimir1: TMenuItem;
TBXSeparatorItem14: TSpTBXSeparatorItem; TBXSeparatorItem14: TSpTBXSeparatorItem;
TBXItem33: TSpTBXItem; TBXItem33: TSpTBXItem;
TBControlItem1: TTBControlItem;
N3: TMenuItem; N3: TMenuItem;
Actualizar1: TMenuItem; Actualizar1: TMenuItem;
TBXItem34: TSpTBXItem; TBXItem34: TSpTBXItem;

2
Source/GUIBase/uViewDetallesGenerico.dfm
View File

@ -10,7 +10,7 @@ inherited frViewDetallesGenerico: TfrViewDetallesGenerico
Height = 332 Height = 332
Align = alClient Align = alClient
TabOrder = 0 TabOrder = 0
LookAndFeel.Kind = lfOffice11 LookAndFeel.Kind = lfStandard
LookAndFeel.NativeStyle = True LookAndFeel.NativeStyle = True
object cxGridView: TcxGridDBTableView object cxGridView: TcxGridDBTableView
NavigatorButtons.ConfirmDelete = False NavigatorButtons.ConfirmDelete = False

23
Source/GUIBase/uViewGrid.dfm
View File

@ -1,13 +1,13 @@
inherited frViewGrid: TfrViewGrid inherited frViewGrid: TfrViewGrid
Width = 607 Width = 607
Height = 441 Height = 393
ExplicitWidth = 607 ExplicitWidth = 607
ExplicitHeight = 441 ExplicitHeight = 393
object cxGrid: TcxGrid [0] object cxGrid: TcxGrid [0]
Left = 0 Left = 0
Top = 102 Top = 102
Width = 607 Width = 607
Height = 211 Height = 265
Align = alClient Align = alClient
Font.Charset = DEFAULT_CHARSET Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText Font.Color = clWindowText
@ -16,8 +16,9 @@ inherited frViewGrid: TfrViewGrid
Font.Style = [] Font.Style = []
ParentFont = False ParentFont = False
TabOrder = 0 TabOrder = 0
LookAndFeel.Kind = lfOffice11 LookAndFeel.Kind = lfStandard
LookAndFeel.NativeStyle = False LookAndFeel.NativeStyle = True
ExplicitHeight = 211
object cxGridView: TcxGridDBTableView object cxGridView: TcxGridDBTableView
OnDblClick = cxGridViewDblClick OnDblClick = cxGridViewDblClick
NavigatorButtons.ConfirmDelete = False NavigatorButtons.ConfirmDelete = False
@ -141,9 +142,9 @@ inherited frViewGrid: TfrViewGrid
end end
object pnlAgrupaciones: TSpTBXDockablePanel object pnlAgrupaciones: TSpTBXDockablePanel
Left = 0 Left = 0
Top = 313 Top = 367
Width = 607 Width = 607
Height = 128 Height = 26
Caption = 'pnlAgrupaciones' Caption = 'pnlAgrupaciones'
Align = alBottom Align = alBottom
TabOrder = 2 TabOrder = 2
@ -160,7 +161,6 @@ inherited frViewGrid: TfrViewGrid
TabOrder = 0 TabOrder = 0
ShowCaption = False ShowCaption = False
ShowCaptionWhenDocked = False ShowCaptionWhenDocked = False
ExplicitTop = 10
object TBXToolbar1: TSpTBXToolbar object TBXToolbar1: TSpTBXToolbar
Left = 0 Left = 0
Top = 0 Top = 0
@ -170,7 +170,6 @@ inherited frViewGrid: TfrViewGrid
AutoResize = False AutoResize = False
TabOrder = 0 TabOrder = 0
Caption = 'TBXToolbar1' Caption = 'TBXToolbar1'
ExplicitTop = 10
object TBXItem1: TSpTBXItem object TBXItem1: TSpTBXItem
Action = actQuitarAgrupaciones Action = actQuitarAgrupaciones
end end
@ -203,7 +202,7 @@ inherited frViewGrid: TfrViewGrid
PrinterPage.ScaleMode = smFit PrinterPage.ScaleMode = smFit
PrinterPage._dxMeasurementUnits_ = 0 PrinterPage._dxMeasurementUnits_ = 0
PrinterPage._dxLastMU_ = 2 PrinterPage._dxLastMU_ = 2
ReportDocument.CreationDate = 40200.437038078700000000 ReportDocument.CreationDate = 40200.519988935190000000
StyleManager = dmBase.dxPrintStyleManager1 StyleManager = dmBase.dxPrintStyleManager1
OptionsCards.Shadow.Depth = 0 OptionsCards.Shadow.Depth = 0
OptionsExpanding.ExpandGroupRows = True OptionsExpanding.ExpandGroupRows = True
@ -227,8 +226,8 @@ inherited frViewGrid: TfrViewGrid
end end
end end
object dxPSEngineController1: TdxPSEngineController object dxPSEngineController1: TdxPSEngineController
Active = True DialogsLookAndFeel.Kind = lfStandard
DialogsLookAndFeel.Kind = lfOffice11 DialogsLookAndFeel.NativeStyle = True
PreviewDialogStyle = 'Advanced' PreviewDialogStyle = 'Advanced'
Left = 336 Left = 336
Top = 128 Top = 128

6
Source/GUIBase/uViewGrid2Niveles.dfm
View File

@ -16,7 +16,7 @@ inherited frViewGrid2Niveles: TfrViewGrid2Niveles
Font.Style = [] Font.Style = []
ParentFont = False ParentFont = False
TabOrder = 0 TabOrder = 0
LookAndFeel.Kind = lfOffice11 LookAndFeel.Kind = lfStandard
LookAndFeel.NativeStyle = True LookAndFeel.NativeStyle = True
object cxGridView1N: TcxGridDBTableView object cxGridView1N: TcxGridDBTableView
OnDblClick = cxGridView1NDblClick OnDblClick = cxGridView1NDblClick
@ -88,8 +88,8 @@ inherited frViewGrid2Niveles: TfrViewGrid2Niveles
end end
end end
object dxPSEngineController1: TdxPSEngineController object dxPSEngineController1: TdxPSEngineController
LookAndFeel = pslfOffice11 DialogsLookAndFeel.Kind = lfStandard
UseNativeLookAndFeel = False DialogsLookAndFeel.NativeStyle = True
Left = 336 Left = 336
Top = 128 Top = 128
end end

90
Source/Modulos/Articulos/Views/uEditorArticulos.dfm
View File

@ -2,16 +2,16 @@ inherited fEditorArticulos: TfEditorArticulos
Left = 489 Left = 489
Top = 325 Top = 325
Caption = 'Lista de art'#237'culos' Caption = 'Lista de art'#237'culos'
ClientWidth = 657 ClientWidth = 822
ExplicitWidth = 665 ExplicitWidth = 830
PixelsPerInch = 96 PixelsPerInch = 96
TextHeight = 13 TextHeight = 13
inherited JvNavPanelHeader: TJvNavPanelHeader inherited JvNavPanelHeader: TJvNavPanelHeader
Width = 657 Width = 822
Caption = 'Lista de articulos' Caption = 'Lista de articulos'
ExplicitWidth = 657 ExplicitWidth = 657
inherited Image1: TImage inherited Image1: TImage
Left = 630 Left = 795
Picture.Data = { Picture.Data = {
0A54504E474F626A65637489504E470D0A1A0A0000000D494844520000001C00 0A54504E474F626A65637489504E470D0A1A0A0000000D494844520000001C00
00001C0806000000720DDF940000000970485973000017120000171201679FD2 00001C0806000000720DDF940000000970485973000017120000171201679FD2
@ -30,7 +30,7 @@ inherited fEditorArticulos: TfEditorArticulos
end end
end end
inherited TBXDock: TSpTBXDock inherited TBXDock: TSpTBXDock
Width = 657 Width = 822
ExplicitWidth = 657 ExplicitWidth = 657
inherited tbxMain: TSpTBXToolbar inherited tbxMain: TSpTBXToolbar
ExplicitWidth = 632 ExplicitWidth = 632
@ -47,7 +47,7 @@ inherited fEditorArticulos: TfEditorArticulos
end end
end end
inherited tbxMenu: TSpTBXToolbar inherited tbxMenu: TSpTBXToolbar
ExplicitWidth = 657 ExplicitWidth = 822
end end
inherited TBXTMain2: TSpTBXToolbar inherited TBXTMain2: TSpTBXToolbar
Left = 287 Left = 287
@ -56,31 +56,34 @@ inherited fEditorArticulos: TfEditorArticulos
end end
end end
inherited StatusBar: TJvStatusBar inherited StatusBar: TJvStatusBar
Width = 657 Width = 822
ExplicitWidth = 657 ExplicitWidth = 657
end end
object pgPaginas: TPageControl [3] object pgPaginas: TPageControl [3]
AlignWithMargins = True AlignWithMargins = True
Left = 3 Left = 3
Top = 105 Top = 105
Width = 651 Width = 816
Height = 377 Height = 377
ActivePage = pagArticulos ActivePage = pagArticulos
Align = alClient Align = alClient
TabOrder = 3 TabOrder = 3
OnChange = pgPaginasChange OnChange = pgPaginasChange
ExplicitWidth = 651
object pagArticulos: TTabSheet object pagArticulos: TTabSheet
Caption = 'Todos los art'#237'culos' Caption = 'Todos los art'#237'culos'
ExplicitWidth = 643
end end
object pagArticulosPorProveedor: TTabSheet object pagArticulosPorProveedor: TTabSheet
Caption = 'Art'#237'culos por proveedor' Caption = 'Art'#237'culos por proveedor'
Enabled = False Enabled = False
ImageIndex = 1 ImageIndex = 1
TabVisible = False TabVisible = False
ExplicitWidth = 643
inline frViewArticulosPorProveedor1: TfrViewArticulosPorProveedor inline frViewArticulosPorProveedor1: TfrViewArticulosPorProveedor
Left = 0 Left = 0
Top = 0 Top = 0
Width = 643 Width = 808
Height = 349 Height = 349
Align = alClient Align = alClient
Font.Charset = DEFAULT_CHARSET Font.Charset = DEFAULT_CHARSET
@ -94,10 +97,10 @@ inherited fEditorArticulos: TfEditorArticulos
ExplicitWidth = 643 ExplicitWidth = 643
ExplicitHeight = 349 ExplicitHeight = 349
inherited cxGrid: TcxGrid inherited cxGrid: TcxGrid
Width = 643 Width = 808
Height = 119 Height = 119
ExplicitWidth = 643 ExplicitWidth = 808
ExplicitHeight = 221 ExplicitHeight = 119
inherited cxGridView: TcxGridDBTableView inherited cxGridView: TcxGridDBTableView
DataController.Summary.FooterSummaryItems = < DataController.Summary.FooterSummaryItems = <
item item
@ -108,13 +111,13 @@ inherited fEditorArticulos: TfEditorArticulos
end end
end end
inherited frViewFiltroBase1: TfrViewFiltroBase inherited frViewFiltroBase1: TfrViewFiltroBase
Width = 643 Width = 808
ExplicitWidth = 643 ExplicitWidth = 643
inherited TBXDockablePanel1: TSpTBXDockablePanel inherited TBXDockablePanel1: TSpTBXDockablePanel
Width = 643 Width = 808
ExplicitWidth = 643 ExplicitWidth = 643
inherited dxLayoutControl1: TdxLayoutControl inherited dxLayoutControl1: TdxLayoutControl
Width = 643 Width = 808
ExplicitWidth = 643 ExplicitWidth = 643
inherited txtFiltroTodo: TcxTextEdit inherited txtFiltroTodo: TcxTextEdit
Style.LookAndFeel.SkinName = '' Style.LookAndFeel.SkinName = ''
@ -131,29 +134,29 @@ inherited fEditorArticulos: TfEditorArticulos
StyleHot.LookAndFeel.SkinName = '' StyleHot.LookAndFeel.SkinName = ''
end end
inherited edtFechaFinFiltro: TcxDateEdit inherited edtFechaFinFiltro: TcxDateEdit
Left = 353 Left = 456
Style.LookAndFeel.SkinName = '' Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = '' StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = '' StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = '' StyleHot.LookAndFeel.SkinName = ''
ExplicitLeft = 353 ExplicitLeft = 456
end end
inherited eLista: TcxComboBox inherited eLista: TcxComboBox
Left = 596 Left = 766
Style.LookAndFeel.SkinName = '' Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = '' StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = '' StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = '' StyleHot.LookAndFeel.SkinName = ''
ExplicitLeft = 596 ExplicitLeft = 766
ExplicitWidth = 20 ExplicitWidth = 20
Width = 20 Width = 20
end end
end end
inherited TBXAlignmentPanel1: TSpTBXDockablePanel inherited TBXAlignmentPanel1: TSpTBXDockablePanel
Width = 633 Width = 798
ExplicitWidth = 633 ExplicitWidth = 633
inherited tbxBotones: TSpTBXToolbar inherited tbxBotones: TSpTBXToolbar
Width = 633 Width = 798
ExplicitWidth = 633 ExplicitWidth = 633
end end
end end
@ -161,15 +164,16 @@ inherited fEditorArticulos: TfEditorArticulos
end end
inherited pnlAgrupaciones: TSpTBXDockablePanel inherited pnlAgrupaciones: TSpTBXDockablePanel
Top = 221 Top = 221
Width = 643 Width = 808
ExplicitTop = 323 ExplicitTop = 323
ExplicitWidth = 643 ExplicitWidth = 643
inherited TBXAlignmentPanel1: TSpTBXDockablePanel inherited TBXAlignmentPanel1: TSpTBXDockablePanel
Width = 643 Width = 808
ExplicitTop = 0
ExplicitWidth = 643 ExplicitWidth = 643
inherited TBXToolbar1: TSpTBXToolbar inherited TBXToolbar1: TSpTBXToolbar
Width = 643 Width = 808
ExplicitWidth = 633 ExplicitWidth = 643
end end
end end
end end
@ -193,7 +197,7 @@ inherited fEditorArticulos: TfEditorArticulos
inline frViewArticulos1: TfrViewArticulos [4] inline frViewArticulos1: TfrViewArticulos [4]
Left = 0 Left = 0
Top = 102 Top = 102
Width = 657 Width = 822
Height = 383 Height = 383
Align = alClient Align = alClient
Font.Charset = DEFAULT_CHARSET Font.Charset = DEFAULT_CHARSET
@ -208,8 +212,8 @@ inherited fEditorArticulos: TfEditorArticulos
ExplicitWidth = 657 ExplicitWidth = 657
ExplicitHeight = 383 ExplicitHeight = 383
inherited cxGrid: TcxGrid inherited cxGrid: TcxGrid
Width = 657 Width = 822
Height = 153 Height = 256
ExplicitWidth = 657 ExplicitWidth = 657
ExplicitHeight = 153 ExplicitHeight = 153
inherited cxGridView: TcxGridDBTableView inherited cxGridView: TcxGridDBTableView
@ -222,13 +226,13 @@ inherited fEditorArticulos: TfEditorArticulos
end end
end end
inherited frViewFiltroBase1: TfrViewFiltroBase inherited frViewFiltroBase1: TfrViewFiltroBase
Width = 657 Width = 822
ExplicitWidth = 657 ExplicitWidth = 657
inherited TBXDockablePanel1: TSpTBXDockablePanel inherited TBXDockablePanel1: TSpTBXDockablePanel
Width = 657 Width = 822
ExplicitWidth = 657 ExplicitWidth = 657
inherited dxLayoutControl1: TdxLayoutControl inherited dxLayoutControl1: TdxLayoutControl
Width = 657 Width = 822
ExplicitWidth = 657 ExplicitWidth = 657
inherited txtFiltroTodo: TcxTextEdit inherited txtFiltroTodo: TcxTextEdit
Style.LookAndFeel.SkinName = '' Style.LookAndFeel.SkinName = ''
@ -245,44 +249,44 @@ inherited fEditorArticulos: TfEditorArticulos
StyleHot.LookAndFeel.SkinName = '' StyleHot.LookAndFeel.SkinName = ''
end end
inherited edtFechaFinFiltro: TcxDateEdit inherited edtFechaFinFiltro: TcxDateEdit
Left = 372 Left = 463
Style.LookAndFeel.SkinName = '' Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = '' StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = '' StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = '' StyleHot.LookAndFeel.SkinName = ''
ExplicitLeft = 372 ExplicitLeft = 463
end end
inherited eLista: TcxComboBox inherited eLista: TcxComboBox
Left = 627 Left = 779
Style.LookAndFeel.SkinName = '' Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = '' StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = '' StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = '' StyleHot.LookAndFeel.SkinName = ''
ExplicitLeft = 627 ExplicitLeft = 779
ExplicitWidth = 20 ExplicitWidth = 20
Width = 20 Width = 20
end end
end end
inherited TBXAlignmentPanel1: TSpTBXDockablePanel inherited TBXAlignmentPanel1: TSpTBXDockablePanel
Width = 647 Width = 812
ExplicitWidth = 647 ExplicitWidth = 647
inherited tbxBotones: TSpTBXToolbar inherited tbxBotones: TSpTBXToolbar
Width = 647 Width = 812
ExplicitWidth = 647 ExplicitWidth = 647
end end
end end
end end
end end
inherited pnlAgrupaciones: TSpTBXDockablePanel inherited pnlAgrupaciones: TSpTBXDockablePanel
Top = 255 Top = 358
Width = 657 Width = 822
ExplicitTop = 255 ExplicitTop = 358
ExplicitWidth = 657 ExplicitWidth = 822
inherited TBXAlignmentPanel1: TSpTBXDockablePanel inherited TBXAlignmentPanel1: TSpTBXDockablePanel
Width = 657 Width = 822
ExplicitWidth = 657 ExplicitWidth = 657
inherited TBXToolbar1: TSpTBXToolbar inherited TBXToolbar1: TSpTBXToolbar
Width = 657 Width = 822
ExplicitWidth = 657 ExplicitWidth = 657
end end
end end

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

@ -1,6 +1,6 @@
inherited frViewArticulo: TfrViewArticulo inherited frViewArticulo: TfrViewArticulo
Width = 729 Width = 610
Height = 304 Height = 405
Align = alClient Align = alClient
OnCreate = CustomViewCreate OnCreate = CustomViewCreate
OnDestroy = CustomViewDestroy OnDestroy = CustomViewDestroy
@ -9,18 +9,18 @@ inherited frViewArticulo: TfrViewArticulo
object dxLayoutControlArticulo: TdxLayoutControl object dxLayoutControlArticulo: TdxLayoutControl
Left = 0 Left = 0
Top = 0 Top = 0
Width = 729 Width = 610
Height = 304 Height = 405
Align = alClient Align = alClient
ParentBackground = True
TabOrder = 0 TabOrder = 0
TabStop = False TabStop = False
ExplicitWidth = 451 ExplicitWidth = 451
ExplicitHeight = 304
DesignSize = ( DesignSize = (
729 610
304) 405)
object PngSpeedButton2: TPngSpeedButton object PngSpeedButton2: TPngSpeedButton
Left = 667 Left = 548
Top = 358 Top = 358
Width = 23 Width = 23
Height = 22 Height = 22
@ -47,7 +47,7 @@ inherited frViewArticulo: TfrViewArticulo
PngOptions = [pngBlendOnDisabled, pngGrayscaleOnDisabled] PngOptions = [pngBlendOnDisabled, pngGrayscaleOnDisabled]
end end
object PngSpeedButton1: TPngSpeedButton object PngSpeedButton1: TPngSpeedButton
Left = 667 Left = 548
Top = 386 Top = 386
Width = 23 Width = 23
Height = 22 Height = 22
@ -296,7 +296,7 @@ inherited frViewArticulo: TfrViewArticulo
Width = 171 Width = 171
end end
object eCodigo: TcxDBTextEdit object eCodigo: TcxDBTextEdit
Left = 425 Left = 362
Top = 28 Top = 28
DataBinding.DataField = 'CODIGOTECNICO' DataBinding.DataField = 'CODIGOTECNICO'
DataBinding.DataSource = dsViewArticulo DataBinding.DataSource = dsViewArticulo
@ -344,7 +344,7 @@ inherited frViewArticulo: TfrViewArticulo
Width = 727 Width = 727
end end
object ePrecio: TcxDBCurrencyEdit object ePrecio: TcxDBCurrencyEdit
Left = 541 Left = 456
Top = 109 Top = 109
DataBinding.DataField = 'PRECIO' DataBinding.DataField = 'PRECIO'
DataBinding.DataSource = dsViewArticulo DataBinding.DataSource = dsViewArticulo

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

@ -1,12 +1,12 @@
inherited frViewArticulos: TfrViewArticulos inherited frViewArticulos: TfrViewArticulos
Width = 715 Width = 715
Height = 462 Height = 457
OnShow = CustomViewShow OnShow = CustomViewShow
ExplicitWidth = 715 ExplicitWidth = 715
ExplicitHeight = 462 ExplicitHeight = 457
inherited cxGrid: TcxGrid inherited cxGrid: TcxGrid
Width = 715 Width = 715
Height = 232 Height = 330
ExplicitWidth = 715 ExplicitWidth = 715
ExplicitHeight = 232 ExplicitHeight = 232
inherited cxGridView: TcxGridDBTableView inherited cxGridView: TcxGridDBTableView
@ -107,6 +107,8 @@ inherited frViewArticulos: TfrViewArticulos
StyleDisabled.LookAndFeel.SkinName = '' StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = '' StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = '' StyleHot.LookAndFeel.SkinName = ''
ExplicitWidth = 272
Width = 272
end end
inherited edtFechaFinFiltro: TcxDateEdit inherited edtFechaFinFiltro: TcxDateEdit
Left = 376 Left = 376
@ -115,6 +117,8 @@ inherited frViewArticulos: TfrViewArticulos
StyleFocused.LookAndFeel.SkinName = '' StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = '' StyleHot.LookAndFeel.SkinName = ''
ExplicitLeft = 376 ExplicitLeft = 376
ExplicitWidth = 221
Width = 221
end end
inherited eLista: TcxComboBox inherited eLista: TcxComboBox
Left = 634 Left = 634
@ -155,12 +159,15 @@ inherited frViewArticulos: TfrViewArticulos
end end
end end
inherited pnlAgrupaciones: TSpTBXDockablePanel inherited pnlAgrupaciones: TSpTBXDockablePanel
Top = 334 Top = 432
Width = 715 Width = 715
ExplicitTop = 334 Height = 25
ExplicitTop = 432
ExplicitWidth = 715 ExplicitWidth = 715
ExplicitHeight = 25
inherited TBXAlignmentPanel1: TSpTBXDockablePanel inherited TBXAlignmentPanel1: TSpTBXDockablePanel
Width = 715 Width = 715
ExplicitTop = 0
ExplicitWidth = 715 ExplicitWidth = 715
inherited TBXToolbar1: TSpTBXToolbar inherited TBXToolbar1: TSpTBXToolbar
Width = 715 Width = 715
@ -185,6 +192,9 @@ inherited frViewArticulos: TfrViewArticulos
BuiltInReportLink = True BuiltInReportLink = True
end end
end end
inherited dxPSEngineController1: TdxPSEngineController
Active = True
end
inherited ActionList1: TActionList inherited ActionList1: TActionList
Left = 360 Left = 360
Top = 280 Top = 280

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

@ -56,10 +56,10 @@ inherited fEditorClientes: TfEditorClientes
object TBXSubmenuItem3: TSpTBXSubmenuItem [13] object TBXSubmenuItem3: TSpTBXSubmenuItem [13]
Caption = 'Documentos relacionados' Caption = 'Documentos relacionados'
DisplayMode = nbdmImageAndText DisplayMode = nbdmImageAndText
DropdownCombo = True
ImageIndex = 24 ImageIndex = 24
Images = SmallImages Images = SmallImages
Visible = False Visible = False
DropdownCombo = True
object TBXItem43: TSpTBXItem object TBXItem43: TSpTBXItem
Action = actDocumentosPresupuestos Action = actDocumentosPresupuestos
end end
@ -78,17 +78,17 @@ inherited fEditorClientes: TfEditorClientes
ExplicitWidth = 857 ExplicitWidth = 857
inherited TBXSubmenuItemAcciones: TSpTBXSubmenuItem inherited TBXSubmenuItemAcciones: TSpTBXSubmenuItem
object TBXItem381: TSpTBXItem object TBXItem381: TSpTBXItem
Action = actGruposCliente
Caption = 'Ver grupos de cliente...' Caption = 'Ver grupos de cliente...'
Action = actGruposCliente
Images = SmallImages Images = SmallImages
end end
object TBXSeparatorItem171: TSpTBXSeparatorItem object TBXSeparatorItem171: TSpTBXSeparatorItem
end end
object TBXSubmenuItem2: TSpTBXSubmenuItem object TBXSubmenuItem2: TSpTBXSubmenuItem
Caption = 'Documentos relacionados' Caption = 'Documentos relacionados'
DropdownCombo = True
ImageIndex = 24 ImageIndex = 24
Images = SmallImages Images = SmallImages
DropdownCombo = True
object TBXItem40: TSpTBXItem object TBXItem40: TSpTBXItem
Action = actDocumentosPresupuestos Action = actDocumentosPresupuestos
end end
@ -105,9 +105,7 @@ inherited fEditorClientes: TfEditorClientes
end end
end end
inherited TBXTMain2: TSpTBXToolbar inherited TBXTMain2: TSpTBXToolbar
Left = 275
DockPos = 275 DockPos = 275
ExplicitLeft = 275
end end
end end
inherited StatusBar: TJvStatusBar inherited StatusBar: TJvStatusBar
@ -137,7 +135,7 @@ inherited fEditorClientes: TfEditorClientes
Width = 857 Width = 857
Height = 270 Height = 270
ExplicitWidth = 857 ExplicitWidth = 857
ExplicitHeight = 270 ExplicitHeight = 168
inherited cxGridView: TcxGridDBTableView inherited cxGridView: TcxGridDBTableView
DataController.Summary.FooterSummaryItems = < DataController.Summary.FooterSummaryItems = <
item item
@ -151,6 +149,7 @@ inherited fEditorClientes: TfEditorClientes
Width = 857 Width = 857
ExplicitWidth = 857 ExplicitWidth = 857
inherited TBXDockablePanel1: TSpTBXDockablePanel inherited TBXDockablePanel1: TSpTBXDockablePanel
Width = 857
ExplicitWidth = 857 ExplicitWidth = 857
inherited dxLayoutControl1: TdxLayoutControl inherited dxLayoutControl1: TdxLayoutControl
Width = 857 Width = 857
@ -193,8 +192,8 @@ inherited fEditorClientes: TfEditorClientes
end end
end end
inherited TBXAlignmentPanel1: TSpTBXDockablePanel inherited TBXAlignmentPanel1: TSpTBXDockablePanel
Width = 857 Width = 847
ExplicitWidth = 857 ExplicitWidth = 847
inherited tbxBotones: TSpTBXToolbar inherited tbxBotones: TSpTBXToolbar
Width = 847 Width = 847
ExplicitWidth = 847 ExplicitWidth = 847
@ -208,14 +207,15 @@ inherited fEditorClientes: TfEditorClientes
end end
inherited pnlAgrupaciones: TSpTBXDockablePanel inherited pnlAgrupaciones: TSpTBXDockablePanel
Top = 372 Top = 372
Width = 857
ExplicitTop = 372 ExplicitTop = 372
ExplicitWidth = 857 ExplicitWidth = 857
inherited TBXAlignmentPanel1: TSpTBXDockablePanel inherited TBXAlignmentPanel1: TSpTBXDockablePanel
Width = 857 Width = 857
ExplicitWidth = 857 ExplicitWidth = 857
inherited TBXToolbar1: TSpTBXToolbar inherited TBXToolbar1: TSpTBXToolbar
Width = 847 Width = 857
ExplicitWidth = 847 ExplicitWidth = 857
end end
end end
end end
@ -225,6 +225,9 @@ inherited fEditorClientes: TfEditorClientes
BuiltInReportLink = True BuiltInReportLink = True
end end
end end
inherited dxPSEngineController1: TdxPSEngineController
Active = True
end
inherited cxViewGridPopupMenu: TcxGridPopupMenu inherited cxViewGridPopupMenu: TcxGridPopupMenu
PopupMenus = < PopupMenus = <
item item

2
Source/Modulos/Contactos/Views/uEditorClientes.pas
View File

@ -12,7 +12,7 @@ uses
uViewBase, uViewBarraSeleccion, ExtCtrls, pngimage, JvComponentBase, uViewBase, uViewBarraSeleccion, ExtCtrls, pngimage, JvComponentBase,
uIEditorClientes, uViewGridBase, uViewGrid, uViewContactos, uViewClientes, uIEditorClientes, uViewGridBase, uViewGrid, uViewContactos, uViewClientes,
JvExComCtrls, JvStatusBar, JSDialog, uDAInterfaces; JvExComCtrls, JvStatusBar, JSDialog, uDAInterfaces, TntStdCtrls, SpTBXEditors;
type type
TfEditorClientes = class(TfEditorContactos, IEditorClientes) TfEditorClientes = class(TfEditorContactos, IEditorClientes)

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

@ -11,13 +11,14 @@ inherited fEditorContactos: TfEditorContactos
end end
inherited TBXDock: TSpTBXDock inherited TBXDock: TSpTBXDock
inherited tbxFiltro: TSpTBXToolbar inherited tbxFiltro: TSpTBXToolbar
ExplicitWidth = 269 ExplicitWidth = 287
inherited tbxEditFiltro: TSpTBXEditItem
EditOptions = [tboUseEditWhenVertical]
end
inherited TBXItem37: TSpTBXItem inherited TBXItem37: TSpTBXItem
Visible = False Visible = False
end end
inherited cbxListaAnos: TSpTBXComboBox
Left = 129
ExplicitLeft = 129
end
end end
inherited tbxMenu: TSpTBXToolbar inherited tbxMenu: TSpTBXToolbar
object TBXSubmenuItemAcciones: TSpTBXSubmenuItem [4] object TBXSubmenuItemAcciones: TSpTBXSubmenuItem [4]
@ -25,8 +26,9 @@ inherited fEditorContactos: TfEditorContactos
end end
end end
inherited TBXTMain2: TSpTBXToolbar inherited TBXTMain2: TSpTBXToolbar
Left = 318 Left = 287
ExplicitLeft = 318 DockPos = 286
ExplicitLeft = 287
end end
end end
inherited EditorActionList: TActionList inherited EditorActionList: TActionList

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

@ -13,7 +13,7 @@ uses
uViewBarraSeleccion, JvComponentBase, uContactosController, uViewBarraSeleccion, JvComponentBase, uContactosController,
uIEditorContactos, pngimage, JvExComCtrls, JvStatusBar, uIEditorContactos, pngimage, JvExComCtrls, JvStatusBar,
uDAInterfaces; uDAInterfaces, StdCtrls, TntStdCtrls, SpTBXEditors;
type type
TfEditorContactos = class(TfEditorGridBase, IEditorContactos) TfEditorContactos = class(TfEditorGridBase, IEditorContactos)

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

@ -2,6 +2,7 @@ inherited fEditorEmpleados: TfEditorEmpleados
Caption = 'fEditorEmpleados' Caption = 'fEditorEmpleados'
ClientWidth = 786 ClientWidth = 786
ExplicitWidth = 794 ExplicitWidth = 794
ExplicitHeight = 538
PixelsPerInch = 96 PixelsPerInch = 96
TextHeight = 13 TextHeight = 13
inherited JvNavPanelHeader: TJvNavPanelHeader inherited JvNavPanelHeader: TJvNavPanelHeader
@ -48,7 +49,7 @@ inherited fEditorEmpleados: TfEditorEmpleados
Width = 786 Width = 786
ExplicitWidth = 786 ExplicitWidth = 786
inherited tbxMain: TSpTBXToolbar inherited tbxMain: TSpTBXToolbar
ExplicitWidth = 632 ExplicitWidth = 775
inherited TBXItem2: TSpTBXItem inherited TBXItem2: TSpTBXItem
ImageIndex = 22 ImageIndex = 22
Images = SmallImages Images = SmallImages
@ -66,7 +67,7 @@ inherited fEditorEmpleados: TfEditorEmpleados
Left = 0 Left = 0
Top = 102 Top = 102
Width = 786 Width = 786
Height = 323 Height = 383
Align = alClient Align = alClient
Font.Charset = DEFAULT_CHARSET Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText Font.Color = clWindowText
@ -78,12 +79,12 @@ inherited fEditorEmpleados: TfEditorEmpleados
ReadOnly = False ReadOnly = False
ExplicitTop = 102 ExplicitTop = 102
ExplicitWidth = 786 ExplicitWidth = 786
ExplicitHeight = 323 ExplicitHeight = 383
inherited cxGrid: TcxGrid inherited cxGrid: TcxGrid
Width = 786 Width = 786
Height = 195 Height = 255
ExplicitWidth = 786 ExplicitWidth = 786
ExplicitHeight = 195 ExplicitHeight = 255
inherited cxGridView: TcxGridDBTableView inherited cxGridView: TcxGridDBTableView
DataController.Summary.FooterSummaryItems = < DataController.Summary.FooterSummaryItems = <
item item
@ -98,28 +99,49 @@ inherited fEditorEmpleados: TfEditorEmpleados
Width = 786 Width = 786
ExplicitWidth = 786 ExplicitWidth = 786
inherited TBXDockablePanel1: TSpTBXDockablePanel inherited TBXDockablePanel1: TSpTBXDockablePanel
Width = 786
ExplicitWidth = 786 ExplicitWidth = 786
inherited dxLayoutControl1: TdxLayoutControl inherited dxLayoutControl1: TdxLayoutControl
Width = 786 Width = 786
ExplicitWidth = 786 ExplicitWidth = 786
inherited txtFiltroTodo: TcxTextEdit inherited txtFiltroTodo: TcxTextEdit
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitWidth = 689 ExplicitWidth = 689
Width = 689 Width = 689
end end
inherited edtFechaIniFiltro: TcxDateEdit inherited edtFechaIniFiltro: TcxDateEdit
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitWidth = 290 ExplicitWidth = 290
Width = 290 Width = 290
end end
inherited edtFechaFinFiltro: TcxDateEdit inherited edtFechaFinFiltro: TcxDateEdit
Left = 394 Left = 324
ExplicitLeft = 394 Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitLeft = 324
ExplicitWidth = 382 ExplicitWidth = 382
Width = 382 Width = 382
end end
inherited eLista: TcxComboBox
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitWidth = 97
Width = 97
end
end end
inherited TBXAlignmentPanel1: TSpTBXDockablePanel inherited TBXAlignmentPanel1: TSpTBXDockablePanel
Width = 786 Width = 776
ExplicitWidth = 786 ExplicitWidth = 776
inherited tbxBotones: TSpTBXToolbar inherited tbxBotones: TSpTBXToolbar
Width = 776 Width = 776
ExplicitWidth = 776 ExplicitWidth = 776
@ -132,15 +154,16 @@ inherited fEditorEmpleados: TfEditorEmpleados
end end
end end
inherited pnlAgrupaciones: TSpTBXDockablePanel inherited pnlAgrupaciones: TSpTBXDockablePanel
Top = 297 Top = 357
ExplicitTop = 297 Width = 786
ExplicitTop = 357
ExplicitWidth = 786 ExplicitWidth = 786
inherited TBXAlignmentPanel1: TSpTBXDockablePanel inherited TBXAlignmentPanel1: TSpTBXDockablePanel
Width = 786 Width = 786
ExplicitWidth = 786 ExplicitWidth = 786
inherited TBXToolbar1: TSpTBXToolbar inherited TBXToolbar1: TSpTBXToolbar
Width = 776 Width = 786
ExplicitWidth = 776 ExplicitWidth = 786
end end
end end
end end

3
Source/Modulos/Contactos/Views/uEditorEmpleados.pas
View File

@ -10,7 +10,8 @@ uses
TB2ExtItems, SpTBXItem, TB2Item, TB2Dock, TB2Toolbar, ExtCtrls, TB2ExtItems, SpTBXItem, TB2Item, TB2Dock, TB2Toolbar, ExtCtrls,
JvExControls, JvComponent, JvNavigationPane, uViewGridBase, uViewGrid, JvExControls, JvComponent, JvNavigationPane, uViewGridBase, uViewGrid,
uViewContactos, uViewEmpleados, uIEditorEmpleados, pngimage, uViewContactos, uViewEmpleados, uIEditorEmpleados, pngimage,
JvExComCtrls, JvStatusBar, JSDialog, uContactosController, uDAInterfaces; JvExComCtrls, JvStatusBar, JSDialog, uContactosController, uDAInterfaces,
StdCtrls, TntStdCtrls, SpTBXEditors;
type type
TfEditorEmpleados = class(TfEditorContactos, IEditorEmpleados) TfEditorEmpleados = class(TfEditorContactos, IEditorEmpleados)

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

@ -82,6 +82,7 @@ inherited frViewClientes: TfrViewClientes
Width = 793 Width = 793
ExplicitWidth = 793 ExplicitWidth = 793
inherited TBXDockablePanel1: TSpTBXDockablePanel inherited TBXDockablePanel1: TSpTBXDockablePanel
Width = 793
ExplicitWidth = 793 ExplicitWidth = 793
inherited dxLayoutControl1: TdxLayoutControl inherited dxLayoutControl1: TdxLayoutControl
Width = 793 Width = 793
@ -124,7 +125,7 @@ inherited frViewClientes: TfrViewClientes
end end
end end
inherited TBXAlignmentPanel1: TSpTBXDockablePanel inherited TBXAlignmentPanel1: TSpTBXDockablePanel
Width = 793 Width = 783
ExplicitWidth = 793 ExplicitWidth = 793
inherited tbxBotones: TSpTBXToolbar inherited tbxBotones: TSpTBXToolbar
Width = 783 Width = 783
@ -135,13 +136,14 @@ inherited frViewClientes: TfrViewClientes
end end
inherited pnlAgrupaciones: TSpTBXDockablePanel inherited pnlAgrupaciones: TSpTBXDockablePanel
Top = 423 Top = 423
ExplicitTop = 423 Width = 793
ExplicitTop = 422
ExplicitWidth = 793 ExplicitWidth = 793
inherited TBXAlignmentPanel1: TSpTBXDockablePanel inherited TBXAlignmentPanel1: TSpTBXDockablePanel
Width = 793 Width = 793
ExplicitWidth = 793 ExplicitWidth = 793
inherited TBXToolbar1: TSpTBXToolbar inherited TBXToolbar1: TSpTBXToolbar
Width = 783 Width = 793
Visible = False Visible = False
ExplicitWidth = 783 ExplicitWidth = 783
end end
@ -156,6 +158,7 @@ inherited frViewClientes: TfrViewClientes
end end
end end
inherited dxPSEngineController1: TdxPSEngineController inherited dxPSEngineController1: TdxPSEngineController
Active = True
Left = 104 Left = 104
end end
inherited cxStyleRepository1: TcxStyleRepository inherited cxStyleRepository1: TcxStyleRepository

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

@ -14,7 +14,10 @@ uses
dxPScxCommon, cxImageComboBox, cxGridCustomPopupMenu, cxGridPopupMenu, dxPScxCommon, cxImageComboBox, cxGridCustomPopupMenu, cxGridPopupMenu,
dxPScxGrid6Lnk, ExtCtrls, JvComponentBase, JvBalloonHint, JvHint, dxPScxGrid6Lnk, ExtCtrls, JvComponentBase, JvBalloonHint, JvHint,
uViewFiltroBase, dxPgsDlg, TB2Item, SpTBXItem, TB2Toolbar, SpTBXDkPanels, TB2Dock, uViewFiltroBase, dxPgsDlg, TB2Item, SpTBXItem, TB2Toolbar, SpTBXDkPanels, TB2Dock,
uDAInterfaces, cxTextEdit, Menus, uCustomView, uViewBase; uDAInterfaces, cxTextEdit, Menus, uCustomView, uViewBase, cxLookAndFeels,
cxLookAndFeelPainters, dxPSPDFExportCore, dxPSPDFExport, cxDrawTextUtils,
dxPSPrVwStd, dxPSPrVwAdv, dxPScxEditorProducers, dxPScxExtEditorProducers,
dxPScxPageControlProducer;
type type
IViewClientes = interface(IViewContactos) IViewClientes = interface(IViewContactos)

117
Source/Modulos/Contactos/Views/uViewContacto.dfm
View File

@ -12,7 +12,6 @@ inherited frViewContacto: TfrViewContacto
ParentBackground = True ParentBackground = True
TabOrder = 0 TabOrder = 0
TabStop = False TabStop = False
AutoContentSizes = [acsWidth, acsHeight]
object PngSpeedButton1: TPngSpeedButton object PngSpeedButton1: TPngSpeedButton
Left = 629 Left = 629
Top = 222 Top = 222
@ -445,7 +444,6 @@ inherited frViewContacto: TfrViewContacto
Top = 28 Top = 28
DataBinding.DataField = 'REFERENCIA' DataBinding.DataField = 'REFERENCIA'
DataBinding.DataSource = dsContacto DataBinding.DataSource = dsContacto
Enabled = False
Style.BorderColor = clWindowFrame Style.BorderColor = clWindowFrame
Style.BorderStyle = ebs3D Style.BorderStyle = ebs3D
Style.Color = clWindow Style.Color = clWindow
@ -512,194 +510,194 @@ inherited frViewContacto: TfrViewContacto
Width = 256 Width = 256
end end
object dxLayoutControlContactoGroup_Root: TdxLayoutGroup object dxLayoutControlContactoGroup_Root: TdxLayoutGroup
ShowCaption = False AlignHorz = ahParentManaged
AlignVert = avParentManaged
CaptionOptions.Visible = False
ButtonOptions.Buttons = <>
Hidden = True Hidden = True
ShowBorder = False ShowBorder = False
object dxLayoutControlContactoGroup9: TdxLayoutGroup object dxLayoutControlContactoGroup9: TdxLayoutGroup
ShowCaption = False CaptionOptions.Visible = False
ButtonOptions.Buttons = <>
Hidden = True Hidden = True
LayoutDirection = ldHorizontal LayoutDirection = ldHorizontal
ShowBorder = False ShowBorder = False
object dxLayoutControlContactoGroup4: TdxLayoutGroup object dxLayoutControlContactoGroup4: TdxLayoutGroup
AutoAligns = [aaVertical]
AlignHorz = ahClient AlignHorz = ahClient
ShowCaption = False CaptionOptions.Visible = False
ButtonOptions.Buttons = <>
Hidden = True Hidden = True
ShowBorder = False ShowBorder = False
object dxLayoutControlContactoGroup1: TdxLayoutGroup object dxLayoutControlContactoGroup1: TdxLayoutGroup
AutoAligns = [aaHorizontal]
AlignVert = avClient AlignVert = avClient
Caption = 'Datos generales' CaptionOptions.Text = 'Datos generales'
ButtonOptions.Buttons = <>
object dxLayoutControlContactoGroup16: TdxLayoutGroup object dxLayoutControlContactoGroup16: TdxLayoutGroup
ShowCaption = False CaptionOptions.Visible = False
ButtonOptions.Buttons = <>
Hidden = True Hidden = True
LayoutDirection = ldHorizontal LayoutDirection = ldHorizontal
ShowBorder = False ShowBorder = False
object dxLayoutControlContactoItem25: TdxLayoutItem object dxLayoutControlContactoItem25: TdxLayoutItem
AutoAligns = [aaVertical]
AlignHorz = ahClient AlignHorz = ahClient
Caption = 'C'#243'digo:' CaptionOptions.Text = 'C'#243'digo:'
Control = eReferencia Control = eReferencia
ControlOptions.ShowBorder = False ControlOptions.ShowBorder = False
end end
object dxLayoutControlContactoItem14: TdxLayoutItem object dxLayoutControlContactoItem14: TdxLayoutItem
AutoAligns = [aaVertical]
AlignHorz = ahClient AlignHorz = ahClient
Caption = 'NIF/CIF:' CaptionOptions.Text = 'NIF/CIF:'
Control = eNIFCIF Control = eNIFCIF
ControlOptions.ShowBorder = False ControlOptions.ShowBorder = False
end end
end end
object dxLayoutControlContactoItem13: TdxLayoutItem object dxLayoutControlContactoItem13: TdxLayoutItem
Caption = 'Nombre:' CaptionOptions.Text = 'Nombre:'
Control = eNombre Control = eNombre
ControlOptions.ShowBorder = False ControlOptions.ShowBorder = False
end end
end end
object dxLayoutControlContactoGroup3: TdxLayoutGroup object dxLayoutControlContactoGroup3: TdxLayoutGroup
AutoAligns = [aaHorizontal] AlignVert = avTop
Caption = 'Direcci'#243'n' CaptionOptions.Text = 'Direcci'#243'n'
ButtonOptions.Buttons = <>
object dxLayoutControlContactoItem1: TdxLayoutItem object dxLayoutControlContactoItem1: TdxLayoutItem
Caption = 'Calle:' CaptionOptions.Text = 'Calle:'
Control = eCalle Control = eCalle
ControlOptions.ShowBorder = False ControlOptions.ShowBorder = False
end end
object dxLayoutControlContactoGroup10: TdxLayoutGroup object dxLayoutControlContactoGroup10: TdxLayoutGroup
ShowCaption = False CaptionOptions.Visible = False
ButtonOptions.Buttons = <>
Hidden = True Hidden = True
LayoutDirection = ldHorizontal LayoutDirection = ldHorizontal
ShowBorder = False ShowBorder = False
object dxLayoutControlContactoItem2: TdxLayoutItem object dxLayoutControlContactoItem2: TdxLayoutItem
AutoAligns = [aaVertical]
AlignHorz = ahClient AlignHorz = ahClient
Caption = 'Provincia:' CaptionOptions.Text = 'Provincia:'
Control = cbProvincia Control = cbProvincia
ControlOptions.ShowBorder = False ControlOptions.ShowBorder = False
end end
object dxLayoutControlContactoItem4: TdxLayoutItem object dxLayoutControlContactoItem4: TdxLayoutItem
AutoAligns = [aaVertical]
AlignHorz = ahRight AlignHorz = ahRight
Caption = 'C.P.:' CaptionOptions.Text = 'C.P.:'
Control = eCodigoPostal Control = eCodigoPostal
ControlOptions.ShowBorder = False ControlOptions.ShowBorder = False
end end
end end
object dxLayoutControlContactoItem3: TdxLayoutItem object dxLayoutControlContactoItem3: TdxLayoutItem
AutoAligns = [aaVertical]
AlignHorz = ahClient AlignHorz = ahClient
Caption = 'Poblaci'#243'n:' CaptionOptions.Text = 'Poblaci'#243'n:'
Control = cbPoblacion Control = cbPoblacion
ControlOptions.ShowBorder = False ControlOptions.ShowBorder = False
end end
object dxLayoutControlContactoItem116: TdxLayoutItem object dxLayoutControlContactoItem116: TdxLayoutItem
Caption = 'Pa'#237's:' CaptionOptions.Text = 'Pa'#237's:'
Control = ePais Control = ePais
ControlOptions.ShowBorder = False ControlOptions.ShowBorder = False
end end
object dxLayoutControlContactoItem167: TdxLayoutItem object dxLayoutControlContactoItem167: TdxLayoutItem
Caption = 'Persona contacto:' CaptionOptions.Text = 'Persona contacto:'
Control = ePersonaContacto Control = ePersonaContacto
ControlOptions.ShowBorder = False ControlOptions.ShowBorder = False
end end
end end
end end
object dxLayoutControlContactoGroup6: TdxLayoutGroup object dxLayoutControlContactoGroup6: TdxLayoutGroup
AutoAligns = [aaVertical]
AlignHorz = ahClient AlignHorz = ahClient
ShowCaption = False CaptionOptions.Visible = False
ButtonOptions.Buttons = <>
Hidden = True Hidden = True
ShowBorder = False ShowBorder = False
object dxLayoutControlContactoGroup2: TdxLayoutGroup object dxLayoutControlContactoGroup2: TdxLayoutGroup
Caption = 'Tel'#233'fonos' CaptionOptions.Text = 'Tel'#233'fonos'
ButtonOptions.Buttons = <>
object dxLayoutControlContactoItem10: TdxLayoutItem object dxLayoutControlContactoItem10: TdxLayoutItem
Caption = 'Tel'#233'fono 1:' CaptionOptions.Text = 'Tel'#233'fono 1:'
Control = eTlfTrabajo Control = eTlfTrabajo
ControlOptions.ShowBorder = False ControlOptions.ShowBorder = False
end end
object dxLayoutControlContactoItem9: TdxLayoutItem object dxLayoutControlContactoItem9: TdxLayoutItem
Caption = 'Tel'#233'fono 2:' CaptionOptions.Text = 'Tel'#233'fono 2:'
Control = eTlfParticular Control = eTlfParticular
ControlOptions.ShowBorder = False ControlOptions.ShowBorder = False
end end
object dxLayoutControlContactoItem11: TdxLayoutItem object dxLayoutControlContactoItem11: TdxLayoutItem
Caption = 'M'#243'vil:' CaptionOptions.Text = 'M'#243'vil:'
Control = eTlfMovil Control = eTlfMovil
ControlOptions.ShowBorder = False ControlOptions.ShowBorder = False
end end
object dxLayoutControlContactoItem12: TdxLayoutItem object dxLayoutControlContactoItem12: TdxLayoutItem
Caption = 'Fax:' CaptionOptions.Text = 'Fax:'
Control = eFax Control = eFax
ControlOptions.ShowBorder = False ControlOptions.ShowBorder = False
end end
end end
object dxLayoutControlContactoGroup5: TdxLayoutGroup object dxLayoutControlContactoGroup5: TdxLayoutGroup
Caption = 'Correo electr'#243'nico e internet' CaptionOptions.Text = 'Correo electr'#243'nico e internet'
ButtonOptions.Buttons = <>
object dxLayoutControlContactoGroup12: TdxLayoutGroup object dxLayoutControlContactoGroup12: TdxLayoutGroup
ShowCaption = False CaptionOptions.Visible = False
ButtonOptions.Buttons = <>
Hidden = True Hidden = True
LayoutDirection = ldHorizontal LayoutDirection = ldHorizontal
ShowBorder = False ShowBorder = False
object dxLayoutControlContactoItem7: TdxLayoutItem object dxLayoutControlContactoItem7: TdxLayoutItem
AutoAligns = [aaVertical]
AlignHorz = ahClient AlignHorz = ahClient
Caption = 'Correo de trabajo:' CaptionOptions.Text = 'Correo de trabajo:'
Control = eMailTrabajo Control = eMailTrabajo
ControlOptions.ShowBorder = False ControlOptions.ShowBorder = False
end end
object dxLayoutControlContactoItem18: TdxLayoutItem object dxLayoutControlContactoItem18: TdxLayoutItem
AutoAligns = [aaVertical]
AlignHorz = ahRight AlignHorz = ahRight
Caption = 'PngSpeedButton3' CaptionOptions.Text = 'PngSpeedButton3'
ShowCaption = False CaptionOptions.Visible = False
Control = PngSpeedButton3 Control = PngSpeedButton3
ControlOptions.ShowBorder = False ControlOptions.ShowBorder = False
end end
end end
object dxLayoutControlContactoGroup110: TdxLayoutGroup object dxLayoutControlContactoGroup110: TdxLayoutGroup
ShowCaption = False CaptionOptions.Visible = False
ButtonOptions.Buttons = <>
Hidden = True Hidden = True
LayoutDirection = ldHorizontal LayoutDirection = ldHorizontal
ShowBorder = False ShowBorder = False
object dxLayoutControlContactoGroup13: TdxLayoutGroup object dxLayoutControlContactoGroup13: TdxLayoutGroup
AutoAligns = [aaVertical]
AlignHorz = ahClient AlignHorz = ahClient
ShowCaption = False CaptionOptions.Visible = False
ButtonOptions.Buttons = <>
Hidden = True Hidden = True
ShowBorder = False ShowBorder = False
object dxLayoutControlContactoItem6: TdxLayoutItem object dxLayoutControlContactoItem6: TdxLayoutItem
AutoAligns = [aaVertical]
AlignHorz = ahClient AlignHorz = ahClient
Caption = 'Correo particular:' CaptionOptions.Text = 'Correo particular:'
Control = eMailParticular Control = eMailParticular
ControlOptions.ShowBorder = False ControlOptions.ShowBorder = False
end end
object dxLayoutControlContactoItem5: TdxLayoutItem object dxLayoutControlContactoItem5: TdxLayoutItem
AutoAligns = [aaVertical]
AlignHorz = ahClient AlignHorz = ahClient
Caption = 'P'#225'gina web:' CaptionOptions.Text = 'P'#225'gina web:'
Control = ePaginaWeb Control = ePaginaWeb
ControlOptions.ShowBorder = False ControlOptions.ShowBorder = False
end end
end end
object dxLayoutControlContactoGroup11: TdxLayoutGroup object dxLayoutControlContactoGroup11: TdxLayoutGroup
AutoAligns = [aaVertical]
AlignHorz = ahRight AlignHorz = ahRight
ShowCaption = False CaptionOptions.Visible = False
ButtonOptions.Buttons = <>
Hidden = True Hidden = True
ShowBorder = False ShowBorder = False
object dxLayoutControlContactoItem17: TdxLayoutItem object dxLayoutControlContactoItem17: TdxLayoutItem
AutoAligns = [aaVertical]
AlignHorz = ahRight AlignHorz = ahRight
Caption = 'PngSpeedButton2' CaptionOptions.Text = 'PngSpeedButton2'
ShowCaption = False CaptionOptions.Visible = False
Control = PngSpeedButton2 Control = PngSpeedButton2
ControlOptions.ShowBorder = False ControlOptions.ShowBorder = False
end end
object dxLayoutControlContactoItem15: TdxLayoutItem object dxLayoutControlContactoItem15: TdxLayoutItem
AutoAligns = [aaVertical]
AlignHorz = ahRight AlignHorz = ahRight
Caption = 'PngSpeedButton1' CaptionOptions.Text = 'PngSpeedButton1'
ShowCaption = False CaptionOptions.Visible = False
Control = PngSpeedButton1 Control = PngSpeedButton1
ControlOptions.ShowBorder = False ControlOptions.ShowBorder = False
end end
@ -709,14 +707,13 @@ inherited frViewContacto: TfrViewContacto
end end
end end
object dxLayoutControlContactoGroup7: TdxLayoutGroup object dxLayoutControlContactoGroup7: TdxLayoutGroup
AutoAligns = [aaHorizontal]
AlignVert = avClient AlignVert = avClient
Caption = 'Observaciones' CaptionOptions.Text = 'Observaciones'
ButtonOptions.Buttons = <>
object dxLayoutControlContactoItem8: TdxLayoutItem object dxLayoutControlContactoItem8: TdxLayoutItem
AutoAligns = [aaHorizontal]
AlignVert = avClient AlignVert = avClient
Caption = 'cxDBMemo1' CaptionOptions.Text = 'cxDBMemo1'
ShowCaption = False CaptionOptions.Visible = False
Control = eObservaciones Control = eObservaciones
ControlOptions.ShowBorder = False ControlOptions.ShowBorder = False
end end

3
Source/Modulos/Contactos/Views/uViewContacto.pas
View File

@ -9,7 +9,8 @@ uses
JvComponent, JvFormAutoSize, cxControls, cxContainer, cxEdit, cxTextEdit, JvComponent, JvFormAutoSize, cxControls, cxContainer, cxEdit, cxTextEdit,
cxDBEdit, dxLayoutControl, dxLayoutLookAndFeels, cxMemo, cxHyperLinkEdit, cxDBEdit, dxLayoutControl, dxLayoutLookAndFeels, cxMemo, cxHyperLinkEdit,
ImgList, ActnList, PngImageList, PngSpeedButton, uDAInterfaces, uContactosController, ImgList, ActnList, PngImageList, PngSpeedButton, uDAInterfaces, uContactosController,
cxGraphics, cxMaskEdit, cxDropDownEdit; cxGraphics, cxMaskEdit, cxDropDownEdit, cxLookAndFeels, cxLookAndFeelPainters,
dxLayoutcxEditAdapters;
type type
IViewContacto = interface(IViewBase) IViewContacto = interface(IViewBase)

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

@ -101,6 +101,7 @@ inherited frViewContactos: TfrViewContactos
Width = 557 Width = 557
ExplicitWidth = 557 ExplicitWidth = 557
inherited TBXDockablePanel1: TSpTBXDockablePanel inherited TBXDockablePanel1: TSpTBXDockablePanel
Width = 557
ExplicitWidth = 557 ExplicitWidth = 557
inherited dxLayoutControl1: TdxLayoutControl inherited dxLayoutControl1: TdxLayoutControl
Width = 557 Width = 557
@ -122,12 +123,12 @@ inherited frViewContactos: TfrViewContactos
Width = 121 Width = 121
end end
inherited edtFechaFinFiltro: TcxDateEdit inherited edtFechaFinFiltro: TcxDateEdit
Left = 161 Left = 175
Style.LookAndFeel.SkinName = '' Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = '' StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = '' StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = '' StyleHot.LookAndFeel.SkinName = ''
ExplicitLeft = 161 ExplicitLeft = 175
ExplicitWidth = 322 ExplicitWidth = 322
Width = 322 Width = 322
end end
@ -139,7 +140,7 @@ inherited frViewContactos: TfrViewContactos
end end
end end
inherited TBXAlignmentPanel1: TSpTBXDockablePanel inherited TBXAlignmentPanel1: TSpTBXDockablePanel
Width = 557 Width = 547
ExplicitWidth = 557 ExplicitWidth = 557
inherited tbxBotones: TSpTBXToolbar inherited tbxBotones: TSpTBXToolbar
Width = 547 Width = 547
@ -150,13 +151,14 @@ inherited frViewContactos: TfrViewContactos
end end
inherited pnlAgrupaciones: TSpTBXDockablePanel inherited pnlAgrupaciones: TSpTBXDockablePanel
Top = 432 Top = 432
ExplicitTop = 432 Width = 557
ExplicitTop = 431
ExplicitWidth = 557 ExplicitWidth = 557
inherited TBXAlignmentPanel1: TSpTBXDockablePanel inherited TBXAlignmentPanel1: TSpTBXDockablePanel
Width = 557 Width = 557
ExplicitWidth = 557 ExplicitWidth = 557
inherited TBXToolbar1: TSpTBXToolbar inherited TBXToolbar1: TSpTBXToolbar
Width = 547 Width = 557
ExplicitWidth = 547 ExplicitWidth = 547
end end
end end

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

@ -14,7 +14,9 @@ uses
dxPSEdgePatterns, dxPSCore, dxPScxCommon, dxPSEdgePatterns, dxPSCore, dxPScxCommon,
uDataModuleClientes, cxGridCustomPopupMenu, cxGridPopupMenu, uViewFiltroBase, uDataModuleClientes, cxGridCustomPopupMenu, cxGridPopupMenu, uViewFiltroBase,
ComCtrls, TB2Item, SpTBXItem, TB2Toolbar, dxPgsDlg, dxPScxGrid6Lnk, uDAInterfaces, SpTBXDkPanels, ComCtrls, TB2Item, SpTBXItem, TB2Toolbar, dxPgsDlg, dxPScxGrid6Lnk, uDAInterfaces, SpTBXDkPanels,
TB2Dock, uCustomView, uViewBase; TB2Dock, uCustomView, uViewBase, cxLookAndFeels, cxLookAndFeelPainters,
dxPSPDFExportCore, dxPSPDFExport, cxDrawTextUtils, dxPSPrVwStd, dxPSPrVwAdv,
dxPScxEditorProducers, dxPScxExtEditorProducers, dxPScxPageControlProducer;
type type
IViewContactos = interface(IViewGrid) IViewContactos = interface(IViewGrid)

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

@ -47,16 +47,38 @@ inherited frViewEmpleados: TfrViewEmpleados
inherited frViewFiltroBase1: TfrViewFiltroBase inherited frViewFiltroBase1: TfrViewFiltroBase
inherited TBXDockablePanel1: TSpTBXDockablePanel inherited TBXDockablePanel1: TSpTBXDockablePanel
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
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitWidth = 238 ExplicitWidth = 238
Width = 238 Width = 238
end end
inherited edtFechaFinFiltro: TcxDateEdit inherited edtFechaFinFiltro: TcxDateEdit
Left = 342 Left = 263
ExplicitLeft = 342 Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitLeft = 263
ExplicitWidth = 205 ExplicitWidth = 205
Width = 205 Width = 205
end end
inherited eLista: TcxComboBox
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitWidth = 140
Width = 140
end
end end
end end
end end

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

@ -12,7 +12,10 @@ uses
cxGridLevel, cxGridCustomTableView, cxGridTableView, cxGridDBTableView, cxGridLevel, cxGridCustomTableView, cxGridTableView, cxGridDBTableView,
cxClasses, cxControls, cxGridCustomView, cxGrid, dxPgsDlg, ActnList, TB2Item, cxClasses, cxControls, cxGridCustomView, cxGrid, dxPgsDlg, ActnList, TB2Item,
SpTBXItem, TB2Toolbar, SpTBXDkPanels, TB2Dock, uViewFiltroBase, uDAInterfaces, SpTBXItem, TB2Toolbar, SpTBXDkPanels, TB2Dock, uViewFiltroBase, uDAInterfaces,
Menus; Menus, cxLookAndFeels, cxLookAndFeelPainters, dxPSPDFExportCore,
dxPSPDFExport, cxDrawTextUtils, dxPSPrVwStd, dxPSPrVwAdv,
dxPScxEditorProducers, dxPScxExtEditorProducers, dxPScxPageControlProducer,
uCustomView, uViewBase;
type type
IViewEmpleados = interface(IViewContactos) IViewEmpleados = interface(IViewContactos)

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

@ -51,6 +51,7 @@ inherited frViewProveedores: TfrViewProveedores
Width = 483 Width = 483
ExplicitWidth = 483 ExplicitWidth = 483
inherited TBXDockablePanel1: TSpTBXDockablePanel inherited TBXDockablePanel1: TSpTBXDockablePanel
Width = 483
ExplicitWidth = 483 ExplicitWidth = 483
inherited dxLayoutControl1: TdxLayoutControl inherited dxLayoutControl1: TdxLayoutControl
Width = 483 Width = 483
@ -72,12 +73,12 @@ inherited frViewProveedores: TfrViewProveedores
Width = 125 Width = 125
end end
inherited edtFechaFinFiltro: TcxDateEdit inherited edtFechaFinFiltro: TcxDateEdit
Left = 157 Left = 172
Style.LookAndFeel.SkinName = '' Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = '' StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = '' StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = '' StyleHot.LookAndFeel.SkinName = ''
ExplicitLeft = 157 ExplicitLeft = 172
ExplicitWidth = 244 ExplicitWidth = 244
Width = 244 Width = 244
end end
@ -89,8 +90,8 @@ inherited frViewProveedores: TfrViewProveedores
end end
end end
inherited TBXAlignmentPanel1: TSpTBXDockablePanel inherited TBXAlignmentPanel1: TSpTBXDockablePanel
Width = 483 Width = 473
ExplicitWidth = 483 ExplicitWidth = 473
inherited tbxBotones: TSpTBXToolbar inherited tbxBotones: TSpTBXToolbar
Width = 473 Width = 473
ExplicitWidth = 473 ExplicitWidth = 473
@ -100,14 +101,15 @@ inherited frViewProveedores: TfrViewProveedores
end end
inherited pnlAgrupaciones: TSpTBXDockablePanel inherited pnlAgrupaciones: TSpTBXDockablePanel
Top = 409 Top = 409
Width = 483
ExplicitTop = 409 ExplicitTop = 409
ExplicitWidth = 483 ExplicitWidth = 483
inherited TBXAlignmentPanel1: TSpTBXDockablePanel inherited TBXAlignmentPanel1: TSpTBXDockablePanel
Width = 483 Width = 483
ExplicitWidth = 483 ExplicitWidth = 483
inherited TBXToolbar1: TSpTBXToolbar inherited TBXToolbar1: TSpTBXToolbar
Width = 473 Width = 483
ExplicitWidth = 473 ExplicitWidth = 483
end end
end end
end end
@ -117,6 +119,9 @@ inherited frViewProveedores: TfrViewProveedores
BuiltInReportLink = True BuiltInReportLink = True
end end
end end
inherited dxPSEngineController1: TdxPSEngineController
Active = True
end
inherited GridPNGImageList: TPngImageList inherited GridPNGImageList: TPngImageList
PngImages = < PngImages = <
item item

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

@ -12,7 +12,10 @@ uses
cxGridLevel, cxGridCustomTableView, cxGridTableView, cxGridDBTableView, cxGridLevel, cxGridCustomTableView, cxGridTableView, cxGridDBTableView,
cxClasses, cxControls, cxGridCustomView, cxGrid, dxPgsDlg, ActnList, TB2Item, cxClasses, cxControls, cxGridCustomView, cxGrid, dxPgsDlg, ActnList, TB2Item,
SpTBXItem, TB2Toolbar, SpTBXDkPanels, TB2Dock, uViewFiltroBase, cxImageComboBox, SpTBXItem, TB2Toolbar, SpTBXDkPanels, TB2Dock, uViewFiltroBase, cxImageComboBox,
uDAInterfaces, Menus, uCustomView, uViewBase; uDAInterfaces, Menus, uCustomView, uViewBase, cxLookAndFeels,
cxLookAndFeelPainters, dxPSPDFExportCore, dxPSPDFExport, cxDrawTextUtils,
dxPSPrVwStd, dxPSPrVwAdv, dxPScxEditorProducers, dxPScxExtEditorProducers,
dxPScxPageControlProducer;
type type
IViewProveedores = interface(IViewContactos) IViewProveedores = interface(IViewContactos)

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

@ -67,7 +67,7 @@ inherited frViewVendedor: TfrViewVendedor
StyleDisabled.LookAndFeel.SkinName = '' StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = '' StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = '' StyleHot.LookAndFeel.SkinName = ''
TabOrder = 16 TabOrder = 17
end end
object edtComision: TcxDBSpinEdit [8] object edtComision: TcxDBSpinEdit [8]
Left = 121 Left = 121
@ -105,7 +105,7 @@ inherited frViewVendedor: TfrViewVendedor
StyleDisabled.LookAndFeel.SkinName = '' StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = '' StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = '' StyleHot.LookAndFeel.SkinName = ''
TabOrder = 10 TabOrder = 11
ExplicitLeft = 463 ExplicitLeft = 463
ExplicitWidth = 91 ExplicitWidth = 91
Width = 91 Width = 91
@ -116,7 +116,7 @@ inherited frViewVendedor: TfrViewVendedor
StyleDisabled.LookAndFeel.SkinName = '' StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = '' StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = '' StyleHot.LookAndFeel.SkinName = ''
TabOrder = 9 TabOrder = 10
ExplicitLeft = 463 ExplicitLeft = 463
ExplicitWidth = 127 ExplicitWidth = 127
Width = 127 Width = 127
@ -127,7 +127,7 @@ inherited frViewVendedor: TfrViewVendedor
StyleDisabled.LookAndFeel.SkinName = '' StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = '' StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = '' StyleHot.LookAndFeel.SkinName = ''
TabOrder = 11 TabOrder = 12
ExplicitLeft = 463 ExplicitLeft = 463
ExplicitWidth = 155 ExplicitWidth = 155
Width = 155 Width = 155
@ -138,7 +138,7 @@ inherited frViewVendedor: TfrViewVendedor
StyleDisabled.LookAndFeel.SkinName = '' StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = '' StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = '' StyleHot.LookAndFeel.SkinName = ''
TabOrder = 12 TabOrder = 13
ExplicitLeft = 463 ExplicitLeft = 463
ExplicitWidth = 121 ExplicitWidth = 121
Width = 121 Width = 121
@ -170,7 +170,7 @@ inherited frViewVendedor: TfrViewVendedor
StyleDisabled.LookAndFeel.SkinName = '' StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = '' StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = '' StyleHot.LookAndFeel.SkinName = ''
TabOrder = 13 TabOrder = 14
ExplicitLeft = 463 ExplicitLeft = 463
ExplicitWidth = 129 ExplicitWidth = 129
Width = 129 Width = 129
@ -182,7 +182,7 @@ inherited frViewVendedor: TfrViewVendedor
StyleDisabled.LookAndFeel.SkinName = '' StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = '' StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = '' StyleHot.LookAndFeel.SkinName = ''
TabOrder = 14 TabOrder = 15
ExplicitLeft = 463 ExplicitLeft = 463
ExplicitWidth = 165 ExplicitWidth = 165
Width = 165 Width = 165
@ -193,7 +193,7 @@ inherited frViewVendedor: TfrViewVendedor
StyleDisabled.LookAndFeel.SkinName = '' StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = '' StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = '' StyleHot.LookAndFeel.SkinName = ''
TabOrder = 15 TabOrder = 16
ExplicitLeft = 463 ExplicitLeft = 463
ExplicitWidth = 165 ExplicitWidth = 165
Width = 165 Width = 165
@ -214,25 +214,32 @@ inherited frViewVendedor: TfrViewVendedor
StyleDisabled.LookAndFeel.SkinName = '' StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = '' StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = '' StyleHot.LookAndFeel.SkinName = ''
TabOrder = 8 TabOrder = 9
ExplicitLeft = 121 ExplicitLeft = 121
ExplicitWidth = 152 ExplicitWidth = 152
Width = 152 Width = 152
end end
inherited ePais: TcxDBTextEdit
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
TabOrder = 8
end
inherited dxLayoutControlContactoGroup_Root: TdxLayoutGroup inherited dxLayoutControlContactoGroup_Root: TdxLayoutGroup
inherited dxLayoutControlContactoGroup9: TdxLayoutGroup inherited dxLayoutControlContactoGroup9: TdxLayoutGroup
inherited dxLayoutControlContactoGroup4: TdxLayoutGroup inherited dxLayoutControlContactoGroup4: TdxLayoutGroup
inherited dxLayoutControlContactoGroup1: TdxLayoutGroup inherited dxLayoutControlContactoGroup1: TdxLayoutGroup
inherited dxLayoutControlContactoGroup16: TdxLayoutGroup inherited dxLayoutControlContactoGroup16: TdxLayoutGroup
inherited dxLayoutControlContactoItem14: TdxLayoutItem inherited dxLayoutControlContactoItem14: TdxLayoutItem
Caption = 'DNI:' CaptionOptions.Text = 'DNI:'
end end
end end
inherited dxLayoutControlContactoItem13: TdxLayoutItem inherited dxLayoutControlContactoItem13: TdxLayoutItem
Caption = 'Nombre y apellidos:' CaptionOptions.Text = 'Nombre y apellidos:'
end end
object dxLayoutControlContactoItem20: TdxLayoutItem object dxLayoutControlContactoItem20: TdxLayoutItem
Caption = 'Comisi'#243'n:' CaptionOptions.Text = 'Comisi'#243'n:'
Control = edtComision Control = edtComision
ControlOptions.ShowBorder = False ControlOptions.ShowBorder = False
end end

4
Source/Modulos/Contactos/Views/uViewVendedor.pas
View File

@ -9,7 +9,8 @@ uses
cxMaskEdit, cxSpinEdit, ImgList, PngImageList, ActnList, cxHyperLinkEdit, cxMaskEdit, cxSpinEdit, ImgList, PngImageList, ActnList, cxHyperLinkEdit,
Buttons, PngSpeedButton, cxDropDownEdit, cxCalendar, cxGraphics, Buttons, PngSpeedButton, cxDropDownEdit, cxCalendar, cxGraphics,
uDAInterfaces, uCustomView, uViewBase, uBizContactos, uDAInterfaces, uCustomView, uViewBase, uBizContactos,
uViewObservaciones; uViewObservaciones, cxLookAndFeels, cxLookAndFeelPainters,
dxLayoutcxEditAdapters;
type type
IViewVendedor = interface(IViewContacto) IViewVendedor = interface(IViewContacto)
@ -22,7 +23,6 @@ type
private private
FDataItem : TDADataTable; FDataItem : TDADataTable;
FListaUsuarios : TStringList;
function GetDataItem: TDADataTable; function GetDataItem: TDADataTable;
procedure SetDataItem(const Value: TDADataTable); procedure SetDataItem(const Value: TDADataTable);

4
Source/Modulos/Contactos/Views/uViewVendedores.pas
View File

@ -12,7 +12,9 @@ uses
cxGridLevel, cxGridCustomTableView, cxGridTableView, cxGridDBTableView, cxGridLevel, cxGridCustomTableView, cxGridTableView, cxGridDBTableView,
cxClasses, cxControls, cxGridCustomView, cxGrid, dxPgsDlg, ActnList, TB2Item, cxClasses, cxControls, cxGridCustomView, cxGrid, dxPgsDlg, ActnList, TB2Item,
SpTBXItem, TB2Toolbar, SpTBXDkPanels, TB2Dock, uViewFiltroBase, uDAInterfaces, SpTBXItem, TB2Toolbar, SpTBXDkPanels, TB2Dock, uViewFiltroBase, uDAInterfaces,
uCustomView, uViewBase; uCustomView, uViewBase, cxLookAndFeels, cxLookAndFeelPainters,
dxPSPDFExportCore, dxPSPDFExport, cxDrawTextUtils, dxPSPrVwStd, dxPSPrVwAdv,
dxPScxEditorProducers, dxPScxExtEditorProducers, dxPScxPageControlProducer;
type type
IViewVendedores = interface(IViewContactos) IViewVendedores = interface(IViewContactos)

4
Source/Modulos/Referencias/Views/uEditorReferencias.dfm
View File

@ -55,8 +55,8 @@ object fEditorReferencias: TfEditorReferencias
Height = 328 Height = 328
Align = alClient Align = alClient
TabOrder = 0 TabOrder = 0
LookAndFeel.Kind = lfOffice11 LookAndFeel.Kind = lfStandard
LookAndFeel.NativeStyle = True LookAndFeel.NativeStyle = True
object ListaReferenciasView: TcxGridDBTableView object ListaReferenciasView: TcxGridDBTableView
NavigatorButtons.ConfirmDelete = False NavigatorButtons.ConfirmDelete = False
FilterBox.Visible = fvNever FilterBox.Visible = fvNever

BIN
Source/Servidor/FactuGES_Server.RES
View File

Binary file not shown.

2
Source/Servidor/FactuGES_Server.rc
View File

@ -14,7 +14,7 @@ BEGIN
BEGIN BEGIN
VALUE "FileVersion", "1.0.0.0\0" VALUE "FileVersion", "1.0.0.0\0"
VALUE "ProductVersion", "1.0.0.0\0" VALUE "ProductVersion", "1.0.0.0\0"
VALUE "CompileDate", "viernes, 22 de enero de 2010 10:34\0" VALUE "CompileDate", "viernes, 22 de enero de 2010 12:49\0"
END END
END END
BLOCK "VarFileInfo" BLOCK "VarFileInfo"