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

Repaso de orden por defecto

Browse Source 
git-svn-id: https://192.168.0.254/svn/Proyectos.Tecsitel_FactuGES2/trunk@621 0c75b7a4-871f-7646-8a2f-f78d34cc349f
This commit is contained in:
roberto 2008-09-25 11:58:14 +00:00
parent e839c12a27
commit 40d7c0eb73
7 changed files with 106 additions and 49 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

17
Source/GUIBase/uViewGridBase.pas
View File

@ -202,19 +202,24 @@ end;
procedure TfrViewGridBase.BestFitAllColumns; procedure TfrViewGridBase.BestFitAllColumns;
var var
i : Integer ; i : Integer ;
begin begin
ShowHourglassCursor; ShowHourglassCursor;
_FocusedView.BeginUpdate; _FocusedView.BeginUpdate;
try try
for i := 0 to _FocusedView.ColumnCount-1 do for i := 0 to _FocusedView.VisibleColumnCount-1 do
begin begin
_FocusedView.Columns[i].ApplyBestFit; _FocusedView.VisibleColumns[i].ApplyBestFit;
if _FocusedView.Columns[i].BestFitMaxWidth > 0 then if _FocusedView.VisibleColumns[i].BestFitMaxWidth > 0 then
begin begin
if (_FocusedView.Columns[i].Width > _FocusedView.Columns[i].BestFitMaxWidth) then // if (_FocusedView.VisibleColumns[i].Width > _FocusedView.VisibleColumns[i].BestFitMaxWidth) then
_FocusedView.Columns[i].Width := _FocusedView.Columns[i].BestFitMaxWidth; // begin
_FocusedView.VisibleColumns[i].Width := _FocusedView.VisibleColumns[i].BestFitMaxWidth;
// end;
end; end;
end; end;
finally finally
_FocusedView.EndUpdate; _FocusedView.EndUpdate;
HideHourglassCursor; HideHourglassCursor;
@ -225,7 +230,7 @@ procedure TfrViewGridBase.AjustarAncho;
begin begin
if Assigned(_FocusedView) then if Assigned(_FocusedView) then
begin begin
//BestFitAllColumns; BestFitAllColumns;
_FocusedView.ApplyBestFit; _FocusedView.ApplyBestFit;
end; end;
end; end;

26
Source/Modulos/Albaranes de cliente/Views/uViewAlbaranesCliente.dfm
View File

@ -64,6 +64,8 @@ inherited frViewAlbaranesCliente: TfrViewAlbaranesCliente
object cxGridViewREFERENCIA: TcxGridDBColumn object cxGridViewREFERENCIA: TcxGridDBColumn
DataBinding.FieldName = 'REFERENCIA' DataBinding.FieldName = 'REFERENCIA'
BestFitMaxWidth = 45 BestFitMaxWidth = 45
SortIndex = 0
SortOrder = soDescending
Width = 57 Width = 57
end end
object cxGridViewSITUACION: TcxGridDBColumn object cxGridViewSITUACION: TcxGridDBColumn
@ -76,8 +78,6 @@ inherited frViewAlbaranesCliente: TfrViewAlbaranesCliente
object cxGridViewFECHA_ALBARAN: TcxGridDBColumn object cxGridViewFECHA_ALBARAN: TcxGridDBColumn
DataBinding.FieldName = 'FECHA_ALBARAN' DataBinding.FieldName = 'FECHA_ALBARAN'
BestFitMaxWidth = 45 BestFitMaxWidth = 45
SortIndex = 0
SortOrder = soDescending
Width = 68 Width = 68
end end
object cxGridViewNOMBRE: TcxGridDBColumn object cxGridViewNOMBRE: TcxGridDBColumn
@ -200,19 +200,41 @@ inherited frViewAlbaranesCliente: TfrViewAlbaranesCliente
Width = 802 Width = 802
ExplicitWidth = 802 ExplicitWidth = 802
inherited txtFiltroTodo: TcxTextEdit inherited txtFiltroTodo: TcxTextEdit
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitWidth = 705 ExplicitWidth = 705
Width = 705 Width = 705
end end
inherited edtFechaIniFiltro: TcxDateEdit inherited edtFechaIniFiltro: TcxDateEdit
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitWidth = 228 ExplicitWidth = 228
Width = 228 Width = 228
end end
inherited edtFechaFinFiltro: TcxDateEdit inherited edtFechaFinFiltro: TcxDateEdit
Left = 332 Left = 332
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitLeft = 332 ExplicitLeft = 332
ExplicitWidth = 460 ExplicitWidth = 460
Width = 460 Width = 460
end end
inherited eLista: TcxComboBox
Left = 829
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitLeft = 829
ExplicitWidth = 215
Width = 215
end
end end
inherited TBXAlignmentPanel1: TTBXAlignmentPanel inherited TBXAlignmentPanel1: TTBXAlignmentPanel
Width = 802 Width = 802

24
Source/Modulos/Albaranes de proveedor/Views/uViewAlbaranesProveedor.dfm
View File

@ -61,6 +61,8 @@ inherited frViewAlbaranesProveedor: TfrViewAlbaranesProveedor
end end
object cxGridViewREFERENCIA: TcxGridDBColumn object cxGridViewREFERENCIA: TcxGridDBColumn
DataBinding.FieldName = 'REFERENCIA' DataBinding.FieldName = 'REFERENCIA'
SortIndex = 0
SortOrder = soDescending
Width = 65 Width = 65
end end
object cxGridViewREFERENCIA_PROVEEDOR: TcxGridDBColumn object cxGridViewREFERENCIA_PROVEEDOR: TcxGridDBColumn
@ -151,19 +153,41 @@ inherited frViewAlbaranesProveedor: TfrViewAlbaranesProveedor
Width = 596 Width = 596
ExplicitWidth = 596 ExplicitWidth = 596
inherited txtFiltroTodo: TcxTextEdit inherited txtFiltroTodo: TcxTextEdit
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitWidth = 499 ExplicitWidth = 499
Width = 499 Width = 499
end end
inherited edtFechaIniFiltro: TcxDateEdit inherited edtFechaIniFiltro: TcxDateEdit
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitWidth = 188 ExplicitWidth = 188
Width = 188 Width = 188
end end
inherited edtFechaFinFiltro: TcxDateEdit inherited edtFechaFinFiltro: TcxDateEdit
Left = 292 Left = 292
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitLeft = 292 ExplicitLeft = 292
ExplicitWidth = 294 ExplicitWidth = 294
Width = 294 Width = 294
end end
inherited eLista: TcxComboBox
Left = 623
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitLeft = 623
ExplicitWidth = 215
Width = 215
end
end end
inherited TBXAlignmentPanel1: TTBXAlignmentPanel inherited TBXAlignmentPanel1: TTBXAlignmentPanel
Width = 596 Width = 596

82
Source/Modulos/Pedidos a proveedor/Views/uViewPedidosProveedor.dfm
View File

@ -1,11 +1,11 @@
inherited frViewPedidosProveedor: TfrViewPedidosProveedor inherited frViewPedidosProveedor: TfrViewPedidosProveedor
Width = 839 Width = 770
Height = 489 Height = 542
ExplicitWidth = 839 ExplicitWidth = 770
ExplicitHeight = 489 ExplicitHeight = 542
inherited cxGrid: TcxGrid inherited cxGrid: TcxGrid
Width = 839 Width = 770
Height = 361 Height = 414
RootLevelOptions.DetailTabsPosition = dtpTop RootLevelOptions.DetailTabsPosition = dtpTop
OnActiveTabChanged = cxGridActiveTabChanged OnActiveTabChanged = cxGridActiveTabChanged
ExplicitWidth = 839 ExplicitWidth = 839
@ -33,6 +33,10 @@ inherited frViewPedidosProveedor: TfrViewPedidosProveedor
end> end>
DataController.OnCompare = cxGridViewDataControllerCompare DataController.OnCompare = cxGridViewDataControllerCompare
OptionsView.GroupFooters = gfAlwaysVisible OptionsView.GroupFooters = gfAlwaysVisible
inherited cxGridViewICONO: TcxGridDBColumn
MinWidth = 30
Width = 30
end
object cxGridViewINCIDENCIASACTIVAS: TcxGridDBColumn object cxGridViewINCIDENCIASACTIVAS: TcxGridDBColumn
Caption = 'Incidencias' Caption = 'Incidencias'
DataBinding.FieldName = 'INCIDENCIAS_ACTIVAS' DataBinding.FieldName = 'INCIDENCIAS_ACTIVAS'
@ -52,100 +56,100 @@ inherited frViewPedidosProveedor: TfrViewPedidosProveedor
Properties.ShowDescriptions = False Properties.ShowDescriptions = False
OnGetCellHint = cxGridViewINCIDENCIASACTIVASGetCellHint OnGetCellHint = cxGridViewINCIDENCIASACTIVASGetCellHint
BestFitMaxWidth = 22 BestFitMaxWidth = 22
MinWidth = 22 MinWidth = 30
Options.HorzSizing = False Options.HorzSizing = False
Width = 22 Width = 30
end end
object cxGridViewREFERENCIA: TcxGridDBColumn object cxGridViewREFERENCIA: TcxGridDBColumn
Caption = 'Referencia' Caption = 'Referencia'
DataBinding.FieldName = 'REFERENCIA' DataBinding.FieldName = 'REFERENCIA'
BestFitMaxWidth = 40 BestFitMaxWidth = 60
Width = 57 SortIndex = 0
SortOrder = soDescending
Width = 100
end end
object cxGridViewSITUACION: TcxGridDBColumn object cxGridViewSITUACION: TcxGridDBColumn
DataBinding.FieldName = 'SITUACION' DataBinding.FieldName = 'SITUACION'
BestFitMaxWidth = 40 BestFitMaxWidth = 90
Width = 58 Width = 150
end end
object cxGridViewFECHA_PEDIDO: TcxGridDBColumn object cxGridViewFECHA_PEDIDO: TcxGridDBColumn
DataBinding.FieldName = 'FECHA_PEDIDO' DataBinding.FieldName = 'FECHA_PEDIDO'
BestFitMaxWidth = 40 BestFitMaxWidth = 60
SortIndex = 0
SortOrder = soAscending
Width = 65 Width = 65
end end
object cxGridViewFECHA_ENVIO: TcxGridDBColumn object cxGridViewFECHA_ENVIO: TcxGridDBColumn
DataBinding.FieldName = 'FECHA_ENVIO' DataBinding.FieldName = 'FECHA_ENVIO'
BestFitMaxWidth = 40 BestFitMaxWidth = 60
Width = 62 Width = 65
end end
object cxGridViewNOMBRE: TcxGridDBColumn object cxGridViewNOMBRE: TcxGridDBColumn
Caption = 'Proveedor' Caption = 'Proveedor'
DataBinding.FieldName = 'NOMBRE' DataBinding.FieldName = 'NOMBRE'
MinWidth = 0
Width = 190 Width = 190
end end
object cxGridViewFECHA_CONFIRMACION: TcxGridDBColumn object cxGridViewFECHA_CONFIRMACION: TcxGridDBColumn
DataBinding.FieldName = 'FECHA_CONFIRMACION' DataBinding.FieldName = 'FECHA_CONFIRMACION'
BestFitMaxWidth = 40 BestFitMaxWidth = 60
Width = 64 Width = 65
end end
object cxGridViewFECHA_ENTREGA: TcxGridDBColumn object cxGridViewFECHA_ENTREGA: TcxGridDBColumn
DataBinding.FieldName = 'FECHA_ENTREGA' DataBinding.FieldName = 'FECHA_ENTREGA'
BestFitMaxWidth = 40 BestFitMaxWidth = 60
Width = 54 MinWidth = 0
Width = 65
end end
object cxGridViewNOMBRE_ALMACEN: TcxGridDBColumn object cxGridViewNOMBRE_ALMACEN: TcxGridDBColumn
DataBinding.FieldName = 'NOMBRE_ALMACEN' DataBinding.FieldName = 'NOMBRE_ALMACEN'
BestFitMaxWidth = 60 MinWidth = 0
Width = 54 Width = 54
end end
object cxGridViewCALLE: TcxGridDBColumn object cxGridViewCALLE: TcxGridDBColumn
DataBinding.FieldName = 'CALLE' DataBinding.FieldName = 'CALLE'
Visible = False Visible = False
BestFitMaxWidth = 60
end end
object cxGridViewPOBLACION: TcxGridDBColumn object cxGridViewPOBLACION: TcxGridDBColumn
DataBinding.FieldName = 'POBLACION' DataBinding.FieldName = 'POBLACION'
Visible = False Visible = False
BestFitMaxWidth = 60
end end
object cxGridViewPROVINCIA: TcxGridDBColumn object cxGridViewPROVINCIA: TcxGridDBColumn
DataBinding.FieldName = 'PROVINCIA' DataBinding.FieldName = 'PROVINCIA'
Visible = False Visible = False
BestFitMaxWidth = 60
end end
object cxGridViewCODIGO_POSTAL: TcxGridDBColumn object cxGridViewCODIGO_POSTAL: TcxGridDBColumn
DataBinding.FieldName = 'CODIGO_POSTAL' DataBinding.FieldName = 'CODIGO_POSTAL'
Visible = False Visible = False
BestFitMaxWidth = 60 BestFitMaxWidth = 50
end end
object cxGridViewPERSONA_CONTACTO: TcxGridDBColumn object cxGridViewPERSONA_CONTACTO: TcxGridDBColumn
DataBinding.FieldName = 'PERSONA_CONTACTO' DataBinding.FieldName = 'PERSONA_CONTACTO'
Visible = False Visible = False
BestFitMaxWidth = 60
end end
object cxGridViewTELEFONO: TcxGridDBColumn object cxGridViewTELEFONO: TcxGridDBColumn
DataBinding.FieldName = 'TELEFONO' DataBinding.FieldName = 'TELEFONO'
Visible = False Visible = False
BestFitMaxWidth = 60 BestFitMaxWidth = 60
Width = 65
end end
object cxGridViewNOMBRE_OBRA: TcxGridDBColumn object cxGridViewNOMBRE_OBRA: TcxGridDBColumn
DataBinding.FieldName = 'NOMBRE_OBRA' DataBinding.FieldName = 'NOMBRE_OBRA'
MinWidth = 0
end end
object cxGridViewREF_PED_CLIENTE: TcxGridDBColumn object cxGridViewREF_PED_CLIENTE: TcxGridDBColumn
Caption = 'Ref. pedido cli.' Caption = 'Ref. pedido cli.'
DataBinding.FieldName = 'REF_PED_CLIENTE' DataBinding.FieldName = 'REF_PED_CLIENTE'
Visible = False Visible = False
BestFitMaxWidth = 40 BestFitMaxWidth = 60
VisibleForCustomization = False VisibleForCustomization = False
Width = 41 Width = 65
end end
object cxGridViewIMPORTE_TOTAL: TcxGridDBColumn object cxGridViewIMPORTE_TOTAL: TcxGridDBColumn
Caption = 'Importe total' Caption = 'Importe total'
DataBinding.FieldName = 'IMPORTE_TOTAL' DataBinding.FieldName = 'IMPORTE_TOTAL'
PropertiesClassName = 'TcxCurrencyEditProperties' PropertiesClassName = 'TcxCurrencyEditProperties'
Properties.Alignment.Horz = taRightJustify Properties.Alignment.Horz = taRightJustify
BestFitMaxWidth = 40 BestFitMaxWidth = 90
FooterAlignmentHorz = taRightJustify FooterAlignmentHorz = taRightJustify
HeaderAlignmentHorz = taRightJustify HeaderAlignmentHorz = taRightJustify
Width = 105 Width = 105
@ -153,12 +157,14 @@ inherited frViewPedidosProveedor: TfrViewPedidosProveedor
object cxGridViewINCIDENCIAS: TcxGridDBColumn object cxGridViewINCIDENCIAS: TcxGridDBColumn
DataBinding.FieldName = 'INCIDENCIAS' DataBinding.FieldName = 'INCIDENCIAS'
Visible = False Visible = False
BestFitMaxWidth = 30
VisibleForCustomization = False VisibleForCustomization = False
end end
object cxGridViewREF_FACTURA_PROV: TcxGridDBColumn object cxGridViewREF_FACTURA_PROV: TcxGridDBColumn
Caption = 'Ref. factura' Caption = 'Ref. factura'
DataBinding.FieldName = 'REF_FACTURA_PROV' DataBinding.FieldName = 'REF_FACTURA_PROV'
Width = 72 BestFitMaxWidth = 60
Width = 150
end end
end end
object cxGridDBTableView1: TcxGridDBTableView [1] object cxGridDBTableView1: TcxGridDBTableView [1]
@ -181,12 +187,12 @@ inherited frViewPedidosProveedor: TfrViewPedidosProveedor
end end
end end
inherited frViewFiltroBase1: TfrViewFiltroBase inherited frViewFiltroBase1: TfrViewFiltroBase
Width = 839 Width = 770
ExplicitWidth = 839 ExplicitWidth = 839
inherited TBXDockablePanel1: TTBXDockablePanel inherited TBXDockablePanel1: TTBXDockablePanel
ExplicitWidth = 839 ExplicitWidth = 839
inherited dxLayoutControl1: TdxLayoutControl inherited dxLayoutControl1: TdxLayoutControl
Width = 839 Width = 770
ExplicitWidth = 839 ExplicitWidth = 839
inherited txtFiltroTodo: TcxTextEdit inherited txtFiltroTodo: TcxTextEdit
Style.LookAndFeel.SkinName = '' Style.LookAndFeel.SkinName = ''
@ -226,25 +232,25 @@ inherited frViewPedidosProveedor: TfrViewPedidosProveedor
end end
end end
inherited TBXAlignmentPanel1: TTBXAlignmentPanel inherited TBXAlignmentPanel1: TTBXAlignmentPanel
Width = 839 Width = 770
ExplicitWidth = 839 ExplicitWidth = 839
inherited tbxBotones: TTBXToolbar inherited tbxBotones: TTBXToolbar
Width = 829 Width = 760
ExplicitWidth = 829 ExplicitWidth = 829
end end
end end
end end
end end
inherited pnlAgrupaciones: TTBXDockablePanel inherited pnlAgrupaciones: TTBXDockablePanel
Top = 463 Top = 516
Visible = True Visible = True
ExplicitTop = 463 ExplicitTop = 463
ExplicitWidth = 839 ExplicitWidth = 839
inherited TBXAlignmentPanel1: TTBXAlignmentPanel inherited TBXAlignmentPanel1: TTBXAlignmentPanel
Width = 839 Width = 770
ExplicitWidth = 839 ExplicitWidth = 839
inherited TBXToolbar1: TTBXToolbar inherited TBXToolbar1: TTBXToolbar
Width = 829 Width = 760
ExplicitWidth = 829 ExplicitWidth = 829
object TBXSeparatorItem2: TTBXSeparatorItem object TBXSeparatorItem2: TTBXSeparatorItem
end end

4
Source/Modulos/Presupuestos de cliente/Views/uViewPresupuestosCliente.dfm
View File

@ -69,6 +69,8 @@ inherited frViewPresupuestosCliente: TfrViewPresupuestosCliente
object cxGridViewREFERENCIA: TcxGridDBColumn object cxGridViewREFERENCIA: TcxGridDBColumn
DataBinding.FieldName = 'REFERENCIA' DataBinding.FieldName = 'REFERENCIA'
BestFitMaxWidth = 25 BestFitMaxWidth = 25
SortIndex = 0
SortOrder = soDescending
Width = 58 Width = 58
end end
object cxGridViewSITUACION: TcxGridDBColumn object cxGridViewSITUACION: TcxGridDBColumn
@ -81,8 +83,6 @@ inherited frViewPresupuestosCliente: TfrViewPresupuestosCliente
Caption = 'Fecha presupuesto' Caption = 'Fecha presupuesto'
DataBinding.FieldName = 'FECHA_PRESUPUESTO' DataBinding.FieldName = 'FECHA_PRESUPUESTO'
BestFitMaxWidth = 25 BestFitMaxWidth = 25
SortIndex = 0
SortOrder = soDescending
Width = 105 Width = 105
end end
object cxGridViewFECHA_DECISION: TcxGridDBColumn object cxGridViewFECHA_DECISION: TcxGridDBColumn

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 BEGIN
VALUE "FileVersion", "1.3.4.0\0" VALUE "FileVersion", "1.3.4.0\0"
VALUE "ProductVersion", "1.3.4.0\0" VALUE "ProductVersion", "1.3.4.0\0"
VALUE "CompileDate", "miércoles, 24 de septiembre de 2008 11:35\0" VALUE "CompileDate", "jueves, 25 de septiembre de 2008 9:59\0"
END END
END END
BLOCK "VarFileInfo" BLOCK "VarFileInfo"