david
00672ada2c
- No mostraba el valor elegido en el combo al abrir por primera una ficha. git-svn-id: https://192.168.0.254/svn/Proyectos.Tecsitel_FactuGES2/trunk@202 0c75b7a4-871f-7646-8a2f-f78d34cc349f
47 lines
1.5 KiB
ObjectPascal
47 lines
1.5 KiB
ObjectPascal
unit uViewAlbaranesDevCliente;
|
||
|
||
interface
|
||
|
||
uses
|
||
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
|
||
Dialogs, uViewAlbaranesCliente, cxStyles, cxCustomData, cxGraphics, cxFilter,
|
||
cxData, cxDataStorage, cxEdit, DB, cxDBData, cxImageComboBox, cxCurrencyEdit,
|
||
dxPSGlbl, dxPSUtl, dxPSEngn, dxPrnPg, dxBkgnd, dxWrap, dxPrnDev,
|
||
dxPSCompsProvider, dxPSFillPatterns, dxPSEdgePatterns, dxPgsDlg, dxPSCore,
|
||
ImgList, PngImageList, ActnList, cxGridCustomPopupMenu, cxGridPopupMenu,
|
||
dxPScxCommon, dxPScxGrid6Lnk, uDADataTable, TB2Item, TBX, TB2Toolbar,
|
||
TBXDkPanels, TB2Dock, uViewFiltroBase, cxGridLevel, cxGridCustomTableView,
|
||
cxGridTableView, cxGridDBTableView, cxClasses, cxControls, cxGridCustomView,
|
||
cxGrid;
|
||
|
||
type
|
||
IViewAlbaranesDevCliente = interface(IViewAlbaranesCliente)
|
||
['{C3B3534D-DC3C-49E8-9176-77DD079D7A47}']
|
||
end;
|
||
|
||
TfrViewAlbaranesDevCliente = class(TfrViewAlbaranesCliente, IViewAlbaranesDevCliente)
|
||
procedure CustomViewCreate(Sender: TObject);
|
||
end;
|
||
|
||
implementation
|
||
|
||
uses uViewGrid;
|
||
{$R *.dfm}
|
||
|
||
procedure TfrViewAlbaranesDevCliente.CustomViewCreate(Sender: TObject);
|
||
begin
|
||
inherited;
|
||
cxGrid.RootLevelOptions.DetailTabsPosition := dtpNone;
|
||
cxGridViewSITUACION.Destroy;
|
||
cxGridViewREF_PEDIDO.Destroy;
|
||
cxGridViewFECHA_PREVISTA_ENVIO.Destroy;
|
||
cxGridViewFECHA_ENVIO.Destroy;
|
||
cxGridViewFECHA_RECEPCION.Destroy;
|
||
cxGridViewCALLE.Destroy;
|
||
cxGridViewCODIGO_POSTAL.Destroy;
|
||
cxGridViewPOBLACION.Destroy;
|
||
cxGridViewPROVINCIA.Destroy;
|
||
end;
|
||
|
||
end.
|
||
|