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

Arreglo de error en todos los elegir, no se ha añadido la variable pnlHeader:TPanel en los pas

Browse Source 
git-svn-id: https://192.168.0.254/svn/Proyectos.Tecsitel_FactuGES2/trunk@967 0c75b7a4-871f-7646-8a2f-f78d34cc349f
This commit is contained in:
roberto 2009-07-14 15:52:43 +00:00
parent a8be8f280f
commit b09f8611fc
19 changed files with 89 additions and 80 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
Source/GUIBase/uViewFormaPago.pas
View File

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

3
Source/GUIBase/uViewObservaciones.dfm
View File

@ -1,8 +1,9 @@
inherited frViewObservaciones: TfrViewObservaciones
Width = 300
ExplicitWidth = 300
DesignSize = (
300
226)
291)
object Label5: TLabel
Left = 8
Top = 8

2
Source/GUIBase/uViewObservaciones.pas
View File

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

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

@ -22,6 +22,7 @@ type
actBuscar2: TAction;
actQuitarFiltro2: TAction;
actAnchoAuto2: TAction;
pnlHeader: TPanel;
procedure frViewBarraSeleccion1actSeleccionarUpdate(Sender: TObject);
procedure frViewBarraSeleccion1actCancelarExecute(Sender: TObject);
procedure frViewBarraSeleccion1actSeleccionarExecute(Sender: TObject);

1
Source/Modulos/Albaranes de proveedor/Views/uEditorElegirAlbaranesProveedor.pas
View File

@ -22,6 +22,7 @@ type
actBuscar2: TAction;
actQuitarFiltro2: TAction;
actAnchoAuto2: TAction;
pnlHeader: TPanel;
procedure frViewBarraSeleccion1actSeleccionarUpdate(Sender: TObject);
procedure frViewBarraSeleccion1actCancelarExecute(Sender: TObject);
procedure frViewBarraSeleccion1actSeleccionarExecute(Sender: TObject);

1
Source/Modulos/Articulos/Views/uEditorElegirArticulos.pas
View File

@ -22,6 +22,7 @@ type
actBuscar2: TAction;
actQuitarFiltro2: TAction;
actAnchoAuto2: TAction;
pnlHeader: TPanel;
procedure frViewBarraSeleccion1actSeleccionarUpdate(Sender: TObject);
procedure frViewBarraSeleccion1actCancelarExecute(Sender: TObject);
procedure frViewBarraSeleccion1actSeleccionarExecute(Sender: TObject);

1
Source/Modulos/Contactos/Views/uEditorElegirClientes.pas
View File

@ -23,6 +23,7 @@ type
actBuscar2: TAction;
actQuitarFiltro2: TAction;
actAnchoAuto2: TAction;
pnlHeader: TPanel;
procedure frViewBarraSeleccion1actSeleccionarUpdate(Sender: TObject);
procedure frViewBarraSeleccion1actCancelarExecute(Sender: TObject);
procedure frViewBarraSeleccion1actSeleccionarExecute(Sender: TObject);

1
Source/Modulos/Contactos/Views/uEditorElegirProveedores.pas
View File

@ -22,6 +22,7 @@ type
actBuscar2: TAction;
actQuitarFiltro2: TAction;
actAnchoAuto2: TAction;
pnlHeader: TPanel;
procedure frViewBarraSeleccion1actSeleccionarUpdate(Sender: TObject);
procedure frViewBarraSeleccion1actCancelarExecute(Sender: TObject);
procedure frViewBarraSeleccion1actSeleccionarExecute(Sender: TObject);

1
Source/Modulos/Facturas de cliente/Views/uEditorElegirFacturasCliente.pas
View File

@ -49,6 +49,7 @@ type
actBuscar2: TAction;
actQuitarFiltro2: TAction;
actAnchoAuto2: TAction;
pnlHeader: TPanel;
procedure frViewBarraSeleccion1actSeleccionarUpdate(Sender: TObject);
procedure frViewBarraSeleccion1actCancelarExecute(Sender: TObject);
procedure frViewBarraSeleccion1actSeleccionarExecute(Sender: TObject);

1
Source/Modulos/Inventario/Views/uEditorElegirArticulosAlmacen.pas
View File

@ -23,6 +23,7 @@ type
actBuscar2: TAction;
actQuitarFiltro2: TAction;
actAnchoAuto2: TAction;
pnlHeader: TPanel;
procedure frViewBarraSeleccion1actSeleccionarUpdate(Sender: TObject);
procedure frViewBarraSeleccion1actCancelarExecute(Sender: TObject);
procedure frViewBarraSeleccion1actSeleccionarExecute(Sender: TObject);

1
Source/Modulos/Pedidos a proveedor/Views/uEditorElegirPedidosProveedor.pas
View File

@ -23,6 +23,7 @@ type
actBuscar2: TAction;
actQuitarFiltro2: TAction;
actAnchoAuto2: TAction;
pnlHeader: TPanel;
procedure frViewBarraSeleccion1actSeleccionarUpdate(Sender: TObject);
procedure frViewBarraSeleccion1actCancelarExecute(Sender: TObject);
procedure frViewBarraSeleccion1actSeleccionarExecute(Sender: TObject);

1
Source/Modulos/Presupuestos de cliente/Views/uEditorElegirPresupuestosCliente.pas
View File

@ -22,6 +22,7 @@ type
actBuscar2: TAction;
actQuitarFiltro2: TAction;
actAnchoAuto2: TAction;
pnlHeader: TPanel;
procedure frViewBarraSeleccion1actSeleccionarUpdate(Sender: TObject);
procedure frViewBarraSeleccion1actCancelarExecute(Sender: TObject);
procedure frViewBarraSeleccion1actSeleccionarExecute(Sender: TObject);

1
Source/Modulos/Recibos de cliente/Views/uEditorElegirRecibosCliente.pas
View File

@ -58,6 +58,7 @@ type
rbTodo: TcxRadioButton;
rbFechas: TcxRadioButton;
Button1: TBitBtn;
pnlHeader: TPanel;
procedure frViewBarraSeleccion1actSeleccionarUpdate(Sender: TObject);
procedure frViewBarraSeleccion1actCancelarExecute(Sender: TObject);
procedure frViewBarraSeleccion1actSeleccionarExecute(Sender: TObject);

136
Source/Modulos/Recibos de proveedor/Views/uEditorElegirRecibosProveedor.dfm
View File

@ -4,59 +4,11 @@ inherited fEditorElegirRecibosProveedor: TfEditorElegirRecibosProveedor
ExplicitWidth = 662
PixelsPerInch = 96
TextHeight = 13
object pnlHeader: TPanel
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 = 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 recibos de 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
end
end
inherited JvNavPanelHeader: TJvNavPanelHeader
Top = 144
Top = 148
Width = 654
Visible = False
ExplicitTop = 144
ExplicitTop = 148
ExplicitWidth = 654
inherited Image1: TImage
Left = 627
@ -64,10 +16,10 @@ inherited fEditorElegirRecibosProveedor: TfEditorElegirRecibosProveedor
end
end
inherited TBXDock: TTBXDock
Top = 171
Top = 175
Width = 654
Height = 72
ExplicitTop = 171
ExplicitTop = 175
ExplicitWidth = 654
ExplicitHeight = 72
inherited tbxMain: TTBXToolbar
@ -122,7 +74,7 @@ inherited fEditorElegirRecibosProveedor: TfEditorElegirRecibosProveedor
ExplicitTop = 609
ExplicitWidth = 654
end
inline frViewBarraSeleccion1: TfrViewBarraSeleccion [4]
inline frViewBarraSeleccion1: TfrViewBarraSeleccion [3]
Left = 0
Top = 628
Width = 654
@ -167,19 +119,67 @@ inherited fEditorElegirRecibosProveedor: TfEditorElegirRecibosProveedor
end
end
end
inherited frViewRecibosProveedor1: TfrViewRecibosProveedor [5]
Top = 243
object pnlHeader: TPanel [4]
Left = 0
Top = 0
Width = 654
Height = 366
ExplicitTop = 243
Height = 64
Align = alTop
BevelOuter = bvNone
Color = clWhite
Padding.Left = 25
Padding.Top = 8
Padding.Right = 25
Padding.Bottom = 8
ParentBackground = False
TabOrder = 6
object lblTitle: TLabel
AlignWithMargins = True
Left = 25
Top = 8
Width = 604
Height = 13
Margins.Left = 0
Margins.Top = 0
Margins.Right = 0
Margins.Bottom = 8
Align = alTop
Caption = 'Seleccione recibos de cliente'
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'Tahoma'
Font.Style = [fsBold]
ParentFont = False
ExplicitWidth = 162
end
object lblComments: TLabel
AlignWithMargins = True
Left = 50
Top = 29
Width = 579
Height = 24
Margins.Left = 25
Margins.Top = 0
Margins.Right = 0
Align = alClient
ExplicitWidth = 3
ExplicitHeight = 13
end
end
inherited frViewRecibosProveedor1: TfrViewRecibosProveedor [5]
Top = 247
Width = 654
Height = 362
ExplicitTop = 247
ExplicitWidth = 654
ExplicitHeight = 366
ExplicitHeight = 362
inherited cxGrid: TcxGrid
Width = 654
Height = 238
Height = 234
RootLevelOptions.DetailTabsPosition = dtpNone
ExplicitWidth = 654
ExplicitHeight = 238
ExplicitHeight = 234
inherited cxGridView: TcxGridDBTableView
DataController.Summary.DefaultGroupSummaryItems = <
item
@ -225,24 +225,22 @@ inherited fEditorElegirRecibosProveedor: TfEditorElegirRecibosProveedor
Width = 121
end
inherited edtFechaFinFiltro: TcxDateEdit
Left = 225
Left = 197
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitLeft = 225
ExplicitLeft = 197
ExplicitWidth = 343
Width = 343
end
inherited eLista: TcxComboBox
Left = 605
Left = 528
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitLeft = 605
ExplicitWidth = 215
Width = 215
ExplicitLeft = 528
end
end
inherited TBXAlignmentPanel1: TTBXAlignmentPanel
@ -256,8 +254,8 @@ inherited fEditorElegirRecibosProveedor: TfEditorElegirRecibosProveedor
end
end
inherited pnlAgrupaciones: TTBXDockablePanel
Top = 340
ExplicitTop = 340
Top = 336
ExplicitTop = 336
ExplicitWidth = 654
inherited TBXAlignmentPanel1: TTBXAlignmentPanel
Width = 654
@ -284,7 +282,7 @@ inherited fEditorElegirRecibosProveedor: TfEditorElegirRecibosProveedor
end
object pnlFiltrar: TTBXDockablePanel [6]
Left = 0
Top = 60
Top = 64
Align = alTop
Caption = 'Filtrar'
CaptionRotation = dpcrAlwaysVert

1
Source/Modulos/Recibos de proveedor/Views/uEditorElegirRecibosProveedor.pas
View File

@ -57,6 +57,7 @@ type
rbTodo: TcxRadioButton;
rbFechas: TcxRadioButton;
Button1: TBitBtn;
pnlHeader: TPanel;
procedure frViewBarraSeleccion1actSeleccionarUpdate(Sender: TObject);
procedure frViewBarraSeleccion1actCancelarExecute(Sender: TObject);
procedure frViewBarraSeleccion1actSeleccionarExecute(Sender: TObject);

10
Source/Modulos/Recibos de proveedor/Views/uViewRecibosProveedor.dfm
View File

@ -187,24 +187,22 @@ inherited frViewRecibosProveedor: TfrViewRecibosProveedor
Width = 201
end
inherited edtFechaFinFiltro: TcxDateEdit
Left = 305
Left = 212
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitLeft = 305
ExplicitLeft = 212
ExplicitWidth = 216
Width = 216
end
inherited eLista: TcxComboBox
Left = 558
Left = 389
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitLeft = 558
ExplicitWidth = 215
Width = 215
ExplicitLeft = 389
end
end
inherited TBXAlignmentPanel1: TTBXAlignmentPanel

3
Source/Modulos/Recibos de proveedor/Views/uViewRecibosProveedor.pas
View File

@ -13,7 +13,8 @@ uses
cxGridLevel, cxClasses, cxControls, cxGridCustomView, cxGrid,
cxImage, Grids, DBGrids, uBizRecibosProveedor, cxGridCustomPopupMenu,
cxGridPopupMenu, cxCalendar, cxCurrencyEdit, uViewFiltroBase, TB2Item, TBX,
TB2Toolbar, TBXDkPanels, TB2Dock, dxPgsDlg, uDAInterfaces;
TB2Toolbar, TBXDkPanels, TB2Dock, dxPgsDlg, uDAInterfaces, uCustomView,
uViewBase;
type
IViewRecibosProveedor = interface(IViewGrid)

BIN
Source/Servidor/FactuGES_Server.RES
View File

Binary file not shown.

2
Source/Servidor/FactuGES_Server.rc
View File

@ -14,7 +14,7 @@ BEGIN
BEGIN
VALUE "FileVersion", "1.7.7.0\0"
VALUE "ProductVersion", "1.7.7.0\0"
VALUE "CompileDate", "jueves, 09 de julio de 2009 16:19\0"
VALUE "CompileDate", "martes, 14 de julio de 2009 17:12\0"
END
END
BLOCK "VarFileInfo"