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"> <DelphiCompile Include="GUIBase.dpk">
<MainSource>MainSource</MainSource> <MainSource>MainSource</MainSource>
</DelphiCompile> </DelphiCompile>
<DCCReference Include="C:\Documents and Settings\Usuario\Base.dcp" /> <DCCReference Include="..\Modulos\Recibos de proveedor\Base.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\cxLibraryD11.dcp" /> <DCCReference Include="..\Modulos\Recibos de proveedor\cxLibraryD11.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\cxTreeListD11.dcp" /> <DCCReference Include="..\Modulos\Recibos de proveedor\cxTreeListD11.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\dbrtl.dcp" /> <DCCReference Include="..\Modulos\Recibos de proveedor\dbrtl.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\dxBarD11.dcp" /> <DCCReference Include="..\Modulos\Recibos de proveedor\dxBarD11.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\dxBarExtItemsD11.dcp" /> <DCCReference Include="..\Modulos\Recibos de proveedor\dxBarExtItemsD11.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\dxComnD11.dcp" /> <DCCReference Include="..\Modulos\Recibos de proveedor\dxComnD11.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\dxGDIPlusD11.dcp" /> <DCCReference Include="..\Modulos\Recibos de proveedor\dxGDIPlusD11.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\dxLayoutControlD11.dcp" /> <DCCReference Include="..\Modulos\Recibos de proveedor\dxLayoutControlD11.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\dxPSCoreD11.dcp" /> <DCCReference Include="..\Modulos\Recibos de proveedor\dxPSCoreD11.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\dxPScxCommonD11.dcp" /> <DCCReference Include="..\Modulos\Recibos de proveedor\dxPScxCommonD11.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\dxPScxGrid6LnkD11.dcp" /> <DCCReference Include="..\Modulos\Recibos de proveedor\dxPScxGrid6LnkD11.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\dxPsPrVwAdvD11.dcp" /> <DCCReference Include="..\Modulos\Recibos de proveedor\dxPsPrVwAdvD11.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\dxThemeD11.dcp" /> <DCCReference Include="..\Modulos\Recibos de proveedor\dxThemeD11.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\frx11.dcp" /> <DCCReference Include="..\Modulos\Recibos de proveedor\frx11.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\frxe11.dcp" /> <DCCReference Include="..\Modulos\Recibos de proveedor\frxe11.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\fs11.dcp" /> <DCCReference Include="..\Modulos\Recibos de proveedor\fs11.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\JvAppFrmD11R.dcp" /> <DCCReference Include="..\Modulos\Recibos de proveedor\JvAppFrmD11R.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\JvCtrlsD11R.dcp" /> <DCCReference Include="..\Modulos\Recibos de proveedor\JvCtrlsD11R.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\rtl.dcp" /> <DCCReference Include="..\Modulos\Recibos de proveedor\rtl.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\vcl.dcp" /> <DCCReference Include="..\Modulos\Recibos de proveedor\vcl.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\vcldb.dcp" /> <DCCReference Include="..\Modulos\Recibos de proveedor\vcldb.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\vcljpg.dcp" /> <DCCReference Include="..\Modulos\Recibos de proveedor\vcljpg.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\vclx.dcp" /> <DCCReference Include="..\Modulos\Recibos de proveedor\vclx.dcp" />
<DCCReference Include="uDialogBase.pas"> <DCCReference Include="uDialogBase.pas">
<Form>fDialogBase</Form> <Form>fDialogBase</Form>
</DCCReference> </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.ScaleMode = smFit
PrinterPage._dxMeasurementUnits_ = 0 PrinterPage._dxMeasurementUnits_ = 0
PrinterPage._dxLastMU_ = 2 PrinterPage._dxLastMU_ = 2
ReportDocument.CreationDate = 39687.693162951390000000 ReportDocument.CreationDate = 39728.760640370370000000
StyleManager = dmBase.dxPrintStyleManager1 StyleManager = dmBase.dxPrintStyleManager1
OptionsCards.Shadow.Depth = 0 OptionsCards.Shadow.Depth = 0
OptionsExpanding.ExpandGroupRows = True OptionsExpanding.ExpandGroupRows = True

7
Source/GUIBase/uViewGrid.pas
View File

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

11
Source/GUIBase/uViewGridBase.pas
View File

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

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

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

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

@ -49,52 +49,52 @@
<DelphiCompile Include="Contactos_view.dpk"> <DelphiCompile Include="Contactos_view.dpk">
<MainSource>MainSource</MainSource> <MainSource>MainSource</MainSource>
</DelphiCompile> </DelphiCompile>
<DCCReference Include="..\..\Albaranes de cliente\Views\adortl.dcp" /> <DCCReference Include="..\..\Pedidos a proveedor\adortl.dcp" />
<DCCReference Include="..\..\Albaranes de cliente\Views\ApplicationBase.dcp" /> <DCCReference Include="..\..\Pedidos a proveedor\ApplicationBase.dcp" />
<DCCReference Include="..\..\Albaranes de cliente\Views\Base.dcp" /> <DCCReference Include="..\..\Pedidos a proveedor\Base.dcp" />
<DCCReference Include="..\..\Albaranes de cliente\Views\bdertl.dcp" /> <DCCReference Include="..\..\Pedidos a proveedor\bdertl.dcp" />
<DCCReference Include="..\..\Albaranes de cliente\Views\ccpackD11.dcp" /> <DCCReference Include="..\..\Pedidos a proveedor\ccpackD11.dcp" />
<DCCReference Include="..\..\Albaranes de cliente\Views\cfpack_d11.dcp" /> <DCCReference Include="..\..\Pedidos a proveedor\cfpack_d11.dcp" />
<DCCReference Include="..\..\Albaranes de cliente\Views\Contactos_controller.dcp" /> <DCCReference Include="..\..\Pedidos a proveedor\Contactos_controller.dcp" />
<DCCReference Include="..\..\Albaranes de cliente\Views\Contactos_model.dcp" /> <DCCReference Include="..\..\Pedidos a proveedor\Contactos_model.dcp" />
<DCCReference Include="..\..\Albaranes de cliente\Views\cxDataD11.dcp" /> <DCCReference Include="..\..\Pedidos a proveedor\cxDataD11.dcp" />
<DCCReference Include="..\..\Albaranes de cliente\Views\cxEditorsD11.dcp" /> <DCCReference Include="..\..\Pedidos a proveedor\cxEditorsD11.dcp" />
<DCCReference Include="..\..\Albaranes de cliente\Views\cxExportD11.dcp" /> <DCCReference Include="..\..\Pedidos a proveedor\cxExportD11.dcp" />
<DCCReference Include="..\..\Albaranes de cliente\Views\cxExtEditorsD11.dcp" /> <DCCReference Include="..\..\Pedidos a proveedor\cxExtEditorsD11.dcp" />
<DCCReference Include="..\..\Albaranes de cliente\Views\cxGridD11.dcp" /> <DCCReference Include="..\..\Pedidos a proveedor\cxGridD11.dcp" />
<DCCReference Include="..\..\Albaranes de cliente\Views\cxLibraryD11.dcp" /> <DCCReference Include="..\..\Pedidos a proveedor\cxLibraryD11.dcp" />
<DCCReference Include="..\..\Albaranes de cliente\Views\cxPageControlD11.dcp" /> <DCCReference Include="..\..\Pedidos a proveedor\cxPageControlD11.dcp" />
<DCCReference Include="..\..\Albaranes de cliente\Views\DataAbstract_Core_D11.dcp" /> <DCCReference Include="..\..\Pedidos a proveedor\DataAbstract_Core_D11.dcp" />
<DCCReference Include="..\..\Albaranes de cliente\Views\dbrtl.dcp" /> <DCCReference Include="..\..\Pedidos a proveedor\dbrtl.dcp" />
<DCCReference Include="..\..\Albaranes de cliente\Views\designide.dcp" /> <DCCReference Include="..\..\Pedidos a proveedor\designide.dcp" />
<DCCReference Include="..\..\Albaranes de cliente\Views\dsnap.dcp" /> <DCCReference Include="..\..\Pedidos a proveedor\dsnap.dcp" />
<DCCReference Include="..\..\Albaranes de cliente\Views\dxComnD11.dcp" /> <DCCReference Include="..\..\Pedidos a proveedor\dxComnD11.dcp" />
<DCCReference Include="..\..\Albaranes de cliente\Views\dxGDIPlusD11.dcp" /> <DCCReference Include="..\..\Pedidos a proveedor\dxGDIPlusD11.dcp" />
<DCCReference Include="..\..\Albaranes de cliente\Views\dxLayoutControlD11.dcp" /> <DCCReference Include="..\..\Pedidos a proveedor\dxLayoutControlD11.dcp" />
<DCCReference Include="..\..\Albaranes de cliente\Views\dxThemeD11.dcp" /> <DCCReference Include="..\..\Pedidos a proveedor\dxThemeD11.dcp" />
<DCCReference Include="..\..\Albaranes de cliente\Views\FormasPago_controller.dcp" /> <DCCReference Include="..\..\Pedidos a proveedor\FormasPago_controller.dcp" />
<DCCReference Include="..\..\Albaranes de cliente\Views\FormasPago_model.dcp" /> <DCCReference Include="..\..\Pedidos a proveedor\FormasPago_model.dcp" />
<DCCReference Include="..\..\Albaranes de cliente\Views\GUIBase.dcp" /> <DCCReference Include="..\..\Pedidos a proveedor\GUIBase.dcp" />
<DCCReference Include="..\..\Albaranes de cliente\Views\GUISDK_D11.dcp" /> <DCCReference Include="..\..\Pedidos a proveedor\GUISDK_D11.dcp" />
<DCCReference Include="..\..\Albaranes de cliente\Views\Jcl.dcp" /> <DCCReference Include="..\..\Pedidos a proveedor\Jcl.dcp" />
<DCCReference Include="..\..\Albaranes de cliente\Views\JclVcl.dcp" /> <DCCReference Include="..\..\Pedidos a proveedor\JclVcl.dcp" />
<DCCReference Include="..\..\Albaranes de cliente\Views\JvCoreD11R.dcp" /> <DCCReference Include="..\..\Pedidos a proveedor\JvCoreD11R.dcp" />
<DCCReference Include="..\..\Albaranes de cliente\Views\JvCtrlsD11R.dcp" /> <DCCReference Include="..\..\Pedidos a proveedor\JvCtrlsD11R.dcp" />
<DCCReference Include="..\..\Albaranes de cliente\Views\JvGlobusD11R.dcp" /> <DCCReference Include="..\..\Pedidos a proveedor\JvGlobusD11R.dcp" />
<DCCReference Include="..\..\Albaranes de cliente\Views\JvStdCtrlsD11R.dcp" /> <DCCReference Include="..\..\Pedidos a proveedor\JvStdCtrlsD11R.dcp" />
<DCCReference Include="..\..\Albaranes de cliente\Views\JvSystemD11R.dcp" /> <DCCReference Include="..\..\Pedidos a proveedor\JvSystemD11R.dcp" />
<DCCReference Include="..\..\Albaranes de cliente\Views\PngComponentsD10.dcp" /> <DCCReference Include="..\..\Pedidos a proveedor\PngComponentsD10.dcp" />
<DCCReference Include="..\..\Albaranes de cliente\Views\PNG_D10.dcp" /> <DCCReference Include="..\..\Pedidos a proveedor\PNG_D10.dcp" />
<DCCReference Include="..\..\Albaranes de cliente\Views\RemObjects_Core_D11.dcp" /> <DCCReference Include="..\..\Pedidos a proveedor\RemObjects_Core_D11.dcp" />
<DCCReference Include="..\..\Albaranes de cliente\Views\rtl.dcp" /> <DCCReference Include="..\..\Pedidos a proveedor\rtl.dcp" />
<DCCReference Include="..\..\Albaranes de cliente\Views\TiposIVA_controller.dcp" /> <DCCReference Include="..\..\Pedidos a proveedor\TiposIVA_controller.dcp" />
<DCCReference Include="..\..\Albaranes de cliente\Views\TiposIVA_model.dcp" /> <DCCReference Include="..\..\Pedidos a proveedor\TiposIVA_model.dcp" />
<DCCReference Include="..\..\Albaranes de cliente\Views\vcl.dcp" /> <DCCReference Include="..\..\Pedidos a proveedor\vcl.dcp" />
<DCCReference Include="..\..\Albaranes de cliente\Views\vclactnband.dcp" /> <DCCReference Include="..\..\Pedidos a proveedor\vclactnband.dcp" />
<DCCReference Include="..\..\Albaranes de cliente\Views\vcldb.dcp" /> <DCCReference Include="..\..\Pedidos a proveedor\vcldb.dcp" />
<DCCReference Include="..\..\Albaranes de cliente\Views\vcljpg.dcp" /> <DCCReference Include="..\..\Pedidos a proveedor\vcljpg.dcp" />
<DCCReference Include="..\..\Albaranes de cliente\Views\vclx.dcp" /> <DCCReference Include="..\..\Pedidos a proveedor\vclx.dcp" />
<DCCReference Include="..\..\Albaranes de cliente\Views\xmlrtl.dcp" /> <DCCReference Include="..\..\Pedidos a proveedor\xmlrtl.dcp" />
<DCCReference Include="uContactosViewRegister.pas" /> <DCCReference Include="uContactosViewRegister.pas" />
<DCCReference Include="uEditorCliente.pas"> <DCCReference Include="uEditorCliente.pas">
<Form>fEditorCliente</Form> <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 inherited frViewPedidosProveedor: TfrViewPedidosProveedor
Width = 770 Width = 839
Height = 542 Height = 590
ExplicitWidth = 770 ExplicitWidth = 839
ExplicitHeight = 542 ExplicitHeight = 590
inherited cxGrid: TcxGrid inherited cxGrid: TcxGrid
Width = 770 Width = 839
Height = 414 Height = 462
RootLevelOptions.DetailTabsPosition = dtpTop RootLevelOptions.DetailTabsPosition = dtpTop
OnActiveTabChanged = cxGridActiveTabChanged OnActiveTabChanged = cxGridActiveTabChanged
ExplicitWidth = 839 ExplicitWidth = 839
ExplicitHeight = 361 ExplicitHeight = 462
inherited cxGridView: TcxGridDBTableView inherited cxGridView: TcxGridDBTableView
DataController.KeyFieldNames = 'ID' DataController.KeyFieldNames = 'ID'
DataController.Options = [dcoAnsiSort, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoSortByDisplayText, dcoGroupsAlwaysExpanded] DataController.Options = [dcoAnsiSort, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoSortByDisplayText, dcoGroupsAlwaysExpanded]
@ -63,47 +63,39 @@ inherited frViewPedidosProveedor: TfrViewPedidosProveedor
object cxGridViewREFERENCIA: TcxGridDBColumn object cxGridViewREFERENCIA: TcxGridDBColumn
Caption = 'Referencia' Caption = 'Referencia'
DataBinding.FieldName = 'REFERENCIA' DataBinding.FieldName = 'REFERENCIA'
BestFitMaxWidth = 60
SortIndex = 0 SortIndex = 0
SortOrder = soDescending SortOrder = soDescending
Width = 100 Width = 89
end end
object cxGridViewSITUACION: TcxGridDBColumn object cxGridViewSITUACION: TcxGridDBColumn
Caption = 'Situaci'#243'n'
DataBinding.FieldName = 'SITUACION' DataBinding.FieldName = 'SITUACION'
BestFitMaxWidth = 90 Width = 95
Width = 150
end end
object cxGridViewFECHA_PEDIDO: TcxGridDBColumn object cxGridViewFECHA_PEDIDO: TcxGridDBColumn
DataBinding.FieldName = 'FECHA_PEDIDO' DataBinding.FieldName = 'FECHA_PEDIDO'
BestFitMaxWidth = 60 Width = 45
Width = 65
end end
object cxGridViewFECHA_ENVIO: TcxGridDBColumn object cxGridViewFECHA_ENVIO: TcxGridDBColumn
DataBinding.FieldName = 'FECHA_ENVIO' DataBinding.FieldName = 'FECHA_ENVIO'
BestFitMaxWidth = 60 Width = 44
Width = 65
end end
object cxGridViewNOMBRE: TcxGridDBColumn object cxGridViewNOMBRE: TcxGridDBColumn
Caption = 'Proveedor' Caption = 'Proveedor'
DataBinding.FieldName = 'NOMBRE' DataBinding.FieldName = 'NOMBRE'
MinWidth = 0 Width = 128
Width = 190
end end
object cxGridViewFECHA_CONFIRMACION: TcxGridDBColumn object cxGridViewFECHA_CONFIRMACION: TcxGridDBColumn
DataBinding.FieldName = 'FECHA_CONFIRMACION' DataBinding.FieldName = 'FECHA_CONFIRMACION'
BestFitMaxWidth = 60 Width = 46
Width = 65
end end
object cxGridViewFECHA_ENTREGA: TcxGridDBColumn object cxGridViewFECHA_ENTREGA: TcxGridDBColumn
DataBinding.FieldName = 'FECHA_ENTREGA' DataBinding.FieldName = 'FECHA_ENTREGA'
BestFitMaxWidth = 60 Width = 44
MinWidth = 0
Width = 65
end end
object cxGridViewNOMBRE_ALMACEN: TcxGridDBColumn object cxGridViewNOMBRE_ALMACEN: TcxGridDBColumn
DataBinding.FieldName = 'NOMBRE_ALMACEN' DataBinding.FieldName = 'NOMBRE_ALMACEN'
MinWidth = 0 Width = 58
Width = 54
end end
object cxGridViewCALLE: TcxGridDBColumn object cxGridViewCALLE: TcxGridDBColumn
DataBinding.FieldName = 'CALLE' DataBinding.FieldName = 'CALLE'
@ -120,7 +112,6 @@ inherited frViewPedidosProveedor: TfrViewPedidosProveedor
object cxGridViewCODIGO_POSTAL: TcxGridDBColumn object cxGridViewCODIGO_POSTAL: TcxGridDBColumn
DataBinding.FieldName = 'CODIGO_POSTAL' DataBinding.FieldName = 'CODIGO_POSTAL'
Visible = False Visible = False
BestFitMaxWidth = 50
end end
object cxGridViewPERSONA_CONTACTO: TcxGridDBColumn object cxGridViewPERSONA_CONTACTO: TcxGridDBColumn
DataBinding.FieldName = 'PERSONA_CONTACTO' DataBinding.FieldName = 'PERSONA_CONTACTO'
@ -129,18 +120,16 @@ inherited frViewPedidosProveedor: TfrViewPedidosProveedor
object cxGridViewTELEFONO: TcxGridDBColumn object cxGridViewTELEFONO: TcxGridDBColumn
DataBinding.FieldName = 'TELEFONO' DataBinding.FieldName = 'TELEFONO'
Visible = False Visible = False
BestFitMaxWidth = 60
Width = 65 Width = 65
end end
object cxGridViewNOMBRE_OBRA: TcxGridDBColumn object cxGridViewNOMBRE_OBRA: TcxGridDBColumn
DataBinding.FieldName = 'NOMBRE_OBRA' DataBinding.FieldName = 'NOMBRE_OBRA'
MinWidth = 0 Width = 54
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 = 60
VisibleForCustomization = False VisibleForCustomization = False
Width = 65 Width = 65
end end
@ -149,22 +138,19 @@ inherited frViewPedidosProveedor: TfrViewPedidosProveedor
DataBinding.FieldName = 'IMPORTE_TOTAL' DataBinding.FieldName = 'IMPORTE_TOTAL'
PropertiesClassName = 'TcxCurrencyEditProperties' PropertiesClassName = 'TcxCurrencyEditProperties'
Properties.Alignment.Horz = taRightJustify Properties.Alignment.Horz = taRightJustify
BestFitMaxWidth = 90
FooterAlignmentHorz = taRightJustify FooterAlignmentHorz = taRightJustify
HeaderAlignmentHorz = taRightJustify HeaderAlignmentHorz = taRightJustify
Width = 105 Width = 67
end end
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'
BestFitMaxWidth = 60 Width = 95
Width = 150
end end
end end
object cxGridDBTableView1: TcxGridDBTableView [1] object cxGridDBTableView1: TcxGridDBTableView [1]
@ -187,12 +173,12 @@ inherited frViewPedidosProveedor: TfrViewPedidosProveedor
end end
end end
inherited frViewFiltroBase1: TfrViewFiltroBase inherited frViewFiltroBase1: TfrViewFiltroBase
Width = 770 Width = 839
ExplicitWidth = 839 ExplicitWidth = 839
inherited TBXDockablePanel1: TTBXDockablePanel inherited TBXDockablePanel1: TTBXDockablePanel
ExplicitWidth = 839 ExplicitWidth = 839
inherited dxLayoutControl1: TdxLayoutControl inherited dxLayoutControl1: TdxLayoutControl
Width = 770 Width = 839
ExplicitWidth = 839 ExplicitWidth = 839
inherited txtFiltroTodo: TcxTextEdit inherited txtFiltroTodo: TcxTextEdit
Style.LookAndFeel.SkinName = '' Style.LookAndFeel.SkinName = ''
@ -232,25 +218,25 @@ inherited frViewPedidosProveedor: TfrViewPedidosProveedor
end end
end end
inherited TBXAlignmentPanel1: TTBXAlignmentPanel inherited TBXAlignmentPanel1: TTBXAlignmentPanel
Width = 770 Width = 839
ExplicitWidth = 839 ExplicitWidth = 839
inherited tbxBotones: TTBXToolbar inherited tbxBotones: TTBXToolbar
Width = 760 Width = 829
ExplicitWidth = 829 ExplicitWidth = 829
end end
end end
end end
end end
inherited pnlAgrupaciones: TTBXDockablePanel inherited pnlAgrupaciones: TTBXDockablePanel
Top = 516 Top = 564
Visible = True Visible = True
ExplicitTop = 463 ExplicitTop = 564
ExplicitWidth = 839 ExplicitWidth = 839
inherited TBXAlignmentPanel1: TTBXAlignmentPanel inherited TBXAlignmentPanel1: TTBXAlignmentPanel
Width = 770 Width = 839
ExplicitWidth = 839 ExplicitWidth = 839
inherited TBXToolbar1: TTBXToolbar inherited TBXToolbar1: TTBXToolbar
Width = 760 Width = 829
ExplicitWidth = 829 ExplicitWidth = 829
object TBXSeparatorItem2: TTBXSeparatorItem object TBXSeparatorItem2: TTBXSeparatorItem
end end

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

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

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

@ -41,7 +41,7 @@ inherited fEditorRecibosProveedor: TfEditorRecibosProveedor
Width = 638 Width = 638
ExplicitWidth = 638 ExplicitWidth = 638
inherited tbxMain: TTBXToolbar inherited tbxMain: TTBXToolbar
ExplicitWidth = 434 ExplicitWidth = 577
end end
inherited tbxMenu: TTBXToolbar inherited tbxMenu: TTBXToolbar
ExplicitWidth = 638 ExplicitWidth = 638
@ -119,19 +119,41 @@ inherited fEditorRecibosProveedor: TfEditorRecibosProveedor
Width = 638 Width = 638
ExplicitWidth = 638 ExplicitWidth = 638
inherited txtFiltroTodo: TcxTextEdit inherited txtFiltroTodo: TcxTextEdit
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitWidth = 541 ExplicitWidth = 541
Width = 541 Width = 541
end end
inherited edtFechaIniFiltro: TcxDateEdit inherited edtFechaIniFiltro: TcxDateEdit
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitWidth = 190 ExplicitWidth = 190
Width = 190 Width = 190
end end
inherited edtFechaFinFiltro: TcxDateEdit inherited edtFechaFinFiltro: TcxDateEdit
Left = 294 Left = 294
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitLeft = 294 ExplicitLeft = 294
ExplicitWidth = 334 ExplicitWidth = 334
Width = 334 Width = 334
end 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 end
inherited TBXAlignmentPanel1: TTBXAlignmentPanel inherited TBXAlignmentPanel1: TTBXAlignmentPanel
Width = 638 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 Width = 531
ExplicitWidth = 531 ExplicitWidth = 531
inherited txtFiltroTodo: TcxTextEdit inherited txtFiltroTodo: TcxTextEdit
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitWidth = 491 ExplicitWidth = 491
Width = 491 Width = 491
end end
inherited edtFechaIniFiltro: TcxDateEdit inherited edtFechaIniFiltro: TcxDateEdit
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitWidth = 201 ExplicitWidth = 201
Width = 201 Width = 201
end end
inherited edtFechaFinFiltro: TcxDateEdit inherited edtFechaFinFiltro: TcxDateEdit
Left = 305 Left = 305
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitLeft = 305 ExplicitLeft = 305
ExplicitWidth = 216 ExplicitWidth = 216
Width = 216 Width = 216
end end
inherited eLista: TcxComboBox inherited eLista: TcxComboBox
Left = 558 Left = 558
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitLeft = 558 ExplicitLeft = 558
ExplicitWidth = 215
Width = 215
end end
end end
inherited TBXAlignmentPanel1: TTBXAlignmentPanel inherited TBXAlignmentPanel1: TTBXAlignmentPanel