david
c72ce80982
git-svn-id: https://192.168.0.254/svn/Proyectos.LuisLeon_FactuGES/tags/1.0.9@15 c93665c3-c93d-084d-9b98-7d5f4a9c3376
144 lines
5.0 KiB
ObjectPascal
144 lines
5.0 KiB
ObjectPascal
unit uViewAlbaranesProveedor;
|
|
|
|
interface
|
|
|
|
uses
|
|
uViewGrid, cxStyles, cxCustomData, cxGraphics, cxFilter,
|
|
cxData, cxDataStorage, cxEdit, DB, cxDBData, dxPSGlbl, dxPSUtl, dxPSEngn,
|
|
dxPrnPg, dxBkgnd, dxWrap, dxPrnDev, dxPSCompsProvider, dxPSFillPatterns,
|
|
dxPSEdgePatterns, cxImageComboBox, ImgList, Controls, PngImageList,
|
|
cxGridCustomTableView, cxGridTableView, cxGridDBTableView,
|
|
cxGridCustomPopupMenu, cxGridPopupMenu, dxPSCore, dxPScxCommon, dxPScxGridLnk,
|
|
uDADataTable, cxGridLevel, cxClasses, cxControls, cxGridCustomView, Classes,
|
|
cxGrid, uBizAlbaranesProveedor;
|
|
|
|
type
|
|
IViewAlbaranesProveedor = interface(IViewGrid)
|
|
['{DFD9B90C-E3AE-48E1-A13F-AA75A05BBF3E}']
|
|
function GetAlbaranes: IBizAlbaranProveedor;
|
|
procedure SetAlbaranes(const Value: IBizAlbaranProveedor);
|
|
property Albaranes: IBizAlbaranProveedor read GetAlbaranes write SetAlbaranes;
|
|
end;
|
|
|
|
TfrViewAlbaranesProveedor = class(TfrViewGrid, IViewAlbaranesProveedor)
|
|
PngImageList: TPngImageList;
|
|
cxGridViewID: TcxGridDBColumn;
|
|
cxGridViewREFERENCIA: TcxGridDBColumn;
|
|
cxGridViewFECHA_ALBARAN: TcxGridDBColumn;
|
|
cxGridViewINCIDENCIAS_ACTIVAS: TcxGridDBColumn;
|
|
cxGridViewNOMBRE: TcxGridDBColumn;
|
|
cxGridViewCALLE: TcxGridDBColumn;
|
|
cxGridViewCODIGO_POSTAL: TcxGridDBColumn;
|
|
cxGridViewPOBLACION: TcxGridDBColumn;
|
|
cxGridViewPROVINCIA: TcxGridDBColumn;
|
|
cxGridViewPERSONA_CONTACTO: TcxGridDBColumn;
|
|
cxGridViewTELEFONO: TcxGridDBColumn;
|
|
cxGridViewNOMBRE_ALMACEN: TcxGridDBColumn;
|
|
cxGridViewREF_PED_PROVEEDOR: TcxGridDBColumn;
|
|
cxGridViewREF_FAC_PROVEEDOR: TcxGridDBColumn;
|
|
procedure cxGridActiveTabChanged(Sender: TcxCustomGrid; ALevel:
|
|
TcxGridLevel);
|
|
procedure cxGridViewCODIGOCustomDrawCell(Sender: TcxCustomGridTableView;
|
|
ACanvas: TcxCanvas; AViewInfo: TcxGridTableDataCellViewInfo; var
|
|
ADone: Boolean);
|
|
procedure cxGridViewStylesGetContentStyle(Sender: TcxCustomGridTableView;
|
|
ARecord: TcxCustomGridRecord; AItem: TcxCustomGridTableItem; out
|
|
AStyle: TcxStyle);
|
|
protected
|
|
FNivelFiltrado : TcxFilterCriteriaItemList;
|
|
FAlbaranes: IBizAlbaranProveedor;
|
|
function GetAlbaranes: IBizAlbaranProveedor;
|
|
procedure SetAlbaranes(const Value: IBizAlbaranProveedor);
|
|
procedure FilterChanged(Sender : TObject); override;
|
|
public
|
|
property Albaranes: IBizAlbaranProveedor read GetAlbaranes write SetAlbaranes;
|
|
end;
|
|
|
|
implementation
|
|
|
|
uses SysUtils, windows, uDataModuleAlbaranesProveedor, schAlbaranesProveedorClient_Intf;
|
|
|
|
{$R *.dfm}
|
|
|
|
procedure TfrViewAlbaranesProveedor.cxGridActiveTabChanged(Sender: TcxCustomGrid; ALevel: TcxGridLevel);
|
|
begin
|
|
inherited;
|
|
FreeAndNil(FNivelFiltrado);
|
|
FilterChanged(self);
|
|
end;
|
|
|
|
procedure TfrViewAlbaranesProveedor.cxGridViewCODIGOCustomDrawCell(Sender:
|
|
TcxCustomGridTableView; ACanvas: TcxCanvas; AViewInfo:
|
|
TcxGridTableDataCellViewInfo; var ADone: Boolean);
|
|
var
|
|
R: TRect;
|
|
begin
|
|
inherited;
|
|
R := AViewInfo.ContentBounds;
|
|
ACanvas.FillRect(R);
|
|
ACanvas.DrawImage(PngImageList, R.Left, R.Top, 2);
|
|
ADone := True;
|
|
end;
|
|
|
|
procedure TfrViewAlbaranesProveedor.cxGridViewStylesGetContentStyle(Sender:
|
|
TcxCustomGridTableView; ARecord: TcxCustomGridRecord; AItem:
|
|
TcxCustomGridTableItem; out AStyle: TcxStyle);
|
|
var
|
|
IndiceCol: Integer;
|
|
ASituacion: string;
|
|
begin
|
|
{ inherited;
|
|
if Assigned(ARecord) then
|
|
begin
|
|
IndiceCol := (Sender as TcxGridDBTableView).GetColumnByFieldName(fld_PresupuestosSITUACION).Index;
|
|
ASituacion := VarToStr(ARecord.DisplayTexts[IndiceCol]);
|
|
if ASituacion = SITUACION_ACEPTADO then
|
|
AStyle := cxStyleAceptado
|
|
else if ASituacion = SITUACION_RECHAZADO then
|
|
AStyle := cxStyleRechazado;
|
|
end;
|
|
}
|
|
end;
|
|
|
|
procedure TfrViewAlbaranesProveedor.FilterChanged(Sender: TObject);
|
|
var
|
|
AItemList: TcxFilterCriteriaItemList;
|
|
AItemList2: TcxFilterCriteriaItemList;
|
|
begin
|
|
inherited;
|
|
{
|
|
cxGridView.DataController.Filter.BeginUpdate;
|
|
|
|
AItemList := cxGridView.DataController.Filter.Root;
|
|
AItemList2 := AItemList.AddItemList(fboAnd);
|
|
FNivelFiltrado := AItemList2;
|
|
|
|
case cxGrid.ActiveLevel.Index of
|
|
1 : AItemList2.AddItem(cxGridViewSITUACION, foEqual, SITUACION_PEDIDO_PENDIENTE, SITUACION_PEDIDO_PENDIENTE);
|
|
2 : AItemList2.AddItem(cxGridViewSITUACION, foEqual, SITUACION_PEDIDO_ENVIADO, SITUACION_PEDIDO_ENVIADO);
|
|
end;
|
|
AItemList := AItemList2;
|
|
|
|
if cxGridView.DataController.Filter.IsEmpty
|
|
then cxGridView.DataController.Filter.Active := False
|
|
else cxGridView.DataController.Filter.Active := True;
|
|
|
|
cxGridView.DataController.Filter.EndUpdate;
|
|
cxGrid.ActiveLevel.GridView := cxGridView;
|
|
}
|
|
end;
|
|
|
|
function TfrViewAlbaranesProveedor.GetAlbaranes: IBizAlbaranProveedor;
|
|
begin
|
|
Result := FAlbaranes;
|
|
end;
|
|
|
|
procedure TfrViewAlbaranesProveedor.SetAlbaranes(const Value: IBizAlbaranProveedor);
|
|
begin
|
|
FAlbaranes := Value;
|
|
if Assigned(FAlbaranes) then
|
|
dsDataSource.DataTable := FAlbaranes.DataTable;
|
|
end;
|
|
|
|
end.
|