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

Documentos -> repaso a los estados de las acciones (eventos update)

Browse Source 
git-svn-id: https://192.168.0.254/svn/Proyectos.Tecsitel_FactuGES2/trunk@571 0c75b7a4-871f-7646-8a2f-f78d34cc349f
This commit is contained in:
David Arranz 2008-09-04 17:49:18 +00:00
parent af7f1b0a5e
commit 0edded6d97
7 changed files with 156 additions and 175 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
Source/GUIBase/uViewDocumentos.dfm
View File

@ -28,6 +28,8 @@ inherited frViewDocumentos: TfrViewDocumentos
object TBXItem1: TTBXItem object TBXItem1: TTBXItem
Action = actEliminar Action = actEliminar
end end
object TBXSeparatorItem1: TTBXSeparatorItem
end
object TBXItem4: TTBXItem object TBXItem4: TTBXItem
Action = actEliminarTodo Action = actEliminarTodo
end end
@ -47,25 +49,29 @@ inherited frViewDocumentos: TfrViewDocumentos
LargeImages = LargeImagesBrowser LargeImages = LargeImagesBrowser
SmallImages = SmallImagesBrowser SmallImages = SmallImagesBrowser
TabOrder = 1 TabOrder = 1
OnDblClick = ListView1DblClick
end end
object EditorActionList: TActionList object EditorActionList: TActionList
Left = 16 Left = 16
Top = 16 Top = 16
object actAnadir: TAction object actAnadir: TAction
Caption = 'A'#241'adir' Caption = 'Abrir'
OnExecute = actAnadirExecute OnExecute = actAnadirExecute
end end
object actModificar: TAction object actModificar: TAction
Caption = 'Modificar' Caption = 'Modificar'
OnExecute = actModificarExecute OnExecute = actModificarExecute
OnUpdate = actModificarUpdate
end end
object actEliminar: TAction object actEliminar: TAction
Caption = 'Eliminar' Caption = 'Eliminar'
OnExecute = actEliminarExecute OnExecute = actEliminarExecute
OnUpdate = actEliminarUpdate
end end
object actEliminarTodo: TAction object actEliminarTodo: TAction
Caption = 'Eliminar todo' Caption = 'Eliminar todo'
OnExecute = actEliminarTodoExecute OnExecute = actEliminarTodoExecute
OnUpdate = actEliminarTodoUpdate
end end
object actActualizarServidor: TAction object actActualizarServidor: TAction
Caption = 'Actualizar Servidor' Caption = 'Actualizar Servidor'

34
Source/GUIBase/uViewDocumentos.pas
View File

@ -27,6 +27,7 @@ type
ListView1: TListView; ListView1: TListView;
LargeImagesBrowser: TPngImageList; LargeImagesBrowser: TPngImageList;
SmallImagesBrowser: TPngImageList; SmallImagesBrowser: TPngImageList;
TBXSeparatorItem1: TTBXSeparatorItem;
procedure actAnadirExecute(Sender: TObject); procedure actAnadirExecute(Sender: TObject);
procedure actModificarExecute(Sender: TObject); procedure actModificarExecute(Sender: TObject);
procedure actEliminarExecute(Sender: TObject); procedure actEliminarExecute(Sender: TObject);
@ -34,6 +35,10 @@ type
procedure actActualizarServidorExecute(Sender: TObject); procedure actActualizarServidorExecute(Sender: TObject);
procedure CustomViewCreate(Sender: TObject); procedure CustomViewCreate(Sender: TObject);
procedure CustomViewDestroy(Sender: TObject); procedure CustomViewDestroy(Sender: TObject);
procedure actModificarUpdate(Sender: TObject);
procedure actEliminarUpdate(Sender: TObject);
procedure actEliminarTodoUpdate(Sender: TObject);
procedure ListView1DblClick(Sender: TObject);
private private
FDirectorio: Variant; FDirectorio: Variant;
@ -166,6 +171,18 @@ begin
FHayModificaciones := True; FHayModificaciones := True;
end; end;
procedure TfrViewDocumentos.actEliminarTodoUpdate(Sender: TObject);
begin
inherited;
(Sender as TAction).Enabled := (ListView1.Items.Count > 0)
end;
procedure TfrViewDocumentos.actEliminarUpdate(Sender: TObject);
begin
inherited;
(Sender as TAction).Enabled := Assigned(ListView1.ItemFocused);
end;
procedure TfrViewDocumentos.actModificarExecute(Sender: TObject); procedure TfrViewDocumentos.actModificarExecute(Sender: TObject);
var var
i: Integer; i: Integer;
@ -195,6 +212,12 @@ begin
end; end;
end; end;
procedure TfrViewDocumentos.actModificarUpdate(Sender: TObject);
begin
inherited;
(Sender as TAction).Enabled := Assigned(ListView1.ItemFocused);
end;
function TfrViewDocumentos.AsignarImagen(ANombreFichero: String): Integer; function TfrViewDocumentos.AsignarImagen(ANombreFichero: String): Integer;
begin begin
Result := -1; Result := -1;
@ -274,14 +297,21 @@ begin
begin begin
FDirectorio := DarDirectorioTemporal; FDirectorio := DarDirectorioTemporal;
if not CreateDir(FDirectorio) then if not CreateDir(FDirectorio) then
raise Exception.Create('ERROR: No se ha podido crear el fichero temporal GetDirectorio'); raise Exception.Create('ERROR: No se ha podido crear el fichero temporal (GetDirectorio)');
end; end;
Result := FDirectorio; Result := FDirectorio;
end; end;
function TfrViewDocumentos.GetModified: Boolean; function TfrViewDocumentos.GetModified: Boolean;
begin begin
Result := FHayModificaciones; Result := FHayModificaciones;
end;
procedure TfrViewDocumentos.ListView1DblClick(Sender: TObject);
begin
inherited;
if Assigned(ListView1.ItemFocused) then
actModificar.Execute;
end; end;
procedure TfrViewDocumentos.RefrescarVisualizador; procedure TfrViewDocumentos.RefrescarVisualizador;

16
Source/Modulos/Gestion de documentos/Controller/GestorDocumentos_controller.drc
View File

@ -1,16 +0,0 @@
/* VER185
Generated by the CodeGear Delphi Pascal Compiler
because -GD or --drc was supplied to the compiler.
This file contains compiler-generated resources that
were bound to the executable.
If this file is empty, then no compiler-generated
resources were bound to the produced executable.
*/
STRINGTABLE
BEGIN
END
/* C:\Codigo Tecsitel\Source\Modulos\Gestion de documentos\Controller\GestorDocumentos_Controller.res */
/* C:\DOCUME~1\Usuario\CONFIG~1\Temp\dtf2A0.tmp */

17
Source/Modulos/Gestion de documentos/Data/GestorDocumentos_data.drc
View File

@ -1,17 +0,0 @@
/* VER185
Generated by the CodeGear Delphi Pascal Compiler
because -GD or --drc was supplied to the compiler.
This file contains compiler-generated resources that
were bound to the executable.
If this file is empty, then no compiler-generated
resources were bound to the produced executable.
*/
STRINGTABLE
BEGIN
END
/* C:\Codigo Tecsitel\Source\Modulos\Gestion de documentos\Data\uDataModuleGestorDocumentos.dfm */
/* C:\Codigo Tecsitel\Source\Modulos\Gestion de documentos\Data\GestorDocumentos_data.res */
/* C:\DOCUME~1\Usuario\CONFIG~1\Temp\dtf29E.tmp */

233
Source/Modulos/Presupuestos de cliente/Views/uEditorPresupuestoCliente.dfm
View File

@ -3,18 +3,18 @@ inherited fEditorPresupuestoCliente: TfEditorPresupuestoCliente
Top = 147 Top = 147
Caption = 'Nuevo presupuesto de cliente' Caption = 'Nuevo presupuesto de cliente'
ClientHeight = 615 ClientHeight = 615
ClientWidth = 749 ClientWidth = 764
OnClose = CustomEditorClose OnClose = CustomEditorClose
ExplicitWidth = 757 ExplicitWidth = 772
ExplicitHeight = 649 ExplicitHeight = 649
PixelsPerInch = 96 PixelsPerInch = 96
TextHeight = 13 TextHeight = 13
inherited JvNavPanelHeader: TJvNavPanelHeader inherited JvNavPanelHeader: TJvNavPanelHeader
Width = 749 Width = 764
Caption = 'Nuevo presupuesto de cliente' Caption = 'Nuevo presupuesto de cliente'
ExplicitWidth = 749 ExplicitWidth = 764
inherited Image1: TImage inherited Image1: TImage
Left = 722 Left = 737
Picture.Data = { Picture.Data = {
0A54504E474F626A65637489504E470D0A1A0A0000000D494844520000001800 0A54504E474F626A65637489504E470D0A1A0A0000000D494844520000001800
0000180806000000E0773DF80000000970485973000017120000171201679FD2 0000180806000000E0773DF80000000970485973000017120000171201679FD2
@ -126,8 +126,8 @@ inherited fEditorPresupuestoCliente: TfEditorPresupuestoCliente
end end
end end
inherited TBXDock: TTBXDock inherited TBXDock: TTBXDock
Width = 749 Width = 764
ExplicitWidth = 749 ExplicitWidth = 764
inherited tbxMain: TTBXToolbar inherited tbxMain: TTBXToolbar
ExplicitWidth = 732 ExplicitWidth = 732
inherited TBXItem2: TTBXItem inherited TBXItem2: TTBXItem
@ -151,7 +151,7 @@ inherited fEditorPresupuestoCliente: TfEditorPresupuestoCliente
end end
end end
inherited tbxMenu: TTBXToolbar inherited tbxMenu: TTBXToolbar
ExplicitWidth = 749 ExplicitWidth = 764
object TBXSubmenuItem2: TTBXSubmenuItem [4] object TBXSubmenuItem2: TTBXSubmenuItem [4]
Caption = 'A&cciones' Caption = 'A&cciones'
object TBXItem34: TTBXItem object TBXItem34: TTBXItem
@ -164,29 +164,26 @@ inherited fEditorPresupuestoCliente: TfEditorPresupuestoCliente
end end
end end
inherited pgPaginas: TPageControl inherited pgPaginas: TPageControl
Width = 743 Width = 758
Height = 414 Height = 414
ActivePage = pagDocumentos
TabOrder = 1 TabOrder = 1
OnChanging = pgPaginasChanging OnChanging = pgPaginasChanging
ExplicitWidth = 743 ExplicitWidth = 758
ExplicitHeight = 414 ExplicitHeight = 414
inherited pagGeneral: TTabSheet inherited pagGeneral: TTabSheet
ExplicitLeft = 4 ExplicitLeft = 4
ExplicitTop = 24 ExplicitTop = 24
ExplicitWidth = 735 ExplicitWidth = 750
ExplicitHeight = 386 ExplicitHeight = 386
end end
object pagContenido: TTabSheet object pagContenido: TTabSheet
Caption = 'Contenido' Caption = 'Contenido'
ImageIndex = 1 ImageIndex = 1
ExplicitLeft = 0
ExplicitTop = 0
ExplicitWidth = 0
ExplicitHeight = 0
inline frViewDetallesPresupuestoCliente1: TfrViewDetallesPresupuestoCliente inline frViewDetallesPresupuestoCliente1: TfrViewDetallesPresupuestoCliente
Left = 0 Left = 0
Top = 0 Top = 0
Width = 735 Width = 750
Height = 386 Height = 386
Align = alClient Align = alClient
BiDiMode = bdLeftToRight BiDiMode = bdLeftToRight
@ -199,110 +196,108 @@ inherited fEditorPresupuestoCliente: TfEditorPresupuestoCliente
ParentFont = False ParentFont = False
TabOrder = 0 TabOrder = 0
ReadOnly = False ReadOnly = False
ExplicitWidth = 735 ExplicitWidth = 750
ExplicitHeight = 386 ExplicitHeight = 386
inherited ToolBar1: TToolBar inherited ToolBar1: TToolBar
Width = 735 Width = 750
Height = 46 Height = 73
ExplicitWidth = 735 ExplicitWidth = 750
ExplicitHeight = 46 ExplicitHeight = 73
inherited ToolButton3: TToolButton inherited ToolButton3: TToolButton
Wrap = False Wrap = False
end end
inherited ToolButton4: TToolButton inherited ToolButton4: TToolButton
Left = 278 Left = 278
Top = 0 Top = 0
Wrap = True
ExplicitLeft = 278 ExplicitLeft = 278
ExplicitTop = 0 ExplicitTop = 0
end end
inherited ToolButton14: TToolButton inherited ToolButton14: TToolButton
Left = 0 Left = 334
Wrap = False Top = 0
ExplicitLeft = 0 ExplicitLeft = 334
ExplicitTop = 0
end end
inherited FontName: TJvFontComboBox inherited FontName: TJvFontComboBox
Left = 65
Top = 22 Top = 22
ExplicitLeft = 65
ExplicitTop = 22 ExplicitTop = 22
end end
inherited FontSize: TEdit inherited FontSize: TEdit
Left = 210
Top = 22 Top = 22
Width = 200 Width = 200
ExplicitLeft = 210
ExplicitTop = 22 ExplicitTop = 22
ExplicitWidth = 200 ExplicitWidth = 200
end end
inherited UpDown1: TUpDown inherited UpDown1: TUpDown
Left = 410 Left = 361
Top = 22 Top = 22
ExplicitLeft = 410 ExplicitLeft = 361
ExplicitTop = 22 ExplicitTop = 22
end end
inherited ToolButton13: TToolButton inherited ToolButton13: TToolButton
Left = 427 Left = 378
Top = 22 Top = 22
ExplicitLeft = 427 ExplicitLeft = 378
ExplicitTop = 22 ExplicitTop = 22
end end
inherited ToolButton6: TToolButton inherited ToolButton6: TToolButton
Left = 435 Left = 386
Top = 22 Top = 22
ExplicitLeft = 435 ExplicitLeft = 386
ExplicitTop = 22 ExplicitTop = 22
end end
inherited ToolButton7: TToolButton inherited ToolButton7: TToolButton
Left = 501 Left = 452
Top = 22 Top = 22
ExplicitLeft = 501 ExplicitLeft = 452
ExplicitTop = 22 ExplicitTop = 22
end end
inherited ToolButton8: TToolButton inherited ToolButton8: TToolButton
Left = 568 Left = 519
Top = 22 Top = 22
ExplicitLeft = 568 ExplicitLeft = 519
ExplicitTop = 22 ExplicitTop = 22
end end
inherited ToolButton12: TToolButton inherited ToolButton12: TToolButton
Left = 651 Left = 0
Top = 22 Top = 22
ExplicitLeft = 651 Wrap = True
ExplicitLeft = 0
ExplicitTop = 22 ExplicitTop = 22
ExplicitHeight = 27
end end
inherited ToolButton9: TToolButton inherited ToolButton9: TToolButton
Left = 659 Left = 0
Top = 22 Top = 49
ExplicitLeft = 659 ExplicitLeft = 0
ExplicitTop = 22 ExplicitTop = 49
end end
inherited ToolButton10: TToolButton inherited ToolButton10: TToolButton
Left = 804 Left = 145
Top = 22 Top = 49
ExplicitLeft = 804 ExplicitLeft = 145
ExplicitTop = 22 ExplicitTop = 49
end end
inherited ToolButton11: TToolButton inherited ToolButton11: TToolButton
Left = 929 Left = 270
Top = 22 Top = 49
ExplicitLeft = 929 ExplicitLeft = 270
ExplicitTop = 22 ExplicitTop = 49
end end
end end
inherited cxGrid: TcxGrid inherited cxGrid: TcxGrid
Top = 72 Top = 99
Width = 735 Width = 750
Height = 314 Height = 287
ExplicitTop = 72 ExplicitTop = 99
ExplicitWidth = 735 ExplicitWidth = 750
ExplicitHeight = 314 ExplicitHeight = 287
end end
inherited TBXDock1: TTBXDock inherited TBXDock1: TTBXDock
Top = 46 Top = 73
Width = 735 Width = 750
ExplicitTop = 46 ExplicitTop = 73
ExplicitWidth = 735 ExplicitWidth = 750
inherited TBXToolbar1: TTBXToolbar inherited TBXToolbar1: TTBXToolbar
ExplicitWidth = 702 ExplicitWidth = 702
end end
@ -321,10 +316,6 @@ inherited fEditorPresupuestoCliente: TfEditorPresupuestoCliente
object pagPortada: TTabSheet object pagPortada: TTabSheet
Caption = 'Portada' Caption = 'Portada'
ImageIndex = 3 ImageIndex = 3
ExplicitLeft = 0
ExplicitTop = 0
ExplicitWidth = 0
ExplicitHeight = 0
object Panel1: TPanel object Panel1: TPanel
Left = 0 Left = 0
Top = 0 Top = 0
@ -418,7 +409,7 @@ inherited fEditorPresupuestoCliente: TfEditorPresupuestoCliente
inline frViewRichEditor1: TfrViewRichEditor inline frViewRichEditor1: TfrViewRichEditor
Left = 145 Left = 145
Top = 0 Top = 0
Width = 590 Width = 605
Height = 386 Height = 386
Align = alClient Align = alClient
Font.Charset = DEFAULT_CHARSET Font.Charset = DEFAULT_CHARSET
@ -430,11 +421,11 @@ inherited fEditorPresupuestoCliente: TfEditorPresupuestoCliente
TabOrder = 1 TabOrder = 1
ReadOnly = False ReadOnly = False
ExplicitLeft = 145 ExplicitLeft = 145
ExplicitWidth = 590 ExplicitWidth = 605
ExplicitHeight = 386 ExplicitHeight = 386
inherited TBXDock1: TTBXDock inherited TBXDock1: TTBXDock
Width = 590 Width = 605
ExplicitWidth = 590 ExplicitWidth = 605
inherited TBXToolbar1: TTBXToolbar inherited TBXToolbar1: TTBXToolbar
ExplicitWidth = 518 ExplicitWidth = 518
inherited TBXColorItem1: TTBXColorItem inherited TBXColorItem1: TTBXColorItem
@ -446,20 +437,16 @@ inherited fEditorPresupuestoCliente: TfEditorPresupuestoCliente
DataBinding.DataField = 'PORTADA' DataBinding.DataField = 'PORTADA'
DataBinding.DataSource = dsDataTable DataBinding.DataSource = dsDataTable
Style.IsFontAssigned = True Style.IsFontAssigned = True
ExplicitWidth = 590 ExplicitWidth = 605
ExplicitHeight = 360 ExplicitHeight = 360
Height = 360 Height = 360
Width = 590 Width = 605
end end
end end
end end
object pagMemoria: TTabSheet object pagMemoria: TTabSheet
Caption = 'Memoria' Caption = 'Memoria'
ImageIndex = 4 ImageIndex = 4
ExplicitLeft = 0
ExplicitTop = 0
ExplicitWidth = 0
ExplicitHeight = 0
object Panel2: TPanel object Panel2: TPanel
Left = 0 Left = 0
Top = 0 Top = 0
@ -724,7 +711,7 @@ inherited fEditorPresupuestoCliente: TfEditorPresupuestoCliente
inline frViewRichEditor2: TfrViewRichEditor inline frViewRichEditor2: TfrViewRichEditor
Left = 145 Left = 145
Top = 0 Top = 0
Width = 590 Width = 605
Height = 386 Height = 386
Align = alClient Align = alClient
Font.Charset = DEFAULT_CHARSET Font.Charset = DEFAULT_CHARSET
@ -736,11 +723,11 @@ inherited fEditorPresupuestoCliente: TfEditorPresupuestoCliente
TabOrder = 1 TabOrder = 1
ReadOnly = False ReadOnly = False
ExplicitLeft = 145 ExplicitLeft = 145
ExplicitWidth = 590 ExplicitWidth = 605
ExplicitHeight = 386 ExplicitHeight = 386
inherited TBXDock1: TTBXDock inherited TBXDock1: TTBXDock
Width = 590 Width = 605
ExplicitWidth = 590 ExplicitWidth = 605
inherited TBXToolbar1: TTBXToolbar inherited TBXToolbar1: TTBXToolbar
ExplicitWidth = 518 ExplicitWidth = 518
inherited TBXColorItem1: TTBXColorItem inherited TBXColorItem1: TTBXColorItem
@ -752,24 +739,20 @@ inherited fEditorPresupuestoCliente: TfEditorPresupuestoCliente
DataBinding.DataField = 'MEMORIA' DataBinding.DataField = 'MEMORIA'
DataBinding.DataSource = dsDataTable DataBinding.DataSource = dsDataTable
Style.IsFontAssigned = True Style.IsFontAssigned = True
ExplicitWidth = 590 ExplicitWidth = 605
ExplicitHeight = 360 ExplicitHeight = 360
Height = 360 Height = 360
Width = 590 Width = 605
end end
end end
end end
object pagInicidencias: TTabSheet object pagInicidencias: TTabSheet
Caption = 'Incidencias' Caption = 'Incidencias'
ImageIndex = 2 ImageIndex = 2
ExplicitLeft = 0
ExplicitTop = 0
ExplicitWidth = 0
ExplicitHeight = 0
inline frViewIncidenciasCli: TfrViewIncidencias inline frViewIncidenciasCli: TfrViewIncidencias
Left = 0 Left = 0
Top = 0 Top = 0
Width = 735 Width = 750
Height = 386 Height = 386
Align = alClient Align = alClient
Font.Charset = DEFAULT_CHARSET Font.Charset = DEFAULT_CHARSET
@ -780,25 +763,25 @@ inherited fEditorPresupuestoCliente: TfEditorPresupuestoCliente
ParentFont = False ParentFont = False
TabOrder = 0 TabOrder = 0
ReadOnly = False ReadOnly = False
ExplicitWidth = 735 ExplicitWidth = 750
ExplicitHeight = 386 ExplicitHeight = 386
inherited pnlSup: TPanel inherited pnlSup: TPanel
Width = 735 Width = 750
ExplicitWidth = 735 ExplicitWidth = 750
inherited eIncidenciaActiva: TcxDBCheckBox inherited eIncidenciaActiva: TcxDBCheckBox
ExplicitHeight = 21 ExplicitHeight = 21
end end
end end
inherited GroupBox1: TGroupBox inherited GroupBox1: TGroupBox
Width = 735 Width = 750
Height = 358 Height = 358
ExplicitWidth = 735 ExplicitWidth = 750
ExplicitHeight = 358 ExplicitHeight = 358
inherited eIncidencias: TcxDBMemo inherited eIncidencias: TcxDBMemo
ExplicitWidth = 712 ExplicitWidth = 727
ExplicitHeight = 325 ExplicitHeight = 325
Height = 325 Height = 325
Width = 712 Width = 727
end end
end end
end end
@ -809,7 +792,7 @@ inherited fEditorPresupuestoCliente: TfEditorPresupuestoCliente
inline frViewDocumentosPresupuestoCliente1: TfrViewDocumentosPresupuestoCliente inline frViewDocumentosPresupuestoCliente1: TfrViewDocumentosPresupuestoCliente
Left = 0 Left = 0
Top = 0 Top = 0
Width = 735 Width = 750
Height = 386 Height = 386
Align = alClient Align = alClient
Font.Charset = DEFAULT_CHARSET Font.Charset = DEFAULT_CHARSET
@ -820,35 +803,30 @@ inherited fEditorPresupuestoCliente: TfEditorPresupuestoCliente
ParentFont = False ParentFont = False
TabOrder = 0 TabOrder = 0
ReadOnly = False ReadOnly = False
ExplicitWidth = 735
ExplicitHeight = 386
inherited TBXDock: TTBXDock inherited TBXDock: TTBXDock
Width = 735 Width = 750
ExplicitWidth = 735
end end
inherited ListView1: TListView inherited ListView1: TListView
Width = 735 Width = 750
Height = 363 Height = 363
ExplicitWidth = 735
ExplicitHeight = 363
end end
end end
end end
end end
inherited StatusBar: TJvStatusBar inherited StatusBar: TJvStatusBar
Top = 596 Top = 596
Width = 749 Width = 764
Panels = < Panels = <
item item
Width = 200 Width = 200
end> end>
ExplicitTop = 596 ExplicitTop = 596
ExplicitWidth = 749 ExplicitWidth = 764
end end
inline frViewTotales1: TfrViewTotales [4] inline frViewTotales1: TfrViewTotales [4]
Left = 0 Left = 0
Top = 496 Top = 496
Width = 749 Width = 764
Height = 100 Height = 100
Align = alBottom Align = alBottom
Font.Charset = DEFAULT_CHARSET Font.Charset = DEFAULT_CHARSET
@ -860,13 +838,13 @@ inherited fEditorPresupuestoCliente: TfEditorPresupuestoCliente
TabOrder = 4 TabOrder = 4
ReadOnly = False ReadOnly = False
ExplicitTop = 496 ExplicitTop = 496
ExplicitWidth = 749 ExplicitWidth = 764
ExplicitHeight = 100 ExplicitHeight = 100
inherited dxLayoutControl1: TdxLayoutControl inherited dxLayoutControl1: TdxLayoutControl
Width = 749 Width = 764
Height = 171 Height = 171
LookAndFeel = dxLayoutOfficeLookAndFeel1 LookAndFeel = dxLayoutOfficeLookAndFeel1
ExplicitWidth = 749 ExplicitWidth = 764
ExplicitHeight = 171 ExplicitHeight = 171
inherited Bevel1: TBevel inherited Bevel1: TBevel
Left = 93 Left = 93
@ -877,20 +855,20 @@ inherited fEditorPresupuestoCliente: TfEditorPresupuestoCliente
ExplicitWidth = 73 ExplicitWidth = 73
end end
inherited Bevel3: TBevel inherited Bevel3: TBevel
Left = 368 Left = 375
Top = 11 Top = 11
Width = 8 Width = 8
Height = 54 Height = 54
ExplicitLeft = 368 ExplicitLeft = 375
ExplicitTop = 11 ExplicitTop = 11
ExplicitWidth = 8 ExplicitWidth = 8
ExplicitHeight = 54 ExplicitHeight = 54
end end
inherited Bevel4: TBevel inherited Bevel4: TBevel
Left = 485 Left = 492
Top = 92 Top = 92
Width = 21 Width = 21
ExplicitLeft = 485 ExplicitLeft = 492
ExplicitTop = 92 ExplicitTop = 92
ExplicitWidth = 21 ExplicitWidth = 21
end end
@ -908,27 +886,27 @@ inherited fEditorPresupuestoCliente: TfEditorPresupuestoCliente
Width = 188 Width = 188
end end
inherited ImporteIVA: TcxDBCurrencyEdit inherited ImporteIVA: TcxDBCurrencyEdit
Left = 556 Left = 563
Top = 38 Top = 38
Style.LookAndFeel.SkinName = '' Style.LookAndFeel.SkinName = ''
Style.IsFontAssigned = True Style.IsFontAssigned = True
StyleDisabled.LookAndFeel.SkinName = '' StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = '' StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = '' StyleHot.LookAndFeel.SkinName = ''
ExplicitLeft = 556 ExplicitLeft = 563
ExplicitTop = 38 ExplicitTop = 38
ExplicitWidth = 182 ExplicitWidth = 182
Width = 182 Width = 182
end end
inherited ImporteTotal: TcxDBCurrencyEdit inherited ImporteTotal: TcxDBCurrencyEdit
Left = 486 Left = 493
Top = 112 Top = 112
Style.LookAndFeel.SkinName = '' Style.LookAndFeel.SkinName = ''
Style.IsFontAssigned = True Style.IsFontAssigned = True
StyleDisabled.LookAndFeel.SkinName = '' StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = '' StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = '' StyleHot.LookAndFeel.SkinName = ''
ExplicitLeft = 486 ExplicitLeft = 493
ExplicitTop = 112 ExplicitTop = 112
ExplicitWidth = 252 ExplicitWidth = 252
Width = 252 Width = 252
@ -945,31 +923,31 @@ inherited fEditorPresupuestoCliente: TfEditorPresupuestoCliente
ExplicitTop = 112 ExplicitTop = 112
end end
inherited edtIVA: TcxDBSpinEdit inherited edtIVA: TcxDBSpinEdit
Left = 485 Left = 492
Top = 38 Top = 38
Style.LookAndFeel.SkinName = '' Style.LookAndFeel.SkinName = ''
Style.IsFontAssigned = True Style.IsFontAssigned = True
StyleDisabled.LookAndFeel.SkinName = '' StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = '' StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = '' StyleHot.LookAndFeel.SkinName = ''
ExplicitLeft = 485 ExplicitLeft = 492
ExplicitTop = 38 ExplicitTop = 38
end end
inherited ImporteBase: TcxDBCurrencyEdit inherited ImporteBase: TcxDBCurrencyEdit
Left = 485 Left = 492
Top = 11 Top = 11
Style.LookAndFeel.SkinName = '' Style.LookAndFeel.SkinName = ''
Style.IsFontAssigned = True Style.IsFontAssigned = True
StyleDisabled.LookAndFeel.SkinName = '' StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = '' StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = '' StyleHot.LookAndFeel.SkinName = ''
ExplicitLeft = 485 ExplicitLeft = 492
ExplicitTop = 11 ExplicitTop = 11
ExplicitWidth = 253 ExplicitWidth = 253
Width = 253 Width = 253
end end
inherited edtRE: TcxDBSpinEdit inherited edtRE: TcxDBSpinEdit
Left = 485 Left = 492
Top = 65 Top = 65
DataBinding.DataField = '' DataBinding.DataField = ''
DataBinding.DataSource = nil DataBinding.DataSource = nil
@ -978,11 +956,11 @@ inherited fEditorPresupuestoCliente: TfEditorPresupuestoCliente
StyleDisabled.LookAndFeel.SkinName = '' StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = '' StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = '' StyleHot.LookAndFeel.SkinName = ''
ExplicitLeft = 485 ExplicitLeft = 492
ExplicitTop = 65 ExplicitTop = 65
end end
inherited ImporteRE: TcxDBCurrencyEdit inherited ImporteRE: TcxDBCurrencyEdit
Left = 556 Left = 563
Top = 65 Top = 65
DataBinding.DataField = '' DataBinding.DataField = ''
DataBinding.DataSource = nil DataBinding.DataSource = nil
@ -991,7 +969,7 @@ inherited fEditorPresupuestoCliente: TfEditorPresupuestoCliente
StyleDisabled.LookAndFeel.SkinName = '' StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = '' StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = '' StyleHot.LookAndFeel.SkinName = ''
ExplicitLeft = 556 ExplicitLeft = 563
ExplicitTop = 65 ExplicitTop = 65
ExplicitWidth = 182 ExplicitWidth = 182
Width = 182 Width = 182
@ -1038,9 +1016,9 @@ inherited fEditorPresupuestoCliente: TfEditorPresupuestoCliente
Width = 121 Width = 121
end end
inherited bTiposIVA: TButton inherited bTiposIVA: TButton
Left = 220 Left = 227
Top = 38 Top = 38
ExplicitLeft = 220 ExplicitLeft = 227
ExplicitTop = 38 ExplicitTop = 38
end end
inherited cbRecargoEquivalencia: TcxDBCheckBox inherited cbRecargoEquivalencia: TcxDBCheckBox
@ -1054,7 +1032,6 @@ inherited fEditorPresupuestoCliente: TfEditorPresupuestoCliente
ExplicitLeft = 93 ExplicitLeft = 93
ExplicitTop = 65 ExplicitTop = 65
ExplicitWidth = 259 ExplicitWidth = 259
ExplicitHeight = 0
Width = 259 Width = 259
end end
inherited dxLayoutControl1Group_Root: TdxLayoutGroup inherited dxLayoutControl1Group_Root: TdxLayoutGroup

21
Source/Modulos/Presupuestos de cliente/Views/uEditorPresupuestosCliente.dfm
View File

@ -1,16 +1,15 @@
inherited fEditorPresupuestosCliente: TfEditorPresupuestosCliente inherited fEditorPresupuestosCliente: TfEditorPresupuestosCliente
Caption = 'Lista de presupuestos de cliente' Caption = 'Lista de presupuestos de cliente'
ClientWidth = 674 ClientWidth = 805
ExplicitWidth = 682 ExplicitWidth = 813
ExplicitHeight = 240
PixelsPerInch = 96 PixelsPerInch = 96
TextHeight = 13 TextHeight = 13
inherited JvNavPanelHeader: TJvNavPanelHeader inherited JvNavPanelHeader: TJvNavPanelHeader
Width = 674 Width = 805
Caption = 'Lista de presupuestos de cliente' Caption = 'Lista de presupuestos de cliente'
ExplicitWidth = 674 ExplicitWidth = 674
inherited Image1: TImage inherited Image1: TImage
Left = 647 Left = 778
Picture.Data = { Picture.Data = {
0A54504E474F626A65637489504E470D0A1A0A0000000D494844520000001800 0A54504E474F626A65637489504E470D0A1A0A0000000D494844520000001800
0000180806000000E0773DF80000000970485973000017120000171201679FD2 0000180806000000E0773DF80000000970485973000017120000171201679FD2
@ -122,13 +121,13 @@ inherited fEditorPresupuestosCliente: TfEditorPresupuestosCliente
end end
end end
inherited TBXDock: TTBXDock inherited TBXDock: TTBXDock
Width = 674 Width = 805
ExplicitWidth = 674 ExplicitWidth = 674
inherited tbxMain: TTBXToolbar inherited tbxMain: TTBXToolbar
ExplicitWidth = 674 ExplicitWidth = 775
end end
inherited tbxMenu: TTBXToolbar inherited tbxMenu: TTBXToolbar
ExplicitWidth = 674 ExplicitWidth = 805
object TBXSubmenuItem2: TTBXSubmenuItem [4] object TBXSubmenuItem2: TTBXSubmenuItem [4]
Caption = 'A&cciones' Caption = 'A&cciones'
object TBXItem39: TTBXItem object TBXItem39: TTBXItem
@ -148,9 +147,11 @@ inherited fEditorPresupuestosCliente: TfEditorPresupuestosCliente
end end
end end
inherited TBXTMain2: TTBXToolbar inherited TBXTMain2: TTBXToolbar
Left = 343
DockPos = 343 DockPos = 343
Visible = True Visible = True
ExplicitWidth = 337 ExplicitLeft = 343
ExplicitWidth = 365
object TBXItem43: TTBXItem object TBXItem43: TTBXItem
Action = actAceptar Action = actAceptar
DisplayMode = nbdmImageAndText DisplayMode = nbdmImageAndText
@ -172,7 +173,7 @@ inherited fEditorPresupuestosCliente: TfEditorPresupuestosCliente
end end
end end
inherited StatusBar: TJvStatusBar inherited StatusBar: TJvStatusBar
Width = 674 Width = 805
ExplicitWidth = 674 ExplicitWidth = 674
end end
inherited EditorActionList: TActionList inherited EditorActionList: TActionList

2
Source/Modulos/Presupuestos de cliente/Views/uViewDocumentosPresupuestoCliente.pas
View File

@ -7,7 +7,7 @@ uses
Dialogs, uViewDocumentos, ActnList, Dialogs, uViewDocumentos, ActnList,
TB2Item, TBX, TB2Dock, TB2Toolbar, cxControls, cxContainer, TB2Item, TBX, TB2Dock, TB2Toolbar, cxControls, cxContainer,
uBizPresupuestosCliente, uPresupuestosClienteController, ImgList, uBizPresupuestosCliente, uPresupuestosClienteController, ImgList,
PngImageList, ComCtrls; PngImageList, ComCtrls, Menus;
type type
IViewDocumentosPresupuestoCliente = interface IViewDocumentosPresupuestoCliente = interface