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

Arreglos visuales en los grids.

Browse Source 
git-svn-id: https://192.168.0.254/svn/Proyectos.Tecsitel_FactuGES2/trunk@667 0c75b7a4-871f-7646-8a2f-f78d34cc349f
This commit is contained in:
David Arranz 2008-10-07 17:02:23 +00:00
parent 4075f27221
commit 676a4e1439
13 changed files with 158 additions and 131 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

48
Source/GUIBase/GUIBase.dproj
View File

@ -58,30 +58,30 @@
<DelphiCompile Include="GUIBase.dpk">
<MainSource>MainSource</MainSource>
</DelphiCompile>
<DCCReference Include="C:\Documents and Settings\Usuario\Base.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\cxLibraryD11.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\cxTreeListD11.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\dbrtl.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\dxBarD11.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\dxBarExtItemsD11.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\dxComnD11.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\dxGDIPlusD11.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\dxLayoutControlD11.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\dxPSCoreD11.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\dxPScxCommonD11.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\dxPScxGrid6LnkD11.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\dxPsPrVwAdvD11.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\dxThemeD11.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\frx11.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\frxe11.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\fs11.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\JvAppFrmD11R.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\JvCtrlsD11R.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\rtl.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\vcl.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\vcldb.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\vcljpg.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\vclx.dcp" />
<DCCReference Include="..\Modulos\Recibos de proveedor\Base.dcp" />
<DCCReference Include="..\Modulos\Recibos de proveedor\cxLibraryD11.dcp" />
<DCCReference Include="..\Modulos\Recibos de proveedor\cxTreeListD11.dcp" />
<DCCReference Include="..\Modulos\Recibos de proveedor\dbrtl.dcp" />
<DCCReference Include="..\Modulos\Recibos de proveedor\dxBarD11.dcp" />
<DCCReference Include="..\Modulos\Recibos de proveedor\dxBarExtItemsD11.dcp" />
<DCCReference Include="..\Modulos\Recibos de proveedor\dxComnD11.dcp" />
<DCCReference Include="..\Modulos\Recibos de proveedor\dxGDIPlusD11.dcp" />
<DCCReference Include="..\Modulos\Recibos de proveedor\dxLayoutControlD11.dcp" />
<DCCReference Include="..\Modulos\Recibos de proveedor\dxPSCoreD11.dcp" />
<DCCReference Include="..\Modulos\Recibos de proveedor\dxPScxCommonD11.dcp" />
<DCCReference Include="..\Modulos\Recibos de proveedor\dxPScxGrid6LnkD11.dcp" />
<DCCReference Include="..\Modulos\Recibos de proveedor\dxPsPrVwAdvD11.dcp" />
<DCCReference Include="..\Modulos\Recibos de proveedor\dxThemeD11.dcp" />
<DCCReference Include="..\Modulos\Recibos de proveedor\frx11.dcp" />
<DCCReference Include="..\Modulos\Recibos de proveedor\frxe11.dcp" />
<DCCReference Include="..\Modulos\Recibos de proveedor\fs11.dcp" />
<DCCReference Include="..\Modulos\Recibos de proveedor\JvAppFrmD11R.dcp" />
<DCCReference Include="..\Modulos\Recibos de proveedor\JvCtrlsD11R.dcp" />
<DCCReference Include="..\Modulos\Recibos de proveedor\rtl.dcp" />
<DCCReference Include="..\Modulos\Recibos de proveedor\vcl.dcp" />
<DCCReference Include="..\Modulos\Recibos de proveedor\vcldb.dcp" />
<DCCReference Include="..\Modulos\Recibos de proveedor\vcljpg.dcp" />
<DCCReference Include="..\Modulos\Recibos de proveedor\vclx.dcp" />
<DCCReference Include="uDialogBase.pas">
<Form>fDialogBase</Form>
</DCCReference>

BIN
Source/GUIBase/GUIBase.res
View File

Binary file not shown.

2
Source/GUIBase/uViewGrid.dfm
View File

@ -188,7 +188,7 @@ inherited frViewGrid: TfrViewGrid
PrinterPage.ScaleMode = smFit
PrinterPage._dxMeasurementUnits_ = 0
PrinterPage._dxLastMU_ = 2
ReportDocument.CreationDate = 39687.693162951390000000
ReportDocument.CreationDate = 39728.760640370370000000
StyleManager = dmBase.dxPrintStyleManager1
OptionsCards.Shadow.Depth = 0
OptionsExpanding.ExpandGroupRows = True

3
Source/GUIBase/uViewGrid.pas
View File

@ -113,8 +113,11 @@ end;
procedure TfrViewGrid.OnChangeValoresFiltro(Sender: TObject);
begin
cxGridView.DataController.Filter.BeginUpdate;
try
RefrescarFiltro;
finally
cxGridView.DataController.Filter.EndUpdate;
end;
end;
procedure TfrViewGrid.Preview;

9
Source/GUIBase/uViewGridBase.pas
View File

@ -211,15 +211,10 @@ begin
for i := 0 to _FocusedView.VisibleColumnCount-1 do
begin
_FocusedView.VisibleColumns[i].ApplyBestFit;
if _FocusedView.VisibleColumns[i].BestFitMaxWidth > 0 then
begin
// if (_FocusedView.VisibleColumns[i].Width > _FocusedView.VisibleColumns[i].BestFitMaxWidth) then
// begin
if (_FocusedView.VisibleColumns[i].BestFitMaxWidth > 0) and
(_FocusedView.VisibleColumns[i].Width > _FocusedView.VisibleColumns[i].BestFitMaxWidth) then
_FocusedView.VisibleColumns[i].Width := _FocusedView.VisibleColumns[i].BestFitMaxWidth;
// end;
end;
end;
finally
_FocusedView.EndUpdate;
HideHourglassCursor;

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

@ -63,10 +63,11 @@ inherited frViewAlbaranesProveedor: TfrViewAlbaranesProveedor
DataBinding.FieldName = 'REFERENCIA'
SortIndex = 0
SortOrder = soDescending
Width = 65
Width = 52
end
object cxGridViewREFERENCIA_PROVEEDOR: TcxGridDBColumn
DataBinding.FieldName = 'REFERENCIA_PROVEEDOR'
Width = 51
end
object cxGridViewFECHA_ALBARAN: TcxGridDBColumn
Caption = 'Fecha'
@ -75,7 +76,7 @@ inherited frViewAlbaranesProveedor: TfrViewAlbaranesProveedor
end
object cxGridViewNOMBRE: TcxGridDBColumn
DataBinding.FieldName = 'NOMBRE'
Width = 160
Width = 109
end
object cxGridViewREF_PED_PROVEEDOR: TcxGridDBColumn
DataBinding.FieldName = 'REF_PED_PROVEEDOR'
@ -89,7 +90,7 @@ inherited frViewAlbaranesProveedor: TfrViewAlbaranesProveedor
object cxGridViewCALLE: TcxGridDBColumn
Caption = 'Direcci'#243'n de entrega'
DataBinding.FieldName = 'CALLE'
Width = 59
Width = 48
end
object cxGridViewCODIGO_POSTAL: TcxGridDBColumn
DataBinding.FieldName = 'CODIGO_POSTAL'
@ -117,13 +118,14 @@ inherited frViewAlbaranesProveedor: TfrViewAlbaranesProveedor
PropertiesClassName = 'TcxTextEditProperties'
Properties.Alignment.Horz = taRightJustify
HeaderAlignmentHorz = taRightJustify
Width = 24
Width = 20
end
object cxGridViewREF_FACTURA_PROV: TcxGridDBColumn
DataBinding.FieldName = 'REF_FACTURA_PROV'
PropertiesClassName = 'TcxTextEditProperties'
Properties.Alignment.Horz = taRightJustify
HeaderAlignmentHorz = taRightJustify
Width = 52
end
object cxGridViewIMPORTE_TOTAL: TcxGridDBColumn
Caption = 'Importe total'
@ -132,7 +134,7 @@ inherited frViewAlbaranesProveedor: TfrViewAlbaranesProveedor
Properties.Alignment.Horz = taRightJustify
FooterAlignmentHorz = taRightJustify
HeaderAlignmentHorz = taRightJustify
Width = 114
Width = 91
end
object cxGridViewINCIDENCIAS: TcxGridDBColumn
DataBinding.FieldName = 'INCIDENCIAS'

92
Source/Modulos/Contactos/Views/Contactos_view.dproj
View File

@ -49,52 +49,52 @@
<DelphiCompile Include="Contactos_view.dpk">
<MainSource>MainSource</MainSource>
</DelphiCompile>
<DCCReference Include="..\..\Albaranes de cliente\Views\adortl.dcp" />
<DCCReference Include="..\..\Albaranes de cliente\Views\ApplicationBase.dcp" />
<DCCReference Include="..\..\Albaranes de cliente\Views\Base.dcp" />
<DCCReference Include="..\..\Albaranes de cliente\Views\bdertl.dcp" />
<DCCReference Include="..\..\Albaranes de cliente\Views\ccpackD11.dcp" />
<DCCReference Include="..\..\Albaranes de cliente\Views\cfpack_d11.dcp" />
<DCCReference Include="..\..\Albaranes de cliente\Views\Contactos_controller.dcp" />
<DCCReference Include="..\..\Albaranes de cliente\Views\Contactos_model.dcp" />
<DCCReference Include="..\..\Albaranes de cliente\Views\cxDataD11.dcp" />
<DCCReference Include="..\..\Albaranes de cliente\Views\cxEditorsD11.dcp" />
<DCCReference Include="..\..\Albaranes de cliente\Views\cxExportD11.dcp" />
<DCCReference Include="..\..\Albaranes de cliente\Views\cxExtEditorsD11.dcp" />
<DCCReference Include="..\..\Albaranes de cliente\Views\cxGridD11.dcp" />
<DCCReference Include="..\..\Albaranes de cliente\Views\cxLibraryD11.dcp" />
<DCCReference Include="..\..\Albaranes de cliente\Views\cxPageControlD11.dcp" />
<DCCReference Include="..\..\Albaranes de cliente\Views\DataAbstract_Core_D11.dcp" />
<DCCReference Include="..\..\Albaranes de cliente\Views\dbrtl.dcp" />
<DCCReference Include="..\..\Albaranes de cliente\Views\designide.dcp" />
<DCCReference Include="..\..\Albaranes de cliente\Views\dsnap.dcp" />
<DCCReference Include="..\..\Albaranes de cliente\Views\dxComnD11.dcp" />
<DCCReference Include="..\..\Albaranes de cliente\Views\dxGDIPlusD11.dcp" />
<DCCReference Include="..\..\Albaranes de cliente\Views\dxLayoutControlD11.dcp" />
<DCCReference Include="..\..\Albaranes de cliente\Views\dxThemeD11.dcp" />
<DCCReference Include="..\..\Albaranes de cliente\Views\FormasPago_controller.dcp" />
<DCCReference Include="..\..\Albaranes de cliente\Views\FormasPago_model.dcp" />
<DCCReference Include="..\..\Albaranes de cliente\Views\GUIBase.dcp" />
<DCCReference Include="..\..\Albaranes de cliente\Views\GUISDK_D11.dcp" />
<DCCReference Include="..\..\Albaranes de cliente\Views\Jcl.dcp" />
<DCCReference Include="..\..\Albaranes de cliente\Views\JclVcl.dcp" />
<DCCReference Include="..\..\Albaranes de cliente\Views\JvCoreD11R.dcp" />
<DCCReference Include="..\..\Albaranes de cliente\Views\JvCtrlsD11R.dcp" />
<DCCReference Include="..\..\Albaranes de cliente\Views\JvGlobusD11R.dcp" />
<DCCReference Include="..\..\Albaranes de cliente\Views\JvStdCtrlsD11R.dcp" />
<DCCReference Include="..\..\Albaranes de cliente\Views\JvSystemD11R.dcp" />
<DCCReference Include="..\..\Albaranes de cliente\Views\PngComponentsD10.dcp" />
<DCCReference Include="..\..\Albaranes de cliente\Views\PNG_D10.dcp" />
<DCCReference Include="..\..\Albaranes de cliente\Views\RemObjects_Core_D11.dcp" />
<DCCReference Include="..\..\Albaranes de cliente\Views\rtl.dcp" />
<DCCReference Include="..\..\Albaranes de cliente\Views\TiposIVA_controller.dcp" />
<DCCReference Include="..\..\Albaranes de cliente\Views\TiposIVA_model.dcp" />
<DCCReference Include="..\..\Albaranes de cliente\Views\vcl.dcp" />
<DCCReference Include="..\..\Albaranes de cliente\Views\vclactnband.dcp" />
<DCCReference Include="..\..\Albaranes de cliente\Views\vcldb.dcp" />
<DCCReference Include="..\..\Albaranes de cliente\Views\vcljpg.dcp" />
<DCCReference Include="..\..\Albaranes de cliente\Views\vclx.dcp" />
<DCCReference Include="..\..\Albaranes de cliente\Views\xmlrtl.dcp" />
<DCCReference Include="..\..\Pedidos a proveedor\adortl.dcp" />
<DCCReference Include="..\..\Pedidos a proveedor\ApplicationBase.dcp" />
<DCCReference Include="..\..\Pedidos a proveedor\Base.dcp" />
<DCCReference Include="..\..\Pedidos a proveedor\bdertl.dcp" />
<DCCReference Include="..\..\Pedidos a proveedor\ccpackD11.dcp" />
<DCCReference Include="..\..\Pedidos a proveedor\cfpack_d11.dcp" />
<DCCReference Include="..\..\Pedidos a proveedor\Contactos_controller.dcp" />
<DCCReference Include="..\..\Pedidos a proveedor\Contactos_model.dcp" />
<DCCReference Include="..\..\Pedidos a proveedor\cxDataD11.dcp" />
<DCCReference Include="..\..\Pedidos a proveedor\cxEditorsD11.dcp" />
<DCCReference Include="..\..\Pedidos a proveedor\cxExportD11.dcp" />
<DCCReference Include="..\..\Pedidos a proveedor\cxExtEditorsD11.dcp" />
<DCCReference Include="..\..\Pedidos a proveedor\cxGridD11.dcp" />
<DCCReference Include="..\..\Pedidos a proveedor\cxLibraryD11.dcp" />
<DCCReference Include="..\..\Pedidos a proveedor\cxPageControlD11.dcp" />
<DCCReference Include="..\..\Pedidos a proveedor\DataAbstract_Core_D11.dcp" />
<DCCReference Include="..\..\Pedidos a proveedor\dbrtl.dcp" />
<DCCReference Include="..\..\Pedidos a proveedor\designide.dcp" />
<DCCReference Include="..\..\Pedidos a proveedor\dsnap.dcp" />
<DCCReference Include="..\..\Pedidos a proveedor\dxComnD11.dcp" />
<DCCReference Include="..\..\Pedidos a proveedor\dxGDIPlusD11.dcp" />
<DCCReference Include="..\..\Pedidos a proveedor\dxLayoutControlD11.dcp" />
<DCCReference Include="..\..\Pedidos a proveedor\dxThemeD11.dcp" />
<DCCReference Include="..\..\Pedidos a proveedor\FormasPago_controller.dcp" />
<DCCReference Include="..\..\Pedidos a proveedor\FormasPago_model.dcp" />
<DCCReference Include="..\..\Pedidos a proveedor\GUIBase.dcp" />
<DCCReference Include="..\..\Pedidos a proveedor\GUISDK_D11.dcp" />
<DCCReference Include="..\..\Pedidos a proveedor\Jcl.dcp" />
<DCCReference Include="..\..\Pedidos a proveedor\JclVcl.dcp" />
<DCCReference Include="..\..\Pedidos a proveedor\JvCoreD11R.dcp" />
<DCCReference Include="..\..\Pedidos a proveedor\JvCtrlsD11R.dcp" />
<DCCReference Include="..\..\Pedidos a proveedor\JvGlobusD11R.dcp" />
<DCCReference Include="..\..\Pedidos a proveedor\JvStdCtrlsD11R.dcp" />
<DCCReference Include="..\..\Pedidos a proveedor\JvSystemD11R.dcp" />
<DCCReference Include="..\..\Pedidos a proveedor\PngComponentsD10.dcp" />
<DCCReference Include="..\..\Pedidos a proveedor\PNG_D10.dcp" />
<DCCReference Include="..\..\Pedidos a proveedor\RemObjects_Core_D11.dcp" />
<DCCReference Include="..\..\Pedidos a proveedor\rtl.dcp" />
<DCCReference Include="..\..\Pedidos a proveedor\TiposIVA_controller.dcp" />
<DCCReference Include="..\..\Pedidos a proveedor\TiposIVA_model.dcp" />
<DCCReference Include="..\..\Pedidos a proveedor\vcl.dcp" />
<DCCReference Include="..\..\Pedidos a proveedor\vclactnband.dcp" />
<DCCReference Include="..\..\Pedidos a proveedor\vcldb.dcp" />
<DCCReference Include="..\..\Pedidos a proveedor\vcljpg.dcp" />
<DCCReference Include="..\..\Pedidos a proveedor\vclx.dcp" />
<DCCReference Include="..\..\Pedidos a proveedor\xmlrtl.dcp" />
<DCCReference Include="uContactosViewRegister.pas" />
<DCCReference Include="uEditorCliente.pas">
<Form>fEditorCliente</Form>

BIN
Source/Modulos/Contactos/Views/Contactos_view.res
View File

Binary file not shown.

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

@ -1,15 +1,15 @@
inherited frViewPedidosProveedor: TfrViewPedidosProveedor
Width = 770
Height = 542
ExplicitWidth = 770
ExplicitHeight = 542
Width = 839
Height = 590
ExplicitWidth = 839
ExplicitHeight = 590
inherited cxGrid: TcxGrid
Width = 770
Height = 414
Width = 839
Height = 462
RootLevelOptions.DetailTabsPosition = dtpTop
OnActiveTabChanged = cxGridActiveTabChanged
ExplicitWidth = 839
ExplicitHeight = 361
ExplicitHeight = 462
inherited cxGridView: TcxGridDBTableView
DataController.KeyFieldNames = 'ID'
DataController.Options = [dcoAnsiSort, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoSortByDisplayText, dcoGroupsAlwaysExpanded]
@ -63,47 +63,39 @@ inherited frViewPedidosProveedor: TfrViewPedidosProveedor
object cxGridViewREFERENCIA: TcxGridDBColumn
Caption = 'Referencia'
DataBinding.FieldName = 'REFERENCIA'
BestFitMaxWidth = 60
SortIndex = 0
SortOrder = soDescending
Width = 100
Width = 89
end
object cxGridViewSITUACION: TcxGridDBColumn
Caption = 'Situaci'#243'n'
DataBinding.FieldName = 'SITUACION'
BestFitMaxWidth = 90
Width = 150
Width = 95
end
object cxGridViewFECHA_PEDIDO: TcxGridDBColumn
DataBinding.FieldName = 'FECHA_PEDIDO'
BestFitMaxWidth = 60
Width = 65
Width = 45
end
object cxGridViewFECHA_ENVIO: TcxGridDBColumn
DataBinding.FieldName = 'FECHA_ENVIO'
BestFitMaxWidth = 60
Width = 65
Width = 44
end
object cxGridViewNOMBRE: TcxGridDBColumn
Caption = 'Proveedor'
DataBinding.FieldName = 'NOMBRE'
MinWidth = 0
Width = 190
Width = 128
end
object cxGridViewFECHA_CONFIRMACION: TcxGridDBColumn
DataBinding.FieldName = 'FECHA_CONFIRMACION'
BestFitMaxWidth = 60
Width = 65
Width = 46
end
object cxGridViewFECHA_ENTREGA: TcxGridDBColumn
DataBinding.FieldName = 'FECHA_ENTREGA'
BestFitMaxWidth = 60
MinWidth = 0
Width = 65
Width = 44
end
object cxGridViewNOMBRE_ALMACEN: TcxGridDBColumn
DataBinding.FieldName = 'NOMBRE_ALMACEN'
MinWidth = 0
Width = 54
Width = 58
end
object cxGridViewCALLE: TcxGridDBColumn
DataBinding.FieldName = 'CALLE'
@ -120,7 +112,6 @@ inherited frViewPedidosProveedor: TfrViewPedidosProveedor
object cxGridViewCODIGO_POSTAL: TcxGridDBColumn
DataBinding.FieldName = 'CODIGO_POSTAL'
Visible = False
BestFitMaxWidth = 50
end
object cxGridViewPERSONA_CONTACTO: TcxGridDBColumn
DataBinding.FieldName = 'PERSONA_CONTACTO'
@ -129,18 +120,16 @@ inherited frViewPedidosProveedor: TfrViewPedidosProveedor
object cxGridViewTELEFONO: TcxGridDBColumn
DataBinding.FieldName = 'TELEFONO'
Visible = False
BestFitMaxWidth = 60
Width = 65
end
object cxGridViewNOMBRE_OBRA: TcxGridDBColumn
DataBinding.FieldName = 'NOMBRE_OBRA'
MinWidth = 0
Width = 54
end
object cxGridViewREF_PED_CLIENTE: TcxGridDBColumn
Caption = 'Ref. pedido cli.'
DataBinding.FieldName = 'REF_PED_CLIENTE'
Visible = False
BestFitMaxWidth = 60
VisibleForCustomization = False
Width = 65
end
@ -149,22 +138,19 @@ inherited frViewPedidosProveedor: TfrViewPedidosProveedor
DataBinding.FieldName = 'IMPORTE_TOTAL'
PropertiesClassName = 'TcxCurrencyEditProperties'
Properties.Alignment.Horz = taRightJustify
BestFitMaxWidth = 90
FooterAlignmentHorz = taRightJustify
HeaderAlignmentHorz = taRightJustify
Width = 105
Width = 67
end
object cxGridViewINCIDENCIAS: TcxGridDBColumn
DataBinding.FieldName = 'INCIDENCIAS'
Visible = False
BestFitMaxWidth = 30
VisibleForCustomization = False
end
object cxGridViewREF_FACTURA_PROV: TcxGridDBColumn
Caption = 'Ref. factura'
DataBinding.FieldName = 'REF_FACTURA_PROV'
BestFitMaxWidth = 60
Width = 150
Width = 95
end
end
object cxGridDBTableView1: TcxGridDBTableView [1]
@ -187,12 +173,12 @@ inherited frViewPedidosProveedor: TfrViewPedidosProveedor
end
end
inherited frViewFiltroBase1: TfrViewFiltroBase
Width = 770
Width = 839
ExplicitWidth = 839
inherited TBXDockablePanel1: TTBXDockablePanel
ExplicitWidth = 839
inherited dxLayoutControl1: TdxLayoutControl
Width = 770
Width = 839
ExplicitWidth = 839
inherited txtFiltroTodo: TcxTextEdit
Style.LookAndFeel.SkinName = ''
@ -232,25 +218,25 @@ inherited frViewPedidosProveedor: TfrViewPedidosProveedor
end
end
inherited TBXAlignmentPanel1: TTBXAlignmentPanel
Width = 770
Width = 839
ExplicitWidth = 839
inherited tbxBotones: TTBXToolbar
Width = 760
Width = 829
ExplicitWidth = 829
end
end
end
end
inherited pnlAgrupaciones: TTBXDockablePanel
Top = 516
Top = 564
Visible = True
ExplicitTop = 463
ExplicitTop = 564
ExplicitWidth = 839
inherited TBXAlignmentPanel1: TTBXAlignmentPanel
Width = 770
Width = 839
ExplicitWidth = 839
inherited TBXToolbar1: TTBXToolbar
Width = 760
Width = 829
ExplicitWidth = 829
object TBXSeparatorItem2: TTBXSeparatorItem
end

7
Source/Modulos/Pedidos a proveedor/Views/uViewPedidosProveedor.pas
View File

@ -228,12 +228,13 @@ begin
begin
IndiceCol := (Sender as TcxGridDBTableView).GetColumnByFieldName(fld_PedidosProveedorSITUACION).Index;
ASituacion := UPPERCASE(VarToStr(ARecord.DisplayTexts[IndiceCol]));
if (ASituacion = SITUACION_PEDIDO_PENDIENTE) then
AStyle := cxStylePendientes
AStyle.TextColor := cxStylePendientes.TextColor
else if (ASituacion = SITUACION_PEDIDO_PARCIAL) then
AStyle := cxStyleParciales
AStyle.TextColor := cxStyleParciales.TextColor
else if (ASituacion = SITUACION_PEDIDO_RECIBIDO) then
AStyle := cxStyleRecibidos;
AStyle.TextColor := cxStyleRecibidos.TextColor;
end;
end;

24
Source/Modulos/Recibos de proveedor/Views/uEditorRecibosProveedor.dfm
View File

@ -41,7 +41,7 @@ inherited fEditorRecibosProveedor: TfEditorRecibosProveedor
Width = 638
ExplicitWidth = 638
inherited tbxMain: TTBXToolbar
ExplicitWidth = 434
ExplicitWidth = 577
end
inherited tbxMenu: TTBXToolbar
ExplicitWidth = 638
@ -119,19 +119,41 @@ inherited fEditorRecibosProveedor: TfEditorRecibosProveedor
Width = 638
ExplicitWidth = 638
inherited txtFiltroTodo: TcxTextEdit
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitWidth = 541
Width = 541
end
inherited edtFechaIniFiltro: TcxDateEdit
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitWidth = 190
Width = 190
end
inherited edtFechaFinFiltro: TcxDateEdit
Left = 294
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitLeft = 294
ExplicitWidth = 334
Width = 334
end
inherited eLista: TcxComboBox
Left = 665
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitLeft = 665
ExplicitWidth = 215
Width = 215
end
end
inherited TBXAlignmentPanel1: TTBXAlignmentPanel
Width = 638

BIN
Source/Modulos/Recibos de proveedor/Views/uEditorRecibosProveedor.pas
View File

Binary file not shown.

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

@ -165,22 +165,40 @@ inherited frViewRecibosProveedor: TfrViewRecibosProveedor
Width = 531
ExplicitWidth = 531
inherited txtFiltroTodo: TcxTextEdit
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitWidth = 491
Width = 491
end
inherited edtFechaIniFiltro: TcxDateEdit
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitWidth = 201
Width = 201
end
inherited edtFechaFinFiltro: TcxDateEdit
Left = 305
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitLeft = 305
ExplicitWidth = 216
Width = 216
end
inherited eLista: TcxComboBox
Left = 558
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitLeft = 558
ExplicitWidth = 215
Width = 215
end
end
inherited TBXAlignmentPanel1: TTBXAlignmentPanel