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

* Actualización de componentes

Browse Source 
- RemObjects 6.0.39.777
- Data_Abstract 6.0.39.777
- JCL 2.1.1
- JVCL 3.39
- DevExpressVCL x.48
- FastReport4 4.8.11
- TB2k 2.2.2
- TntUnicodeControls 2.3.0
- SpTBXLib 2.4.4

* Actualización a FinalBuilder 6

git-svn-id: https://192.168.0.254/svn/Proyectos.Noviseda_FactuGES2/trunk@47 f33bb606-9f5c-448d-9c99-757f00063c96
This commit is contained in:
David Arranz 2010-01-22 09:52:58 +00:00
parent 1a489d3455
commit d8aa5d14b7
369 changed files with 6867 additions and 24020 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

BIN
Build/Build.fbl6 Normal file
View File

Binary file not shown.

19535
Build/Build.fbp5
View File

File diff suppressed because it is too large Load Diff

21
Build/Build.fbpInf Normal file
View File

@ -0,0 +1,21 @@
<project ServerProjectName="">
<watches/>
<collapsedNodes></collapsedNodes>
<breakpoints></breakpoints>
<actions/>
<propertysets/>
<variables>
<project_path>
<![CDATA[C:\Codigo Noviseda]]>
</project_path>
</variables>
<properties>
<Author></Author>
<Notes>
<![CDATA[]]>
</Notes>
<LastBuildRun>00:00:19</LastBuildRun>
<LastBuildStart>21/01/2010 12:15:43</LastBuildStart>
<LastBuildState>False</LastBuildState>
</properties>
</project>

1
Build/Build.fbv
View File

@ -1 +0,0 @@
<variables><project_path><![CDATA[C:\Codigo Noviseda]]></project_path></variables>

BIN
Build/Build.fbz6 Normal file
View File

Binary file not shown.

3900
Resources/Idiomas/languages.ini Normal file
View File

File diff suppressed because it is too large Load Diff

2
Source/ApplicationBase/Empresas/Servidor/srvEmpresas_Impl.pas
View File

@ -16,7 +16,7 @@ uses
{Used RODLs:} DataAbstract4_Intf,
{Generated:} FactuGES_Intf, uDAScriptingProvider, uDABusinessProcessor,
uDABin2DataStreamer, uDADataStreamer, uDAClasses, uDAInterfaces,
uDADataTable;
uDADataTable, uROClient;
type
{ TsrvEmpresas }

36
Source/ApplicationBase/Empresas/Views/uEditorEmpresa.dfm
View File

@ -26,55 +26,55 @@ inherited fEditorEmpresa: TfEditorEmpresa
AnchorY = 14
end
end
inherited TBXDock: TTBXDock
inherited TBXDock: TSpTBXDock
Width = 674
ExplicitWidth = 674
inherited tbxMain: TTBXToolbar
inherited tbxMain: TSpTBXToolbar
ExplicitWidth = 330
inherited TBXItem2: TTBXItem
inherited TBXItem2: TSpTBXItem
Visible = False
end
inherited TBXItem5: TTBXItem
inherited TBXItem5: TSpTBXItem
Visible = False
end
inherited TBXItem23: TTBXItem
inherited TBXItem23: TSpTBXItem
Visible = False
end
inherited TBXItem3: TTBXItem
inherited TBXItem3: TSpTBXItem
Visible = False
end
end
inherited tbxMenu: TTBXToolbar
inherited tbxMenu: TSpTBXToolbar
DockPos = 0
ExplicitWidth = 674
inherited TBXSubmenuItem4: TTBXSubmenuItem
inherited TBXItem8: TTBXItem
inherited TBXSubmenuItem4: TSpTBXSubmenuItem
inherited TBXItem8: TSpTBXItem
Visible = False
end
inherited TBXSeparatorItem5: TTBXSeparatorItem
inherited TBXSeparatorItem5: TSpTBXSeparatorItem
Visible = False
end
inherited TBXItem10: TTBXItem
inherited TBXItem10: TSpTBXItem
Visible = False
end
inherited TBXItem21: TTBXItem
inherited TBXItem21: TSpTBXItem
Visible = False
end
inherited TBXItem22: TTBXItem
inherited TBXItem22: TSpTBXItem
Visible = False
end
inherited TBXItem9: TTBXItem
inherited TBXItem9: TSpTBXItem
Visible = False
end
end
inherited TBXSubmenuItem1: TTBXSubmenuItem
inherited TBXItem32: TTBXItem
inherited TBXSubmenuItem1: TSpTBXSubmenuItem
inherited TBXItem32: TSpTBXItem
Visible = False
end
inherited TBXItem31: TTBXItem
inherited TBXItem31: TSpTBXItem
Visible = False
end
inherited TBXSeparatorItem13: TTBXSeparatorItem
inherited TBXSeparatorItem13: TSpTBXSeparatorItem
Visible = False
end
end

4
Source/ApplicationBase/Empresas/Views/uEditorEmpresa.pas
View File

@ -6,10 +6,10 @@ uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, uEditorDBItem, ToolWin, ComCtrls, JvExControls, JvComponent,
uBizEmpresas, JvNavigationPane, ActnList,
uEditorBase, StdActns, TB2Dock, TB2Toolbar, TBX, ImgList, PngImageList,
uEditorBase, StdActns, TB2Dock, TB2Toolbar, SpTBXItem, ImgList, PngImageList,
TB2Item, uEditorItem, DB, uDADataTable, uEditorDBBase, JvFormAutoSize,
uDAScriptingProvider, uDACDSDataTable, StdCtrls, pngimage, ExtCtrls,
TBXDkPanels, JvButton, AppEvnts, uCustomView, uViewBase,
SpTBXDkPanels, JvButton, AppEvnts, uCustomView, uViewBase,
JvAppStorage, JvAppRegistryStorage, JvFormPlacement, JvComponentBase,
uViewEmpresa, uIEditorEmpresa, uEmpresasController, dxLayoutLookAndFeels,
JvExComCtrls, JvStatusBar, uViewDetallesGenerico, uViewDatosBancarios,

2
Source/ApplicationBase/Empresas/Views/uViewEmpresa.pas
View File

@ -9,7 +9,7 @@ uses
JvComponent, JvFormAutoSize, cxControls, cxContainer, cxEdit, cxTextEdit,
cxDBEdit, dxLayoutControl, dxLayoutLookAndFeels, cxMemo, cxMaskEdit,
cxSpinEdit, cxImage, JvExControls, JvBitmapButton, ActnList, ImgList,
PngImageList, TB2Item, TBX, TB2Dock, TB2Toolbar, PngSpeedButton, uDAInterfaces,
PngImageList, TB2Item, SpTBXItem, TB2Dock, TB2Toolbar, PngSpeedButton, uDAInterfaces,
cxCurrencyEdit, cxGraphics, cxDropDownEdit, uEmpresasController;
type

3
Source/ApplicationBase/ProvinciasPoblaciones/Servidor/srvProvinciasPoblaciones_Impl.pas
View File

@ -16,7 +16,8 @@ uses
{RemObjects:} uROXMLIntf, uROClientIntf, uROTypes, uROServer, uROServerIntf, uROSessions,
{Required:} uRORemoteDataModule,
{Used RODLs:} DataAbstract4_Intf,
{Generated:} FactuGES_Intf, uDADataStreamer, uDABin2DataStreamer, uDAClasses;
{Generated:} FactuGES_Intf, uDADataStreamer, uDABin2DataStreamer, uDAClasses,
uROClient;
type
{ TsrvProvinciasPoblaciones }

3
Source/ApplicationBase/Usuarios/Servidor/srvUsuarios_Impl.pas
View File

@ -17,7 +17,8 @@ uses
{Required:} uRORemoteDataModule,
{Ancestor Implementation:} DataAbstractService_Impl,
{Used RODLs:} DataAbstract4_Intf,
{Generated:} FactuGES_Intf, uDADataStreamer, uDABin2DataStreamer, uDAClasses;
{Generated:} FactuGES_Intf, uDADataStreamer, uDABin2DataStreamer, uDAClasses,
uROClient;
type
{ TsrvUsuarios }

4
Source/ApplicationBase/Usuarios/Views/uEditorPerfilUsuario.dfm
View File

@ -8,8 +8,8 @@ inherited fEditorPerfilUsuario: TfEditorPerfilUsuario
AnchorY = 14
end
end
inherited TBXDock: TTBXDock
inherited tbxMain: TTBXToolbar
inherited TBXDock: TSpTBXDock
inherited tbxMain: TSpTBXToolbar
ExplicitWidth = 330
end
end

2
Source/ApplicationBase/Usuarios/Views/uEditorPerfilUsuario.pas
View File

@ -6,7 +6,7 @@ uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, uEditorDBItem, JvAppStorage, JvAppRegistryStorage, DB, uDAInterfaces,
uDADataTable, JvComponentBase, JvFormPlacement, ImgList, PngImageList,
StdActns, ActnList, ComCtrls, JvExComCtrls, JvStatusBar, TBX, TB2Item,
StdActns, ActnList, ComCtrls, JvExComCtrls, JvStatusBar, SpTBXItem, TB2Item,
TB2Dock, TB2Toolbar, pngimage, ExtCtrls, JvExControls, JvNavigationPane,
uIEditorPerfilUsuario, uUsuariosController, uCustomView, uViewBase,
uViewPerfilUsuario, uBizUsuarios, dxLayoutLookAndFeels, cxControls,

8
Source/ApplicationBase/Usuarios/Views/uEditorPerfilesUsuario.dfm
View File

@ -14,16 +14,16 @@ inherited fEditorPerfilesUsuario: TfEditorPerfilesUsuario
ExplicitLeft = 813
end
end
inherited TBXDock: TTBXDock
inherited TBXDock: TSpTBXDock
Width = 840
ExplicitWidth = 840
inherited tbxMain: TTBXToolbar
inherited tbxMain: TSpTBXToolbar
ExplicitWidth = 386
end
inherited tbxFiltro: TTBXToolbar
inherited tbxFiltro: TSpTBXToolbar
Visible = False
end
inherited tbxMenu: TTBXToolbar
inherited tbxMenu: TSpTBXToolbar
ExplicitWidth = 840
end
end

4
Source/ApplicationBase/Usuarios/Views/uEditorPerfilesUsuario.pas
View File

@ -6,8 +6,8 @@ uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, uEditorGridBase, Menus, JvAppStorage, JvAppRegistryStorage, DB,
uDAInterfaces, uDADataTable, JvComponentBase, JvFormPlacement, ImgList,
PngImageList, StdActns, ActnList, ComCtrls, JvExComCtrls, JvStatusBar, TBX,
TB2ExtItems, TBXExtItems, TB2Item, TB2Dock, TB2Toolbar, pngimage, ExtCtrls,
PngImageList, StdActns, ActnList, ComCtrls, JvExComCtrls, JvStatusBar, SpTBXItem,
TB2ExtItems, TB2Item, TB2Dock, TB2Toolbar, pngimage, ExtCtrls,
JvExControls, JvNavigationPane, uIEditorPerfilesUsuario,
uUsuariosController, uBizUsuarios, uViewPerfilesUsuario;

14
Source/ApplicationBase/Usuarios/Views/uEditorUsuario.dfm
View File

@ -8,19 +8,19 @@ inherited fEditorUsuario: TfEditorUsuario
AnchorY = 14
end
end
inherited TBXDock: TTBXDock
inherited tbxMain: TTBXToolbar
inherited TBXDock: TSpTBXDock
inherited tbxMain: TSpTBXToolbar
ExplicitWidth = 465
object TBXSeparatorItem6: TTBXSeparatorItem [6]
object TBXSeparatorItem6: TSpTBXSeparatorItem [6]
end
object TBXItem33: TTBXItem [7]
object TBXItem33: TSpTBXItem [7]
Action = actCambiarPassword
end
end
inherited tbxMenu: TTBXToolbar
object TBXSubmenuItem2: TTBXSubmenuItem [4]
inherited tbxMenu: TSpTBXToolbar
object TBXSubmenuItem2: TSpTBXSubmenuItem [4]
Caption = '&Herramientas'
object TBXItem7: TTBXItem
object TBXItem7: TSpTBXItem
Action = actCambiarPassword
end
end

10
Source/ApplicationBase/Usuarios/Views/uEditorUsuario.pas
View File

@ -6,7 +6,7 @@ uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, uEditorDBItem, JvAppStorage, JvAppRegistryStorage, DB, uDAInterfaces,
uDADataTable, JvComponentBase, JvFormPlacement, ImgList, PngImageList,
StdActns, ActnList, ComCtrls, JvExComCtrls, JvStatusBar, TBX, TB2Item,
StdActns, ActnList, ComCtrls, JvExComCtrls, JvStatusBar, SpTBXItem, TB2Item,
TB2Dock, TB2Toolbar, pngimage, ExtCtrls, JvExControls, JvNavigationPane,
uIEditorUsuario, uUsuariosController, uCustomView, uViewBase, uViewUsuario,
uBizUsuarios, dxLayoutLookAndFeels, cxControls, cxContainer, cxEdit, cxLabel;
@ -17,10 +17,10 @@ type
dxLayoutLookAndFeelList1: TdxLayoutLookAndFeelList;
dxLayoutOfficeLookAndFeel1: TdxLayoutOfficeLookAndFeel;
actCambiarPassword: TAction;
TBXSubmenuItem2: TTBXSubmenuItem;
TBXItem7: TTBXItem;
TBXSeparatorItem6: TTBXSeparatorItem;
TBXItem33: TTBXItem;
TBXSubmenuItem2: TSpTBXSubmenuItem;
TBXItem7: TSpTBXItem;
TBXSeparatorItem6: TSpTBXSeparatorItem;
TBXItem33: TSpTBXItem;
procedure actEliminarUpdate(Sender: TObject);
procedure actCambiarPasswordExecute(Sender: TObject);
procedure actCambiarPasswordUpdate(Sender: TObject);

14
Source/ApplicationBase/Usuarios/Views/uEditorUsuarios.dfm
View File

@ -14,23 +14,23 @@ inherited fEditorUsuarios: TfEditorUsuarios
ExplicitLeft = 813
end
end
inherited TBXDock: TTBXDock
inherited TBXDock: TSpTBXDock
Width = 840
ExplicitWidth = 840
inherited tbxMain: TTBXToolbar
inherited tbxMain: TSpTBXToolbar
ExplicitWidth = 521
object TBXItem39: TTBXItem [8]
object TBXItem39: TSpTBXItem [8]
Action = actCambiarPassword
end
end
inherited tbxFiltro: TTBXToolbar
inherited tbxFiltro: TSpTBXToolbar
Visible = False
end
inherited tbxMenu: TTBXToolbar
inherited tbxMenu: TSpTBXToolbar
ExplicitWidth = 840
object TBXSubmenuItem2: TTBXSubmenuItem [4]
object TBXSubmenuItem2: TSpTBXSubmenuItem [4]
Caption = '&Herramientas'
object TBXItem38: TTBXItem
object TBXItem38: TSpTBXItem
Action = actCambiarPassword
end
end

10
Source/ApplicationBase/Usuarios/Views/uEditorUsuarios.pas
View File

@ -6,8 +6,8 @@ uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, uEditorGridBase, Menus, JvAppStorage, JvAppRegistryStorage, DB,
uDAInterfaces, uDADataTable, JvComponentBase, JvFormPlacement, ImgList,
PngImageList, StdActns, ActnList, ComCtrls, JvExComCtrls, JvStatusBar, TBX,
TB2ExtItems, TBXExtItems, TB2Item, TB2Dock, TB2Toolbar, pngimage, ExtCtrls,
PngImageList, StdActns, ActnList, ComCtrls, JvExComCtrls, JvStatusBar, SpTBXItem,
TB2ExtItems, TB2Item, TB2Dock, TB2Toolbar, pngimage, ExtCtrls,
JvExControls, JvNavigationPane, uCustomView, uViewBase, uViewGridBase,
uViewGrid, uViewUsuarios, uIEditorUsuarios, uUsuariosController,
uBizUsuarios;
@ -15,9 +15,9 @@ uses
type
TfEditorUsuarios = class(TfEditorGridBase, IEditorUsuarios)
actCambiarPassword: TAction;
TBXSubmenuItem2: TTBXSubmenuItem;
TBXItem38: TTBXItem;
TBXItem39: TTBXItem;
TBXSubmenuItem2: TSpTBXSubmenuItem;
TBXItem38: TSpTBXItem;
TBXItem39: TSpTBXItem;
procedure actEliminarUpdate(Sender: TObject);
procedure actCambiarPasswordUpdate(Sender: TObject);
procedure actCambiarPasswordExecute(Sender: TObject);

8
Source/ApplicationBase/Usuarios/Views/uViewPerfilesUsuario.dfm
View File

@ -20,7 +20,7 @@ inherited frViewPerfilesUsuario: TfrViewPerfilesUsuario
end
end
inherited frViewFiltroBase1: TfrViewFiltroBase
inherited TBXDockablePanel1: TTBXDockablePanel
inherited TBXDockablePanel1: TSpTBXDockablePanel
inherited dxLayoutControl1: TdxLayoutControl
inherited txtFiltroTodo: TcxTextEdit
ExplicitWidth = 273
@ -37,10 +37,10 @@ inherited frViewPerfilesUsuario: TfrViewPerfilesUsuario
end
end
end
inherited pnlAgrupaciones: TTBXDockablePanel
inherited pnlAgrupaciones: TSpTBXDockablePanel
ExplicitWidth = 554
inherited TBXAlignmentPanel1: TTBXAlignmentPanel
inherited TBXToolbar1: TTBXToolbar
inherited TBXAlignmentPanel1: TSpTBXDockablePanel
inherited TBXToolbar1: TSpTBXToolbar
Visible = False
end
end

2
Source/ApplicationBase/Usuarios/Views/uViewPerfilesUsuario.pas
View File

@ -9,7 +9,7 @@ uses
dxBkgnd, dxWrap, dxPrnDev, dxPSCompsProvider, dxPSFillPatterns,
dxPSEdgePatterns, dxPgsDlg, dxPSCore, ImgList, PngImageList, ActnList,
cxGridCustomPopupMenu, cxGridPopupMenu, dxPScxCommon, dxPScxGrid6Lnk,
uDAInterfaces, uDADataTable, TB2Item, TBX, TB2Toolbar, TBXDkPanels, TB2Dock,
uDAInterfaces, uDADataTable, TB2Item, SpTBXItem, TB2Toolbar, SpTBXDkPanels, TB2Dock,
uViewFiltroBase, cxGridLevel, cxClasses, cxControls, cxGridCustomView,
cxGridCustomTableView, cxGridTableView, cxGridDBTableView, cxGrid,
uBizUsuarios;

8
Source/ApplicationBase/Usuarios/Views/uViewUsuarios.dfm
View File

@ -60,7 +60,7 @@ inherited frViewUsuarios: TfrViewUsuarios
end
end
inherited frViewFiltroBase1: TfrViewFiltroBase
inherited TBXDockablePanel1: TTBXDockablePanel
inherited TBXDockablePanel1: TSpTBXDockablePanel
inherited dxLayoutControl1: TdxLayoutControl
inherited txtFiltroTodo: TcxTextEdit
ExplicitWidth = 273
@ -77,10 +77,10 @@ inherited frViewUsuarios: TfrViewUsuarios
end
end
end
inherited pnlAgrupaciones: TTBXDockablePanel
inherited pnlAgrupaciones: TSpTBXDockablePanel
ExplicitWidth = 554
inherited TBXAlignmentPanel1: TTBXAlignmentPanel
inherited TBXToolbar1: TTBXToolbar
inherited TBXAlignmentPanel1: TSpTBXDockablePanel
inherited TBXToolbar1: TSpTBXToolbar
Visible = False
end
end

2
Source/ApplicationBase/Usuarios/Views/uViewUsuarios.pas
View File

@ -9,7 +9,7 @@ uses
dxBkgnd, dxWrap, dxPrnDev, dxPSCompsProvider, dxPSFillPatterns,
dxPSEdgePatterns, dxPgsDlg, dxPSCore, ImgList, PngImageList, ActnList,
cxGridCustomPopupMenu, cxGridPopupMenu, dxPScxCommon, dxPScxGrid6Lnk,
uDAInterfaces, uDADataTable, TB2Item, TBX, TB2Toolbar, TBXDkPanels, TB2Dock,
uDAInterfaces, uDADataTable, TB2Item, SpTBXItem, TB2Toolbar, SpTBXDkPanels, TB2Dock,
uViewFiltroBase, cxGridLevel, cxClasses, cxControls, cxGridCustomView,
cxGridCustomTableView, cxGridTableView, cxGridDBTableView, cxGrid,
uBizUsuarios;

6
Source/Base/Base.dpk
View File

@ -29,7 +29,7 @@ package Base;
requires
rtl,
vcl,
TB2k_D10,
tb2k_d11,
GUISDK_D11R,
RemObjects_Core_D11,
DataAbstract_Core_D11,
@ -39,7 +39,7 @@ requires
IndyProtocols,
PNG_D10,
PngComponentsD10,
tbx_d10,
SpTBXLib_d11,
Jcl,
JvCoreD11R,
JvSystemD11R,
@ -75,8 +75,6 @@ requires
cxPageControlD11,
cxExportD11,
dxPSCoreD11,
cxIntl6D11,
cxIntlPrintSys3D11,
RemObjects_Indy_D11,
dxCoreD11;

102
Source/Base/Base.dproj
View File

@ -54,59 +54,57 @@
<DelphiCompile Include="Base.dpk">
<MainSource>MainSource</MainSource>
</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="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\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\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">
<Form>fConfigurarConexion</Form>
<DesignClass>TForm</DesignClass>

2
Source/Base/Conexion/uDataModuleConexion.dfm
View File

@ -5,12 +5,14 @@ object dmConexion: TdmConexion
Height = 177
Width = 265
object ROMessage: TROBinMessage
Envelopes = <>
Left = 42
Top = 88
end
object ROChannel: TROWinInetHTTPChannel
UserAgent = 'RemObjects SDK'
TargetURL = 'http://localhost:8099/bin'
TrustInvalidCA = False
ServerLocators = <>
DispatchOptions = []
Left = 48

1558
Source/Base/uDMBase.dfm
View File

File diff suppressed because it is too large Load Diff

23
Source/Base/uDMBase.pas
View File

@ -3,20 +3,17 @@ unit uDMBase;
interface
uses
Controls, SyncObjs, PngImageList, JvComponent, JvNavigationPane, TBXSwitcher,
TBXOffice2003Theme, Classes, ImgList, SysUtils,
DataAbstract4_Intf, uDADataTable, JvAppStorage, JvAppRegistryStorage, cxintl,
JvComponentBase, cxIntlPrintSys3, JvLogFile, dxPSGlbl, dxPSUtl, dxPrnPg,
Controls, SyncObjs, PngImageList, JvComponent, JvNavigationPane,
Classes, ImgList, SysUtils,
DataAbstract4_Intf, uDADataTable, JvAppStorage, JvAppRegistryStorage,
JvComponentBase, JvLogFile, dxPSGlbl, dxPSUtl, dxPrnPg,
dxBkgnd, dxWrap, dxPrnDev, dxPgsDlg, dxPSCore;
type
TdmBase = class(TDataModule)
SmallImages: TPngImageList;
StyleManager: TJvNavPaneStyleManager;
TBXSwitcher: TTBXSwitcher;
JvLogFile: TJvLogFile;
cxIntl: TcxIntl;
cxIntlPrintSys3: TcxIntlPrintSys3;
dxPrintStyleManager1: TdxPrintStyleManager;
dxPrintStyleManager1Style1: TdxPSPrintStyle;
procedure DAClientDataModuleCreate(Sender: TObject);
@ -44,7 +41,7 @@ implementation
{$R *.DFM}
uses
uDataModuleConexion, Dialogs, TBX, TBXThemes, Forms, Windows,
uDataModuleConexion, Dialogs, Forms, Windows,
JclFileUtils, cxControls, uDataModuleConfiguracion,
SHFolder, uSistemaFunc, uAppInfoUtils;
@ -55,8 +52,8 @@ procedure TdmBase.DAClientDataModuleCreate(Sender: TObject);
begin
IniciarLog;
TBXSwitcher.OnThemeChange := OnTBXThemeChange;
TBXSetTheme('Office2003');
{TBXSwitcher.OnThemeChange := OnTBXThemeChange;
TBXSetTheme('Office2003');}
LeerConfiguracion;
end;
@ -84,7 +81,7 @@ end;
procedure TdmBase.InitStyleManager;
begin
if not USE_THEMES then
{ if not USE_THEMES then
begin
TBXSwitcher.EnableXPStyles := False;
StyleManager.Theme := nptStandard;
@ -93,7 +90,7 @@ begin
TBXSwitcher.EnableXPStyles := True;
with StyleManager do
begin
if CurrentTheme is TTBXOffice2003Theme then
if CurrentTheme is TSpTBXOffice2003Theme then
begin
case GetOffice2003Scheme of
osBlue : Theme := nptXPBlue;
@ -104,7 +101,7 @@ begin
end;
end;
end;
end;
end;}
end;

2
Source/Cliente/Utiles/uMenuUtils.pas
View File

@ -16,7 +16,7 @@ procedure copiarItemsMenu(MenuDestino: TMenuItem; pMenu: TMenuItem);
implementation
uses
ComCtrls, Classes, Math, TBXDkPanels, StrUtils, SysUtils,
ComCtrls, Classes, Math, SpTBXDkPanels, StrUtils, SysUtils,
ExtCtrls, Graphics, Dialogs;
type

6
Source/Cliente/Utiles/uNavPaneUtils.pas
View File

@ -13,8 +13,8 @@ procedure PopulateNavPagePane(AParentControl : TWinControl;
implementation
uses
ComCtrls, Classes, Math, TBXDkPanels, StrUtils, SysUtils,
ExtCtrls, Graphics, Dialogs;
ComCtrls, Classes, Math, SpTBXDkPanels, StrUtils, SysUtils,
ExtCtrls, Graphics, Dialogs, SpTBXControls;
procedure PopulateNavPagePane(AParentControl : TWinControl;
@ -30,7 +30,7 @@ begin
if ((not AMenuItem[ItemIndex].IsLine) // que no sea una línea separadora
and (AMenuItem[ItemIndex].Count = 0)) // y que no sea el padre de un submenú
then
with TTBXLink.Create(Application) do
with TSpTBXLabel.Create(Application) do
begin
Parent := AParentControl;//APanel;
Align := alTop;

89
Source/Cliente/uPantallaPrincipal.dfm
View File

@ -21,32 +21,36 @@ object fPantallaPrincipal: TfPantallaPrincipal
OnShow = FormShow
PixelsPerInch = 96
TextHeight = 13
object pnlContenido: TTBXAlignmentPanel
Left = 0
Top = 0
Width = 886
Height = 531
object pnlContenido: TSpTBXDockablePanel
AlignWithMargins = True
Left = 5
Top = 5
Width = 876
Height = 533
Margins.Left = 5
Margins.Top = 5
Margins.Right = 5
Margins.Bottom = 5
ParentColor = True
Color = clWindow
Align = alClient
TabOrder = 0
ShowCaption = False
ShowCaptionWhenDocked = False
ExplicitHeight = 517
object JvSyncSplitter1: TJvSyncSplitter
Left = 215
Top = 5
Left = 210
Top = 0
Width = 5
Height = 521
Height = 533
ResizeStyle = rsPattern
ExplicitLeft = 210
ExplicitTop = 5
ExplicitHeight = 570
end
object JvNavigationPane: TJvNavigationPane
Left = 5
Top = 5
Left = 0
Top = 0
Width = 210
Height = 521
Height = 533
ActivePage = pagInicio
Align = alLeft
AutoHeaders = True
@ -87,11 +91,12 @@ object fPantallaPrincipal: TfPantallaPrincipal
NavPanelHotTrackFont.Style = []
SmallImages = ModulesSmallImageList
OnChange = JvNavigationPaneChange
ExplicitHeight = 517
object pagInicio: TJvNavPanelPage
Left = 0
Top = 0
Width = 208
Height = 448
Height = 460
Background.Stretch = False
Background.Proportional = False
Background.Center = False
@ -99,15 +104,17 @@ object fPantallaPrincipal: TfPantallaPrincipal
Background.Transparent = False
Caption = 'Inicio'
ImageIndex = 0
ExplicitHeight = 444
object Panel1: TPanel
Left = 0
Top = 362
Top = 374
Width = 208
Height = 86
Align = alBottom
Color = clWindow
ParentBackground = False
TabOrder = 1
ExplicitTop = 358
object Label1: TLabel
Left = 38
Top = 29
@ -152,22 +159,26 @@ object fPantallaPrincipal: TfPantallaPrincipal
end
end
object pnlBorde: TJvXPContainer
Left = 220
Top = 5
Left = 215
Top = 0
Width = 661
Height = 521
Height = 533
BoundColor = clActiveCaption
BoundLines = [blLeft, blTop, blRight, blBottom]
Caption = 'pnlBorde'
Align = alClient
object pnlMain: TTBXAlignmentPanel
ExplicitHeight = 517
object pnlMain: TSpTBXDockablePanel
Left = 1
Top = 1
Width = 659
Height = 519
Align = alClient
Height = 531
Color = clWindow
Align = alClient
TabOrder = 0
ShowCaption = False
ShowCaptionWhenDocked = False
ExplicitHeight = 515
object lblBienvenido: TLabel
Left = 8
Top = 8
@ -202,30 +213,19 @@ object fPantallaPrincipal: TfPantallaPrincipal
end
end
end
object TBXStatusBar1: TTBXStatusBar
object SpTBXStatusBar1: TSpTBXStatusBar
Left = 0
Top = 531
Top = 543
Width = 886
Images = StatusPanelImageList
Panels = <
item
ImageIndex = 1
Size = 250
Tag = 0
TextTruncation = twPathEllipsis
end
item
Framed = False
ImageIndex = 0
Size = 150
Tag = 0
TextTruncation = twEndEllipsis
end
item
Size = 200
Tag = 0
end>
UseSystemFont = False
Height = 10
object SpTBXLabelItem1: TSpTBXLabelItem
Images = StatusPanelImageList
end
object SpTBXSeparatorItem1: TSpTBXSeparatorItem
end
object SpTBXLabelItem2: TSpTBXLabelItem
Images = StatusPanelImageList
end
end
object XPManifest1: TXPManifest
Left = 248
@ -513,8 +513,7 @@ object fPantallaPrincipal: TfPantallaPrincipal
Options = []
VersionCheck = fpvcNocheck
StoredProps.Strings = (
'JvNavigationPane.Visible'
'TBXStatusBar1.Visible')
'JvNavigationPane.Visible')
StoredValues = <>
Left = 248
Top = 128

43
Source/Cliente/uPantallaPrincipal.pas
View File

@ -6,10 +6,10 @@ uses
Windows, Forms, SysUtils, Messages, JvMenus, Menus, Graphics, AppEvnts,
JvAppStorage, JvAppRegistryStorage, JvFormPlacement, JvComponentBase,
JvNavigationPane, ImgList, Controls, PngImageList, Classes, ActnList, XPMan,
TBXStatusBars, JvXPCore, JvXPContainer, pngimage, ExtCtrls, StdCtrls,
JvXPCore, JvXPContainer, pngimage, ExtCtrls, StdCtrls, SpTBXItem,
JvPageList, JvExControls, JvExExtCtrls, JvSplitter, JvSyncSplitter,
TBXDkPanels, uCustomEditor, uHostManager, uGUIBase,
Dialogs, jpeg;
SpTBXDkPanels, uCustomEditor, uHostManager, uGUIBase,
Dialogs, jpeg, TB2Dock, TB2Item;
type
IMainForm = interface(IHostForm)
@ -25,9 +25,9 @@ type
actSalir: TAction;
ModulesActionList: TActionList;
ModulesLargeImageList: TPngImageList;
pnlContenido: TTBXAlignmentPanel;
pnlContenido: TSpTBXDockablePanel;
JvNavigationPane: TJvNavigationPane;
pnlMain: TTBXAlignmentPanel;
pnlMain: TSpTBXDockablePanel;
JvSyncSplitter1: TJvSyncSplitter;
actLogin: TAction;
StyleManagerButtons: TJvNavPaneStyleManager;
@ -52,7 +52,6 @@ type
Acercade2_OLD: TMenuItem;
lblBienvenido: TLabel;
Label22: TLabel;
TBXStatusBar1: TTBXStatusBar;
StatusPanelImageList: TPngImageList;
Empresa1_OLD: TMenuItem;
Listadeempresas1_OLD: TMenuItem;
@ -91,6 +90,10 @@ type
actMenuEmpresa: TAction;
actMenuInformes: TAction;
actInformacionEmpresa: TAction;
SpTBXStatusBar1: TSpTBXStatusBar;
SpTBXLabelItem1: TSpTBXLabelItem;
SpTBXSeparatorItem1: TSpTBXSeparatorItem;
SpTBXLabelItem2: TSpTBXLabelItem;
procedure FormCreate(Sender: TObject);
procedure Salir1Click(Sender: TObject);
procedure actSalirExecute(Sender: TObject);
@ -204,15 +207,25 @@ begin
Application.Title := ATitulo;
Caption := Application.Title;
if dmConexion.HayConexion then
TBXStatusBar1.Panels[0].Caption := 'Conectado a: ' + dmConexion.TargetURL
else
TBXStatusBar1.Panels[0].Caption := 'Desconectado';
if dmConexion.HayConexion then
begin
SpTBXLabelItem1.ImageIndex := 1;
SpTBXLabelItem1.Caption := 'Conectado a: ' + dmConexion.TargetURL
end
else begin
SpTBXLabelItem1.ImageIndex := -1;
SpTBXLabelItem1.Caption := 'Desconectado';
end;
if Assigned(AppFactuGES.UsuarioActivo) then
TBXStatusBar1.Panels[1].Caption := AppFactuGES.UsuarioActivo.UserName
else
TBXStatusBar1.Panels[1].Caption := '';
begin
SpTBXLabelItem2.ImageIndex := 0;
SpTBXLabelItem2.Caption := AppFactuGES.UsuarioActivo.UserName
end
else begin
SpTBXLabelItem2.ImageIndex := -1;
SpTBXLabelItem2.Caption := '';
end;
// Comprobar que el panel lateral tiene la empresa activa
@ -248,12 +261,12 @@ end;
procedure TfPantallaPrincipal.actVerBarraEstadoExecute(Sender: TObject);
begin
TBXStatusBar1.Visible := not TBXStatusBar1.Visible;
SpTBXStatusBar1.Visible := not SpTBXStatusBar1.Visible;
end;
procedure TfPantallaPrincipal.actVerBarraEstadoUpdate(Sender: TObject);
begin
(Sender as TAction).Checked := TBXStatusBar1.Visible;
(Sender as TAction).Checked := SpTBXStatusBar1.Visible;
end;
procedure TfPantallaPrincipal.actVerPanelExecute(Sender: TObject);

4
Source/GUIBase/GUIBase.dpk
View File

@ -49,7 +49,9 @@ requires
dxPSCoreD11,
vcljpg,
vclx,
cxTreeListD11;
cxTreeListD11,
dxPScxPCProdD11,
dxPScxExtCommonD11;
contains
uEditorBase in 'uEditorBase.pas' {fEditorBase: TCustomEditor},

50
Source/GUIBase/GUIBase.dproj
View File

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

6
Source/GUIBase/uDialogElegirEMail.dfm
View File

@ -16,14 +16,14 @@ inherited fDialogElegirEMail: TfDialogElegirEMail
inherited Bevel3: TBevel
Top = 262
Width = 572
ExplicitTop = 262
ExplicitWidth = 572
end
inherited pnlBotones: TPanel
Top = 264
Width = 572
Height = 43
ExplicitLeft = -8
ExplicitTop = 280
ExplicitTop = 264
ExplicitWidth = 572
ExplicitHeight = 43
inherited btnAceptar: TButton
@ -57,7 +57,7 @@ inherited fDialogElegirEMail: TfDialogElegirEMail
Width = 572
Height = 196
ExplicitWidth = 572
ExplicitHeight = 208
ExplicitHeight = 196
object Label1: TLabel
Left = 25
Top = 16

3
Source/GUIBase/uDialogElegirEMail.pas
View File

@ -5,7 +5,8 @@ interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, uDialogBase, ActnList, StdCtrls, ExtCtrls, cxControls, cxContainer,
cxEdit, cxTextEdit, cxHyperLinkEdit;
cxEdit, cxTextEdit, cxHyperLinkEdit, cxGraphics, cxLookAndFeels,
cxLookAndFeelPainters;
type
TfDialogElegirEMail = class(TfDialogBase)

111
Source/GUIBase/uEditorBase.dfm
View File

@ -67,15 +67,14 @@ object fEditorBase: TfEditorBase
ExplicitLeft = 627
end
end
object TBXDock: TTBXDock
object TBXDock: TSpTBXDock
Left = 0
Top = 0
Width = 795
Height = 49
object tbxMain: TTBXToolbar
object tbxMain: TSpTBXToolbar
Left = 0
Top = 23
Caption = 'tbxMain'
ChevronHint = 'M'#225's botones|'
DockMode = dmCannotFloatOrChangeDocks
DockPos = -23
@ -84,159 +83,161 @@ object fEditorBase: TfEditorBase
ParentShowHint = False
ShowHint = True
TabOrder = 0
object TBXItem2: TTBXItem
Caption = 'tbxMain'
object TBXItem2: TSpTBXItem
Action = actNuevo
DisplayMode = nbdmImageAndText
end
object TBXSeparatorItem1: TTBXSeparatorItem
object TBXSeparatorItem1: TSpTBXSeparatorItem
end
object TBXItem29: TTBXItem
object TBXItem29: TSpTBXItem
Action = actGuardarCerrar
DisplayMode = nbdmImageAndText
end
object TBXItem27: TTBXItem
object TBXItem27: TSpTBXItem
Action = actGuardar
end
object TBXItem5: TTBXItem
object TBXItem5: TSpTBXItem
Action = actModificar
DisplayMode = nbdmImageAndText
end
object TBXItem4: TTBXItem
object TBXItem4: TSpTBXItem
Action = actEliminar
DisplayMode = nbdmImageAndText
end
object TBXSeparatorItem3: TTBXSeparatorItem
object TBXSeparatorItem3: TSpTBXSeparatorItem
end
object TBXItem23: TTBXItem
object TBXItem23: TSpTBXItem
Action = actPrevisualizar
DisplayMode = nbdmImageAndText
end
object TBXSeparatorItem2: TTBXSeparatorItem
object TBXSeparatorItem2: TSpTBXSeparatorItem
Visible = False
end
object TBXItem24: TTBXItem
object TBXItem24: TSpTBXItem
Action = actConfPagina
Visible = False
end
object TBXItem3: TTBXItem
object TBXItem3: TSpTBXItem
Action = actImprimir
DisplayMode = nbdmImageAndText
end
object TBXSeparatorItem10: TTBXSeparatorItem
object TBXSeparatorItem10: TSpTBXSeparatorItem
end
object TBXItem26: TTBXItem
object TBXItem26: TSpTBXItem
Action = actAnterior
end
object TBXItem25: TTBXItem
object TBXItem25: TSpTBXItem
Action = actSiguiente
end
object TBXItem6: TTBXItem
object TBXItem6: TSpTBXItem
Action = actRefrescar
DisplayMode = nbdmImageAndText
end
object TBXSeparatorItem11: TTBXSeparatorItem
object TBXSeparatorItem11: TSpTBXSeparatorItem
end
object TBXItem28: TTBXItem
object TBXItem28: TSpTBXItem
Action = actCerrar
end
end
object tbxMenu: TTBXToolbar
object tbxMenu: TSpTBXToolbar
Left = 0
Top = 0
Caption = 'Menu'
CloseButton = False
DragHandleStyle = dhNone
FullSize = True
Images = SmallImages
MenuBar = True
ProcessShortCuts = True
ShrinkMode = tbsmWrap
TabOrder = 1
object TBXSubmenuItem4: TTBXSubmenuItem
Caption = 'Menu'
Customizable = False
MenuBar = True
object TBXSubmenuItem4: TSpTBXSubmenuItem
Caption = '&Archivo'
object TBXItem8: TTBXItem
object TBXItem8: TSpTBXItem
Action = actNuevo
end
object TBXSeparatorItem5: TTBXSeparatorItem
object TBXSeparatorItem5: TSpTBXSeparatorItem
end
object TBXItem30: TTBXItem
object TBXItem30: TSpTBXItem
Action = actGuardar
end
object TBXItem10: TTBXItem
object TBXItem10: TSpTBXItem
Action = actModificar
end
object TBXSeparatorItem12: TTBXSeparatorItem
object TBXSeparatorItem12: TSpTBXSeparatorItem
end
object TBXItem11: TTBXItem
object TBXItem11: TSpTBXItem
Action = actEliminar
end
object TBXSeparatorItem15: TTBXSeparatorItem
object TBXSeparatorItem15: TSpTBXSeparatorItem
end
object TBXItem21: TTBXItem
object TBXItem21: TSpTBXItem
Action = actConfPagina
end
object TBXItem22: TTBXItem
object TBXItem22: TSpTBXItem
Action = actPrevisualizar
end
object TBXItem9: TTBXItem
object TBXItem9: TSpTBXItem
Action = actImprimir
end
object TBXSeparatorItem4: TTBXSeparatorItem
object TBXSeparatorItem4: TSpTBXSeparatorItem
end
object TBXItem1: TTBXItem
object TBXItem1: TSpTBXItem
Action = actCerrar
end
end
object TBXSubmenuItem5: TTBXSubmenuItem
object TBXSubmenuItem5: TSpTBXSubmenuItem
Caption = '&Edici'#243'n'
object TBXItem16: TTBXItem
object TBXItem16: TSpTBXItem
Action = actDeshacer
end
object TBXSeparatorItem8: TTBXSeparatorItem
object TBXSeparatorItem8: TSpTBXSeparatorItem
end
object TBXItem15: TTBXItem
object TBXItem15: TSpTBXItem
Action = actCortar
end
object TBXItem14: TTBXItem
object TBXItem14: TSpTBXItem
Action = actCopiar
end
object TBXItem13: TTBXItem
object TBXItem13: TSpTBXItem
Action = actPegar
end
object TBXSeparatorItem7: TTBXSeparatorItem
object TBXSeparatorItem7: TSpTBXSeparatorItem
end
object TBXItem12: TTBXItem
object TBXItem12: TSpTBXItem
Action = actLimpiar
end
object TBXSeparatorItem9: TTBXSeparatorItem
object TBXSeparatorItem9: TSpTBXSeparatorItem
end
object TBXItem17: TTBXItem
object TBXItem17: TSpTBXItem
Action = actSeleccionarTodo
end
end
object TBXSubmenuItem1: TTBXSubmenuItem
object TBXSubmenuItem1: TSpTBXSubmenuItem
Caption = '&Buscar'
object TBXItem32: TTBXItem
object TBXItem32: TSpTBXItem
Action = actAnterior
end
object TBXItem31: TTBXItem
object TBXItem31: TSpTBXItem
Action = actSiguiente
end
object TBXSeparatorItem13: TTBXSeparatorItem
object TBXSeparatorItem13: TSpTBXSeparatorItem
end
object TBXItem20: TTBXItem
object TBXItem20: TSpTBXItem
Action = actBuscar
end
end
object TBXSubmenuItem6: TTBXSubmenuItem
object TBXSubmenuItem6: TSpTBXSubmenuItem
Caption = '&Ver'
object TBXItem18: TTBXItem
object TBXItem18: TSpTBXItem
Action = actRefrescar
end
end
object TBXSubmenuItem7: TTBXSubmenuItem
object TBXSubmenuItem7: TSpTBXSubmenuItem
Caption = 'Ay&uda'
object TBXItem19: TTBXItem
object TBXItem19: TSpTBXItem
Action = actAcercaDe
end
end

110
Source/GUIBase/uEditorBase.pas
View File

@ -5,11 +5,11 @@ interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
uGUIBase, uCustomEditor, ToolWin, ComCtrls, JvExControls,
JvComponent, JvNavigationPane, ActnList, TBX, TB2Item, ImgList,
JvComponent, JvNavigationPane, ActnList, ImgList,
PngImageList, StdActns, JvFormAutoSize, AppEvnts, uCustomView, uViewBase,
JvAppStorage, JvAppRegistryStorage, JvFormPlacement, pngimage, ExtCtrls,
JvComponentBase, TB2Dock, TB2Toolbar, dxLayoutLookAndFeels, TBXStatusBars,
JvExComCtrls, JvStatusBar;
JvComponentBase, TB2Dock, TB2Toolbar, dxLayoutLookAndFeels,
JvExComCtrls, JvStatusBar, SpTBXItem, TB2Item;
type
IEditorBase = interface(ICustomEditor)
@ -52,61 +52,61 @@ type
JvNavPanelHeader: TJvNavPanelHeader;
LargeImages: TPngImageList;
SmallImages: TPngImageList;
TBXDock: TTBXDock;
TBXItem1: TTBXItem;
TBXItem10: TTBXItem;
TBXItem11: TTBXItem;
TBXItem12: TTBXItem;
TBXItem13: TTBXItem;
TBXItem14: TTBXItem;
TBXItem15: TTBXItem;
TBXItem16: TTBXItem;
TBXItem17: TTBXItem;
TBXItem18: TTBXItem;
TBXItem19: TTBXItem;
TBXItem2: TTBXItem;
TBXItem20: TTBXItem;
TBXItem21: TTBXItem;
TBXItem22: TTBXItem;
TBXItem23: TTBXItem;
TBXItem24: TTBXItem;
TBXItem25: TTBXItem;
TBXItem26: TTBXItem;
TBXItem27: TTBXItem;
TBXItem28: TTBXItem;
TBXItem29: TTBXItem;
TBXItem3: TTBXItem;
TBXItem30: TTBXItem;
TBXItem31: TTBXItem;
TBXItem32: TTBXItem;
TBXItem4: TTBXItem;
TBXItem5: TTBXItem;
TBXItem6: TTBXItem;
TBXItem8: TTBXItem;
TBXItem9: TTBXItem;
tbxMain: TTBXToolbar;
tbxMenu: TTBXToolbar;
TBXSeparatorItem1: TTBXSeparatorItem;
TBXSeparatorItem10: TTBXSeparatorItem;
TBXSeparatorItem11: TTBXSeparatorItem;
TBXSeparatorItem12: TTBXSeparatorItem;
TBXSeparatorItem13: TTBXSeparatorItem;
TBXSeparatorItem2: TTBXSeparatorItem;
TBXSeparatorItem3: TTBXSeparatorItem;
TBXSeparatorItem4: TTBXSeparatorItem;
TBXSeparatorItem5: TTBXSeparatorItem;
TBXSeparatorItem7: TTBXSeparatorItem;
TBXSeparatorItem8: TTBXSeparatorItem;
TBXSeparatorItem9: TTBXSeparatorItem;
TBXSubmenuItem1: TTBXSubmenuItem;
TBXSubmenuItem4: TTBXSubmenuItem;
TBXSubmenuItem5: TTBXSubmenuItem;
TBXSubmenuItem6: TTBXSubmenuItem;
TBXSubmenuItem7: TTBXSubmenuItem;
TBXDock: TSpTBXDock;
TBXItem1: TSpTBXItem;
TBXItem10: TSpTBXItem;
TBXItem11: TSpTBXItem;
TBXItem12: TSpTBXItem;
TBXItem13: TSpTBXItem;
TBXItem14: TSpTBXItem;
TBXItem15: TSpTBXItem;
TBXItem16: TSpTBXItem;
TBXItem17: TSpTBXItem;
TBXItem18: TSpTBXItem;
TBXItem19: TSpTBXItem;
TBXItem2: TSpTBXItem;
TBXItem20: TSpTBXItem;
TBXItem21: TSpTBXItem;
TBXItem22: TSpTBXItem;
TBXItem23: TSpTBXItem;
TBXItem24: TSpTBXItem;
TBXItem25: TSpTBXItem;
TBXItem26: TSpTBXItem;
TBXItem27: TSpTBXItem;
TBXItem28: TSpTBXItem;
TBXItem29: TSpTBXItem;
TBXItem3: TSpTBXItem;
TBXItem30: TSpTBXItem;
TBXItem31: TSpTBXItem;
TBXItem32: TSpTBXItem;
TBXItem4: TSpTBXItem;
TBXItem5: TSpTBXItem;
TBXItem6: TSpTBXItem;
TBXItem8: TSpTBXItem;
TBXItem9: TSpTBXItem;
tbxMain: TSpTBXToolbar;
tbxMenu: TSpTBXToolbar;
TBXSeparatorItem1: TSpTBXSeparatorItem;
TBXSeparatorItem10: TSpTBXSeparatorItem;
TBXSeparatorItem11: TSpTBXSeparatorItem;
TBXSeparatorItem12: TSpTBXSeparatorItem;
TBXSeparatorItem13: TSpTBXSeparatorItem;
TBXSeparatorItem2: TSpTBXSeparatorItem;
TBXSeparatorItem3: TSpTBXSeparatorItem;
TBXSeparatorItem4: TSpTBXSeparatorItem;
TBXSeparatorItem5: TSpTBXSeparatorItem;
TBXSeparatorItem7: TSpTBXSeparatorItem;
TBXSeparatorItem8: TSpTBXSeparatorItem;
TBXSeparatorItem9: TSpTBXSeparatorItem;
TBXSubmenuItem1: TSpTBXSubmenuItem;
TBXSubmenuItem4: TSpTBXSubmenuItem;
TBXSubmenuItem5: TSpTBXSubmenuItem;
TBXSubmenuItem6: TSpTBXSubmenuItem;
TBXSubmenuItem7: TSpTBXSubmenuItem;
JvFormStorage: TJvFormStorage;
JvAppRegistryStorage: TJvAppRegistryStorage;
Image1: TImage;
TBXSeparatorItem15: TTBXSeparatorItem;
TBXSeparatorItem15: TSpTBXSeparatorItem;
StatusBarImages: TPngImageList;
StatusBar: TJvStatusBar;
procedure actCerrarExecute(Sender: TObject);

46
Source/GUIBase/uEditorColores.dfm
View File

@ -22,7 +22,6 @@ object frEditorColores: TfrEditorColores
Align = alClient
TabOrder = 0
TabStop = False
ExplicitHeight = 128
object eColor1: TcxDBTextEdit
Left = 22
Top = 105
@ -345,7 +344,10 @@ object frEditorColores: TfrEditorColores
Width = 544
end
object dxLayoutControl1Group_Root: TdxLayoutGroup
ShowCaption = False
AlignHorz = ahLeft
AlignVert = avTop
CaptionOptions.Visible = False
ButtonOptions.Buttons = <>
Hidden = True
ShowBorder = False
object dxLayoutControl1Item15: TdxLayoutItem
@ -354,111 +356,111 @@ object frEditorColores: TfrEditorColores
ControlOptions.ShowBorder = False
end
object dxLayoutControl1Group1: TdxLayoutGroup
Caption = 'Colores'
CaptionOptions.Text = 'Colores'
ButtonOptions.Buttons = <>
LayoutDirection = ldHorizontal
object dxLayoutControl1Item1: TdxLayoutItem
Caption = 'Color 1'
CaptionOptions.AlignHorz = taCenter
CaptionOptions.Text = 'Color 1'
CaptionOptions.Layout = clTop
Control = eColor1
ControlOptions.ShowBorder = False
end
object dxLayoutControl1Item2: TdxLayoutItem
Caption = 'Color 2'
CaptionOptions.AlignHorz = taCenter
CaptionOptions.Text = 'Color 2'
CaptionOptions.Layout = clTop
Control = eColor2
ControlOptions.ShowBorder = False
end
object dxLayoutControl1Item3: TdxLayoutItem
Caption = 'Color 3'
CaptionOptions.AlignHorz = taCenter
CaptionOptions.Text = 'Color 3'
CaptionOptions.Layout = clTop
Control = eColor3
ControlOptions.ShowBorder = False
end
object dxLayoutControl1Item4: TdxLayoutItem
Caption = 'Color 4'
CaptionOptions.AlignHorz = taCenter
CaptionOptions.Text = 'Color 4'
CaptionOptions.Layout = clTop
Control = eColor4
ControlOptions.ShowBorder = False
end
object dxLayoutControl1Item5: TdxLayoutItem
Caption = 'Color 5'
CaptionOptions.AlignHorz = taCenter
CaptionOptions.Text = 'Color 5'
CaptionOptions.Layout = clTop
Control = eColor5
ControlOptions.ShowBorder = False
end
object dxLayoutControl1Item6: TdxLayoutItem
Caption = 'Color 6'
CaptionOptions.AlignHorz = taCenter
CaptionOptions.Text = 'Color 6'
CaptionOptions.Layout = clTop
Control = eColor6
ControlOptions.ShowBorder = False
end
object dxLayoutControl1Item7: TdxLayoutItem
Caption = 'Color 7'
CaptionOptions.AlignHorz = taCenter
CaptionOptions.Text = 'Color 7'
CaptionOptions.Layout = clTop
Control = eColor7
ControlOptions.ShowBorder = False
end
object dxLayoutControl1Item8: TdxLayoutItem
Caption = 'Color 8'
CaptionOptions.AlignHorz = taCenter
CaptionOptions.Text = 'Color 8'
CaptionOptions.Layout = clTop
Control = eColor8
ControlOptions.ShowBorder = False
end
object dxLayoutControl1Item9: TdxLayoutItem
Caption = 'Color 9'
CaptionOptions.AlignHorz = taCenter
CaptionOptions.Text = 'Color 9'
CaptionOptions.Layout = clTop
Control = eColor9
ControlOptions.ShowBorder = False
end
object dxLayoutControl1Item10: TdxLayoutItem
Caption = 'Color 10'
CaptionOptions.AlignHorz = taCenter
CaptionOptions.Text = 'Color 10'
CaptionOptions.Layout = clTop
Control = eColor10
ControlOptions.ShowBorder = False
end
object dxLayoutControl1Item11: TdxLayoutItem
Caption = 'Color 11'
CaptionOptions.AlignHorz = taCenter
CaptionOptions.Text = 'Color 11'
CaptionOptions.Layout = clTop
Control = eColor11
ControlOptions.ShowBorder = False
end
object dxLayoutControl1Item12: TdxLayoutItem
Caption = 'Color 12'
CaptionOptions.AlignHorz = taCenter
CaptionOptions.Text = 'Color 12'
CaptionOptions.Layout = clTop
Control = eColor12
ControlOptions.ShowBorder = False
end
end
object dxLayoutControl1Group2: TdxLayoutGroup
ShowCaption = False
CaptionOptions.Visible = False
ButtonOptions.Buttons = <>
Hidden = True
LayoutDirection = ldHorizontal
ShowBorder = False
object dxLayoutControl1Item13: TdxLayoutItem
AutoAligns = [aaVertical]
AlignHorz = ahRight
Caption = 'Button1'
ShowCaption = False
CaptionOptions.Text = 'Button1'
CaptionOptions.Visible = False
Control = bAceptar
ControlOptions.ShowBorder = False
end
object dxLayoutControl1Item14: TdxLayoutItem
AutoAligns = [aaVertical]
AlignHorz = ahRight
Caption = 'Button2'
ShowCaption = False
CaptionOptions.Text = 'Button2'
CaptionOptions.Visible = False
Control = bCancelar
ControlOptions.ShowBorder = False
end

3
Source/GUIBase/uEditorColores.pas
View File

@ -5,7 +5,8 @@ interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, dxLayoutControl, cxControls, DB, uDAInterfaces, uDADataTable,
cxContainer, cxEdit, cxTextEdit, cxDBEdit, StdCtrls, cxMemo;
cxContainer, cxEdit, cxTextEdit, cxDBEdit, StdCtrls, cxMemo, cxGraphics,
cxLookAndFeels, cxLookAndFeelPainters, dxLayoutcxEditAdapters;
type
TfrEditorColores = class(TForm)

6
Source/GUIBase/uEditorDBBase.dfm
View File

@ -16,13 +16,13 @@ inherited fEditorDBBase: TfEditorDBBase
ExplicitLeft = 625
end
end
inherited TBXDock: TTBXDock
inherited TBXDock: TSpTBXDock
Width = 648
ExplicitWidth = 648
inherited tbxMain: TTBXToolbar
inherited tbxMain: TSpTBXToolbar
ExplicitWidth = 648
end
inherited tbxMenu: TTBXToolbar
inherited tbxMenu: TSpTBXToolbar
ExplicitWidth = 648
end
end

4
Source/GUIBase/uEditorDBBase.pas
View File

@ -4,12 +4,12 @@ interface
uses
Windows, SysUtils, Variants, Classes, Graphics, Controls, Forms,
uEditorItem, ImgList, PngImageList, StdActns, ActnList, TBX,
uEditorItem, ImgList, PngImageList, StdActns, ActnList, SpTBXItem,
TB2Item, TB2Dock, TB2Toolbar, ComCtrls, JvExControls, JvComponent,
JvNavigationPane, DB, uDADataTable, uEditorBase, JvFormAutoSize,
uDAScriptingProvider, uDACDSDataTable, AppEvnts, uCustomView, uViewBase,
JvAppStorage, JvAppRegistryStorage, JvFormPlacement,
pngimage, ExtCtrls, dxLayoutLookAndFeels, JvComponentBase, TBXStatusBars,
pngimage, ExtCtrls, dxLayoutLookAndFeels, JvComponentBase,
JvExComCtrls, JvStatusBar, uDAInterfaces;
type

16
Source/GUIBase/uEditorDBItem.dfm
View File

@ -47,21 +47,21 @@ inherited fEditorDBItem: TfEditorDBItem
AnchorY = 14
end
end
inherited TBXDock: TTBXDock
inherited TBXDock: TSpTBXDock
Width = 901
ExplicitWidth = 901
inherited tbxMain: TTBXToolbar
inherited tbxMain: TSpTBXToolbar
ExplicitWidth = 605
inherited TBXItem26: TTBXItem
inherited TBXItem26: TSpTBXItem
Visible = False
end
inherited TBXItem25: TTBXItem
inherited TBXItem25: TSpTBXItem
Visible = False
end
end
inherited tbxMenu: TTBXToolbar
inherited tbxMenu: TSpTBXToolbar
ExplicitWidth = 901
inherited TBXSubmenuItem1: TTBXSubmenuItem
inherited TBXSubmenuItem1: TSpTBXSubmenuItem
Visible = False
end
end
@ -77,10 +77,6 @@ inherited fEditorDBItem: TfEditorDBItem
TabOrder = 2
object pagGeneral: TTabSheet
Caption = 'General'
ExplicitLeft = 0
ExplicitTop = 0
ExplicitWidth = 0
ExplicitHeight = 0
end
end
inherited StatusBar: TJvStatusBar

4
Source/GUIBase/uEditorDBItem.pas
View File

@ -4,14 +4,14 @@ interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
uEditorItem, ImgList, PngImageList, StdActns, ActnList, TBX,
uEditorItem, ImgList, PngImageList, StdActns, ActnList, SpTBXItem,
TB2Item, TB2Dock, TB2Toolbar, ComCtrls, JvExControls, JvComponent,
JvNavigationPane, DB, uDADataTable, uEditorDBBase, JvFormAutoSize,
StdCtrls, uDAScriptingProvider, uDACDSDataTable, AppEvnts, uCustomView,
uViewBase, JvAppStorage, JvAppRegistryStorage,
JvFormPlacement, pngimage, ExtCtrls, JvComponentBase, dxLayoutLookAndFeels,
JvExComCtrls, JvStatusBar, uDAInterfaces, cxControls, cxContainer, cxEdit,
cxLabel;
cxLabel, cxGraphics, cxLookAndFeels, cxLookAndFeelPainters;
type
IEditorDBItem = interface(IEditorDBBase)

109
Source/GUIBase/uEditorGridBase.dfm
View File

@ -19,67 +19,67 @@ inherited fEditorGridBase: TfEditorGridBase
ExplicitLeft = 518
end
end
inherited TBXDock: TTBXDock
inherited TBXDock: TSpTBXDock
Top = 27
Width = 894
Height = 75
ExplicitTop = 27
ExplicitWidth = 894
ExplicitHeight = 75
inherited tbxMain: TTBXToolbar
inherited tbxMain: TSpTBXToolbar
DockPos = 0
DragHandleStyle = dhDouble
TabOrder = 1
ExplicitWidth = 600
inherited TBXItem29: TTBXItem
inherited TBXItem29: TSpTBXItem
Visible = False
end
inherited TBXItem27: TTBXItem
inherited TBXItem27: TSpTBXItem
Visible = False
end
object TBXSeparatorItem6: TTBXSeparatorItem [6]
object TBXSeparatorItem6: TSpTBXSeparatorItem [6]
end
object TBXItem7: TTBXItem [7]
object TBXItem7: TSpTBXItem [7]
Action = actDuplicar
DisplayMode = nbdmImageAndText
end
inherited TBXItem24: TTBXItem [10]
inherited TBXItem24: TSpTBXItem [10]
end
inherited TBXItem3: TTBXItem [11]
inherited TBXItem3: TSpTBXItem [11]
end
inherited TBXSeparatorItem10: TTBXSeparatorItem [12]
inherited TBXSeparatorItem10: TSpTBXSeparatorItem [12]
end
object TBXItem384: TTBXItem [13]
object TBXItem384: TSpTBXItem [13]
Action = actExportarExcel
DisplayMode = nbdmTextOnly
end
inherited TBXItem26: TTBXItem [14]
inherited TBXItem26: TSpTBXItem [14]
Visible = False
end
inherited TBXSeparatorItem2: TTBXSeparatorItem [15]
inherited TBXSeparatorItem2: TSpTBXSeparatorItem [15]
Visible = True
end
inherited TBXItem25: TTBXItem
inherited TBXItem25: TSpTBXItem
Visible = False
end
inherited TBXSeparatorItem11: TTBXSeparatorItem
inherited TBXSeparatorItem11: TSpTBXSeparatorItem
Visible = False
end
object TBXItem36: TTBXItem [19]
object TBXItem36: TSpTBXItem [19]
Action = actAnchoAuto
DisplayMode = nbdmImageAndText
end
object TBXItem939: TTBXItem [20]
object TBXItem939: TSpTBXItem [20]
Action = actContraer
end
object TBXItem938: TTBXItem [21]
object TBXItem938: TSpTBXItem [21]
Action = actExpandir
end
inherited TBXItem28: TTBXItem
inherited TBXItem28: TSpTBXItem
Visible = False
end
end
object tbxFiltro: TTBXToolbar [1]
object tbxFiltro: TSpTBXToolbar [1]
Left = 0
Top = 49
Align = alRight
@ -95,87 +95,93 @@ inherited fEditorGridBase: TfEditorGridBase
ShowHint = True
ShrinkMode = tbsmNone
TabOrder = 0
object lblAno: TTBXLabelItem
object lblAno: TSpTBXLabelItem
Caption = 'A'#241'o'
Visible = False
end
object cbxListaAnos: TTBXComboBoxItem
object sepAno: TSpTBXSeparatorItem
Visible = False
end
object sepAno: TTBXSeparatorItem
Visible = False
end
object TBXLabelItem1: TTBXLabelItem
object TBXLabelItem1: TSpTBXLabelItem
Caption = 'Filtrar:'
end
object tbxEditFiltro: TTBXEditItem
EditWidth = 200
object tbxEditFiltro: TSpTBXEditItem
ImageIndex = 10
EditorFontSettings.Italic = tsTrue
ExtendedAccept = True
Images = SmallImages
ExtendedAccept = True
ShowImage = True
OnChange = tbxEditFiltroChange
end
object TBXItem34: TTBXItem
object TBXItem34: TSpTBXItem
Action = actQuitarFiltro
end
object TBXItem37: TTBXItem
object TBXItem37: TSpTBXItem
Action = actFiltrar
end
object TBControlItem1: TTBControlItem
Control = cbxListaAnos
end
object cbxListaAnos: TSpTBXComboBox
Left = 197
Top = 0
Width = 145
Height = 21
ItemHeight = 13
TabOrder = 0
Visible = False
end
end
inherited tbxMenu: TTBXToolbar
inherited tbxMenu: TSpTBXToolbar
TabOrder = 2
Visible = False
ExplicitWidth = 894
inherited TBXSubmenuItem4: TTBXSubmenuItem
inherited TBXItem30: TTBXItem
inherited TBXSubmenuItem4: TSpTBXSubmenuItem
inherited TBXItem30: TSpTBXItem
Visible = False
end
inherited TBXSeparatorItem15: TTBXSeparatorItem
inherited TBXSeparatorItem15: TSpTBXSeparatorItem
Visible = False
end
object TBXItem33: TTBXItem [7]
object TBXItem33: TSpTBXItem [7]
Action = actDuplicar
end
object TBXSeparatorItem14: TTBXSeparatorItem [8]
object TBXSeparatorItem14: TSpTBXSeparatorItem [8]
end
inherited TBXItem21: TTBXItem
inherited TBXItem21: TSpTBXItem
Visible = False
end
object TBXSeparatorItem172: TTBXSeparatorItem [12]
object TBXSeparatorItem172: TSpTBXSeparatorItem [12]
end
object TBXItem395: TTBXItem [13]
object TBXItem395: TSpTBXItem [13]
Action = actExportarExcel
end
end
inherited TBXSubmenuItem5: TTBXSubmenuItem
inherited TBXSubmenuItem5: TSpTBXSubmenuItem
Visible = False
end
inherited TBXSubmenuItem1: TTBXSubmenuItem
inherited TBXItem32: TTBXItem
inherited TBXSubmenuItem1: TSpTBXSubmenuItem
inherited TBXItem32: TSpTBXItem
Visible = False
end
inherited TBXItem31: TTBXItem
inherited TBXItem31: TSpTBXItem
Visible = False
end
inherited TBXSeparatorItem13: TTBXSeparatorItem
inherited TBXSeparatorItem13: TSpTBXSeparatorItem
Visible = False
end
end
inherited TBXSubmenuItem6: TTBXSubmenuItem
object TBXItem35: TTBXItem [0]
inherited TBXSubmenuItem6: TSpTBXSubmenuItem
object TBXItem35: TSpTBXItem [0]
Action = actAnchoAuto
end
object TBXSeparatorItem16: TTBXSeparatorItem [1]
object TBXSeparatorItem16: TSpTBXSeparatorItem [1]
end
end
end
object TBXTMain2: TTBXToolbar
Left = 337
object TBXTMain2: TSpTBXToolbar
Left = 355
Top = 49
Align = alRight
Caption = 'tbxLista'
ChevronHint = 'M'#225's botones|'
DockMode = dmCannotFloatOrChangeDocks
DockPos = 318
@ -186,6 +192,7 @@ inherited fEditorGridBase: TfEditorGridBase
ShowHint = True
TabOrder = 3
Visible = False
Caption = 'tbxLista'
end
end
inherited StatusBar: TJvStatusBar

89
Source/GUIBase/uEditorGridBase.pas
View File

@ -13,15 +13,15 @@ interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, uEditorBase, ToolWin, ComCtrls, JvExControls, JvComponent,
JvNavigationPane, ActnList, TB2Dock, TB2Toolbar, TBX, TB2Item,
ImgList, PngImageList, StdActns, TB2ExtItems, TBXExtItems, uViewGridBase,
JvNavigationPane, ActnList, TB2Dock, TB2Toolbar, SpTBXItem, TB2Item,
ImgList, PngImageList, StdActns, TB2ExtItems, uViewGridBase,
uEditorDBBase, DB, uDADataTable, Menus, JvFormAutoSize,
uDAScriptingProvider, uDACDSDataTable, AppEvnts, JvAppStorage,
JvAppRegistryStorage, JvFormPlacement, pngimage, ExtCtrls,
JvComponentBase, dxLayoutLookAndFeels, TBXStatusBars, JvExComCtrls,
JvComponentBase, dxLayoutLookAndFeels, JvExComCtrls,
JvStatusBar, uDAInterfaces, cxGraphics, StdCtrls, cxControls, cxContainer,
cxEdit, cxTextEdit, cxMaskEdit, cxDropDownEdit, cxLookupEdit, cxDBLookupEdit,
cxDBLookupComboBox;
cxDBLookupComboBox, SpTBXEditors, TntStdCtrls, SpTBXControls;
type
IEditorGridBase = interface(IEditorDBBase)
@ -33,46 +33,45 @@ type
end;
TfEditorGridBase = class(TfEditorDBBase, IEditorGridBase)
tbxEditFiltro: TTBXEditItem;
tbxFiltro: TTBXToolbar;
tbxEditFiltro: TSpTBXEditItem;
tbxFiltro: TSpTBXToolbar;
GridPopupMenu: TPopupMenu;
Modificar1: TMenuItem;
Eliminar1: TMenuItem;
N1: TMenuItem;
Nuevo1: TMenuItem;
TBXLabelItem1: TTBXLabelItem;
TBXLabelItem1: TSpTBXLabelItem;
actQuitarFiltro: TAction;
N2: TMenuItem;
Previsualizar1: TMenuItem;
Imprimir1: TMenuItem;
TBXSeparatorItem14: TTBXSeparatorItem;
TBXItem33: TTBXItem;
TBXSeparatorItem14: TSpTBXSeparatorItem;
TBXItem33: TSpTBXItem;
N3: TMenuItem;
Actualizar1: TMenuItem;
TBXItem34: TTBXItem;
TBXItem34: TSpTBXItem;
actAnchoAuto: TAction;
TBXSeparatorItem16: TTBXSeparatorItem;
TBXItem35: TTBXItem;
TBXItem36: TTBXItem;
TBXSeparatorItem6: TTBXSeparatorItem;
TBXItem7: TTBXItem;
TBXSeparatorItem16: TSpTBXSeparatorItem;
TBXItem35: TSpTBXItem;
TBXItem36: TSpTBXItem;
TBXSeparatorItem6: TSpTBXSeparatorItem;
TBXItem7: TSpTBXItem;
actFiltrar: TAction;
TBXItem37: TTBXItem;
TBXTMain2: TTBXToolbar;
TBXItem37: TSpTBXItem;
TBXTMain2: TSpTBXToolbar;
actExportarExcel: TAction;
ExportaraficheroExcel1: TMenuItem;
N488: TMenuItem;
TBXSeparatorItem172: TTBXSeparatorItem;
TBXItem395: TTBXItem;
TBXItem384: TTBXItem;
TBXSeparatorItem172: TSpTBXSeparatorItem;
TBXItem395: TSpTBXItem;
TBXItem384: TSpTBXItem;
actExpandir: TAction;
actContraer: TAction;
TBXItem938: TTBXItem;
TBXItem939: TTBXItem;
cbxListaAnos: TTBXComboBoxItem;
sepAno: TTBXSeparatorItem;
lblAno: TTBXLabelItem;
procedure tbxEditFiltroChange(Sender: TObject; const Text: String);
TBXItem938: TSpTBXItem;
TBXItem939: TSpTBXItem;
cbxListaAnos: TSpTBXComboBox;
sepAno: TSpTBXSeparatorItem;
lblAno: TSpTBXLabelItem;
procedure FormShow(Sender: TObject);
procedure actQuitarFiltroExecute(Sender: TObject);
procedure actDuplicarUpdate(Sender: TObject);
@ -90,6 +89,7 @@ type
procedure actContraerExecute(Sender: TObject);
procedure actExpandirUpdate(Sender: TObject);
procedure actContraerUpdate(Sender: TObject);
procedure tbxEditFiltroChange(Sender: TObject; const AText: WideString);
protected
FListaAnos: TStringList;
FViewGrid : IViewGridBase;
@ -203,21 +203,23 @@ begin
if Assigned(FListaAnos) then
begin
cbxListaAnos.Strings.BeginUpdate;
cbxListaAnos.Strings.Clear;
for i := 0 to FListaAnos.Count - 1 do
cbxListaAnos.Strings.Append(FListaAnos.Names[i]);
cbxListaAnos.Items.BeginUpdate;
try
cbxListaAnos.Items.Clear;
for i := 0 to FListaAnos.Count - 1 do
cbxListaAnos.Items.Append(FListaAnos.Names[i]);
//Se posiciona en el elemento que habia anteriormente
if Length(AStringAnterior) > 0 then
begin
if FListaAnos.IndexOfName(AStringAnterior) <> -1 then
cbxListaAnos.ItemIndex := FListaAnos.IndexOfName(AStringAnterior)
else
cbxListaAnos.ItemIndex := 0;
//Se posiciona en el elemento que habia anteriormente
if Length(AStringAnterior) > 0 then
begin
if FListaAnos.IndexOfName(AStringAnterior) <> -1 then
cbxListaAnos.ItemIndex := FListaAnos.IndexOfName(AStringAnterior)
else
cbxListaAnos.ItemIndex := 0;
end;
finally
cbxListaAnos.Items.EndUpdate;
end;
cbxListaAnos.Strings.EndUpdate;
end;
end;
@ -244,12 +246,15 @@ begin
Result := inherited ShowModal;
end;
procedure TfEditorGridBase.tbxEditFiltroChange(Sender: TObject; const Text: String);
procedure TfEditorGridBase.tbxEditFiltroChange(Sender: TObject;
const AText: WideString);
begin
inherited;
if Assigned(ViewGrid) then
begin
if Length(Text) > 0 then
ViewGrid.Filter := Text
if Length(AText) > 0 then
ViewGrid.Filter := AText
else
actQuitarFiltro.Execute;
end;

14
Source/GUIBase/uEditorItem.dfm
View File

@ -32,23 +32,25 @@ inherited fEditorItem: TfEditorItem
ExplicitHeight = 406
object pagGeneral: TTabSheet
Caption = 'General'
ExplicitLeft = 0
ExplicitTop = 0
ExplicitWidth = 670
ExplicitHeight = 378
end
end
inherited TBXDock: TTBXDock
inherited TBXDock: TSpTBXDock
Width = 678
ExplicitWidth = 678
inherited tbxMain: TTBXToolbar
inherited tbxMain: TSpTBXToolbar
ExplicitWidth = 581
inherited TBXItem5: TTBXItem
inherited TBXItem5: TSpTBXItem
Visible = False
end
end
inherited tbxMenu: TTBXToolbar
inherited tbxMenu: TSpTBXToolbar
ExplicitWidth = 678
inherited TBXSubmenuItem4: TTBXSubmenuItem
inherited TBXItem10: TTBXItem
inherited TBXSubmenuItem4: TSpTBXSubmenuItem
inherited TBXItem10: TSpTBXItem
Visible = False
end
end

4
Source/GUIBase/uEditorItem.pas
View File

@ -6,10 +6,10 @@ interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, uEditorBase, ActnList, JvExControls, JvComponent,
JvNavigationPane, ComCtrls, StdActns, TB2Dock, TB2Toolbar, TBX, TB2Item,
JvNavigationPane, ComCtrls, StdActns, TB2Dock, TB2Toolbar, SpTBXItem, TB2Item,
ImgList, PngImageList, JvFormAutoSize, JvAppStorage,
JvAppRegistryStorage, JvFormPlacement, pngimage, ExtCtrls,
JvComponentBase, dxLayoutLookAndFeels, TBXStatusBars, JvExComCtrls,
JvComponentBase, dxLayoutLookAndFeels, JvExComCtrls,
JvStatusBar;
type

116
Source/GUIBase/uEditorPreview.dfm
View File

@ -17,192 +17,196 @@ inherited fEditorPreview: TfEditorPreview
ExplicitLeft = 623
end
end
inherited TBXDock: TTBXDock
inherited TBXDock: TSpTBXDock
Height = 75
ExplicitHeight = 75
inherited tbxMain: TTBXToolbar
inherited tbxMain: TSpTBXToolbar
Top = 49
DefaultDock = TBXDock
Visible = False
ExplicitTop = 49
ExplicitWidth = 248
end
inherited tbxMenu: TTBXToolbar
inherited tbxMenu: TSpTBXToolbar
DockPos = 0
inherited TBXSubmenuItem4: TTBXSubmenuItem
object TBXSeparatorItem20: TTBXSeparatorItem [10]
inherited TBXSubmenuItem4: TSpTBXSubmenuItem
object TBXSeparatorItem20: TSpTBXSeparatorItem [10]
end
object TBXSubmenuItem8: TTBXSubmenuItem [11]
object TBXSubmenuItem8: TSpTBXSubmenuItem [11]
Caption = 'Exportar'
Enabled = False
Visible = False
object TBXItem53: TTBXItem
object TBXItem53: TSpTBXItem
Action = actExportarPDF
Images = SmallImages
end
object TBXItem56: TTBXItem
object TBXItem56: TSpTBXItem
Action = actExportarExcel
Images = SmallImages
end
object TBXItem55: TTBXItem
object TBXItem55: TSpTBXItem
Action = actExportarRTF
Images = SmallImages
end
object TBXItem57: TTBXItem
object TBXItem57: TSpTBXItem
Action = actExportarTexto
Images = SmallImages
end
end
object TBXItem54: TTBXItem [12]
object TBXItem54: TSpTBXItem [12]
Action = actExportarCorreo
Images = SmallImages
end
end
inherited TBXSubmenuItem5: TTBXSubmenuItem
inherited TBXSubmenuItem5: TSpTBXSubmenuItem
Visible = False
end
inherited TBXSubmenuItem1: TTBXSubmenuItem
inherited TBXSubmenuItem1: TSpTBXSubmenuItem
Visible = False
end
object TBXSubmenuItem2: TTBXSubmenuItem [3]
object TBXSubmenuItem2: TSpTBXSubmenuItem [3]
Caption = '&Ir'
object TBXItem47: TTBXItem
object TBXItem47: TSpTBXItem
Action = actPrimeraPagina
Images = PreviewSmallImageList
end
object TBXItem43: TTBXItem
object TBXItem43: TSpTBXItem
Action = actPaginaAnterior
Images = PreviewSmallImageList
end
object TBXItem44: TTBXItem
object TBXItem44: TSpTBXItem
Action = actPaginaSiguiente
Images = PreviewSmallImageList
end
object TBXItem45: TTBXItem
object TBXItem45: TSpTBXItem
Action = actUltimaPagina
Images = PreviewSmallImageList
end
end
inherited TBXSubmenuItem6: TTBXSubmenuItem
inherited TBXItem18: TTBXItem
inherited TBXSubmenuItem6: TSpTBXSubmenuItem
inherited TBXItem18: TSpTBXItem
Action = actZoomIn
Images = PreviewSmallImageList
end
object TBXItem38: TTBXItem
object TBXItem38: TSpTBXItem
Action = actZoomOut
Images = PreviewSmallImageList
end
object TBXSeparatorItem19: TTBXSeparatorItem
object TBXSeparatorItem19: TSpTBXSeparatorItem
end
object TBXItem48: TTBXItem
object TBXItem48: TSpTBXItem
Action = actAnchoPagina
Images = PreviewSmallImageList
end
object TBXItem46: TTBXItem
object TBXItem46: TSpTBXItem
Action = actTodaPagina
Images = PreviewSmallImageList
end
object TBXItem52: TTBXItem
object TBXItem52: TSpTBXItem
Action = actMiniaturas
Images = PreviewSmallImageList
end
end
object TBXSubmenuItem3: TTBXSubmenuItem [5]
object TBXSubmenuItem3: TSpTBXSubmenuItem [5]
Caption = '&Herramientas'
object TBXItem49: TTBXItem
object TBXItem49: TSpTBXItem
Action = actToolHand
Checked = True
GroupIndex = 1
Images = PreviewSmallImageList
end
object TBXItem50: TTBXItem
object TBXItem50: TSpTBXItem
Action = actToolZoom
GroupIndex = 1
Images = PreviewSmallImageList
end
end
end
object TBXToolbar1: TTBXToolbar
object TBXToolbar1: TSpTBXToolbar
Left = 0
Top = 23
Caption = 'TBXToolbar1'
DefaultDock = TBXDock
DragHandleStyle = dhNone
ParentShowHint = False
ShowHint = True
TabOrder = 2
object TBXItem39: TTBXItem
Caption = 'TBXToolbar1'
object TBXItem39: TSpTBXItem
Action = actImprimir
DisplayMode = nbdmImageAndText
Images = SmallImages
end
object TBXSeparatorItem18: TTBXSeparatorItem
object TBXSeparatorItem18: TSpTBXSeparatorItem
end
object tbxMano: TTBXItem
object tbxMano: TSpTBXItem
Action = actToolHand
Checked = True
DisplayMode = nbdmImageAndText
GroupIndex = 1
Images = PreviewSmallImageList
end
object tbxZoom: TTBXItem
object tbxZoom: TSpTBXItem
Action = actToolZoom
DisplayMode = nbdmImageAndText
GroupIndex = 1
Images = PreviewSmallImageList
end
object TBXSeparatorItem6: TTBXSeparatorItem
object TBXSeparatorItem6: TSpTBXSeparatorItem
end
object TBXItem51: TTBXItem
object TBXItem51: TSpTBXItem
Action = actMiniaturas
Images = PreviewSmallImageList
end
object TBXItem42: TTBXItem
object TBXItem42: TSpTBXItem
Action = actTodaPagina
Images = PreviewSmallImageList
end
object TBXItem41: TTBXItem
object TBXItem41: TSpTBXItem
Action = actAnchoPagina
Images = PreviewSmallImageList
end
object TBXSeparatorItem14: TTBXSeparatorItem
object TBXSeparatorItem14: TSpTBXSeparatorItem
end
object TBXItem40: TTBXItem
object TBXItem40: TSpTBXItem
Action = actZoomOut
Images = PreviewSmallImageList
end
object cbZoom: TTBXComboBoxItem
Caption = 'Zoom'
ReadOnly = True
OnItemClick = cbZoomItemClick
end
object TBXItem37: TTBXItem
object TBXItem37: TSpTBXItem
Action = actZoomIn
Images = PreviewSmallImageList
end
object TBXSeparatorItem17: TTBXSeparatorItem
object TBXSeparatorItem17: TSpTBXSeparatorItem
end
object TBXItem7: TTBXItem
object TBXItem7: TSpTBXItem
Action = actPrimeraPagina
Images = PreviewSmallImageList
end
object TBXItem34: TTBXItem
object TBXItem34: TSpTBXItem
Action = actPaginaAnterior
Images = PreviewSmallImageList
end
object TBXItem33: TTBXItem
object TBXItem33: TSpTBXItem
Action = actPaginaSiguiente
Images = PreviewSmallImageList
end
object TBXItem36: TTBXItem
object TBXItem36: TSpTBXItem
Action = actUltimaPagina
Images = PreviewSmallImageList
end
object TBXSeparatorItem16: TTBXSeparatorItem
object TBXSeparatorItem16: TSpTBXSeparatorItem
end
object TBXItem35: TTBXItem
object TBXItem35: TSpTBXItem
Action = actCerrar
end
object cbZoom: TSpTBXComboBox
Left = 449
Top = 0
Width = 145
Height = 21
ItemHeight = 13
TabOrder = 0
OnClick = cbZoomItemClick
end
end
end
inherited StatusBar: TJvStatusBar
@ -2490,7 +2494,7 @@ inherited fEditorPreview: TfEditorPreview
Bitmap = {}
end
object frxReport1: TfrxReport
Version = '4.7.71'
Version = '4.8.11'
DotMatrixReport = False
EngineOptions.DoublePass = True
IniFile = '\Software\Fast Reports'
@ -2501,10 +2505,6 @@ inherited fEditorPreview: TfEditorPreview
ReportOptions.CreateDate = 38658.858023541660000000
ReportOptions.LastChange = 38658.858023541660000000
ScriptLanguage = 'PascalScript'
ScriptText.Strings = (
'begin'
''
'end.')
StoreInDFM = False
Left = 16
Top = 200

113
Source/GUIBase/uEditorPreview.pas
View File

@ -4,15 +4,15 @@ interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, uEditorBase, ImgList, PngImageList, StdActns, ActnList, TBX,
Dialogs, uEditorBase, ImgList, PngImageList, StdActns, ActnList, SpTBXItem,
TB2Item, TB2Dock, TB2Toolbar, JvExControls, JvComponent, JvNavigationPane,
TB2ExtItems, TBXExtItems, uViewPreview, frxClass, ComCtrls, frxPreview,
TB2ExtItems, uViewPreview, frxClass, ComCtrls, frxPreview,
JvFormAutoSize, JvAppStorage, JvAppRegistryStorage, JvFormPlacement,
pngimage, frxExportImage, frxExportPDF, frxDCtrl, frxDMPExport,
frxGradient, frxChBox, frxCross, frxRich, frxOLE, frxBarcode,
ExtCtrls, JvComponentBase, TBXStatusBars, JvExComCtrls, JvStatusBar,
ExtCtrls, JvComponentBase, JvExComCtrls, JvStatusBar,
frxExportMail, frxExportXLS, frxExportText, frxExportRTF, uControllerBase,
uIntegerListUtils;
uIntegerListUtils, SpTBXEditors, StdCtrls, TntStdCtrls;
type
IEditorPreview = interface(IEditorBase)
@ -41,12 +41,12 @@ type
end;
TfEditorPreview = class(TfEditorBase, IEditorPreview)
TBXToolbar1: TTBXToolbar;
TBXItem33: TTBXItem;
TBXItem34: TTBXItem;
TBXItem39: TTBXItem;
TBXSeparatorItem16: TTBXSeparatorItem;
cbZoom: TTBXComboBoxItem;
TBXToolbar1: TSpTBXToolbar;
TBXItem33: TSpTBXItem;
TBXItem34: TSpTBXItem;
TBXItem39: TSpTBXItem;
TBXSeparatorItem16: TSpTBXSeparatorItem;
cbZoom: TSpTBXComboBox;
PreviewActionList: TActionList;
PreviewSmallImageList: TPngImageList;
PreviewLargeImageList: TPngImageList;
@ -54,22 +54,22 @@ type
actUltimaPagina: TAction;
actPaginaAnterior: TAction;
actPaginaSiguiente: TAction;
TBXItem36: TTBXItem;
TBXItem36: TSpTBXItem;
actZoomIn: TAction;
actZoomOut: TAction;
actTodaPagina: TAction;
actAnchoPagina: TAction;
TBXSeparatorItem17: TTBXSeparatorItem;
TBXItem37: TTBXItem;
TBXItem40: TTBXItem;
TBXItem41: TTBXItem;
TBXItem42: TTBXItem;
TBXSeparatorItem17: TSpTBXSeparatorItem;
TBXItem37: TSpTBXItem;
TBXItem40: TSpTBXItem;
TBXItem41: TSpTBXItem;
TBXItem42: TSpTBXItem;
frxReport1: TfrxReport;
actToolHand: TAction;
actToolZoom: TAction;
tbxZoom: TTBXItem;
tbxMano: TTBXItem;
TBXSeparatorItem18: TTBXSeparatorItem;
tbxZoom: TSpTBXItem;
tbxMano: TSpTBXItem;
TBXSeparatorItem18: TSpTBXSeparatorItem;
frxBarCodeObject1: TfrxBarCodeObject;
frxOLEObject1: TfrxOLEObject;
frxRichObject1: TfrxRichObject;
@ -80,29 +80,29 @@ type
frxTIFFExport1: TfrxTIFFExport;
frxPDFExport1: TfrxPDFExport;
frxBMPExport1: TfrxBMPExport;
TBXItem38: TTBXItem;
TBXSeparatorItem19: TTBXSeparatorItem;
TBXItem43: TTBXItem;
TBXItem44: TTBXItem;
TBXItem45: TTBXItem;
TBXItem46: TTBXItem;
TBXItem47: TTBXItem;
TBXSubmenuItem2: TTBXSubmenuItem;
TBXItem48: TTBXItem;
TBXSubmenuItem3: TTBXSubmenuItem;
TBXItem49: TTBXItem;
TBXItem50: TTBXItem;
TBXItem7: TTBXItem;
TBXItem35: TTBXItem;
TBXItem38: TSpTBXItem;
TBXSeparatorItem19: TSpTBXSeparatorItem;
TBXItem43: TSpTBXItem;
TBXItem44: TSpTBXItem;
TBXItem45: TSpTBXItem;
TBXItem46: TSpTBXItem;
TBXItem47: TSpTBXItem;
TBXSubmenuItem2: TSpTBXSubmenuItem;
TBXItem48: TSpTBXItem;
TBXSubmenuItem3: TSpTBXSubmenuItem;
TBXItem49: TSpTBXItem;
TBXItem50: TSpTBXItem;
TBXItem7: TSpTBXItem;
TBXItem35: TSpTBXItem;
actMiniaturas: TAction;
TBXSeparatorItem6: TTBXSeparatorItem;
TBXSeparatorItem14: TTBXSeparatorItem;
TBXItem51: TTBXItem;
TBXItem52: TTBXItem;
TBXSeparatorItem6: TSpTBXSeparatorItem;
TBXSeparatorItem14: TSpTBXSeparatorItem;
TBXItem51: TSpTBXItem;
TBXItem52: TSpTBXItem;
actExportarPDF: TAction;
TBXSubmenuItem8: TTBXSubmenuItem;
TBXItem53: TTBXItem;
TBXSeparatorItem20: TTBXSeparatorItem;
TBXSubmenuItem8: TSpTBXSubmenuItem;
TBXItem53: TSpTBXItem;
TBXSeparatorItem20: TSpTBXSeparatorItem;
actExportarRTF: TAction;
frxXLSExport1: TfrxXLSExport;
frxMailExport1: TfrxMailExport;
@ -111,10 +111,10 @@ type
frxRTFExport: TfrxRTFExport;
frxSimpleTextExport1: TfrxSimpleTextExport;
actExportarTexto: TAction;
TBXItem54: TTBXItem;
TBXItem55: TTBXItem;
TBXItem56: TTBXItem;
TBXItem57: TTBXItem;
TBXItem54: TSpTBXItem;
TBXItem55: TSpTBXItem;
TBXItem56: TSpTBXItem;
TBXItem57: TSpTBXItem;
procedure FormShow(Sender: TObject);
procedure actPrimeraPaginaExecute(Sender: TObject);
procedure actUltimaPaginaExecute(Sender: TObject);
@ -403,17 +403,22 @@ constructor TfEditorPreview.Create(AOwner: TComponent);
begin
inherited;
with cbZoom.Strings do
with cbZoom.Items do
begin
Clear;
Add('25%');
Add('50%');
Add('75%');
Add('100%');
Add('150%');
Add('200%');
Add(frxResources.Get('zmPageWidth'));
Add(frxResources.Get('zmWholePage'));
BeginUpdate;
try
Clear;
Add('25%');
Add('50%');
Add('75%');
Add('100%');
Add('150%');
Add('200%');
Add(frxResources.Get('zmPageWidth'));
Add(frxResources.Get('zmWholePage'));
finally
EndUpdate;
end;
end;
FPreview := TfrViewPreview.Create(Self);

108
Source/GUIBase/uViewDetallesBase.dfm
View File

@ -10,7 +10,7 @@ inherited frViewDetallesBase: TfrViewDetallesBase
Left = 0
Top = 0
Width = 451
Height = 68
Height = 73
AutoSize = True
ButtonWidth = 141
Caption = 'ToolBar1'
@ -42,24 +42,23 @@ inherited frViewDetallesBase: TfrViewDetallesBase
Top = 0
Action = actSubir
AutoSize = True
Wrap = True
end
object ToolButton4: TToolButton
Left = 0
Top = 22
Left = 184
Top = 0
Action = actBajar
AutoSize = True
end
object ToolButton14: TToolButton
Left = 56
Top = 22
Left = 240
Top = 0
Action = FontEdit1
AutoSize = True
Wrap = True
end
object FontName: TJvFontComboBox
Left = 0
Top = 44
Top = 22
Width = 145
Height = 22
DroppedDownWidth = 145
@ -75,7 +74,7 @@ inherited frViewDetallesBase: TfrViewDetallesBase
end
object FontSize: TEdit
Left = 145
Top = 44
Top = 22
Width = 26
Height = 22
Hint = 'Font Size|Select font size'
@ -86,7 +85,7 @@ inherited frViewDetallesBase: TfrViewDetallesBase
end
object UpDown1: TUpDown
Left = 171
Top = 44
Top = 22
Width = 16
Height = 22
Associate = FontSize
@ -95,7 +94,7 @@ inherited frViewDetallesBase: TfrViewDetallesBase
end
object ToolButton13: TToolButton
Left = 187
Top = 44
Top = 22
Width = 8
Caption = 'ToolButton13'
ImageIndex = 10
@ -103,54 +102,55 @@ inherited frViewDetallesBase: TfrViewDetallesBase
end
object ToolButton6: TToolButton
Left = 195
Top = 44
Top = 22
Action = RichEditBold1
AutoSize = True
end
object ToolButton7: TToolButton
Left = 261
Top = 44
Top = 22
Action = RichEditItalic1
AutoSize = True
end
object ToolButton8: TToolButton
Left = 328
Top = 44
Top = 22
Action = RichEditUnderline1
AutoSize = True
end
object ToolButton12: TToolButton
Left = 411
Top = 44
Left = 0
Top = 22
Width = 8
Caption = 'ToolButton12'
ImageIndex = 10
Wrap = True
Style = tbsSeparator
end
object ToolButton9: TToolButton
Left = 419
Top = 44
Left = 0
Top = 49
Action = RichEditAlignLeft1
AutoSize = True
end
object ToolButton10: TToolButton
Left = 564
Top = 44
Left = 145
Top = 49
Action = RichEditAlignCenter1
AutoSize = True
end
object ToolButton11: TToolButton
Left = 689
Top = 44
Left = 270
Top = 49
Action = RichEditAlignRight1
AutoSize = True
end
end
object cxGrid: TcxGrid
Left = 0
Top = 94
Top = 99
Width = 451
Height = 210
Height = 205
Align = alClient
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
@ -161,8 +161,6 @@ inherited frViewDetallesBase: TfrViewDetallesBase
TabOrder = 1
LookAndFeel.Kind = lfStandard
LookAndFeel.NativeStyle = True
ExplicitTop = 99
ExplicitHeight = 205
object cxGridView: TcxGridDBTableView
OnKeyDown = cxGridViewKeyDown
NavigatorButtons.ConfirmDelete = False
@ -344,100 +342,98 @@ inherited frViewDetallesBase: TfrViewDetallesBase
GridView = cxGridView
end
end
object TBXDock1: TTBXDock
object TBXDock1: TSpTBXDock
Left = 0
Top = 68
Top = 73
Width = 451
Height = 26
BackgroundOnToolbars = False
UseParentBackground = True
ExplicitTop = 73
object TBXToolbar1: TTBXToolbar
object TBXToolbar1: TSpTBXToolbar
Left = 0
Top = 0
Caption = 'TBXToolbar1'
DragHandleStyle = dhNone
Images = ContenidoImageList
TabOrder = 0
object TBXSubmenuItem1: TTBXSubmenuItem
Caption = 'TBXToolbar1'
object TBXSubmenuItem1: TSpTBXSubmenuItem
Caption = 'A'#241'adir...'
DisplayMode = nbdmImageAndText
ImageIndex = 12
object TBXItem16: TTBXItem
object TBXItem16: TSpTBXItem
Action = actAnadirCapitulo
Images = ContenidoImageList
end
object TBXSeparatorItem7: TTBXSeparatorItem
object TBXSeparatorItem7: TSpTBXSeparatorItem
end
object TBXItem15: TTBXItem
object TBXItem15: TSpTBXItem
Action = actAnadirTitulo
Images = ContenidoImageList
end
object TBXItem14: TTBXItem
object TBXItem14: TSpTBXItem
Action = actAnadirSubtotal
Images = ContenidoImageList
end
object TBXItem12: TTBXItem
object TBXItem12: TSpTBXItem
Action = actAnadirDescuento
Images = ContenidoImageList
end
end
object TBXSeparatorItem6: TTBXSeparatorItem
object TBXSeparatorItem6: TSpTBXSeparatorItem
end
object TBXItem1: TTBXItem
object TBXItem1: TSpTBXItem
Action = actAnadir
DisplayMode = nbdmImageAndText
Images = ContenidoImageList
end
object TBXItem2: TTBXItem
object TBXItem2: TSpTBXItem
Action = actEliminar
DisplayMode = nbdmImageAndText
Images = ContenidoImageList
end
object TBXSeparatorItem1: TTBXSeparatorItem
object TBXSeparatorItem1: TSpTBXSeparatorItem
end
object TBXItem3: TTBXItem
object TBXItem3: TSpTBXItem
Action = actSubir
DisplayMode = nbdmImageAndText
end
object TBXItem4: TTBXItem
object TBXItem4: TSpTBXItem
Action = actBajar
DisplayMode = nbdmImageAndText
end
object TBXSeparatorItem2: TTBXSeparatorItem
object TBXSeparatorItem2: TSpTBXSeparatorItem
end
object TBXItem5: TTBXItem
object TBXItem5: TSpTBXItem
Action = RichEditBold1
end
object TBXItem6: TTBXItem
object TBXItem6: TSpTBXItem
Action = RichEditItalic1
end
object TBXItem7: TTBXItem
object TBXItem7: TSpTBXItem
Action = RichEditUnderline1
end
object TBXSeparatorItem4: TTBXSeparatorItem
object TBXSeparatorItem4: TSpTBXSeparatorItem
end
object TBXItem9: TTBXItem
object TBXItem9: TSpTBXItem
Action = RichEditAlignLeft1
end
object TBXItem10: TTBXItem
object TBXItem10: TSpTBXItem
Action = RichEditAlignCenter1
end
object TBXItem11: TTBXItem
object TBXItem11: TSpTBXItem
Action = RichEditAlignRight1
end
object TBXSeparatorItem3: TTBXSeparatorItem
object TBXSeparatorItem3: TSpTBXSeparatorItem
end
object TBXItem8: TTBXItem
object TBXItem8: TSpTBXItem
Action = FontEdit1
end
object TBXSeparatorItem5: TTBXSeparatorItem
object TBXSeparatorItem5: TSpTBXSeparatorItem
end
object TBXItem13: TTBXItem
object TBXItem13: TSpTBXItem
Action = actAnchoAutomatico
DisplayMode = nbdmImageAndText
end
object TBXItem17: TTBXItem
object TBXItem17: TSpTBXItem
Action = actExportar
end
end

59
Source/GUIBase/uViewDetallesBase.pas
View File

@ -12,8 +12,9 @@ uses
uGridStatusUtils, uControllerDetallesBase, cxCurrencyEdit,
ExtCtrls, Grids, DBGrids, StdCtrls,
ExtActns, StdActns, cxRichEdit, JvExStdCtrls, JvCombobox, JvColorCombo,
TB2Item, TBX, TB2Dock, TB2Toolbar, uDAInterfaces, cxContainer,
Menus, cxGridCustomPopupMenu, cxGridPopupMenu;
TB2Item, SpTBXItem, TB2Dock, TB2Toolbar, uDAInterfaces, cxContainer,
Menus, cxGridCustomPopupMenu, cxGridPopupMenu, cxLookAndFeels,
cxLookAndFeelPainters;
type
IViewDetallesBase = interface(IViewBase)
@ -86,28 +87,28 @@ type
UpDown1: TUpDown;
FontSize: TEdit;
FontName: TJvFontComboBox;
TBXDock1: TTBXDock;
TBXToolbar1: TTBXToolbar;
TBXItem1: TTBXItem;
TBXItem2: TTBXItem;
TBXSeparatorItem1: TTBXSeparatorItem;
TBXItem3: TTBXItem;
TBXItem4: TTBXItem;
TBXSeparatorItem2: TTBXSeparatorItem;
TBXItem5: TTBXItem;
TBXItem6: TTBXItem;
TBXItem7: TTBXItem;
TBXSeparatorItem3: TTBXSeparatorItem;
TBXItem8: TTBXItem;
TBXSeparatorItem4: TTBXSeparatorItem;
TBXItem9: TTBXItem;
TBXItem10: TTBXItem;
TBXItem11: TTBXItem;
TBXDock1: TSpTBXDock;
TBXToolbar1: TSpTBXToolbar;
TBXItem1: TSpTBXItem;
TBXItem2: TSpTBXItem;
TBXSeparatorItem1: TSpTBXSeparatorItem;
TBXItem3: TSpTBXItem;
TBXItem4: TSpTBXItem;
TBXSeparatorItem2: TSpTBXSeparatorItem;
TBXItem5: TSpTBXItem;
TBXItem6: TSpTBXItem;
TBXItem7: TSpTBXItem;
TBXSeparatorItem3: TSpTBXSeparatorItem;
TBXItem8: TSpTBXItem;
TBXSeparatorItem4: TSpTBXSeparatorItem;
TBXItem9: TSpTBXItem;
TBXItem10: TSpTBXItem;
TBXItem11: TSpTBXItem;
cxStyle_SUBTOTAL: TcxStyle;
cxStyle_TITULO: TcxStyle;
actAnchoAutomatico: TAction;
TBXSeparatorItem5: TTBXSeparatorItem;
TBXItem13: TTBXItem;
TBXSeparatorItem5: TSpTBXSeparatorItem;
TBXItem13: TSpTBXItem;
cxStyle_DESCUENTO: TcxStyle;
actDetallesCortar: TAction;
actDetallesCopiar: TAction;
@ -116,17 +117,17 @@ type
cxStyle_ESPECIALES: TcxStyle;
cxStyle_NORMAL_PAR: TcxStyle;
cxStyle_NORMAL_IMPAR: TcxStyle;
TBXSubmenuItem1: TTBXSubmenuItem;
TBXSeparatorItem6: TTBXSeparatorItem;
TBXSubmenuItem1: TSpTBXSubmenuItem;
TBXSeparatorItem6: TSpTBXSeparatorItem;
actAnadirCapitulo: TAction;
actAnadirTitulo: TAction;
actAnadirSubtotal: TAction;
actAnadirDescuento: TAction;
TBXItem12: TTBXItem;
TBXItem14: TTBXItem;
TBXItem15: TTBXItem;
TBXItem16: TTBXItem;
TBXSeparatorItem7: TTBXSeparatorItem;
TBXItem12: TSpTBXItem;
TBXItem14: TSpTBXItem;
TBXItem15: TSpTBXItem;
TBXItem16: TSpTBXItem;
TBXSeparatorItem7: TSpTBXSeparatorItem;
cxGridPopupMenu: TcxGridPopupMenu;
GridGeneralPopupMenu: TPopupMenu;
dsds1: TMenuItem;
@ -145,7 +146,7 @@ type
actSeleccionarTodo: TAction;
Seleccionartodo1: TMenuItem;
cxStyle_TITULO_OPCIONAL: TcxStyle;
TBXItem17: TTBXItem;
TBXItem17: TSpTBXItem;
procedure actAnadirExecute(Sender: TObject);
procedure actEliminarExecute(Sender: TObject);
procedure actSubirExecute(Sender: TObject);

27
Source/GUIBase/uViewDetallesDTO.dfm
View File

@ -3,22 +3,23 @@ inherited frViewDetallesDTO: TfrViewDetallesDTO
inherited ToolButton1: TToolButton
ExplicitWidth = 109
end
inherited ToolButton14: TToolButton [1]
inherited ToolButton2: TToolButton
Left = 109
Wrap = False
end
inherited ToolButton4: TToolButton [2]
Left = 174
end
inherited ToolButton3: TToolButton [3]
Left = 230
ExplicitLeft = 230
end
inherited ToolButton2: TToolButton [4]
Left = 285
ExplicitLeft = 285
ExplicitLeft = 109
ExplicitWidth = 114
end
inherited ToolButton3: TToolButton
Left = 223
ExplicitLeft = 223
end
inherited ToolButton4: TToolButton
Left = 278
ExplicitLeft = 278
end
inherited ToolButton14: TToolButton
Left = 334
ExplicitLeft = 334
end
inherited FontSize: TEdit
Width = 41
ExplicitWidth = 41

4
Source/GUIBase/uViewDetallesDTO.pas
View File

@ -7,11 +7,11 @@ uses
Dialogs, uViewDetallesBase, cxStyles, cxCustomData, cxGraphics, cxFilter,
cxData, cxDataStorage, cxEdit, DB, cxDBData, cxImageComboBox, cxRichEdit,
cxMaskEdit, cxCurrencyEdit, cxCheckBox, ImgList, PngImageList, uDADataTable,
StdActns, ExtActns, ActnList, TB2Item, TBX, TB2Dock, TB2Toolbar, cxGridLevel,
StdActns, ExtActns, ActnList, TB2Item, SpTBXItem, TB2Dock, TB2Toolbar, cxGridLevel,
cxGridCustomTableView, cxGridTableView, cxGridDBTableView, cxClasses,
cxControls, cxGridCustomView, cxGrid, ComCtrls, StdCtrls, JvExStdCtrls,
JvCombobox, JvColorCombo, ToolWin, uDAInterfaces, Menus,
cxGridCustomPopupMenu, cxGridPopupMenu;
cxGridCustomPopupMenu, cxGridPopupMenu, cxLookAndFeels, cxLookAndFeelPainters;
type
IViewDetallesDTO = interface(IViewDetallesBase)

3
Source/GUIBase/uViewDetallesGenerico.pas
View File

@ -8,7 +8,8 @@ uses
cxDataStorage, cxEdit, DB, cxDBData, cxTextEdit, ActnList, ImgList,
PngImageList, uDADataTable, ComCtrls, ToolWin, cxGridLevel,
cxGridCustomTableView, cxGridTableView, cxGridDBTableView, cxClasses,
cxControls, cxGridCustomView, cxGrid, uDAInterfaces;
cxControls, cxGridCustomView, cxGrid, uDAInterfaces, cxLookAndFeels,
cxLookAndFeelPainters;
type
IViewDetallesGenerico = interface(IViewBase)

16
Source/GUIBase/uViewDocumentos.dfm
View File

@ -1,12 +1,12 @@
inherited frViewDocumentos: TfrViewDocumentos
OnCreate = CustomViewCreate
OnDestroy = CustomViewDestroy
object TBXDock: TTBXDock
object TBXDock: TSpTBXDock
Left = 0
Top = 0
Width = 445
Height = 23
object tbxMain: TTBXToolbar
object tbxMain: TSpTBXToolbar
Left = 0
Top = 0
Caption = 'tbxMain'
@ -18,22 +18,22 @@ inherited frViewDocumentos: TfrViewDocumentos
ParentShowHint = False
ShowHint = True
TabOrder = 0
object TBXItem2: TTBXItem
object TBXItem2: TSpTBXItem
Action = actAnadir
DisplayMode = nbdmImageAndText
end
object TBXItem3: TTBXItem
object TBXItem3: TSpTBXItem
Action = actModificar
end
object TBXItem1: TTBXItem
object TBXItem1: TSpTBXItem
Action = actEliminar
end
object TBXSeparatorItem1: TTBXSeparatorItem
object TBXSeparatorItem1: TSpTBXSeparatorItem
end
object TBXItem4: TTBXItem
object TBXItem4: TSpTBXItem
Action = actEliminarTodo
end
object TBXItem5: TTBXItem
object TBXItem5: TSpTBXItem
Action = actActualizarServidor
end
end

18
Source/GUIBase/uViewDocumentos.pas
View File

@ -5,29 +5,29 @@ interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, uViewBase, cxControls,
cxContainer, ActnList, TB2Item, TBX, TB2Dock, TB2Toolbar, StdCtrls,
cxContainer, ActnList, TB2Item, SpTBXItem, TB2Dock, TB2Toolbar, StdCtrls,
FileCtrl, cxGraphics, cxCustomData, cxStyles, cxTL, cxInplaceContainer,
cxTLData, cxTextEdit, ComCtrls, ImgList, PngImageList;
type
TfrViewDocumentos = class(TfrViewBase)
EditorActionList: TActionList;
TBXDock: TTBXDock;
tbxMain: TTBXToolbar;
TBXItem2: TTBXItem;
TBXDock: TSpTBXDock;
tbxMain: TSpTBXToolbar;
TBXItem2: TSpTBXItem;
actAnadir: TAction;
actModificar: TAction;
actEliminar: TAction;
TBXItem1: TTBXItem;
TBXItem3: TTBXItem;
TBXItem1: TSpTBXItem;
TBXItem3: TSpTBXItem;
actEliminarTodo: TAction;
TBXItem4: TTBXItem;
TBXItem4: TSpTBXItem;
actActualizarServidor: TAction;
TBXItem5: TTBXItem;
TBXItem5: TSpTBXItem;
ListView1: TListView;
LargeImagesBrowser: TPngImageList;
SmallImagesBrowser: TPngImageList;
TBXSeparatorItem1: TTBXSeparatorItem;
TBXSeparatorItem1: TSpTBXSeparatorItem;
procedure actAnadirExecute(Sender: TObject);
procedure actModificarExecute(Sender: TObject);
procedure actEliminarExecute(Sender: TObject);

56
Source/GUIBase/uViewFiltroBase.dfm
View File

@ -4,21 +4,17 @@ inherited frViewFiltroBase: TfrViewFiltroBase
Visible = False
ExplicitWidth = 549
ExplicitHeight = 105
object TBXDockablePanel1: TTBXDockablePanel
object TBXDockablePanel1: TSpTBXDockablePanel
Left = 0
Top = 0
Align = alClient
Width = 549
Height = 105
Caption = 'TBXDockablePanel1'
CloseButton = False
CloseButtonWhenDocked = False
DockedHeight = 98
Align = alClient
DockMode = dmCannotFloatOrChangeDocks
FloatingWidth = 128
FloatingHeight = 98
TabOrder = 0
ShowCaption = False
ShowCaptionWhenDocked = False
SupportedDocks = [dkStandardDock, dkMultiDock]
TabOrder = 0
object dxLayoutControl1: TdxLayoutControl
Left = 0
Top = 0
@ -28,7 +24,6 @@ inherited frViewFiltroBase: TfrViewFiltroBase
ParentBackground = True
TabOrder = 0
TabStop = False
AutoContentSizes = [acsWidth, acsHeight]
object txtFiltroTodo: TcxTextEdit
Left = 87
Top = 10
@ -100,7 +95,7 @@ inherited frViewFiltroBase: TfrViewFiltroBase
Width = 100
end
object eLista: TcxComboBox
Left = 331
Left = 332
Top = 37
Properties.DropDownListStyle = lsEditFixedList
Properties.OnChange = OnCamposFiltroChange
@ -117,37 +112,38 @@ inherited frViewFiltroBase: TfrViewFiltroBase
Width = 215
end
object dxLayoutControl1Group_Root: TdxLayoutGroup
ShowCaption = False
AlignHorz = ahParentManaged
AlignVert = avParentManaged
CaptionOptions.Visible = False
ButtonOptions.Buttons = <>
Hidden = True
ShowBorder = False
object dxLayoutControl1Item1: TdxLayoutItem
Caption = 'Que contenga:'
CaptionOptions.Text = 'Que contenga:'
Control = txtFiltroTodo
ControlOptions.ShowBorder = False
end
object dxLayoutControl1Group1: TdxLayoutGroup
ShowCaption = False
CaptionOptions.Visible = False
ButtonOptions.Buttons = <>
Hidden = True
LayoutDirection = ldHorizontal
ShowBorder = False
object dxLayoutControl1Item2: TdxLayoutItem
AutoAligns = [aaVertical]
AlignHorz = ahClient
Caption = 'Entre la fecha:'
CaptionOptions.Text = 'Entre la fecha:'
Control = edtFechaIniFiltro
ControlOptions.ShowBorder = False
end
object dxLayoutControl1Item3: TdxLayoutItem
AutoAligns = [aaVertical]
AlignHorz = ahClient
Caption = 'y'
CaptionOptions.Text = 'y'
Control = edtFechaFinFiltro
ControlOptions.ShowBorder = False
end
object dxLayoutControl1Item4: TdxLayoutItem
AutoAligns = [aaVertical]
AlignHorz = ahClient
Caption = 'Lista:'
CaptionOptions.Text = 'Lista:'
Visible = False
Control = eLista
ControlOptions.ShowBorder = False
@ -155,23 +151,28 @@ inherited frViewFiltroBase: TfrViewFiltroBase
end
end
end
object TBXAlignmentPanel1: TTBXAlignmentPanel
Left = 0
object TBXAlignmentPanel1: TSpTBXDockablePanel
AlignWithMargins = True
Left = 10
Top = 73
Width = 549
Width = 539
Height = 30
Margins.Left = 10
Margins.Top = 0
Margins.Right = 0
Margins.Bottom = 0
Align = alTop
TabOrder = 1
object tbxBotones: TTBXToolbar
Left = 10
ShowCaption = False
ShowCaptionWhenDocked = False
object tbxBotones: TSpTBXToolbar
Left = 0
Top = 0
Width = 539
Height = 30
Align = alTop
AutoResize = False
BorderStyle = bsNone
Caption = 'tbxBotones'
ChevronHint = 'M'#225's botones|'
DockMode = dmCannotFloatOrChangeDocks
DockPos = -23
@ -180,7 +181,8 @@ inherited frViewFiltroBase: TfrViewFiltroBase
ParentShowHint = False
ShowHint = True
TabOrder = 0
object TBXItem2: TTBXItem
Caption = 'tbxBotones'
object TBXItem2: TSpTBXItem
Action = actQuitarFiltro
DisplayMode = nbdmImageAndText
Images = PngImageList

15
Source/GUIBase/uViewFiltroBase.pas
View File

@ -4,10 +4,11 @@ interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, Buttons, cxRadioGroup, TBXDkPanels, TB2ExtItems, TBXExtItems,
TBX, TB2Item, TB2Dock, TB2Toolbar, ActnList, ImgList, PngImageList,
Dialogs, StdCtrls, Buttons, cxRadioGroup, SpTBXDkPanels, TB2ExtItems,
SpTBXItem, TB2Item, TB2Dock, TB2Toolbar, ActnList, ImgList, PngImageList,
cxGraphics, dxLayoutLookAndFeels, dxLayoutControl, cxDropDownEdit, cxMaskEdit,
cxCalendar, cxContainer, cxEdit, cxTextEdit, cxControls, uViewBase;
cxCalendar, cxContainer, cxEdit, cxTextEdit, cxControls, uViewBase,
cxLookAndFeels, cxLookAndFeelPainters, dxLayoutcxEditAdapters;
type
IViewFiltroBase = interface(IViewBase)
@ -36,13 +37,13 @@ type
dxLayoutControl1Item3: TdxLayoutItem;
edtFechaFinFiltro: TcxDateEdit;
dxLayoutControl1Group1: TdxLayoutGroup;
TBXDockablePanel1: TTBXDockablePanel;
TBXDockablePanel1: TSpTBXDockablePanel;
ActionList1: TActionList;
actQuitarFiltro: TAction;
PngImageList: TPngImageList;
tbxBotones: TTBXToolbar;
TBXItem2: TTBXItem;
TBXAlignmentPanel1: TTBXAlignmentPanel;
tbxBotones: TSpTBXToolbar;
TBXItem2: TSpTBXItem;
TBXAlignmentPanel1: TSpTBXDockablePanel;
dxLayoutControl1Item4: TdxLayoutItem;
eLista: TcxComboBox;
procedure OnCamposFiltroChange(Sender: TObject);

3
Source/GUIBase/uViewFormaPago.pas
View File

@ -5,7 +5,8 @@ interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, uViewBase, DB, uDADataTable, cxMemo, cxDBEdit, cxControls,
cxContainer, cxEdit, cxTextEdit, ExtCtrls, StdCtrls, uDAInterfaces;
cxContainer, cxEdit, cxTextEdit, ExtCtrls, StdCtrls, uDAInterfaces,
cxGraphics, cxLookAndFeels, cxLookAndFeelPainters;
type
TfrViewFormaPago = class(TfrViewBase)

53
Source/GUIBase/uViewGrid.dfm
View File

@ -7,7 +7,7 @@ inherited frViewGrid: TfrViewGrid
Left = 0
Top = 102
Width = 607
Height = 313
Height = 211
Align = alClient
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
@ -84,7 +84,9 @@ inherited frViewGrid: TfrViewGrid
ReadOnly = False
ExplicitWidth = 607
ExplicitHeight = 102
inherited TBXDockablePanel1: TTBXDockablePanel
inherited TBXDockablePanel1: TSpTBXDockablePanel
Width = 607
Height = 102
ExplicitWidth = 607
ExplicitHeight = 102
inherited dxLayoutControl1: TdxLayoutControl
@ -127,30 +129,28 @@ inherited frViewGrid: TfrViewGrid
Width = 215
end
end
inherited TBXAlignmentPanel1: TTBXAlignmentPanel
Width = 607
ExplicitWidth = 607
inherited tbxBotones: TTBXToolbar
inherited TBXAlignmentPanel1: TSpTBXDockablePanel
Width = 597
ExplicitWidth = 597
inherited tbxBotones: TSpTBXToolbar
Width = 597
ExplicitWidth = 597
end
end
end
end
object pnlAgrupaciones: TTBXDockablePanel
object pnlAgrupaciones: TSpTBXDockablePanel
Left = 0
Top = 415
MinClientHeight = 8
Align = alBottom
Top = 313
Width = 607
Height = 128
Caption = 'pnlAgrupaciones'
DockedHeight = 26
FloatingWidth = 128
FloatingHeight = 26
SupportedDocks = [dkStandardDock, dkMultiDock]
Align = alBottom
TabOrder = 2
Visible = False
ExplicitWidth = 128
object TBXAlignmentPanel1: TTBXAlignmentPanel
ShowCaption = False
ShowCaptionWhenDocked = False
object TBXAlignmentPanel1: TSpTBXDockablePanel
Left = 0
Top = 0
Width = 607
@ -158,16 +158,20 @@ inherited frViewGrid: TfrViewGrid
Margins.Left = 10
Align = alTop
TabOrder = 0
object TBXToolbar1: TTBXToolbar
Left = 10
ShowCaption = False
ShowCaptionWhenDocked = False
ExplicitTop = 10
object TBXToolbar1: TSpTBXToolbar
Left = 0
Top = 0
Width = 597
Width = 607
Height = 26
Align = alTop
AutoResize = False
Caption = 'TBXToolbar1'
TabOrder = 0
object TBXItem1: TTBXItem
Caption = 'TBXToolbar1'
ExplicitTop = 10
object TBXItem1: TSpTBXItem
Action = actQuitarAgrupaciones
end
end
@ -199,7 +203,7 @@ inherited frViewGrid: TfrViewGrid
PrinterPage.ScaleMode = smFit
PrinterPage._dxMeasurementUnits_ = 0
PrinterPage._dxLastMU_ = 2
ReportDocument.CreationDate = 40003.669735601850000000
ReportDocument.CreationDate = 40200.437038078700000000
StyleManager = dmBase.dxPrintStyleManager1
OptionsCards.Shadow.Depth = 0
OptionsExpanding.ExpandGroupRows = True
@ -223,8 +227,9 @@ inherited frViewGrid: TfrViewGrid
end
end
object dxPSEngineController1: TdxPSEngineController
LookAndFeel = pslfOffice11
UseNativeLookAndFeel = False
Active = True
DialogsLookAndFeel.Kind = lfOffice11
PreviewDialogStyle = 'Advanced'
Left = 336
Top = 128
end

16
Source/GUIBase/uViewGrid.pas
View File

@ -19,10 +19,12 @@ uses
DBGrids, JvComponent, JvFormAutoSize, dxPSGlbl, dxPSUtl, dxPSEngn,
dxPrnPg, dxBkgnd, dxWrap, dxPrnDev, dxPSCompsProvider, dxPSFillPatterns,
dxPSEdgePatterns, dxPSCore, dxPScxCommon, dxPrnDlg,
cxIntlPrintSys3, dxPSPrvwAdv, uViewGridBase, cxGridCustomPopupMenu,
dxPSPrvwAdv, uViewGridBase, cxGridCustomPopupMenu,
cxGridPopupMenu, uViewFiltroBase, ComCtrls, cxPC, ImgList, PngImageList,
TB2Item, TBX, TB2Dock, TB2Toolbar, TBXDkPanels, dxPgsDlg, uDAInterfaces,
dxPScxGrid6Lnk, uCustomView;
TB2Item, SpTBXItem, TB2Dock, TB2Toolbar, SpTBXDkPanels, dxPgsDlg, uDAInterfaces,
dxPScxGrid6Lnk, uCustomView, cxLookAndFeels, cxLookAndFeelPainters,
dxPSPDFExportCore, dxPSPDFExport, cxDrawTextUtils, dxPSPrVwStd,
dxPScxEditorProducers, dxPScxExtEditorProducers, dxPScxPageControlProducer;
type
IViewGrid = interface(IViewGridBase)
@ -41,10 +43,10 @@ type
frViewFiltroBase1: TfrViewFiltroBase;
ActionList1: TActionList;
actQuitarAgrupaciones: TAction;
pnlAgrupaciones: TTBXDockablePanel;
TBXAlignmentPanel1: TTBXAlignmentPanel;
TBXToolbar1: TTBXToolbar;
TBXItem1: TTBXItem;
pnlAgrupaciones: TSpTBXDockablePanel;
TBXAlignmentPanel1: TSpTBXDockablePanel;
TBXToolbar1: TSpTBXToolbar;
TBXItem1: TSpTBXItem;
cxStyleRepositoryInforme: TcxStyleRepository;
cxStyleContentInforme: TcxStyle;
cxStyleFooterInforme: TcxStyle;

2
Source/GUIBase/uViewGrid2Niveles.pas
View File

@ -19,7 +19,7 @@ uses
DBGrids, JvComponent, JvFormAutoSize, dxPSGlbl, dxPSUtl, dxPSEngn,
dxPrnPg, dxBkgnd, dxWrap, dxPrnDev, dxPSCompsProvider, dxPSFillPatterns,
dxPSEdgePatterns, dxPSCore, dxPScxCommon, dxPrnDlg,
cxIntlPrintSys3, dxPSPrvwAdv, uViewGridBase, cxGridCustomPopupMenu,
dxPSPrvwAdv, uViewGridBase, cxGridCustomPopupMenu,
cxGridPopupMenu, uDAInterfaces, dxPScxGrid6Lnk;
type

2
Source/GUIBase/uViewIncidencias.pas
View File

@ -7,7 +7,7 @@ uses
Dialogs, uViewBase, ExtCtrls, StdCtrls, DB, uDADataTable, cxGraphics,
cxTextEdit, cxMaskEdit, cxDropDownEdit, cxDBEdit, cxControls,
cxContainer, cxEdit, cxLabel, cxDBLabel, cxCurrencyEdit, cxSpinEdit,
cxCheckBox, cxMemo, uDAInterfaces;
cxCheckBox, cxMemo, uDAInterfaces, cxLookAndFeels, cxLookAndFeelPainters;
type
TfrViewIncidencias = class(TfrViewBase)

3
Source/GUIBase/uViewObservaciones.pas
View File

@ -5,7 +5,8 @@ interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, uViewBase, DB, uDADataTable, cxMemo, cxDBEdit, cxControls,
cxContainer, cxEdit, cxTextEdit, ExtCtrls, StdCtrls, uDAInterfaces;
cxContainer, cxEdit, cxTextEdit, ExtCtrls, StdCtrls, uDAInterfaces,
cxGraphics, cxLookAndFeels, cxLookAndFeelPainters;
type
TfrViewObservaciones = class(TfrViewBase)

1
Source/GUIBase/uViewPreview.dfm
View File

@ -8,5 +8,6 @@ inherited frViewPreview: TfrViewPreview
OutlineVisible = False
OutlineWidth = 121
ThumbnailVisible = False
UseReportHints = True
end
end

53
Source/GUIBase/uViewRichEditor.dfm
View File

@ -5,20 +5,19 @@ inherited frViewRichEditor: TfrViewRichEditor
OnShow = CustomViewShow
ExplicitWidth = 635
ExplicitHeight = 401
object TBXDock1: TTBXDock
object TBXDock1: TSpTBXDock
Left = 0
Top = 0
Width = 635
Height = 26
BackgroundOnToolbars = False
UseParentBackground = True
object TBXToolbar1: TTBXToolbar
object TBXToolbar1: TSpTBXToolbar
Left = 0
Top = 0
Caption = 'TBXToolbar1'
DragHandleStyle = dhNone
Images = SmallImages
TabOrder = 0
Caption = 'TBXToolbar1'
object TBControlItem1: TTBControlItem
Control = fcbFontName
end
@ -28,75 +27,75 @@ inherited frViewRichEditor: TfrViewRichEditor
object TBControlItem3: TTBControlItem
Control = cxSpinButton
end
object TBXSeparatorItem3: TTBXSeparatorItem
object TBXSeparatorItem3: TSpTBXSeparatorItem
end
object TBXColorItem1: TTBXColorItem
object TBXColorItem1: TSpTBXColorItem
Caption = 'Color'
end
object TBXSeparatorItem1: TTBXSeparatorItem
object TBXSeparatorItem1: TSpTBXSeparatorItem
end
object bBold: TTBXItem
AutoCheck = True
object bBold: TSpTBXItem
Caption = 'Negrita'
AutoCheck = True
DisplayMode = nbdmTextOnlyInMenus
ImageIndex = 0
OnClick = bBoldClick
end
object bItalic: TTBXItem
AutoCheck = True
object bItalic: TSpTBXItem
Caption = 'Cursiva'
AutoCheck = True
DisplayMode = nbdmTextOnlyInMenus
ImageIndex = 1
OnClick = bItalicClick
end
object bUnderline: TTBXItem
AutoCheck = True
object bUnderline: TSpTBXItem
Caption = 'Subrayado'
AutoCheck = True
DisplayMode = nbdmTextOnlyInMenus
ImageIndex = 2
OnClick = bUnderlineClick
end
object TBXSeparatorItem2: TTBXSeparatorItem
object TBXSeparatorItem2: TSpTBXSeparatorItem
end
object TBXItem5: TTBXItem
object TBXItem5: TSpTBXItem
Action = actEditCut
end
object TBXItem6: TTBXItem
object TBXItem6: TSpTBXItem
Action = actEditCopy
end
object TBXItem7: TTBXItem
object TBXItem7: TSpTBXItem
Action = actEditPaste
end
object TBXSeparatorItem4: TTBXSeparatorItem
object TBXSeparatorItem4: TSpTBXSeparatorItem
end
object bAlignLeft: TTBXItem
AutoCheck = True
object bAlignLeft: TSpTBXItem
Caption = 'Alinear a la izquierda'
AutoCheck = True
GroupIndex = 50
ImageIndex = 8
OnClick = bAlignLeftClick
end
object bAlignCenter: TTBXItem
object bAlignCenter: TSpTBXItem
Tag = 2
AutoCheck = True
Caption = 'Centrar'
AutoCheck = True
GroupIndex = 50
ImageIndex = 9
OnClick = bAlignCenterClick
end
object bAlignRight: TTBXItem
object bAlignRight: TSpTBXItem
Tag = 1
AutoCheck = True
Caption = 'Alinear a la derecha'
AutoCheck = True
GroupIndex = 50
ImageIndex = 10
OnClick = bAlignRightClick
end
object TBXSeparatorItem5: TTBXSeparatorItem
object TBXSeparatorItem5: TSpTBXSeparatorItem
end
object bBullets: TTBXItem
AutoCheck = True
object bBullets: TSpTBXItem
Caption = 'Vi'#241'etas'
AutoCheck = True
ImageIndex = 12
OnClick = bBulletsClick
end

40
Source/GUIBase/uViewRichEditor.pas
View File

@ -7,9 +7,9 @@ uses
Dialogs, uViewBase, Menus, cxLookAndFeelPainters, cxGraphics, cxSpinEdit,
cxSpinButton, cxMaskEdit, cxFontNameComboBox, cxControls, cxContainer, cxEdit,
cxTextEdit, cxDropDownEdit, cxColorComboBox, StdCtrls, cxButtons, ComCtrls,
ToolWin, ImgList, ActnList, TBXExtItems, TB2ExtItems, TB2Item, TBX, TB2Dock,
ToolWin, ImgList, ActnList, TB2ExtItems, TB2Item, SpTBXItem, TB2Dock,
TB2Toolbar, PngImageList, cxMemo, cxRichEdit, ExtCtrls, DB, uDAInterfaces,
uDADataTable, cxDBRichEdit;
uDADataTable, cxDBRichEdit, cxLookAndFeels;
type
IViewRichEditor = interface(IViewBase)
@ -30,33 +30,33 @@ type
miWeb: TMenuItem;
miWebSorted: TMenuItem;
ToolbarImages: TImageList;
TBXDock1: TTBXDock;
TBXToolbar1: TTBXToolbar;
bBold: TTBXItem;
bItalic: TTBXItem;
TBXSeparatorItem1: TTBXSeparatorItem;
bUnderline: TTBXItem;
TBXSeparatorItem2: TTBXSeparatorItem;
TBXItem5: TTBXItem;
TBXItem6: TTBXItem;
TBXItem7: TTBXItem;
TBXSeparatorItem4: TTBXSeparatorItem;
bAlignLeft: TTBXItem;
bAlignCenter: TTBXItem;
bAlignRight: TTBXItem;
TBXDock1: TSpTBXDock;
TBXToolbar1: TSpTBXToolbar;
bBold: TSpTBXItem;
bItalic: TSpTBXItem;
TBXSeparatorItem1: TSpTBXSeparatorItem;
bUnderline: TSpTBXItem;
TBXSeparatorItem2: TSpTBXSeparatorItem;
TBXItem5: TSpTBXItem;
TBXItem6: TSpTBXItem;
TBXItem7: TSpTBXItem;
TBXSeparatorItem4: TSpTBXSeparatorItem;
bAlignLeft: TSpTBXItem;
bAlignCenter: TSpTBXItem;
bAlignRight: TSpTBXItem;
LargeImages: TPngImageList;
SmallImages: TPngImageList;
TBControlItem1: TTBControlItem;
fcbFontName: TcxFontNameComboBox;
TBXColorItem1: TTBXColorItem;
TBXColorItem1: TSpTBXColorItem;
RichEdit: TcxDBRichEdit;
TBControlItem2: TTBControlItem;
meFontSize: TcxMaskEdit;
TBControlItem3: TTBControlItem;
cxSpinButton: TcxSpinButton;
TBXSeparatorItem3: TTBXSeparatorItem;
TBXSeparatorItem5: TTBXSeparatorItem;
bBullets: TTBXItem;
TBXSeparatorItem3: TSpTBXSeparatorItem;
TBXSeparatorItem5: TSpTBXSeparatorItem;
bBullets: TSpTBXItem;
procedure actBulletsExecute(Sender: TObject);
procedure actEditCutExecute(Sender: TObject);
procedure actEditCopyExecute(Sender: TObject);

134
Source/GUIBase/uViewTotales.dfm
View File

@ -1,9 +1,9 @@
inherited frViewTotales: TfrViewTotales
Width = 880
Height = 360
Width = 788
Height = 233
Align = alBottom
ExplicitWidth = 879
ExplicitHeight = 360
ExplicitWidth = 788
ExplicitHeight = 233
object Bevel5: TBevel
Left = 666
Top = 109
@ -15,8 +15,8 @@ inherited frViewTotales: TfrViewTotales
AlignWithMargins = True
Left = 0
Top = 0
Width = 880
Height = 360
Width = 788
Height = 233
Margins.Left = 0
Margins.Top = 0
Margins.Right = 0
@ -25,18 +25,17 @@ inherited frViewTotales: TfrViewTotales
ParentBackground = True
TabOrder = 0
TabStop = False
AutoContentSizes = [acsWidth, acsHeight]
ExplicitWidth = 451
ExplicitHeight = 404
ExplicitHeight = 360
object Bevel3: TBevel
Left = 366
Left = 329
Top = 28
Width = 3
Height = 100
Shape = bsRightLine
end
object Bevel4: TBevel
Left = 478
Left = 442
Top = 70
Width = 342
Height = 9
@ -78,12 +77,11 @@ inherited frViewTotales: TfrViewTotales
Width = 87
end
object ImporteIVA: TcxDBCurrencyEdit
Left = 549
Left = 513
Top = 105
AutoSize = False
DataBinding.DataField = 'IMPORTE_IVA'
DataBinding.DataSource = DADataSource
Enabled = False
ParentFont = False
Properties.Alignment.Horz = taRightJustify
Properties.ReadOnly = True
@ -113,12 +111,11 @@ inherited frViewTotales: TfrViewTotales
Width = 20
end
object ImporteTotal: TcxDBCurrencyEdit
Left = 479
Left = 442
Top = 159
AutoSize = False
DataBinding.DataField = 'IMPORTE_TOTAL'
DataBinding.DataSource = DADataSource
Enabled = False
ParentFont = False
Properties.Alignment.Horz = taRightJustify
Properties.ReadOnly = True
@ -183,12 +180,11 @@ inherited frViewTotales: TfrViewTotales
Width = 65
end
object edtIVA: TcxDBSpinEdit
Left = 478
Left = 442
Top = 105
AutoSize = False
DataBinding.DataField = 'IVA'
DataBinding.DataSource = DADataSource
Enabled = False
ParentFont = False
Properties.Alignment.Horz = taRightJustify
Properties.AssignedValues.MinValue = True
@ -224,12 +220,11 @@ inherited frViewTotales: TfrViewTotales
Width = 65
end
object ImporteBase: TcxDBCurrencyEdit
Left = 478
Left = 442
Top = 28
AutoSize = False
DataBinding.DataField = 'BASE_IMPONIBLE'
DataBinding.DataSource = DADataSource
Enabled = False
ParentFont = False
Properties.Alignment.Horz = taRightJustify
Properties.ReadOnly = True
@ -259,12 +254,11 @@ inherited frViewTotales: TfrViewTotales
Width = 91
end
object edtRE: TcxDBSpinEdit
Left = 478
Left = 442
Top = 132
AutoSize = False
DataBinding.DataField = 'RE'
DataBinding.DataSource = DADataSource
Enabled = False
ParentFont = False
Properties.Alignment.Horz = taRightJustify
Properties.AssignedValues.EditFormat = True
@ -300,12 +294,11 @@ inherited frViewTotales: TfrViewTotales
Width = 65
end
object ImporteRE: TcxDBCurrencyEdit
Left = 549
Left = 513
Top = 132
AutoSize = False
DataBinding.DataField = 'IMPORTE_RE'
DataBinding.DataSource = DADataSource
Enabled = False
ParentFont = False
Properties.Alignment.Horz = taRightJustify
Properties.ReadOnly = True
@ -438,7 +431,7 @@ inherited frViewTotales: TfrViewTotales
Width = 20
end
object bTiposIVA: TButton
Left = 218
Left = 181
Top = 109
Width = 132
Height = 21
@ -476,171 +469,169 @@ inherited frViewTotales: TfrViewTotales
Width = 221
end
object dxLayoutControl1Group_Root: TdxLayoutGroup
ShowCaption = False
AlignHorz = ahParentManaged
AlignVert = avParentManaged
CaptionOptions.Visible = False
ButtonOptions.Buttons = <>
Hidden = True
ShowBorder = False
object dxLayoutControl1Group1: TdxLayoutGroup
AutoAligns = [aaHorizontal]
Caption = 'Importes totales'
AlignVert = avTop
CaptionOptions.Text = 'Importes totales'
ButtonOptions.Buttons = <>
LayoutDirection = ldHorizontal
object dxLayoutControl1Group2: TdxLayoutGroup
AutoAligns = [aaVertical]
AlignHorz = ahClient
ShowCaption = False
CaptionOptions.Visible = False
ButtonOptions.Buttons = <>
Hidden = True
ShowBorder = False
object dxLayoutControl1Item8: TdxLayoutItem
AutoAligns = [aaVertical]
AlignHorz = ahClient
Caption = 'Importe neto:'
CaptionOptions.Text = 'Importe neto:'
Control = eImporteNeto
ControlOptions.ShowBorder = False
end
object dxLayoutControl1Group7: TdxLayoutGroup
ShowCaption = False
CaptionOptions.Visible = False
ButtonOptions.Buttons = <>
Hidden = True
ShowBorder = False
object dxLayoutControl1Group10: TdxLayoutGroup
ShowCaption = False
CaptionOptions.Visible = False
ButtonOptions.Buttons = <>
Hidden = True
LayoutDirection = ldHorizontal
ShowBorder = False
object dxLayoutControl1Item4: TdxLayoutItem
AutoAligns = [aaVertical]
Caption = 'Descuento (%):'
AlignHorz = ahLeft
CaptionOptions.Text = 'Descuento (%):'
Control = edtDescuento
ControlOptions.ShowBorder = False
end
object dxLayoutControl1Item1: TdxLayoutItem
AutoAligns = [aaVertical]
AlignHorz = ahClient
Caption = 'Importe de dto:'
ShowCaption = False
CaptionOptions.Text = 'Importe de dto:'
CaptionOptions.Visible = False
Control = ImporteDto
ControlOptions.ShowBorder = False
end
end
object dxLayoutControl1Item9: TdxLayoutItem
AutoAligns = [aaVertical]
AlignHorz = ahClient
Caption = 'Porte:'
CaptionOptions.Text = 'Porte:'
Control = ePorte
ControlOptions.ShowBorder = False
end
end
object dxLayoutControl1Group6: TdxLayoutGroup
ShowCaption = False
CaptionOptions.Visible = False
ButtonOptions.Buttons = <>
Hidden = True
LayoutDirection = ldHorizontal
ShowBorder = False
object dxLayoutControl1Item11: TdxLayoutItem
AutoAligns = [aaVertical]
AlignHorz = ahClient
Caption = 'Tipo de IVA:'
CaptionOptions.Text = 'Tipo de IVA:'
Control = eIVA
ControlOptions.ShowBorder = False
end
object dxLayoutControl1Item15: TdxLayoutItem
AutoAligns = [aaVertical]
AlignHorz = ahRight
ShowCaption = False
CaptionOptions.Visible = False
Control = bTiposIVA
ControlOptions.ShowBorder = False
end
end
object dxLayoutControl1Item16: TdxLayoutItem
Caption = ' '
CaptionOptions.Text = ' '
Control = cbRecargoEquivalencia
ControlOptions.ShowBorder = False
end
end
object dxLayoutControl1Group5: TdxLayoutGroup
AutoAligns = [aaVertical]
AlignHorz = ahClient
ShowCaption = False
CaptionOptions.Visible = False
ButtonOptions.Buttons = <>
Hidden = True
LayoutDirection = ldHorizontal
ShowBorder = False
object dxLayoutControl1Item13: TdxLayoutItem
AutoAligns = [aaHorizontal]
AlignVert = avClient
Caption = ' '
CaptionOptions.Text = ' '
CaptionOptions.Visible = False
Offsets.Left = 10
Offsets.Right = 10
ShowCaption = False
Control = Bevel3
ControlOptions.ShowBorder = False
end
object dxLayoutControl1Group3: TdxLayoutGroup
AutoAligns = [aaVertical]
AlignHorz = ahClient
ShowCaption = False
CaptionOptions.Visible = False
ButtonOptions.Buttons = <>
Hidden = True
ShowBorder = False
object dxLayoutControl1Item12: TdxLayoutItem
AutoAligns = [aaVertical]
AlignHorz = ahClient
Caption = 'Base imponible:'
CaptionOptions.Text = 'Base imponible:'
Control = ImporteBase
ControlOptions.ShowBorder = False
end
object dxLayoutControl1Item14: TdxLayoutItem
AutoAligns = [aaVertical]
AlignHorz = ahClient
Caption = ' '
CaptionOptions.Text = ' '
Offsets.Bottom = 15
Offsets.Top = 15
Control = Bevel4
ControlOptions.ShowBorder = False
end
object dxLayoutControl1Group9: TdxLayoutGroup
ShowCaption = False
CaptionOptions.Visible = False
ButtonOptions.Buttons = <>
Hidden = True
LayoutDirection = ldHorizontal
ShowBorder = False
object dxLayoutControl1Item5: TdxLayoutItem
AutoAligns = [aaVertical]
Caption = 'IVA (%):'
AlignHorz = ahLeft
CaptionOptions.AlignHorz = taRightJustify
CaptionOptions.Text = 'IVA (%):'
Control = edtIVA
ControlOptions.ShowBorder = False
end
object dxLayoutControl1Item2: TdxLayoutItem
AutoAligns = [aaVertical]
AlignHorz = ahClient
Caption = 'Importe de IVA:'
ShowCaption = False
CaptionOptions.Text = 'Importe de IVA:'
CaptionOptions.Visible = False
Control = ImporteIVA
ControlOptions.ShowBorder = False
end
end
object dxLayoutControl1Group8: TdxLayoutGroup
ShowCaption = False
CaptionOptions.Visible = False
ButtonOptions.Buttons = <>
Hidden = True
LayoutDirection = ldHorizontal
ShowBorder = False
object dxLayoutControl1Item6: TdxLayoutItem
AutoAligns = [aaVertical]
Caption = 'RE. (%):'
AlignHorz = ahLeft
CaptionOptions.AlignHorz = taRightJustify
CaptionOptions.Text = 'RE. (%):'
Control = edtRE
ControlOptions.ShowBorder = False
end
object dxLayoutControl1Item7: TdxLayoutItem
AutoAligns = [aaVertical]
AlignHorz = ahClient
Caption = 'Importe de RE:'
ShowCaption = False
CaptionOptions.Text = 'Importe de RE:'
CaptionOptions.Visible = False
Visible = False
Control = ImporteRE
ControlOptions.ShowBorder = False
end
end
object dxLayoutControl1Item3: TdxLayoutItem
AutoAligns = [aaVertical]
AlignHorz = ahClient
Caption = 'Importe total:'
LookAndFeel = LookAndFeelIMPORTE_TOTAL
CaptionOptions.Text = 'Importe total:'
LayoutLookAndFeel = LookAndFeelIMPORTE_TOTAL
Control = ImporteTotal
ControlOptions.ShowBorder = False
end
@ -649,6 +640,7 @@ inherited frViewTotales: TfrViewTotales
end
end
object dxLayoutControl1Group4: TdxLayoutGroup
ButtonOptions.Buttons = <>
end
end
object DADataSource: TDADataSource

3
Source/GUIBase/uViewTotales.pas
View File

@ -8,7 +8,8 @@ uses
cxTextEdit, cxMaskEdit, cxDropDownEdit, cxDBEdit, cxControls,
cxContainer, cxEdit, cxLabel, cxDBLabel, cxCurrencyEdit, cxSpinEdit,
ComCtrls, dxLayoutControl, dxLayoutLookAndFeels, cxLookupEdit, cxDBLookupEdit,
cxDBLookupComboBox, cxCheckBox, uDAInterfaces, cxCalendar;
cxDBLookupComboBox, cxCheckBox, uDAInterfaces, cxCalendar, cxLookAndFeels,
cxLookAndFeelPainters, dxLayoutcxEditAdapters;
type
TfrViewTotales = class(TfrViewBase)

2
Source/Modulos/Albaranes de cliente/Servidor/srvAlbaranesCliente_Impl.pas
View File

@ -16,7 +16,7 @@ uses
{Used RODLs:} DataAbstract4_Intf,
{Generated:} uDABusinessProcessor, uDABin2DataStreamer, uDADataStreamer,
uDAScriptingProvider, uDAClasses,
FactuGES_Intf, uDAInterfaces;
FactuGES_Intf, uDAInterfaces, uROClient;
type

24
Source/Modulos/Albaranes de cliente/Views/uEditorAlbaranCliente.dfm
View File

@ -131,32 +131,32 @@ inherited fEditorAlbaranCliente: TfEditorAlbaranCliente
AnchorY = 14
end
end
inherited TBXDock: TTBXDock
inherited TBXDock: TSpTBXDock
Width = 855
ExplicitWidth = 855
inherited tbxMain: TTBXToolbar
inherited tbxMain: TSpTBXToolbar
ExplicitWidth = 488
inherited TBXItem2: TTBXItem
inherited TBXItem2: TSpTBXItem
Visible = False
end
inherited TBXSeparatorItem1: TTBXSeparatorItem
inherited TBXSeparatorItem1: TSpTBXSeparatorItem
Visible = False
end
inherited TBXItem5: TTBXItem
inherited TBXItem5: TSpTBXItem
Visible = False
end
object TBXItem33: TTBXItem [12]
object TBXItem33: TSpTBXItem [12]
Action = actEnviarEMail
DisplayMode = nbdmImageAndText
end
object TBXSeparatorItem6: TTBXSeparatorItem [13]
object TBXSeparatorItem6: TSpTBXSeparatorItem [13]
end
end
inherited tbxMenu: TTBXToolbar
inherited tbxMenu: TSpTBXToolbar
ExplicitWidth = 855
object TBXSubmenuItem2: TTBXSubmenuItem [4]
object TBXSubmenuItem2: TSpTBXSubmenuItem [4]
Caption = 'A&cciones'
object TBXItem7: TTBXItem
object TBXItem7: TSpTBXItem
Action = actEnviarEMail
end
end
@ -293,12 +293,12 @@ inherited fEditorAlbaranCliente: TfEditorAlbaranCliente
ExplicitWidth = 841
ExplicitHeight = 255
end
inherited TBXDock1: TTBXDock
inherited TBXDock1: TSpTBXDock
Top = 46
Width = 841
ExplicitTop = 73
ExplicitWidth = 841
inherited TBXToolbar1: TTBXToolbar
inherited TBXToolbar1: TSpTBXToolbar
ExplicitWidth = 762
end
end

10
Source/Modulos/Albaranes de cliente/Views/uEditorAlbaranCliente.pas
View File

@ -6,7 +6,7 @@ uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
uEditorDBItem, DB, uDADataTable, JvAppStorage,
JvAppRegistryStorage, JvComponent, JvFormPlacement, ImgList,
PngImageList, StdActns, ActnList, ComCtrls, TBX, TB2Item, TB2Dock,
PngImageList, StdActns, ActnList, ComCtrls, SpTBXItem, TB2Item, TB2Dock,
TB2Toolbar, ExtCtrls, JvExControls, JvNavigationPane,
uCustomView, uViewBase, JvComponentBase,
StdCtrls, pngimage, AppEvnts, cxControls, cxContainer, cxEdit, cxTextEdit, cxMemo, cxDBEdit,
@ -25,10 +25,10 @@ type
dxLayoutOfficeLookAndFeel1: TdxLayoutOfficeLookAndFeel;
frViewDetallesAlbaranCliente1: TfrViewDetallesAlbaranCliente;
actEnviarEMail: TAction;
TBXSubmenuItem2: TTBXSubmenuItem;
TBXItem7: TTBXItem;
TBXItem33: TTBXItem;
TBXSeparatorItem6: TTBXSeparatorItem;
TBXSubmenuItem2: TSpTBXSubmenuItem;
TBXItem7: TSpTBXItem;
TBXItem33: TSpTBXItem;
TBXSeparatorItem6: TSpTBXSeparatorItem;
frViewTotalesAlbaran1: TfrViewTotalesAlbaran;
procedure FormShow(Sender: TObject);

2
Source/Modulos/Albaranes de cliente/Views/uEditorAlbaranDevCliente.pas
View File

@ -8,7 +8,7 @@ uses
JvAppStorage, JvAppRegistryStorage, JvComponentBase, JvFormPlacement, ImgList,
PngImageList, StdActns, ActnList, uViewTotales, ComCtrls, JvExComCtrls,
JvStatusBar, uViewIncidencias, uCustomView, uViewBase, uViewDetallesBase,
uViewDetallesDTO, uViewDetallesArticulos, uViewDetallesAlbaranCliente, TBX,
uViewDetallesDTO, uViewDetallesArticulos, uViewDetallesAlbaranCliente, SpTBXItem,
TB2Item, TB2Dock, TB2Toolbar, pngimage, ExtCtrls, JvExControls, JvComponent,
JvNavigationPane, uIEditorAlbaranDevCliente, uDAInterfaces, dxGDIPlusClasses,
uViewDetallesArticulosParaVenta, cxControls, cxContainer, cxEdit, cxLabel;

36
Source/Modulos/Albaranes de cliente/Views/uEditorAlbaranesCliente.dfm
View File

@ -121,61 +121,61 @@ inherited fEditorAlbaranesCliente: TfEditorAlbaranesCliente
ExplicitLeft = 563
end
end
inherited TBXDock: TTBXDock
inherited TBXDock: TSpTBXDock
Width = 583
ExplicitWidth = 583
inherited tbxMain: TTBXToolbar
inherited tbxMain: TSpTBXToolbar
ExplicitWidth = 583
object TBXSeparatorItem17: TTBXSeparatorItem [10]
object TBXSeparatorItem17: TSpTBXSeparatorItem [10]
end
end
inherited tbxFiltro: TTBXToolbar
inherited tbxFiltro: TSpTBXToolbar
ExplicitWidth = 427
inherited lblAno: TTBXLabelItem
inherited lblAno: TSpTBXLabelItem
Visible = True
end
inherited cbxListaAnos: TTBXComboBoxItem
inherited cbxListaAnos: TSpTBXComboBox
Visible = True
end
inherited sepAno: TTBXSeparatorItem
inherited sepAno: TSpTBXSeparatorItem
Visible = True
end
end
inherited tbxMenu: TTBXToolbar
inherited tbxMenu: TSpTBXToolbar
ExplicitWidth = 583
object TBXSubmenuItem2: TTBXSubmenuItem [4]
object TBXSubmenuItem2: TSpTBXSubmenuItem [4]
Caption = 'A&cciones'
object TBXItem39: TTBXItem
object TBXItem39: TSpTBXItem
Action = actEnviarEMail
end
end
end
inherited TBXTMain2: TTBXToolbar
inherited TBXTMain2: TSpTBXToolbar
Left = 427
Visible = True
ExplicitLeft = 427
ExplicitWidth = 117
object TBXItem42: TTBXItem
object TBXItem42: TSpTBXItem
Action = actEnviar
DisplayMode = nbdmImageAndText
end
object TBXItem43: TTBXItem
object TBXItem43: TSpTBXItem
Action = actCancelarEnvio
DisplayMode = nbdmImageAndText
end
object TBXSeparatorItem18: TTBXSeparatorItem
object TBXSeparatorItem18: TSpTBXSeparatorItem
end
object TBXItem44: TTBXItem
object TBXItem44: TSpTBXItem
Action = actConfirmarRecepcion
DisplayMode = nbdmImageAndText
end
object TBXSeparatorItem19: TTBXSeparatorItem
object TBXSeparatorItem19: TSpTBXSeparatorItem
end
object TBXItem45: TTBXItem
object TBXItem45: TSpTBXItem
Action = actGenerarFactura
DisplayMode = nbdmImageAndText
end
object TBXItem38: TTBXItem
object TBXItem38: TSpTBXItem
Action = actGenerarEtiquetas
DisplayMode = nbdmImageAndText
end

28
Source/Modulos/Albaranes de cliente/Views/uEditorAlbaranesCliente.pas
View File

@ -6,8 +6,8 @@ uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, Menus, DB, uDADataTable, JvAppStorage,
JvAppRegistryStorage, JvComponent, JvFormPlacement, ImgList,
PngImageList, StdActns, ActnList, ComCtrls, TB2ExtItems, TBXExtItems,
TBX, TB2Item, TB2Dock, TB2Toolbar, ExtCtrls, JvExControls,
PngImageList, StdActns, ActnList, ComCtrls, TB2ExtItems,
SpTBXItem, TB2Item, TB2Dock, TB2Toolbar, ExtCtrls, JvExControls,
JvNavigationPane, uViewGrid, pngimage, JvComponentBase,
uEditorGridBase,
uBizAlbaranesCliente, uIEditorAlbaranesCliente, uAlbaranesClienteController,
@ -20,26 +20,26 @@ type
actGenerarFactura: TAction;
N4: TMenuItem;
Generarfactura1: TMenuItem;
TBXSeparatorItem17: TTBXSeparatorItem;
TBXSeparatorItem17: TSpTBXSeparatorItem;
actEnviar: TAction;
Serviralbarn1: TMenuItem;
JsImprimirDialog: TJSDialog;
JsPrevisualizarDialog: TJSDialog;
actCancelarEnvio: TAction;
actConfirmarRecepcion: TAction;
TBXItem42: TTBXItem;
TBXItem43: TTBXItem;
TBXItem44: TTBXItem;
TBXSeparatorItem18: TTBXSeparatorItem;
TBXItem45: TTBXItem;
TBXSeparatorItem19: TTBXSeparatorItem;
TBXItem42: TSpTBXItem;
TBXItem43: TSpTBXItem;
TBXItem44: TSpTBXItem;
TBXSeparatorItem18: TSpTBXSeparatorItem;
TBXItem45: TSpTBXItem;
TBXSeparatorItem19: TSpTBXSeparatorItem;
actGenerarEtiquetas: TAction;
TBXItem38: TTBXItem;
TBXItem38: TSpTBXItem;
JsListaAlbaranesNoEliminados: TJSDialog;
actEnviarEMail: TAction;
Enviarporemail1: TMenuItem;
TBXSubmenuItem2: TTBXSubmenuItem;
TBXItem39: TTBXItem;
TBXSubmenuItem2: TSpTBXSubmenuItem;
TBXItem39: TSpTBXItem;
procedure FormShow(Sender: TObject);
procedure actGenerarFacturaUpdate(Sender: TObject);
procedure actGenerarFacturaExecute(Sender: TObject);
@ -54,7 +54,7 @@ type
procedure actGenerarEtiquetasUpdate(Sender: TObject);
procedure actEnviarEMailExecute(Sender: TObject);
procedure actEnviarEMailUpdate(Sender: TObject);
procedure OnListaAnosChange(Sender: TObject; const Text: string);
procedure OnListaAnosChange(Sender: TObject);
protected
FAlbaranes: IBizAlbaranCliente;
@ -475,7 +475,7 @@ begin
// end;
end;
procedure TfEditorAlbaranesCliente.OnListaAnosChange(Sender: TObject; const Text: string);
procedure TfEditorAlbaranesCliente.OnListaAnosChange(Sender: TObject);
begin
Controller.FiltrarAno(Albaranes, DynWhereDataTable, Text);
if Albaranes.DataTable.Active then

6
Source/Modulos/Albaranes de cliente/Views/uEditorAlbaranesClienteReport.dfm
View File

@ -4,10 +4,10 @@ inherited fEditorAlbaranesClientePreview: TfEditorAlbaranesClientePreview
ExplicitHeight = 240
PixelsPerInch = 96
TextHeight = 13
inherited TBXDock: TTBXDock
inherited TBXToolbar1: TTBXToolbar
inherited TBXDock: TSpTBXDock
inherited TBXToolbar1: TSpTBXToolbar
ExplicitWidth = 540
object TBXItem58: TTBXItem [1]
object TBXItem58: TSpTBXItem [1]
Action = actExportarRTF
Images = SmallImages
end

4
Source/Modulos/Albaranes de cliente/Views/uEditorAlbaranesClienteReport.pas
View File

@ -8,7 +8,7 @@ uses
// frxDMPExport, frxGradient, frxChBox, frxCross, frxRich, frxChart, frxOLE,
// frxBarcode, JvAppStorage, JvAppRegistryStorage, JvComponentBase,
JvFormPlacement, ImgList, PngImageList, StdActns, ActnList, ComCtrls,
TB2ExtItems, TBXExtItems, TBX, TB2Item, TB2Dock, TB2Toolbar, pngimage,
TB2ExtItems, SpTBXItem, TB2Item, TB2Dock, TB2Toolbar, pngimage,
ExtCtrls, JvExControls, JvComponent, JvNavigationPane, uIEditorAlbaranesClientePreview,
JvExComCtrls, JvStatusBar, frxDMPExport, frxGradient, frxChBox, frxCross,
frxRich, frxOLE, frxBarcode, JvAppStorage, JvAppRegistryStorage,
@ -16,7 +16,7 @@ uses
type
TfEditorAlbaranesClientePreview = class(TfEditorPreview, IEditorAlbaranesClientePreview)
TBXItem58: TTBXItem;
TBXItem58: TSpTBXItem;
procedure actExportarRTFExecute(Sender: TObject);
end;

4
Source/Modulos/Albaranes de cliente/Views/uEditorAlbaranesDevCliente.dfm
View File

@ -37,8 +37,8 @@ inherited fEditorAlbaranesDevCliente: TfEditorAlbaranesDevCliente
3CAB4D7E2B002400F40B7DA11C32DBE756950000000049454E44AE426082}
end
end
inherited TBXDock: TTBXDock
inherited TBXTMain2: TTBXToolbar
inherited TBXDock: TSpTBXDock
inherited TBXTMain2: TSpTBXToolbar
ExplicitWidth = 124
end
end

4
Source/Modulos/Albaranes de cliente/Views/uEditorAlbaranesDevCliente.pas
View File

@ -6,8 +6,8 @@ uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, uEditorAlbaranesCliente, JSDialog, Menus, DB, uDADataTable,
JvAppStorage, JvAppRegistryStorage, JvComponentBase, JvFormPlacement, ImgList,
PngImageList, StdActns, ActnList, ComCtrls, JvExComCtrls, JvStatusBar, TBX,
TB2ExtItems, TBXExtItems, TB2Item, TB2Dock, TB2Toolbar, pngimage, ExtCtrls,
PngImageList, StdActns, ActnList, ComCtrls, JvExComCtrls, JvStatusBar, SpTBXItem,
TB2ExtItems, TB2Item, TB2Dock, TB2Toolbar, pngimage, ExtCtrls,
JvExControls, JvComponent, JvNavigationPane, uIEditorAlbaranesDevCliente,
uDAInterfaces, dxGDIPlusClasses;

42
Source/Modulos/Albaranes de cliente/Views/uEditorElegirAlbaranesCliente.dfm
View File

@ -17,75 +17,75 @@ inherited fEditorElegirAlbaranesCliente: TfEditorElegirAlbaranesCliente
ExplicitLeft = 629
end
end
inherited TBXDock: TTBXDock
inherited TBXDock: TSpTBXDock
Top = 64
Width = 790
ExplicitTop = 91
ExplicitWidth = 790
inherited tbxMain: TTBXToolbar
inherited tbxMain: TSpTBXToolbar
Left = 359
ExplicitLeft = 359
ExplicitWidth = 263
inherited TBXItem2: TTBXItem
inherited TBXItem2: TSpTBXItem
Visible = False
end
inherited TBXSeparatorItem1: TTBXSeparatorItem
inherited TBXSeparatorItem1: TSpTBXSeparatorItem
Visible = False
end
inherited TBXItem5: TTBXItem
inherited TBXItem5: TSpTBXItem
Visible = False
end
inherited TBXItem4: TTBXItem
inherited TBXItem4: TSpTBXItem
Visible = False
end
inherited TBXSeparatorItem6: TTBXSeparatorItem
inherited TBXSeparatorItem6: TSpTBXSeparatorItem
Visible = False
end
inherited TBXItem7: TTBXItem
inherited TBXItem7: TSpTBXItem
Visible = False
end
inherited TBXSeparatorItem3: TTBXSeparatorItem
inherited TBXSeparatorItem3: TSpTBXSeparatorItem
Visible = False
end
inherited TBXItem23: TTBXItem
inherited TBXItem23: TSpTBXItem
Visible = False
end
inherited TBXSeparatorItem17: TTBXSeparatorItem
inherited TBXSeparatorItem17: TSpTBXSeparatorItem
Visible = False
end
inherited TBXItem3: TTBXItem
inherited TBXItem3: TSpTBXItem
Visible = False
end
inherited TBXSeparatorItem10: TTBXSeparatorItem
inherited TBXSeparatorItem10: TSpTBXSeparatorItem
Visible = False
end
inherited TBXSeparatorItem2: TTBXSeparatorItem
inherited TBXSeparatorItem2: TSpTBXSeparatorItem
Visible = False
end
inherited TBXItem6: TTBXItem
inherited TBXItem6: TSpTBXItem
Visible = False
end
inherited TBXItem36: TTBXItem
inherited TBXItem36: TSpTBXItem
Action = actAnchoAuto2
end
end
inherited tbxFiltro: TTBXToolbar
inherited tbxFiltro: TSpTBXToolbar
Top = 23
DockPos = -185
DockRow = 1
ExplicitTop = 23
ExplicitWidth = 359
inherited TBXItem34: TTBXItem
inherited TBXItem34: TSpTBXItem
Action = actQuitarFiltro2
end
inherited TBXItem37: TTBXItem
inherited TBXItem37: TSpTBXItem
Visible = False
end
end
inherited tbxMenu: TTBXToolbar
inherited tbxMenu: TSpTBXToolbar
ExplicitWidth = 790
end
inherited TBXTMain2: TTBXToolbar
inherited TBXTMain2: TSpTBXToolbar
Left = 318
Visible = False
ExplicitLeft = 318

2
Source/Modulos/Albaranes de cliente/Views/uEditorElegirAlbaranesCliente.pas
View File

@ -7,7 +7,7 @@ uses
Dialogs, DB, uDADataTable, Menus, JvAppStorage, JvAppRegistryStorage,
JvComponentBase, JvFormPlacement, ImgList, PngImageList, StdActns,
ActnList, uCustomView, uViewBase, uViewGridBase, uViewGrid,
uViewAlbaranesCliente, ComCtrls, TB2ExtItems, TBXExtItems, TBX,
uViewAlbaranesCliente, ComCtrls, TB2ExtItems, SpTBXItem,
TB2Item, TB2Dock, TB2Toolbar, pngimage, ExtCtrls, JvExControls, JvComponent,
JvNavigationPane, uViewBarraSeleccion, StdCtrls,
uEditorAlbaranesCliente, uBizAlbaranesCliente, uIEditorElegirAlbaranesCliente,

8
Source/Modulos/Albaranes de cliente/Views/uEditorElegirArticulosAlbaranCliente.dfm
View File

@ -6,20 +6,20 @@ inherited fEditorElegirArticulosAlbaranCliente: TfEditorElegirArticulosAlbaranCl
inherited JvNavPanelHeader: TJvNavPanelHeader
ExplicitTop = 113
end
inherited TBXDock: TTBXDock
inherited TBXDock: TSpTBXDock
ExplicitTop = 64
inherited tbxMain: TTBXToolbar
inherited tbxMain: TSpTBXToolbar
Left = 340
DockPos = 335
ExplicitLeft = 340
ExplicitWidth = 126
end
inherited tbxFiltro: TTBXToolbar
inherited tbxFiltro: TSpTBXToolbar
Left = 3
DockPos = 3
ExplicitLeft = 3
end
inherited TBXTMain2: TTBXToolbar
inherited TBXTMain2: TSpTBXToolbar
Left = 466
ExplicitLeft = 466
end

2
Source/Modulos/Albaranes de cliente/Views/uEditorElegirArticulosAlbaranCliente.pas
View File

@ -7,7 +7,7 @@ uses
Dialogs, uEditorElegirArticulos, Menus, DB, uDADataTable, JvAppStorage,
JvAppRegistryStorage, JvComponentBase, JvFormPlacement, ImgList, PngImageList,
StdActns, ActnList, uCustomView, uViewBase, uViewBarraSeleccion, ComCtrls,
JvExComCtrls, JvStatusBar, TBX, TB2ExtItems, TBXExtItems, TB2Item, TB2Dock,
JvExComCtrls, JvStatusBar, SpTBXItem, TB2ExtItems, TB2Item, TB2Dock,
TB2Toolbar, pngimage, ExtCtrls, JvExControls, JvComponent, JvNavigationPane,
uIEditorElegirArticulosAlbaranesCliente, uDAInterfaces,
uViewGridBase, uViewGrid, uViewArticulos, StdCtrls;

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

@ -194,7 +194,7 @@ inherited frViewAlbaranesCliente: TfrViewAlbaranesCliente
inherited frViewFiltroBase1: TfrViewFiltroBase
Width = 802
ExplicitWidth = 802
inherited TBXDockablePanel1: TTBXDockablePanel
inherited TBXDockablePanel1: TSpTBXDockablePanel
ExplicitWidth = 802
inherited dxLayoutControl1: TdxLayoutControl
Width = 802
@ -234,10 +234,10 @@ inherited frViewAlbaranesCliente: TfrViewAlbaranesCliente
ExplicitLeft = 638
end
end
inherited TBXAlignmentPanel1: TTBXAlignmentPanel
inherited TBXAlignmentPanel1: TSpTBXDockablePanel
Width = 802
ExplicitWidth = 802
inherited tbxBotones: TTBXToolbar
inherited tbxBotones: TSpTBXToolbar
Width = 792
ExplicitWidth = 792
end
@ -248,24 +248,24 @@ inherited frViewAlbaranesCliente: TfrViewAlbaranesCliente
Top = 72
end
end
inherited pnlAgrupaciones: TTBXDockablePanel
inherited pnlAgrupaciones: TSpTBXDockablePanel
Top = 464
ExplicitTop = 464
ExplicitWidth = 802
inherited TBXAlignmentPanel1: TTBXAlignmentPanel
inherited TBXAlignmentPanel1: TSpTBXDockablePanel
Width = 802
ExplicitWidth = 802
inherited TBXToolbar1: TTBXToolbar
inherited TBXToolbar1: TSpTBXToolbar
Width = 792
ExplicitWidth = 792
object TBXSeparatorItem1: TTBXSeparatorItem
object TBXSeparatorItem1: TSpTBXSeparatorItem
end
object TBXItem3: TTBXItem
object TBXItem3: TSpTBXItem
Action = actClientes
end
object TBXSeparatorItem2: TTBXSeparatorItem
object TBXSeparatorItem2: TSpTBXSeparatorItem
end
object TBXItem2: TTBXItem
object TBXItem2: TSpTBXItem
Action = actAlmacenes
end
end

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

@ -12,7 +12,7 @@ uses
uDADataTable, cxGridLevel, cxClasses, cxControls, cxGridCustomView, Classes,
cxGrid,
uBizAlbaranesCliente, cxCurrencyEdit, Forms, uViewFiltroBase, ComCtrls, Tabs,
cxPC, ActnList, TB2Item, TBX, TB2Dock, TB2Toolbar, TBXDkPanels, dxPgsDlg,
cxPC, ActnList, TB2Item, SpTBXItem, TB2Dock, TB2Toolbar, SpTBXDkPanels, dxPgsDlg,
uDAInterfaces, uCustomView, uViewBase;
type
@ -51,10 +51,10 @@ type
cxGridViewIMPORTE_TOTAL: TcxGridDBColumn;
actClientes: TAction;
actAlmacenes: TAction;
TBXItem2: TTBXItem;
TBXItem3: TTBXItem;
TBXSeparatorItem1: TTBXSeparatorItem;
TBXSeparatorItem2: TTBXSeparatorItem;
TBXItem2: TSpTBXItem;
TBXItem3: TSpTBXItem;
TBXSeparatorItem1: TSpTBXSeparatorItem;
TBXSeparatorItem2: TSpTBXSeparatorItem;
cxGridViewFECHA_PREVISTA_ENVIO: TcxGridDBColumn;
cxStyleRETRASADOS: TcxStyle;
cxGridViewINCIDENCIAS: TcxGridDBColumn;

2
Source/Modulos/Albaranes de cliente/Views/uViewAlbaranesDevCliente.dfm
View File

@ -11,7 +11,7 @@ inherited frViewAlbaranesDevCliente: TfrViewAlbaranesDevCliente
end
end
inherited frViewFiltroBase1: TfrViewFiltroBase
inherited TBXDockablePanel1: TTBXDockablePanel
inherited TBXDockablePanel1: TSpTBXDockablePanel
inherited dxLayoutControl1: TdxLayoutControl
inherited txtFiltroTodo: TcxTextEdit
Style.LookAndFeel.SkinName = ''

4
Source/Modulos/Albaranes de cliente/Views/uViewAlbaranesDevCliente.pas
View File

@ -9,8 +9,8 @@ uses
dxPSGlbl, dxPSUtl, dxPSEngn, dxPrnPg, dxBkgnd, dxWrap, dxPrnDev,
dxPSCompsProvider, dxPSFillPatterns, dxPSEdgePatterns, dxPgsDlg, dxPSCore,
ImgList, PngImageList, ActnList, cxGridCustomPopupMenu, cxGridPopupMenu,
dxPScxCommon, dxPScxGrid6Lnk, uDADataTable, TB2Item, TBX, TB2Toolbar,
TBXDkPanels, TB2Dock, uViewFiltroBase, cxGridLevel, cxGridCustomTableView,
dxPScxCommon, dxPScxGrid6Lnk, uDADataTable, TB2Item, SpTBXItem, TB2Toolbar,
SpTBXDkPanels, TB2Dock, uViewFiltroBase, cxGridLevel, cxGridCustomTableView,
cxGridTableView, cxGridDBTableView, cxClasses, cxControls, cxGridCustomView,
cxGrid, uDAInterfaces;

8
Source/Modulos/Albaranes de cliente/Views/uViewDetallesAlbaranCliente.dfm
View File

@ -120,16 +120,16 @@ inherited frViewDetallesAlbaranCliente: TfrViewDetallesAlbaranCliente
end
end
end
inherited TBXDock1: TTBXDock
inherited TBXDock1: TSpTBXDock
Top = 100
ExplicitTop = 100
inherited TBXToolbar1: TTBXToolbar
inherited TBXToolbar1: TSpTBXToolbar
DockPos = 0
ExplicitWidth = 447
inherited TBXSubmenuItem1: TTBXSubmenuItem
inherited TBXSubmenuItem1: TSpTBXSubmenuItem
Visible = False
end
object TBXItem18: TTBXItem [1]
object TBXItem18: TSpTBXItem [1]
Action = actAnadirArticulos
DisplayMode = nbdmImageAndText
end

4
Source/Modulos/Albaranes de cliente/Views/uViewDetallesAlbaranCliente.pas
View File

@ -10,7 +10,7 @@ uses
cxGridCustomView, cxGridCustomTableView, cxGridTableView, cxGridDBTableView,
cxGrid, cxImageComboBox, cxTextEdit, cxMaskEdit, cxCheckBox, cxCurrencyEdit,
Grids, DBGrids, StdCtrls, ExtCtrls, cxRichEdit, ExtActns, StdActns,
JvExStdCtrls, JvCombobox, JvColorCombo, TB2Item, TBX, TB2Dock, TB2Toolbar,
JvExStdCtrls, JvCombobox, JvColorCombo, TB2Item, SpTBXItem, TB2Dock, TB2Toolbar,
uControllerDetallesArticulos, uBizAlbaranesCliente, cxDropDownEdit,
cxCalendar, cxDBEdit, dxLayoutControl, cxContainer, cxLookupEdit,
cxDBLookupEdit, cxDBLookupComboBox, uDAInterfaces, cxButtonEdit,
@ -28,7 +28,7 @@ type
TfrViewDetallesAlbaranCliente = class(TfrViewDetallesArticulosParaVenta, IViewDetallesAlbaranCliente)
N2: TMenuItem;
Aadirartculos1: TMenuItem;
TBXItem18: TTBXItem;
TBXItem18: TSpTBXItem;
cxGridViewCANTIDAD2: TcxGridDBColumn;
procedure cxGridViewCANTIDAD2PropertiesButtonClick(Sender: TObject;
AButtonIndex: Integer);

2
Source/Modulos/Albaranes de cliente/Views/uViewElegirArticulosAlbaranesCliente.dfm
View File

@ -1,6 +1,6 @@
inherited frViewElegirArticulosAlbaranesCliente: TfrViewElegirArticulosAlbaranesCliente
inherited frViewFiltroBase1: TfrViewFiltroBase
inherited TBXDockablePanel1: TTBXDockablePanel
inherited TBXDockablePanel1: TSpTBXDockablePanel
inherited dxLayoutControl1: TdxLayoutControl
inherited edtFechaIniFiltro: TcxDateEdit
ExplicitWidth = 121

2
Source/Modulos/Albaranes de cliente/Views/uViewElegirArticulosAlbaranesCliente.pas
View File

@ -11,7 +11,7 @@ uses
cxGridCustomPopupMenu, cxGridPopupMenu, dxPSCore, dxPScxCommon, dxPScxGrid6Lnk,
uDADataTable, cxGridLevel, cxGridCustomTableView, cxGridTableView,
cxGridDBTableView, cxClasses, cxControls, cxGridCustomView, cxGrid, dxPgsDlg,
ActnList, TB2Item, TBX, TB2Toolbar, TBXDkPanels, TB2Dock, uViewFiltroBase,
ActnList, TB2Item, SpTBXItem, TB2Toolbar, SpTBXDkPanels, TB2Dock, uViewFiltroBase,
uDAInterfaces;
type

2
Source/Modulos/Albaranes de proveedor/Servidor/srvAlbaranesProveedor_Impl.pas
View File

@ -16,7 +16,7 @@ uses
{Used RODLs:} DataAbstract4_Intf,
{Generated:} uDABusinessProcessor, uDABin2DataStreamer, uDADataStreamer,
uDAScriptingProvider, uDAClasses,
FactuGES_Intf, uDAInterfaces;
FactuGES_Intf, uDAInterfaces, uROClient;
type
{ TsrvAlbaranesProveedor }

2
Source/Modulos/Albaranes de proveedor/Views/uEditorAlbaranDevProveedor.pas
View File

@ -9,7 +9,7 @@ uses
PngImageList, StdActns, ActnList, uViewTotales, ComCtrls, JvExComCtrls,
JvStatusBar, uViewIncidencias, uViewDetallesBase, uViewDetallesDTO,
uViewDetallesArticulos, uViewDetallesAlbaranProveedor, uCustomView, uViewBase,
uViewAlbaranProveedor, TBX, TB2Item, TB2Dock, TB2Toolbar, pngimage, ExtCtrls,
uViewAlbaranProveedor, SpTBXItem, TB2Item, TB2Dock, TB2Toolbar, pngimage, ExtCtrls,
JvExControls, JvComponent, JvNavigationPane, uIEditorAlbaranDevProveedor,
uDAInterfaces, dxGDIPlusClasses, cxControls, cxContainer, cxEdit, cxLabel;

16
Source/Modulos/Albaranes de proveedor/Views/uEditorAlbaranProveedor.dfm
View File

@ -129,22 +129,22 @@ inherited fEditorAlbaranProveedor: TfEditorAlbaranProveedor
ExplicitLeft = 667
end
end
inherited TBXDock: TTBXDock
inherited TBXDock: TSpTBXDock
Width = 765
ExplicitWidth = 765
inherited tbxMain: TTBXToolbar
inherited tbxMain: TSpTBXToolbar
ExplicitWidth = 488
inherited TBXItem2: TTBXItem
inherited TBXItem2: TSpTBXItem
Visible = False
end
inherited TBXSeparatorItem1: TTBXSeparatorItem
inherited TBXSeparatorItem1: TSpTBXSeparatorItem
Visible = False
end
inherited TBXItem5: TTBXItem
inherited TBXItem5: TSpTBXItem
Visible = False
end
end
inherited tbxMenu: TTBXToolbar
inherited tbxMenu: TSpTBXToolbar
ExplicitWidth = 765
end
end
@ -286,12 +286,12 @@ inherited fEditorAlbaranProveedor: TfEditorAlbaranProveedor
ExplicitWidth = 751
ExplicitHeight = 367
end
inherited TBXDock1: TTBXDock
inherited TBXDock1: TSpTBXDock
Top = 51
Width = 751
ExplicitTop = 51
ExplicitWidth = 751
inherited TBXToolbar1: TTBXToolbar
inherited TBXToolbar1: TSpTBXToolbar
ExplicitWidth = 751
end
end

2
Source/Modulos/Albaranes de proveedor/Views/uEditorAlbaranProveedor.pas
View File

@ -6,7 +6,7 @@ uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, uEditorDBItem, DB, uDADataTable, JvAppStorage,
JvAppRegistryStorage, JvComponent, JvFormPlacement, ImgList,
PngImageList, StdActns, ActnList, ComCtrls, TBX, TB2Item, TB2Dock,
PngImageList, StdActns, ActnList, ComCtrls, SpTBXItem, TB2Item, TB2Dock,
TB2Toolbar, ExtCtrls, JvExControls, JvNavigationPane,
uCustomView, uViewBase, JvComponentBase,
StdCtrls, pngimage, AppEvnts, cxControls, cxContainer, cxEdit, cxTextEdit, cxMemo, cxDBEdit,

8
Source/Modulos/Albaranes de proveedor/Views/uEditorAlbaranesDevProveedor.dfm
View File

@ -42,16 +42,16 @@ inherited fEditorAlbaranesDevProveedor: TfEditorAlbaranesDevProveedor
ExplicitLeft = 845
end
end
inherited TBXDock: TTBXDock
inherited TBXDock: TSpTBXDock
Width = 872
ExplicitWidth = 872
inherited tbxMain: TTBXToolbar
inherited tbxMain: TSpTBXToolbar
ExplicitWidth = 872
end
inherited tbxMenu: TTBXToolbar
inherited tbxMenu: TSpTBXToolbar
ExplicitWidth = 872
end
inherited TBXTMain2: TTBXToolbar
inherited TBXTMain2: TSpTBXToolbar
ExplicitWidth = 112
end
end

4
Source/Modulos/Albaranes de proveedor/Views/uEditorAlbaranesDevProveedor.pas
View File

@ -6,8 +6,8 @@ uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, uEditorAlbaranesProveedor, JSDialog, Menus, DB, uDADataTable,
JvAppStorage, JvAppRegistryStorage, JvComponentBase, JvFormPlacement, ImgList,
PngImageList, StdActns, ActnList, ComCtrls, JvExComCtrls, JvStatusBar, TBX,
TB2ExtItems, TBXExtItems, TB2Item, TB2Dock, TB2Toolbar, pngimage, ExtCtrls,
PngImageList, StdActns, ActnList, ComCtrls, JvExComCtrls, JvStatusBar, SpTBXItem,
TB2ExtItems, TB2Item, TB2Dock, TB2Toolbar, pngimage, ExtCtrls,
JvExControls, JvComponent, JvNavigationPane, uIEditorAlbaranesDevProveedor,
uDAInterfaces, dxGDIPlusClasses;

26
Source/Modulos/Albaranes de proveedor/Views/uEditorAlbaranesProveedor.dfm
View File

@ -120,46 +120,46 @@ inherited fEditorAlbaranesProveedor: TfEditorAlbaranesProveedor
ExplicitLeft = 579
end
end
inherited TBXDock: TTBXDock
inherited TBXDock: TSpTBXDock
Width = 606
ExplicitWidth = 606
inherited tbxMain: TTBXToolbar
inherited tbxMain: TSpTBXToolbar
ExplicitWidth = 606
end
inherited tbxFiltro: TTBXToolbar
inherited tbxFiltro: TSpTBXToolbar
ExplicitWidth = 427
inherited lblAno: TTBXLabelItem
inherited lblAno: TSpTBXLabelItem
Visible = True
end
inherited cbxListaAnos: TTBXComboBoxItem
inherited cbxListaAnos: TSpTBXComboBox
Visible = True
end
inherited sepAno: TTBXSeparatorItem
inherited sepAno: TSpTBXSeparatorItem
Visible = True
end
end
inherited tbxMenu: TTBXToolbar
inherited tbxMenu: TSpTBXToolbar
ExplicitWidth = 606
object TBXSubmenuItem2: TTBXSubmenuItem [4]
object TBXSubmenuItem2: TSpTBXSubmenuItem [4]
Caption = 'A&cciones'
object TBXItem40: TTBXItem
object TBXItem40: TSpTBXItem
Action = actGenerarDevolucion
end
object TBXItem38: TTBXItem
object TBXItem38: TSpTBXItem
Action = actGenerarFactura
end
end
end
inherited TBXTMain2: TTBXToolbar
inherited TBXTMain2: TSpTBXToolbar
Left = 427
Visible = True
ExplicitLeft = 427
ExplicitWidth = 117
object TBXItem41: TTBXItem
object TBXItem41: TSpTBXItem
Action = actGenerarDevolucion
DisplayMode = nbdmImageAndText
end
object TBXItem39: TTBXItem
object TBXItem39: TSpTBXItem
Action = actGenerarFactura
DisplayMode = nbdmImageAndText
end

Some files were not shown because too many files have changed in this diff Show More