From 8d090e5693e75cad2eff7ea91a4f0fa69cedee80 Mon Sep 17 00:00:00 2001 From: david Date: Thu, 9 Jul 2009 11:21:22 +0000 Subject: [PATCH] Se deja de usar JvWizardHeader git-svn-id: https://192.168.0.254/svn/Proyectos.Tecsitel_FactuGES2/trunk@963 0c75b7a4-871f-7646-8a2f-f78d34cc349f --- Source/Base/Base.res | Bin 4748 -> 384 bytes .../Views/AlbaranesCliente_view.dproj | 40 +- .../Views/uEditorElegirAlbaranesCliente.dfm | 89 ++- .../Views/uEditorElegirAlbaranesCliente.pas | 9 +- .../uEditorElegirArticulosAlbaranCliente.dfm | 1 - .../uEditorElegirArticulosAlbaranCliente.pas | 4 +- .../Views/uEditorElegirAlbaranesProveedor.dfm | 77 +- .../Views/uEditorElegirAlbaranesProveedor.pas | 9 +- ...uEditorElegirArticulosAlbaranProveedor.dfm | 9 + ...uEditorElegirArticulosAlbaranProveedor.pas | 4 +- .../Views/uEditorElegirArticulos.dfm | 86 ++- .../Views/uEditorElegirArticulos.pas | 9 +- .../Views/uEditorExportacionNorma19.dfm | 75 +- .../Views/uEditorExportacionNorma19.pas | 5 +- .../Contactos/Views/uEditorElegirClientes.dfm | 155 ++-- .../Contactos/Views/uEditorElegirClientes.pas | 9 +- .../Views/uEditorElegirDireccionEntrega.dfm | 79 ++- .../Views/uEditorElegirDireccionEntrega.pas | 15 +- .../Views/uEditorElegirPersonaContacto.dfm | 79 ++- .../Views/uEditorElegirPersonaContacto.pas | 9 +- .../Views/uEditorElegirProveedores.dfm | 151 ++-- .../Views/uEditorElegirProveedores.pas | 9 +- .../Views/FacturasCliente_view.dproj | 24 +- .../uEditorElegirArticulosFacturaCliente.pas | 2 +- .../Views/uEditorElegirFacturasCliente.dfm | 135 ++-- .../Views/uEditorElegirFacturasCliente.pas | 9 +- ...uEditorElegirArticulosFacturaProveedor.pas | 2 +- .../Views/uEditorElegirDomiciliacion.dfm | 2 +- .../Model/schInventarioClient_Intf.pas | 6 +- .../Views/uEditorElegirArticulosAlmacen.dfm | 147 ++-- .../Views/uEditorElegirArticulosAlmacen.pas | 9 +- .../Views/uEditorElegirArticulosCatalogo.dfm | 49 +- .../Views/uEditorElegirArticulosCatalogo.pas | 2 +- .../uEditorElegirArticulosPedidoProveedor.pas | 2 +- .../Views/uEditorElegirPedidosProveedor.dfm | 128 ++-- .../Views/uEditorElegirPedidosProveedor.pas | 9 +- .../uEditorElegirPersonaContactoPedido.dfm | 12 +- .../Views/uEditorSituacionPedidoProveedor.dfm | 77 +- .../Views/uEditorSituacionPedidoProveedor.pas | 5 +- .../Views/PresupuestosCliente_view.dproj | 48 +- ...ditorElegirArticulosPresupuestoCliente.pas | 2 +- .../uEditorElegirPresupuestosCliente.dfm | 88 ++- .../uEditorElegirPresupuestosCliente.pas | 9 +- .../Views/RecibosCliente_view.dproj | 10 +- .../Views/uEditorElegirRecibosCliente.dfm | 119 ++-- .../Views/uEditorElegirRecibosCliente.pas | 9 +- .../Views/uEditorElegirRecibosProveedor.dfm | 75 +- .../Views/uEditorElegirRecibosProveedor.pas | 9 +- Source/Servidor/FactuGES_Server.RES | Bin 23208 -> 23200 bytes Source/Servidor/FactuGES_Server.dproj | 664 +++++++++--------- Source/Servidor/FactuGES_Server.rc | 2 +- 51 files changed, 1484 insertions(+), 1094 deletions(-) diff --git a/Source/Base/Base.res b/Source/Base/Base.res index 1641339fcc482e7e3492d1b45813a86619622c33..8b251f312bcccec5485024f6fe8d80e1cdf25746 100644 GIT binary patch delta 11 ScmeBCZD5|Duvteife`=|>;pCc literal 4748 zcmbW5&ub)A5XUPdpe&2#;C*uNAUVhgd+&(4um@dnom`vXF9g}ZuHJ;se=<3UNdFJg zbCw+UD9j$byGIXV`~6hC>h4S?F|k9X-j90q{Z_qtZ<;nUJCO8!h?p${kR>3GhM`oH*q zk=UsjOCIgA_4!`B+Gb&`I84R)bT4dy-BQV<-SyFz?R8ILEQ(+JB$u{sEXE@j@B*7W zT;iZH#|OJ<&DO$RCkM6VbK3(B(k{nbdv1lpc;E$xz9as|v3uE1V{hw2w~g3eD0an7 z{BT%G%irdMe*|oDJmgvJaA2`9B<6Xi*?M~Q;)@Sbfwf3uf zVaWkbUjU=;sL{BlYemIZXv%qZ{SZw{-TCU+;!nH6KDDIJumU+9{E0zXW4>7T)y|>$DQlv zRJe?TjSp{c!DqeayAnSMTtZZT;>LN7J0Rls+5m@q)MbyB*eL%Eu@(+$Cw}Pd@q7N| z%Q0*AHpCP^b9v`@jx-l_FD>khpW2W8(OU2&V5TrnoAY-m_hlcV?zq3;7{2gF{J#Hc z6R+o~mVenX?>@W0@_DVzyOFs(5464CY{!q9ChoF#_*eXi@4gFuV8?vhl=_w5$iKL0 zEV0nMBcN08xtRmsgJrqjh@s#|{?*ssnsG)mH*wa6{efF0JFWHok@kA5%b661{B38= zCcgJ|*ZFTpV$8<-&+AWpa)Q8*`wL&hMeNQ^v6I7$HSdLZhZ^&+6<@Uw_Zsml9^v3W zVvPDBKHh;i=RU4J_ta3E;)Mn>Y+L zKLZ0UQ+*km9FO-b?U4gmn-62iwzH6&*duKGo~aUV)bYDla8wWZ9+^7p-F<8lP@i!m z@vhbD_${F}h>^T;C(?(b*OJDk?{dEXB?nuehoON3HAb!7Mr7-ls!84-5V-jJugbu<_$}mU=Yd9!?TOX;|B-#B)+0x#9q*yqJiqS!`49d=7ztk$O+9=1i;?K_|J<8T z?0b7=-`Z3A#vV$4XJ5(lQ~TOZHUFdA%oWvK5zg&_IKXIbughQBA8XAsd#=@|TFLXC zy(^m((;DnQmDQKatmw!@c`| G?EMQ&4NnpP 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 - - - - - - - - + + + + + + + +
fEditorAlbaranCliente
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 - - - - - - - - - - - + + + + + + + + + + + +
fDialogOpcionesImpresionFacturasCliente
TfEditorElegirFacturasCliente @@ -104,7 +105,6 @@
frViewFacturasCliente
TFrame
-