diff --git a/Source/Base/Base.res b/Source/Base/Base.res
index 1641339f..8b251f31 100644
Binary files a/Source/Base/Base.res and b/Source/Base/Base.res differ
diff --git a/Source/Modulos/Albaranes de cliente/Views/AlbaranesCliente_view.dproj b/Source/Modulos/Albaranes de cliente/Views/AlbaranesCliente_view.dproj
index 2c359702..04632836 100644
--- a/Source/Modulos/Albaranes de cliente/Views/AlbaranesCliente_view.dproj
+++ b/Source/Modulos/Albaranes de cliente/Views/AlbaranesCliente_view.dproj
@@ -43,30 +43,6 @@
Package
FalseTrueFalseFalseFalseFalseTrueFalse1000FalseFalseFalseFalseFalse308212521.0.0.01.0.0.0
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
File c:\archivos de programa\borland\delphi10\Bin\dclIntraweb_80_100.bpl not found
File c:\archivos de programa\borland\delphi10\Bin\dclnet100.bpl not found
File c:\archivos de programa\borland\delphi10\Bin\dclsoap100.bpl not found
@@ -78,14 +54,14 @@
MainSource
-
-
-
-
-
-
-
-
+
+
+
+
+
+
+
+
diff --git a/Source/Modulos/Albaranes de cliente/Views/uEditorElegirAlbaranesCliente.dfm b/Source/Modulos/Albaranes de cliente/Views/uEditorElegirAlbaranesCliente.dfm
index 74a439c0..aa60e0c6 100644
--- a/Source/Modulos/Albaranes de cliente/Views/uEditorElegirAlbaranesCliente.dfm
+++ b/Source/Modulos/Albaranes de cliente/Views/uEditorElegirAlbaranesCliente.dfm
@@ -5,42 +5,12 @@ inherited fEditorElegirAlbaranesCliente: TfEditorElegirAlbaranesCliente
ExplicitHeight = 538
PixelsPerInch = 96
TextHeight = 13
- object JvgWizardHeader1: TJvgWizardHeader [0]
- Left = 0
- Top = 27
- Width = 790
- Height = 60
- CaptionFont.Charset = DEFAULT_CHARSET
- CaptionFont.Color = clWindowText
- CaptionFont.Height = -11
- CaptionFont.Name = 'Tahoma'
- CaptionFont.Style = [fsBold]
- CommentFont.Charset = DEFAULT_CHARSET
- CommentFont.Color = clWindowText
- CommentFont.Height = -11
- CommentFont.Name = 'Tahoma'
- CommentFont.Style = []
- SymbolFont.Charset = DEFAULT_CHARSET
- SymbolFont.Color = clHighlightText
- SymbolFont.Height = -35
- SymbolFont.Name = 'Wingdings'
- SymbolFont.Style = [fsBold]
- Captions.Strings = (
- 'Seleccione el albar'#225'n de cliente')
- Comments.Strings = (
- ' ')
- Gradient.FromColor = clHighlight
- Gradient.ToColor = clWindow
- Gradient.Active = False
- Gradient.Orientation = fgdVertical
- BufferedDraw = False
- ExplicitLeft = -8
- ExplicitTop = 8
- ExplicitWidth = 656
- end
inherited JvNavPanelHeader: TJvNavPanelHeader
+ Top = 139
Width = 790
Visible = False
+ ExplicitLeft = -8
+ ExplicitTop = 280
ExplicitWidth = 790
inherited Image1: TImage
Left = 763
@@ -48,9 +18,9 @@ inherited fEditorElegirAlbaranesCliente: TfEditorElegirAlbaranesCliente
end
end
inherited TBXDock: TTBXDock
- Top = 87
+ Top = 64
Width = 790
- ExplicitTop = 87
+ ExplicitTop = 91
ExplicitWidth = 790
inherited tbxMain: TTBXToolbar
Left = 359
@@ -125,6 +95,55 @@ inherited fEditorElegirAlbaranesCliente: TfEditorElegirAlbaranesCliente
Width = 790
ExplicitWidth = 790
end
+ object pnlHeader: TPanel [3]
+ Left = 0
+ Top = 0
+ Width = 790
+ Height = 64
+ Align = alTop
+ BevelOuter = bvNone
+ Color = clWhite
+ Padding.Left = 25
+ Padding.Top = 8
+ Padding.Right = 25
+ Padding.Bottom = 8
+ ParentBackground = False
+ TabOrder = 4
+ ExplicitTop = 27
+ object lblTitle: TLabel
+ AlignWithMargins = True
+ Left = 25
+ Top = 8
+ Width = 740
+ Height = 13
+ Margins.Left = 0
+ Margins.Top = 0
+ Margins.Right = 0
+ Margins.Bottom = 8
+ Align = alTop
+ Caption = 'Seleccione el albar'#225'n de cliente'
+ Font.Charset = DEFAULT_CHARSET
+ Font.Color = clWindowText
+ Font.Height = -11
+ Font.Name = 'Tahoma'
+ Font.Style = [fsBold]
+ ParentFont = False
+ ExplicitWidth = 177
+ end
+ object lblComments: TLabel
+ AlignWithMargins = True
+ Left = 50
+ Top = 29
+ Width = 715
+ Height = 24
+ Margins.Left = 25
+ Margins.Top = 0
+ Margins.Right = 0
+ Align = alClient
+ ExplicitWidth = 3
+ ExplicitHeight = 13
+ end
+ end
inline frViewBarraSeleccion1: TfrViewBarraSeleccion [4]
Left = 0
Top = 449
diff --git a/Source/Modulos/Albaranes de cliente/Views/uEditorElegirAlbaranesCliente.pas b/Source/Modulos/Albaranes de cliente/Views/uEditorElegirAlbaranesCliente.pas
index 2a10b6a0..979854e8 100644
--- a/Source/Modulos/Albaranes de cliente/Views/uEditorElegirAlbaranesCliente.pas
+++ b/Source/Modulos/Albaranes de cliente/Views/uEditorElegirAlbaranesCliente.pas
@@ -9,14 +9,15 @@ uses
ActnList, uCustomView, uViewBase, uViewGridBase, uViewGrid,
uViewAlbaranesCliente, ComCtrls, TB2ExtItems, TBXExtItems, TBX,
TB2Item, TB2Dock, TB2Toolbar, pngimage, ExtCtrls, JvExControls, JvComponent,
- JvNavigationPane, uViewBarraSeleccion, JvgWizardHeader, StdCtrls,
+ JvNavigationPane, uViewBarraSeleccion, StdCtrls,
uEditorAlbaranesCliente, uBizAlbaranesCliente, uIEditorElegirAlbaranesCliente,
JvExComCtrls, JvStatusBar, JSDialog, uDAInterfaces;
type
TfEditorElegirAlbaranesCliente = class(TfEditorAlbaranesCliente, IEditorElegirAlbaranesCliente)
frViewBarraSeleccion1: TfrViewBarraSeleccion;
- JvgWizardHeader1: TJvgWizardHeader;
+ lblTitle: TLabel;
+ lblComments: TLabel;
EditorSeleccionActionList: TActionList;
actBuscar2: TAction;
actQuitarFiltro2: TAction;
@@ -97,12 +98,12 @@ end;
function TfEditorElegirAlbaranesCliente.GetMensaje: String;
begin
- Result := JvgWizardHeader1.Comments.Text;
+ Result := lblComments.Caption;
end;
procedure TfEditorElegirAlbaranesCliente.SetMensaje(const AValue: String);
begin
- JvgWizardHeader1.Comments.Text := AValue;
+ lblComments.Caption := AValue;
end;
procedure TfEditorElegirAlbaranesCliente.SetViewGrid(const Value: IViewGridBase);
diff --git a/Source/Modulos/Albaranes de cliente/Views/uEditorElegirArticulosAlbaranCliente.dfm b/Source/Modulos/Albaranes de cliente/Views/uEditorElegirArticulosAlbaranCliente.dfm
index cd358ae6..b42d7312 100644
--- a/Source/Modulos/Albaranes de cliente/Views/uEditorElegirArticulosAlbaranCliente.dfm
+++ b/Source/Modulos/Albaranes de cliente/Views/uEditorElegirArticulosAlbaranCliente.dfm
@@ -1,6 +1,5 @@
inherited fEditorElegirArticulosAlbaranCliente: TfEditorElegirArticulosAlbaranCliente
Caption = 'fEditorElegirArticulosAlbaranCliente'
- ExplicitHeight = 478
PixelsPerInch = 96
TextHeight = 13
end
diff --git a/Source/Modulos/Albaranes de cliente/Views/uEditorElegirArticulosAlbaranCliente.pas b/Source/Modulos/Albaranes de cliente/Views/uEditorElegirArticulosAlbaranCliente.pas
index 562c8edb..cec09f78 100644
--- a/Source/Modulos/Albaranes de cliente/Views/uEditorElegirArticulosAlbaranCliente.pas
+++ b/Source/Modulos/Albaranes de cliente/Views/uEditorElegirArticulosAlbaranCliente.pas
@@ -9,8 +9,8 @@ uses
StdActns, ActnList, uCustomView, uViewBase, uViewBarraSeleccion, ComCtrls,
JvExComCtrls, JvStatusBar, TBX, TB2ExtItems, TBXExtItems, TB2Item, TB2Dock,
TB2Toolbar, pngimage, ExtCtrls, JvExControls, JvComponent, JvNavigationPane,
- JvgWizardHeader, uIEditorElegirArticulosAlbaranesCliente, uDAInterfaces,
- uViewGridBase, uViewGrid, uViewArticulos;
+ uIEditorElegirArticulosAlbaranesCliente, uDAInterfaces,
+ uViewGridBase, uViewGrid, uViewArticulos, StdCtrls;
type
TfEditorElegirArticulosAlbaranCliente = class(TfEditorElegirArticulos, IEditorElegirArticulosAlbaranesCliente)
diff --git a/Source/Modulos/Albaranes de proveedor/Views/uEditorElegirAlbaranesProveedor.dfm b/Source/Modulos/Albaranes de proveedor/Views/uEditorElegirAlbaranesProveedor.dfm
index f4509925..8bf378da 100644
--- a/Source/Modulos/Albaranes de proveedor/Views/uEditorElegirAlbaranesProveedor.dfm
+++ b/Source/Modulos/Albaranes de proveedor/Views/uEditorElegirAlbaranesProveedor.dfm
@@ -5,38 +5,53 @@ inherited fEditorElegirAlbaranesProveedor: TfEditorElegirAlbaranesProveedor
ExplicitHeight = 538
PixelsPerInch = 96
TextHeight = 13
- object JvgWizardHeader1: TJvgWizardHeader [0]
+ object pnlHeader: TPanel
Left = 0
- Top = 27
- Width = 790
- Height = 60
- CaptionFont.Charset = DEFAULT_CHARSET
- CaptionFont.Color = clWindowText
- CaptionFont.Height = -11
- CaptionFont.Name = 'Tahoma'
- CaptionFont.Style = [fsBold]
- CommentFont.Charset = DEFAULT_CHARSET
- CommentFont.Color = clWindowText
- CommentFont.Height = -11
- CommentFont.Name = 'Tahoma'
- CommentFont.Style = []
- SymbolFont.Charset = DEFAULT_CHARSET
- SymbolFont.Color = clHighlightText
- SymbolFont.Height = -35
- SymbolFont.Name = 'Wingdings'
- SymbolFont.Style = [fsBold]
- Captions.Strings = (
- 'Seleccione el albar'#225'n de proveedor')
- Comments.Strings = (
- ' ')
- Gradient.FromColor = clHighlight
- Gradient.ToColor = clWindow
- Gradient.Active = False
- Gradient.Orientation = fgdVertical
- BufferedDraw = False
- ExplicitLeft = -8
- ExplicitTop = 8
- ExplicitWidth = 656
+ Top = 0
+ Width = 656
+ Height = 64
+ Align = alTop
+ BevelOuter = bvNone
+ Color = clWhite
+ Padding.Left = 25
+ Padding.Top = 8
+ Padding.Right = 25
+ Padding.Bottom = 8
+ ParentBackground = False
+ TabOrder = 5
+ object lblTitle: TLabel
+ AlignWithMargins = True
+ Left = 25
+ Top = 8
+ Width = 606
+ Height = 13
+ Margins.Left = 0
+ Margins.Top = 0
+ Margins.Right = 0
+ Margins.Bottom = 8
+ Align = alTop
+ Caption = 'Seleccione el albar'#225'n de proveedor'
+ Font.Charset = DEFAULT_CHARSET
+ Font.Color = clWindowText
+ Font.Height = -11
+ Font.Name = 'Tahoma'
+ Font.Style = [fsBold]
+ ParentFont = False
+ ExplicitWidth = 135
+ end
+ object lblComments: TLabel
+ AlignWithMargins = True
+ Left = 50
+ Top = 29
+ Width = 581
+ Height = 27
+ Margins.Left = 25
+ Margins.Top = 0
+ Margins.Right = 0
+ Align = alClient
+ ExplicitWidth = 3
+ ExplicitHeight = 13
+ end
end
inherited JvNavPanelHeader: TJvNavPanelHeader
Width = 790
diff --git a/Source/Modulos/Albaranes de proveedor/Views/uEditorElegirAlbaranesProveedor.pas b/Source/Modulos/Albaranes de proveedor/Views/uEditorElegirAlbaranesProveedor.pas
index b257bbcc..e13e0267 100644
--- a/Source/Modulos/Albaranes de proveedor/Views/uEditorElegirAlbaranesProveedor.pas
+++ b/Source/Modulos/Albaranes de proveedor/Views/uEditorElegirAlbaranesProveedor.pas
@@ -9,14 +9,15 @@ uses
ActnList, uCustomView, uViewBase, uViewGridBase, uViewGrid,
uViewAlbaranesProveedor, ComCtrls, TB2ExtItems, TBXExtItems, TBX,
TB2Item, TB2Dock, TB2Toolbar, pngimage, ExtCtrls, JvExControls, JvComponent,
- JvNavigationPane, uViewBarraSeleccion, JvgWizardHeader, StdCtrls,
+ JvNavigationPane, uViewBarraSeleccion, StdCtrls,
uEditorAlbaranesProveedor, uBizAlbaranesProveedor, uIEditorElegirAlbaranesProveedor,
JvExComCtrls, JvStatusBar, JSDialog, uDAInterfaces;
type
TfEditorElegirAlbaranesProveedor = class(TfEditorAlbaranesProveedor, IEditorElegirAlbaranesProveedor)
frViewBarraSeleccion1: TfrViewBarraSeleccion;
- JvgWizardHeader1: TJvgWizardHeader;
+ lblTitle: TLabel;
+ lblComments: TLabel;
EditorSeleccionActionList: TActionList;
actBuscar2: TAction;
actQuitarFiltro2: TAction;
@@ -98,7 +99,7 @@ end;
function TfEditorElegirAlbaranesProveedor.GetMensaje: String;
begin
- Result := JvgWizardHeader1.Comments.Text;
+ Result := lblComments.Caption;
end;
function TfEditorElegirAlbaranesProveedor.GetMultiSelect: Boolean;
@@ -108,7 +109,7 @@ end;
procedure TfEditorElegirAlbaranesProveedor.SetMensaje(const AValue: String);
begin
- JvgWizardHeader1.Comments.Text := AValue;
+ lblComments.Caption := AValue;
end;
procedure TfEditorElegirAlbaranesProveedor.SetMultiSelect(AValue: Boolean);
diff --git a/Source/Modulos/Albaranes de proveedor/Views/uEditorElegirArticulosAlbaranProveedor.dfm b/Source/Modulos/Albaranes de proveedor/Views/uEditorElegirArticulosAlbaranProveedor.dfm
index e34b8b62..a4c6ca56 100644
--- a/Source/Modulos/Albaranes de proveedor/Views/uEditorElegirArticulosAlbaranProveedor.dfm
+++ b/Source/Modulos/Albaranes de proveedor/Views/uEditorElegirArticulosAlbaranProveedor.dfm
@@ -2,4 +2,13 @@ inherited fEditorElegirArticulosAlbaranProveedor: TfEditorElegirArticulosAlbaran
Caption = 'fEditorElegirArticulosAlbaranProveedor'
PixelsPerInch = 96
TextHeight = 13
+ inherited pnlHeader: TPanel
+ inherited lblTitle: TLabel
+ Width = 606
+ end
+ inherited lblComments: TLabel
+ Width = 581
+ Height = 24
+ end
+ end
end
diff --git a/Source/Modulos/Albaranes de proveedor/Views/uEditorElegirArticulosAlbaranProveedor.pas b/Source/Modulos/Albaranes de proveedor/Views/uEditorElegirArticulosAlbaranProveedor.pas
index 7533f94b..3dbb7191 100644
--- a/Source/Modulos/Albaranes de proveedor/Views/uEditorElegirArticulosAlbaranProveedor.pas
+++ b/Source/Modulos/Albaranes de proveedor/Views/uEditorElegirArticulosAlbaranProveedor.pas
@@ -9,8 +9,8 @@ uses
StdActns, ActnList, uCustomView, uViewBase, uViewBarraSeleccion, ComCtrls,
JvExComCtrls, JvStatusBar, TBX, TB2ExtItems, TBXExtItems, TB2Item, TB2Dock,
TB2Toolbar, pngimage, ExtCtrls, JvExControls, JvComponent, JvNavigationPane,
- JvgWizardHeader, uIEditorElegirArticulosAlbaranesProveedor, uBizContactos,
- uDAInterfaces, uViewGridBase, uViewGrid, uViewArticulos;
+ uIEditorElegirArticulosAlbaranesProveedor, uBizContactos,
+ uDAInterfaces, uViewGridBase, uViewGrid, uViewArticulos, StdCtrls;
type
TfEditorElegirArticulosAlbaranProveedor = class(TfEditorElegirArticulos, IEditorElegirArticulosAlbaranesProveedor)
diff --git a/Source/Modulos/Articulos/Views/uEditorElegirArticulos.dfm b/Source/Modulos/Articulos/Views/uEditorElegirArticulos.dfm
index 400ecd9d..31b7b72a 100644
--- a/Source/Modulos/Articulos/Views/uEditorElegirArticulos.dfm
+++ b/Source/Modulos/Articulos/Views/uEditorElegirArticulos.dfm
@@ -4,41 +4,12 @@ inherited fEditorElegirArticulos: TfEditorElegirArticulos
ExplicitWidth = 664
PixelsPerInch = 96
TextHeight = 13
- object JvgWizardHeader1: TJvgWizardHeader [0]
- Left = 0
- Top = 27
- Width = 656
- Height = 60
- CaptionFont.Charset = DEFAULT_CHARSET
- CaptionFont.Color = clWindowText
- CaptionFont.Height = -11
- CaptionFont.Name = 'Tahoma'
- CaptionFont.Style = [fsBold]
- CommentFont.Charset = DEFAULT_CHARSET
- CommentFont.Color = clWindowText
- CommentFont.Height = -11
- CommentFont.Name = 'Tahoma'
- CommentFont.Style = []
- SymbolFont.Charset = DEFAULT_CHARSET
- SymbolFont.Color = clHighlightText
- SymbolFont.Height = -35
- SymbolFont.Name = 'Wingdings'
- SymbolFont.Style = [fsBold]
- Captions.Strings = (
- 'Seleccione los art'#237'culos')
- Comments.Strings = (
- ' ')
- Gradient.FromColor = clHighlight
- Gradient.ToColor = clWindow
- Gradient.Active = False
- Gradient.Orientation = fgdVertical
- BufferedDraw = False
- ExplicitTop = 87
- end
inherited JvNavPanelHeader: TJvNavPanelHeader
+ Top = 113
Width = 656
Caption = 'Lista de art'#237'culos'
Visible = False
+ ExplicitTop = 168
ExplicitWidth = 656
inherited Image1: TImage
Left = 629
@@ -46,10 +17,10 @@ inherited fEditorElegirArticulos: TfEditorElegirArticulos
end
end
inherited TBXDock: TTBXDock
- Top = 87
+ Top = 64
Width = 656
Height = 49
- ExplicitTop = 87
+ ExplicitTop = 91
ExplicitWidth = 656
ExplicitHeight = 49
inherited tbxMain: TTBXToolbar
@@ -92,6 +63,55 @@ inherited fEditorElegirArticulos: TfEditorElegirArticulos
Visible = False
ExplicitWidth = 656
end
+ object pnlHeader: TPanel [3]
+ Left = 0
+ Top = 0
+ Width = 656
+ Height = 64
+ Align = alTop
+ BevelOuter = bvNone
+ Color = clWhite
+ Padding.Left = 25
+ Padding.Top = 8
+ Padding.Right = 25
+ Padding.Bottom = 8
+ ParentBackground = False
+ TabOrder = 4
+ ExplicitTop = 27
+ object lblTitle: TLabel
+ AlignWithMargins = True
+ Left = 25
+ Top = 8
+ Width = 606
+ Height = 13
+ Margins.Left = 0
+ Margins.Top = 0
+ Margins.Right = 0
+ Margins.Bottom = 8
+ Align = alTop
+ Caption = 'Seleccione los art'#237'culos'
+ Font.Charset = DEFAULT_CHARSET
+ Font.Color = clWindowText
+ Font.Height = -11
+ Font.Name = 'Tahoma'
+ Font.Style = [fsBold]
+ ParentFont = False
+ ExplicitWidth = 131
+ end
+ object lblComments: TLabel
+ AlignWithMargins = True
+ Left = 50
+ Top = 29
+ Width = 581
+ Height = 24
+ Margins.Left = 25
+ Margins.Top = 0
+ Margins.Right = 0
+ Align = alClient
+ ExplicitWidth = 3
+ ExplicitHeight = 13
+ end
+ end
inline frViewBarraSeleccion1: TfrViewBarraSeleccion [4]
Left = 0
Top = 436
diff --git a/Source/Modulos/Articulos/Views/uEditorElegirArticulos.pas b/Source/Modulos/Articulos/Views/uEditorElegirArticulos.pas
index 8d6a6f34..65b860b8 100644
--- a/Source/Modulos/Articulos/Views/uEditorElegirArticulos.pas
+++ b/Source/Modulos/Articulos/Views/uEditorElegirArticulos.pas
@@ -9,14 +9,15 @@ uses
ActnList, uCustomView, uViewBase, uViewGridBase, uViewGrid,
uViewArticulos, ComCtrls, TB2ExtItems, TBXExtItems, TBX,
TB2Item, TB2Dock, TB2Toolbar, pngimage, ExtCtrls, JvExControls, JvComponent,
- JvNavigationPane, uViewBarraSeleccion, JvgWizardHeader, StdCtrls,
+ JvNavigationPane, uViewBarraSeleccion, StdCtrls,
uEditorArticulos, uBizArticulos, uIEditorElegirArticulos,
JvExComCtrls, JvStatusBar, uDAInterfaces, uEditorGridBase, uArticulosController;
type
TfEditorElegirArticulos = class(TfEditorGridBase, IEditorElegirArticulos)
frViewBarraSeleccion1: TfrViewBarraSeleccion;
- JvgWizardHeader1: TJvgWizardHeader;
+ lblTitle: TLabel;
+ lblComments: TLabel;
EditorSeleccionActionList: TActionList;
actBuscar2: TAction;
actQuitarFiltro2: TAction;
@@ -146,7 +147,7 @@ end;
function TfEditorElegirArticulos.GetMensaje: String;
begin
- Result := JvgWizardHeader1.Comments.Text;
+ Result := lblComments.Caption;
end;
function TfEditorElegirArticulos.GetMultiSelect: Boolean;
@@ -196,7 +197,7 @@ end;
procedure TfEditorElegirArticulos.SetMensaje(const AValue: String);
begin
- JvgWizardHeader1.Comments.Text := AValue;
+ lblComments.Caption := AValue;
end;
procedure TfEditorElegirArticulos.SetMultiSelect(AValue: Boolean);
diff --git a/Source/Modulos/Banca electronica/Views/uEditorExportacionNorma19.dfm b/Source/Modulos/Banca electronica/Views/uEditorExportacionNorma19.dfm
index 1cd2b439..b1a0ec14 100644
--- a/Source/Modulos/Banca electronica/Views/uEditorExportacionNorma19.dfm
+++ b/Source/Modulos/Banca electronica/Views/uEditorExportacionNorma19.dfm
@@ -41,37 +41,54 @@ object fEditorExportacionNorma19: TfEditorExportacionNorma19
Height = 13
Caption = 'Fecha de cargo:'
end
- object JvgWizardHeader1: TJvgWizardHeader
+ object pnlHeader: TPanel
Left = 0
Top = 0
- Width = 389
- Height = 60
- CaptionFont.Charset = DEFAULT_CHARSET
- CaptionFont.Color = clWindowText
- CaptionFont.Height = -11
- CaptionFont.Name = 'Tahoma'
- CaptionFont.Style = [fsBold]
- CommentFont.Charset = DEFAULT_CHARSET
- CommentFont.Color = clWindowText
- CommentFont.Height = -11
- CommentFont.Name = 'Tahoma'
- CommentFont.Style = []
- SymbolFont.Charset = DEFAULT_CHARSET
- SymbolFont.Color = clHighlightText
- SymbolFont.Height = -35
- SymbolFont.Name = 'Wingdings'
- SymbolFont.Style = [fsBold]
- Captions.Strings = (
- 'Volcado de remesas a disco')
- Comments.Strings = (
- 'Introduzca los siguientes datos para realizar el volcado')
- Gradient.FromColor = clHighlight
- Gradient.ToColor = clWindow
- Gradient.Active = False
- Gradient.Orientation = fgdVertical
- BufferedDraw = False
- ExplicitLeft = -8
- ExplicitTop = 76
+ Width = 656
+ Height = 64
+ Align = alTop
+ BevelOuter = bvNone
+ Color = clWhite
+ Padding.Left = 25
+ Padding.Top = 8
+ Padding.Right = 25
+ Padding.Bottom = 8
+ ParentBackground = False
+ TabOrder = 5
+ object lblTitle: TLabel
+ AlignWithMargins = True
+ Left = 25
+ Top = 8
+ Width = 606
+ Height = 13
+ Margins.Left = 0
+ Margins.Top = 0
+ Margins.Right = 0
+ Margins.Bottom = 8
+ Align = alTop
+ Caption = 'Volcado de remesas a disco'
+ Font.Charset = DEFAULT_CHARSET
+ Font.Color = clWindowText
+ Font.Height = -11
+ Font.Name = 'Tahoma'
+ Font.Style = [fsBold]
+ ParentFont = False
+ ExplicitWidth = 135
+ end
+ object lblComments: TLabel
+ AlignWithMargins = True
+ Caption = 'Introduzca los siguientes datos para realizar el volcado'
+ Left = 50
+ Top = 29
+ Width = 581
+ Height = 27
+ Margins.Left = 25
+ Margins.Top = 0
+ Margins.Right = 0
+ Align = alClient
+ ExplicitWidth = 3
+ ExplicitHeight = 13
+ end
end
object Image1: TImage
Left = 345
diff --git a/Source/Modulos/Banca electronica/Views/uEditorExportacionNorma19.pas b/Source/Modulos/Banca electronica/Views/uEditorExportacionNorma19.pas
index bd720887..1fa62d0d 100644
--- a/Source/Modulos/Banca electronica/Views/uEditorExportacionNorma19.pas
+++ b/Source/Modulos/Banca electronica/Views/uEditorExportacionNorma19.pas
@@ -6,7 +6,7 @@ uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, ExtCtrls, StdCtrls, pngimage, cxControls, cxContainer, cxEdit,
cxTextEdit, cxMaskEdit, cxDropDownEdit, cxCalendar,
- uIEditorExportacionNorma19, JvExControls, JvComponent, JvgWizardHeader,
+ uIEditorExportacionNorma19, JvExControls, JvComponent,
JvAppStorage, JvAppRegistryStorage, JvComponentBase, JvFormPlacement,
JvDialogs, Mask, JvExMask, JvToolEdit, ActnList;
@@ -21,7 +21,8 @@ type
Label4: TLabel;
edtCodEntidad: TcxMaskEdit;
edtCodAgencia: TcxMaskEdit;
- JvgWizardHeader1: TJvgWizardHeader;
+ lblTitle: TLabel;
+ lblComments: TLabel;
Bevel1: TBevel;
JvFormStorage: TJvFormStorage;
JvAppRegistryStorage: TJvAppRegistryStorage;
diff --git a/Source/Modulos/Contactos/Views/uEditorElegirClientes.dfm b/Source/Modulos/Contactos/Views/uEditorElegirClientes.dfm
index 9855102b..e6ab037d 100644
--- a/Source/Modulos/Contactos/Views/uEditorElegirClientes.dfm
+++ b/Source/Modulos/Contactos/Views/uEditorElegirClientes.dfm
@@ -4,41 +4,12 @@ inherited fEditorElegirClientes: TfEditorElegirClientes
ExplicitWidth = 691
PixelsPerInch = 96
TextHeight = 13
- object JvgWizardHeader1: TJvgWizardHeader [0]
- Left = 0
- Top = 27
- Width = 683
- Height = 60
- CaptionFont.Charset = DEFAULT_CHARSET
- CaptionFont.Color = clWindowText
- CaptionFont.Height = -11
- CaptionFont.Name = 'Tahoma'
- CaptionFont.Style = [fsBold]
- CommentFont.Charset = DEFAULT_CHARSET
- CommentFont.Color = clWindowText
- CommentFont.Height = -11
- CommentFont.Name = 'Tahoma'
- CommentFont.Style = []
- SymbolFont.Charset = DEFAULT_CHARSET
- SymbolFont.Color = clHighlightText
- SymbolFont.Height = -35
- SymbolFont.Name = 'Wingdings'
- SymbolFont.Style = [fsBold]
- Captions.Strings = (
- 'Seleccione el cliente')
- Comments.Strings = (
- ' ')
- Gradient.FromColor = clHighlight
- Gradient.ToColor = clWindow
- Gradient.Active = False
- Gradient.Orientation = fgdVertical
- BufferedDraw = True
- ExplicitLeft = 16
- ExplicitTop = 8
- end
inherited JvNavPanelHeader: TJvNavPanelHeader
+ Top = 113
Width = 683
Visible = False
+ ExplicitLeft = -8
+ ExplicitTop = 133
ExplicitWidth = 683
inherited Image1: TImage
Left = 656
@@ -46,22 +17,24 @@ inherited fEditorElegirClientes: TfEditorElegirClientes
end
end
inherited TBXDock: TTBXDock
- Top = 87
+ Top = 64
Width = 683
- ExplicitTop = 87
+ Height = 49
+ ExplicitTop = 64
ExplicitWidth = 683
+ ExplicitHeight = 49
inherited tbxMain: TTBXToolbar
- ExplicitWidth = 284
+ ExplicitWidth = 378
inherited TBXItem36: TTBXItem
Action = actAnchoAuto2
end
end
inherited tbxFiltro: TTBXToolbar
- Left = 284
+ Left = 378
Top = 23
DockPos = 96
DockRow = 1
- ExplicitLeft = 284
+ ExplicitLeft = 378
ExplicitTop = 23
inherited TBXItem34: TTBXItem
Action = actQuitarFiltro2
@@ -70,13 +43,21 @@ inherited fEditorElegirClientes: TfEditorElegirClientes
inherited tbxMenu: TTBXToolbar
ExplicitWidth = 683
end
+ inherited TBXTMain2: TTBXToolbar
+ Left = 647
+ Top = 23
+ DockPos = 656
+ DockRow = 1
+ ExplicitLeft = 647
+ ExplicitTop = 23
+ end
end
inherited StatusBar: TJvStatusBar
Width = 683
Visible = False
ExplicitWidth = 683
end
- inline frViewBarraSeleccion1: TfrViewBarraSeleccion [4]
+ inline frViewBarraSeleccion1: TfrViewBarraSeleccion [3]
Left = 0
Top = 464
Width = 683
@@ -122,27 +103,76 @@ inherited fEditorElegirClientes: TfEditorElegirClientes
end
end
end
- inherited frViewClientes1: TfrViewClientes [5]
- Top = 162
+ object pnlHeader: TPanel [4]
+ Left = 0
+ Top = 0
Width = 683
- Height = 302
+ Height = 64
+ Align = alTop
+ BevelOuter = bvNone
+ Color = clWhite
+ Padding.Left = 25
+ Padding.Top = 8
+ Padding.Right = 25
+ Padding.Bottom = 8
+ ParentBackground = False
+ TabOrder = 5
+ ExplicitTop = 27
+ object lblTitle: TLabel
+ AlignWithMargins = True
+ Left = 25
+ Top = 8
+ Width = 633
+ Height = 13
+ Margins.Left = 0
+ Margins.Top = 0
+ Margins.Right = 0
+ Margins.Bottom = 8
+ Align = alTop
+ Caption = 'Seleccione el cliente'
+ Font.Charset = DEFAULT_CHARSET
+ Font.Color = clWindowText
+ Font.Height = -11
+ Font.Name = 'Tahoma'
+ Font.Style = [fsBold]
+ ParentFont = False
+ ExplicitWidth = 114
+ end
+ object lblComments: TLabel
+ AlignWithMargins = True
+ Left = 50
+ Top = 29
+ Width = 608
+ Height = 24
+ Margins.Left = 25
+ Margins.Top = 0
+ Margins.Right = 0
+ Align = alClient
+ ExplicitWidth = 3
+ ExplicitHeight = 13
+ end
+ end
+ inherited frViewClientes1: TfrViewClientes [5]
+ Top = 140
+ Width = 683
+ Height = 324
Padding.Left = 10
Padding.Top = 10
Padding.Right = 10
Padding.Bottom = 5
TabOrder = 4
- ExplicitTop = 162
+ ExplicitTop = 166
ExplicitWidth = 683
- ExplicitHeight = 302
+ ExplicitHeight = 298
inherited cxGrid: TcxGrid
Left = 10
Top = 112
Width = 663
- Height = 159
+ Height = 181
ExplicitLeft = 10
ExplicitTop = 112
ExplicitWidth = 663
- ExplicitHeight = 159
+ ExplicitHeight = 155
inherited cxGridView: TcxGridDBTableView
DataController.Summary.FooterSummaryItems = <
item
@@ -170,21 +200,37 @@ inherited fEditorElegirClientes: TfEditorElegirClientes
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
+ ExplicitWidth = 689
+ Width = 689
end
inherited edtFechaIniFiltro: TcxDateEdit
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
+ ExplicitWidth = 460
+ Width = 460
end
inherited edtFechaFinFiltro: TcxDateEdit
+ Left = 397
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
+ ExplicitLeft = 397
ExplicitWidth = 123
Width = 123
end
+ inherited eLista: TcxComboBox
+ Left = 515
+ Style.LookAndFeel.SkinName = ''
+ StyleDisabled.LookAndFeel.SkinName = ''
+ StyleFocused.LookAndFeel.SkinName = ''
+ StyleHot.LookAndFeel.SkinName = ''
+ ExplicitLeft = 515
+ ExplicitWidth = 215
+ Width = 215
+ end
end
inherited TBXAlignmentPanel1: TTBXAlignmentPanel
Width = 663
@@ -198,15 +244,16 @@ inherited fEditorElegirClientes: TfEditorElegirClientes
end
inherited pnlAgrupaciones: TTBXDockablePanel
Left = 10
- Top = 271
+ Top = 293
ExplicitLeft = 10
- ExplicitTop = 271
+ ExplicitTop = 267
ExplicitWidth = 663
inherited TBXAlignmentPanel1: TTBXAlignmentPanel
Width = 663
ExplicitWidth = 663
inherited TBXToolbar1: TTBXToolbar
Width = 653
+ ExplicitWidth = 653
end
end
end
@@ -219,6 +266,14 @@ inherited fEditorElegirClientes: TfEditorElegirClientes
BuiltInReportLink = True
end
end
+ inherited cxViewGridPopupMenu: TcxGridPopupMenu
+ PopupMenus = <
+ item
+ GridView = frViewClientes1.cxGridView
+ HitTypes = [gvhtCell]
+ Index = 0
+ end>
+ end
end
inherited EditorActionList: TActionList [6]
Left = 112
@@ -226,6 +281,9 @@ inherited fEditorElegirClientes: TfEditorElegirClientes
inherited actNuevo: TAction
Visible = False
end
+ inherited actGruposCliente: TAction
+ Visible = False
+ end
inherited actModificar: TAction
Visible = False
end
@@ -283,9 +341,6 @@ inherited fEditorElegirClientes: TfEditorElegirClientes
inherited actDuplicar: TAction
Visible = False
end
- inherited actGruposCliente: TAction
- Visible = False
- end
end
inherited SmallImages: TPngImageList [7]
end
diff --git a/Source/Modulos/Contactos/Views/uEditorElegirClientes.pas b/Source/Modulos/Contactos/Views/uEditorElegirClientes.pas
index cb468650..ba04445e 100644
--- a/Source/Modulos/Contactos/Views/uEditorElegirClientes.pas
+++ b/Source/Modulos/Contactos/Views/uEditorElegirClientes.pas
@@ -9,14 +9,15 @@ uses
StdActns, ActnList, uCustomView, uViewBase, uViewGridBase, uViewGrid,
uViewContactos, uViewClientes, ComCtrls, TB2ExtItems, TBXExtItems, TBX,
TB2Item, TB2Dock, TB2Toolbar, pngimage, ExtCtrls, JvExControls, JvComponent,
- JvNavigationPane, uIEditorElegirClientes, uViewBarraSeleccion, JvgWizardHeader,
+ JvNavigationPane, uIEditorElegirClientes, uViewBarraSeleccion,
StdCtrls, uBizContactos, TBXStatusBars, JvExComCtrls, JvStatusBar, JSDialog,
uDAInterfaces;
type
TfEditorElegirClientes = class(TfEditorClientes, IEditorElegirClientes)
frViewBarraSeleccion1: TfrViewBarraSeleccion;
- JvgWizardHeader1: TJvgWizardHeader;
+ lblTitle: TLabel;
+ lblComments: TLabel;
JsClienteBloqueadoDialog: TJSDialog;
EditorSeleccionActionList: TActionList;
actBuscar2: TAction;
@@ -128,7 +129,7 @@ end;
function TfEditorElegirClientes.GetMensaje: String;
begin
- Result := JvgWizardHeader1.Comments.Text;
+ Result := lblComments.Caption;
end;
function TfEditorElegirClientes.GetMultiSelect: Boolean;
@@ -138,7 +139,7 @@ end;
procedure TfEditorElegirClientes.SetMensaje(const AValue: String);
begin
- JvgWizardHeader1.Comments.Text := AValue;
+ lblComments.Caption := AValue;
end;
procedure TfEditorElegirClientes.SetMultiSelect(AValue: Boolean);
diff --git a/Source/Modulos/Contactos/Views/uEditorElegirDireccionEntrega.dfm b/Source/Modulos/Contactos/Views/uEditorElegirDireccionEntrega.dfm
index b06c1576..d1a129d3 100644
--- a/Source/Modulos/Contactos/Views/uEditorElegirDireccionEntrega.dfm
+++ b/Source/Modulos/Contactos/Views/uEditorElegirDireccionEntrega.dfm
@@ -14,40 +14,55 @@ object fEditorElegirDireccionEntrega: TfEditorElegirDireccionEntrega
OnShow = FormShow
PixelsPerInch = 96
TextHeight = 13
- object JvgWizardHeader1: TJvgWizardHeader
+ object pnlHeader: TPanel
Left = 0
Top = 0
- Width = 599
- Height = 60
- CaptionFont.Charset = DEFAULT_CHARSET
- CaptionFont.Color = clWindowText
- CaptionFont.Height = -11
- CaptionFont.Name = 'Tahoma'
- CaptionFont.Style = [fsBold]
- CommentFont.Charset = DEFAULT_CHARSET
- CommentFont.Color = clWindowText
- CommentFont.Height = -11
- CommentFont.Name = 'Tahoma'
- CommentFont.Style = []
- SymbolFont.Charset = DEFAULT_CHARSET
- SymbolFont.Color = clHighlightText
- SymbolFont.Height = -35
- SymbolFont.Name = 'Wingdings'
- SymbolFont.Style = [fsBold]
- Captions.Strings = (
- 'Seleccione una direcci'#243'n del cliente')
- Comments.Strings = (
-
- 'El cliente dispone de varias direcciones dadas de alta en su fic' +
- 'ha. Seleccione la direcci'#243'n del cliente que quiere utilizar.')
- Gradient.FromColor = clHighlight
- Gradient.ToColor = clWindow
- Gradient.Active = False
- Gradient.Orientation = fgdVertical
- BufferedDraw = False
- ExplicitLeft = -57
- ExplicitTop = 27
- ExplicitWidth = 656
+ Width = 656
+ Height = 64
+ Align = alTop
+ BevelOuter = bvNone
+ Color = clWhite
+ Padding.Left = 25
+ Padding.Top = 8
+ Padding.Right = 25
+ Padding.Bottom = 8
+ ParentBackground = False
+ TabOrder = 5
+ object lblTitle: TLabel
+ AlignWithMargins = True
+ Left = 25
+ Top = 8
+ Width = 606
+ Height = 13
+ Margins.Left = 0
+ Margins.Top = 0
+ Margins.Right = 0
+ Margins.Bottom = 8
+ Align = alTop
+ Caption = 'Seleccione una direcci'#243'n del cliente'
+ Font.Charset = DEFAULT_CHARSET
+ Font.Color = clWindowText
+ Font.Height = -11
+ Font.Name = 'Tahoma'
+ Font.Style = [fsBold]
+ ParentFont = False
+ ExplicitWidth = 135
+ end
+ object lblComments: TLabel
+ AlignWithMargins = True
+ Left = 50
+ Top = 29
+ Width = 581
+ Height = 27
+ Margins.Left = 25
+ Margins.Top = 0
+ Margins.Right = 0
+ Align = alClient
+ ExplicitWidth = 3
+ ExplicitHeight = 13
+ Caption = 'El cliente dispone de varias direcciones dadas de alta en su fic' +
+ 'ha. Seleccione la direcci'#243'n del cliente que quiere utilizar.'
+ end
end
inline frViewBarraSeleccion1: TfrViewBarraSeleccion
Left = 0
diff --git a/Source/Modulos/Contactos/Views/uEditorElegirDireccionEntrega.pas b/Source/Modulos/Contactos/Views/uEditorElegirDireccionEntrega.pas
index 43fcffb3..5c00a20f 100644
--- a/Source/Modulos/Contactos/Views/uEditorElegirDireccionEntrega.pas
+++ b/Source/Modulos/Contactos/Views/uEditorElegirDireccionEntrega.pas
@@ -6,7 +6,7 @@ uses Windows, SysUtils, Classes, Graphics, Forms, Controls, StdCtrls,
Buttons, ExtCtrls, Mask, DBCtrls, DB, uDADataTable,
cxControls, cxContainer, cxEdit, cxTextEdit, cxDBEdit,
uIEditorElegirDireccionEntrega, uCustomView, uBizContactos,
- uViewBase, uViewBarraSeleccion, JvExControls, JvComponent, JvgWizardHeader,
+ uViewBase, uViewBarraSeleccion, JvExControls, JvComponent,
DBCGrids, uBizDireccionesContacto, uDAInterfaces, ActnList,
uDireccionesContactoController;
@@ -14,7 +14,8 @@ type
TfEditorElegirDireccionEntrega = class(TForm, IEditorElegirDireccionEntrega)
dsDirecciones: TDADataSource;
frViewBarraSeleccion1: TfrViewBarraSeleccion;
- JvgWizardHeader1: TJvgWizardHeader;
+ lblTitle: TLabel;
+ lblComments: TLabel;
DBCtrlGrid1: TDBCtrlGrid;
eCalle: TDBText;
ePoblacion: TDBText;
@@ -106,12 +107,12 @@ begin
if Supports(FContacto, IBizCliente) then
begin
Caption := 'Elegir una dirección de cliente';
- JvgWizardHeader1.Captions.Text := 'Seleccione una dirección de cliente';
+ lblTitle.Caption := 'Seleccione una dirección de cliente';
end;
if Supports(FContacto, IBizProveedor) then
begin
Caption := 'Elegir una dirección de proveedor';
- JvgWizardHeader1.Captions.Text := 'Seleccione una dirección de proveedor';
+ lblTitle.Caption := 'Seleccione una dirección de proveedor';
end;
end;
@@ -198,7 +199,7 @@ end;
function TfEditorElegirDireccionEntrega.GetMensaje: String;
begin
- Result := JvgWizardHeader1.Comments.Text;
+ Result := lblComments.Caption;
end;
procedure TfEditorElegirDireccionEntrega.RefrescarEstado;
@@ -267,9 +268,9 @@ end;
procedure TfEditorElegirDireccionEntrega.SetMensaje(const AValue: String);
begin
if not EsCadenaVacia(AValue) then
- JvgWizardHeader1.Comments.Text := AValue
+ lblComments.Caption := AValue
else
- JvgWizardHeader1.Comments.Text := ' ';
+ lblComments.Caption := ' ';
end;
end.
diff --git a/Source/Modulos/Contactos/Views/uEditorElegirPersonaContacto.dfm b/Source/Modulos/Contactos/Views/uEditorElegirPersonaContacto.dfm
index 99bccecd..294bb846 100644
--- a/Source/Modulos/Contactos/Views/uEditorElegirPersonaContacto.dfm
+++ b/Source/Modulos/Contactos/Views/uEditorElegirPersonaContacto.dfm
@@ -11,40 +11,55 @@ object fEditorElegirPersonaContacto: TfEditorElegirPersonaContacto
Position = poOwnerFormCenter
PixelsPerInch = 96
TextHeight = 13
- object JvgWizardHeader1: TJvgWizardHeader
+ object pnlHeader: TPanel
Left = 0
Top = 0
- Width = 599
- Height = 60
- CaptionFont.Charset = DEFAULT_CHARSET
- CaptionFont.Color = clWindowText
- CaptionFont.Height = -11
- CaptionFont.Name = 'Tahoma'
- CaptionFont.Style = [fsBold]
- CommentFont.Charset = DEFAULT_CHARSET
- CommentFont.Color = clWindowText
- CommentFont.Height = -11
- CommentFont.Name = 'Tahoma'
- CommentFont.Style = []
- SymbolFont.Charset = DEFAULT_CHARSET
- SymbolFont.Color = clHighlightText
- SymbolFont.Height = -35
- SymbolFont.Name = 'Wingdings'
- SymbolFont.Style = [fsBold]
- Captions.Strings = (
- 'Seleccione una persona de contacto')
- Comments.Strings = (
-
- 'El cliente dispone de personas de contacto dadas de alta en su f' +
- 'icha. Seleccione la que quiere utilizar.')
- Gradient.FromColor = clHighlight
- Gradient.ToColor = clWindow
- Gradient.Active = False
- Gradient.Orientation = fgdVertical
- BufferedDraw = False
- ExplicitLeft = -57
- ExplicitTop = 27
- ExplicitWidth = 656
+ Width = 656
+ Height = 64
+ Align = alTop
+ BevelOuter = bvNone
+ Color = clWhite
+ Padding.Left = 25
+ Padding.Top = 8
+ Padding.Right = 25
+ Padding.Bottom = 8
+ ParentBackground = False
+ TabOrder = 5
+ object lblTitle: TLabel
+ AlignWithMargins = True
+ Left = 25
+ Top = 8
+ Width = 606
+ Height = 13
+ Margins.Left = 0
+ Margins.Top = 0
+ Margins.Right = 0
+ Margins.Bottom = 8
+ Align = alTop
+ Caption = 'Seleccione una persona de contacto'
+ Font.Charset = DEFAULT_CHARSET
+ Font.Color = clWindowText
+ Font.Height = -11
+ Font.Name = 'Tahoma'
+ Font.Style = [fsBold]
+ ParentFont = False
+ ExplicitWidth = 135
+ end
+ object lblComments: TLabel
+ AlignWithMargins = True
+ Left = 50
+ Top = 29
+ Width = 581
+ Height = 27
+ Margins.Left = 25
+ Margins.Top = 0
+ Margins.Right = 0
+ Align = alClient
+ ExplicitWidth = 3
+ ExplicitHeight = 13
+ Caption = 'El cliente dispone de personas de contacto dadas de alta en su f' +
+ 'icha. Seleccione la que quiere utilizar.'
+ end
end
inline frViewBarraSeleccion1: TfrViewBarraSeleccion
Left = 0
diff --git a/Source/Modulos/Contactos/Views/uEditorElegirPersonaContacto.pas b/Source/Modulos/Contactos/Views/uEditorElegirPersonaContacto.pas
index 1e60f465..8f55ccab 100644
--- a/Source/Modulos/Contactos/Views/uEditorElegirPersonaContacto.pas
+++ b/Source/Modulos/Contactos/Views/uEditorElegirPersonaContacto.pas
@@ -6,14 +6,15 @@ uses Windows, SysUtils, Classes, Graphics, Forms, Controls, StdCtrls,
Buttons, ExtCtrls, Mask, DBCtrls, DB, uDADataTable,
cxControls, cxContainer, cxEdit, cxTextEdit, cxDBEdit,
uIEditorElegirPersonaContacto, uCustomView,
- uViewBase, uViewBarraSeleccion, JvExControls, JvComponent, JvgWizardHeader,
+ uViewBase, uViewBarraSeleccion, JvExControls, JvComponent,
DBCGrids, uBizContactosPersonal, uDAInterfaces;
type
TfEditorElegirPersonaContacto = class(TForm, IEditorElegirPersonaContacto)
dsPersonas: TDADataSource;
frViewBarraSeleccion1: TfrViewBarraSeleccion;
- JvgWizardHeader1: TJvgWizardHeader;
+ lblTitle: TLabel;
+ lblComments: TLabel;
DBCtrlGrid1: TDBCtrlGrid;
ePuesto: TDBText;
eTelefono: TDBText;
@@ -90,7 +91,7 @@ end;
function TfEditorElegirPersonaContacto.GetMensaje: String;
begin
- Result := JvgWizardHeader1.Comments.Text;
+ Result := lblComments.Caption;
end;
procedure TfEditorElegirPersonaContacto.SetPersonas(const Value: IBizContactoPersonal);
@@ -104,7 +105,7 @@ end;
procedure TfEditorElegirPersonaContacto.SetMensaje(const AValue: String);
begin
- JvgWizardHeader1.Comments.Text := AValue;
+ lblComments.Caption := AValue;
end;
end.
diff --git a/Source/Modulos/Contactos/Views/uEditorElegirProveedores.dfm b/Source/Modulos/Contactos/Views/uEditorElegirProveedores.dfm
index dfa03d34..d163ee17 100644
--- a/Source/Modulos/Contactos/Views/uEditorElegirProveedores.dfm
+++ b/Source/Modulos/Contactos/Views/uEditorElegirProveedores.dfm
@@ -6,41 +6,12 @@ inherited fEditorElegirProveedores: TfEditorElegirProveedores
ExplicitHeight = 514
PixelsPerInch = 96
TextHeight = 13
- object JvgWizardHeader1: TJvgWizardHeader [0]
- Left = 0
- Top = 27
- Width = 656
- Height = 60
- CaptionFont.Charset = DEFAULT_CHARSET
- CaptionFont.Color = clWindowText
- CaptionFont.Height = -11
- CaptionFont.Name = 'Tahoma'
- CaptionFont.Style = [fsBold]
- CommentFont.Charset = DEFAULT_CHARSET
- CommentFont.Color = clWindowText
- CommentFont.Height = -11
- CommentFont.Name = 'Tahoma'
- CommentFont.Style = []
- SymbolFont.Charset = DEFAULT_CHARSET
- SymbolFont.Color = clHighlightText
- SymbolFont.Height = -35
- SymbolFont.Name = 'Wingdings'
- SymbolFont.Style = [fsBold]
- Captions.Strings = (
- 'Seleccione el proveedor')
- Comments.Strings = (
- ' ')
- Gradient.FromColor = clHighlight
- Gradient.ToColor = clWindow
- Gradient.Active = False
- Gradient.BufferedDraw = True
- Gradient.Orientation = fgdVertical
- BufferedDraw = True
- ExplicitTop = -10
- end
inherited JvNavPanelHeader: TJvNavPanelHeader
+ Top = 113
Width = 656
Visible = False
+ ExplicitLeft = 8
+ ExplicitTop = 166
ExplicitWidth = 656
inherited Image1: TImage
Left = 629
@@ -48,22 +19,24 @@ inherited fEditorElegirProveedores: TfEditorElegirProveedores
end
end
inherited TBXDock: TTBXDock
- Top = 87
+ Top = 64
Width = 656
- ExplicitTop = 87
+ Height = 49
+ ExplicitTop = 64
ExplicitWidth = 656
+ ExplicitHeight = 49
inherited tbxMain: TTBXToolbar
- ExplicitWidth = 284
+ ExplicitWidth = 351
inherited TBXItem36: TTBXItem
Action = actAnchoAuto2
end
end
inherited tbxFiltro: TTBXToolbar
- Left = 284
+ Left = 351
Top = 23
DockPos = 108
DockRow = 1
- ExplicitLeft = 284
+ ExplicitLeft = 351
ExplicitTop = 23
inherited TBXItem34: TTBXItem
Action = actQuitarFiltro2
@@ -72,6 +45,14 @@ inherited fEditorElegirProveedores: TfEditorElegirProveedores
inherited tbxMenu: TTBXToolbar
ExplicitWidth = 656
end
+ inherited TBXTMain2: TTBXToolbar
+ Left = 620
+ Top = 23
+ DockPos = 629
+ DockRow = 1
+ ExplicitLeft = 620
+ ExplicitTop = 23
+ end
end
inherited StatusBar: TJvStatusBar
Top = 461
@@ -80,7 +61,7 @@ inherited fEditorElegirProveedores: TfEditorElegirProveedores
ExplicitTop = 461
ExplicitWidth = 656
end
- inline frViewBarraSeleccion1: TfrViewBarraSeleccion [4]
+ inline frViewBarraSeleccion1: TfrViewBarraSeleccion [3]
Left = 0
Top = 425
Width = 656
@@ -125,27 +106,76 @@ inherited fEditorElegirProveedores: TfEditorElegirProveedores
end
end
end
- inherited frViewProveedores1: TfrViewProveedores [5]
- Top = 162
+ object pnlHeader: TPanel [4]
+ Left = 0
+ Top = 0
Width = 656
- Height = 263
+ Height = 64
+ Align = alTop
+ BevelOuter = bvNone
+ Color = clWhite
+ Padding.Left = 25
+ Padding.Top = 8
+ Padding.Right = 25
+ Padding.Bottom = 8
+ ParentBackground = False
+ TabOrder = 5
+ ExplicitTop = 27
+ object lblTitle: TLabel
+ AlignWithMargins = True
+ Left = 25
+ Top = 8
+ Width = 606
+ Height = 13
+ Margins.Left = 0
+ Margins.Top = 0
+ Margins.Right = 0
+ Margins.Bottom = 8
+ Align = alTop
+ Caption = 'Seleccione el proveedor'
+ Font.Charset = DEFAULT_CHARSET
+ Font.Color = clWindowText
+ Font.Height = -11
+ Font.Name = 'Tahoma'
+ Font.Style = [fsBold]
+ ParentFont = False
+ ExplicitWidth = 135
+ end
+ object lblComments: TLabel
+ AlignWithMargins = True
+ Left = 50
+ Top = 29
+ Width = 581
+ Height = 24
+ Margins.Left = 25
+ Margins.Top = 0
+ Margins.Right = 0
+ Align = alClient
+ ExplicitWidth = 3
+ ExplicitHeight = 13
+ end
+ end
+ inherited frViewProveedores1: TfrViewProveedores [5]
+ Top = 140
+ Width = 656
+ Height = 285
Padding.Left = 10
Padding.Top = 10
Padding.Right = 10
Padding.Bottom = 5
TabOrder = 4
- ExplicitTop = 162
+ ExplicitTop = 166
ExplicitWidth = 656
- ExplicitHeight = 263
+ ExplicitHeight = 259
inherited cxGrid: TcxGrid
Left = 10
Top = 112
Width = 636
- Height = 120
+ Height = 142
ExplicitLeft = 10
ExplicitTop = 112
ExplicitWidth = 636
- ExplicitHeight = 120
+ ExplicitHeight = 116
inherited cxGridView: TcxGridDBTableView
DataController.Summary.FooterSummaryItems = <
item
@@ -174,18 +204,36 @@ inherited fEditorElegirProveedores: TfEditorElegirProveedores
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
+ ExplicitWidth = 446
+ Width = 446
end
inherited edtFechaIniFiltro: TcxDateEdit
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
+ ExplicitWidth = 219
+ Width = 219
end
inherited edtFechaFinFiltro: TcxDateEdit
+ Left = 261
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
+ ExplicitLeft = 261
+ ExplicitWidth = 210
+ Width = 210
+ end
+ inherited eLista: TcxComboBox
+ Left = 462
+ Style.LookAndFeel.SkinName = ''
+ StyleDisabled.LookAndFeel.SkinName = ''
+ StyleFocused.LookAndFeel.SkinName = ''
+ StyleHot.LookAndFeel.SkinName = ''
+ ExplicitLeft = 462
+ ExplicitWidth = 215
+ Width = 215
end
end
inherited TBXAlignmentPanel1: TTBXAlignmentPanel
@@ -200,9 +248,10 @@ inherited fEditorElegirProveedores: TfEditorElegirProveedores
end
inherited pnlAgrupaciones: TTBXDockablePanel
Left = 10
- Top = 232
+ Top = 254
ExplicitLeft = 10
- ExplicitTop = 232
+ ExplicitTop = 228
+ ExplicitWidth = 636
inherited TBXAlignmentPanel1: TTBXAlignmentPanel
Width = 636
ExplicitWidth = 636
@@ -221,6 +270,14 @@ inherited fEditorElegirProveedores: TfEditorElegirProveedores
BuiltInReportLink = True
end
end
+ inherited cxViewGridPopupMenu: TcxGridPopupMenu
+ PopupMenus = <
+ item
+ GridView = frViewProveedores1.cxGridView
+ HitTypes = [gvhtCell]
+ Index = 0
+ end>
+ end
end
inherited EditorActionList: TActionList [6]
Left = 112
diff --git a/Source/Modulos/Contactos/Views/uEditorElegirProveedores.pas b/Source/Modulos/Contactos/Views/uEditorElegirProveedores.pas
index 7b3d16b9..80bdff79 100644
--- a/Source/Modulos/Contactos/Views/uEditorElegirProveedores.pas
+++ b/Source/Modulos/Contactos/Views/uEditorElegirProveedores.pas
@@ -9,14 +9,15 @@ uses
StdActns, ActnList, uCustomView, uViewBase, uViewGridBase, uViewGrid,
uViewContactos, uViewProveedores, ComCtrls, TB2ExtItems, TBXExtItems, TBX,
TB2Item, TB2Dock, TB2Toolbar, pngimage, ExtCtrls, JvExControls, JvComponent,
- JvNavigationPane, uIEditorElegirProveedores, uViewBarraSeleccion, JvgWizardHeader,
+ JvNavigationPane, uIEditorElegirProveedores, uViewBarraSeleccion,
StdCtrls, uBizContactos, TBXStatusBars, JvExComCtrls, JvStatusBar, JSDialog,
uDAInterfaces;
type
TfEditorElegirProveedores = class(TfEditorProveedores, IEditorElegirProveedores)
frViewBarraSeleccion1: TfrViewBarraSeleccion;
- JvgWizardHeader1: TJvgWizardHeader;
+ lblTitle: TLabel;
+ lblComments: TLabel;
EditorSeleccionActionList: TActionList;
actBuscar2: TAction;
actQuitarFiltro2: TAction;
@@ -104,7 +105,7 @@ end;
function TfEditorElegirProveedores.GetMensaje: String;
begin
- Result := JvgWizardHeader1.Comments.Text;
+ Result := lblComments.Caption;
end;
function TfEditorElegirProveedores.GetMultiSelect: Boolean;
@@ -114,7 +115,7 @@ end;
procedure TfEditorElegirProveedores.SetMensaje(const AValue: String);
begin
- JvgWizardHeader1.Comments.Text := AValue;
+ lblComments.Caption := AValue;
end;
procedure TfEditorElegirProveedores.SetMultiSelect(AValue: Boolean);
diff --git a/Source/Modulos/Facturas de cliente/Views/FacturasCliente_view.dproj b/Source/Modulos/Facturas de cliente/Views/FacturasCliente_view.dproj
index 84e8d35d..4cf71f8c 100644
--- a/Source/Modulos/Facturas de cliente/Views/FacturasCliente_view.dproj
+++ b/Source/Modulos/Facturas de cliente/Views/FacturasCliente_view.dproj
@@ -49,17 +49,18 @@
MainSource
-
-
-
-
-
-
-
-
-
-
-
+
+
+
+
+
+
+
+
+
+
+
+
TfEditorElegirFacturasCliente
@@ -104,7 +105,6 @@
TFrame
-