* Actualización de componentes
- 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:
parent
1a489d3455
commit
d8aa5d14b7
BIN
Build/Build.fbl6
Normal file
BIN
Build/Build.fbl6
Normal file
Binary file not shown.
19535
Build/Build.fbp5
19535
Build/Build.fbp5
File diff suppressed because it is too large
Load Diff
21
Build/Build.fbpInf
Normal file
21
Build/Build.fbpInf
Normal 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 +0,0 @@
|
|||||||
<variables><project_path><![CDATA[C:\Codigo Noviseda]]></project_path></variables>
|
|
||||||
BIN
Build/Build.fbz6
Normal file
BIN
Build/Build.fbz6
Normal file
Binary file not shown.
3900
Resources/Idiomas/languages.ini
Normal file
3900
Resources/Idiomas/languages.ini
Normal file
File diff suppressed because it is too large
Load Diff
@ -16,7 +16,7 @@ uses
|
|||||||
{Used RODLs:} DataAbstract4_Intf,
|
{Used RODLs:} DataAbstract4_Intf,
|
||||||
{Generated:} FactuGES_Intf, uDAScriptingProvider, uDABusinessProcessor,
|
{Generated:} FactuGES_Intf, uDAScriptingProvider, uDABusinessProcessor,
|
||||||
uDABin2DataStreamer, uDADataStreamer, uDAClasses, uDAInterfaces,
|
uDABin2DataStreamer, uDADataStreamer, uDAClasses, uDAInterfaces,
|
||||||
uDADataTable;
|
uDADataTable, uROClient;
|
||||||
|
|
||||||
type
|
type
|
||||||
{ TsrvEmpresas }
|
{ TsrvEmpresas }
|
||||||
|
|||||||
@ -26,55 +26,55 @@ inherited fEditorEmpresa: TfEditorEmpresa
|
|||||||
AnchorY = 14
|
AnchorY = 14
|
||||||
end
|
end
|
||||||
end
|
end
|
||||||
inherited TBXDock: TTBXDock
|
inherited TBXDock: TSpTBXDock
|
||||||
Width = 674
|
Width = 674
|
||||||
ExplicitWidth = 674
|
ExplicitWidth = 674
|
||||||
inherited tbxMain: TTBXToolbar
|
inherited tbxMain: TSpTBXToolbar
|
||||||
ExplicitWidth = 330
|
ExplicitWidth = 330
|
||||||
inherited TBXItem2: TTBXItem
|
inherited TBXItem2: TSpTBXItem
|
||||||
Visible = False
|
Visible = False
|
||||||
end
|
end
|
||||||
inherited TBXItem5: TTBXItem
|
inherited TBXItem5: TSpTBXItem
|
||||||
Visible = False
|
Visible = False
|
||||||
end
|
end
|
||||||
inherited TBXItem23: TTBXItem
|
inherited TBXItem23: TSpTBXItem
|
||||||
Visible = False
|
Visible = False
|
||||||
end
|
end
|
||||||
inherited TBXItem3: TTBXItem
|
inherited TBXItem3: TSpTBXItem
|
||||||
Visible = False
|
Visible = False
|
||||||
end
|
end
|
||||||
end
|
end
|
||||||
inherited tbxMenu: TTBXToolbar
|
inherited tbxMenu: TSpTBXToolbar
|
||||||
DockPos = 0
|
DockPos = 0
|
||||||
ExplicitWidth = 674
|
ExplicitWidth = 674
|
||||||
inherited TBXSubmenuItem4: TTBXSubmenuItem
|
inherited TBXSubmenuItem4: TSpTBXSubmenuItem
|
||||||
inherited TBXItem8: TTBXItem
|
inherited TBXItem8: TSpTBXItem
|
||||||
Visible = False
|
Visible = False
|
||||||
end
|
end
|
||||||
inherited TBXSeparatorItem5: TTBXSeparatorItem
|
inherited TBXSeparatorItem5: TSpTBXSeparatorItem
|
||||||
Visible = False
|
Visible = False
|
||||||
end
|
end
|
||||||
inherited TBXItem10: TTBXItem
|
inherited TBXItem10: TSpTBXItem
|
||||||
Visible = False
|
Visible = False
|
||||||
end
|
end
|
||||||
inherited TBXItem21: TTBXItem
|
inherited TBXItem21: TSpTBXItem
|
||||||
Visible = False
|
Visible = False
|
||||||
end
|
end
|
||||||
inherited TBXItem22: TTBXItem
|
inherited TBXItem22: TSpTBXItem
|
||||||
Visible = False
|
Visible = False
|
||||||
end
|
end
|
||||||
inherited TBXItem9: TTBXItem
|
inherited TBXItem9: TSpTBXItem
|
||||||
Visible = False
|
Visible = False
|
||||||
end
|
end
|
||||||
end
|
end
|
||||||
inherited TBXSubmenuItem1: TTBXSubmenuItem
|
inherited TBXSubmenuItem1: TSpTBXSubmenuItem
|
||||||
inherited TBXItem32: TTBXItem
|
inherited TBXItem32: TSpTBXItem
|
||||||
Visible = False
|
Visible = False
|
||||||
end
|
end
|
||||||
inherited TBXItem31: TTBXItem
|
inherited TBXItem31: TSpTBXItem
|
||||||
Visible = False
|
Visible = False
|
||||||
end
|
end
|
||||||
inherited TBXSeparatorItem13: TTBXSeparatorItem
|
inherited TBXSeparatorItem13: TSpTBXSeparatorItem
|
||||||
Visible = False
|
Visible = False
|
||||||
end
|
end
|
||||||
end
|
end
|
||||||
|
|||||||
@ -6,10 +6,10 @@ uses
|
|||||||
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
|
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
|
||||||
Dialogs, uEditorDBItem, ToolWin, ComCtrls, JvExControls, JvComponent,
|
Dialogs, uEditorDBItem, ToolWin, ComCtrls, JvExControls, JvComponent,
|
||||||
uBizEmpresas, JvNavigationPane, ActnList,
|
uBizEmpresas, JvNavigationPane, ActnList,
|
||||||
uEditorBase, StdActns, TB2Dock, TB2Toolbar, TBX, ImgList, PngImageList,
|
uEditorBase, StdActns, TB2Dock, TB2Toolbar, SpTBXItem, ImgList, PngImageList,
|
||||||
TB2Item, uEditorItem, DB, uDADataTable, uEditorDBBase, JvFormAutoSize,
|
TB2Item, uEditorItem, DB, uDADataTable, uEditorDBBase, JvFormAutoSize,
|
||||||
uDAScriptingProvider, uDACDSDataTable, StdCtrls, pngimage, ExtCtrls,
|
uDAScriptingProvider, uDACDSDataTable, StdCtrls, pngimage, ExtCtrls,
|
||||||
TBXDkPanels, JvButton, AppEvnts, uCustomView, uViewBase,
|
SpTBXDkPanels, JvButton, AppEvnts, uCustomView, uViewBase,
|
||||||
JvAppStorage, JvAppRegistryStorage, JvFormPlacement, JvComponentBase,
|
JvAppStorage, JvAppRegistryStorage, JvFormPlacement, JvComponentBase,
|
||||||
uViewEmpresa, uIEditorEmpresa, uEmpresasController, dxLayoutLookAndFeels,
|
uViewEmpresa, uIEditorEmpresa, uEmpresasController, dxLayoutLookAndFeels,
|
||||||
JvExComCtrls, JvStatusBar, uViewDetallesGenerico, uViewDatosBancarios,
|
JvExComCtrls, JvStatusBar, uViewDetallesGenerico, uViewDatosBancarios,
|
||||||
|
|||||||
@ -9,7 +9,7 @@ uses
|
|||||||
JvComponent, JvFormAutoSize, cxControls, cxContainer, cxEdit, cxTextEdit,
|
JvComponent, JvFormAutoSize, cxControls, cxContainer, cxEdit, cxTextEdit,
|
||||||
cxDBEdit, dxLayoutControl, dxLayoutLookAndFeels, cxMemo, cxMaskEdit,
|
cxDBEdit, dxLayoutControl, dxLayoutLookAndFeels, cxMemo, cxMaskEdit,
|
||||||
cxSpinEdit, cxImage, JvExControls, JvBitmapButton, ActnList, ImgList,
|
cxSpinEdit, cxImage, JvExControls, JvBitmapButton, ActnList, ImgList,
|
||||||
PngImageList, TB2Item, TBX, TB2Dock, TB2Toolbar, PngSpeedButton, uDAInterfaces,
|
PngImageList, TB2Item, SpTBXItem, TB2Dock, TB2Toolbar, PngSpeedButton, uDAInterfaces,
|
||||||
cxCurrencyEdit, cxGraphics, cxDropDownEdit, uEmpresasController;
|
cxCurrencyEdit, cxGraphics, cxDropDownEdit, uEmpresasController;
|
||||||
|
|
||||||
type
|
type
|
||||||
|
|||||||
@ -16,7 +16,8 @@ uses
|
|||||||
{RemObjects:} uROXMLIntf, uROClientIntf, uROTypes, uROServer, uROServerIntf, uROSessions,
|
{RemObjects:} uROXMLIntf, uROClientIntf, uROTypes, uROServer, uROServerIntf, uROSessions,
|
||||||
{Required:} uRORemoteDataModule,
|
{Required:} uRORemoteDataModule,
|
||||||
{Used RODLs:} DataAbstract4_Intf,
|
{Used RODLs:} DataAbstract4_Intf,
|
||||||
{Generated:} FactuGES_Intf, uDADataStreamer, uDABin2DataStreamer, uDAClasses;
|
{Generated:} FactuGES_Intf, uDADataStreamer, uDABin2DataStreamer, uDAClasses,
|
||||||
|
uROClient;
|
||||||
|
|
||||||
type
|
type
|
||||||
{ TsrvProvinciasPoblaciones }
|
{ TsrvProvinciasPoblaciones }
|
||||||
|
|||||||
@ -17,7 +17,8 @@ uses
|
|||||||
{Required:} uRORemoteDataModule,
|
{Required:} uRORemoteDataModule,
|
||||||
{Ancestor Implementation:} DataAbstractService_Impl,
|
{Ancestor Implementation:} DataAbstractService_Impl,
|
||||||
{Used RODLs:} DataAbstract4_Intf,
|
{Used RODLs:} DataAbstract4_Intf,
|
||||||
{Generated:} FactuGES_Intf, uDADataStreamer, uDABin2DataStreamer, uDAClasses;
|
{Generated:} FactuGES_Intf, uDADataStreamer, uDABin2DataStreamer, uDAClasses,
|
||||||
|
uROClient;
|
||||||
|
|
||||||
type
|
type
|
||||||
{ TsrvUsuarios }
|
{ TsrvUsuarios }
|
||||||
|
|||||||
@ -8,8 +8,8 @@ inherited fEditorPerfilUsuario: TfEditorPerfilUsuario
|
|||||||
AnchorY = 14
|
AnchorY = 14
|
||||||
end
|
end
|
||||||
end
|
end
|
||||||
inherited TBXDock: TTBXDock
|
inherited TBXDock: TSpTBXDock
|
||||||
inherited tbxMain: TTBXToolbar
|
inherited tbxMain: TSpTBXToolbar
|
||||||
ExplicitWidth = 330
|
ExplicitWidth = 330
|
||||||
end
|
end
|
||||||
end
|
end
|
||||||
|
|||||||
@ -6,7 +6,7 @@ uses
|
|||||||
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
|
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
|
||||||
Dialogs, uEditorDBItem, JvAppStorage, JvAppRegistryStorage, DB, uDAInterfaces,
|
Dialogs, uEditorDBItem, JvAppStorage, JvAppRegistryStorage, DB, uDAInterfaces,
|
||||||
uDADataTable, JvComponentBase, JvFormPlacement, ImgList, PngImageList,
|
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,
|
TB2Dock, TB2Toolbar, pngimage, ExtCtrls, JvExControls, JvNavigationPane,
|
||||||
uIEditorPerfilUsuario, uUsuariosController, uCustomView, uViewBase,
|
uIEditorPerfilUsuario, uUsuariosController, uCustomView, uViewBase,
|
||||||
uViewPerfilUsuario, uBizUsuarios, dxLayoutLookAndFeels, cxControls,
|
uViewPerfilUsuario, uBizUsuarios, dxLayoutLookAndFeels, cxControls,
|
||||||
|
|||||||
@ -14,16 +14,16 @@ inherited fEditorPerfilesUsuario: TfEditorPerfilesUsuario
|
|||||||
ExplicitLeft = 813
|
ExplicitLeft = 813
|
||||||
end
|
end
|
||||||
end
|
end
|
||||||
inherited TBXDock: TTBXDock
|
inherited TBXDock: TSpTBXDock
|
||||||
Width = 840
|
Width = 840
|
||||||
ExplicitWidth = 840
|
ExplicitWidth = 840
|
||||||
inherited tbxMain: TTBXToolbar
|
inherited tbxMain: TSpTBXToolbar
|
||||||
ExplicitWidth = 386
|
ExplicitWidth = 386
|
||||||
end
|
end
|
||||||
inherited tbxFiltro: TTBXToolbar
|
inherited tbxFiltro: TSpTBXToolbar
|
||||||
Visible = False
|
Visible = False
|
||||||
end
|
end
|
||||||
inherited tbxMenu: TTBXToolbar
|
inherited tbxMenu: TSpTBXToolbar
|
||||||
ExplicitWidth = 840
|
ExplicitWidth = 840
|
||||||
end
|
end
|
||||||
end
|
end
|
||||||
|
|||||||
@ -6,8 +6,8 @@ uses
|
|||||||
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
|
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
|
||||||
Dialogs, uEditorGridBase, Menus, JvAppStorage, JvAppRegistryStorage, DB,
|
Dialogs, uEditorGridBase, Menus, JvAppStorage, JvAppRegistryStorage, DB,
|
||||||
uDAInterfaces, uDADataTable, JvComponentBase, JvFormPlacement, ImgList,
|
uDAInterfaces, uDADataTable, JvComponentBase, JvFormPlacement, ImgList,
|
||||||
PngImageList, StdActns, ActnList, ComCtrls, JvExComCtrls, JvStatusBar, TBX,
|
PngImageList, StdActns, ActnList, ComCtrls, JvExComCtrls, JvStatusBar, SpTBXItem,
|
||||||
TB2ExtItems, TBXExtItems, TB2Item, TB2Dock, TB2Toolbar, pngimage, ExtCtrls,
|
TB2ExtItems, TB2Item, TB2Dock, TB2Toolbar, pngimage, ExtCtrls,
|
||||||
JvExControls, JvNavigationPane, uIEditorPerfilesUsuario,
|
JvExControls, JvNavigationPane, uIEditorPerfilesUsuario,
|
||||||
uUsuariosController, uBizUsuarios, uViewPerfilesUsuario;
|
uUsuariosController, uBizUsuarios, uViewPerfilesUsuario;
|
||||||
|
|
||||||
|
|||||||
@ -8,19 +8,19 @@ inherited fEditorUsuario: TfEditorUsuario
|
|||||||
AnchorY = 14
|
AnchorY = 14
|
||||||
end
|
end
|
||||||
end
|
end
|
||||||
inherited TBXDock: TTBXDock
|
inherited TBXDock: TSpTBXDock
|
||||||
inherited tbxMain: TTBXToolbar
|
inherited tbxMain: TSpTBXToolbar
|
||||||
ExplicitWidth = 465
|
ExplicitWidth = 465
|
||||||
object TBXSeparatorItem6: TTBXSeparatorItem [6]
|
object TBXSeparatorItem6: TSpTBXSeparatorItem [6]
|
||||||
end
|
end
|
||||||
object TBXItem33: TTBXItem [7]
|
object TBXItem33: TSpTBXItem [7]
|
||||||
Action = actCambiarPassword
|
Action = actCambiarPassword
|
||||||
end
|
end
|
||||||
end
|
end
|
||||||
inherited tbxMenu: TTBXToolbar
|
inherited tbxMenu: TSpTBXToolbar
|
||||||
object TBXSubmenuItem2: TTBXSubmenuItem [4]
|
object TBXSubmenuItem2: TSpTBXSubmenuItem [4]
|
||||||
Caption = '&Herramientas'
|
Caption = '&Herramientas'
|
||||||
object TBXItem7: TTBXItem
|
object TBXItem7: TSpTBXItem
|
||||||
Action = actCambiarPassword
|
Action = actCambiarPassword
|
||||||
end
|
end
|
||||||
end
|
end
|
||||||
|
|||||||
@ -6,7 +6,7 @@ uses
|
|||||||
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
|
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
|
||||||
Dialogs, uEditorDBItem, JvAppStorage, JvAppRegistryStorage, DB, uDAInterfaces,
|
Dialogs, uEditorDBItem, JvAppStorage, JvAppRegistryStorage, DB, uDAInterfaces,
|
||||||
uDADataTable, JvComponentBase, JvFormPlacement, ImgList, PngImageList,
|
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,
|
TB2Dock, TB2Toolbar, pngimage, ExtCtrls, JvExControls, JvNavigationPane,
|
||||||
uIEditorUsuario, uUsuariosController, uCustomView, uViewBase, uViewUsuario,
|
uIEditorUsuario, uUsuariosController, uCustomView, uViewBase, uViewUsuario,
|
||||||
uBizUsuarios, dxLayoutLookAndFeels, cxControls, cxContainer, cxEdit, cxLabel;
|
uBizUsuarios, dxLayoutLookAndFeels, cxControls, cxContainer, cxEdit, cxLabel;
|
||||||
@ -17,10 +17,10 @@ type
|
|||||||
dxLayoutLookAndFeelList1: TdxLayoutLookAndFeelList;
|
dxLayoutLookAndFeelList1: TdxLayoutLookAndFeelList;
|
||||||
dxLayoutOfficeLookAndFeel1: TdxLayoutOfficeLookAndFeel;
|
dxLayoutOfficeLookAndFeel1: TdxLayoutOfficeLookAndFeel;
|
||||||
actCambiarPassword: TAction;
|
actCambiarPassword: TAction;
|
||||||
TBXSubmenuItem2: TTBXSubmenuItem;
|
TBXSubmenuItem2: TSpTBXSubmenuItem;
|
||||||
TBXItem7: TTBXItem;
|
TBXItem7: TSpTBXItem;
|
||||||
TBXSeparatorItem6: TTBXSeparatorItem;
|
TBXSeparatorItem6: TSpTBXSeparatorItem;
|
||||||
TBXItem33: TTBXItem;
|
TBXItem33: TSpTBXItem;
|
||||||
procedure actEliminarUpdate(Sender: TObject);
|
procedure actEliminarUpdate(Sender: TObject);
|
||||||
procedure actCambiarPasswordExecute(Sender: TObject);
|
procedure actCambiarPasswordExecute(Sender: TObject);
|
||||||
procedure actCambiarPasswordUpdate(Sender: TObject);
|
procedure actCambiarPasswordUpdate(Sender: TObject);
|
||||||
|
|||||||
@ -14,23 +14,23 @@ inherited fEditorUsuarios: TfEditorUsuarios
|
|||||||
ExplicitLeft = 813
|
ExplicitLeft = 813
|
||||||
end
|
end
|
||||||
end
|
end
|
||||||
inherited TBXDock: TTBXDock
|
inherited TBXDock: TSpTBXDock
|
||||||
Width = 840
|
Width = 840
|
||||||
ExplicitWidth = 840
|
ExplicitWidth = 840
|
||||||
inherited tbxMain: TTBXToolbar
|
inherited tbxMain: TSpTBXToolbar
|
||||||
ExplicitWidth = 521
|
ExplicitWidth = 521
|
||||||
object TBXItem39: TTBXItem [8]
|
object TBXItem39: TSpTBXItem [8]
|
||||||
Action = actCambiarPassword
|
Action = actCambiarPassword
|
||||||
end
|
end
|
||||||
end
|
end
|
||||||
inherited tbxFiltro: TTBXToolbar
|
inherited tbxFiltro: TSpTBXToolbar
|
||||||
Visible = False
|
Visible = False
|
||||||
end
|
end
|
||||||
inherited tbxMenu: TTBXToolbar
|
inherited tbxMenu: TSpTBXToolbar
|
||||||
ExplicitWidth = 840
|
ExplicitWidth = 840
|
||||||
object TBXSubmenuItem2: TTBXSubmenuItem [4]
|
object TBXSubmenuItem2: TSpTBXSubmenuItem [4]
|
||||||
Caption = '&Herramientas'
|
Caption = '&Herramientas'
|
||||||
object TBXItem38: TTBXItem
|
object TBXItem38: TSpTBXItem
|
||||||
Action = actCambiarPassword
|
Action = actCambiarPassword
|
||||||
end
|
end
|
||||||
end
|
end
|
||||||
|
|||||||
@ -6,8 +6,8 @@ uses
|
|||||||
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
|
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
|
||||||
Dialogs, uEditorGridBase, Menus, JvAppStorage, JvAppRegistryStorage, DB,
|
Dialogs, uEditorGridBase, Menus, JvAppStorage, JvAppRegistryStorage, DB,
|
||||||
uDAInterfaces, uDADataTable, JvComponentBase, JvFormPlacement, ImgList,
|
uDAInterfaces, uDADataTable, JvComponentBase, JvFormPlacement, ImgList,
|
||||||
PngImageList, StdActns, ActnList, ComCtrls, JvExComCtrls, JvStatusBar, TBX,
|
PngImageList, StdActns, ActnList, ComCtrls, JvExComCtrls, JvStatusBar, SpTBXItem,
|
||||||
TB2ExtItems, TBXExtItems, TB2Item, TB2Dock, TB2Toolbar, pngimage, ExtCtrls,
|
TB2ExtItems, TB2Item, TB2Dock, TB2Toolbar, pngimage, ExtCtrls,
|
||||||
JvExControls, JvNavigationPane, uCustomView, uViewBase, uViewGridBase,
|
JvExControls, JvNavigationPane, uCustomView, uViewBase, uViewGridBase,
|
||||||
uViewGrid, uViewUsuarios, uIEditorUsuarios, uUsuariosController,
|
uViewGrid, uViewUsuarios, uIEditorUsuarios, uUsuariosController,
|
||||||
uBizUsuarios;
|
uBizUsuarios;
|
||||||
@ -15,9 +15,9 @@ uses
|
|||||||
type
|
type
|
||||||
TfEditorUsuarios = class(TfEditorGridBase, IEditorUsuarios)
|
TfEditorUsuarios = class(TfEditorGridBase, IEditorUsuarios)
|
||||||
actCambiarPassword: TAction;
|
actCambiarPassword: TAction;
|
||||||
TBXSubmenuItem2: TTBXSubmenuItem;
|
TBXSubmenuItem2: TSpTBXSubmenuItem;
|
||||||
TBXItem38: TTBXItem;
|
TBXItem38: TSpTBXItem;
|
||||||
TBXItem39: TTBXItem;
|
TBXItem39: TSpTBXItem;
|
||||||
procedure actEliminarUpdate(Sender: TObject);
|
procedure actEliminarUpdate(Sender: TObject);
|
||||||
procedure actCambiarPasswordUpdate(Sender: TObject);
|
procedure actCambiarPasswordUpdate(Sender: TObject);
|
||||||
procedure actCambiarPasswordExecute(Sender: TObject);
|
procedure actCambiarPasswordExecute(Sender: TObject);
|
||||||
|
|||||||
@ -20,7 +20,7 @@ inherited frViewPerfilesUsuario: TfrViewPerfilesUsuario
|
|||||||
end
|
end
|
||||||
end
|
end
|
||||||
inherited frViewFiltroBase1: TfrViewFiltroBase
|
inherited frViewFiltroBase1: TfrViewFiltroBase
|
||||||
inherited TBXDockablePanel1: TTBXDockablePanel
|
inherited TBXDockablePanel1: TSpTBXDockablePanel
|
||||||
inherited dxLayoutControl1: TdxLayoutControl
|
inherited dxLayoutControl1: TdxLayoutControl
|
||||||
inherited txtFiltroTodo: TcxTextEdit
|
inherited txtFiltroTodo: TcxTextEdit
|
||||||
ExplicitWidth = 273
|
ExplicitWidth = 273
|
||||||
@ -37,10 +37,10 @@ inherited frViewPerfilesUsuario: TfrViewPerfilesUsuario
|
|||||||
end
|
end
|
||||||
end
|
end
|
||||||
end
|
end
|
||||||
inherited pnlAgrupaciones: TTBXDockablePanel
|
inherited pnlAgrupaciones: TSpTBXDockablePanel
|
||||||
ExplicitWidth = 554
|
ExplicitWidth = 554
|
||||||
inherited TBXAlignmentPanel1: TTBXAlignmentPanel
|
inherited TBXAlignmentPanel1: TSpTBXDockablePanel
|
||||||
inherited TBXToolbar1: TTBXToolbar
|
inherited TBXToolbar1: TSpTBXToolbar
|
||||||
Visible = False
|
Visible = False
|
||||||
end
|
end
|
||||||
end
|
end
|
||||||
|
|||||||
@ -9,7 +9,7 @@ uses
|
|||||||
dxBkgnd, dxWrap, dxPrnDev, dxPSCompsProvider, dxPSFillPatterns,
|
dxBkgnd, dxWrap, dxPrnDev, dxPSCompsProvider, dxPSFillPatterns,
|
||||||
dxPSEdgePatterns, dxPgsDlg, dxPSCore, ImgList, PngImageList, ActnList,
|
dxPSEdgePatterns, dxPgsDlg, dxPSCore, ImgList, PngImageList, ActnList,
|
||||||
cxGridCustomPopupMenu, cxGridPopupMenu, dxPScxCommon, dxPScxGrid6Lnk,
|
cxGridCustomPopupMenu, cxGridPopupMenu, dxPScxCommon, dxPScxGrid6Lnk,
|
||||||
uDAInterfaces, uDADataTable, TB2Item, TBX, TB2Toolbar, TBXDkPanels, TB2Dock,
|
uDAInterfaces, uDADataTable, TB2Item, SpTBXItem, TB2Toolbar, SpTBXDkPanels, TB2Dock,
|
||||||
uViewFiltroBase, cxGridLevel, cxClasses, cxControls, cxGridCustomView,
|
uViewFiltroBase, cxGridLevel, cxClasses, cxControls, cxGridCustomView,
|
||||||
cxGridCustomTableView, cxGridTableView, cxGridDBTableView, cxGrid,
|
cxGridCustomTableView, cxGridTableView, cxGridDBTableView, cxGrid,
|
||||||
uBizUsuarios;
|
uBizUsuarios;
|
||||||
|
|||||||
@ -60,7 +60,7 @@ inherited frViewUsuarios: TfrViewUsuarios
|
|||||||
end
|
end
|
||||||
end
|
end
|
||||||
inherited frViewFiltroBase1: TfrViewFiltroBase
|
inherited frViewFiltroBase1: TfrViewFiltroBase
|
||||||
inherited TBXDockablePanel1: TTBXDockablePanel
|
inherited TBXDockablePanel1: TSpTBXDockablePanel
|
||||||
inherited dxLayoutControl1: TdxLayoutControl
|
inherited dxLayoutControl1: TdxLayoutControl
|
||||||
inherited txtFiltroTodo: TcxTextEdit
|
inherited txtFiltroTodo: TcxTextEdit
|
||||||
ExplicitWidth = 273
|
ExplicitWidth = 273
|
||||||
@ -77,10 +77,10 @@ inherited frViewUsuarios: TfrViewUsuarios
|
|||||||
end
|
end
|
||||||
end
|
end
|
||||||
end
|
end
|
||||||
inherited pnlAgrupaciones: TTBXDockablePanel
|
inherited pnlAgrupaciones: TSpTBXDockablePanel
|
||||||
ExplicitWidth = 554
|
ExplicitWidth = 554
|
||||||
inherited TBXAlignmentPanel1: TTBXAlignmentPanel
|
inherited TBXAlignmentPanel1: TSpTBXDockablePanel
|
||||||
inherited TBXToolbar1: TTBXToolbar
|
inherited TBXToolbar1: TSpTBXToolbar
|
||||||
Visible = False
|
Visible = False
|
||||||
end
|
end
|
||||||
end
|
end
|
||||||
|
|||||||
@ -9,7 +9,7 @@ uses
|
|||||||
dxBkgnd, dxWrap, dxPrnDev, dxPSCompsProvider, dxPSFillPatterns,
|
dxBkgnd, dxWrap, dxPrnDev, dxPSCompsProvider, dxPSFillPatterns,
|
||||||
dxPSEdgePatterns, dxPgsDlg, dxPSCore, ImgList, PngImageList, ActnList,
|
dxPSEdgePatterns, dxPgsDlg, dxPSCore, ImgList, PngImageList, ActnList,
|
||||||
cxGridCustomPopupMenu, cxGridPopupMenu, dxPScxCommon, dxPScxGrid6Lnk,
|
cxGridCustomPopupMenu, cxGridPopupMenu, dxPScxCommon, dxPScxGrid6Lnk,
|
||||||
uDAInterfaces, uDADataTable, TB2Item, TBX, TB2Toolbar, TBXDkPanels, TB2Dock,
|
uDAInterfaces, uDADataTable, TB2Item, SpTBXItem, TB2Toolbar, SpTBXDkPanels, TB2Dock,
|
||||||
uViewFiltroBase, cxGridLevel, cxClasses, cxControls, cxGridCustomView,
|
uViewFiltroBase, cxGridLevel, cxClasses, cxControls, cxGridCustomView,
|
||||||
cxGridCustomTableView, cxGridTableView, cxGridDBTableView, cxGrid,
|
cxGridCustomTableView, cxGridTableView, cxGridDBTableView, cxGrid,
|
||||||
uBizUsuarios;
|
uBizUsuarios;
|
||||||
|
|||||||
@ -29,7 +29,7 @@ package Base;
|
|||||||
requires
|
requires
|
||||||
rtl,
|
rtl,
|
||||||
vcl,
|
vcl,
|
||||||
TB2k_D10,
|
tb2k_d11,
|
||||||
GUISDK_D11R,
|
GUISDK_D11R,
|
||||||
RemObjects_Core_D11,
|
RemObjects_Core_D11,
|
||||||
DataAbstract_Core_D11,
|
DataAbstract_Core_D11,
|
||||||
@ -39,7 +39,7 @@ requires
|
|||||||
IndyProtocols,
|
IndyProtocols,
|
||||||
PNG_D10,
|
PNG_D10,
|
||||||
PngComponentsD10,
|
PngComponentsD10,
|
||||||
tbx_d10,
|
SpTBXLib_d11,
|
||||||
Jcl,
|
Jcl,
|
||||||
JvCoreD11R,
|
JvCoreD11R,
|
||||||
JvSystemD11R,
|
JvSystemD11R,
|
||||||
@ -75,8 +75,6 @@ requires
|
|||||||
cxPageControlD11,
|
cxPageControlD11,
|
||||||
cxExportD11,
|
cxExportD11,
|
||||||
dxPSCoreD11,
|
dxPSCoreD11,
|
||||||
cxIntl6D11,
|
|
||||||
cxIntlPrintSys3D11,
|
|
||||||
RemObjects_Indy_D11,
|
RemObjects_Indy_D11,
|
||||||
dxCoreD11;
|
dxCoreD11;
|
||||||
|
|
||||||
|
|||||||
@ -54,59 +54,57 @@
|
|||||||
<DelphiCompile Include="Base.dpk">
|
<DelphiCompile Include="Base.dpk">
|
||||||
<MainSource>MainSource</MainSource>
|
<MainSource>MainSource</MainSource>
|
||||||
</DelphiCompile>
|
</DelphiCompile>
|
||||||
|
<DCCReference Include="..\Modulos\Articulos\adortl.dcp" />
|
||||||
|
<DCCReference Include="..\Modulos\Articulos\cxDataD11.dcp" />
|
||||||
|
<DCCReference Include="..\Modulos\Articulos\cxEditorsD11.dcp" />
|
||||||
|
<DCCReference Include="..\Modulos\Articulos\cxExportD11.dcp" />
|
||||||
|
<DCCReference Include="..\Modulos\Articulos\cxExtEditorsD11.dcp" />
|
||||||
|
<DCCReference Include="..\Modulos\Articulos\cxGridD11.dcp" />
|
||||||
|
<DCCReference Include="..\Modulos\Articulos\cxLibraryD11.dcp" />
|
||||||
|
<DCCReference Include="..\Modulos\Articulos\cxPageControlD11.dcp" />
|
||||||
|
<DCCReference Include="..\Modulos\Articulos\DataAbstract_Core_D11.dcp" />
|
||||||
|
<DCCReference Include="..\Modulos\Articulos\dbrtl.dcp" />
|
||||||
|
<DCCReference Include="..\Modulos\Articulos\dclIndyCore.dcp" />
|
||||||
|
<DCCReference Include="..\Modulos\Articulos\designide.dcp" />
|
||||||
|
<DCCReference Include="..\Modulos\Articulos\dsnap.dcp" />
|
||||||
|
<DCCReference Include="..\Modulos\Articulos\dxCoreD11.dcp" />
|
||||||
|
<DCCReference Include="..\Modulos\Articulos\dxGDIPlusD11.dcp" />
|
||||||
|
<DCCReference Include="..\Modulos\Articulos\dxPSCoreD11.dcp" />
|
||||||
|
<DCCReference Include="..\Modulos\Articulos\dxThemeD11.dcp" />
|
||||||
|
<DCCReference Include="..\Modulos\Articulos\GUISDK_D11R.dcp" />
|
||||||
|
<DCCReference Include="..\Modulos\Articulos\IndyCore.dcp" />
|
||||||
|
<DCCReference Include="..\Modulos\Articulos\IndyProtocols.dcp" />
|
||||||
|
<DCCReference Include="..\Modulos\Articulos\IndySystem.dcp" />
|
||||||
|
<DCCReference Include="..\Modulos\Articulos\Jcl.dcp" />
|
||||||
|
<DCCReference Include="..\Modulos\Articulos\JclVcl.dcp" />
|
||||||
|
<DCCReference Include="..\Modulos\Articulos\JSDialog100.dcp" />
|
||||||
|
<DCCReference Include="..\Modulos\Articulos\JvCmpD11R.dcp" />
|
||||||
|
<DCCReference Include="..\Modulos\Articulos\JvCoreD11R.dcp" />
|
||||||
|
<DCCReference Include="..\Modulos\Articulos\JvCtrlsD11R.dcp" />
|
||||||
|
<DCCReference Include="..\Modulos\Articulos\JvDlgsD11R.dcp" />
|
||||||
|
<DCCReference Include="..\Modulos\Articulos\JvMMD11R.dcp" />
|
||||||
|
<DCCReference Include="..\Modulos\Articulos\JvNetD11R.dcp" />
|
||||||
|
<DCCReference Include="..\Modulos\Articulos\JvPageCompsD11R.dcp" />
|
||||||
|
<DCCReference Include="..\Modulos\Articulos\JvStdCtrlsD11R.dcp" />
|
||||||
|
<DCCReference Include="..\Modulos\Articulos\JvSystemD11R.dcp" />
|
||||||
|
<DCCReference Include="..\Modulos\Articulos\pckMD5.dcp" />
|
||||||
|
<DCCReference Include="..\Modulos\Articulos\pckUCDataConnector.dcp" />
|
||||||
|
<DCCReference Include="..\Modulos\Articulos\pckUserControl_RT.dcp" />
|
||||||
|
<DCCReference Include="..\Modulos\Articulos\PngComponentsD10.dcp" />
|
||||||
|
<DCCReference Include="..\Modulos\Articulos\PNG_D10.dcp" />
|
||||||
|
<DCCReference Include="..\Modulos\Articulos\RemObjects_Core_D11.dcp" />
|
||||||
|
<DCCReference Include="..\Modulos\Articulos\RemObjects_Indy_D11.dcp" />
|
||||||
|
<DCCReference Include="..\Modulos\Articulos\rtl.dcp" />
|
||||||
|
<DCCReference Include="..\Modulos\Articulos\SpTBXLib_d11.dcp" />
|
||||||
|
<DCCReference Include="..\Modulos\Articulos\tb2k_d11.dcp" />
|
||||||
|
<DCCReference Include="..\Modulos\Articulos\vcl.dcp" />
|
||||||
|
<DCCReference Include="..\Modulos\Articulos\vclactnband.dcp" />
|
||||||
|
<DCCReference Include="..\Modulos\Articulos\vcldb.dcp" />
|
||||||
|
<DCCReference Include="..\Modulos\Articulos\vcljpg.dcp" />
|
||||||
|
<DCCReference Include="..\Modulos\Articulos\VclSmp.dcp" />
|
||||||
|
<DCCReference Include="..\Modulos\Articulos\vclx.dcp" />
|
||||||
|
<DCCReference Include="..\Modulos\Articulos\xmlrtl.dcp" />
|
||||||
<DCCReference Include="..\Servicios\FactuGES_Intf.pas" />
|
<DCCReference Include="..\Servicios\FactuGES_Intf.pas" />
|
||||||
<DCCReference Include="C:\Documents and Settings\Usuario\adortl.dcp" />
|
|
||||||
<DCCReference Include="C:\Documents and Settings\Usuario\cxDataD11.dcp" />
|
|
||||||
<DCCReference Include="C:\Documents and Settings\Usuario\cxEditorsD11.dcp" />
|
|
||||||
<DCCReference Include="C:\Documents and Settings\Usuario\cxExportD11.dcp" />
|
|
||||||
<DCCReference Include="C:\Documents and Settings\Usuario\cxExtEditorsD11.dcp" />
|
|
||||||
<DCCReference Include="C:\Documents and Settings\Usuario\cxGridD11.dcp" />
|
|
||||||
<DCCReference Include="C:\Documents and Settings\Usuario\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">
|
<DCCReference Include="Conexion\uConfigurarConexion.pas">
|
||||||
<Form>fConfigurarConexion</Form>
|
<Form>fConfigurarConexion</Form>
|
||||||
<DesignClass>TForm</DesignClass>
|
<DesignClass>TForm</DesignClass>
|
||||||
|
|||||||
@ -5,12 +5,14 @@ object dmConexion: TdmConexion
|
|||||||
Height = 177
|
Height = 177
|
||||||
Width = 265
|
Width = 265
|
||||||
object ROMessage: TROBinMessage
|
object ROMessage: TROBinMessage
|
||||||
|
Envelopes = <>
|
||||||
Left = 42
|
Left = 42
|
||||||
Top = 88
|
Top = 88
|
||||||
end
|
end
|
||||||
object ROChannel: TROWinInetHTTPChannel
|
object ROChannel: TROWinInetHTTPChannel
|
||||||
UserAgent = 'RemObjects SDK'
|
UserAgent = 'RemObjects SDK'
|
||||||
TargetURL = 'http://localhost:8099/bin'
|
TargetURL = 'http://localhost:8099/bin'
|
||||||
|
TrustInvalidCA = False
|
||||||
ServerLocators = <>
|
ServerLocators = <>
|
||||||
DispatchOptions = []
|
DispatchOptions = []
|
||||||
Left = 48
|
Left = 48
|
||||||
|
|||||||
File diff suppressed because it is too large
Load Diff
@ -3,20 +3,17 @@ unit uDMBase;
|
|||||||
interface
|
interface
|
||||||
|
|
||||||
uses
|
uses
|
||||||
Controls, SyncObjs, PngImageList, JvComponent, JvNavigationPane, TBXSwitcher,
|
Controls, SyncObjs, PngImageList, JvComponent, JvNavigationPane,
|
||||||
TBXOffice2003Theme, Classes, ImgList, SysUtils,
|
Classes, ImgList, SysUtils,
|
||||||
DataAbstract4_Intf, uDADataTable, JvAppStorage, JvAppRegistryStorage, cxintl,
|
DataAbstract4_Intf, uDADataTable, JvAppStorage, JvAppRegistryStorage,
|
||||||
JvComponentBase, cxIntlPrintSys3, JvLogFile, dxPSGlbl, dxPSUtl, dxPrnPg,
|
JvComponentBase, JvLogFile, dxPSGlbl, dxPSUtl, dxPrnPg,
|
||||||
dxBkgnd, dxWrap, dxPrnDev, dxPgsDlg, dxPSCore;
|
dxBkgnd, dxWrap, dxPrnDev, dxPgsDlg, dxPSCore;
|
||||||
|
|
||||||
type
|
type
|
||||||
TdmBase = class(TDataModule)
|
TdmBase = class(TDataModule)
|
||||||
SmallImages: TPngImageList;
|
SmallImages: TPngImageList;
|
||||||
StyleManager: TJvNavPaneStyleManager;
|
StyleManager: TJvNavPaneStyleManager;
|
||||||
TBXSwitcher: TTBXSwitcher;
|
|
||||||
JvLogFile: TJvLogFile;
|
JvLogFile: TJvLogFile;
|
||||||
cxIntl: TcxIntl;
|
|
||||||
cxIntlPrintSys3: TcxIntlPrintSys3;
|
|
||||||
dxPrintStyleManager1: TdxPrintStyleManager;
|
dxPrintStyleManager1: TdxPrintStyleManager;
|
||||||
dxPrintStyleManager1Style1: TdxPSPrintStyle;
|
dxPrintStyleManager1Style1: TdxPSPrintStyle;
|
||||||
procedure DAClientDataModuleCreate(Sender: TObject);
|
procedure DAClientDataModuleCreate(Sender: TObject);
|
||||||
@ -44,7 +41,7 @@ implementation
|
|||||||
{$R *.DFM}
|
{$R *.DFM}
|
||||||
|
|
||||||
uses
|
uses
|
||||||
uDataModuleConexion, Dialogs, TBX, TBXThemes, Forms, Windows,
|
uDataModuleConexion, Dialogs, Forms, Windows,
|
||||||
JclFileUtils, cxControls, uDataModuleConfiguracion,
|
JclFileUtils, cxControls, uDataModuleConfiguracion,
|
||||||
SHFolder, uSistemaFunc, uAppInfoUtils;
|
SHFolder, uSistemaFunc, uAppInfoUtils;
|
||||||
|
|
||||||
@ -55,8 +52,8 @@ procedure TdmBase.DAClientDataModuleCreate(Sender: TObject);
|
|||||||
begin
|
begin
|
||||||
IniciarLog;
|
IniciarLog;
|
||||||
|
|
||||||
TBXSwitcher.OnThemeChange := OnTBXThemeChange;
|
{TBXSwitcher.OnThemeChange := OnTBXThemeChange;
|
||||||
TBXSetTheme('Office2003');
|
TBXSetTheme('Office2003');}
|
||||||
|
|
||||||
LeerConfiguracion;
|
LeerConfiguracion;
|
||||||
end;
|
end;
|
||||||
@ -84,7 +81,7 @@ end;
|
|||||||
|
|
||||||
procedure TdmBase.InitStyleManager;
|
procedure TdmBase.InitStyleManager;
|
||||||
begin
|
begin
|
||||||
if not USE_THEMES then
|
{ if not USE_THEMES then
|
||||||
begin
|
begin
|
||||||
TBXSwitcher.EnableXPStyles := False;
|
TBXSwitcher.EnableXPStyles := False;
|
||||||
StyleManager.Theme := nptStandard;
|
StyleManager.Theme := nptStandard;
|
||||||
@ -93,7 +90,7 @@ begin
|
|||||||
TBXSwitcher.EnableXPStyles := True;
|
TBXSwitcher.EnableXPStyles := True;
|
||||||
with StyleManager do
|
with StyleManager do
|
||||||
begin
|
begin
|
||||||
if CurrentTheme is TTBXOffice2003Theme then
|
if CurrentTheme is TSpTBXOffice2003Theme then
|
||||||
begin
|
begin
|
||||||
case GetOffice2003Scheme of
|
case GetOffice2003Scheme of
|
||||||
osBlue : Theme := nptXPBlue;
|
osBlue : Theme := nptXPBlue;
|
||||||
@ -104,7 +101,7 @@ begin
|
|||||||
end;
|
end;
|
||||||
end;
|
end;
|
||||||
end;
|
end;
|
||||||
end;
|
end;}
|
||||||
end;
|
end;
|
||||||
|
|
||||||
|
|
||||||
|
|||||||
@ -16,7 +16,7 @@ procedure copiarItemsMenu(MenuDestino: TMenuItem; pMenu: TMenuItem);
|
|||||||
implementation
|
implementation
|
||||||
|
|
||||||
uses
|
uses
|
||||||
ComCtrls, Classes, Math, TBXDkPanels, StrUtils, SysUtils,
|
ComCtrls, Classes, Math, SpTBXDkPanels, StrUtils, SysUtils,
|
||||||
ExtCtrls, Graphics, Dialogs;
|
ExtCtrls, Graphics, Dialogs;
|
||||||
|
|
||||||
type
|
type
|
||||||
|
|||||||
@ -13,8 +13,8 @@ procedure PopulateNavPagePane(AParentControl : TWinControl;
|
|||||||
implementation
|
implementation
|
||||||
|
|
||||||
uses
|
uses
|
||||||
ComCtrls, Classes, Math, TBXDkPanels, StrUtils, SysUtils,
|
ComCtrls, Classes, Math, SpTBXDkPanels, StrUtils, SysUtils,
|
||||||
ExtCtrls, Graphics, Dialogs;
|
ExtCtrls, Graphics, Dialogs, SpTBXControls;
|
||||||
|
|
||||||
|
|
||||||
procedure PopulateNavPagePane(AParentControl : TWinControl;
|
procedure PopulateNavPagePane(AParentControl : TWinControl;
|
||||||
@ -30,7 +30,7 @@ begin
|
|||||||
if ((not AMenuItem[ItemIndex].IsLine) // que no sea una línea separadora
|
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ú
|
and (AMenuItem[ItemIndex].Count = 0)) // y que no sea el padre de un submenú
|
||||||
then
|
then
|
||||||
with TTBXLink.Create(Application) do
|
with TSpTBXLabel.Create(Application) do
|
||||||
begin
|
begin
|
||||||
Parent := AParentControl;//APanel;
|
Parent := AParentControl;//APanel;
|
||||||
Align := alTop;
|
Align := alTop;
|
||||||
|
|||||||
@ -21,32 +21,36 @@ object fPantallaPrincipal: TfPantallaPrincipal
|
|||||||
OnShow = FormShow
|
OnShow = FormShow
|
||||||
PixelsPerInch = 96
|
PixelsPerInch = 96
|
||||||
TextHeight = 13
|
TextHeight = 13
|
||||||
object pnlContenido: TTBXAlignmentPanel
|
object pnlContenido: TSpTBXDockablePanel
|
||||||
Left = 0
|
AlignWithMargins = True
|
||||||
Top = 0
|
Left = 5
|
||||||
Width = 886
|
Top = 5
|
||||||
Height = 531
|
Width = 876
|
||||||
|
Height = 533
|
||||||
Margins.Left = 5
|
Margins.Left = 5
|
||||||
Margins.Top = 5
|
Margins.Top = 5
|
||||||
Margins.Right = 5
|
Margins.Right = 5
|
||||||
Margins.Bottom = 5
|
Margins.Bottom = 5
|
||||||
ParentColor = True
|
Color = clWindow
|
||||||
Align = alClient
|
Align = alClient
|
||||||
TabOrder = 0
|
TabOrder = 0
|
||||||
|
ShowCaption = False
|
||||||
|
ShowCaptionWhenDocked = False
|
||||||
|
ExplicitHeight = 517
|
||||||
object JvSyncSplitter1: TJvSyncSplitter
|
object JvSyncSplitter1: TJvSyncSplitter
|
||||||
Left = 215
|
Left = 210
|
||||||
Top = 5
|
Top = 0
|
||||||
Width = 5
|
Width = 5
|
||||||
Height = 521
|
Height = 533
|
||||||
ResizeStyle = rsPattern
|
ResizeStyle = rsPattern
|
||||||
ExplicitLeft = 210
|
ExplicitTop = 5
|
||||||
ExplicitHeight = 570
|
ExplicitHeight = 570
|
||||||
end
|
end
|
||||||
object JvNavigationPane: TJvNavigationPane
|
object JvNavigationPane: TJvNavigationPane
|
||||||
Left = 5
|
Left = 0
|
||||||
Top = 5
|
Top = 0
|
||||||
Width = 210
|
Width = 210
|
||||||
Height = 521
|
Height = 533
|
||||||
ActivePage = pagInicio
|
ActivePage = pagInicio
|
||||||
Align = alLeft
|
Align = alLeft
|
||||||
AutoHeaders = True
|
AutoHeaders = True
|
||||||
@ -87,11 +91,12 @@ object fPantallaPrincipal: TfPantallaPrincipal
|
|||||||
NavPanelHotTrackFont.Style = []
|
NavPanelHotTrackFont.Style = []
|
||||||
SmallImages = ModulesSmallImageList
|
SmallImages = ModulesSmallImageList
|
||||||
OnChange = JvNavigationPaneChange
|
OnChange = JvNavigationPaneChange
|
||||||
|
ExplicitHeight = 517
|
||||||
object pagInicio: TJvNavPanelPage
|
object pagInicio: TJvNavPanelPage
|
||||||
Left = 0
|
Left = 0
|
||||||
Top = 0
|
Top = 0
|
||||||
Width = 208
|
Width = 208
|
||||||
Height = 448
|
Height = 460
|
||||||
Background.Stretch = False
|
Background.Stretch = False
|
||||||
Background.Proportional = False
|
Background.Proportional = False
|
||||||
Background.Center = False
|
Background.Center = False
|
||||||
@ -99,15 +104,17 @@ object fPantallaPrincipal: TfPantallaPrincipal
|
|||||||
Background.Transparent = False
|
Background.Transparent = False
|
||||||
Caption = 'Inicio'
|
Caption = 'Inicio'
|
||||||
ImageIndex = 0
|
ImageIndex = 0
|
||||||
|
ExplicitHeight = 444
|
||||||
object Panel1: TPanel
|
object Panel1: TPanel
|
||||||
Left = 0
|
Left = 0
|
||||||
Top = 362
|
Top = 374
|
||||||
Width = 208
|
Width = 208
|
||||||
Height = 86
|
Height = 86
|
||||||
Align = alBottom
|
Align = alBottom
|
||||||
Color = clWindow
|
Color = clWindow
|
||||||
ParentBackground = False
|
ParentBackground = False
|
||||||
TabOrder = 1
|
TabOrder = 1
|
||||||
|
ExplicitTop = 358
|
||||||
object Label1: TLabel
|
object Label1: TLabel
|
||||||
Left = 38
|
Left = 38
|
||||||
Top = 29
|
Top = 29
|
||||||
@ -152,22 +159,26 @@ object fPantallaPrincipal: TfPantallaPrincipal
|
|||||||
end
|
end
|
||||||
end
|
end
|
||||||
object pnlBorde: TJvXPContainer
|
object pnlBorde: TJvXPContainer
|
||||||
Left = 220
|
Left = 215
|
||||||
Top = 5
|
Top = 0
|
||||||
Width = 661
|
Width = 661
|
||||||
Height = 521
|
Height = 533
|
||||||
BoundColor = clActiveCaption
|
BoundColor = clActiveCaption
|
||||||
BoundLines = [blLeft, blTop, blRight, blBottom]
|
BoundLines = [blLeft, blTop, blRight, blBottom]
|
||||||
Caption = 'pnlBorde'
|
Caption = 'pnlBorde'
|
||||||
Align = alClient
|
Align = alClient
|
||||||
object pnlMain: TTBXAlignmentPanel
|
ExplicitHeight = 517
|
||||||
|
object pnlMain: TSpTBXDockablePanel
|
||||||
Left = 1
|
Left = 1
|
||||||
Top = 1
|
Top = 1
|
||||||
Width = 659
|
Width = 659
|
||||||
Height = 519
|
Height = 531
|
||||||
Align = alClient
|
|
||||||
Color = clWindow
|
Color = clWindow
|
||||||
|
Align = alClient
|
||||||
TabOrder = 0
|
TabOrder = 0
|
||||||
|
ShowCaption = False
|
||||||
|
ShowCaptionWhenDocked = False
|
||||||
|
ExplicitHeight = 515
|
||||||
object lblBienvenido: TLabel
|
object lblBienvenido: TLabel
|
||||||
Left = 8
|
Left = 8
|
||||||
Top = 8
|
Top = 8
|
||||||
@ -202,30 +213,19 @@ object fPantallaPrincipal: TfPantallaPrincipal
|
|||||||
end
|
end
|
||||||
end
|
end
|
||||||
end
|
end
|
||||||
object TBXStatusBar1: TTBXStatusBar
|
object SpTBXStatusBar1: TSpTBXStatusBar
|
||||||
Left = 0
|
Left = 0
|
||||||
Top = 531
|
Top = 543
|
||||||
Width = 886
|
Width = 886
|
||||||
Images = StatusPanelImageList
|
Height = 10
|
||||||
Panels = <
|
object SpTBXLabelItem1: TSpTBXLabelItem
|
||||||
item
|
Images = StatusPanelImageList
|
||||||
ImageIndex = 1
|
end
|
||||||
Size = 250
|
object SpTBXSeparatorItem1: TSpTBXSeparatorItem
|
||||||
Tag = 0
|
end
|
||||||
TextTruncation = twPathEllipsis
|
object SpTBXLabelItem2: TSpTBXLabelItem
|
||||||
end
|
Images = StatusPanelImageList
|
||||||
item
|
end
|
||||||
Framed = False
|
|
||||||
ImageIndex = 0
|
|
||||||
Size = 150
|
|
||||||
Tag = 0
|
|
||||||
TextTruncation = twEndEllipsis
|
|
||||||
end
|
|
||||||
item
|
|
||||||
Size = 200
|
|
||||||
Tag = 0
|
|
||||||
end>
|
|
||||||
UseSystemFont = False
|
|
||||||
end
|
end
|
||||||
object XPManifest1: TXPManifest
|
object XPManifest1: TXPManifest
|
||||||
Left = 248
|
Left = 248
|
||||||
@ -513,8 +513,7 @@ object fPantallaPrincipal: TfPantallaPrincipal
|
|||||||
Options = []
|
Options = []
|
||||||
VersionCheck = fpvcNocheck
|
VersionCheck = fpvcNocheck
|
||||||
StoredProps.Strings = (
|
StoredProps.Strings = (
|
||||||
'JvNavigationPane.Visible'
|
'JvNavigationPane.Visible')
|
||||||
'TBXStatusBar1.Visible')
|
|
||||||
StoredValues = <>
|
StoredValues = <>
|
||||||
Left = 248
|
Left = 248
|
||||||
Top = 128
|
Top = 128
|
||||||
|
|||||||
@ -6,10 +6,10 @@ uses
|
|||||||
Windows, Forms, SysUtils, Messages, JvMenus, Menus, Graphics, AppEvnts,
|
Windows, Forms, SysUtils, Messages, JvMenus, Menus, Graphics, AppEvnts,
|
||||||
JvAppStorage, JvAppRegistryStorage, JvFormPlacement, JvComponentBase,
|
JvAppStorage, JvAppRegistryStorage, JvFormPlacement, JvComponentBase,
|
||||||
JvNavigationPane, ImgList, Controls, PngImageList, Classes, ActnList, XPMan,
|
JvNavigationPane, ImgList, Controls, PngImageList, Classes, ActnList, XPMan,
|
||||||
TBXStatusBars, JvXPCore, JvXPContainer, pngimage, ExtCtrls, StdCtrls,
|
JvXPCore, JvXPContainer, pngimage, ExtCtrls, StdCtrls, SpTBXItem,
|
||||||
JvPageList, JvExControls, JvExExtCtrls, JvSplitter, JvSyncSplitter,
|
JvPageList, JvExControls, JvExExtCtrls, JvSplitter, JvSyncSplitter,
|
||||||
TBXDkPanels, uCustomEditor, uHostManager, uGUIBase,
|
SpTBXDkPanels, uCustomEditor, uHostManager, uGUIBase,
|
||||||
Dialogs, jpeg;
|
Dialogs, jpeg, TB2Dock, TB2Item;
|
||||||
|
|
||||||
type
|
type
|
||||||
IMainForm = interface(IHostForm)
|
IMainForm = interface(IHostForm)
|
||||||
@ -25,9 +25,9 @@ type
|
|||||||
actSalir: TAction;
|
actSalir: TAction;
|
||||||
ModulesActionList: TActionList;
|
ModulesActionList: TActionList;
|
||||||
ModulesLargeImageList: TPngImageList;
|
ModulesLargeImageList: TPngImageList;
|
||||||
pnlContenido: TTBXAlignmentPanel;
|
pnlContenido: TSpTBXDockablePanel;
|
||||||
JvNavigationPane: TJvNavigationPane;
|
JvNavigationPane: TJvNavigationPane;
|
||||||
pnlMain: TTBXAlignmentPanel;
|
pnlMain: TSpTBXDockablePanel;
|
||||||
JvSyncSplitter1: TJvSyncSplitter;
|
JvSyncSplitter1: TJvSyncSplitter;
|
||||||
actLogin: TAction;
|
actLogin: TAction;
|
||||||
StyleManagerButtons: TJvNavPaneStyleManager;
|
StyleManagerButtons: TJvNavPaneStyleManager;
|
||||||
@ -52,7 +52,6 @@ type
|
|||||||
Acercade2_OLD: TMenuItem;
|
Acercade2_OLD: TMenuItem;
|
||||||
lblBienvenido: TLabel;
|
lblBienvenido: TLabel;
|
||||||
Label22: TLabel;
|
Label22: TLabel;
|
||||||
TBXStatusBar1: TTBXStatusBar;
|
|
||||||
StatusPanelImageList: TPngImageList;
|
StatusPanelImageList: TPngImageList;
|
||||||
Empresa1_OLD: TMenuItem;
|
Empresa1_OLD: TMenuItem;
|
||||||
Listadeempresas1_OLD: TMenuItem;
|
Listadeempresas1_OLD: TMenuItem;
|
||||||
@ -91,6 +90,10 @@ type
|
|||||||
actMenuEmpresa: TAction;
|
actMenuEmpresa: TAction;
|
||||||
actMenuInformes: TAction;
|
actMenuInformes: TAction;
|
||||||
actInformacionEmpresa: TAction;
|
actInformacionEmpresa: TAction;
|
||||||
|
SpTBXStatusBar1: TSpTBXStatusBar;
|
||||||
|
SpTBXLabelItem1: TSpTBXLabelItem;
|
||||||
|
SpTBXSeparatorItem1: TSpTBXSeparatorItem;
|
||||||
|
SpTBXLabelItem2: TSpTBXLabelItem;
|
||||||
procedure FormCreate(Sender: TObject);
|
procedure FormCreate(Sender: TObject);
|
||||||
procedure Salir1Click(Sender: TObject);
|
procedure Salir1Click(Sender: TObject);
|
||||||
procedure actSalirExecute(Sender: TObject);
|
procedure actSalirExecute(Sender: TObject);
|
||||||
@ -205,14 +208,24 @@ begin
|
|||||||
Caption := Application.Title;
|
Caption := Application.Title;
|
||||||
|
|
||||||
if dmConexion.HayConexion then
|
if dmConexion.HayConexion then
|
||||||
TBXStatusBar1.Panels[0].Caption := 'Conectado a: ' + dmConexion.TargetURL
|
begin
|
||||||
else
|
SpTBXLabelItem1.ImageIndex := 1;
|
||||||
TBXStatusBar1.Panels[0].Caption := 'Desconectado';
|
SpTBXLabelItem1.Caption := 'Conectado a: ' + dmConexion.TargetURL
|
||||||
|
end
|
||||||
|
else begin
|
||||||
|
SpTBXLabelItem1.ImageIndex := -1;
|
||||||
|
SpTBXLabelItem1.Caption := 'Desconectado';
|
||||||
|
end;
|
||||||
|
|
||||||
if Assigned(AppFactuGES.UsuarioActivo) then
|
if Assigned(AppFactuGES.UsuarioActivo) then
|
||||||
TBXStatusBar1.Panels[1].Caption := AppFactuGES.UsuarioActivo.UserName
|
begin
|
||||||
else
|
SpTBXLabelItem2.ImageIndex := 0;
|
||||||
TBXStatusBar1.Panels[1].Caption := '';
|
SpTBXLabelItem2.Caption := AppFactuGES.UsuarioActivo.UserName
|
||||||
|
end
|
||||||
|
else begin
|
||||||
|
SpTBXLabelItem2.ImageIndex := -1;
|
||||||
|
SpTBXLabelItem2.Caption := '';
|
||||||
|
end;
|
||||||
|
|
||||||
|
|
||||||
// Comprobar que el panel lateral tiene la empresa activa
|
// Comprobar que el panel lateral tiene la empresa activa
|
||||||
@ -248,12 +261,12 @@ end;
|
|||||||
|
|
||||||
procedure TfPantallaPrincipal.actVerBarraEstadoExecute(Sender: TObject);
|
procedure TfPantallaPrincipal.actVerBarraEstadoExecute(Sender: TObject);
|
||||||
begin
|
begin
|
||||||
TBXStatusBar1.Visible := not TBXStatusBar1.Visible;
|
SpTBXStatusBar1.Visible := not SpTBXStatusBar1.Visible;
|
||||||
end;
|
end;
|
||||||
|
|
||||||
procedure TfPantallaPrincipal.actVerBarraEstadoUpdate(Sender: TObject);
|
procedure TfPantallaPrincipal.actVerBarraEstadoUpdate(Sender: TObject);
|
||||||
begin
|
begin
|
||||||
(Sender as TAction).Checked := TBXStatusBar1.Visible;
|
(Sender as TAction).Checked := SpTBXStatusBar1.Visible;
|
||||||
end;
|
end;
|
||||||
|
|
||||||
procedure TfPantallaPrincipal.actVerPanelExecute(Sender: TObject);
|
procedure TfPantallaPrincipal.actVerPanelExecute(Sender: TObject);
|
||||||
|
|||||||
@ -49,7 +49,9 @@ requires
|
|||||||
dxPSCoreD11,
|
dxPSCoreD11,
|
||||||
vcljpg,
|
vcljpg,
|
||||||
vclx,
|
vclx,
|
||||||
cxTreeListD11;
|
cxTreeListD11,
|
||||||
|
dxPScxPCProdD11,
|
||||||
|
dxPScxExtCommonD11;
|
||||||
|
|
||||||
contains
|
contains
|
||||||
uEditorBase in 'uEditorBase.pas' {fEditorBase: TCustomEditor},
|
uEditorBase in 'uEditorBase.pas' {fEditorBase: TCustomEditor},
|
||||||
|
|||||||
@ -59,30 +59,32 @@
|
|||||||
<DelphiCompile Include="GUIBase.dpk">
|
<DelphiCompile Include="GUIBase.dpk">
|
||||||
<MainSource>MainSource</MainSource>
|
<MainSource>MainSource</MainSource>
|
||||||
</DelphiCompile>
|
</DelphiCompile>
|
||||||
<DCCReference Include="..\Modulos\Facturas de cliente\Views\Base.dcp" />
|
<DCCReference Include="..\Modulos\Articulos\Base.dcp" />
|
||||||
<DCCReference Include="..\Modulos\Facturas de cliente\Views\cxLibraryD11.dcp" />
|
<DCCReference Include="..\Modulos\Articulos\cxLibraryD11.dcp" />
|
||||||
<DCCReference Include="..\Modulos\Facturas de cliente\Views\cxTreeListD11.dcp" />
|
<DCCReference Include="..\Modulos\Articulos\cxTreeListD11.dcp" />
|
||||||
<DCCReference Include="..\Modulos\Facturas de cliente\Views\dbrtl.dcp" />
|
<DCCReference Include="..\Modulos\Articulos\dbrtl.dcp" />
|
||||||
<DCCReference Include="..\Modulos\Facturas de cliente\Views\dxBarD11.dcp" />
|
<DCCReference Include="..\Modulos\Articulos\dxBarD11.dcp" />
|
||||||
<DCCReference Include="..\Modulos\Facturas de cliente\Views\dxBarExtItemsD11.dcp" />
|
<DCCReference Include="..\Modulos\Articulos\dxBarExtItemsD11.dcp" />
|
||||||
<DCCReference Include="..\Modulos\Facturas de cliente\Views\dxComnD11.dcp" />
|
<DCCReference Include="..\Modulos\Articulos\dxComnD11.dcp" />
|
||||||
<DCCReference Include="..\Modulos\Facturas de cliente\Views\dxGDIPlusD11.dcp" />
|
<DCCReference Include="..\Modulos\Articulos\dxGDIPlusD11.dcp" />
|
||||||
<DCCReference Include="..\Modulos\Facturas de cliente\Views\dxLayoutControlD11.dcp" />
|
<DCCReference Include="..\Modulos\Articulos\dxLayoutControlD11.dcp" />
|
||||||
<DCCReference Include="..\Modulos\Facturas de cliente\Views\dxPSCoreD11.dcp" />
|
<DCCReference Include="..\Modulos\Articulos\dxPSCoreD11.dcp" />
|
||||||
<DCCReference Include="..\Modulos\Facturas de cliente\Views\dxPScxCommonD11.dcp" />
|
<DCCReference Include="..\Modulos\Articulos\dxPScxCommonD11.dcp" />
|
||||||
<DCCReference Include="..\Modulos\Facturas de cliente\Views\dxPScxGrid6LnkD11.dcp" />
|
<DCCReference Include="..\Modulos\Articulos\dxPScxExtCommonD11.dcp" />
|
||||||
<DCCReference Include="..\Modulos\Facturas de cliente\Views\dxPsPrVwAdvD11.dcp" />
|
<DCCReference Include="..\Modulos\Articulos\dxPScxGrid6LnkD11.dcp" />
|
||||||
<DCCReference Include="..\Modulos\Facturas de cliente\Views\dxThemeD11.dcp" />
|
<DCCReference Include="..\Modulos\Articulos\dxPScxPCProdD11.dcp" />
|
||||||
<DCCReference Include="..\Modulos\Facturas de cliente\Views\frx11.dcp" />
|
<DCCReference Include="..\Modulos\Articulos\dxPsPrVwAdvD11.dcp" />
|
||||||
<DCCReference Include="..\Modulos\Facturas de cliente\Views\frxe11.dcp" />
|
<DCCReference Include="..\Modulos\Articulos\dxThemeD11.dcp" />
|
||||||
<DCCReference Include="..\Modulos\Facturas de cliente\Views\fs11.dcp" />
|
<DCCReference Include="..\Modulos\Articulos\frx11.dcp" />
|
||||||
<DCCReference Include="..\Modulos\Facturas de cliente\Views\JvAppFrmD11R.dcp" />
|
<DCCReference Include="..\Modulos\Articulos\frxe11.dcp" />
|
||||||
<DCCReference Include="..\Modulos\Facturas de cliente\Views\JvCtrlsD11R.dcp" />
|
<DCCReference Include="..\Modulos\Articulos\fs11.dcp" />
|
||||||
<DCCReference Include="..\Modulos\Facturas de cliente\Views\rtl.dcp" />
|
<DCCReference Include="..\Modulos\Articulos\JvAppFrmD11R.dcp" />
|
||||||
<DCCReference Include="..\Modulos\Facturas de cliente\Views\vcl.dcp" />
|
<DCCReference Include="..\Modulos\Articulos\JvCtrlsD11R.dcp" />
|
||||||
<DCCReference Include="..\Modulos\Facturas de cliente\Views\vcldb.dcp" />
|
<DCCReference Include="..\Modulos\Articulos\rtl.dcp" />
|
||||||
<DCCReference Include="..\Modulos\Facturas de cliente\Views\vcljpg.dcp" />
|
<DCCReference Include="..\Modulos\Articulos\vcl.dcp" />
|
||||||
<DCCReference Include="..\Modulos\Facturas de cliente\Views\vclx.dcp" />
|
<DCCReference Include="..\Modulos\Articulos\vcldb.dcp" />
|
||||||
|
<DCCReference Include="..\Modulos\Articulos\vcljpg.dcp" />
|
||||||
|
<DCCReference Include="..\Modulos\Articulos\vclx.dcp" />
|
||||||
<DCCReference Include="uDialogBase.pas">
|
<DCCReference Include="uDialogBase.pas">
|
||||||
<Form>fDialogBase</Form>
|
<Form>fDialogBase</Form>
|
||||||
</DCCReference>
|
</DCCReference>
|
||||||
|
|||||||
@ -16,14 +16,14 @@ inherited fDialogElegirEMail: TfDialogElegirEMail
|
|||||||
inherited Bevel3: TBevel
|
inherited Bevel3: TBevel
|
||||||
Top = 262
|
Top = 262
|
||||||
Width = 572
|
Width = 572
|
||||||
|
ExplicitTop = 262
|
||||||
ExplicitWidth = 572
|
ExplicitWidth = 572
|
||||||
end
|
end
|
||||||
inherited pnlBotones: TPanel
|
inherited pnlBotones: TPanel
|
||||||
Top = 264
|
Top = 264
|
||||||
Width = 572
|
Width = 572
|
||||||
Height = 43
|
Height = 43
|
||||||
ExplicitLeft = -8
|
ExplicitTop = 264
|
||||||
ExplicitTop = 280
|
|
||||||
ExplicitWidth = 572
|
ExplicitWidth = 572
|
||||||
ExplicitHeight = 43
|
ExplicitHeight = 43
|
||||||
inherited btnAceptar: TButton
|
inherited btnAceptar: TButton
|
||||||
@ -57,7 +57,7 @@ inherited fDialogElegirEMail: TfDialogElegirEMail
|
|||||||
Width = 572
|
Width = 572
|
||||||
Height = 196
|
Height = 196
|
||||||
ExplicitWidth = 572
|
ExplicitWidth = 572
|
||||||
ExplicitHeight = 208
|
ExplicitHeight = 196
|
||||||
object Label1: TLabel
|
object Label1: TLabel
|
||||||
Left = 25
|
Left = 25
|
||||||
Top = 16
|
Top = 16
|
||||||
|
|||||||
@ -5,7 +5,8 @@ interface
|
|||||||
uses
|
uses
|
||||||
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
|
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
|
||||||
Dialogs, uDialogBase, ActnList, StdCtrls, ExtCtrls, cxControls, cxContainer,
|
Dialogs, uDialogBase, ActnList, StdCtrls, ExtCtrls, cxControls, cxContainer,
|
||||||
cxEdit, cxTextEdit, cxHyperLinkEdit;
|
cxEdit, cxTextEdit, cxHyperLinkEdit, cxGraphics, cxLookAndFeels,
|
||||||
|
cxLookAndFeelPainters;
|
||||||
|
|
||||||
type
|
type
|
||||||
TfDialogElegirEMail = class(TfDialogBase)
|
TfDialogElegirEMail = class(TfDialogBase)
|
||||||
|
|||||||
@ -67,15 +67,14 @@ object fEditorBase: TfEditorBase
|
|||||||
ExplicitLeft = 627
|
ExplicitLeft = 627
|
||||||
end
|
end
|
||||||
end
|
end
|
||||||
object TBXDock: TTBXDock
|
object TBXDock: TSpTBXDock
|
||||||
Left = 0
|
Left = 0
|
||||||
Top = 0
|
Top = 0
|
||||||
Width = 795
|
Width = 795
|
||||||
Height = 49
|
Height = 49
|
||||||
object tbxMain: TTBXToolbar
|
object tbxMain: TSpTBXToolbar
|
||||||
Left = 0
|
Left = 0
|
||||||
Top = 23
|
Top = 23
|
||||||
Caption = 'tbxMain'
|
|
||||||
ChevronHint = 'M'#225's botones|'
|
ChevronHint = 'M'#225's botones|'
|
||||||
DockMode = dmCannotFloatOrChangeDocks
|
DockMode = dmCannotFloatOrChangeDocks
|
||||||
DockPos = -23
|
DockPos = -23
|
||||||
@ -84,159 +83,161 @@ object fEditorBase: TfEditorBase
|
|||||||
ParentShowHint = False
|
ParentShowHint = False
|
||||||
ShowHint = True
|
ShowHint = True
|
||||||
TabOrder = 0
|
TabOrder = 0
|
||||||
object TBXItem2: TTBXItem
|
Caption = 'tbxMain'
|
||||||
|
object TBXItem2: TSpTBXItem
|
||||||
Action = actNuevo
|
Action = actNuevo
|
||||||
DisplayMode = nbdmImageAndText
|
DisplayMode = nbdmImageAndText
|
||||||
end
|
end
|
||||||
object TBXSeparatorItem1: TTBXSeparatorItem
|
object TBXSeparatorItem1: TSpTBXSeparatorItem
|
||||||
end
|
end
|
||||||
object TBXItem29: TTBXItem
|
object TBXItem29: TSpTBXItem
|
||||||
Action = actGuardarCerrar
|
Action = actGuardarCerrar
|
||||||
DisplayMode = nbdmImageAndText
|
DisplayMode = nbdmImageAndText
|
||||||
end
|
end
|
||||||
object TBXItem27: TTBXItem
|
object TBXItem27: TSpTBXItem
|
||||||
Action = actGuardar
|
Action = actGuardar
|
||||||
end
|
end
|
||||||
object TBXItem5: TTBXItem
|
object TBXItem5: TSpTBXItem
|
||||||
Action = actModificar
|
Action = actModificar
|
||||||
DisplayMode = nbdmImageAndText
|
DisplayMode = nbdmImageAndText
|
||||||
end
|
end
|
||||||
object TBXItem4: TTBXItem
|
object TBXItem4: TSpTBXItem
|
||||||
Action = actEliminar
|
Action = actEliminar
|
||||||
DisplayMode = nbdmImageAndText
|
DisplayMode = nbdmImageAndText
|
||||||
end
|
end
|
||||||
object TBXSeparatorItem3: TTBXSeparatorItem
|
object TBXSeparatorItem3: TSpTBXSeparatorItem
|
||||||
end
|
end
|
||||||
object TBXItem23: TTBXItem
|
object TBXItem23: TSpTBXItem
|
||||||
Action = actPrevisualizar
|
Action = actPrevisualizar
|
||||||
DisplayMode = nbdmImageAndText
|
DisplayMode = nbdmImageAndText
|
||||||
end
|
end
|
||||||
object TBXSeparatorItem2: TTBXSeparatorItem
|
object TBXSeparatorItem2: TSpTBXSeparatorItem
|
||||||
Visible = False
|
Visible = False
|
||||||
end
|
end
|
||||||
object TBXItem24: TTBXItem
|
object TBXItem24: TSpTBXItem
|
||||||
Action = actConfPagina
|
Action = actConfPagina
|
||||||
Visible = False
|
Visible = False
|
||||||
end
|
end
|
||||||
object TBXItem3: TTBXItem
|
object TBXItem3: TSpTBXItem
|
||||||
Action = actImprimir
|
Action = actImprimir
|
||||||
DisplayMode = nbdmImageAndText
|
DisplayMode = nbdmImageAndText
|
||||||
end
|
end
|
||||||
object TBXSeparatorItem10: TTBXSeparatorItem
|
object TBXSeparatorItem10: TSpTBXSeparatorItem
|
||||||
end
|
end
|
||||||
object TBXItem26: TTBXItem
|
object TBXItem26: TSpTBXItem
|
||||||
Action = actAnterior
|
Action = actAnterior
|
||||||
end
|
end
|
||||||
object TBXItem25: TTBXItem
|
object TBXItem25: TSpTBXItem
|
||||||
Action = actSiguiente
|
Action = actSiguiente
|
||||||
end
|
end
|
||||||
object TBXItem6: TTBXItem
|
object TBXItem6: TSpTBXItem
|
||||||
Action = actRefrescar
|
Action = actRefrescar
|
||||||
DisplayMode = nbdmImageAndText
|
DisplayMode = nbdmImageAndText
|
||||||
end
|
end
|
||||||
object TBXSeparatorItem11: TTBXSeparatorItem
|
object TBXSeparatorItem11: TSpTBXSeparatorItem
|
||||||
end
|
end
|
||||||
object TBXItem28: TTBXItem
|
object TBXItem28: TSpTBXItem
|
||||||
Action = actCerrar
|
Action = actCerrar
|
||||||
end
|
end
|
||||||
end
|
end
|
||||||
object tbxMenu: TTBXToolbar
|
object tbxMenu: TSpTBXToolbar
|
||||||
Left = 0
|
Left = 0
|
||||||
Top = 0
|
Top = 0
|
||||||
Caption = 'Menu'
|
|
||||||
CloseButton = False
|
CloseButton = False
|
||||||
DragHandleStyle = dhNone
|
DragHandleStyle = dhNone
|
||||||
FullSize = True
|
FullSize = True
|
||||||
Images = SmallImages
|
Images = SmallImages
|
||||||
MenuBar = True
|
|
||||||
ProcessShortCuts = True
|
ProcessShortCuts = True
|
||||||
ShrinkMode = tbsmWrap
|
ShrinkMode = tbsmWrap
|
||||||
TabOrder = 1
|
TabOrder = 1
|
||||||
object TBXSubmenuItem4: TTBXSubmenuItem
|
Caption = 'Menu'
|
||||||
|
Customizable = False
|
||||||
|
MenuBar = True
|
||||||
|
object TBXSubmenuItem4: TSpTBXSubmenuItem
|
||||||
Caption = '&Archivo'
|
Caption = '&Archivo'
|
||||||
object TBXItem8: TTBXItem
|
object TBXItem8: TSpTBXItem
|
||||||
Action = actNuevo
|
Action = actNuevo
|
||||||
end
|
end
|
||||||
object TBXSeparatorItem5: TTBXSeparatorItem
|
object TBXSeparatorItem5: TSpTBXSeparatorItem
|
||||||
end
|
end
|
||||||
object TBXItem30: TTBXItem
|
object TBXItem30: TSpTBXItem
|
||||||
Action = actGuardar
|
Action = actGuardar
|
||||||
end
|
end
|
||||||
object TBXItem10: TTBXItem
|
object TBXItem10: TSpTBXItem
|
||||||
Action = actModificar
|
Action = actModificar
|
||||||
end
|
end
|
||||||
object TBXSeparatorItem12: TTBXSeparatorItem
|
object TBXSeparatorItem12: TSpTBXSeparatorItem
|
||||||
end
|
end
|
||||||
object TBXItem11: TTBXItem
|
object TBXItem11: TSpTBXItem
|
||||||
Action = actEliminar
|
Action = actEliminar
|
||||||
end
|
end
|
||||||
object TBXSeparatorItem15: TTBXSeparatorItem
|
object TBXSeparatorItem15: TSpTBXSeparatorItem
|
||||||
end
|
end
|
||||||
object TBXItem21: TTBXItem
|
object TBXItem21: TSpTBXItem
|
||||||
Action = actConfPagina
|
Action = actConfPagina
|
||||||
end
|
end
|
||||||
object TBXItem22: TTBXItem
|
object TBXItem22: TSpTBXItem
|
||||||
Action = actPrevisualizar
|
Action = actPrevisualizar
|
||||||
end
|
end
|
||||||
object TBXItem9: TTBXItem
|
object TBXItem9: TSpTBXItem
|
||||||
Action = actImprimir
|
Action = actImprimir
|
||||||
end
|
end
|
||||||
object TBXSeparatorItem4: TTBXSeparatorItem
|
object TBXSeparatorItem4: TSpTBXSeparatorItem
|
||||||
end
|
end
|
||||||
object TBXItem1: TTBXItem
|
object TBXItem1: TSpTBXItem
|
||||||
Action = actCerrar
|
Action = actCerrar
|
||||||
end
|
end
|
||||||
end
|
end
|
||||||
object TBXSubmenuItem5: TTBXSubmenuItem
|
object TBXSubmenuItem5: TSpTBXSubmenuItem
|
||||||
Caption = '&Edici'#243'n'
|
Caption = '&Edici'#243'n'
|
||||||
object TBXItem16: TTBXItem
|
object TBXItem16: TSpTBXItem
|
||||||
Action = actDeshacer
|
Action = actDeshacer
|
||||||
end
|
end
|
||||||
object TBXSeparatorItem8: TTBXSeparatorItem
|
object TBXSeparatorItem8: TSpTBXSeparatorItem
|
||||||
end
|
end
|
||||||
object TBXItem15: TTBXItem
|
object TBXItem15: TSpTBXItem
|
||||||
Action = actCortar
|
Action = actCortar
|
||||||
end
|
end
|
||||||
object TBXItem14: TTBXItem
|
object TBXItem14: TSpTBXItem
|
||||||
Action = actCopiar
|
Action = actCopiar
|
||||||
end
|
end
|
||||||
object TBXItem13: TTBXItem
|
object TBXItem13: TSpTBXItem
|
||||||
Action = actPegar
|
Action = actPegar
|
||||||
end
|
end
|
||||||
object TBXSeparatorItem7: TTBXSeparatorItem
|
object TBXSeparatorItem7: TSpTBXSeparatorItem
|
||||||
end
|
end
|
||||||
object TBXItem12: TTBXItem
|
object TBXItem12: TSpTBXItem
|
||||||
Action = actLimpiar
|
Action = actLimpiar
|
||||||
end
|
end
|
||||||
object TBXSeparatorItem9: TTBXSeparatorItem
|
object TBXSeparatorItem9: TSpTBXSeparatorItem
|
||||||
end
|
end
|
||||||
object TBXItem17: TTBXItem
|
object TBXItem17: TSpTBXItem
|
||||||
Action = actSeleccionarTodo
|
Action = actSeleccionarTodo
|
||||||
end
|
end
|
||||||
end
|
end
|
||||||
object TBXSubmenuItem1: TTBXSubmenuItem
|
object TBXSubmenuItem1: TSpTBXSubmenuItem
|
||||||
Caption = '&Buscar'
|
Caption = '&Buscar'
|
||||||
object TBXItem32: TTBXItem
|
object TBXItem32: TSpTBXItem
|
||||||
Action = actAnterior
|
Action = actAnterior
|
||||||
end
|
end
|
||||||
object TBXItem31: TTBXItem
|
object TBXItem31: TSpTBXItem
|
||||||
Action = actSiguiente
|
Action = actSiguiente
|
||||||
end
|
end
|
||||||
object TBXSeparatorItem13: TTBXSeparatorItem
|
object TBXSeparatorItem13: TSpTBXSeparatorItem
|
||||||
end
|
end
|
||||||
object TBXItem20: TTBXItem
|
object TBXItem20: TSpTBXItem
|
||||||
Action = actBuscar
|
Action = actBuscar
|
||||||
end
|
end
|
||||||
end
|
end
|
||||||
object TBXSubmenuItem6: TTBXSubmenuItem
|
object TBXSubmenuItem6: TSpTBXSubmenuItem
|
||||||
Caption = '&Ver'
|
Caption = '&Ver'
|
||||||
object TBXItem18: TTBXItem
|
object TBXItem18: TSpTBXItem
|
||||||
Action = actRefrescar
|
Action = actRefrescar
|
||||||
end
|
end
|
||||||
end
|
end
|
||||||
object TBXSubmenuItem7: TTBXSubmenuItem
|
object TBXSubmenuItem7: TSpTBXSubmenuItem
|
||||||
Caption = 'Ay&uda'
|
Caption = 'Ay&uda'
|
||||||
object TBXItem19: TTBXItem
|
object TBXItem19: TSpTBXItem
|
||||||
Action = actAcercaDe
|
Action = actAcercaDe
|
||||||
end
|
end
|
||||||
end
|
end
|
||||||
|
|||||||
@ -5,11 +5,11 @@ interface
|
|||||||
uses
|
uses
|
||||||
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
|
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
|
||||||
uGUIBase, uCustomEditor, ToolWin, ComCtrls, JvExControls,
|
uGUIBase, uCustomEditor, ToolWin, ComCtrls, JvExControls,
|
||||||
JvComponent, JvNavigationPane, ActnList, TBX, TB2Item, ImgList,
|
JvComponent, JvNavigationPane, ActnList, ImgList,
|
||||||
PngImageList, StdActns, JvFormAutoSize, AppEvnts, uCustomView, uViewBase,
|
PngImageList, StdActns, JvFormAutoSize, AppEvnts, uCustomView, uViewBase,
|
||||||
JvAppStorage, JvAppRegistryStorage, JvFormPlacement, pngimage, ExtCtrls,
|
JvAppStorage, JvAppRegistryStorage, JvFormPlacement, pngimage, ExtCtrls,
|
||||||
JvComponentBase, TB2Dock, TB2Toolbar, dxLayoutLookAndFeels, TBXStatusBars,
|
JvComponentBase, TB2Dock, TB2Toolbar, dxLayoutLookAndFeels,
|
||||||
JvExComCtrls, JvStatusBar;
|
JvExComCtrls, JvStatusBar, SpTBXItem, TB2Item;
|
||||||
|
|
||||||
type
|
type
|
||||||
IEditorBase = interface(ICustomEditor)
|
IEditorBase = interface(ICustomEditor)
|
||||||
@ -52,61 +52,61 @@ type
|
|||||||
JvNavPanelHeader: TJvNavPanelHeader;
|
JvNavPanelHeader: TJvNavPanelHeader;
|
||||||
LargeImages: TPngImageList;
|
LargeImages: TPngImageList;
|
||||||
SmallImages: TPngImageList;
|
SmallImages: TPngImageList;
|
||||||
TBXDock: TTBXDock;
|
TBXDock: TSpTBXDock;
|
||||||
TBXItem1: TTBXItem;
|
TBXItem1: TSpTBXItem;
|
||||||
TBXItem10: TTBXItem;
|
TBXItem10: TSpTBXItem;
|
||||||
TBXItem11: TTBXItem;
|
TBXItem11: TSpTBXItem;
|
||||||
TBXItem12: TTBXItem;
|
TBXItem12: TSpTBXItem;
|
||||||
TBXItem13: TTBXItem;
|
TBXItem13: TSpTBXItem;
|
||||||
TBXItem14: TTBXItem;
|
TBXItem14: TSpTBXItem;
|
||||||
TBXItem15: TTBXItem;
|
TBXItem15: TSpTBXItem;
|
||||||
TBXItem16: TTBXItem;
|
TBXItem16: TSpTBXItem;
|
||||||
TBXItem17: TTBXItem;
|
TBXItem17: TSpTBXItem;
|
||||||
TBXItem18: TTBXItem;
|
TBXItem18: TSpTBXItem;
|
||||||
TBXItem19: TTBXItem;
|
TBXItem19: TSpTBXItem;
|
||||||
TBXItem2: TTBXItem;
|
TBXItem2: TSpTBXItem;
|
||||||
TBXItem20: TTBXItem;
|
TBXItem20: TSpTBXItem;
|
||||||
TBXItem21: TTBXItem;
|
TBXItem21: TSpTBXItem;
|
||||||
TBXItem22: TTBXItem;
|
TBXItem22: TSpTBXItem;
|
||||||
TBXItem23: TTBXItem;
|
TBXItem23: TSpTBXItem;
|
||||||
TBXItem24: TTBXItem;
|
TBXItem24: TSpTBXItem;
|
||||||
TBXItem25: TTBXItem;
|
TBXItem25: TSpTBXItem;
|
||||||
TBXItem26: TTBXItem;
|
TBXItem26: TSpTBXItem;
|
||||||
TBXItem27: TTBXItem;
|
TBXItem27: TSpTBXItem;
|
||||||
TBXItem28: TTBXItem;
|
TBXItem28: TSpTBXItem;
|
||||||
TBXItem29: TTBXItem;
|
TBXItem29: TSpTBXItem;
|
||||||
TBXItem3: TTBXItem;
|
TBXItem3: TSpTBXItem;
|
||||||
TBXItem30: TTBXItem;
|
TBXItem30: TSpTBXItem;
|
||||||
TBXItem31: TTBXItem;
|
TBXItem31: TSpTBXItem;
|
||||||
TBXItem32: TTBXItem;
|
TBXItem32: TSpTBXItem;
|
||||||
TBXItem4: TTBXItem;
|
TBXItem4: TSpTBXItem;
|
||||||
TBXItem5: TTBXItem;
|
TBXItem5: TSpTBXItem;
|
||||||
TBXItem6: TTBXItem;
|
TBXItem6: TSpTBXItem;
|
||||||
TBXItem8: TTBXItem;
|
TBXItem8: TSpTBXItem;
|
||||||
TBXItem9: TTBXItem;
|
TBXItem9: TSpTBXItem;
|
||||||
tbxMain: TTBXToolbar;
|
tbxMain: TSpTBXToolbar;
|
||||||
tbxMenu: TTBXToolbar;
|
tbxMenu: TSpTBXToolbar;
|
||||||
TBXSeparatorItem1: TTBXSeparatorItem;
|
TBXSeparatorItem1: TSpTBXSeparatorItem;
|
||||||
TBXSeparatorItem10: TTBXSeparatorItem;
|
TBXSeparatorItem10: TSpTBXSeparatorItem;
|
||||||
TBXSeparatorItem11: TTBXSeparatorItem;
|
TBXSeparatorItem11: TSpTBXSeparatorItem;
|
||||||
TBXSeparatorItem12: TTBXSeparatorItem;
|
TBXSeparatorItem12: TSpTBXSeparatorItem;
|
||||||
TBXSeparatorItem13: TTBXSeparatorItem;
|
TBXSeparatorItem13: TSpTBXSeparatorItem;
|
||||||
TBXSeparatorItem2: TTBXSeparatorItem;
|
TBXSeparatorItem2: TSpTBXSeparatorItem;
|
||||||
TBXSeparatorItem3: TTBXSeparatorItem;
|
TBXSeparatorItem3: TSpTBXSeparatorItem;
|
||||||
TBXSeparatorItem4: TTBXSeparatorItem;
|
TBXSeparatorItem4: TSpTBXSeparatorItem;
|
||||||
TBXSeparatorItem5: TTBXSeparatorItem;
|
TBXSeparatorItem5: TSpTBXSeparatorItem;
|
||||||
TBXSeparatorItem7: TTBXSeparatorItem;
|
TBXSeparatorItem7: TSpTBXSeparatorItem;
|
||||||
TBXSeparatorItem8: TTBXSeparatorItem;
|
TBXSeparatorItem8: TSpTBXSeparatorItem;
|
||||||
TBXSeparatorItem9: TTBXSeparatorItem;
|
TBXSeparatorItem9: TSpTBXSeparatorItem;
|
||||||
TBXSubmenuItem1: TTBXSubmenuItem;
|
TBXSubmenuItem1: TSpTBXSubmenuItem;
|
||||||
TBXSubmenuItem4: TTBXSubmenuItem;
|
TBXSubmenuItem4: TSpTBXSubmenuItem;
|
||||||
TBXSubmenuItem5: TTBXSubmenuItem;
|
TBXSubmenuItem5: TSpTBXSubmenuItem;
|
||||||
TBXSubmenuItem6: TTBXSubmenuItem;
|
TBXSubmenuItem6: TSpTBXSubmenuItem;
|
||||||
TBXSubmenuItem7: TTBXSubmenuItem;
|
TBXSubmenuItem7: TSpTBXSubmenuItem;
|
||||||
JvFormStorage: TJvFormStorage;
|
JvFormStorage: TJvFormStorage;
|
||||||
JvAppRegistryStorage: TJvAppRegistryStorage;
|
JvAppRegistryStorage: TJvAppRegistryStorage;
|
||||||
Image1: TImage;
|
Image1: TImage;
|
||||||
TBXSeparatorItem15: TTBXSeparatorItem;
|
TBXSeparatorItem15: TSpTBXSeparatorItem;
|
||||||
StatusBarImages: TPngImageList;
|
StatusBarImages: TPngImageList;
|
||||||
StatusBar: TJvStatusBar;
|
StatusBar: TJvStatusBar;
|
||||||
procedure actCerrarExecute(Sender: TObject);
|
procedure actCerrarExecute(Sender: TObject);
|
||||||
|
|||||||
@ -22,7 +22,6 @@ object frEditorColores: TfrEditorColores
|
|||||||
Align = alClient
|
Align = alClient
|
||||||
TabOrder = 0
|
TabOrder = 0
|
||||||
TabStop = False
|
TabStop = False
|
||||||
ExplicitHeight = 128
|
|
||||||
object eColor1: TcxDBTextEdit
|
object eColor1: TcxDBTextEdit
|
||||||
Left = 22
|
Left = 22
|
||||||
Top = 105
|
Top = 105
|
||||||
@ -345,7 +344,10 @@ object frEditorColores: TfrEditorColores
|
|||||||
Width = 544
|
Width = 544
|
||||||
end
|
end
|
||||||
object dxLayoutControl1Group_Root: TdxLayoutGroup
|
object dxLayoutControl1Group_Root: TdxLayoutGroup
|
||||||
ShowCaption = False
|
AlignHorz = ahLeft
|
||||||
|
AlignVert = avTop
|
||||||
|
CaptionOptions.Visible = False
|
||||||
|
ButtonOptions.Buttons = <>
|
||||||
Hidden = True
|
Hidden = True
|
||||||
ShowBorder = False
|
ShowBorder = False
|
||||||
object dxLayoutControl1Item15: TdxLayoutItem
|
object dxLayoutControl1Item15: TdxLayoutItem
|
||||||
@ -354,111 +356,111 @@ object frEditorColores: TfrEditorColores
|
|||||||
ControlOptions.ShowBorder = False
|
ControlOptions.ShowBorder = False
|
||||||
end
|
end
|
||||||
object dxLayoutControl1Group1: TdxLayoutGroup
|
object dxLayoutControl1Group1: TdxLayoutGroup
|
||||||
Caption = 'Colores'
|
CaptionOptions.Text = 'Colores'
|
||||||
|
ButtonOptions.Buttons = <>
|
||||||
LayoutDirection = ldHorizontal
|
LayoutDirection = ldHorizontal
|
||||||
object dxLayoutControl1Item1: TdxLayoutItem
|
object dxLayoutControl1Item1: TdxLayoutItem
|
||||||
Caption = 'Color 1'
|
|
||||||
CaptionOptions.AlignHorz = taCenter
|
CaptionOptions.AlignHorz = taCenter
|
||||||
|
CaptionOptions.Text = 'Color 1'
|
||||||
CaptionOptions.Layout = clTop
|
CaptionOptions.Layout = clTop
|
||||||
Control = eColor1
|
Control = eColor1
|
||||||
ControlOptions.ShowBorder = False
|
ControlOptions.ShowBorder = False
|
||||||
end
|
end
|
||||||
object dxLayoutControl1Item2: TdxLayoutItem
|
object dxLayoutControl1Item2: TdxLayoutItem
|
||||||
Caption = 'Color 2'
|
|
||||||
CaptionOptions.AlignHorz = taCenter
|
CaptionOptions.AlignHorz = taCenter
|
||||||
|
CaptionOptions.Text = 'Color 2'
|
||||||
CaptionOptions.Layout = clTop
|
CaptionOptions.Layout = clTop
|
||||||
Control = eColor2
|
Control = eColor2
|
||||||
ControlOptions.ShowBorder = False
|
ControlOptions.ShowBorder = False
|
||||||
end
|
end
|
||||||
object dxLayoutControl1Item3: TdxLayoutItem
|
object dxLayoutControl1Item3: TdxLayoutItem
|
||||||
Caption = 'Color 3'
|
|
||||||
CaptionOptions.AlignHorz = taCenter
|
CaptionOptions.AlignHorz = taCenter
|
||||||
|
CaptionOptions.Text = 'Color 3'
|
||||||
CaptionOptions.Layout = clTop
|
CaptionOptions.Layout = clTop
|
||||||
Control = eColor3
|
Control = eColor3
|
||||||
ControlOptions.ShowBorder = False
|
ControlOptions.ShowBorder = False
|
||||||
end
|
end
|
||||||
object dxLayoutControl1Item4: TdxLayoutItem
|
object dxLayoutControl1Item4: TdxLayoutItem
|
||||||
Caption = 'Color 4'
|
|
||||||
CaptionOptions.AlignHorz = taCenter
|
CaptionOptions.AlignHorz = taCenter
|
||||||
|
CaptionOptions.Text = 'Color 4'
|
||||||
CaptionOptions.Layout = clTop
|
CaptionOptions.Layout = clTop
|
||||||
Control = eColor4
|
Control = eColor4
|
||||||
ControlOptions.ShowBorder = False
|
ControlOptions.ShowBorder = False
|
||||||
end
|
end
|
||||||
object dxLayoutControl1Item5: TdxLayoutItem
|
object dxLayoutControl1Item5: TdxLayoutItem
|
||||||
Caption = 'Color 5'
|
|
||||||
CaptionOptions.AlignHorz = taCenter
|
CaptionOptions.AlignHorz = taCenter
|
||||||
|
CaptionOptions.Text = 'Color 5'
|
||||||
CaptionOptions.Layout = clTop
|
CaptionOptions.Layout = clTop
|
||||||
Control = eColor5
|
Control = eColor5
|
||||||
ControlOptions.ShowBorder = False
|
ControlOptions.ShowBorder = False
|
||||||
end
|
end
|
||||||
object dxLayoutControl1Item6: TdxLayoutItem
|
object dxLayoutControl1Item6: TdxLayoutItem
|
||||||
Caption = 'Color 6'
|
|
||||||
CaptionOptions.AlignHorz = taCenter
|
CaptionOptions.AlignHorz = taCenter
|
||||||
|
CaptionOptions.Text = 'Color 6'
|
||||||
CaptionOptions.Layout = clTop
|
CaptionOptions.Layout = clTop
|
||||||
Control = eColor6
|
Control = eColor6
|
||||||
ControlOptions.ShowBorder = False
|
ControlOptions.ShowBorder = False
|
||||||
end
|
end
|
||||||
object dxLayoutControl1Item7: TdxLayoutItem
|
object dxLayoutControl1Item7: TdxLayoutItem
|
||||||
Caption = 'Color 7'
|
|
||||||
CaptionOptions.AlignHorz = taCenter
|
CaptionOptions.AlignHorz = taCenter
|
||||||
|
CaptionOptions.Text = 'Color 7'
|
||||||
CaptionOptions.Layout = clTop
|
CaptionOptions.Layout = clTop
|
||||||
Control = eColor7
|
Control = eColor7
|
||||||
ControlOptions.ShowBorder = False
|
ControlOptions.ShowBorder = False
|
||||||
end
|
end
|
||||||
object dxLayoutControl1Item8: TdxLayoutItem
|
object dxLayoutControl1Item8: TdxLayoutItem
|
||||||
Caption = 'Color 8'
|
|
||||||
CaptionOptions.AlignHorz = taCenter
|
CaptionOptions.AlignHorz = taCenter
|
||||||
|
CaptionOptions.Text = 'Color 8'
|
||||||
CaptionOptions.Layout = clTop
|
CaptionOptions.Layout = clTop
|
||||||
Control = eColor8
|
Control = eColor8
|
||||||
ControlOptions.ShowBorder = False
|
ControlOptions.ShowBorder = False
|
||||||
end
|
end
|
||||||
object dxLayoutControl1Item9: TdxLayoutItem
|
object dxLayoutControl1Item9: TdxLayoutItem
|
||||||
Caption = 'Color 9'
|
|
||||||
CaptionOptions.AlignHorz = taCenter
|
CaptionOptions.AlignHorz = taCenter
|
||||||
|
CaptionOptions.Text = 'Color 9'
|
||||||
CaptionOptions.Layout = clTop
|
CaptionOptions.Layout = clTop
|
||||||
Control = eColor9
|
Control = eColor9
|
||||||
ControlOptions.ShowBorder = False
|
ControlOptions.ShowBorder = False
|
||||||
end
|
end
|
||||||
object dxLayoutControl1Item10: TdxLayoutItem
|
object dxLayoutControl1Item10: TdxLayoutItem
|
||||||
Caption = 'Color 10'
|
|
||||||
CaptionOptions.AlignHorz = taCenter
|
CaptionOptions.AlignHorz = taCenter
|
||||||
|
CaptionOptions.Text = 'Color 10'
|
||||||
CaptionOptions.Layout = clTop
|
CaptionOptions.Layout = clTop
|
||||||
Control = eColor10
|
Control = eColor10
|
||||||
ControlOptions.ShowBorder = False
|
ControlOptions.ShowBorder = False
|
||||||
end
|
end
|
||||||
object dxLayoutControl1Item11: TdxLayoutItem
|
object dxLayoutControl1Item11: TdxLayoutItem
|
||||||
Caption = 'Color 11'
|
|
||||||
CaptionOptions.AlignHorz = taCenter
|
CaptionOptions.AlignHorz = taCenter
|
||||||
|
CaptionOptions.Text = 'Color 11'
|
||||||
CaptionOptions.Layout = clTop
|
CaptionOptions.Layout = clTop
|
||||||
Control = eColor11
|
Control = eColor11
|
||||||
ControlOptions.ShowBorder = False
|
ControlOptions.ShowBorder = False
|
||||||
end
|
end
|
||||||
object dxLayoutControl1Item12: TdxLayoutItem
|
object dxLayoutControl1Item12: TdxLayoutItem
|
||||||
Caption = 'Color 12'
|
|
||||||
CaptionOptions.AlignHorz = taCenter
|
CaptionOptions.AlignHorz = taCenter
|
||||||
|
CaptionOptions.Text = 'Color 12'
|
||||||
CaptionOptions.Layout = clTop
|
CaptionOptions.Layout = clTop
|
||||||
Control = eColor12
|
Control = eColor12
|
||||||
ControlOptions.ShowBorder = False
|
ControlOptions.ShowBorder = False
|
||||||
end
|
end
|
||||||
end
|
end
|
||||||
object dxLayoutControl1Group2: TdxLayoutGroup
|
object dxLayoutControl1Group2: TdxLayoutGroup
|
||||||
ShowCaption = False
|
CaptionOptions.Visible = False
|
||||||
|
ButtonOptions.Buttons = <>
|
||||||
Hidden = True
|
Hidden = True
|
||||||
LayoutDirection = ldHorizontal
|
LayoutDirection = ldHorizontal
|
||||||
ShowBorder = False
|
ShowBorder = False
|
||||||
object dxLayoutControl1Item13: TdxLayoutItem
|
object dxLayoutControl1Item13: TdxLayoutItem
|
||||||
AutoAligns = [aaVertical]
|
|
||||||
AlignHorz = ahRight
|
AlignHorz = ahRight
|
||||||
Caption = 'Button1'
|
CaptionOptions.Text = 'Button1'
|
||||||
ShowCaption = False
|
CaptionOptions.Visible = False
|
||||||
Control = bAceptar
|
Control = bAceptar
|
||||||
ControlOptions.ShowBorder = False
|
ControlOptions.ShowBorder = False
|
||||||
end
|
end
|
||||||
object dxLayoutControl1Item14: TdxLayoutItem
|
object dxLayoutControl1Item14: TdxLayoutItem
|
||||||
AutoAligns = [aaVertical]
|
|
||||||
AlignHorz = ahRight
|
AlignHorz = ahRight
|
||||||
Caption = 'Button2'
|
CaptionOptions.Text = 'Button2'
|
||||||
ShowCaption = False
|
CaptionOptions.Visible = False
|
||||||
Control = bCancelar
|
Control = bCancelar
|
||||||
ControlOptions.ShowBorder = False
|
ControlOptions.ShowBorder = False
|
||||||
end
|
end
|
||||||
|
|||||||
@ -5,7 +5,8 @@ interface
|
|||||||
uses
|
uses
|
||||||
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
|
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
|
||||||
Dialogs, dxLayoutControl, cxControls, DB, uDAInterfaces, uDADataTable,
|
Dialogs, dxLayoutControl, cxControls, DB, uDAInterfaces, uDADataTable,
|
||||||
cxContainer, cxEdit, cxTextEdit, cxDBEdit, StdCtrls, cxMemo;
|
cxContainer, cxEdit, cxTextEdit, cxDBEdit, StdCtrls, cxMemo, cxGraphics,
|
||||||
|
cxLookAndFeels, cxLookAndFeelPainters, dxLayoutcxEditAdapters;
|
||||||
|
|
||||||
type
|
type
|
||||||
TfrEditorColores = class(TForm)
|
TfrEditorColores = class(TForm)
|
||||||
|
|||||||
@ -16,13 +16,13 @@ inherited fEditorDBBase: TfEditorDBBase
|
|||||||
ExplicitLeft = 625
|
ExplicitLeft = 625
|
||||||
end
|
end
|
||||||
end
|
end
|
||||||
inherited TBXDock: TTBXDock
|
inherited TBXDock: TSpTBXDock
|
||||||
Width = 648
|
Width = 648
|
||||||
ExplicitWidth = 648
|
ExplicitWidth = 648
|
||||||
inherited tbxMain: TTBXToolbar
|
inherited tbxMain: TSpTBXToolbar
|
||||||
ExplicitWidth = 648
|
ExplicitWidth = 648
|
||||||
end
|
end
|
||||||
inherited tbxMenu: TTBXToolbar
|
inherited tbxMenu: TSpTBXToolbar
|
||||||
ExplicitWidth = 648
|
ExplicitWidth = 648
|
||||||
end
|
end
|
||||||
end
|
end
|
||||||
|
|||||||
@ -4,12 +4,12 @@ interface
|
|||||||
|
|
||||||
uses
|
uses
|
||||||
Windows, SysUtils, Variants, Classes, Graphics, Controls, Forms,
|
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,
|
TB2Item, TB2Dock, TB2Toolbar, ComCtrls, JvExControls, JvComponent,
|
||||||
JvNavigationPane, DB, uDADataTable, uEditorBase, JvFormAutoSize,
|
JvNavigationPane, DB, uDADataTable, uEditorBase, JvFormAutoSize,
|
||||||
uDAScriptingProvider, uDACDSDataTable, AppEvnts, uCustomView, uViewBase,
|
uDAScriptingProvider, uDACDSDataTable, AppEvnts, uCustomView, uViewBase,
|
||||||
JvAppStorage, JvAppRegistryStorage, JvFormPlacement,
|
JvAppStorage, JvAppRegistryStorage, JvFormPlacement,
|
||||||
pngimage, ExtCtrls, dxLayoutLookAndFeels, JvComponentBase, TBXStatusBars,
|
pngimage, ExtCtrls, dxLayoutLookAndFeels, JvComponentBase,
|
||||||
JvExComCtrls, JvStatusBar, uDAInterfaces;
|
JvExComCtrls, JvStatusBar, uDAInterfaces;
|
||||||
|
|
||||||
type
|
type
|
||||||
|
|||||||
@ -47,21 +47,21 @@ inherited fEditorDBItem: TfEditorDBItem
|
|||||||
AnchorY = 14
|
AnchorY = 14
|
||||||
end
|
end
|
||||||
end
|
end
|
||||||
inherited TBXDock: TTBXDock
|
inherited TBXDock: TSpTBXDock
|
||||||
Width = 901
|
Width = 901
|
||||||
ExplicitWidth = 901
|
ExplicitWidth = 901
|
||||||
inherited tbxMain: TTBXToolbar
|
inherited tbxMain: TSpTBXToolbar
|
||||||
ExplicitWidth = 605
|
ExplicitWidth = 605
|
||||||
inherited TBXItem26: TTBXItem
|
inherited TBXItem26: TSpTBXItem
|
||||||
Visible = False
|
Visible = False
|
||||||
end
|
end
|
||||||
inherited TBXItem25: TTBXItem
|
inherited TBXItem25: TSpTBXItem
|
||||||
Visible = False
|
Visible = False
|
||||||
end
|
end
|
||||||
end
|
end
|
||||||
inherited tbxMenu: TTBXToolbar
|
inherited tbxMenu: TSpTBXToolbar
|
||||||
ExplicitWidth = 901
|
ExplicitWidth = 901
|
||||||
inherited TBXSubmenuItem1: TTBXSubmenuItem
|
inherited TBXSubmenuItem1: TSpTBXSubmenuItem
|
||||||
Visible = False
|
Visible = False
|
||||||
end
|
end
|
||||||
end
|
end
|
||||||
@ -77,10 +77,6 @@ inherited fEditorDBItem: TfEditorDBItem
|
|||||||
TabOrder = 2
|
TabOrder = 2
|
||||||
object pagGeneral: TTabSheet
|
object pagGeneral: TTabSheet
|
||||||
Caption = 'General'
|
Caption = 'General'
|
||||||
ExplicitLeft = 0
|
|
||||||
ExplicitTop = 0
|
|
||||||
ExplicitWidth = 0
|
|
||||||
ExplicitHeight = 0
|
|
||||||
end
|
end
|
||||||
end
|
end
|
||||||
inherited StatusBar: TJvStatusBar
|
inherited StatusBar: TJvStatusBar
|
||||||
|
|||||||
@ -4,14 +4,14 @@ interface
|
|||||||
|
|
||||||
uses
|
uses
|
||||||
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
|
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,
|
TB2Item, TB2Dock, TB2Toolbar, ComCtrls, JvExControls, JvComponent,
|
||||||
JvNavigationPane, DB, uDADataTable, uEditorDBBase, JvFormAutoSize,
|
JvNavigationPane, DB, uDADataTable, uEditorDBBase, JvFormAutoSize,
|
||||||
StdCtrls, uDAScriptingProvider, uDACDSDataTable, AppEvnts, uCustomView,
|
StdCtrls, uDAScriptingProvider, uDACDSDataTable, AppEvnts, uCustomView,
|
||||||
uViewBase, JvAppStorage, JvAppRegistryStorage,
|
uViewBase, JvAppStorage, JvAppRegistryStorage,
|
||||||
JvFormPlacement, pngimage, ExtCtrls, JvComponentBase, dxLayoutLookAndFeels,
|
JvFormPlacement, pngimage, ExtCtrls, JvComponentBase, dxLayoutLookAndFeels,
|
||||||
JvExComCtrls, JvStatusBar, uDAInterfaces, cxControls, cxContainer, cxEdit,
|
JvExComCtrls, JvStatusBar, uDAInterfaces, cxControls, cxContainer, cxEdit,
|
||||||
cxLabel;
|
cxLabel, cxGraphics, cxLookAndFeels, cxLookAndFeelPainters;
|
||||||
|
|
||||||
type
|
type
|
||||||
IEditorDBItem = interface(IEditorDBBase)
|
IEditorDBItem = interface(IEditorDBBase)
|
||||||
|
|||||||
@ -19,67 +19,67 @@ inherited fEditorGridBase: TfEditorGridBase
|
|||||||
ExplicitLeft = 518
|
ExplicitLeft = 518
|
||||||
end
|
end
|
||||||
end
|
end
|
||||||
inherited TBXDock: TTBXDock
|
inherited TBXDock: TSpTBXDock
|
||||||
Top = 27
|
Top = 27
|
||||||
Width = 894
|
Width = 894
|
||||||
Height = 75
|
Height = 75
|
||||||
ExplicitTop = 27
|
ExplicitTop = 27
|
||||||
ExplicitWidth = 894
|
ExplicitWidth = 894
|
||||||
ExplicitHeight = 75
|
ExplicitHeight = 75
|
||||||
inherited tbxMain: TTBXToolbar
|
inherited tbxMain: TSpTBXToolbar
|
||||||
DockPos = 0
|
DockPos = 0
|
||||||
DragHandleStyle = dhDouble
|
DragHandleStyle = dhDouble
|
||||||
TabOrder = 1
|
TabOrder = 1
|
||||||
ExplicitWidth = 600
|
ExplicitWidth = 600
|
||||||
inherited TBXItem29: TTBXItem
|
inherited TBXItem29: TSpTBXItem
|
||||||
Visible = False
|
Visible = False
|
||||||
end
|
end
|
||||||
inherited TBXItem27: TTBXItem
|
inherited TBXItem27: TSpTBXItem
|
||||||
Visible = False
|
Visible = False
|
||||||
end
|
end
|
||||||
object TBXSeparatorItem6: TTBXSeparatorItem [6]
|
object TBXSeparatorItem6: TSpTBXSeparatorItem [6]
|
||||||
end
|
end
|
||||||
object TBXItem7: TTBXItem [7]
|
object TBXItem7: TSpTBXItem [7]
|
||||||
Action = actDuplicar
|
Action = actDuplicar
|
||||||
DisplayMode = nbdmImageAndText
|
DisplayMode = nbdmImageAndText
|
||||||
end
|
end
|
||||||
inherited TBXItem24: TTBXItem [10]
|
inherited TBXItem24: TSpTBXItem [10]
|
||||||
end
|
end
|
||||||
inherited TBXItem3: TTBXItem [11]
|
inherited TBXItem3: TSpTBXItem [11]
|
||||||
end
|
end
|
||||||
inherited TBXSeparatorItem10: TTBXSeparatorItem [12]
|
inherited TBXSeparatorItem10: TSpTBXSeparatorItem [12]
|
||||||
end
|
end
|
||||||
object TBXItem384: TTBXItem [13]
|
object TBXItem384: TSpTBXItem [13]
|
||||||
Action = actExportarExcel
|
Action = actExportarExcel
|
||||||
DisplayMode = nbdmTextOnly
|
DisplayMode = nbdmTextOnly
|
||||||
end
|
end
|
||||||
inherited TBXItem26: TTBXItem [14]
|
inherited TBXItem26: TSpTBXItem [14]
|
||||||
Visible = False
|
Visible = False
|
||||||
end
|
end
|
||||||
inherited TBXSeparatorItem2: TTBXSeparatorItem [15]
|
inherited TBXSeparatorItem2: TSpTBXSeparatorItem [15]
|
||||||
Visible = True
|
Visible = True
|
||||||
end
|
end
|
||||||
inherited TBXItem25: TTBXItem
|
inherited TBXItem25: TSpTBXItem
|
||||||
Visible = False
|
Visible = False
|
||||||
end
|
end
|
||||||
inherited TBXSeparatorItem11: TTBXSeparatorItem
|
inherited TBXSeparatorItem11: TSpTBXSeparatorItem
|
||||||
Visible = False
|
Visible = False
|
||||||
end
|
end
|
||||||
object TBXItem36: TTBXItem [19]
|
object TBXItem36: TSpTBXItem [19]
|
||||||
Action = actAnchoAuto
|
Action = actAnchoAuto
|
||||||
DisplayMode = nbdmImageAndText
|
DisplayMode = nbdmImageAndText
|
||||||
end
|
end
|
||||||
object TBXItem939: TTBXItem [20]
|
object TBXItem939: TSpTBXItem [20]
|
||||||
Action = actContraer
|
Action = actContraer
|
||||||
end
|
end
|
||||||
object TBXItem938: TTBXItem [21]
|
object TBXItem938: TSpTBXItem [21]
|
||||||
Action = actExpandir
|
Action = actExpandir
|
||||||
end
|
end
|
||||||
inherited TBXItem28: TTBXItem
|
inherited TBXItem28: TSpTBXItem
|
||||||
Visible = False
|
Visible = False
|
||||||
end
|
end
|
||||||
end
|
end
|
||||||
object tbxFiltro: TTBXToolbar [1]
|
object tbxFiltro: TSpTBXToolbar [1]
|
||||||
Left = 0
|
Left = 0
|
||||||
Top = 49
|
Top = 49
|
||||||
Align = alRight
|
Align = alRight
|
||||||
@ -95,87 +95,93 @@ inherited fEditorGridBase: TfEditorGridBase
|
|||||||
ShowHint = True
|
ShowHint = True
|
||||||
ShrinkMode = tbsmNone
|
ShrinkMode = tbsmNone
|
||||||
TabOrder = 0
|
TabOrder = 0
|
||||||
object lblAno: TTBXLabelItem
|
object lblAno: TSpTBXLabelItem
|
||||||
Caption = 'A'#241'o'
|
Caption = 'A'#241'o'
|
||||||
Visible = False
|
Visible = False
|
||||||
end
|
end
|
||||||
object cbxListaAnos: TTBXComboBoxItem
|
object sepAno: TSpTBXSeparatorItem
|
||||||
Visible = False
|
Visible = False
|
||||||
end
|
end
|
||||||
object sepAno: TTBXSeparatorItem
|
object TBXLabelItem1: TSpTBXLabelItem
|
||||||
Visible = False
|
|
||||||
end
|
|
||||||
object TBXLabelItem1: TTBXLabelItem
|
|
||||||
Caption = 'Filtrar:'
|
Caption = 'Filtrar:'
|
||||||
end
|
end
|
||||||
object tbxEditFiltro: TTBXEditItem
|
object tbxEditFiltro: TSpTBXEditItem
|
||||||
EditWidth = 200
|
|
||||||
ImageIndex = 10
|
ImageIndex = 10
|
||||||
EditorFontSettings.Italic = tsTrue
|
|
||||||
ExtendedAccept = True
|
|
||||||
Images = SmallImages
|
Images = SmallImages
|
||||||
|
ExtendedAccept = True
|
||||||
ShowImage = True
|
ShowImage = True
|
||||||
OnChange = tbxEditFiltroChange
|
OnChange = tbxEditFiltroChange
|
||||||
end
|
end
|
||||||
object TBXItem34: TTBXItem
|
object TBXItem34: TSpTBXItem
|
||||||
Action = actQuitarFiltro
|
Action = actQuitarFiltro
|
||||||
end
|
end
|
||||||
object TBXItem37: TTBXItem
|
object TBXItem37: TSpTBXItem
|
||||||
Action = actFiltrar
|
Action = actFiltrar
|
||||||
end
|
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
|
end
|
||||||
inherited tbxMenu: TTBXToolbar
|
inherited tbxMenu: TSpTBXToolbar
|
||||||
TabOrder = 2
|
TabOrder = 2
|
||||||
Visible = False
|
Visible = False
|
||||||
ExplicitWidth = 894
|
ExplicitWidth = 894
|
||||||
inherited TBXSubmenuItem4: TTBXSubmenuItem
|
inherited TBXSubmenuItem4: TSpTBXSubmenuItem
|
||||||
inherited TBXItem30: TTBXItem
|
inherited TBXItem30: TSpTBXItem
|
||||||
Visible = False
|
Visible = False
|
||||||
end
|
end
|
||||||
inherited TBXSeparatorItem15: TTBXSeparatorItem
|
inherited TBXSeparatorItem15: TSpTBXSeparatorItem
|
||||||
Visible = False
|
Visible = False
|
||||||
end
|
end
|
||||||
object TBXItem33: TTBXItem [7]
|
object TBXItem33: TSpTBXItem [7]
|
||||||
Action = actDuplicar
|
Action = actDuplicar
|
||||||
end
|
end
|
||||||
object TBXSeparatorItem14: TTBXSeparatorItem [8]
|
object TBXSeparatorItem14: TSpTBXSeparatorItem [8]
|
||||||
end
|
end
|
||||||
inherited TBXItem21: TTBXItem
|
inherited TBXItem21: TSpTBXItem
|
||||||
Visible = False
|
Visible = False
|
||||||
end
|
end
|
||||||
object TBXSeparatorItem172: TTBXSeparatorItem [12]
|
object TBXSeparatorItem172: TSpTBXSeparatorItem [12]
|
||||||
end
|
end
|
||||||
object TBXItem395: TTBXItem [13]
|
object TBXItem395: TSpTBXItem [13]
|
||||||
Action = actExportarExcel
|
Action = actExportarExcel
|
||||||
end
|
end
|
||||||
end
|
end
|
||||||
inherited TBXSubmenuItem5: TTBXSubmenuItem
|
inherited TBXSubmenuItem5: TSpTBXSubmenuItem
|
||||||
Visible = False
|
Visible = False
|
||||||
end
|
end
|
||||||
inherited TBXSubmenuItem1: TTBXSubmenuItem
|
inherited TBXSubmenuItem1: TSpTBXSubmenuItem
|
||||||
inherited TBXItem32: TTBXItem
|
inherited TBXItem32: TSpTBXItem
|
||||||
Visible = False
|
Visible = False
|
||||||
end
|
end
|
||||||
inherited TBXItem31: TTBXItem
|
inherited TBXItem31: TSpTBXItem
|
||||||
Visible = False
|
Visible = False
|
||||||
end
|
end
|
||||||
inherited TBXSeparatorItem13: TTBXSeparatorItem
|
inherited TBXSeparatorItem13: TSpTBXSeparatorItem
|
||||||
Visible = False
|
Visible = False
|
||||||
end
|
end
|
||||||
end
|
end
|
||||||
inherited TBXSubmenuItem6: TTBXSubmenuItem
|
inherited TBXSubmenuItem6: TSpTBXSubmenuItem
|
||||||
object TBXItem35: TTBXItem [0]
|
object TBXItem35: TSpTBXItem [0]
|
||||||
Action = actAnchoAuto
|
Action = actAnchoAuto
|
||||||
end
|
end
|
||||||
object TBXSeparatorItem16: TTBXSeparatorItem [1]
|
object TBXSeparatorItem16: TSpTBXSeparatorItem [1]
|
||||||
end
|
end
|
||||||
end
|
end
|
||||||
end
|
end
|
||||||
object TBXTMain2: TTBXToolbar
|
object TBXTMain2: TSpTBXToolbar
|
||||||
Left = 337
|
Left = 355
|
||||||
Top = 49
|
Top = 49
|
||||||
Align = alRight
|
Align = alRight
|
||||||
Caption = 'tbxLista'
|
|
||||||
ChevronHint = 'M'#225's botones|'
|
ChevronHint = 'M'#225's botones|'
|
||||||
DockMode = dmCannotFloatOrChangeDocks
|
DockMode = dmCannotFloatOrChangeDocks
|
||||||
DockPos = 318
|
DockPos = 318
|
||||||
@ -186,6 +192,7 @@ inherited fEditorGridBase: TfEditorGridBase
|
|||||||
ShowHint = True
|
ShowHint = True
|
||||||
TabOrder = 3
|
TabOrder = 3
|
||||||
Visible = False
|
Visible = False
|
||||||
|
Caption = 'tbxLista'
|
||||||
end
|
end
|
||||||
end
|
end
|
||||||
inherited StatusBar: TJvStatusBar
|
inherited StatusBar: TJvStatusBar
|
||||||
|
|||||||
@ -13,15 +13,15 @@ interface
|
|||||||
uses
|
uses
|
||||||
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
|
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
|
||||||
Dialogs, uEditorBase, ToolWin, ComCtrls, JvExControls, JvComponent,
|
Dialogs, uEditorBase, ToolWin, ComCtrls, JvExControls, JvComponent,
|
||||||
JvNavigationPane, ActnList, TB2Dock, TB2Toolbar, TBX, TB2Item,
|
JvNavigationPane, ActnList, TB2Dock, TB2Toolbar, SpTBXItem, TB2Item,
|
||||||
ImgList, PngImageList, StdActns, TB2ExtItems, TBXExtItems, uViewGridBase,
|
ImgList, PngImageList, StdActns, TB2ExtItems, uViewGridBase,
|
||||||
uEditorDBBase, DB, uDADataTable, Menus, JvFormAutoSize,
|
uEditorDBBase, DB, uDADataTable, Menus, JvFormAutoSize,
|
||||||
uDAScriptingProvider, uDACDSDataTable, AppEvnts, JvAppStorage,
|
uDAScriptingProvider, uDACDSDataTable, AppEvnts, JvAppStorage,
|
||||||
JvAppRegistryStorage, JvFormPlacement, pngimage, ExtCtrls,
|
JvAppRegistryStorage, JvFormPlacement, pngimage, ExtCtrls,
|
||||||
JvComponentBase, dxLayoutLookAndFeels, TBXStatusBars, JvExComCtrls,
|
JvComponentBase, dxLayoutLookAndFeels, JvExComCtrls,
|
||||||
JvStatusBar, uDAInterfaces, cxGraphics, StdCtrls, cxControls, cxContainer,
|
JvStatusBar, uDAInterfaces, cxGraphics, StdCtrls, cxControls, cxContainer,
|
||||||
cxEdit, cxTextEdit, cxMaskEdit, cxDropDownEdit, cxLookupEdit, cxDBLookupEdit,
|
cxEdit, cxTextEdit, cxMaskEdit, cxDropDownEdit, cxLookupEdit, cxDBLookupEdit,
|
||||||
cxDBLookupComboBox;
|
cxDBLookupComboBox, SpTBXEditors, TntStdCtrls, SpTBXControls;
|
||||||
|
|
||||||
type
|
type
|
||||||
IEditorGridBase = interface(IEditorDBBase)
|
IEditorGridBase = interface(IEditorDBBase)
|
||||||
@ -33,46 +33,45 @@ type
|
|||||||
end;
|
end;
|
||||||
|
|
||||||
TfEditorGridBase = class(TfEditorDBBase, IEditorGridBase)
|
TfEditorGridBase = class(TfEditorDBBase, IEditorGridBase)
|
||||||
tbxEditFiltro: TTBXEditItem;
|
tbxEditFiltro: TSpTBXEditItem;
|
||||||
tbxFiltro: TTBXToolbar;
|
tbxFiltro: TSpTBXToolbar;
|
||||||
GridPopupMenu: TPopupMenu;
|
GridPopupMenu: TPopupMenu;
|
||||||
Modificar1: TMenuItem;
|
Modificar1: TMenuItem;
|
||||||
Eliminar1: TMenuItem;
|
Eliminar1: TMenuItem;
|
||||||
N1: TMenuItem;
|
N1: TMenuItem;
|
||||||
Nuevo1: TMenuItem;
|
Nuevo1: TMenuItem;
|
||||||
TBXLabelItem1: TTBXLabelItem;
|
TBXLabelItem1: TSpTBXLabelItem;
|
||||||
actQuitarFiltro: TAction;
|
actQuitarFiltro: TAction;
|
||||||
N2: TMenuItem;
|
N2: TMenuItem;
|
||||||
Previsualizar1: TMenuItem;
|
Previsualizar1: TMenuItem;
|
||||||
Imprimir1: TMenuItem;
|
Imprimir1: TMenuItem;
|
||||||
TBXSeparatorItem14: TTBXSeparatorItem;
|
TBXSeparatorItem14: TSpTBXSeparatorItem;
|
||||||
TBXItem33: TTBXItem;
|
TBXItem33: TSpTBXItem;
|
||||||
N3: TMenuItem;
|
N3: TMenuItem;
|
||||||
Actualizar1: TMenuItem;
|
Actualizar1: TMenuItem;
|
||||||
TBXItem34: TTBXItem;
|
TBXItem34: TSpTBXItem;
|
||||||
actAnchoAuto: TAction;
|
actAnchoAuto: TAction;
|
||||||
TBXSeparatorItem16: TTBXSeparatorItem;
|
TBXSeparatorItem16: TSpTBXSeparatorItem;
|
||||||
TBXItem35: TTBXItem;
|
TBXItem35: TSpTBXItem;
|
||||||
TBXItem36: TTBXItem;
|
TBXItem36: TSpTBXItem;
|
||||||
TBXSeparatorItem6: TTBXSeparatorItem;
|
TBXSeparatorItem6: TSpTBXSeparatorItem;
|
||||||
TBXItem7: TTBXItem;
|
TBXItem7: TSpTBXItem;
|
||||||
actFiltrar: TAction;
|
actFiltrar: TAction;
|
||||||
TBXItem37: TTBXItem;
|
TBXItem37: TSpTBXItem;
|
||||||
TBXTMain2: TTBXToolbar;
|
TBXTMain2: TSpTBXToolbar;
|
||||||
actExportarExcel: TAction;
|
actExportarExcel: TAction;
|
||||||
ExportaraficheroExcel1: TMenuItem;
|
ExportaraficheroExcel1: TMenuItem;
|
||||||
N488: TMenuItem;
|
N488: TMenuItem;
|
||||||
TBXSeparatorItem172: TTBXSeparatorItem;
|
TBXSeparatorItem172: TSpTBXSeparatorItem;
|
||||||
TBXItem395: TTBXItem;
|
TBXItem395: TSpTBXItem;
|
||||||
TBXItem384: TTBXItem;
|
TBXItem384: TSpTBXItem;
|
||||||
actExpandir: TAction;
|
actExpandir: TAction;
|
||||||
actContraer: TAction;
|
actContraer: TAction;
|
||||||
TBXItem938: TTBXItem;
|
TBXItem938: TSpTBXItem;
|
||||||
TBXItem939: TTBXItem;
|
TBXItem939: TSpTBXItem;
|
||||||
cbxListaAnos: TTBXComboBoxItem;
|
cbxListaAnos: TSpTBXComboBox;
|
||||||
sepAno: TTBXSeparatorItem;
|
sepAno: TSpTBXSeparatorItem;
|
||||||
lblAno: TTBXLabelItem;
|
lblAno: TSpTBXLabelItem;
|
||||||
procedure tbxEditFiltroChange(Sender: TObject; const Text: String);
|
|
||||||
procedure FormShow(Sender: TObject);
|
procedure FormShow(Sender: TObject);
|
||||||
procedure actQuitarFiltroExecute(Sender: TObject);
|
procedure actQuitarFiltroExecute(Sender: TObject);
|
||||||
procedure actDuplicarUpdate(Sender: TObject);
|
procedure actDuplicarUpdate(Sender: TObject);
|
||||||
@ -90,6 +89,7 @@ type
|
|||||||
procedure actContraerExecute(Sender: TObject);
|
procedure actContraerExecute(Sender: TObject);
|
||||||
procedure actExpandirUpdate(Sender: TObject);
|
procedure actExpandirUpdate(Sender: TObject);
|
||||||
procedure actContraerUpdate(Sender: TObject);
|
procedure actContraerUpdate(Sender: TObject);
|
||||||
|
procedure tbxEditFiltroChange(Sender: TObject; const AText: WideString);
|
||||||
protected
|
protected
|
||||||
FListaAnos: TStringList;
|
FListaAnos: TStringList;
|
||||||
FViewGrid : IViewGridBase;
|
FViewGrid : IViewGridBase;
|
||||||
@ -203,21 +203,23 @@ begin
|
|||||||
|
|
||||||
if Assigned(FListaAnos) then
|
if Assigned(FListaAnos) then
|
||||||
begin
|
begin
|
||||||
cbxListaAnos.Strings.BeginUpdate;
|
cbxListaAnos.Items.BeginUpdate;
|
||||||
cbxListaAnos.Strings.Clear;
|
try
|
||||||
for i := 0 to FListaAnos.Count - 1 do
|
cbxListaAnos.Items.Clear;
|
||||||
cbxListaAnos.Strings.Append(FListaAnos.Names[i]);
|
for i := 0 to FListaAnos.Count - 1 do
|
||||||
|
cbxListaAnos.Items.Append(FListaAnos.Names[i]);
|
||||||
|
|
||||||
//Se posiciona en el elemento que habia anteriormente
|
//Se posiciona en el elemento que habia anteriormente
|
||||||
if Length(AStringAnterior) > 0 then
|
if Length(AStringAnterior) > 0 then
|
||||||
begin
|
begin
|
||||||
if FListaAnos.IndexOfName(AStringAnterior) <> -1 then
|
if FListaAnos.IndexOfName(AStringAnterior) <> -1 then
|
||||||
cbxListaAnos.ItemIndex := FListaAnos.IndexOfName(AStringAnterior)
|
cbxListaAnos.ItemIndex := FListaAnos.IndexOfName(AStringAnterior)
|
||||||
else
|
else
|
||||||
cbxListaAnos.ItemIndex := 0;
|
cbxListaAnos.ItemIndex := 0;
|
||||||
|
end;
|
||||||
|
finally
|
||||||
|
cbxListaAnos.Items.EndUpdate;
|
||||||
end;
|
end;
|
||||||
|
|
||||||
cbxListaAnos.Strings.EndUpdate;
|
|
||||||
end;
|
end;
|
||||||
end;
|
end;
|
||||||
|
|
||||||
@ -244,12 +246,15 @@ begin
|
|||||||
Result := inherited ShowModal;
|
Result := inherited ShowModal;
|
||||||
end;
|
end;
|
||||||
|
|
||||||
procedure TfEditorGridBase.tbxEditFiltroChange(Sender: TObject; const Text: String);
|
|
||||||
|
procedure TfEditorGridBase.tbxEditFiltroChange(Sender: TObject;
|
||||||
|
const AText: WideString);
|
||||||
begin
|
begin
|
||||||
|
inherited;
|
||||||
if Assigned(ViewGrid) then
|
if Assigned(ViewGrid) then
|
||||||
begin
|
begin
|
||||||
if Length(Text) > 0 then
|
if Length(AText) > 0 then
|
||||||
ViewGrid.Filter := Text
|
ViewGrid.Filter := AText
|
||||||
else
|
else
|
||||||
actQuitarFiltro.Execute;
|
actQuitarFiltro.Execute;
|
||||||
end;
|
end;
|
||||||
|
|||||||
@ -32,23 +32,25 @@ inherited fEditorItem: TfEditorItem
|
|||||||
ExplicitHeight = 406
|
ExplicitHeight = 406
|
||||||
object pagGeneral: TTabSheet
|
object pagGeneral: TTabSheet
|
||||||
Caption = 'General'
|
Caption = 'General'
|
||||||
|
ExplicitLeft = 0
|
||||||
|
ExplicitTop = 0
|
||||||
ExplicitWidth = 670
|
ExplicitWidth = 670
|
||||||
ExplicitHeight = 378
|
ExplicitHeight = 378
|
||||||
end
|
end
|
||||||
end
|
end
|
||||||
inherited TBXDock: TTBXDock
|
inherited TBXDock: TSpTBXDock
|
||||||
Width = 678
|
Width = 678
|
||||||
ExplicitWidth = 678
|
ExplicitWidth = 678
|
||||||
inherited tbxMain: TTBXToolbar
|
inherited tbxMain: TSpTBXToolbar
|
||||||
ExplicitWidth = 581
|
ExplicitWidth = 581
|
||||||
inherited TBXItem5: TTBXItem
|
inherited TBXItem5: TSpTBXItem
|
||||||
Visible = False
|
Visible = False
|
||||||
end
|
end
|
||||||
end
|
end
|
||||||
inherited tbxMenu: TTBXToolbar
|
inherited tbxMenu: TSpTBXToolbar
|
||||||
ExplicitWidth = 678
|
ExplicitWidth = 678
|
||||||
inherited TBXSubmenuItem4: TTBXSubmenuItem
|
inherited TBXSubmenuItem4: TSpTBXSubmenuItem
|
||||||
inherited TBXItem10: TTBXItem
|
inherited TBXItem10: TSpTBXItem
|
||||||
Visible = False
|
Visible = False
|
||||||
end
|
end
|
||||||
end
|
end
|
||||||
|
|||||||
@ -6,10 +6,10 @@ interface
|
|||||||
uses
|
uses
|
||||||
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
|
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
|
||||||
Dialogs, uEditorBase, ActnList, JvExControls, JvComponent,
|
Dialogs, uEditorBase, ActnList, JvExControls, JvComponent,
|
||||||
JvNavigationPane, ComCtrls, StdActns, TB2Dock, TB2Toolbar, TBX, TB2Item,
|
JvNavigationPane, ComCtrls, StdActns, TB2Dock, TB2Toolbar, SpTBXItem, TB2Item,
|
||||||
ImgList, PngImageList, JvFormAutoSize, JvAppStorage,
|
ImgList, PngImageList, JvFormAutoSize, JvAppStorage,
|
||||||
JvAppRegistryStorage, JvFormPlacement, pngimage, ExtCtrls,
|
JvAppRegistryStorage, JvFormPlacement, pngimage, ExtCtrls,
|
||||||
JvComponentBase, dxLayoutLookAndFeels, TBXStatusBars, JvExComCtrls,
|
JvComponentBase, dxLayoutLookAndFeels, JvExComCtrls,
|
||||||
JvStatusBar;
|
JvStatusBar;
|
||||||
|
|
||||||
type
|
type
|
||||||
|
|||||||
@ -17,192 +17,196 @@ inherited fEditorPreview: TfEditorPreview
|
|||||||
ExplicitLeft = 623
|
ExplicitLeft = 623
|
||||||
end
|
end
|
||||||
end
|
end
|
||||||
inherited TBXDock: TTBXDock
|
inherited TBXDock: TSpTBXDock
|
||||||
Height = 75
|
Height = 75
|
||||||
ExplicitHeight = 75
|
ExplicitHeight = 75
|
||||||
inherited tbxMain: TTBXToolbar
|
inherited tbxMain: TSpTBXToolbar
|
||||||
Top = 49
|
Top = 49
|
||||||
DefaultDock = TBXDock
|
DefaultDock = TBXDock
|
||||||
Visible = False
|
Visible = False
|
||||||
ExplicitTop = 49
|
ExplicitTop = 49
|
||||||
ExplicitWidth = 248
|
ExplicitWidth = 248
|
||||||
end
|
end
|
||||||
inherited tbxMenu: TTBXToolbar
|
inherited tbxMenu: TSpTBXToolbar
|
||||||
DockPos = 0
|
DockPos = 0
|
||||||
inherited TBXSubmenuItem4: TTBXSubmenuItem
|
inherited TBXSubmenuItem4: TSpTBXSubmenuItem
|
||||||
object TBXSeparatorItem20: TTBXSeparatorItem [10]
|
object TBXSeparatorItem20: TSpTBXSeparatorItem [10]
|
||||||
end
|
end
|
||||||
object TBXSubmenuItem8: TTBXSubmenuItem [11]
|
object TBXSubmenuItem8: TSpTBXSubmenuItem [11]
|
||||||
Caption = 'Exportar'
|
Caption = 'Exportar'
|
||||||
Enabled = False
|
Enabled = False
|
||||||
Visible = False
|
Visible = False
|
||||||
object TBXItem53: TTBXItem
|
object TBXItem53: TSpTBXItem
|
||||||
Action = actExportarPDF
|
Action = actExportarPDF
|
||||||
Images = SmallImages
|
Images = SmallImages
|
||||||
end
|
end
|
||||||
object TBXItem56: TTBXItem
|
object TBXItem56: TSpTBXItem
|
||||||
Action = actExportarExcel
|
Action = actExportarExcel
|
||||||
Images = SmallImages
|
Images = SmallImages
|
||||||
end
|
end
|
||||||
object TBXItem55: TTBXItem
|
object TBXItem55: TSpTBXItem
|
||||||
Action = actExportarRTF
|
Action = actExportarRTF
|
||||||
Images = SmallImages
|
Images = SmallImages
|
||||||
end
|
end
|
||||||
object TBXItem57: TTBXItem
|
object TBXItem57: TSpTBXItem
|
||||||
Action = actExportarTexto
|
Action = actExportarTexto
|
||||||
Images = SmallImages
|
Images = SmallImages
|
||||||
end
|
end
|
||||||
end
|
end
|
||||||
object TBXItem54: TTBXItem [12]
|
object TBXItem54: TSpTBXItem [12]
|
||||||
Action = actExportarCorreo
|
Action = actExportarCorreo
|
||||||
Images = SmallImages
|
Images = SmallImages
|
||||||
end
|
end
|
||||||
end
|
end
|
||||||
inherited TBXSubmenuItem5: TTBXSubmenuItem
|
inherited TBXSubmenuItem5: TSpTBXSubmenuItem
|
||||||
Visible = False
|
Visible = False
|
||||||
end
|
end
|
||||||
inherited TBXSubmenuItem1: TTBXSubmenuItem
|
inherited TBXSubmenuItem1: TSpTBXSubmenuItem
|
||||||
Visible = False
|
Visible = False
|
||||||
end
|
end
|
||||||
object TBXSubmenuItem2: TTBXSubmenuItem [3]
|
object TBXSubmenuItem2: TSpTBXSubmenuItem [3]
|
||||||
Caption = '&Ir'
|
Caption = '&Ir'
|
||||||
object TBXItem47: TTBXItem
|
object TBXItem47: TSpTBXItem
|
||||||
Action = actPrimeraPagina
|
Action = actPrimeraPagina
|
||||||
Images = PreviewSmallImageList
|
Images = PreviewSmallImageList
|
||||||
end
|
end
|
||||||
object TBXItem43: TTBXItem
|
object TBXItem43: TSpTBXItem
|
||||||
Action = actPaginaAnterior
|
Action = actPaginaAnterior
|
||||||
Images = PreviewSmallImageList
|
Images = PreviewSmallImageList
|
||||||
end
|
end
|
||||||
object TBXItem44: TTBXItem
|
object TBXItem44: TSpTBXItem
|
||||||
Action = actPaginaSiguiente
|
Action = actPaginaSiguiente
|
||||||
Images = PreviewSmallImageList
|
Images = PreviewSmallImageList
|
||||||
end
|
end
|
||||||
object TBXItem45: TTBXItem
|
object TBXItem45: TSpTBXItem
|
||||||
Action = actUltimaPagina
|
Action = actUltimaPagina
|
||||||
Images = PreviewSmallImageList
|
Images = PreviewSmallImageList
|
||||||
end
|
end
|
||||||
end
|
end
|
||||||
inherited TBXSubmenuItem6: TTBXSubmenuItem
|
inherited TBXSubmenuItem6: TSpTBXSubmenuItem
|
||||||
inherited TBXItem18: TTBXItem
|
inherited TBXItem18: TSpTBXItem
|
||||||
Action = actZoomIn
|
Action = actZoomIn
|
||||||
Images = PreviewSmallImageList
|
Images = PreviewSmallImageList
|
||||||
end
|
end
|
||||||
object TBXItem38: TTBXItem
|
object TBXItem38: TSpTBXItem
|
||||||
Action = actZoomOut
|
Action = actZoomOut
|
||||||
Images = PreviewSmallImageList
|
Images = PreviewSmallImageList
|
||||||
end
|
end
|
||||||
object TBXSeparatorItem19: TTBXSeparatorItem
|
object TBXSeparatorItem19: TSpTBXSeparatorItem
|
||||||
end
|
end
|
||||||
object TBXItem48: TTBXItem
|
object TBXItem48: TSpTBXItem
|
||||||
Action = actAnchoPagina
|
Action = actAnchoPagina
|
||||||
Images = PreviewSmallImageList
|
Images = PreviewSmallImageList
|
||||||
end
|
end
|
||||||
object TBXItem46: TTBXItem
|
object TBXItem46: TSpTBXItem
|
||||||
Action = actTodaPagina
|
Action = actTodaPagina
|
||||||
Images = PreviewSmallImageList
|
Images = PreviewSmallImageList
|
||||||
end
|
end
|
||||||
object TBXItem52: TTBXItem
|
object TBXItem52: TSpTBXItem
|
||||||
Action = actMiniaturas
|
Action = actMiniaturas
|
||||||
Images = PreviewSmallImageList
|
Images = PreviewSmallImageList
|
||||||
end
|
end
|
||||||
end
|
end
|
||||||
object TBXSubmenuItem3: TTBXSubmenuItem [5]
|
object TBXSubmenuItem3: TSpTBXSubmenuItem [5]
|
||||||
Caption = '&Herramientas'
|
Caption = '&Herramientas'
|
||||||
object TBXItem49: TTBXItem
|
object TBXItem49: TSpTBXItem
|
||||||
Action = actToolHand
|
Action = actToolHand
|
||||||
Checked = True
|
Checked = True
|
||||||
GroupIndex = 1
|
GroupIndex = 1
|
||||||
Images = PreviewSmallImageList
|
Images = PreviewSmallImageList
|
||||||
end
|
end
|
||||||
object TBXItem50: TTBXItem
|
object TBXItem50: TSpTBXItem
|
||||||
Action = actToolZoom
|
Action = actToolZoom
|
||||||
GroupIndex = 1
|
GroupIndex = 1
|
||||||
Images = PreviewSmallImageList
|
Images = PreviewSmallImageList
|
||||||
end
|
end
|
||||||
end
|
end
|
||||||
end
|
end
|
||||||
object TBXToolbar1: TTBXToolbar
|
object TBXToolbar1: TSpTBXToolbar
|
||||||
Left = 0
|
Left = 0
|
||||||
Top = 23
|
Top = 23
|
||||||
Caption = 'TBXToolbar1'
|
|
||||||
DefaultDock = TBXDock
|
DefaultDock = TBXDock
|
||||||
DragHandleStyle = dhNone
|
DragHandleStyle = dhNone
|
||||||
ParentShowHint = False
|
ParentShowHint = False
|
||||||
ShowHint = True
|
ShowHint = True
|
||||||
TabOrder = 2
|
TabOrder = 2
|
||||||
object TBXItem39: TTBXItem
|
Caption = 'TBXToolbar1'
|
||||||
|
object TBXItem39: TSpTBXItem
|
||||||
Action = actImprimir
|
Action = actImprimir
|
||||||
DisplayMode = nbdmImageAndText
|
DisplayMode = nbdmImageAndText
|
||||||
Images = SmallImages
|
Images = SmallImages
|
||||||
end
|
end
|
||||||
object TBXSeparatorItem18: TTBXSeparatorItem
|
object TBXSeparatorItem18: TSpTBXSeparatorItem
|
||||||
end
|
end
|
||||||
object tbxMano: TTBXItem
|
object tbxMano: TSpTBXItem
|
||||||
Action = actToolHand
|
Action = actToolHand
|
||||||
Checked = True
|
Checked = True
|
||||||
DisplayMode = nbdmImageAndText
|
DisplayMode = nbdmImageAndText
|
||||||
GroupIndex = 1
|
GroupIndex = 1
|
||||||
Images = PreviewSmallImageList
|
Images = PreviewSmallImageList
|
||||||
end
|
end
|
||||||
object tbxZoom: TTBXItem
|
object tbxZoom: TSpTBXItem
|
||||||
Action = actToolZoom
|
Action = actToolZoom
|
||||||
DisplayMode = nbdmImageAndText
|
DisplayMode = nbdmImageAndText
|
||||||
GroupIndex = 1
|
GroupIndex = 1
|
||||||
Images = PreviewSmallImageList
|
Images = PreviewSmallImageList
|
||||||
end
|
end
|
||||||
object TBXSeparatorItem6: TTBXSeparatorItem
|
object TBXSeparatorItem6: TSpTBXSeparatorItem
|
||||||
end
|
end
|
||||||
object TBXItem51: TTBXItem
|
object TBXItem51: TSpTBXItem
|
||||||
Action = actMiniaturas
|
Action = actMiniaturas
|
||||||
Images = PreviewSmallImageList
|
Images = PreviewSmallImageList
|
||||||
end
|
end
|
||||||
object TBXItem42: TTBXItem
|
object TBXItem42: TSpTBXItem
|
||||||
Action = actTodaPagina
|
Action = actTodaPagina
|
||||||
Images = PreviewSmallImageList
|
Images = PreviewSmallImageList
|
||||||
end
|
end
|
||||||
object TBXItem41: TTBXItem
|
object TBXItem41: TSpTBXItem
|
||||||
Action = actAnchoPagina
|
Action = actAnchoPagina
|
||||||
Images = PreviewSmallImageList
|
Images = PreviewSmallImageList
|
||||||
end
|
end
|
||||||
object TBXSeparatorItem14: TTBXSeparatorItem
|
object TBXSeparatorItem14: TSpTBXSeparatorItem
|
||||||
end
|
end
|
||||||
object TBXItem40: TTBXItem
|
object TBXItem40: TSpTBXItem
|
||||||
Action = actZoomOut
|
Action = actZoomOut
|
||||||
Images = PreviewSmallImageList
|
Images = PreviewSmallImageList
|
||||||
end
|
end
|
||||||
object cbZoom: TTBXComboBoxItem
|
object TBXItem37: TSpTBXItem
|
||||||
Caption = 'Zoom'
|
|
||||||
ReadOnly = True
|
|
||||||
OnItemClick = cbZoomItemClick
|
|
||||||
end
|
|
||||||
object TBXItem37: TTBXItem
|
|
||||||
Action = actZoomIn
|
Action = actZoomIn
|
||||||
Images = PreviewSmallImageList
|
Images = PreviewSmallImageList
|
||||||
end
|
end
|
||||||
object TBXSeparatorItem17: TTBXSeparatorItem
|
object TBXSeparatorItem17: TSpTBXSeparatorItem
|
||||||
end
|
end
|
||||||
object TBXItem7: TTBXItem
|
object TBXItem7: TSpTBXItem
|
||||||
Action = actPrimeraPagina
|
Action = actPrimeraPagina
|
||||||
Images = PreviewSmallImageList
|
Images = PreviewSmallImageList
|
||||||
end
|
end
|
||||||
object TBXItem34: TTBXItem
|
object TBXItem34: TSpTBXItem
|
||||||
Action = actPaginaAnterior
|
Action = actPaginaAnterior
|
||||||
Images = PreviewSmallImageList
|
Images = PreviewSmallImageList
|
||||||
end
|
end
|
||||||
object TBXItem33: TTBXItem
|
object TBXItem33: TSpTBXItem
|
||||||
Action = actPaginaSiguiente
|
Action = actPaginaSiguiente
|
||||||
Images = PreviewSmallImageList
|
Images = PreviewSmallImageList
|
||||||
end
|
end
|
||||||
object TBXItem36: TTBXItem
|
object TBXItem36: TSpTBXItem
|
||||||
Action = actUltimaPagina
|
Action = actUltimaPagina
|
||||||
Images = PreviewSmallImageList
|
Images = PreviewSmallImageList
|
||||||
end
|
end
|
||||||
object TBXSeparatorItem16: TTBXSeparatorItem
|
object TBXSeparatorItem16: TSpTBXSeparatorItem
|
||||||
end
|
end
|
||||||
object TBXItem35: TTBXItem
|
object TBXItem35: TSpTBXItem
|
||||||
Action = actCerrar
|
Action = actCerrar
|
||||||
end
|
end
|
||||||
|
object cbZoom: TSpTBXComboBox
|
||||||
|
Left = 449
|
||||||
|
Top = 0
|
||||||
|
Width = 145
|
||||||
|
Height = 21
|
||||||
|
ItemHeight = 13
|
||||||
|
TabOrder = 0
|
||||||
|
OnClick = cbZoomItemClick
|
||||||
|
end
|
||||||
end
|
end
|
||||||
end
|
end
|
||||||
inherited StatusBar: TJvStatusBar
|
inherited StatusBar: TJvStatusBar
|
||||||
@ -2490,7 +2494,7 @@ inherited fEditorPreview: TfEditorPreview
|
|||||||
Bitmap = {}
|
Bitmap = {}
|
||||||
end
|
end
|
||||||
object frxReport1: TfrxReport
|
object frxReport1: TfrxReport
|
||||||
Version = '4.7.71'
|
Version = '4.8.11'
|
||||||
DotMatrixReport = False
|
DotMatrixReport = False
|
||||||
EngineOptions.DoublePass = True
|
EngineOptions.DoublePass = True
|
||||||
IniFile = '\Software\Fast Reports'
|
IniFile = '\Software\Fast Reports'
|
||||||
@ -2501,10 +2505,6 @@ inherited fEditorPreview: TfEditorPreview
|
|||||||
ReportOptions.CreateDate = 38658.858023541660000000
|
ReportOptions.CreateDate = 38658.858023541660000000
|
||||||
ReportOptions.LastChange = 38658.858023541660000000
|
ReportOptions.LastChange = 38658.858023541660000000
|
||||||
ScriptLanguage = 'PascalScript'
|
ScriptLanguage = 'PascalScript'
|
||||||
ScriptText.Strings = (
|
|
||||||
'begin'
|
|
||||||
''
|
|
||||||
'end.')
|
|
||||||
StoreInDFM = False
|
StoreInDFM = False
|
||||||
Left = 16
|
Left = 16
|
||||||
Top = 200
|
Top = 200
|
||||||
|
|||||||
@ -4,15 +4,15 @@ interface
|
|||||||
|
|
||||||
uses
|
uses
|
||||||
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
|
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,
|
TB2Item, TB2Dock, TB2Toolbar, JvExControls, JvComponent, JvNavigationPane,
|
||||||
TB2ExtItems, TBXExtItems, uViewPreview, frxClass, ComCtrls, frxPreview,
|
TB2ExtItems, uViewPreview, frxClass, ComCtrls, frxPreview,
|
||||||
JvFormAutoSize, JvAppStorage, JvAppRegistryStorage, JvFormPlacement,
|
JvFormAutoSize, JvAppStorage, JvAppRegistryStorage, JvFormPlacement,
|
||||||
pngimage, frxExportImage, frxExportPDF, frxDCtrl, frxDMPExport,
|
pngimage, frxExportImage, frxExportPDF, frxDCtrl, frxDMPExport,
|
||||||
frxGradient, frxChBox, frxCross, frxRich, frxOLE, frxBarcode,
|
frxGradient, frxChBox, frxCross, frxRich, frxOLE, frxBarcode,
|
||||||
ExtCtrls, JvComponentBase, TBXStatusBars, JvExComCtrls, JvStatusBar,
|
ExtCtrls, JvComponentBase, JvExComCtrls, JvStatusBar,
|
||||||
frxExportMail, frxExportXLS, frxExportText, frxExportRTF, uControllerBase,
|
frxExportMail, frxExportXLS, frxExportText, frxExportRTF, uControllerBase,
|
||||||
uIntegerListUtils;
|
uIntegerListUtils, SpTBXEditors, StdCtrls, TntStdCtrls;
|
||||||
|
|
||||||
type
|
type
|
||||||
IEditorPreview = interface(IEditorBase)
|
IEditorPreview = interface(IEditorBase)
|
||||||
@ -41,12 +41,12 @@ type
|
|||||||
end;
|
end;
|
||||||
|
|
||||||
TfEditorPreview = class(TfEditorBase, IEditorPreview)
|
TfEditorPreview = class(TfEditorBase, IEditorPreview)
|
||||||
TBXToolbar1: TTBXToolbar;
|
TBXToolbar1: TSpTBXToolbar;
|
||||||
TBXItem33: TTBXItem;
|
TBXItem33: TSpTBXItem;
|
||||||
TBXItem34: TTBXItem;
|
TBXItem34: TSpTBXItem;
|
||||||
TBXItem39: TTBXItem;
|
TBXItem39: TSpTBXItem;
|
||||||
TBXSeparatorItem16: TTBXSeparatorItem;
|
TBXSeparatorItem16: TSpTBXSeparatorItem;
|
||||||
cbZoom: TTBXComboBoxItem;
|
cbZoom: TSpTBXComboBox;
|
||||||
PreviewActionList: TActionList;
|
PreviewActionList: TActionList;
|
||||||
PreviewSmallImageList: TPngImageList;
|
PreviewSmallImageList: TPngImageList;
|
||||||
PreviewLargeImageList: TPngImageList;
|
PreviewLargeImageList: TPngImageList;
|
||||||
@ -54,22 +54,22 @@ type
|
|||||||
actUltimaPagina: TAction;
|
actUltimaPagina: TAction;
|
||||||
actPaginaAnterior: TAction;
|
actPaginaAnterior: TAction;
|
||||||
actPaginaSiguiente: TAction;
|
actPaginaSiguiente: TAction;
|
||||||
TBXItem36: TTBXItem;
|
TBXItem36: TSpTBXItem;
|
||||||
actZoomIn: TAction;
|
actZoomIn: TAction;
|
||||||
actZoomOut: TAction;
|
actZoomOut: TAction;
|
||||||
actTodaPagina: TAction;
|
actTodaPagina: TAction;
|
||||||
actAnchoPagina: TAction;
|
actAnchoPagina: TAction;
|
||||||
TBXSeparatorItem17: TTBXSeparatorItem;
|
TBXSeparatorItem17: TSpTBXSeparatorItem;
|
||||||
TBXItem37: TTBXItem;
|
TBXItem37: TSpTBXItem;
|
||||||
TBXItem40: TTBXItem;
|
TBXItem40: TSpTBXItem;
|
||||||
TBXItem41: TTBXItem;
|
TBXItem41: TSpTBXItem;
|
||||||
TBXItem42: TTBXItem;
|
TBXItem42: TSpTBXItem;
|
||||||
frxReport1: TfrxReport;
|
frxReport1: TfrxReport;
|
||||||
actToolHand: TAction;
|
actToolHand: TAction;
|
||||||
actToolZoom: TAction;
|
actToolZoom: TAction;
|
||||||
tbxZoom: TTBXItem;
|
tbxZoom: TSpTBXItem;
|
||||||
tbxMano: TTBXItem;
|
tbxMano: TSpTBXItem;
|
||||||
TBXSeparatorItem18: TTBXSeparatorItem;
|
TBXSeparatorItem18: TSpTBXSeparatorItem;
|
||||||
frxBarCodeObject1: TfrxBarCodeObject;
|
frxBarCodeObject1: TfrxBarCodeObject;
|
||||||
frxOLEObject1: TfrxOLEObject;
|
frxOLEObject1: TfrxOLEObject;
|
||||||
frxRichObject1: TfrxRichObject;
|
frxRichObject1: TfrxRichObject;
|
||||||
@ -80,29 +80,29 @@ type
|
|||||||
frxTIFFExport1: TfrxTIFFExport;
|
frxTIFFExport1: TfrxTIFFExport;
|
||||||
frxPDFExport1: TfrxPDFExport;
|
frxPDFExport1: TfrxPDFExport;
|
||||||
frxBMPExport1: TfrxBMPExport;
|
frxBMPExport1: TfrxBMPExport;
|
||||||
TBXItem38: TTBXItem;
|
TBXItem38: TSpTBXItem;
|
||||||
TBXSeparatorItem19: TTBXSeparatorItem;
|
TBXSeparatorItem19: TSpTBXSeparatorItem;
|
||||||
TBXItem43: TTBXItem;
|
TBXItem43: TSpTBXItem;
|
||||||
TBXItem44: TTBXItem;
|
TBXItem44: TSpTBXItem;
|
||||||
TBXItem45: TTBXItem;
|
TBXItem45: TSpTBXItem;
|
||||||
TBXItem46: TTBXItem;
|
TBXItem46: TSpTBXItem;
|
||||||
TBXItem47: TTBXItem;
|
TBXItem47: TSpTBXItem;
|
||||||
TBXSubmenuItem2: TTBXSubmenuItem;
|
TBXSubmenuItem2: TSpTBXSubmenuItem;
|
||||||
TBXItem48: TTBXItem;
|
TBXItem48: TSpTBXItem;
|
||||||
TBXSubmenuItem3: TTBXSubmenuItem;
|
TBXSubmenuItem3: TSpTBXSubmenuItem;
|
||||||
TBXItem49: TTBXItem;
|
TBXItem49: TSpTBXItem;
|
||||||
TBXItem50: TTBXItem;
|
TBXItem50: TSpTBXItem;
|
||||||
TBXItem7: TTBXItem;
|
TBXItem7: TSpTBXItem;
|
||||||
TBXItem35: TTBXItem;
|
TBXItem35: TSpTBXItem;
|
||||||
actMiniaturas: TAction;
|
actMiniaturas: TAction;
|
||||||
TBXSeparatorItem6: TTBXSeparatorItem;
|
TBXSeparatorItem6: TSpTBXSeparatorItem;
|
||||||
TBXSeparatorItem14: TTBXSeparatorItem;
|
TBXSeparatorItem14: TSpTBXSeparatorItem;
|
||||||
TBXItem51: TTBXItem;
|
TBXItem51: TSpTBXItem;
|
||||||
TBXItem52: TTBXItem;
|
TBXItem52: TSpTBXItem;
|
||||||
actExportarPDF: TAction;
|
actExportarPDF: TAction;
|
||||||
TBXSubmenuItem8: TTBXSubmenuItem;
|
TBXSubmenuItem8: TSpTBXSubmenuItem;
|
||||||
TBXItem53: TTBXItem;
|
TBXItem53: TSpTBXItem;
|
||||||
TBXSeparatorItem20: TTBXSeparatorItem;
|
TBXSeparatorItem20: TSpTBXSeparatorItem;
|
||||||
actExportarRTF: TAction;
|
actExportarRTF: TAction;
|
||||||
frxXLSExport1: TfrxXLSExport;
|
frxXLSExport1: TfrxXLSExport;
|
||||||
frxMailExport1: TfrxMailExport;
|
frxMailExport1: TfrxMailExport;
|
||||||
@ -111,10 +111,10 @@ type
|
|||||||
frxRTFExport: TfrxRTFExport;
|
frxRTFExport: TfrxRTFExport;
|
||||||
frxSimpleTextExport1: TfrxSimpleTextExport;
|
frxSimpleTextExport1: TfrxSimpleTextExport;
|
||||||
actExportarTexto: TAction;
|
actExportarTexto: TAction;
|
||||||
TBXItem54: TTBXItem;
|
TBXItem54: TSpTBXItem;
|
||||||
TBXItem55: TTBXItem;
|
TBXItem55: TSpTBXItem;
|
||||||
TBXItem56: TTBXItem;
|
TBXItem56: TSpTBXItem;
|
||||||
TBXItem57: TTBXItem;
|
TBXItem57: TSpTBXItem;
|
||||||
procedure FormShow(Sender: TObject);
|
procedure FormShow(Sender: TObject);
|
||||||
procedure actPrimeraPaginaExecute(Sender: TObject);
|
procedure actPrimeraPaginaExecute(Sender: TObject);
|
||||||
procedure actUltimaPaginaExecute(Sender: TObject);
|
procedure actUltimaPaginaExecute(Sender: TObject);
|
||||||
@ -403,17 +403,22 @@ constructor TfEditorPreview.Create(AOwner: TComponent);
|
|||||||
begin
|
begin
|
||||||
inherited;
|
inherited;
|
||||||
|
|
||||||
with cbZoom.Strings do
|
with cbZoom.Items do
|
||||||
begin
|
begin
|
||||||
Clear;
|
BeginUpdate;
|
||||||
Add('25%');
|
try
|
||||||
Add('50%');
|
Clear;
|
||||||
Add('75%');
|
Add('25%');
|
||||||
Add('100%');
|
Add('50%');
|
||||||
Add('150%');
|
Add('75%');
|
||||||
Add('200%');
|
Add('100%');
|
||||||
Add(frxResources.Get('zmPageWidth'));
|
Add('150%');
|
||||||
Add(frxResources.Get('zmWholePage'));
|
Add('200%');
|
||||||
|
Add(frxResources.Get('zmPageWidth'));
|
||||||
|
Add(frxResources.Get('zmWholePage'));
|
||||||
|
finally
|
||||||
|
EndUpdate;
|
||||||
|
end;
|
||||||
end;
|
end;
|
||||||
|
|
||||||
FPreview := TfrViewPreview.Create(Self);
|
FPreview := TfrViewPreview.Create(Self);
|
||||||
|
|||||||
@ -10,7 +10,7 @@ inherited frViewDetallesBase: TfrViewDetallesBase
|
|||||||
Left = 0
|
Left = 0
|
||||||
Top = 0
|
Top = 0
|
||||||
Width = 451
|
Width = 451
|
||||||
Height = 68
|
Height = 73
|
||||||
AutoSize = True
|
AutoSize = True
|
||||||
ButtonWidth = 141
|
ButtonWidth = 141
|
||||||
Caption = 'ToolBar1'
|
Caption = 'ToolBar1'
|
||||||
@ -42,24 +42,23 @@ inherited frViewDetallesBase: TfrViewDetallesBase
|
|||||||
Top = 0
|
Top = 0
|
||||||
Action = actSubir
|
Action = actSubir
|
||||||
AutoSize = True
|
AutoSize = True
|
||||||
Wrap = True
|
|
||||||
end
|
end
|
||||||
object ToolButton4: TToolButton
|
object ToolButton4: TToolButton
|
||||||
Left = 0
|
Left = 184
|
||||||
Top = 22
|
Top = 0
|
||||||
Action = actBajar
|
Action = actBajar
|
||||||
AutoSize = True
|
AutoSize = True
|
||||||
end
|
end
|
||||||
object ToolButton14: TToolButton
|
object ToolButton14: TToolButton
|
||||||
Left = 56
|
Left = 240
|
||||||
Top = 22
|
Top = 0
|
||||||
Action = FontEdit1
|
Action = FontEdit1
|
||||||
AutoSize = True
|
AutoSize = True
|
||||||
Wrap = True
|
Wrap = True
|
||||||
end
|
end
|
||||||
object FontName: TJvFontComboBox
|
object FontName: TJvFontComboBox
|
||||||
Left = 0
|
Left = 0
|
||||||
Top = 44
|
Top = 22
|
||||||
Width = 145
|
Width = 145
|
||||||
Height = 22
|
Height = 22
|
||||||
DroppedDownWidth = 145
|
DroppedDownWidth = 145
|
||||||
@ -75,7 +74,7 @@ inherited frViewDetallesBase: TfrViewDetallesBase
|
|||||||
end
|
end
|
||||||
object FontSize: TEdit
|
object FontSize: TEdit
|
||||||
Left = 145
|
Left = 145
|
||||||
Top = 44
|
Top = 22
|
||||||
Width = 26
|
Width = 26
|
||||||
Height = 22
|
Height = 22
|
||||||
Hint = 'Font Size|Select font size'
|
Hint = 'Font Size|Select font size'
|
||||||
@ -86,7 +85,7 @@ inherited frViewDetallesBase: TfrViewDetallesBase
|
|||||||
end
|
end
|
||||||
object UpDown1: TUpDown
|
object UpDown1: TUpDown
|
||||||
Left = 171
|
Left = 171
|
||||||
Top = 44
|
Top = 22
|
||||||
Width = 16
|
Width = 16
|
||||||
Height = 22
|
Height = 22
|
||||||
Associate = FontSize
|
Associate = FontSize
|
||||||
@ -95,7 +94,7 @@ inherited frViewDetallesBase: TfrViewDetallesBase
|
|||||||
end
|
end
|
||||||
object ToolButton13: TToolButton
|
object ToolButton13: TToolButton
|
||||||
Left = 187
|
Left = 187
|
||||||
Top = 44
|
Top = 22
|
||||||
Width = 8
|
Width = 8
|
||||||
Caption = 'ToolButton13'
|
Caption = 'ToolButton13'
|
||||||
ImageIndex = 10
|
ImageIndex = 10
|
||||||
@ -103,54 +102,55 @@ inherited frViewDetallesBase: TfrViewDetallesBase
|
|||||||
end
|
end
|
||||||
object ToolButton6: TToolButton
|
object ToolButton6: TToolButton
|
||||||
Left = 195
|
Left = 195
|
||||||
Top = 44
|
Top = 22
|
||||||
Action = RichEditBold1
|
Action = RichEditBold1
|
||||||
AutoSize = True
|
AutoSize = True
|
||||||
end
|
end
|
||||||
object ToolButton7: TToolButton
|
object ToolButton7: TToolButton
|
||||||
Left = 261
|
Left = 261
|
||||||
Top = 44
|
Top = 22
|
||||||
Action = RichEditItalic1
|
Action = RichEditItalic1
|
||||||
AutoSize = True
|
AutoSize = True
|
||||||
end
|
end
|
||||||
object ToolButton8: TToolButton
|
object ToolButton8: TToolButton
|
||||||
Left = 328
|
Left = 328
|
||||||
Top = 44
|
Top = 22
|
||||||
Action = RichEditUnderline1
|
Action = RichEditUnderline1
|
||||||
AutoSize = True
|
AutoSize = True
|
||||||
end
|
end
|
||||||
object ToolButton12: TToolButton
|
object ToolButton12: TToolButton
|
||||||
Left = 411
|
Left = 0
|
||||||
Top = 44
|
Top = 22
|
||||||
Width = 8
|
Width = 8
|
||||||
Caption = 'ToolButton12'
|
Caption = 'ToolButton12'
|
||||||
ImageIndex = 10
|
ImageIndex = 10
|
||||||
|
Wrap = True
|
||||||
Style = tbsSeparator
|
Style = tbsSeparator
|
||||||
end
|
end
|
||||||
object ToolButton9: TToolButton
|
object ToolButton9: TToolButton
|
||||||
Left = 419
|
Left = 0
|
||||||
Top = 44
|
Top = 49
|
||||||
Action = RichEditAlignLeft1
|
Action = RichEditAlignLeft1
|
||||||
AutoSize = True
|
AutoSize = True
|
||||||
end
|
end
|
||||||
object ToolButton10: TToolButton
|
object ToolButton10: TToolButton
|
||||||
Left = 564
|
Left = 145
|
||||||
Top = 44
|
Top = 49
|
||||||
Action = RichEditAlignCenter1
|
Action = RichEditAlignCenter1
|
||||||
AutoSize = True
|
AutoSize = True
|
||||||
end
|
end
|
||||||
object ToolButton11: TToolButton
|
object ToolButton11: TToolButton
|
||||||
Left = 689
|
Left = 270
|
||||||
Top = 44
|
Top = 49
|
||||||
Action = RichEditAlignRight1
|
Action = RichEditAlignRight1
|
||||||
AutoSize = True
|
AutoSize = True
|
||||||
end
|
end
|
||||||
end
|
end
|
||||||
object cxGrid: TcxGrid
|
object cxGrid: TcxGrid
|
||||||
Left = 0
|
Left = 0
|
||||||
Top = 94
|
Top = 99
|
||||||
Width = 451
|
Width = 451
|
||||||
Height = 210
|
Height = 205
|
||||||
Align = alClient
|
Align = alClient
|
||||||
Font.Charset = DEFAULT_CHARSET
|
Font.Charset = DEFAULT_CHARSET
|
||||||
Font.Color = clWindowText
|
Font.Color = clWindowText
|
||||||
@ -161,8 +161,6 @@ inherited frViewDetallesBase: TfrViewDetallesBase
|
|||||||
TabOrder = 1
|
TabOrder = 1
|
||||||
LookAndFeel.Kind = lfStandard
|
LookAndFeel.Kind = lfStandard
|
||||||
LookAndFeel.NativeStyle = True
|
LookAndFeel.NativeStyle = True
|
||||||
ExplicitTop = 99
|
|
||||||
ExplicitHeight = 205
|
|
||||||
object cxGridView: TcxGridDBTableView
|
object cxGridView: TcxGridDBTableView
|
||||||
OnKeyDown = cxGridViewKeyDown
|
OnKeyDown = cxGridViewKeyDown
|
||||||
NavigatorButtons.ConfirmDelete = False
|
NavigatorButtons.ConfirmDelete = False
|
||||||
@ -344,100 +342,98 @@ inherited frViewDetallesBase: TfrViewDetallesBase
|
|||||||
GridView = cxGridView
|
GridView = cxGridView
|
||||||
end
|
end
|
||||||
end
|
end
|
||||||
object TBXDock1: TTBXDock
|
object TBXDock1: TSpTBXDock
|
||||||
Left = 0
|
Left = 0
|
||||||
Top = 68
|
Top = 73
|
||||||
Width = 451
|
Width = 451
|
||||||
Height = 26
|
Height = 26
|
||||||
BackgroundOnToolbars = False
|
BackgroundOnToolbars = False
|
||||||
UseParentBackground = True
|
object TBXToolbar1: TSpTBXToolbar
|
||||||
ExplicitTop = 73
|
|
||||||
object TBXToolbar1: TTBXToolbar
|
|
||||||
Left = 0
|
Left = 0
|
||||||
Top = 0
|
Top = 0
|
||||||
Caption = 'TBXToolbar1'
|
|
||||||
DragHandleStyle = dhNone
|
DragHandleStyle = dhNone
|
||||||
Images = ContenidoImageList
|
Images = ContenidoImageList
|
||||||
TabOrder = 0
|
TabOrder = 0
|
||||||
object TBXSubmenuItem1: TTBXSubmenuItem
|
Caption = 'TBXToolbar1'
|
||||||
|
object TBXSubmenuItem1: TSpTBXSubmenuItem
|
||||||
Caption = 'A'#241'adir...'
|
Caption = 'A'#241'adir...'
|
||||||
DisplayMode = nbdmImageAndText
|
DisplayMode = nbdmImageAndText
|
||||||
ImageIndex = 12
|
ImageIndex = 12
|
||||||
object TBXItem16: TTBXItem
|
object TBXItem16: TSpTBXItem
|
||||||
Action = actAnadirCapitulo
|
Action = actAnadirCapitulo
|
||||||
Images = ContenidoImageList
|
Images = ContenidoImageList
|
||||||
end
|
end
|
||||||
object TBXSeparatorItem7: TTBXSeparatorItem
|
object TBXSeparatorItem7: TSpTBXSeparatorItem
|
||||||
end
|
end
|
||||||
object TBXItem15: TTBXItem
|
object TBXItem15: TSpTBXItem
|
||||||
Action = actAnadirTitulo
|
Action = actAnadirTitulo
|
||||||
Images = ContenidoImageList
|
Images = ContenidoImageList
|
||||||
end
|
end
|
||||||
object TBXItem14: TTBXItem
|
object TBXItem14: TSpTBXItem
|
||||||
Action = actAnadirSubtotal
|
Action = actAnadirSubtotal
|
||||||
Images = ContenidoImageList
|
Images = ContenidoImageList
|
||||||
end
|
end
|
||||||
object TBXItem12: TTBXItem
|
object TBXItem12: TSpTBXItem
|
||||||
Action = actAnadirDescuento
|
Action = actAnadirDescuento
|
||||||
Images = ContenidoImageList
|
Images = ContenidoImageList
|
||||||
end
|
end
|
||||||
end
|
end
|
||||||
object TBXSeparatorItem6: TTBXSeparatorItem
|
object TBXSeparatorItem6: TSpTBXSeparatorItem
|
||||||
end
|
end
|
||||||
object TBXItem1: TTBXItem
|
object TBXItem1: TSpTBXItem
|
||||||
Action = actAnadir
|
Action = actAnadir
|
||||||
DisplayMode = nbdmImageAndText
|
DisplayMode = nbdmImageAndText
|
||||||
Images = ContenidoImageList
|
Images = ContenidoImageList
|
||||||
end
|
end
|
||||||
object TBXItem2: TTBXItem
|
object TBXItem2: TSpTBXItem
|
||||||
Action = actEliminar
|
Action = actEliminar
|
||||||
DisplayMode = nbdmImageAndText
|
DisplayMode = nbdmImageAndText
|
||||||
Images = ContenidoImageList
|
Images = ContenidoImageList
|
||||||
end
|
end
|
||||||
object TBXSeparatorItem1: TTBXSeparatorItem
|
object TBXSeparatorItem1: TSpTBXSeparatorItem
|
||||||
end
|
end
|
||||||
object TBXItem3: TTBXItem
|
object TBXItem3: TSpTBXItem
|
||||||
Action = actSubir
|
Action = actSubir
|
||||||
DisplayMode = nbdmImageAndText
|
DisplayMode = nbdmImageAndText
|
||||||
end
|
end
|
||||||
object TBXItem4: TTBXItem
|
object TBXItem4: TSpTBXItem
|
||||||
Action = actBajar
|
Action = actBajar
|
||||||
DisplayMode = nbdmImageAndText
|
DisplayMode = nbdmImageAndText
|
||||||
end
|
end
|
||||||
object TBXSeparatorItem2: TTBXSeparatorItem
|
object TBXSeparatorItem2: TSpTBXSeparatorItem
|
||||||
end
|
end
|
||||||
object TBXItem5: TTBXItem
|
object TBXItem5: TSpTBXItem
|
||||||
Action = RichEditBold1
|
Action = RichEditBold1
|
||||||
end
|
end
|
||||||
object TBXItem6: TTBXItem
|
object TBXItem6: TSpTBXItem
|
||||||
Action = RichEditItalic1
|
Action = RichEditItalic1
|
||||||
end
|
end
|
||||||
object TBXItem7: TTBXItem
|
object TBXItem7: TSpTBXItem
|
||||||
Action = RichEditUnderline1
|
Action = RichEditUnderline1
|
||||||
end
|
end
|
||||||
object TBXSeparatorItem4: TTBXSeparatorItem
|
object TBXSeparatorItem4: TSpTBXSeparatorItem
|
||||||
end
|
end
|
||||||
object TBXItem9: TTBXItem
|
object TBXItem9: TSpTBXItem
|
||||||
Action = RichEditAlignLeft1
|
Action = RichEditAlignLeft1
|
||||||
end
|
end
|
||||||
object TBXItem10: TTBXItem
|
object TBXItem10: TSpTBXItem
|
||||||
Action = RichEditAlignCenter1
|
Action = RichEditAlignCenter1
|
||||||
end
|
end
|
||||||
object TBXItem11: TTBXItem
|
object TBXItem11: TSpTBXItem
|
||||||
Action = RichEditAlignRight1
|
Action = RichEditAlignRight1
|
||||||
end
|
end
|
||||||
object TBXSeparatorItem3: TTBXSeparatorItem
|
object TBXSeparatorItem3: TSpTBXSeparatorItem
|
||||||
end
|
end
|
||||||
object TBXItem8: TTBXItem
|
object TBXItem8: TSpTBXItem
|
||||||
Action = FontEdit1
|
Action = FontEdit1
|
||||||
end
|
end
|
||||||
object TBXSeparatorItem5: TTBXSeparatorItem
|
object TBXSeparatorItem5: TSpTBXSeparatorItem
|
||||||
end
|
end
|
||||||
object TBXItem13: TTBXItem
|
object TBXItem13: TSpTBXItem
|
||||||
Action = actAnchoAutomatico
|
Action = actAnchoAutomatico
|
||||||
DisplayMode = nbdmImageAndText
|
DisplayMode = nbdmImageAndText
|
||||||
end
|
end
|
||||||
object TBXItem17: TTBXItem
|
object TBXItem17: TSpTBXItem
|
||||||
Action = actExportar
|
Action = actExportar
|
||||||
end
|
end
|
||||||
end
|
end
|
||||||
|
|||||||
@ -12,8 +12,9 @@ uses
|
|||||||
uGridStatusUtils, uControllerDetallesBase, cxCurrencyEdit,
|
uGridStatusUtils, uControllerDetallesBase, cxCurrencyEdit,
|
||||||
ExtCtrls, Grids, DBGrids, StdCtrls,
|
ExtCtrls, Grids, DBGrids, StdCtrls,
|
||||||
ExtActns, StdActns, cxRichEdit, JvExStdCtrls, JvCombobox, JvColorCombo,
|
ExtActns, StdActns, cxRichEdit, JvExStdCtrls, JvCombobox, JvColorCombo,
|
||||||
TB2Item, TBX, TB2Dock, TB2Toolbar, uDAInterfaces, cxContainer,
|
TB2Item, SpTBXItem, TB2Dock, TB2Toolbar, uDAInterfaces, cxContainer,
|
||||||
Menus, cxGridCustomPopupMenu, cxGridPopupMenu;
|
Menus, cxGridCustomPopupMenu, cxGridPopupMenu, cxLookAndFeels,
|
||||||
|
cxLookAndFeelPainters;
|
||||||
|
|
||||||
type
|
type
|
||||||
IViewDetallesBase = interface(IViewBase)
|
IViewDetallesBase = interface(IViewBase)
|
||||||
@ -86,28 +87,28 @@ type
|
|||||||
UpDown1: TUpDown;
|
UpDown1: TUpDown;
|
||||||
FontSize: TEdit;
|
FontSize: TEdit;
|
||||||
FontName: TJvFontComboBox;
|
FontName: TJvFontComboBox;
|
||||||
TBXDock1: TTBXDock;
|
TBXDock1: TSpTBXDock;
|
||||||
TBXToolbar1: TTBXToolbar;
|
TBXToolbar1: TSpTBXToolbar;
|
||||||
TBXItem1: TTBXItem;
|
TBXItem1: TSpTBXItem;
|
||||||
TBXItem2: TTBXItem;
|
TBXItem2: TSpTBXItem;
|
||||||
TBXSeparatorItem1: TTBXSeparatorItem;
|
TBXSeparatorItem1: TSpTBXSeparatorItem;
|
||||||
TBXItem3: TTBXItem;
|
TBXItem3: TSpTBXItem;
|
||||||
TBXItem4: TTBXItem;
|
TBXItem4: TSpTBXItem;
|
||||||
TBXSeparatorItem2: TTBXSeparatorItem;
|
TBXSeparatorItem2: TSpTBXSeparatorItem;
|
||||||
TBXItem5: TTBXItem;
|
TBXItem5: TSpTBXItem;
|
||||||
TBXItem6: TTBXItem;
|
TBXItem6: TSpTBXItem;
|
||||||
TBXItem7: TTBXItem;
|
TBXItem7: TSpTBXItem;
|
||||||
TBXSeparatorItem3: TTBXSeparatorItem;
|
TBXSeparatorItem3: TSpTBXSeparatorItem;
|
||||||
TBXItem8: TTBXItem;
|
TBXItem8: TSpTBXItem;
|
||||||
TBXSeparatorItem4: TTBXSeparatorItem;
|
TBXSeparatorItem4: TSpTBXSeparatorItem;
|
||||||
TBXItem9: TTBXItem;
|
TBXItem9: TSpTBXItem;
|
||||||
TBXItem10: TTBXItem;
|
TBXItem10: TSpTBXItem;
|
||||||
TBXItem11: TTBXItem;
|
TBXItem11: TSpTBXItem;
|
||||||
cxStyle_SUBTOTAL: TcxStyle;
|
cxStyle_SUBTOTAL: TcxStyle;
|
||||||
cxStyle_TITULO: TcxStyle;
|
cxStyle_TITULO: TcxStyle;
|
||||||
actAnchoAutomatico: TAction;
|
actAnchoAutomatico: TAction;
|
||||||
TBXSeparatorItem5: TTBXSeparatorItem;
|
TBXSeparatorItem5: TSpTBXSeparatorItem;
|
||||||
TBXItem13: TTBXItem;
|
TBXItem13: TSpTBXItem;
|
||||||
cxStyle_DESCUENTO: TcxStyle;
|
cxStyle_DESCUENTO: TcxStyle;
|
||||||
actDetallesCortar: TAction;
|
actDetallesCortar: TAction;
|
||||||
actDetallesCopiar: TAction;
|
actDetallesCopiar: TAction;
|
||||||
@ -116,17 +117,17 @@ type
|
|||||||
cxStyle_ESPECIALES: TcxStyle;
|
cxStyle_ESPECIALES: TcxStyle;
|
||||||
cxStyle_NORMAL_PAR: TcxStyle;
|
cxStyle_NORMAL_PAR: TcxStyle;
|
||||||
cxStyle_NORMAL_IMPAR: TcxStyle;
|
cxStyle_NORMAL_IMPAR: TcxStyle;
|
||||||
TBXSubmenuItem1: TTBXSubmenuItem;
|
TBXSubmenuItem1: TSpTBXSubmenuItem;
|
||||||
TBXSeparatorItem6: TTBXSeparatorItem;
|
TBXSeparatorItem6: TSpTBXSeparatorItem;
|
||||||
actAnadirCapitulo: TAction;
|
actAnadirCapitulo: TAction;
|
||||||
actAnadirTitulo: TAction;
|
actAnadirTitulo: TAction;
|
||||||
actAnadirSubtotal: TAction;
|
actAnadirSubtotal: TAction;
|
||||||
actAnadirDescuento: TAction;
|
actAnadirDescuento: TAction;
|
||||||
TBXItem12: TTBXItem;
|
TBXItem12: TSpTBXItem;
|
||||||
TBXItem14: TTBXItem;
|
TBXItem14: TSpTBXItem;
|
||||||
TBXItem15: TTBXItem;
|
TBXItem15: TSpTBXItem;
|
||||||
TBXItem16: TTBXItem;
|
TBXItem16: TSpTBXItem;
|
||||||
TBXSeparatorItem7: TTBXSeparatorItem;
|
TBXSeparatorItem7: TSpTBXSeparatorItem;
|
||||||
cxGridPopupMenu: TcxGridPopupMenu;
|
cxGridPopupMenu: TcxGridPopupMenu;
|
||||||
GridGeneralPopupMenu: TPopupMenu;
|
GridGeneralPopupMenu: TPopupMenu;
|
||||||
dsds1: TMenuItem;
|
dsds1: TMenuItem;
|
||||||
@ -145,7 +146,7 @@ type
|
|||||||
actSeleccionarTodo: TAction;
|
actSeleccionarTodo: TAction;
|
||||||
Seleccionartodo1: TMenuItem;
|
Seleccionartodo1: TMenuItem;
|
||||||
cxStyle_TITULO_OPCIONAL: TcxStyle;
|
cxStyle_TITULO_OPCIONAL: TcxStyle;
|
||||||
TBXItem17: TTBXItem;
|
TBXItem17: TSpTBXItem;
|
||||||
procedure actAnadirExecute(Sender: TObject);
|
procedure actAnadirExecute(Sender: TObject);
|
||||||
procedure actEliminarExecute(Sender: TObject);
|
procedure actEliminarExecute(Sender: TObject);
|
||||||
procedure actSubirExecute(Sender: TObject);
|
procedure actSubirExecute(Sender: TObject);
|
||||||
|
|||||||
@ -3,22 +3,23 @@ inherited frViewDetallesDTO: TfrViewDetallesDTO
|
|||||||
inherited ToolButton1: TToolButton
|
inherited ToolButton1: TToolButton
|
||||||
ExplicitWidth = 109
|
ExplicitWidth = 109
|
||||||
end
|
end
|
||||||
inherited ToolButton14: TToolButton [1]
|
inherited ToolButton2: TToolButton
|
||||||
Left = 109
|
Left = 109
|
||||||
Wrap = False
|
ExplicitLeft = 109
|
||||||
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
|
|
||||||
ExplicitWidth = 114
|
ExplicitWidth = 114
|
||||||
end
|
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
|
inherited FontSize: TEdit
|
||||||
Width = 41
|
Width = 41
|
||||||
ExplicitWidth = 41
|
ExplicitWidth = 41
|
||||||
|
|||||||
@ -7,11 +7,11 @@ uses
|
|||||||
Dialogs, uViewDetallesBase, cxStyles, cxCustomData, cxGraphics, cxFilter,
|
Dialogs, uViewDetallesBase, cxStyles, cxCustomData, cxGraphics, cxFilter,
|
||||||
cxData, cxDataStorage, cxEdit, DB, cxDBData, cxImageComboBox, cxRichEdit,
|
cxData, cxDataStorage, cxEdit, DB, cxDBData, cxImageComboBox, cxRichEdit,
|
||||||
cxMaskEdit, cxCurrencyEdit, cxCheckBox, ImgList, PngImageList, uDADataTable,
|
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,
|
cxGridCustomTableView, cxGridTableView, cxGridDBTableView, cxClasses,
|
||||||
cxControls, cxGridCustomView, cxGrid, ComCtrls, StdCtrls, JvExStdCtrls,
|
cxControls, cxGridCustomView, cxGrid, ComCtrls, StdCtrls, JvExStdCtrls,
|
||||||
JvCombobox, JvColorCombo, ToolWin, uDAInterfaces, Menus,
|
JvCombobox, JvColorCombo, ToolWin, uDAInterfaces, Menus,
|
||||||
cxGridCustomPopupMenu, cxGridPopupMenu;
|
cxGridCustomPopupMenu, cxGridPopupMenu, cxLookAndFeels, cxLookAndFeelPainters;
|
||||||
|
|
||||||
type
|
type
|
||||||
IViewDetallesDTO = interface(IViewDetallesBase)
|
IViewDetallesDTO = interface(IViewDetallesBase)
|
||||||
|
|||||||
@ -8,7 +8,8 @@ uses
|
|||||||
cxDataStorage, cxEdit, DB, cxDBData, cxTextEdit, ActnList, ImgList,
|
cxDataStorage, cxEdit, DB, cxDBData, cxTextEdit, ActnList, ImgList,
|
||||||
PngImageList, uDADataTable, ComCtrls, ToolWin, cxGridLevel,
|
PngImageList, uDADataTable, ComCtrls, ToolWin, cxGridLevel,
|
||||||
cxGridCustomTableView, cxGridTableView, cxGridDBTableView, cxClasses,
|
cxGridCustomTableView, cxGridTableView, cxGridDBTableView, cxClasses,
|
||||||
cxControls, cxGridCustomView, cxGrid, uDAInterfaces;
|
cxControls, cxGridCustomView, cxGrid, uDAInterfaces, cxLookAndFeels,
|
||||||
|
cxLookAndFeelPainters;
|
||||||
|
|
||||||
type
|
type
|
||||||
IViewDetallesGenerico = interface(IViewBase)
|
IViewDetallesGenerico = interface(IViewBase)
|
||||||
|
|||||||
@ -1,12 +1,12 @@
|
|||||||
inherited frViewDocumentos: TfrViewDocumentos
|
inherited frViewDocumentos: TfrViewDocumentos
|
||||||
OnCreate = CustomViewCreate
|
OnCreate = CustomViewCreate
|
||||||
OnDestroy = CustomViewDestroy
|
OnDestroy = CustomViewDestroy
|
||||||
object TBXDock: TTBXDock
|
object TBXDock: TSpTBXDock
|
||||||
Left = 0
|
Left = 0
|
||||||
Top = 0
|
Top = 0
|
||||||
Width = 445
|
Width = 445
|
||||||
Height = 23
|
Height = 23
|
||||||
object tbxMain: TTBXToolbar
|
object tbxMain: TSpTBXToolbar
|
||||||
Left = 0
|
Left = 0
|
||||||
Top = 0
|
Top = 0
|
||||||
Caption = 'tbxMain'
|
Caption = 'tbxMain'
|
||||||
@ -18,22 +18,22 @@ inherited frViewDocumentos: TfrViewDocumentos
|
|||||||
ParentShowHint = False
|
ParentShowHint = False
|
||||||
ShowHint = True
|
ShowHint = True
|
||||||
TabOrder = 0
|
TabOrder = 0
|
||||||
object TBXItem2: TTBXItem
|
object TBXItem2: TSpTBXItem
|
||||||
Action = actAnadir
|
Action = actAnadir
|
||||||
DisplayMode = nbdmImageAndText
|
DisplayMode = nbdmImageAndText
|
||||||
end
|
end
|
||||||
object TBXItem3: TTBXItem
|
object TBXItem3: TSpTBXItem
|
||||||
Action = actModificar
|
Action = actModificar
|
||||||
end
|
end
|
||||||
object TBXItem1: TTBXItem
|
object TBXItem1: TSpTBXItem
|
||||||
Action = actEliminar
|
Action = actEliminar
|
||||||
end
|
end
|
||||||
object TBXSeparatorItem1: TTBXSeparatorItem
|
object TBXSeparatorItem1: TSpTBXSeparatorItem
|
||||||
end
|
end
|
||||||
object TBXItem4: TTBXItem
|
object TBXItem4: TSpTBXItem
|
||||||
Action = actEliminarTodo
|
Action = actEliminarTodo
|
||||||
end
|
end
|
||||||
object TBXItem5: TTBXItem
|
object TBXItem5: TSpTBXItem
|
||||||
Action = actActualizarServidor
|
Action = actActualizarServidor
|
||||||
end
|
end
|
||||||
end
|
end
|
||||||
|
|||||||
@ -5,29 +5,29 @@ interface
|
|||||||
uses
|
uses
|
||||||
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
|
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
|
||||||
Dialogs, uViewBase, cxControls,
|
Dialogs, uViewBase, cxControls,
|
||||||
cxContainer, ActnList, TB2Item, TBX, TB2Dock, TB2Toolbar, StdCtrls,
|
cxContainer, ActnList, TB2Item, SpTBXItem, TB2Dock, TB2Toolbar, StdCtrls,
|
||||||
FileCtrl, cxGraphics, cxCustomData, cxStyles, cxTL, cxInplaceContainer,
|
FileCtrl, cxGraphics, cxCustomData, cxStyles, cxTL, cxInplaceContainer,
|
||||||
cxTLData, cxTextEdit, ComCtrls, ImgList, PngImageList;
|
cxTLData, cxTextEdit, ComCtrls, ImgList, PngImageList;
|
||||||
|
|
||||||
type
|
type
|
||||||
TfrViewDocumentos = class(TfrViewBase)
|
TfrViewDocumentos = class(TfrViewBase)
|
||||||
EditorActionList: TActionList;
|
EditorActionList: TActionList;
|
||||||
TBXDock: TTBXDock;
|
TBXDock: TSpTBXDock;
|
||||||
tbxMain: TTBXToolbar;
|
tbxMain: TSpTBXToolbar;
|
||||||
TBXItem2: TTBXItem;
|
TBXItem2: TSpTBXItem;
|
||||||
actAnadir: TAction;
|
actAnadir: TAction;
|
||||||
actModificar: TAction;
|
actModificar: TAction;
|
||||||
actEliminar: TAction;
|
actEliminar: TAction;
|
||||||
TBXItem1: TTBXItem;
|
TBXItem1: TSpTBXItem;
|
||||||
TBXItem3: TTBXItem;
|
TBXItem3: TSpTBXItem;
|
||||||
actEliminarTodo: TAction;
|
actEliminarTodo: TAction;
|
||||||
TBXItem4: TTBXItem;
|
TBXItem4: TSpTBXItem;
|
||||||
actActualizarServidor: TAction;
|
actActualizarServidor: TAction;
|
||||||
TBXItem5: TTBXItem;
|
TBXItem5: TSpTBXItem;
|
||||||
ListView1: TListView;
|
ListView1: TListView;
|
||||||
LargeImagesBrowser: TPngImageList;
|
LargeImagesBrowser: TPngImageList;
|
||||||
SmallImagesBrowser: TPngImageList;
|
SmallImagesBrowser: TPngImageList;
|
||||||
TBXSeparatorItem1: TTBXSeparatorItem;
|
TBXSeparatorItem1: TSpTBXSeparatorItem;
|
||||||
procedure actAnadirExecute(Sender: TObject);
|
procedure actAnadirExecute(Sender: TObject);
|
||||||
procedure actModificarExecute(Sender: TObject);
|
procedure actModificarExecute(Sender: TObject);
|
||||||
procedure actEliminarExecute(Sender: TObject);
|
procedure actEliminarExecute(Sender: TObject);
|
||||||
|
|||||||
@ -4,21 +4,17 @@ inherited frViewFiltroBase: TfrViewFiltroBase
|
|||||||
Visible = False
|
Visible = False
|
||||||
ExplicitWidth = 549
|
ExplicitWidth = 549
|
||||||
ExplicitHeight = 105
|
ExplicitHeight = 105
|
||||||
object TBXDockablePanel1: TTBXDockablePanel
|
object TBXDockablePanel1: TSpTBXDockablePanel
|
||||||
Left = 0
|
Left = 0
|
||||||
Top = 0
|
Top = 0
|
||||||
Align = alClient
|
Width = 549
|
||||||
|
Height = 105
|
||||||
Caption = 'TBXDockablePanel1'
|
Caption = 'TBXDockablePanel1'
|
||||||
CloseButton = False
|
Align = alClient
|
||||||
CloseButtonWhenDocked = False
|
|
||||||
DockedHeight = 98
|
|
||||||
DockMode = dmCannotFloatOrChangeDocks
|
DockMode = dmCannotFloatOrChangeDocks
|
||||||
FloatingWidth = 128
|
TabOrder = 0
|
||||||
FloatingHeight = 98
|
|
||||||
ShowCaption = False
|
ShowCaption = False
|
||||||
ShowCaptionWhenDocked = False
|
ShowCaptionWhenDocked = False
|
||||||
SupportedDocks = [dkStandardDock, dkMultiDock]
|
|
||||||
TabOrder = 0
|
|
||||||
object dxLayoutControl1: TdxLayoutControl
|
object dxLayoutControl1: TdxLayoutControl
|
||||||
Left = 0
|
Left = 0
|
||||||
Top = 0
|
Top = 0
|
||||||
@ -28,7 +24,6 @@ inherited frViewFiltroBase: TfrViewFiltroBase
|
|||||||
ParentBackground = True
|
ParentBackground = True
|
||||||
TabOrder = 0
|
TabOrder = 0
|
||||||
TabStop = False
|
TabStop = False
|
||||||
AutoContentSizes = [acsWidth, acsHeight]
|
|
||||||
object txtFiltroTodo: TcxTextEdit
|
object txtFiltroTodo: TcxTextEdit
|
||||||
Left = 87
|
Left = 87
|
||||||
Top = 10
|
Top = 10
|
||||||
@ -100,7 +95,7 @@ inherited frViewFiltroBase: TfrViewFiltroBase
|
|||||||
Width = 100
|
Width = 100
|
||||||
end
|
end
|
||||||
object eLista: TcxComboBox
|
object eLista: TcxComboBox
|
||||||
Left = 331
|
Left = 332
|
||||||
Top = 37
|
Top = 37
|
||||||
Properties.DropDownListStyle = lsEditFixedList
|
Properties.DropDownListStyle = lsEditFixedList
|
||||||
Properties.OnChange = OnCamposFiltroChange
|
Properties.OnChange = OnCamposFiltroChange
|
||||||
@ -117,37 +112,38 @@ inherited frViewFiltroBase: TfrViewFiltroBase
|
|||||||
Width = 215
|
Width = 215
|
||||||
end
|
end
|
||||||
object dxLayoutControl1Group_Root: TdxLayoutGroup
|
object dxLayoutControl1Group_Root: TdxLayoutGroup
|
||||||
ShowCaption = False
|
AlignHorz = ahParentManaged
|
||||||
|
AlignVert = avParentManaged
|
||||||
|
CaptionOptions.Visible = False
|
||||||
|
ButtonOptions.Buttons = <>
|
||||||
Hidden = True
|
Hidden = True
|
||||||
ShowBorder = False
|
ShowBorder = False
|
||||||
object dxLayoutControl1Item1: TdxLayoutItem
|
object dxLayoutControl1Item1: TdxLayoutItem
|
||||||
Caption = 'Que contenga:'
|
CaptionOptions.Text = 'Que contenga:'
|
||||||
Control = txtFiltroTodo
|
Control = txtFiltroTodo
|
||||||
ControlOptions.ShowBorder = False
|
ControlOptions.ShowBorder = False
|
||||||
end
|
end
|
||||||
object dxLayoutControl1Group1: TdxLayoutGroup
|
object dxLayoutControl1Group1: TdxLayoutGroup
|
||||||
ShowCaption = False
|
CaptionOptions.Visible = False
|
||||||
|
ButtonOptions.Buttons = <>
|
||||||
Hidden = True
|
Hidden = True
|
||||||
LayoutDirection = ldHorizontal
|
LayoutDirection = ldHorizontal
|
||||||
ShowBorder = False
|
ShowBorder = False
|
||||||
object dxLayoutControl1Item2: TdxLayoutItem
|
object dxLayoutControl1Item2: TdxLayoutItem
|
||||||
AutoAligns = [aaVertical]
|
|
||||||
AlignHorz = ahClient
|
AlignHorz = ahClient
|
||||||
Caption = 'Entre la fecha:'
|
CaptionOptions.Text = 'Entre la fecha:'
|
||||||
Control = edtFechaIniFiltro
|
Control = edtFechaIniFiltro
|
||||||
ControlOptions.ShowBorder = False
|
ControlOptions.ShowBorder = False
|
||||||
end
|
end
|
||||||
object dxLayoutControl1Item3: TdxLayoutItem
|
object dxLayoutControl1Item3: TdxLayoutItem
|
||||||
AutoAligns = [aaVertical]
|
|
||||||
AlignHorz = ahClient
|
AlignHorz = ahClient
|
||||||
Caption = 'y'
|
CaptionOptions.Text = 'y'
|
||||||
Control = edtFechaFinFiltro
|
Control = edtFechaFinFiltro
|
||||||
ControlOptions.ShowBorder = False
|
ControlOptions.ShowBorder = False
|
||||||
end
|
end
|
||||||
object dxLayoutControl1Item4: TdxLayoutItem
|
object dxLayoutControl1Item4: TdxLayoutItem
|
||||||
AutoAligns = [aaVertical]
|
|
||||||
AlignHorz = ahClient
|
AlignHorz = ahClient
|
||||||
Caption = 'Lista:'
|
CaptionOptions.Text = 'Lista:'
|
||||||
Visible = False
|
Visible = False
|
||||||
Control = eLista
|
Control = eLista
|
||||||
ControlOptions.ShowBorder = False
|
ControlOptions.ShowBorder = False
|
||||||
@ -155,23 +151,28 @@ inherited frViewFiltroBase: TfrViewFiltroBase
|
|||||||
end
|
end
|
||||||
end
|
end
|
||||||
end
|
end
|
||||||
object TBXAlignmentPanel1: TTBXAlignmentPanel
|
object TBXAlignmentPanel1: TSpTBXDockablePanel
|
||||||
Left = 0
|
AlignWithMargins = True
|
||||||
|
Left = 10
|
||||||
Top = 73
|
Top = 73
|
||||||
Width = 549
|
Width = 539
|
||||||
Height = 30
|
Height = 30
|
||||||
Margins.Left = 10
|
Margins.Left = 10
|
||||||
|
Margins.Top = 0
|
||||||
|
Margins.Right = 0
|
||||||
|
Margins.Bottom = 0
|
||||||
Align = alTop
|
Align = alTop
|
||||||
TabOrder = 1
|
TabOrder = 1
|
||||||
object tbxBotones: TTBXToolbar
|
ShowCaption = False
|
||||||
Left = 10
|
ShowCaptionWhenDocked = False
|
||||||
|
object tbxBotones: TSpTBXToolbar
|
||||||
|
Left = 0
|
||||||
Top = 0
|
Top = 0
|
||||||
Width = 539
|
Width = 539
|
||||||
Height = 30
|
Height = 30
|
||||||
Align = alTop
|
Align = alTop
|
||||||
AutoResize = False
|
AutoResize = False
|
||||||
BorderStyle = bsNone
|
BorderStyle = bsNone
|
||||||
Caption = 'tbxBotones'
|
|
||||||
ChevronHint = 'M'#225's botones|'
|
ChevronHint = 'M'#225's botones|'
|
||||||
DockMode = dmCannotFloatOrChangeDocks
|
DockMode = dmCannotFloatOrChangeDocks
|
||||||
DockPos = -23
|
DockPos = -23
|
||||||
@ -180,7 +181,8 @@ inherited frViewFiltroBase: TfrViewFiltroBase
|
|||||||
ParentShowHint = False
|
ParentShowHint = False
|
||||||
ShowHint = True
|
ShowHint = True
|
||||||
TabOrder = 0
|
TabOrder = 0
|
||||||
object TBXItem2: TTBXItem
|
Caption = 'tbxBotones'
|
||||||
|
object TBXItem2: TSpTBXItem
|
||||||
Action = actQuitarFiltro
|
Action = actQuitarFiltro
|
||||||
DisplayMode = nbdmImageAndText
|
DisplayMode = nbdmImageAndText
|
||||||
Images = PngImageList
|
Images = PngImageList
|
||||||
|
|||||||
@ -4,10 +4,11 @@ interface
|
|||||||
|
|
||||||
uses
|
uses
|
||||||
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
|
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
|
||||||
Dialogs, StdCtrls, Buttons, cxRadioGroup, TBXDkPanels, TB2ExtItems, TBXExtItems,
|
Dialogs, StdCtrls, Buttons, cxRadioGroup, SpTBXDkPanels, TB2ExtItems,
|
||||||
TBX, TB2Item, TB2Dock, TB2Toolbar, ActnList, ImgList, PngImageList,
|
SpTBXItem, TB2Item, TB2Dock, TB2Toolbar, ActnList, ImgList, PngImageList,
|
||||||
cxGraphics, dxLayoutLookAndFeels, dxLayoutControl, cxDropDownEdit, cxMaskEdit,
|
cxGraphics, dxLayoutLookAndFeels, dxLayoutControl, cxDropDownEdit, cxMaskEdit,
|
||||||
cxCalendar, cxContainer, cxEdit, cxTextEdit, cxControls, uViewBase;
|
cxCalendar, cxContainer, cxEdit, cxTextEdit, cxControls, uViewBase,
|
||||||
|
cxLookAndFeels, cxLookAndFeelPainters, dxLayoutcxEditAdapters;
|
||||||
|
|
||||||
type
|
type
|
||||||
IViewFiltroBase = interface(IViewBase)
|
IViewFiltroBase = interface(IViewBase)
|
||||||
@ -36,13 +37,13 @@ type
|
|||||||
dxLayoutControl1Item3: TdxLayoutItem;
|
dxLayoutControl1Item3: TdxLayoutItem;
|
||||||
edtFechaFinFiltro: TcxDateEdit;
|
edtFechaFinFiltro: TcxDateEdit;
|
||||||
dxLayoutControl1Group1: TdxLayoutGroup;
|
dxLayoutControl1Group1: TdxLayoutGroup;
|
||||||
TBXDockablePanel1: TTBXDockablePanel;
|
TBXDockablePanel1: TSpTBXDockablePanel;
|
||||||
ActionList1: TActionList;
|
ActionList1: TActionList;
|
||||||
actQuitarFiltro: TAction;
|
actQuitarFiltro: TAction;
|
||||||
PngImageList: TPngImageList;
|
PngImageList: TPngImageList;
|
||||||
tbxBotones: TTBXToolbar;
|
tbxBotones: TSpTBXToolbar;
|
||||||
TBXItem2: TTBXItem;
|
TBXItem2: TSpTBXItem;
|
||||||
TBXAlignmentPanel1: TTBXAlignmentPanel;
|
TBXAlignmentPanel1: TSpTBXDockablePanel;
|
||||||
dxLayoutControl1Item4: TdxLayoutItem;
|
dxLayoutControl1Item4: TdxLayoutItem;
|
||||||
eLista: TcxComboBox;
|
eLista: TcxComboBox;
|
||||||
procedure OnCamposFiltroChange(Sender: TObject);
|
procedure OnCamposFiltroChange(Sender: TObject);
|
||||||
|
|||||||
@ -5,7 +5,8 @@ interface
|
|||||||
uses
|
uses
|
||||||
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
|
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
|
||||||
Dialogs, uViewBase, DB, uDADataTable, cxMemo, cxDBEdit, cxControls,
|
Dialogs, uViewBase, DB, uDADataTable, cxMemo, cxDBEdit, cxControls,
|
||||||
cxContainer, cxEdit, cxTextEdit, ExtCtrls, StdCtrls, uDAInterfaces;
|
cxContainer, cxEdit, cxTextEdit, ExtCtrls, StdCtrls, uDAInterfaces,
|
||||||
|
cxGraphics, cxLookAndFeels, cxLookAndFeelPainters;
|
||||||
|
|
||||||
type
|
type
|
||||||
TfrViewFormaPago = class(TfrViewBase)
|
TfrViewFormaPago = class(TfrViewBase)
|
||||||
|
|||||||
@ -7,7 +7,7 @@ inherited frViewGrid: TfrViewGrid
|
|||||||
Left = 0
|
Left = 0
|
||||||
Top = 102
|
Top = 102
|
||||||
Width = 607
|
Width = 607
|
||||||
Height = 313
|
Height = 211
|
||||||
Align = alClient
|
Align = alClient
|
||||||
Font.Charset = DEFAULT_CHARSET
|
Font.Charset = DEFAULT_CHARSET
|
||||||
Font.Color = clWindowText
|
Font.Color = clWindowText
|
||||||
@ -84,7 +84,9 @@ inherited frViewGrid: TfrViewGrid
|
|||||||
ReadOnly = False
|
ReadOnly = False
|
||||||
ExplicitWidth = 607
|
ExplicitWidth = 607
|
||||||
ExplicitHeight = 102
|
ExplicitHeight = 102
|
||||||
inherited TBXDockablePanel1: TTBXDockablePanel
|
inherited TBXDockablePanel1: TSpTBXDockablePanel
|
||||||
|
Width = 607
|
||||||
|
Height = 102
|
||||||
ExplicitWidth = 607
|
ExplicitWidth = 607
|
||||||
ExplicitHeight = 102
|
ExplicitHeight = 102
|
||||||
inherited dxLayoutControl1: TdxLayoutControl
|
inherited dxLayoutControl1: TdxLayoutControl
|
||||||
@ -127,30 +129,28 @@ inherited frViewGrid: TfrViewGrid
|
|||||||
Width = 215
|
Width = 215
|
||||||
end
|
end
|
||||||
end
|
end
|
||||||
inherited TBXAlignmentPanel1: TTBXAlignmentPanel
|
inherited TBXAlignmentPanel1: TSpTBXDockablePanel
|
||||||
Width = 607
|
Width = 597
|
||||||
ExplicitWidth = 607
|
ExplicitWidth = 597
|
||||||
inherited tbxBotones: TTBXToolbar
|
inherited tbxBotones: TSpTBXToolbar
|
||||||
Width = 597
|
Width = 597
|
||||||
ExplicitWidth = 597
|
ExplicitWidth = 597
|
||||||
end
|
end
|
||||||
end
|
end
|
||||||
end
|
end
|
||||||
end
|
end
|
||||||
object pnlAgrupaciones: TTBXDockablePanel
|
object pnlAgrupaciones: TSpTBXDockablePanel
|
||||||
Left = 0
|
Left = 0
|
||||||
Top = 415
|
Top = 313
|
||||||
MinClientHeight = 8
|
Width = 607
|
||||||
Align = alBottom
|
Height = 128
|
||||||
Caption = 'pnlAgrupaciones'
|
Caption = 'pnlAgrupaciones'
|
||||||
DockedHeight = 26
|
Align = alBottom
|
||||||
FloatingWidth = 128
|
|
||||||
FloatingHeight = 26
|
|
||||||
SupportedDocks = [dkStandardDock, dkMultiDock]
|
|
||||||
TabOrder = 2
|
TabOrder = 2
|
||||||
Visible = False
|
Visible = False
|
||||||
ExplicitWidth = 128
|
ShowCaption = False
|
||||||
object TBXAlignmentPanel1: TTBXAlignmentPanel
|
ShowCaptionWhenDocked = False
|
||||||
|
object TBXAlignmentPanel1: TSpTBXDockablePanel
|
||||||
Left = 0
|
Left = 0
|
||||||
Top = 0
|
Top = 0
|
||||||
Width = 607
|
Width = 607
|
||||||
@ -158,16 +158,20 @@ inherited frViewGrid: TfrViewGrid
|
|||||||
Margins.Left = 10
|
Margins.Left = 10
|
||||||
Align = alTop
|
Align = alTop
|
||||||
TabOrder = 0
|
TabOrder = 0
|
||||||
object TBXToolbar1: TTBXToolbar
|
ShowCaption = False
|
||||||
Left = 10
|
ShowCaptionWhenDocked = False
|
||||||
|
ExplicitTop = 10
|
||||||
|
object TBXToolbar1: TSpTBXToolbar
|
||||||
|
Left = 0
|
||||||
Top = 0
|
Top = 0
|
||||||
Width = 597
|
Width = 607
|
||||||
Height = 26
|
Height = 26
|
||||||
Align = alTop
|
Align = alTop
|
||||||
AutoResize = False
|
AutoResize = False
|
||||||
Caption = 'TBXToolbar1'
|
|
||||||
TabOrder = 0
|
TabOrder = 0
|
||||||
object TBXItem1: TTBXItem
|
Caption = 'TBXToolbar1'
|
||||||
|
ExplicitTop = 10
|
||||||
|
object TBXItem1: TSpTBXItem
|
||||||
Action = actQuitarAgrupaciones
|
Action = actQuitarAgrupaciones
|
||||||
end
|
end
|
||||||
end
|
end
|
||||||
@ -199,7 +203,7 @@ inherited frViewGrid: TfrViewGrid
|
|||||||
PrinterPage.ScaleMode = smFit
|
PrinterPage.ScaleMode = smFit
|
||||||
PrinterPage._dxMeasurementUnits_ = 0
|
PrinterPage._dxMeasurementUnits_ = 0
|
||||||
PrinterPage._dxLastMU_ = 2
|
PrinterPage._dxLastMU_ = 2
|
||||||
ReportDocument.CreationDate = 40003.669735601850000000
|
ReportDocument.CreationDate = 40200.437038078700000000
|
||||||
StyleManager = dmBase.dxPrintStyleManager1
|
StyleManager = dmBase.dxPrintStyleManager1
|
||||||
OptionsCards.Shadow.Depth = 0
|
OptionsCards.Shadow.Depth = 0
|
||||||
OptionsExpanding.ExpandGroupRows = True
|
OptionsExpanding.ExpandGroupRows = True
|
||||||
@ -223,8 +227,9 @@ inherited frViewGrid: TfrViewGrid
|
|||||||
end
|
end
|
||||||
end
|
end
|
||||||
object dxPSEngineController1: TdxPSEngineController
|
object dxPSEngineController1: TdxPSEngineController
|
||||||
LookAndFeel = pslfOffice11
|
Active = True
|
||||||
UseNativeLookAndFeel = False
|
DialogsLookAndFeel.Kind = lfOffice11
|
||||||
|
PreviewDialogStyle = 'Advanced'
|
||||||
Left = 336
|
Left = 336
|
||||||
Top = 128
|
Top = 128
|
||||||
end
|
end
|
||||||
|
|||||||
@ -19,10 +19,12 @@ uses
|
|||||||
DBGrids, JvComponent, JvFormAutoSize, dxPSGlbl, dxPSUtl, dxPSEngn,
|
DBGrids, JvComponent, JvFormAutoSize, dxPSGlbl, dxPSUtl, dxPSEngn,
|
||||||
dxPrnPg, dxBkgnd, dxWrap, dxPrnDev, dxPSCompsProvider, dxPSFillPatterns,
|
dxPrnPg, dxBkgnd, dxWrap, dxPrnDev, dxPSCompsProvider, dxPSFillPatterns,
|
||||||
dxPSEdgePatterns, dxPSCore, dxPScxCommon, dxPrnDlg,
|
dxPSEdgePatterns, dxPSCore, dxPScxCommon, dxPrnDlg,
|
||||||
cxIntlPrintSys3, dxPSPrvwAdv, uViewGridBase, cxGridCustomPopupMenu,
|
dxPSPrvwAdv, uViewGridBase, cxGridCustomPopupMenu,
|
||||||
cxGridPopupMenu, uViewFiltroBase, ComCtrls, cxPC, ImgList, PngImageList,
|
cxGridPopupMenu, uViewFiltroBase, ComCtrls, cxPC, ImgList, PngImageList,
|
||||||
TB2Item, TBX, TB2Dock, TB2Toolbar, TBXDkPanels, dxPgsDlg, uDAInterfaces,
|
TB2Item, SpTBXItem, TB2Dock, TB2Toolbar, SpTBXDkPanels, dxPgsDlg, uDAInterfaces,
|
||||||
dxPScxGrid6Lnk, uCustomView;
|
dxPScxGrid6Lnk, uCustomView, cxLookAndFeels, cxLookAndFeelPainters,
|
||||||
|
dxPSPDFExportCore, dxPSPDFExport, cxDrawTextUtils, dxPSPrVwStd,
|
||||||
|
dxPScxEditorProducers, dxPScxExtEditorProducers, dxPScxPageControlProducer;
|
||||||
|
|
||||||
type
|
type
|
||||||
IViewGrid = interface(IViewGridBase)
|
IViewGrid = interface(IViewGridBase)
|
||||||
@ -41,10 +43,10 @@ type
|
|||||||
frViewFiltroBase1: TfrViewFiltroBase;
|
frViewFiltroBase1: TfrViewFiltroBase;
|
||||||
ActionList1: TActionList;
|
ActionList1: TActionList;
|
||||||
actQuitarAgrupaciones: TAction;
|
actQuitarAgrupaciones: TAction;
|
||||||
pnlAgrupaciones: TTBXDockablePanel;
|
pnlAgrupaciones: TSpTBXDockablePanel;
|
||||||
TBXAlignmentPanel1: TTBXAlignmentPanel;
|
TBXAlignmentPanel1: TSpTBXDockablePanel;
|
||||||
TBXToolbar1: TTBXToolbar;
|
TBXToolbar1: TSpTBXToolbar;
|
||||||
TBXItem1: TTBXItem;
|
TBXItem1: TSpTBXItem;
|
||||||
cxStyleRepositoryInforme: TcxStyleRepository;
|
cxStyleRepositoryInforme: TcxStyleRepository;
|
||||||
cxStyleContentInforme: TcxStyle;
|
cxStyleContentInforme: TcxStyle;
|
||||||
cxStyleFooterInforme: TcxStyle;
|
cxStyleFooterInforme: TcxStyle;
|
||||||
|
|||||||
@ -19,7 +19,7 @@ uses
|
|||||||
DBGrids, JvComponent, JvFormAutoSize, dxPSGlbl, dxPSUtl, dxPSEngn,
|
DBGrids, JvComponent, JvFormAutoSize, dxPSGlbl, dxPSUtl, dxPSEngn,
|
||||||
dxPrnPg, dxBkgnd, dxWrap, dxPrnDev, dxPSCompsProvider, dxPSFillPatterns,
|
dxPrnPg, dxBkgnd, dxWrap, dxPrnDev, dxPSCompsProvider, dxPSFillPatterns,
|
||||||
dxPSEdgePatterns, dxPSCore, dxPScxCommon, dxPrnDlg,
|
dxPSEdgePatterns, dxPSCore, dxPScxCommon, dxPrnDlg,
|
||||||
cxIntlPrintSys3, dxPSPrvwAdv, uViewGridBase, cxGridCustomPopupMenu,
|
dxPSPrvwAdv, uViewGridBase, cxGridCustomPopupMenu,
|
||||||
cxGridPopupMenu, uDAInterfaces, dxPScxGrid6Lnk;
|
cxGridPopupMenu, uDAInterfaces, dxPScxGrid6Lnk;
|
||||||
|
|
||||||
type
|
type
|
||||||
|
|||||||
@ -7,7 +7,7 @@ uses
|
|||||||
Dialogs, uViewBase, ExtCtrls, StdCtrls, DB, uDADataTable, cxGraphics,
|
Dialogs, uViewBase, ExtCtrls, StdCtrls, DB, uDADataTable, cxGraphics,
|
||||||
cxTextEdit, cxMaskEdit, cxDropDownEdit, cxDBEdit, cxControls,
|
cxTextEdit, cxMaskEdit, cxDropDownEdit, cxDBEdit, cxControls,
|
||||||
cxContainer, cxEdit, cxLabel, cxDBLabel, cxCurrencyEdit, cxSpinEdit,
|
cxContainer, cxEdit, cxLabel, cxDBLabel, cxCurrencyEdit, cxSpinEdit,
|
||||||
cxCheckBox, cxMemo, uDAInterfaces;
|
cxCheckBox, cxMemo, uDAInterfaces, cxLookAndFeels, cxLookAndFeelPainters;
|
||||||
|
|
||||||
type
|
type
|
||||||
TfrViewIncidencias = class(TfrViewBase)
|
TfrViewIncidencias = class(TfrViewBase)
|
||||||
|
|||||||
@ -5,7 +5,8 @@ interface
|
|||||||
uses
|
uses
|
||||||
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
|
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
|
||||||
Dialogs, uViewBase, DB, uDADataTable, cxMemo, cxDBEdit, cxControls,
|
Dialogs, uViewBase, DB, uDADataTable, cxMemo, cxDBEdit, cxControls,
|
||||||
cxContainer, cxEdit, cxTextEdit, ExtCtrls, StdCtrls, uDAInterfaces;
|
cxContainer, cxEdit, cxTextEdit, ExtCtrls, StdCtrls, uDAInterfaces,
|
||||||
|
cxGraphics, cxLookAndFeels, cxLookAndFeelPainters;
|
||||||
|
|
||||||
type
|
type
|
||||||
TfrViewObservaciones = class(TfrViewBase)
|
TfrViewObservaciones = class(TfrViewBase)
|
||||||
|
|||||||
@ -8,5 +8,6 @@ inherited frViewPreview: TfrViewPreview
|
|||||||
OutlineVisible = False
|
OutlineVisible = False
|
||||||
OutlineWidth = 121
|
OutlineWidth = 121
|
||||||
ThumbnailVisible = False
|
ThumbnailVisible = False
|
||||||
|
UseReportHints = True
|
||||||
end
|
end
|
||||||
end
|
end
|
||||||
|
|||||||
@ -5,20 +5,19 @@ inherited frViewRichEditor: TfrViewRichEditor
|
|||||||
OnShow = CustomViewShow
|
OnShow = CustomViewShow
|
||||||
ExplicitWidth = 635
|
ExplicitWidth = 635
|
||||||
ExplicitHeight = 401
|
ExplicitHeight = 401
|
||||||
object TBXDock1: TTBXDock
|
object TBXDock1: TSpTBXDock
|
||||||
Left = 0
|
Left = 0
|
||||||
Top = 0
|
Top = 0
|
||||||
Width = 635
|
Width = 635
|
||||||
Height = 26
|
Height = 26
|
||||||
BackgroundOnToolbars = False
|
BackgroundOnToolbars = False
|
||||||
UseParentBackground = True
|
object TBXToolbar1: TSpTBXToolbar
|
||||||
object TBXToolbar1: TTBXToolbar
|
|
||||||
Left = 0
|
Left = 0
|
||||||
Top = 0
|
Top = 0
|
||||||
Caption = 'TBXToolbar1'
|
|
||||||
DragHandleStyle = dhNone
|
DragHandleStyle = dhNone
|
||||||
Images = SmallImages
|
Images = SmallImages
|
||||||
TabOrder = 0
|
TabOrder = 0
|
||||||
|
Caption = 'TBXToolbar1'
|
||||||
object TBControlItem1: TTBControlItem
|
object TBControlItem1: TTBControlItem
|
||||||
Control = fcbFontName
|
Control = fcbFontName
|
||||||
end
|
end
|
||||||
@ -28,75 +27,75 @@ inherited frViewRichEditor: TfrViewRichEditor
|
|||||||
object TBControlItem3: TTBControlItem
|
object TBControlItem3: TTBControlItem
|
||||||
Control = cxSpinButton
|
Control = cxSpinButton
|
||||||
end
|
end
|
||||||
object TBXSeparatorItem3: TTBXSeparatorItem
|
object TBXSeparatorItem3: TSpTBXSeparatorItem
|
||||||
end
|
end
|
||||||
object TBXColorItem1: TTBXColorItem
|
object TBXColorItem1: TSpTBXColorItem
|
||||||
Caption = 'Color'
|
Caption = 'Color'
|
||||||
end
|
end
|
||||||
object TBXSeparatorItem1: TTBXSeparatorItem
|
object TBXSeparatorItem1: TSpTBXSeparatorItem
|
||||||
end
|
end
|
||||||
object bBold: TTBXItem
|
object bBold: TSpTBXItem
|
||||||
AutoCheck = True
|
|
||||||
Caption = 'Negrita'
|
Caption = 'Negrita'
|
||||||
|
AutoCheck = True
|
||||||
DisplayMode = nbdmTextOnlyInMenus
|
DisplayMode = nbdmTextOnlyInMenus
|
||||||
ImageIndex = 0
|
ImageIndex = 0
|
||||||
OnClick = bBoldClick
|
OnClick = bBoldClick
|
||||||
end
|
end
|
||||||
object bItalic: TTBXItem
|
object bItalic: TSpTBXItem
|
||||||
AutoCheck = True
|
|
||||||
Caption = 'Cursiva'
|
Caption = 'Cursiva'
|
||||||
|
AutoCheck = True
|
||||||
DisplayMode = nbdmTextOnlyInMenus
|
DisplayMode = nbdmTextOnlyInMenus
|
||||||
ImageIndex = 1
|
ImageIndex = 1
|
||||||
OnClick = bItalicClick
|
OnClick = bItalicClick
|
||||||
end
|
end
|
||||||
object bUnderline: TTBXItem
|
object bUnderline: TSpTBXItem
|
||||||
AutoCheck = True
|
|
||||||
Caption = 'Subrayado'
|
Caption = 'Subrayado'
|
||||||
|
AutoCheck = True
|
||||||
DisplayMode = nbdmTextOnlyInMenus
|
DisplayMode = nbdmTextOnlyInMenus
|
||||||
ImageIndex = 2
|
ImageIndex = 2
|
||||||
OnClick = bUnderlineClick
|
OnClick = bUnderlineClick
|
||||||
end
|
end
|
||||||
object TBXSeparatorItem2: TTBXSeparatorItem
|
object TBXSeparatorItem2: TSpTBXSeparatorItem
|
||||||
end
|
end
|
||||||
object TBXItem5: TTBXItem
|
object TBXItem5: TSpTBXItem
|
||||||
Action = actEditCut
|
Action = actEditCut
|
||||||
end
|
end
|
||||||
object TBXItem6: TTBXItem
|
object TBXItem6: TSpTBXItem
|
||||||
Action = actEditCopy
|
Action = actEditCopy
|
||||||
end
|
end
|
||||||
object TBXItem7: TTBXItem
|
object TBXItem7: TSpTBXItem
|
||||||
Action = actEditPaste
|
Action = actEditPaste
|
||||||
end
|
end
|
||||||
object TBXSeparatorItem4: TTBXSeparatorItem
|
object TBXSeparatorItem4: TSpTBXSeparatorItem
|
||||||
end
|
end
|
||||||
object bAlignLeft: TTBXItem
|
object bAlignLeft: TSpTBXItem
|
||||||
AutoCheck = True
|
|
||||||
Caption = 'Alinear a la izquierda'
|
Caption = 'Alinear a la izquierda'
|
||||||
|
AutoCheck = True
|
||||||
GroupIndex = 50
|
GroupIndex = 50
|
||||||
ImageIndex = 8
|
ImageIndex = 8
|
||||||
OnClick = bAlignLeftClick
|
OnClick = bAlignLeftClick
|
||||||
end
|
end
|
||||||
object bAlignCenter: TTBXItem
|
object bAlignCenter: TSpTBXItem
|
||||||
Tag = 2
|
Tag = 2
|
||||||
AutoCheck = True
|
|
||||||
Caption = 'Centrar'
|
Caption = 'Centrar'
|
||||||
|
AutoCheck = True
|
||||||
GroupIndex = 50
|
GroupIndex = 50
|
||||||
ImageIndex = 9
|
ImageIndex = 9
|
||||||
OnClick = bAlignCenterClick
|
OnClick = bAlignCenterClick
|
||||||
end
|
end
|
||||||
object bAlignRight: TTBXItem
|
object bAlignRight: TSpTBXItem
|
||||||
Tag = 1
|
Tag = 1
|
||||||
AutoCheck = True
|
|
||||||
Caption = 'Alinear a la derecha'
|
Caption = 'Alinear a la derecha'
|
||||||
|
AutoCheck = True
|
||||||
GroupIndex = 50
|
GroupIndex = 50
|
||||||
ImageIndex = 10
|
ImageIndex = 10
|
||||||
OnClick = bAlignRightClick
|
OnClick = bAlignRightClick
|
||||||
end
|
end
|
||||||
object TBXSeparatorItem5: TTBXSeparatorItem
|
object TBXSeparatorItem5: TSpTBXSeparatorItem
|
||||||
end
|
end
|
||||||
object bBullets: TTBXItem
|
object bBullets: TSpTBXItem
|
||||||
AutoCheck = True
|
|
||||||
Caption = 'Vi'#241'etas'
|
Caption = 'Vi'#241'etas'
|
||||||
|
AutoCheck = True
|
||||||
ImageIndex = 12
|
ImageIndex = 12
|
||||||
OnClick = bBulletsClick
|
OnClick = bBulletsClick
|
||||||
end
|
end
|
||||||
|
|||||||
@ -7,9 +7,9 @@ uses
|
|||||||
Dialogs, uViewBase, Menus, cxLookAndFeelPainters, cxGraphics, cxSpinEdit,
|
Dialogs, uViewBase, Menus, cxLookAndFeelPainters, cxGraphics, cxSpinEdit,
|
||||||
cxSpinButton, cxMaskEdit, cxFontNameComboBox, cxControls, cxContainer, cxEdit,
|
cxSpinButton, cxMaskEdit, cxFontNameComboBox, cxControls, cxContainer, cxEdit,
|
||||||
cxTextEdit, cxDropDownEdit, cxColorComboBox, StdCtrls, cxButtons, ComCtrls,
|
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,
|
TB2Toolbar, PngImageList, cxMemo, cxRichEdit, ExtCtrls, DB, uDAInterfaces,
|
||||||
uDADataTable, cxDBRichEdit;
|
uDADataTable, cxDBRichEdit, cxLookAndFeels;
|
||||||
|
|
||||||
type
|
type
|
||||||
IViewRichEditor = interface(IViewBase)
|
IViewRichEditor = interface(IViewBase)
|
||||||
@ -30,33 +30,33 @@ type
|
|||||||
miWeb: TMenuItem;
|
miWeb: TMenuItem;
|
||||||
miWebSorted: TMenuItem;
|
miWebSorted: TMenuItem;
|
||||||
ToolbarImages: TImageList;
|
ToolbarImages: TImageList;
|
||||||
TBXDock1: TTBXDock;
|
TBXDock1: TSpTBXDock;
|
||||||
TBXToolbar1: TTBXToolbar;
|
TBXToolbar1: TSpTBXToolbar;
|
||||||
bBold: TTBXItem;
|
bBold: TSpTBXItem;
|
||||||
bItalic: TTBXItem;
|
bItalic: TSpTBXItem;
|
||||||
TBXSeparatorItem1: TTBXSeparatorItem;
|
TBXSeparatorItem1: TSpTBXSeparatorItem;
|
||||||
bUnderline: TTBXItem;
|
bUnderline: TSpTBXItem;
|
||||||
TBXSeparatorItem2: TTBXSeparatorItem;
|
TBXSeparatorItem2: TSpTBXSeparatorItem;
|
||||||
TBXItem5: TTBXItem;
|
TBXItem5: TSpTBXItem;
|
||||||
TBXItem6: TTBXItem;
|
TBXItem6: TSpTBXItem;
|
||||||
TBXItem7: TTBXItem;
|
TBXItem7: TSpTBXItem;
|
||||||
TBXSeparatorItem4: TTBXSeparatorItem;
|
TBXSeparatorItem4: TSpTBXSeparatorItem;
|
||||||
bAlignLeft: TTBXItem;
|
bAlignLeft: TSpTBXItem;
|
||||||
bAlignCenter: TTBXItem;
|
bAlignCenter: TSpTBXItem;
|
||||||
bAlignRight: TTBXItem;
|
bAlignRight: TSpTBXItem;
|
||||||
LargeImages: TPngImageList;
|
LargeImages: TPngImageList;
|
||||||
SmallImages: TPngImageList;
|
SmallImages: TPngImageList;
|
||||||
TBControlItem1: TTBControlItem;
|
TBControlItem1: TTBControlItem;
|
||||||
fcbFontName: TcxFontNameComboBox;
|
fcbFontName: TcxFontNameComboBox;
|
||||||
TBXColorItem1: TTBXColorItem;
|
TBXColorItem1: TSpTBXColorItem;
|
||||||
RichEdit: TcxDBRichEdit;
|
RichEdit: TcxDBRichEdit;
|
||||||
TBControlItem2: TTBControlItem;
|
TBControlItem2: TTBControlItem;
|
||||||
meFontSize: TcxMaskEdit;
|
meFontSize: TcxMaskEdit;
|
||||||
TBControlItem3: TTBControlItem;
|
TBControlItem3: TTBControlItem;
|
||||||
cxSpinButton: TcxSpinButton;
|
cxSpinButton: TcxSpinButton;
|
||||||
TBXSeparatorItem3: TTBXSeparatorItem;
|
TBXSeparatorItem3: TSpTBXSeparatorItem;
|
||||||
TBXSeparatorItem5: TTBXSeparatorItem;
|
TBXSeparatorItem5: TSpTBXSeparatorItem;
|
||||||
bBullets: TTBXItem;
|
bBullets: TSpTBXItem;
|
||||||
procedure actBulletsExecute(Sender: TObject);
|
procedure actBulletsExecute(Sender: TObject);
|
||||||
procedure actEditCutExecute(Sender: TObject);
|
procedure actEditCutExecute(Sender: TObject);
|
||||||
procedure actEditCopyExecute(Sender: TObject);
|
procedure actEditCopyExecute(Sender: TObject);
|
||||||
|
|||||||
@ -1,9 +1,9 @@
|
|||||||
inherited frViewTotales: TfrViewTotales
|
inherited frViewTotales: TfrViewTotales
|
||||||
Width = 880
|
Width = 788
|
||||||
Height = 360
|
Height = 233
|
||||||
Align = alBottom
|
Align = alBottom
|
||||||
ExplicitWidth = 879
|
ExplicitWidth = 788
|
||||||
ExplicitHeight = 360
|
ExplicitHeight = 233
|
||||||
object Bevel5: TBevel
|
object Bevel5: TBevel
|
||||||
Left = 666
|
Left = 666
|
||||||
Top = 109
|
Top = 109
|
||||||
@ -15,8 +15,8 @@ inherited frViewTotales: TfrViewTotales
|
|||||||
AlignWithMargins = True
|
AlignWithMargins = True
|
||||||
Left = 0
|
Left = 0
|
||||||
Top = 0
|
Top = 0
|
||||||
Width = 880
|
Width = 788
|
||||||
Height = 360
|
Height = 233
|
||||||
Margins.Left = 0
|
Margins.Left = 0
|
||||||
Margins.Top = 0
|
Margins.Top = 0
|
||||||
Margins.Right = 0
|
Margins.Right = 0
|
||||||
@ -25,18 +25,17 @@ inherited frViewTotales: TfrViewTotales
|
|||||||
ParentBackground = True
|
ParentBackground = True
|
||||||
TabOrder = 0
|
TabOrder = 0
|
||||||
TabStop = False
|
TabStop = False
|
||||||
AutoContentSizes = [acsWidth, acsHeight]
|
|
||||||
ExplicitWidth = 451
|
ExplicitWidth = 451
|
||||||
ExplicitHeight = 404
|
ExplicitHeight = 360
|
||||||
object Bevel3: TBevel
|
object Bevel3: TBevel
|
||||||
Left = 366
|
Left = 329
|
||||||
Top = 28
|
Top = 28
|
||||||
Width = 3
|
Width = 3
|
||||||
Height = 100
|
Height = 100
|
||||||
Shape = bsRightLine
|
Shape = bsRightLine
|
||||||
end
|
end
|
||||||
object Bevel4: TBevel
|
object Bevel4: TBevel
|
||||||
Left = 478
|
Left = 442
|
||||||
Top = 70
|
Top = 70
|
||||||
Width = 342
|
Width = 342
|
||||||
Height = 9
|
Height = 9
|
||||||
@ -78,12 +77,11 @@ inherited frViewTotales: TfrViewTotales
|
|||||||
Width = 87
|
Width = 87
|
||||||
end
|
end
|
||||||
object ImporteIVA: TcxDBCurrencyEdit
|
object ImporteIVA: TcxDBCurrencyEdit
|
||||||
Left = 549
|
Left = 513
|
||||||
Top = 105
|
Top = 105
|
||||||
AutoSize = False
|
AutoSize = False
|
||||||
DataBinding.DataField = 'IMPORTE_IVA'
|
DataBinding.DataField = 'IMPORTE_IVA'
|
||||||
DataBinding.DataSource = DADataSource
|
DataBinding.DataSource = DADataSource
|
||||||
Enabled = False
|
|
||||||
ParentFont = False
|
ParentFont = False
|
||||||
Properties.Alignment.Horz = taRightJustify
|
Properties.Alignment.Horz = taRightJustify
|
||||||
Properties.ReadOnly = True
|
Properties.ReadOnly = True
|
||||||
@ -113,12 +111,11 @@ inherited frViewTotales: TfrViewTotales
|
|||||||
Width = 20
|
Width = 20
|
||||||
end
|
end
|
||||||
object ImporteTotal: TcxDBCurrencyEdit
|
object ImporteTotal: TcxDBCurrencyEdit
|
||||||
Left = 479
|
Left = 442
|
||||||
Top = 159
|
Top = 159
|
||||||
AutoSize = False
|
AutoSize = False
|
||||||
DataBinding.DataField = 'IMPORTE_TOTAL'
|
DataBinding.DataField = 'IMPORTE_TOTAL'
|
||||||
DataBinding.DataSource = DADataSource
|
DataBinding.DataSource = DADataSource
|
||||||
Enabled = False
|
|
||||||
ParentFont = False
|
ParentFont = False
|
||||||
Properties.Alignment.Horz = taRightJustify
|
Properties.Alignment.Horz = taRightJustify
|
||||||
Properties.ReadOnly = True
|
Properties.ReadOnly = True
|
||||||
@ -183,12 +180,11 @@ inherited frViewTotales: TfrViewTotales
|
|||||||
Width = 65
|
Width = 65
|
||||||
end
|
end
|
||||||
object edtIVA: TcxDBSpinEdit
|
object edtIVA: TcxDBSpinEdit
|
||||||
Left = 478
|
Left = 442
|
||||||
Top = 105
|
Top = 105
|
||||||
AutoSize = False
|
AutoSize = False
|
||||||
DataBinding.DataField = 'IVA'
|
DataBinding.DataField = 'IVA'
|
||||||
DataBinding.DataSource = DADataSource
|
DataBinding.DataSource = DADataSource
|
||||||
Enabled = False
|
|
||||||
ParentFont = False
|
ParentFont = False
|
||||||
Properties.Alignment.Horz = taRightJustify
|
Properties.Alignment.Horz = taRightJustify
|
||||||
Properties.AssignedValues.MinValue = True
|
Properties.AssignedValues.MinValue = True
|
||||||
@ -224,12 +220,11 @@ inherited frViewTotales: TfrViewTotales
|
|||||||
Width = 65
|
Width = 65
|
||||||
end
|
end
|
||||||
object ImporteBase: TcxDBCurrencyEdit
|
object ImporteBase: TcxDBCurrencyEdit
|
||||||
Left = 478
|
Left = 442
|
||||||
Top = 28
|
Top = 28
|
||||||
AutoSize = False
|
AutoSize = False
|
||||||
DataBinding.DataField = 'BASE_IMPONIBLE'
|
DataBinding.DataField = 'BASE_IMPONIBLE'
|
||||||
DataBinding.DataSource = DADataSource
|
DataBinding.DataSource = DADataSource
|
||||||
Enabled = False
|
|
||||||
ParentFont = False
|
ParentFont = False
|
||||||
Properties.Alignment.Horz = taRightJustify
|
Properties.Alignment.Horz = taRightJustify
|
||||||
Properties.ReadOnly = True
|
Properties.ReadOnly = True
|
||||||
@ -259,12 +254,11 @@ inherited frViewTotales: TfrViewTotales
|
|||||||
Width = 91
|
Width = 91
|
||||||
end
|
end
|
||||||
object edtRE: TcxDBSpinEdit
|
object edtRE: TcxDBSpinEdit
|
||||||
Left = 478
|
Left = 442
|
||||||
Top = 132
|
Top = 132
|
||||||
AutoSize = False
|
AutoSize = False
|
||||||
DataBinding.DataField = 'RE'
|
DataBinding.DataField = 'RE'
|
||||||
DataBinding.DataSource = DADataSource
|
DataBinding.DataSource = DADataSource
|
||||||
Enabled = False
|
|
||||||
ParentFont = False
|
ParentFont = False
|
||||||
Properties.Alignment.Horz = taRightJustify
|
Properties.Alignment.Horz = taRightJustify
|
||||||
Properties.AssignedValues.EditFormat = True
|
Properties.AssignedValues.EditFormat = True
|
||||||
@ -300,12 +294,11 @@ inherited frViewTotales: TfrViewTotales
|
|||||||
Width = 65
|
Width = 65
|
||||||
end
|
end
|
||||||
object ImporteRE: TcxDBCurrencyEdit
|
object ImporteRE: TcxDBCurrencyEdit
|
||||||
Left = 549
|
Left = 513
|
||||||
Top = 132
|
Top = 132
|
||||||
AutoSize = False
|
AutoSize = False
|
||||||
DataBinding.DataField = 'IMPORTE_RE'
|
DataBinding.DataField = 'IMPORTE_RE'
|
||||||
DataBinding.DataSource = DADataSource
|
DataBinding.DataSource = DADataSource
|
||||||
Enabled = False
|
|
||||||
ParentFont = False
|
ParentFont = False
|
||||||
Properties.Alignment.Horz = taRightJustify
|
Properties.Alignment.Horz = taRightJustify
|
||||||
Properties.ReadOnly = True
|
Properties.ReadOnly = True
|
||||||
@ -438,7 +431,7 @@ inherited frViewTotales: TfrViewTotales
|
|||||||
Width = 20
|
Width = 20
|
||||||
end
|
end
|
||||||
object bTiposIVA: TButton
|
object bTiposIVA: TButton
|
||||||
Left = 218
|
Left = 181
|
||||||
Top = 109
|
Top = 109
|
||||||
Width = 132
|
Width = 132
|
||||||
Height = 21
|
Height = 21
|
||||||
@ -476,171 +469,169 @@ inherited frViewTotales: TfrViewTotales
|
|||||||
Width = 221
|
Width = 221
|
||||||
end
|
end
|
||||||
object dxLayoutControl1Group_Root: TdxLayoutGroup
|
object dxLayoutControl1Group_Root: TdxLayoutGroup
|
||||||
ShowCaption = False
|
AlignHorz = ahParentManaged
|
||||||
|
AlignVert = avParentManaged
|
||||||
|
CaptionOptions.Visible = False
|
||||||
|
ButtonOptions.Buttons = <>
|
||||||
Hidden = True
|
Hidden = True
|
||||||
ShowBorder = False
|
ShowBorder = False
|
||||||
object dxLayoutControl1Group1: TdxLayoutGroup
|
object dxLayoutControl1Group1: TdxLayoutGroup
|
||||||
AutoAligns = [aaHorizontal]
|
AlignVert = avTop
|
||||||
Caption = 'Importes totales'
|
CaptionOptions.Text = 'Importes totales'
|
||||||
|
ButtonOptions.Buttons = <>
|
||||||
LayoutDirection = ldHorizontal
|
LayoutDirection = ldHorizontal
|
||||||
object dxLayoutControl1Group2: TdxLayoutGroup
|
object dxLayoutControl1Group2: TdxLayoutGroup
|
||||||
AutoAligns = [aaVertical]
|
|
||||||
AlignHorz = ahClient
|
AlignHorz = ahClient
|
||||||
ShowCaption = False
|
CaptionOptions.Visible = False
|
||||||
|
ButtonOptions.Buttons = <>
|
||||||
Hidden = True
|
Hidden = True
|
||||||
ShowBorder = False
|
ShowBorder = False
|
||||||
object dxLayoutControl1Item8: TdxLayoutItem
|
object dxLayoutControl1Item8: TdxLayoutItem
|
||||||
AutoAligns = [aaVertical]
|
|
||||||
AlignHorz = ahClient
|
AlignHorz = ahClient
|
||||||
Caption = 'Importe neto:'
|
CaptionOptions.Text = 'Importe neto:'
|
||||||
Control = eImporteNeto
|
Control = eImporteNeto
|
||||||
ControlOptions.ShowBorder = False
|
ControlOptions.ShowBorder = False
|
||||||
end
|
end
|
||||||
object dxLayoutControl1Group7: TdxLayoutGroup
|
object dxLayoutControl1Group7: TdxLayoutGroup
|
||||||
ShowCaption = False
|
CaptionOptions.Visible = False
|
||||||
|
ButtonOptions.Buttons = <>
|
||||||
Hidden = True
|
Hidden = True
|
||||||
ShowBorder = False
|
ShowBorder = False
|
||||||
object dxLayoutControl1Group10: TdxLayoutGroup
|
object dxLayoutControl1Group10: TdxLayoutGroup
|
||||||
ShowCaption = False
|
CaptionOptions.Visible = False
|
||||||
|
ButtonOptions.Buttons = <>
|
||||||
Hidden = True
|
Hidden = True
|
||||||
LayoutDirection = ldHorizontal
|
LayoutDirection = ldHorizontal
|
||||||
ShowBorder = False
|
ShowBorder = False
|
||||||
object dxLayoutControl1Item4: TdxLayoutItem
|
object dxLayoutControl1Item4: TdxLayoutItem
|
||||||
AutoAligns = [aaVertical]
|
AlignHorz = ahLeft
|
||||||
Caption = 'Descuento (%):'
|
CaptionOptions.Text = 'Descuento (%):'
|
||||||
Control = edtDescuento
|
Control = edtDescuento
|
||||||
ControlOptions.ShowBorder = False
|
ControlOptions.ShowBorder = False
|
||||||
end
|
end
|
||||||
object dxLayoutControl1Item1: TdxLayoutItem
|
object dxLayoutControl1Item1: TdxLayoutItem
|
||||||
AutoAligns = [aaVertical]
|
|
||||||
AlignHorz = ahClient
|
AlignHorz = ahClient
|
||||||
Caption = 'Importe de dto:'
|
CaptionOptions.Text = 'Importe de dto:'
|
||||||
ShowCaption = False
|
CaptionOptions.Visible = False
|
||||||
Control = ImporteDto
|
Control = ImporteDto
|
||||||
ControlOptions.ShowBorder = False
|
ControlOptions.ShowBorder = False
|
||||||
end
|
end
|
||||||
end
|
end
|
||||||
object dxLayoutControl1Item9: TdxLayoutItem
|
object dxLayoutControl1Item9: TdxLayoutItem
|
||||||
AutoAligns = [aaVertical]
|
|
||||||
AlignHorz = ahClient
|
AlignHorz = ahClient
|
||||||
Caption = 'Porte:'
|
CaptionOptions.Text = 'Porte:'
|
||||||
Control = ePorte
|
Control = ePorte
|
||||||
ControlOptions.ShowBorder = False
|
ControlOptions.ShowBorder = False
|
||||||
end
|
end
|
||||||
end
|
end
|
||||||
object dxLayoutControl1Group6: TdxLayoutGroup
|
object dxLayoutControl1Group6: TdxLayoutGroup
|
||||||
ShowCaption = False
|
CaptionOptions.Visible = False
|
||||||
|
ButtonOptions.Buttons = <>
|
||||||
Hidden = True
|
Hidden = True
|
||||||
LayoutDirection = ldHorizontal
|
LayoutDirection = ldHorizontal
|
||||||
ShowBorder = False
|
ShowBorder = False
|
||||||
object dxLayoutControl1Item11: TdxLayoutItem
|
object dxLayoutControl1Item11: TdxLayoutItem
|
||||||
AutoAligns = [aaVertical]
|
|
||||||
AlignHorz = ahClient
|
AlignHorz = ahClient
|
||||||
Caption = 'Tipo de IVA:'
|
CaptionOptions.Text = 'Tipo de IVA:'
|
||||||
Control = eIVA
|
Control = eIVA
|
||||||
ControlOptions.ShowBorder = False
|
ControlOptions.ShowBorder = False
|
||||||
end
|
end
|
||||||
object dxLayoutControl1Item15: TdxLayoutItem
|
object dxLayoutControl1Item15: TdxLayoutItem
|
||||||
AutoAligns = [aaVertical]
|
|
||||||
AlignHorz = ahRight
|
AlignHorz = ahRight
|
||||||
ShowCaption = False
|
CaptionOptions.Visible = False
|
||||||
Control = bTiposIVA
|
Control = bTiposIVA
|
||||||
ControlOptions.ShowBorder = False
|
ControlOptions.ShowBorder = False
|
||||||
end
|
end
|
||||||
end
|
end
|
||||||
object dxLayoutControl1Item16: TdxLayoutItem
|
object dxLayoutControl1Item16: TdxLayoutItem
|
||||||
Caption = ' '
|
CaptionOptions.Text = ' '
|
||||||
Control = cbRecargoEquivalencia
|
Control = cbRecargoEquivalencia
|
||||||
ControlOptions.ShowBorder = False
|
ControlOptions.ShowBorder = False
|
||||||
end
|
end
|
||||||
end
|
end
|
||||||
object dxLayoutControl1Group5: TdxLayoutGroup
|
object dxLayoutControl1Group5: TdxLayoutGroup
|
||||||
AutoAligns = [aaVertical]
|
|
||||||
AlignHorz = ahClient
|
AlignHorz = ahClient
|
||||||
ShowCaption = False
|
CaptionOptions.Visible = False
|
||||||
|
ButtonOptions.Buttons = <>
|
||||||
Hidden = True
|
Hidden = True
|
||||||
LayoutDirection = ldHorizontal
|
LayoutDirection = ldHorizontal
|
||||||
ShowBorder = False
|
ShowBorder = False
|
||||||
object dxLayoutControl1Item13: TdxLayoutItem
|
object dxLayoutControl1Item13: TdxLayoutItem
|
||||||
AutoAligns = [aaHorizontal]
|
|
||||||
AlignVert = avClient
|
AlignVert = avClient
|
||||||
Caption = ' '
|
CaptionOptions.Text = ' '
|
||||||
|
CaptionOptions.Visible = False
|
||||||
Offsets.Left = 10
|
Offsets.Left = 10
|
||||||
Offsets.Right = 10
|
Offsets.Right = 10
|
||||||
ShowCaption = False
|
|
||||||
Control = Bevel3
|
Control = Bevel3
|
||||||
ControlOptions.ShowBorder = False
|
ControlOptions.ShowBorder = False
|
||||||
end
|
end
|
||||||
object dxLayoutControl1Group3: TdxLayoutGroup
|
object dxLayoutControl1Group3: TdxLayoutGroup
|
||||||
AutoAligns = [aaVertical]
|
|
||||||
AlignHorz = ahClient
|
AlignHorz = ahClient
|
||||||
ShowCaption = False
|
CaptionOptions.Visible = False
|
||||||
|
ButtonOptions.Buttons = <>
|
||||||
Hidden = True
|
Hidden = True
|
||||||
ShowBorder = False
|
ShowBorder = False
|
||||||
object dxLayoutControl1Item12: TdxLayoutItem
|
object dxLayoutControl1Item12: TdxLayoutItem
|
||||||
AutoAligns = [aaVertical]
|
|
||||||
AlignHorz = ahClient
|
AlignHorz = ahClient
|
||||||
Caption = 'Base imponible:'
|
CaptionOptions.Text = 'Base imponible:'
|
||||||
Control = ImporteBase
|
Control = ImporteBase
|
||||||
ControlOptions.ShowBorder = False
|
ControlOptions.ShowBorder = False
|
||||||
end
|
end
|
||||||
object dxLayoutControl1Item14: TdxLayoutItem
|
object dxLayoutControl1Item14: TdxLayoutItem
|
||||||
AutoAligns = [aaVertical]
|
|
||||||
AlignHorz = ahClient
|
AlignHorz = ahClient
|
||||||
Caption = ' '
|
CaptionOptions.Text = ' '
|
||||||
Offsets.Bottom = 15
|
Offsets.Bottom = 15
|
||||||
Offsets.Top = 15
|
Offsets.Top = 15
|
||||||
Control = Bevel4
|
Control = Bevel4
|
||||||
ControlOptions.ShowBorder = False
|
ControlOptions.ShowBorder = False
|
||||||
end
|
end
|
||||||
object dxLayoutControl1Group9: TdxLayoutGroup
|
object dxLayoutControl1Group9: TdxLayoutGroup
|
||||||
ShowCaption = False
|
CaptionOptions.Visible = False
|
||||||
|
ButtonOptions.Buttons = <>
|
||||||
Hidden = True
|
Hidden = True
|
||||||
LayoutDirection = ldHorizontal
|
LayoutDirection = ldHorizontal
|
||||||
ShowBorder = False
|
ShowBorder = False
|
||||||
object dxLayoutControl1Item5: TdxLayoutItem
|
object dxLayoutControl1Item5: TdxLayoutItem
|
||||||
AutoAligns = [aaVertical]
|
AlignHorz = ahLeft
|
||||||
Caption = 'IVA (%):'
|
|
||||||
CaptionOptions.AlignHorz = taRightJustify
|
CaptionOptions.AlignHorz = taRightJustify
|
||||||
|
CaptionOptions.Text = 'IVA (%):'
|
||||||
Control = edtIVA
|
Control = edtIVA
|
||||||
ControlOptions.ShowBorder = False
|
ControlOptions.ShowBorder = False
|
||||||
end
|
end
|
||||||
object dxLayoutControl1Item2: TdxLayoutItem
|
object dxLayoutControl1Item2: TdxLayoutItem
|
||||||
AutoAligns = [aaVertical]
|
|
||||||
AlignHorz = ahClient
|
AlignHorz = ahClient
|
||||||
Caption = 'Importe de IVA:'
|
CaptionOptions.Text = 'Importe de IVA:'
|
||||||
ShowCaption = False
|
CaptionOptions.Visible = False
|
||||||
Control = ImporteIVA
|
Control = ImporteIVA
|
||||||
ControlOptions.ShowBorder = False
|
ControlOptions.ShowBorder = False
|
||||||
end
|
end
|
||||||
end
|
end
|
||||||
object dxLayoutControl1Group8: TdxLayoutGroup
|
object dxLayoutControl1Group8: TdxLayoutGroup
|
||||||
ShowCaption = False
|
CaptionOptions.Visible = False
|
||||||
|
ButtonOptions.Buttons = <>
|
||||||
Hidden = True
|
Hidden = True
|
||||||
LayoutDirection = ldHorizontal
|
LayoutDirection = ldHorizontal
|
||||||
ShowBorder = False
|
ShowBorder = False
|
||||||
object dxLayoutControl1Item6: TdxLayoutItem
|
object dxLayoutControl1Item6: TdxLayoutItem
|
||||||
AutoAligns = [aaVertical]
|
AlignHorz = ahLeft
|
||||||
Caption = 'RE. (%):'
|
|
||||||
CaptionOptions.AlignHorz = taRightJustify
|
CaptionOptions.AlignHorz = taRightJustify
|
||||||
|
CaptionOptions.Text = 'RE. (%):'
|
||||||
Control = edtRE
|
Control = edtRE
|
||||||
ControlOptions.ShowBorder = False
|
ControlOptions.ShowBorder = False
|
||||||
end
|
end
|
||||||
object dxLayoutControl1Item7: TdxLayoutItem
|
object dxLayoutControl1Item7: TdxLayoutItem
|
||||||
AutoAligns = [aaVertical]
|
|
||||||
AlignHorz = ahClient
|
AlignHorz = ahClient
|
||||||
Caption = 'Importe de RE:'
|
CaptionOptions.Text = 'Importe de RE:'
|
||||||
ShowCaption = False
|
CaptionOptions.Visible = False
|
||||||
Visible = False
|
Visible = False
|
||||||
Control = ImporteRE
|
Control = ImporteRE
|
||||||
ControlOptions.ShowBorder = False
|
ControlOptions.ShowBorder = False
|
||||||
end
|
end
|
||||||
end
|
end
|
||||||
object dxLayoutControl1Item3: TdxLayoutItem
|
object dxLayoutControl1Item3: TdxLayoutItem
|
||||||
AutoAligns = [aaVertical]
|
|
||||||
AlignHorz = ahClient
|
AlignHorz = ahClient
|
||||||
Caption = 'Importe total:'
|
CaptionOptions.Text = 'Importe total:'
|
||||||
LookAndFeel = LookAndFeelIMPORTE_TOTAL
|
LayoutLookAndFeel = LookAndFeelIMPORTE_TOTAL
|
||||||
Control = ImporteTotal
|
Control = ImporteTotal
|
||||||
ControlOptions.ShowBorder = False
|
ControlOptions.ShowBorder = False
|
||||||
end
|
end
|
||||||
@ -649,6 +640,7 @@ inherited frViewTotales: TfrViewTotales
|
|||||||
end
|
end
|
||||||
end
|
end
|
||||||
object dxLayoutControl1Group4: TdxLayoutGroup
|
object dxLayoutControl1Group4: TdxLayoutGroup
|
||||||
|
ButtonOptions.Buttons = <>
|
||||||
end
|
end
|
||||||
end
|
end
|
||||||
object DADataSource: TDADataSource
|
object DADataSource: TDADataSource
|
||||||
|
|||||||
@ -8,7 +8,8 @@ uses
|
|||||||
cxTextEdit, cxMaskEdit, cxDropDownEdit, cxDBEdit, cxControls,
|
cxTextEdit, cxMaskEdit, cxDropDownEdit, cxDBEdit, cxControls,
|
||||||
cxContainer, cxEdit, cxLabel, cxDBLabel, cxCurrencyEdit, cxSpinEdit,
|
cxContainer, cxEdit, cxLabel, cxDBLabel, cxCurrencyEdit, cxSpinEdit,
|
||||||
ComCtrls, dxLayoutControl, dxLayoutLookAndFeels, cxLookupEdit, cxDBLookupEdit,
|
ComCtrls, dxLayoutControl, dxLayoutLookAndFeels, cxLookupEdit, cxDBLookupEdit,
|
||||||
cxDBLookupComboBox, cxCheckBox, uDAInterfaces, cxCalendar;
|
cxDBLookupComboBox, cxCheckBox, uDAInterfaces, cxCalendar, cxLookAndFeels,
|
||||||
|
cxLookAndFeelPainters, dxLayoutcxEditAdapters;
|
||||||
|
|
||||||
type
|
type
|
||||||
TfrViewTotales = class(TfrViewBase)
|
TfrViewTotales = class(TfrViewBase)
|
||||||
|
|||||||
@ -16,7 +16,7 @@ uses
|
|||||||
{Used RODLs:} DataAbstract4_Intf,
|
{Used RODLs:} DataAbstract4_Intf,
|
||||||
{Generated:} uDABusinessProcessor, uDABin2DataStreamer, uDADataStreamer,
|
{Generated:} uDABusinessProcessor, uDABin2DataStreamer, uDADataStreamer,
|
||||||
uDAScriptingProvider, uDAClasses,
|
uDAScriptingProvider, uDAClasses,
|
||||||
FactuGES_Intf, uDAInterfaces;
|
FactuGES_Intf, uDAInterfaces, uROClient;
|
||||||
|
|
||||||
|
|
||||||
type
|
type
|
||||||
|
|||||||
@ -131,32 +131,32 @@ inherited fEditorAlbaranCliente: TfEditorAlbaranCliente
|
|||||||
AnchorY = 14
|
AnchorY = 14
|
||||||
end
|
end
|
||||||
end
|
end
|
||||||
inherited TBXDock: TTBXDock
|
inherited TBXDock: TSpTBXDock
|
||||||
Width = 855
|
Width = 855
|
||||||
ExplicitWidth = 855
|
ExplicitWidth = 855
|
||||||
inherited tbxMain: TTBXToolbar
|
inherited tbxMain: TSpTBXToolbar
|
||||||
ExplicitWidth = 488
|
ExplicitWidth = 488
|
||||||
inherited TBXItem2: TTBXItem
|
inherited TBXItem2: TSpTBXItem
|
||||||
Visible = False
|
Visible = False
|
||||||
end
|
end
|
||||||
inherited TBXSeparatorItem1: TTBXSeparatorItem
|
inherited TBXSeparatorItem1: TSpTBXSeparatorItem
|
||||||
Visible = False
|
Visible = False
|
||||||
end
|
end
|
||||||
inherited TBXItem5: TTBXItem
|
inherited TBXItem5: TSpTBXItem
|
||||||
Visible = False
|
Visible = False
|
||||||
end
|
end
|
||||||
object TBXItem33: TTBXItem [12]
|
object TBXItem33: TSpTBXItem [12]
|
||||||
Action = actEnviarEMail
|
Action = actEnviarEMail
|
||||||
DisplayMode = nbdmImageAndText
|
DisplayMode = nbdmImageAndText
|
||||||
end
|
end
|
||||||
object TBXSeparatorItem6: TTBXSeparatorItem [13]
|
object TBXSeparatorItem6: TSpTBXSeparatorItem [13]
|
||||||
end
|
end
|
||||||
end
|
end
|
||||||
inherited tbxMenu: TTBXToolbar
|
inherited tbxMenu: TSpTBXToolbar
|
||||||
ExplicitWidth = 855
|
ExplicitWidth = 855
|
||||||
object TBXSubmenuItem2: TTBXSubmenuItem [4]
|
object TBXSubmenuItem2: TSpTBXSubmenuItem [4]
|
||||||
Caption = 'A&cciones'
|
Caption = 'A&cciones'
|
||||||
object TBXItem7: TTBXItem
|
object TBXItem7: TSpTBXItem
|
||||||
Action = actEnviarEMail
|
Action = actEnviarEMail
|
||||||
end
|
end
|
||||||
end
|
end
|
||||||
@ -293,12 +293,12 @@ inherited fEditorAlbaranCliente: TfEditorAlbaranCliente
|
|||||||
ExplicitWidth = 841
|
ExplicitWidth = 841
|
||||||
ExplicitHeight = 255
|
ExplicitHeight = 255
|
||||||
end
|
end
|
||||||
inherited TBXDock1: TTBXDock
|
inherited TBXDock1: TSpTBXDock
|
||||||
Top = 46
|
Top = 46
|
||||||
Width = 841
|
Width = 841
|
||||||
ExplicitTop = 73
|
ExplicitTop = 73
|
||||||
ExplicitWidth = 841
|
ExplicitWidth = 841
|
||||||
inherited TBXToolbar1: TTBXToolbar
|
inherited TBXToolbar1: TSpTBXToolbar
|
||||||
ExplicitWidth = 762
|
ExplicitWidth = 762
|
||||||
end
|
end
|
||||||
end
|
end
|
||||||
|
|||||||
@ -6,7 +6,7 @@ uses
|
|||||||
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
|
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
|
||||||
uEditorDBItem, DB, uDADataTable, JvAppStorage,
|
uEditorDBItem, DB, uDADataTable, JvAppStorage,
|
||||||
JvAppRegistryStorage, JvComponent, JvFormPlacement, ImgList,
|
JvAppRegistryStorage, JvComponent, JvFormPlacement, ImgList,
|
||||||
PngImageList, StdActns, ActnList, ComCtrls, TBX, TB2Item, TB2Dock,
|
PngImageList, StdActns, ActnList, ComCtrls, SpTBXItem, TB2Item, TB2Dock,
|
||||||
TB2Toolbar, ExtCtrls, JvExControls, JvNavigationPane,
|
TB2Toolbar, ExtCtrls, JvExControls, JvNavigationPane,
|
||||||
uCustomView, uViewBase, JvComponentBase,
|
uCustomView, uViewBase, JvComponentBase,
|
||||||
StdCtrls, pngimage, AppEvnts, cxControls, cxContainer, cxEdit, cxTextEdit, cxMemo, cxDBEdit,
|
StdCtrls, pngimage, AppEvnts, cxControls, cxContainer, cxEdit, cxTextEdit, cxMemo, cxDBEdit,
|
||||||
@ -25,10 +25,10 @@ type
|
|||||||
dxLayoutOfficeLookAndFeel1: TdxLayoutOfficeLookAndFeel;
|
dxLayoutOfficeLookAndFeel1: TdxLayoutOfficeLookAndFeel;
|
||||||
frViewDetallesAlbaranCliente1: TfrViewDetallesAlbaranCliente;
|
frViewDetallesAlbaranCliente1: TfrViewDetallesAlbaranCliente;
|
||||||
actEnviarEMail: TAction;
|
actEnviarEMail: TAction;
|
||||||
TBXSubmenuItem2: TTBXSubmenuItem;
|
TBXSubmenuItem2: TSpTBXSubmenuItem;
|
||||||
TBXItem7: TTBXItem;
|
TBXItem7: TSpTBXItem;
|
||||||
TBXItem33: TTBXItem;
|
TBXItem33: TSpTBXItem;
|
||||||
TBXSeparatorItem6: TTBXSeparatorItem;
|
TBXSeparatorItem6: TSpTBXSeparatorItem;
|
||||||
frViewTotalesAlbaran1: TfrViewTotalesAlbaran;
|
frViewTotalesAlbaran1: TfrViewTotalesAlbaran;
|
||||||
|
|
||||||
procedure FormShow(Sender: TObject);
|
procedure FormShow(Sender: TObject);
|
||||||
|
|||||||
@ -8,7 +8,7 @@ uses
|
|||||||
JvAppStorage, JvAppRegistryStorage, JvComponentBase, JvFormPlacement, ImgList,
|
JvAppStorage, JvAppRegistryStorage, JvComponentBase, JvFormPlacement, ImgList,
|
||||||
PngImageList, StdActns, ActnList, uViewTotales, ComCtrls, JvExComCtrls,
|
PngImageList, StdActns, ActnList, uViewTotales, ComCtrls, JvExComCtrls,
|
||||||
JvStatusBar, uViewIncidencias, uCustomView, uViewBase, uViewDetallesBase,
|
JvStatusBar, uViewIncidencias, uCustomView, uViewBase, uViewDetallesBase,
|
||||||
uViewDetallesDTO, uViewDetallesArticulos, uViewDetallesAlbaranCliente, TBX,
|
uViewDetallesDTO, uViewDetallesArticulos, uViewDetallesAlbaranCliente, SpTBXItem,
|
||||||
TB2Item, TB2Dock, TB2Toolbar, pngimage, ExtCtrls, JvExControls, JvComponent,
|
TB2Item, TB2Dock, TB2Toolbar, pngimage, ExtCtrls, JvExControls, JvComponent,
|
||||||
JvNavigationPane, uIEditorAlbaranDevCliente, uDAInterfaces, dxGDIPlusClasses,
|
JvNavigationPane, uIEditorAlbaranDevCliente, uDAInterfaces, dxGDIPlusClasses,
|
||||||
uViewDetallesArticulosParaVenta, cxControls, cxContainer, cxEdit, cxLabel;
|
uViewDetallesArticulosParaVenta, cxControls, cxContainer, cxEdit, cxLabel;
|
||||||
|
|||||||
@ -121,61 +121,61 @@ inherited fEditorAlbaranesCliente: TfEditorAlbaranesCliente
|
|||||||
ExplicitLeft = 563
|
ExplicitLeft = 563
|
||||||
end
|
end
|
||||||
end
|
end
|
||||||
inherited TBXDock: TTBXDock
|
inherited TBXDock: TSpTBXDock
|
||||||
Width = 583
|
Width = 583
|
||||||
ExplicitWidth = 583
|
ExplicitWidth = 583
|
||||||
inherited tbxMain: TTBXToolbar
|
inherited tbxMain: TSpTBXToolbar
|
||||||
ExplicitWidth = 583
|
ExplicitWidth = 583
|
||||||
object TBXSeparatorItem17: TTBXSeparatorItem [10]
|
object TBXSeparatorItem17: TSpTBXSeparatorItem [10]
|
||||||
end
|
end
|
||||||
end
|
end
|
||||||
inherited tbxFiltro: TTBXToolbar
|
inherited tbxFiltro: TSpTBXToolbar
|
||||||
ExplicitWidth = 427
|
ExplicitWidth = 427
|
||||||
inherited lblAno: TTBXLabelItem
|
inherited lblAno: TSpTBXLabelItem
|
||||||
Visible = True
|
Visible = True
|
||||||
end
|
end
|
||||||
inherited cbxListaAnos: TTBXComboBoxItem
|
inherited cbxListaAnos: TSpTBXComboBox
|
||||||
Visible = True
|
Visible = True
|
||||||
end
|
end
|
||||||
inherited sepAno: TTBXSeparatorItem
|
inherited sepAno: TSpTBXSeparatorItem
|
||||||
Visible = True
|
Visible = True
|
||||||
end
|
end
|
||||||
end
|
end
|
||||||
inherited tbxMenu: TTBXToolbar
|
inherited tbxMenu: TSpTBXToolbar
|
||||||
ExplicitWidth = 583
|
ExplicitWidth = 583
|
||||||
object TBXSubmenuItem2: TTBXSubmenuItem [4]
|
object TBXSubmenuItem2: TSpTBXSubmenuItem [4]
|
||||||
Caption = 'A&cciones'
|
Caption = 'A&cciones'
|
||||||
object TBXItem39: TTBXItem
|
object TBXItem39: TSpTBXItem
|
||||||
Action = actEnviarEMail
|
Action = actEnviarEMail
|
||||||
end
|
end
|
||||||
end
|
end
|
||||||
end
|
end
|
||||||
inherited TBXTMain2: TTBXToolbar
|
inherited TBXTMain2: TSpTBXToolbar
|
||||||
Left = 427
|
Left = 427
|
||||||
Visible = True
|
Visible = True
|
||||||
ExplicitLeft = 427
|
ExplicitLeft = 427
|
||||||
ExplicitWidth = 117
|
ExplicitWidth = 117
|
||||||
object TBXItem42: TTBXItem
|
object TBXItem42: TSpTBXItem
|
||||||
Action = actEnviar
|
Action = actEnviar
|
||||||
DisplayMode = nbdmImageAndText
|
DisplayMode = nbdmImageAndText
|
||||||
end
|
end
|
||||||
object TBXItem43: TTBXItem
|
object TBXItem43: TSpTBXItem
|
||||||
Action = actCancelarEnvio
|
Action = actCancelarEnvio
|
||||||
DisplayMode = nbdmImageAndText
|
DisplayMode = nbdmImageAndText
|
||||||
end
|
end
|
||||||
object TBXSeparatorItem18: TTBXSeparatorItem
|
object TBXSeparatorItem18: TSpTBXSeparatorItem
|
||||||
end
|
end
|
||||||
object TBXItem44: TTBXItem
|
object TBXItem44: TSpTBXItem
|
||||||
Action = actConfirmarRecepcion
|
Action = actConfirmarRecepcion
|
||||||
DisplayMode = nbdmImageAndText
|
DisplayMode = nbdmImageAndText
|
||||||
end
|
end
|
||||||
object TBXSeparatorItem19: TTBXSeparatorItem
|
object TBXSeparatorItem19: TSpTBXSeparatorItem
|
||||||
end
|
end
|
||||||
object TBXItem45: TTBXItem
|
object TBXItem45: TSpTBXItem
|
||||||
Action = actGenerarFactura
|
Action = actGenerarFactura
|
||||||
DisplayMode = nbdmImageAndText
|
DisplayMode = nbdmImageAndText
|
||||||
end
|
end
|
||||||
object TBXItem38: TTBXItem
|
object TBXItem38: TSpTBXItem
|
||||||
Action = actGenerarEtiquetas
|
Action = actGenerarEtiquetas
|
||||||
DisplayMode = nbdmImageAndText
|
DisplayMode = nbdmImageAndText
|
||||||
end
|
end
|
||||||
|
|||||||
@ -6,8 +6,8 @@ uses
|
|||||||
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
|
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
|
||||||
Dialogs, Menus, DB, uDADataTable, JvAppStorage,
|
Dialogs, Menus, DB, uDADataTable, JvAppStorage,
|
||||||
JvAppRegistryStorage, JvComponent, JvFormPlacement, ImgList,
|
JvAppRegistryStorage, JvComponent, JvFormPlacement, ImgList,
|
||||||
PngImageList, StdActns, ActnList, ComCtrls, TB2ExtItems, TBXExtItems,
|
PngImageList, StdActns, ActnList, ComCtrls, TB2ExtItems,
|
||||||
TBX, TB2Item, TB2Dock, TB2Toolbar, ExtCtrls, JvExControls,
|
SpTBXItem, TB2Item, TB2Dock, TB2Toolbar, ExtCtrls, JvExControls,
|
||||||
JvNavigationPane, uViewGrid, pngimage, JvComponentBase,
|
JvNavigationPane, uViewGrid, pngimage, JvComponentBase,
|
||||||
uEditorGridBase,
|
uEditorGridBase,
|
||||||
uBizAlbaranesCliente, uIEditorAlbaranesCliente, uAlbaranesClienteController,
|
uBizAlbaranesCliente, uIEditorAlbaranesCliente, uAlbaranesClienteController,
|
||||||
@ -20,26 +20,26 @@ type
|
|||||||
actGenerarFactura: TAction;
|
actGenerarFactura: TAction;
|
||||||
N4: TMenuItem;
|
N4: TMenuItem;
|
||||||
Generarfactura1: TMenuItem;
|
Generarfactura1: TMenuItem;
|
||||||
TBXSeparatorItem17: TTBXSeparatorItem;
|
TBXSeparatorItem17: TSpTBXSeparatorItem;
|
||||||
actEnviar: TAction;
|
actEnviar: TAction;
|
||||||
Serviralbarn1: TMenuItem;
|
Serviralbarn1: TMenuItem;
|
||||||
JsImprimirDialog: TJSDialog;
|
JsImprimirDialog: TJSDialog;
|
||||||
JsPrevisualizarDialog: TJSDialog;
|
JsPrevisualizarDialog: TJSDialog;
|
||||||
actCancelarEnvio: TAction;
|
actCancelarEnvio: TAction;
|
||||||
actConfirmarRecepcion: TAction;
|
actConfirmarRecepcion: TAction;
|
||||||
TBXItem42: TTBXItem;
|
TBXItem42: TSpTBXItem;
|
||||||
TBXItem43: TTBXItem;
|
TBXItem43: TSpTBXItem;
|
||||||
TBXItem44: TTBXItem;
|
TBXItem44: TSpTBXItem;
|
||||||
TBXSeparatorItem18: TTBXSeparatorItem;
|
TBXSeparatorItem18: TSpTBXSeparatorItem;
|
||||||
TBXItem45: TTBXItem;
|
TBXItem45: TSpTBXItem;
|
||||||
TBXSeparatorItem19: TTBXSeparatorItem;
|
TBXSeparatorItem19: TSpTBXSeparatorItem;
|
||||||
actGenerarEtiquetas: TAction;
|
actGenerarEtiquetas: TAction;
|
||||||
TBXItem38: TTBXItem;
|
TBXItem38: TSpTBXItem;
|
||||||
JsListaAlbaranesNoEliminados: TJSDialog;
|
JsListaAlbaranesNoEliminados: TJSDialog;
|
||||||
actEnviarEMail: TAction;
|
actEnviarEMail: TAction;
|
||||||
Enviarporemail1: TMenuItem;
|
Enviarporemail1: TMenuItem;
|
||||||
TBXSubmenuItem2: TTBXSubmenuItem;
|
TBXSubmenuItem2: TSpTBXSubmenuItem;
|
||||||
TBXItem39: TTBXItem;
|
TBXItem39: TSpTBXItem;
|
||||||
procedure FormShow(Sender: TObject);
|
procedure FormShow(Sender: TObject);
|
||||||
procedure actGenerarFacturaUpdate(Sender: TObject);
|
procedure actGenerarFacturaUpdate(Sender: TObject);
|
||||||
procedure actGenerarFacturaExecute(Sender: TObject);
|
procedure actGenerarFacturaExecute(Sender: TObject);
|
||||||
@ -54,7 +54,7 @@ type
|
|||||||
procedure actGenerarEtiquetasUpdate(Sender: TObject);
|
procedure actGenerarEtiquetasUpdate(Sender: TObject);
|
||||||
procedure actEnviarEMailExecute(Sender: TObject);
|
procedure actEnviarEMailExecute(Sender: TObject);
|
||||||
procedure actEnviarEMailUpdate(Sender: TObject);
|
procedure actEnviarEMailUpdate(Sender: TObject);
|
||||||
procedure OnListaAnosChange(Sender: TObject; const Text: string);
|
procedure OnListaAnosChange(Sender: TObject);
|
||||||
|
|
||||||
protected
|
protected
|
||||||
FAlbaranes: IBizAlbaranCliente;
|
FAlbaranes: IBizAlbaranCliente;
|
||||||
@ -475,7 +475,7 @@ begin
|
|||||||
// end;
|
// end;
|
||||||
end;
|
end;
|
||||||
|
|
||||||
procedure TfEditorAlbaranesCliente.OnListaAnosChange(Sender: TObject; const Text: string);
|
procedure TfEditorAlbaranesCliente.OnListaAnosChange(Sender: TObject);
|
||||||
begin
|
begin
|
||||||
Controller.FiltrarAno(Albaranes, DynWhereDataTable, Text);
|
Controller.FiltrarAno(Albaranes, DynWhereDataTable, Text);
|
||||||
if Albaranes.DataTable.Active then
|
if Albaranes.DataTable.Active then
|
||||||
|
|||||||
@ -4,10 +4,10 @@ inherited fEditorAlbaranesClientePreview: TfEditorAlbaranesClientePreview
|
|||||||
ExplicitHeight = 240
|
ExplicitHeight = 240
|
||||||
PixelsPerInch = 96
|
PixelsPerInch = 96
|
||||||
TextHeight = 13
|
TextHeight = 13
|
||||||
inherited TBXDock: TTBXDock
|
inherited TBXDock: TSpTBXDock
|
||||||
inherited TBXToolbar1: TTBXToolbar
|
inherited TBXToolbar1: TSpTBXToolbar
|
||||||
ExplicitWidth = 540
|
ExplicitWidth = 540
|
||||||
object TBXItem58: TTBXItem [1]
|
object TBXItem58: TSpTBXItem [1]
|
||||||
Action = actExportarRTF
|
Action = actExportarRTF
|
||||||
Images = SmallImages
|
Images = SmallImages
|
||||||
end
|
end
|
||||||
|
|||||||
@ -8,7 +8,7 @@ uses
|
|||||||
// frxDMPExport, frxGradient, frxChBox, frxCross, frxRich, frxChart, frxOLE,
|
// frxDMPExport, frxGradient, frxChBox, frxCross, frxRich, frxChart, frxOLE,
|
||||||
// frxBarcode, JvAppStorage, JvAppRegistryStorage, JvComponentBase,
|
// frxBarcode, JvAppStorage, JvAppRegistryStorage, JvComponentBase,
|
||||||
JvFormPlacement, ImgList, PngImageList, StdActns, ActnList, ComCtrls,
|
JvFormPlacement, ImgList, PngImageList, StdActns, ActnList, ComCtrls,
|
||||||
TB2ExtItems, TBXExtItems, TBX, TB2Item, TB2Dock, TB2Toolbar, pngimage,
|
TB2ExtItems, SpTBXItem, TB2Item, TB2Dock, TB2Toolbar, pngimage,
|
||||||
ExtCtrls, JvExControls, JvComponent, JvNavigationPane, uIEditorAlbaranesClientePreview,
|
ExtCtrls, JvExControls, JvComponent, JvNavigationPane, uIEditorAlbaranesClientePreview,
|
||||||
JvExComCtrls, JvStatusBar, frxDMPExport, frxGradient, frxChBox, frxCross,
|
JvExComCtrls, JvStatusBar, frxDMPExport, frxGradient, frxChBox, frxCross,
|
||||||
frxRich, frxOLE, frxBarcode, JvAppStorage, JvAppRegistryStorage,
|
frxRich, frxOLE, frxBarcode, JvAppStorage, JvAppRegistryStorage,
|
||||||
@ -16,7 +16,7 @@ uses
|
|||||||
|
|
||||||
type
|
type
|
||||||
TfEditorAlbaranesClientePreview = class(TfEditorPreview, IEditorAlbaranesClientePreview)
|
TfEditorAlbaranesClientePreview = class(TfEditorPreview, IEditorAlbaranesClientePreview)
|
||||||
TBXItem58: TTBXItem;
|
TBXItem58: TSpTBXItem;
|
||||||
procedure actExportarRTFExecute(Sender: TObject);
|
procedure actExportarRTFExecute(Sender: TObject);
|
||||||
end;
|
end;
|
||||||
|
|
||||||
|
|||||||
@ -37,8 +37,8 @@ inherited fEditorAlbaranesDevCliente: TfEditorAlbaranesDevCliente
|
|||||||
3CAB4D7E2B002400F40B7DA11C32DBE756950000000049454E44AE426082}
|
3CAB4D7E2B002400F40B7DA11C32DBE756950000000049454E44AE426082}
|
||||||
end
|
end
|
||||||
end
|
end
|
||||||
inherited TBXDock: TTBXDock
|
inherited TBXDock: TSpTBXDock
|
||||||
inherited TBXTMain2: TTBXToolbar
|
inherited TBXTMain2: TSpTBXToolbar
|
||||||
ExplicitWidth = 124
|
ExplicitWidth = 124
|
||||||
end
|
end
|
||||||
end
|
end
|
||||||
|
|||||||
@ -6,8 +6,8 @@ uses
|
|||||||
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
|
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
|
||||||
Dialogs, uEditorAlbaranesCliente, JSDialog, Menus, DB, uDADataTable,
|
Dialogs, uEditorAlbaranesCliente, JSDialog, Menus, DB, uDADataTable,
|
||||||
JvAppStorage, JvAppRegistryStorage, JvComponentBase, JvFormPlacement, ImgList,
|
JvAppStorage, JvAppRegistryStorage, JvComponentBase, JvFormPlacement, ImgList,
|
||||||
PngImageList, StdActns, ActnList, ComCtrls, JvExComCtrls, JvStatusBar, TBX,
|
PngImageList, StdActns, ActnList, ComCtrls, JvExComCtrls, JvStatusBar, SpTBXItem,
|
||||||
TB2ExtItems, TBXExtItems, TB2Item, TB2Dock, TB2Toolbar, pngimage, ExtCtrls,
|
TB2ExtItems, TB2Item, TB2Dock, TB2Toolbar, pngimage, ExtCtrls,
|
||||||
JvExControls, JvComponent, JvNavigationPane, uIEditorAlbaranesDevCliente,
|
JvExControls, JvComponent, JvNavigationPane, uIEditorAlbaranesDevCliente,
|
||||||
uDAInterfaces, dxGDIPlusClasses;
|
uDAInterfaces, dxGDIPlusClasses;
|
||||||
|
|
||||||
|
|||||||
@ -17,75 +17,75 @@ inherited fEditorElegirAlbaranesCliente: TfEditorElegirAlbaranesCliente
|
|||||||
ExplicitLeft = 629
|
ExplicitLeft = 629
|
||||||
end
|
end
|
||||||
end
|
end
|
||||||
inherited TBXDock: TTBXDock
|
inherited TBXDock: TSpTBXDock
|
||||||
Top = 64
|
Top = 64
|
||||||
Width = 790
|
Width = 790
|
||||||
ExplicitTop = 91
|
ExplicitTop = 91
|
||||||
ExplicitWidth = 790
|
ExplicitWidth = 790
|
||||||
inherited tbxMain: TTBXToolbar
|
inherited tbxMain: TSpTBXToolbar
|
||||||
Left = 359
|
Left = 359
|
||||||
ExplicitLeft = 359
|
ExplicitLeft = 359
|
||||||
ExplicitWidth = 263
|
ExplicitWidth = 263
|
||||||
inherited TBXItem2: TTBXItem
|
inherited TBXItem2: TSpTBXItem
|
||||||
Visible = False
|
Visible = False
|
||||||
end
|
end
|
||||||
inherited TBXSeparatorItem1: TTBXSeparatorItem
|
inherited TBXSeparatorItem1: TSpTBXSeparatorItem
|
||||||
Visible = False
|
Visible = False
|
||||||
end
|
end
|
||||||
inherited TBXItem5: TTBXItem
|
inherited TBXItem5: TSpTBXItem
|
||||||
Visible = False
|
Visible = False
|
||||||
end
|
end
|
||||||
inherited TBXItem4: TTBXItem
|
inherited TBXItem4: TSpTBXItem
|
||||||
Visible = False
|
Visible = False
|
||||||
end
|
end
|
||||||
inherited TBXSeparatorItem6: TTBXSeparatorItem
|
inherited TBXSeparatorItem6: TSpTBXSeparatorItem
|
||||||
Visible = False
|
Visible = False
|
||||||
end
|
end
|
||||||
inherited TBXItem7: TTBXItem
|
inherited TBXItem7: TSpTBXItem
|
||||||
Visible = False
|
Visible = False
|
||||||
end
|
end
|
||||||
inherited TBXSeparatorItem3: TTBXSeparatorItem
|
inherited TBXSeparatorItem3: TSpTBXSeparatorItem
|
||||||
Visible = False
|
Visible = False
|
||||||
end
|
end
|
||||||
inherited TBXItem23: TTBXItem
|
inherited TBXItem23: TSpTBXItem
|
||||||
Visible = False
|
Visible = False
|
||||||
end
|
end
|
||||||
inherited TBXSeparatorItem17: TTBXSeparatorItem
|
inherited TBXSeparatorItem17: TSpTBXSeparatorItem
|
||||||
Visible = False
|
Visible = False
|
||||||
end
|
end
|
||||||
inherited TBXItem3: TTBXItem
|
inherited TBXItem3: TSpTBXItem
|
||||||
Visible = False
|
Visible = False
|
||||||
end
|
end
|
||||||
inherited TBXSeparatorItem10: TTBXSeparatorItem
|
inherited TBXSeparatorItem10: TSpTBXSeparatorItem
|
||||||
Visible = False
|
Visible = False
|
||||||
end
|
end
|
||||||
inherited TBXSeparatorItem2: TTBXSeparatorItem
|
inherited TBXSeparatorItem2: TSpTBXSeparatorItem
|
||||||
Visible = False
|
Visible = False
|
||||||
end
|
end
|
||||||
inherited TBXItem6: TTBXItem
|
inherited TBXItem6: TSpTBXItem
|
||||||
Visible = False
|
Visible = False
|
||||||
end
|
end
|
||||||
inherited TBXItem36: TTBXItem
|
inherited TBXItem36: TSpTBXItem
|
||||||
Action = actAnchoAuto2
|
Action = actAnchoAuto2
|
||||||
end
|
end
|
||||||
end
|
end
|
||||||
inherited tbxFiltro: TTBXToolbar
|
inherited tbxFiltro: TSpTBXToolbar
|
||||||
Top = 23
|
Top = 23
|
||||||
DockPos = -185
|
DockPos = -185
|
||||||
DockRow = 1
|
DockRow = 1
|
||||||
ExplicitTop = 23
|
ExplicitTop = 23
|
||||||
ExplicitWidth = 359
|
ExplicitWidth = 359
|
||||||
inherited TBXItem34: TTBXItem
|
inherited TBXItem34: TSpTBXItem
|
||||||
Action = actQuitarFiltro2
|
Action = actQuitarFiltro2
|
||||||
end
|
end
|
||||||
inherited TBXItem37: TTBXItem
|
inherited TBXItem37: TSpTBXItem
|
||||||
Visible = False
|
Visible = False
|
||||||
end
|
end
|
||||||
end
|
end
|
||||||
inherited tbxMenu: TTBXToolbar
|
inherited tbxMenu: TSpTBXToolbar
|
||||||
ExplicitWidth = 790
|
ExplicitWidth = 790
|
||||||
end
|
end
|
||||||
inherited TBXTMain2: TTBXToolbar
|
inherited TBXTMain2: TSpTBXToolbar
|
||||||
Left = 318
|
Left = 318
|
||||||
Visible = False
|
Visible = False
|
||||||
ExplicitLeft = 318
|
ExplicitLeft = 318
|
||||||
|
|||||||
@ -7,7 +7,7 @@ uses
|
|||||||
Dialogs, DB, uDADataTable, Menus, JvAppStorage, JvAppRegistryStorage,
|
Dialogs, DB, uDADataTable, Menus, JvAppStorage, JvAppRegistryStorage,
|
||||||
JvComponentBase, JvFormPlacement, ImgList, PngImageList, StdActns,
|
JvComponentBase, JvFormPlacement, ImgList, PngImageList, StdActns,
|
||||||
ActnList, uCustomView, uViewBase, uViewGridBase, uViewGrid,
|
ActnList, uCustomView, uViewBase, uViewGridBase, uViewGrid,
|
||||||
uViewAlbaranesCliente, ComCtrls, TB2ExtItems, TBXExtItems, TBX,
|
uViewAlbaranesCliente, ComCtrls, TB2ExtItems, SpTBXItem,
|
||||||
TB2Item, TB2Dock, TB2Toolbar, pngimage, ExtCtrls, JvExControls, JvComponent,
|
TB2Item, TB2Dock, TB2Toolbar, pngimage, ExtCtrls, JvExControls, JvComponent,
|
||||||
JvNavigationPane, uViewBarraSeleccion, StdCtrls,
|
JvNavigationPane, uViewBarraSeleccion, StdCtrls,
|
||||||
uEditorAlbaranesCliente, uBizAlbaranesCliente, uIEditorElegirAlbaranesCliente,
|
uEditorAlbaranesCliente, uBizAlbaranesCliente, uIEditorElegirAlbaranesCliente,
|
||||||
|
|||||||
@ -6,20 +6,20 @@ inherited fEditorElegirArticulosAlbaranCliente: TfEditorElegirArticulosAlbaranCl
|
|||||||
inherited JvNavPanelHeader: TJvNavPanelHeader
|
inherited JvNavPanelHeader: TJvNavPanelHeader
|
||||||
ExplicitTop = 113
|
ExplicitTop = 113
|
||||||
end
|
end
|
||||||
inherited TBXDock: TTBXDock
|
inherited TBXDock: TSpTBXDock
|
||||||
ExplicitTop = 64
|
ExplicitTop = 64
|
||||||
inherited tbxMain: TTBXToolbar
|
inherited tbxMain: TSpTBXToolbar
|
||||||
Left = 340
|
Left = 340
|
||||||
DockPos = 335
|
DockPos = 335
|
||||||
ExplicitLeft = 340
|
ExplicitLeft = 340
|
||||||
ExplicitWidth = 126
|
ExplicitWidth = 126
|
||||||
end
|
end
|
||||||
inherited tbxFiltro: TTBXToolbar
|
inherited tbxFiltro: TSpTBXToolbar
|
||||||
Left = 3
|
Left = 3
|
||||||
DockPos = 3
|
DockPos = 3
|
||||||
ExplicitLeft = 3
|
ExplicitLeft = 3
|
||||||
end
|
end
|
||||||
inherited TBXTMain2: TTBXToolbar
|
inherited TBXTMain2: TSpTBXToolbar
|
||||||
Left = 466
|
Left = 466
|
||||||
ExplicitLeft = 466
|
ExplicitLeft = 466
|
||||||
end
|
end
|
||||||
|
|||||||
@ -7,7 +7,7 @@ uses
|
|||||||
Dialogs, uEditorElegirArticulos, Menus, DB, uDADataTable, JvAppStorage,
|
Dialogs, uEditorElegirArticulos, Menus, DB, uDADataTable, JvAppStorage,
|
||||||
JvAppRegistryStorage, JvComponentBase, JvFormPlacement, ImgList, PngImageList,
|
JvAppRegistryStorage, JvComponentBase, JvFormPlacement, ImgList, PngImageList,
|
||||||
StdActns, ActnList, uCustomView, uViewBase, uViewBarraSeleccion, ComCtrls,
|
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,
|
TB2Toolbar, pngimage, ExtCtrls, JvExControls, JvComponent, JvNavigationPane,
|
||||||
uIEditorElegirArticulosAlbaranesCliente, uDAInterfaces,
|
uIEditorElegirArticulosAlbaranesCliente, uDAInterfaces,
|
||||||
uViewGridBase, uViewGrid, uViewArticulos, StdCtrls;
|
uViewGridBase, uViewGrid, uViewArticulos, StdCtrls;
|
||||||
|
|||||||
@ -194,7 +194,7 @@ inherited frViewAlbaranesCliente: TfrViewAlbaranesCliente
|
|||||||
inherited frViewFiltroBase1: TfrViewFiltroBase
|
inherited frViewFiltroBase1: TfrViewFiltroBase
|
||||||
Width = 802
|
Width = 802
|
||||||
ExplicitWidth = 802
|
ExplicitWidth = 802
|
||||||
inherited TBXDockablePanel1: TTBXDockablePanel
|
inherited TBXDockablePanel1: TSpTBXDockablePanel
|
||||||
ExplicitWidth = 802
|
ExplicitWidth = 802
|
||||||
inherited dxLayoutControl1: TdxLayoutControl
|
inherited dxLayoutControl1: TdxLayoutControl
|
||||||
Width = 802
|
Width = 802
|
||||||
@ -234,10 +234,10 @@ inherited frViewAlbaranesCliente: TfrViewAlbaranesCliente
|
|||||||
ExplicitLeft = 638
|
ExplicitLeft = 638
|
||||||
end
|
end
|
||||||
end
|
end
|
||||||
inherited TBXAlignmentPanel1: TTBXAlignmentPanel
|
inherited TBXAlignmentPanel1: TSpTBXDockablePanel
|
||||||
Width = 802
|
Width = 802
|
||||||
ExplicitWidth = 802
|
ExplicitWidth = 802
|
||||||
inherited tbxBotones: TTBXToolbar
|
inherited tbxBotones: TSpTBXToolbar
|
||||||
Width = 792
|
Width = 792
|
||||||
ExplicitWidth = 792
|
ExplicitWidth = 792
|
||||||
end
|
end
|
||||||
@ -248,24 +248,24 @@ inherited frViewAlbaranesCliente: TfrViewAlbaranesCliente
|
|||||||
Top = 72
|
Top = 72
|
||||||
end
|
end
|
||||||
end
|
end
|
||||||
inherited pnlAgrupaciones: TTBXDockablePanel
|
inherited pnlAgrupaciones: TSpTBXDockablePanel
|
||||||
Top = 464
|
Top = 464
|
||||||
ExplicitTop = 464
|
ExplicitTop = 464
|
||||||
ExplicitWidth = 802
|
ExplicitWidth = 802
|
||||||
inherited TBXAlignmentPanel1: TTBXAlignmentPanel
|
inherited TBXAlignmentPanel1: TSpTBXDockablePanel
|
||||||
Width = 802
|
Width = 802
|
||||||
ExplicitWidth = 802
|
ExplicitWidth = 802
|
||||||
inherited TBXToolbar1: TTBXToolbar
|
inherited TBXToolbar1: TSpTBXToolbar
|
||||||
Width = 792
|
Width = 792
|
||||||
ExplicitWidth = 792
|
ExplicitWidth = 792
|
||||||
object TBXSeparatorItem1: TTBXSeparatorItem
|
object TBXSeparatorItem1: TSpTBXSeparatorItem
|
||||||
end
|
end
|
||||||
object TBXItem3: TTBXItem
|
object TBXItem3: TSpTBXItem
|
||||||
Action = actClientes
|
Action = actClientes
|
||||||
end
|
end
|
||||||
object TBXSeparatorItem2: TTBXSeparatorItem
|
object TBXSeparatorItem2: TSpTBXSeparatorItem
|
||||||
end
|
end
|
||||||
object TBXItem2: TTBXItem
|
object TBXItem2: TSpTBXItem
|
||||||
Action = actAlmacenes
|
Action = actAlmacenes
|
||||||
end
|
end
|
||||||
end
|
end
|
||||||
|
|||||||
@ -12,7 +12,7 @@ uses
|
|||||||
uDADataTable, cxGridLevel, cxClasses, cxControls, cxGridCustomView, Classes,
|
uDADataTable, cxGridLevel, cxClasses, cxControls, cxGridCustomView, Classes,
|
||||||
cxGrid,
|
cxGrid,
|
||||||
uBizAlbaranesCliente, cxCurrencyEdit, Forms, uViewFiltroBase, ComCtrls, Tabs,
|
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;
|
uDAInterfaces, uCustomView, uViewBase;
|
||||||
|
|
||||||
type
|
type
|
||||||
@ -51,10 +51,10 @@ type
|
|||||||
cxGridViewIMPORTE_TOTAL: TcxGridDBColumn;
|
cxGridViewIMPORTE_TOTAL: TcxGridDBColumn;
|
||||||
actClientes: TAction;
|
actClientes: TAction;
|
||||||
actAlmacenes: TAction;
|
actAlmacenes: TAction;
|
||||||
TBXItem2: TTBXItem;
|
TBXItem2: TSpTBXItem;
|
||||||
TBXItem3: TTBXItem;
|
TBXItem3: TSpTBXItem;
|
||||||
TBXSeparatorItem1: TTBXSeparatorItem;
|
TBXSeparatorItem1: TSpTBXSeparatorItem;
|
||||||
TBXSeparatorItem2: TTBXSeparatorItem;
|
TBXSeparatorItem2: TSpTBXSeparatorItem;
|
||||||
cxGridViewFECHA_PREVISTA_ENVIO: TcxGridDBColumn;
|
cxGridViewFECHA_PREVISTA_ENVIO: TcxGridDBColumn;
|
||||||
cxStyleRETRASADOS: TcxStyle;
|
cxStyleRETRASADOS: TcxStyle;
|
||||||
cxGridViewINCIDENCIAS: TcxGridDBColumn;
|
cxGridViewINCIDENCIAS: TcxGridDBColumn;
|
||||||
|
|||||||
@ -11,7 +11,7 @@ inherited frViewAlbaranesDevCliente: TfrViewAlbaranesDevCliente
|
|||||||
end
|
end
|
||||||
end
|
end
|
||||||
inherited frViewFiltroBase1: TfrViewFiltroBase
|
inherited frViewFiltroBase1: TfrViewFiltroBase
|
||||||
inherited TBXDockablePanel1: TTBXDockablePanel
|
inherited TBXDockablePanel1: TSpTBXDockablePanel
|
||||||
inherited dxLayoutControl1: TdxLayoutControl
|
inherited dxLayoutControl1: TdxLayoutControl
|
||||||
inherited txtFiltroTodo: TcxTextEdit
|
inherited txtFiltroTodo: TcxTextEdit
|
||||||
Style.LookAndFeel.SkinName = ''
|
Style.LookAndFeel.SkinName = ''
|
||||||
|
|||||||
@ -9,8 +9,8 @@ uses
|
|||||||
dxPSGlbl, dxPSUtl, dxPSEngn, dxPrnPg, dxBkgnd, dxWrap, dxPrnDev,
|
dxPSGlbl, dxPSUtl, dxPSEngn, dxPrnPg, dxBkgnd, dxWrap, dxPrnDev,
|
||||||
dxPSCompsProvider, dxPSFillPatterns, dxPSEdgePatterns, dxPgsDlg, dxPSCore,
|
dxPSCompsProvider, dxPSFillPatterns, dxPSEdgePatterns, dxPgsDlg, dxPSCore,
|
||||||
ImgList, PngImageList, ActnList, cxGridCustomPopupMenu, cxGridPopupMenu,
|
ImgList, PngImageList, ActnList, cxGridCustomPopupMenu, cxGridPopupMenu,
|
||||||
dxPScxCommon, dxPScxGrid6Lnk, uDADataTable, TB2Item, TBX, TB2Toolbar,
|
dxPScxCommon, dxPScxGrid6Lnk, uDADataTable, TB2Item, SpTBXItem, TB2Toolbar,
|
||||||
TBXDkPanels, TB2Dock, uViewFiltroBase, cxGridLevel, cxGridCustomTableView,
|
SpTBXDkPanels, TB2Dock, uViewFiltroBase, cxGridLevel, cxGridCustomTableView,
|
||||||
cxGridTableView, cxGridDBTableView, cxClasses, cxControls, cxGridCustomView,
|
cxGridTableView, cxGridDBTableView, cxClasses, cxControls, cxGridCustomView,
|
||||||
cxGrid, uDAInterfaces;
|
cxGrid, uDAInterfaces;
|
||||||
|
|
||||||
|
|||||||
@ -120,16 +120,16 @@ inherited frViewDetallesAlbaranCliente: TfrViewDetallesAlbaranCliente
|
|||||||
end
|
end
|
||||||
end
|
end
|
||||||
end
|
end
|
||||||
inherited TBXDock1: TTBXDock
|
inherited TBXDock1: TSpTBXDock
|
||||||
Top = 100
|
Top = 100
|
||||||
ExplicitTop = 100
|
ExplicitTop = 100
|
||||||
inherited TBXToolbar1: TTBXToolbar
|
inherited TBXToolbar1: TSpTBXToolbar
|
||||||
DockPos = 0
|
DockPos = 0
|
||||||
ExplicitWidth = 447
|
ExplicitWidth = 447
|
||||||
inherited TBXSubmenuItem1: TTBXSubmenuItem
|
inherited TBXSubmenuItem1: TSpTBXSubmenuItem
|
||||||
Visible = False
|
Visible = False
|
||||||
end
|
end
|
||||||
object TBXItem18: TTBXItem [1]
|
object TBXItem18: TSpTBXItem [1]
|
||||||
Action = actAnadirArticulos
|
Action = actAnadirArticulos
|
||||||
DisplayMode = nbdmImageAndText
|
DisplayMode = nbdmImageAndText
|
||||||
end
|
end
|
||||||
|
|||||||
@ -10,7 +10,7 @@ uses
|
|||||||
cxGridCustomView, cxGridCustomTableView, cxGridTableView, cxGridDBTableView,
|
cxGridCustomView, cxGridCustomTableView, cxGridTableView, cxGridDBTableView,
|
||||||
cxGrid, cxImageComboBox, cxTextEdit, cxMaskEdit, cxCheckBox, cxCurrencyEdit,
|
cxGrid, cxImageComboBox, cxTextEdit, cxMaskEdit, cxCheckBox, cxCurrencyEdit,
|
||||||
Grids, DBGrids, StdCtrls, ExtCtrls, cxRichEdit, ExtActns, StdActns,
|
Grids, DBGrids, StdCtrls, ExtCtrls, cxRichEdit, ExtActns, StdActns,
|
||||||
JvExStdCtrls, JvCombobox, JvColorCombo, TB2Item, TBX, TB2Dock, TB2Toolbar,
|
JvExStdCtrls, JvCombobox, JvColorCombo, TB2Item, SpTBXItem, TB2Dock, TB2Toolbar,
|
||||||
uControllerDetallesArticulos, uBizAlbaranesCliente, cxDropDownEdit,
|
uControllerDetallesArticulos, uBizAlbaranesCliente, cxDropDownEdit,
|
||||||
cxCalendar, cxDBEdit, dxLayoutControl, cxContainer, cxLookupEdit,
|
cxCalendar, cxDBEdit, dxLayoutControl, cxContainer, cxLookupEdit,
|
||||||
cxDBLookupEdit, cxDBLookupComboBox, uDAInterfaces, cxButtonEdit,
|
cxDBLookupEdit, cxDBLookupComboBox, uDAInterfaces, cxButtonEdit,
|
||||||
@ -28,7 +28,7 @@ type
|
|||||||
TfrViewDetallesAlbaranCliente = class(TfrViewDetallesArticulosParaVenta, IViewDetallesAlbaranCliente)
|
TfrViewDetallesAlbaranCliente = class(TfrViewDetallesArticulosParaVenta, IViewDetallesAlbaranCliente)
|
||||||
N2: TMenuItem;
|
N2: TMenuItem;
|
||||||
Aadirartculos1: TMenuItem;
|
Aadirartculos1: TMenuItem;
|
||||||
TBXItem18: TTBXItem;
|
TBXItem18: TSpTBXItem;
|
||||||
cxGridViewCANTIDAD2: TcxGridDBColumn;
|
cxGridViewCANTIDAD2: TcxGridDBColumn;
|
||||||
procedure cxGridViewCANTIDAD2PropertiesButtonClick(Sender: TObject;
|
procedure cxGridViewCANTIDAD2PropertiesButtonClick(Sender: TObject;
|
||||||
AButtonIndex: Integer);
|
AButtonIndex: Integer);
|
||||||
|
|||||||
@ -1,6 +1,6 @@
|
|||||||
inherited frViewElegirArticulosAlbaranesCliente: TfrViewElegirArticulosAlbaranesCliente
|
inherited frViewElegirArticulosAlbaranesCliente: TfrViewElegirArticulosAlbaranesCliente
|
||||||
inherited frViewFiltroBase1: TfrViewFiltroBase
|
inherited frViewFiltroBase1: TfrViewFiltroBase
|
||||||
inherited TBXDockablePanel1: TTBXDockablePanel
|
inherited TBXDockablePanel1: TSpTBXDockablePanel
|
||||||
inherited dxLayoutControl1: TdxLayoutControl
|
inherited dxLayoutControl1: TdxLayoutControl
|
||||||
inherited edtFechaIniFiltro: TcxDateEdit
|
inherited edtFechaIniFiltro: TcxDateEdit
|
||||||
ExplicitWidth = 121
|
ExplicitWidth = 121
|
||||||
|
|||||||
@ -11,7 +11,7 @@ uses
|
|||||||
cxGridCustomPopupMenu, cxGridPopupMenu, dxPSCore, dxPScxCommon, dxPScxGrid6Lnk,
|
cxGridCustomPopupMenu, cxGridPopupMenu, dxPSCore, dxPScxCommon, dxPScxGrid6Lnk,
|
||||||
uDADataTable, cxGridLevel, cxGridCustomTableView, cxGridTableView,
|
uDADataTable, cxGridLevel, cxGridCustomTableView, cxGridTableView,
|
||||||
cxGridDBTableView, cxClasses, cxControls, cxGridCustomView, cxGrid, dxPgsDlg,
|
cxGridDBTableView, cxClasses, cxControls, cxGridCustomView, cxGrid, dxPgsDlg,
|
||||||
ActnList, TB2Item, TBX, TB2Toolbar, TBXDkPanels, TB2Dock, uViewFiltroBase,
|
ActnList, TB2Item, SpTBXItem, TB2Toolbar, SpTBXDkPanels, TB2Dock, uViewFiltroBase,
|
||||||
uDAInterfaces;
|
uDAInterfaces;
|
||||||
|
|
||||||
type
|
type
|
||||||
|
|||||||
@ -16,7 +16,7 @@ uses
|
|||||||
{Used RODLs:} DataAbstract4_Intf,
|
{Used RODLs:} DataAbstract4_Intf,
|
||||||
{Generated:} uDABusinessProcessor, uDABin2DataStreamer, uDADataStreamer,
|
{Generated:} uDABusinessProcessor, uDABin2DataStreamer, uDADataStreamer,
|
||||||
uDAScriptingProvider, uDAClasses,
|
uDAScriptingProvider, uDAClasses,
|
||||||
FactuGES_Intf, uDAInterfaces;
|
FactuGES_Intf, uDAInterfaces, uROClient;
|
||||||
|
|
||||||
type
|
type
|
||||||
{ TsrvAlbaranesProveedor }
|
{ TsrvAlbaranesProveedor }
|
||||||
|
|||||||
@ -9,7 +9,7 @@ uses
|
|||||||
PngImageList, StdActns, ActnList, uViewTotales, ComCtrls, JvExComCtrls,
|
PngImageList, StdActns, ActnList, uViewTotales, ComCtrls, JvExComCtrls,
|
||||||
JvStatusBar, uViewIncidencias, uViewDetallesBase, uViewDetallesDTO,
|
JvStatusBar, uViewIncidencias, uViewDetallesBase, uViewDetallesDTO,
|
||||||
uViewDetallesArticulos, uViewDetallesAlbaranProveedor, uCustomView, uViewBase,
|
uViewDetallesArticulos, uViewDetallesAlbaranProveedor, uCustomView, uViewBase,
|
||||||
uViewAlbaranProveedor, TBX, TB2Item, TB2Dock, TB2Toolbar, pngimage, ExtCtrls,
|
uViewAlbaranProveedor, SpTBXItem, TB2Item, TB2Dock, TB2Toolbar, pngimage, ExtCtrls,
|
||||||
JvExControls, JvComponent, JvNavigationPane, uIEditorAlbaranDevProveedor,
|
JvExControls, JvComponent, JvNavigationPane, uIEditorAlbaranDevProveedor,
|
||||||
uDAInterfaces, dxGDIPlusClasses, cxControls, cxContainer, cxEdit, cxLabel;
|
uDAInterfaces, dxGDIPlusClasses, cxControls, cxContainer, cxEdit, cxLabel;
|
||||||
|
|
||||||
|
|||||||
@ -129,22 +129,22 @@ inherited fEditorAlbaranProveedor: TfEditorAlbaranProveedor
|
|||||||
ExplicitLeft = 667
|
ExplicitLeft = 667
|
||||||
end
|
end
|
||||||
end
|
end
|
||||||
inherited TBXDock: TTBXDock
|
inherited TBXDock: TSpTBXDock
|
||||||
Width = 765
|
Width = 765
|
||||||
ExplicitWidth = 765
|
ExplicitWidth = 765
|
||||||
inherited tbxMain: TTBXToolbar
|
inherited tbxMain: TSpTBXToolbar
|
||||||
ExplicitWidth = 488
|
ExplicitWidth = 488
|
||||||
inherited TBXItem2: TTBXItem
|
inherited TBXItem2: TSpTBXItem
|
||||||
Visible = False
|
Visible = False
|
||||||
end
|
end
|
||||||
inherited TBXSeparatorItem1: TTBXSeparatorItem
|
inherited TBXSeparatorItem1: TSpTBXSeparatorItem
|
||||||
Visible = False
|
Visible = False
|
||||||
end
|
end
|
||||||
inherited TBXItem5: TTBXItem
|
inherited TBXItem5: TSpTBXItem
|
||||||
Visible = False
|
Visible = False
|
||||||
end
|
end
|
||||||
end
|
end
|
||||||
inherited tbxMenu: TTBXToolbar
|
inherited tbxMenu: TSpTBXToolbar
|
||||||
ExplicitWidth = 765
|
ExplicitWidth = 765
|
||||||
end
|
end
|
||||||
end
|
end
|
||||||
@ -286,12 +286,12 @@ inherited fEditorAlbaranProveedor: TfEditorAlbaranProveedor
|
|||||||
ExplicitWidth = 751
|
ExplicitWidth = 751
|
||||||
ExplicitHeight = 367
|
ExplicitHeight = 367
|
||||||
end
|
end
|
||||||
inherited TBXDock1: TTBXDock
|
inherited TBXDock1: TSpTBXDock
|
||||||
Top = 51
|
Top = 51
|
||||||
Width = 751
|
Width = 751
|
||||||
ExplicitTop = 51
|
ExplicitTop = 51
|
||||||
ExplicitWidth = 751
|
ExplicitWidth = 751
|
||||||
inherited TBXToolbar1: TTBXToolbar
|
inherited TBXToolbar1: TSpTBXToolbar
|
||||||
ExplicitWidth = 751
|
ExplicitWidth = 751
|
||||||
end
|
end
|
||||||
end
|
end
|
||||||
|
|||||||
@ -6,7 +6,7 @@ uses
|
|||||||
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
|
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
|
||||||
Dialogs, uEditorDBItem, DB, uDADataTable, JvAppStorage,
|
Dialogs, uEditorDBItem, DB, uDADataTable, JvAppStorage,
|
||||||
JvAppRegistryStorage, JvComponent, JvFormPlacement, ImgList,
|
JvAppRegistryStorage, JvComponent, JvFormPlacement, ImgList,
|
||||||
PngImageList, StdActns, ActnList, ComCtrls, TBX, TB2Item, TB2Dock,
|
PngImageList, StdActns, ActnList, ComCtrls, SpTBXItem, TB2Item, TB2Dock,
|
||||||
TB2Toolbar, ExtCtrls, JvExControls, JvNavigationPane,
|
TB2Toolbar, ExtCtrls, JvExControls, JvNavigationPane,
|
||||||
uCustomView, uViewBase, JvComponentBase,
|
uCustomView, uViewBase, JvComponentBase,
|
||||||
StdCtrls, pngimage, AppEvnts, cxControls, cxContainer, cxEdit, cxTextEdit, cxMemo, cxDBEdit,
|
StdCtrls, pngimage, AppEvnts, cxControls, cxContainer, cxEdit, cxTextEdit, cxMemo, cxDBEdit,
|
||||||
|
|||||||
@ -42,16 +42,16 @@ inherited fEditorAlbaranesDevProveedor: TfEditorAlbaranesDevProveedor
|
|||||||
ExplicitLeft = 845
|
ExplicitLeft = 845
|
||||||
end
|
end
|
||||||
end
|
end
|
||||||
inherited TBXDock: TTBXDock
|
inherited TBXDock: TSpTBXDock
|
||||||
Width = 872
|
Width = 872
|
||||||
ExplicitWidth = 872
|
ExplicitWidth = 872
|
||||||
inherited tbxMain: TTBXToolbar
|
inherited tbxMain: TSpTBXToolbar
|
||||||
ExplicitWidth = 872
|
ExplicitWidth = 872
|
||||||
end
|
end
|
||||||
inherited tbxMenu: TTBXToolbar
|
inherited tbxMenu: TSpTBXToolbar
|
||||||
ExplicitWidth = 872
|
ExplicitWidth = 872
|
||||||
end
|
end
|
||||||
inherited TBXTMain2: TTBXToolbar
|
inherited TBXTMain2: TSpTBXToolbar
|
||||||
ExplicitWidth = 112
|
ExplicitWidth = 112
|
||||||
end
|
end
|
||||||
end
|
end
|
||||||
|
|||||||
@ -6,8 +6,8 @@ uses
|
|||||||
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
|
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
|
||||||
Dialogs, uEditorAlbaranesProveedor, JSDialog, Menus, DB, uDADataTable,
|
Dialogs, uEditorAlbaranesProveedor, JSDialog, Menus, DB, uDADataTable,
|
||||||
JvAppStorage, JvAppRegistryStorage, JvComponentBase, JvFormPlacement, ImgList,
|
JvAppStorage, JvAppRegistryStorage, JvComponentBase, JvFormPlacement, ImgList,
|
||||||
PngImageList, StdActns, ActnList, ComCtrls, JvExComCtrls, JvStatusBar, TBX,
|
PngImageList, StdActns, ActnList, ComCtrls, JvExComCtrls, JvStatusBar, SpTBXItem,
|
||||||
TB2ExtItems, TBXExtItems, TB2Item, TB2Dock, TB2Toolbar, pngimage, ExtCtrls,
|
TB2ExtItems, TB2Item, TB2Dock, TB2Toolbar, pngimage, ExtCtrls,
|
||||||
JvExControls, JvComponent, JvNavigationPane, uIEditorAlbaranesDevProveedor,
|
JvExControls, JvComponent, JvNavigationPane, uIEditorAlbaranesDevProveedor,
|
||||||
uDAInterfaces, dxGDIPlusClasses;
|
uDAInterfaces, dxGDIPlusClasses;
|
||||||
|
|
||||||
|
|||||||
@ -120,46 +120,46 @@ inherited fEditorAlbaranesProveedor: TfEditorAlbaranesProveedor
|
|||||||
ExplicitLeft = 579
|
ExplicitLeft = 579
|
||||||
end
|
end
|
||||||
end
|
end
|
||||||
inherited TBXDock: TTBXDock
|
inherited TBXDock: TSpTBXDock
|
||||||
Width = 606
|
Width = 606
|
||||||
ExplicitWidth = 606
|
ExplicitWidth = 606
|
||||||
inherited tbxMain: TTBXToolbar
|
inherited tbxMain: TSpTBXToolbar
|
||||||
ExplicitWidth = 606
|
ExplicitWidth = 606
|
||||||
end
|
end
|
||||||
inherited tbxFiltro: TTBXToolbar
|
inherited tbxFiltro: TSpTBXToolbar
|
||||||
ExplicitWidth = 427
|
ExplicitWidth = 427
|
||||||
inherited lblAno: TTBXLabelItem
|
inherited lblAno: TSpTBXLabelItem
|
||||||
Visible = True
|
Visible = True
|
||||||
end
|
end
|
||||||
inherited cbxListaAnos: TTBXComboBoxItem
|
inherited cbxListaAnos: TSpTBXComboBox
|
||||||
Visible = True
|
Visible = True
|
||||||
end
|
end
|
||||||
inherited sepAno: TTBXSeparatorItem
|
inherited sepAno: TSpTBXSeparatorItem
|
||||||
Visible = True
|
Visible = True
|
||||||
end
|
end
|
||||||
end
|
end
|
||||||
inherited tbxMenu: TTBXToolbar
|
inherited tbxMenu: TSpTBXToolbar
|
||||||
ExplicitWidth = 606
|
ExplicitWidth = 606
|
||||||
object TBXSubmenuItem2: TTBXSubmenuItem [4]
|
object TBXSubmenuItem2: TSpTBXSubmenuItem [4]
|
||||||
Caption = 'A&cciones'
|
Caption = 'A&cciones'
|
||||||
object TBXItem40: TTBXItem
|
object TBXItem40: TSpTBXItem
|
||||||
Action = actGenerarDevolucion
|
Action = actGenerarDevolucion
|
||||||
end
|
end
|
||||||
object TBXItem38: TTBXItem
|
object TBXItem38: TSpTBXItem
|
||||||
Action = actGenerarFactura
|
Action = actGenerarFactura
|
||||||
end
|
end
|
||||||
end
|
end
|
||||||
end
|
end
|
||||||
inherited TBXTMain2: TTBXToolbar
|
inherited TBXTMain2: TSpTBXToolbar
|
||||||
Left = 427
|
Left = 427
|
||||||
Visible = True
|
Visible = True
|
||||||
ExplicitLeft = 427
|
ExplicitLeft = 427
|
||||||
ExplicitWidth = 117
|
ExplicitWidth = 117
|
||||||
object TBXItem41: TTBXItem
|
object TBXItem41: TSpTBXItem
|
||||||
Action = actGenerarDevolucion
|
Action = actGenerarDevolucion
|
||||||
DisplayMode = nbdmImageAndText
|
DisplayMode = nbdmImageAndText
|
||||||
end
|
end
|
||||||
object TBXItem39: TTBXItem
|
object TBXItem39: TSpTBXItem
|
||||||
Action = actGenerarFactura
|
Action = actGenerarFactura
|
||||||
DisplayMode = nbdmImageAndText
|
DisplayMode = nbdmImageAndText
|
||||||
end
|
end
|
||||||
|
|||||||
Some files were not shown because too many files have changed in this diff Show More
Reference in New Issue
Block a user