73 lines
2.1 KiB
ObjectPascal
73 lines
2.1 KiB
ObjectPascal
|
unit uViewHistorialCargasEDI;
|
||
|
|
|
||
|
|
interface
|
||
|
|
|
||
|
|
uses
|
||
|
|
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
|
||
|
|
Dialogs, uViewGridBase, cxStyles, cxCustomData, cxGraphics, cxFilter, cxData,
|
||
|
|
cxDataStorage, cxEdit, DB, cxDBData, dxPSGlbl, dxPSUtl, dxPSEngn,
|
||
|
|
dxPrnPg, dxBkgnd, dxWrap, dxPrnDev, dxPSCompsProvider, dxPSFillPatterns,
|
||
|
|
dxPSEdgePatterns, dxPSCore, ActnList, uDADataTable, cxGridLevel,
|
||
|
|
cxClasses, cxControls, cxGridCustomView, cxGridCustomTableView,
|
||
|
|
cxGridTableView, cxGridDBTableView, cxGrid, uBizEDILog, cxCheckBox,
|
||
|
|
uViewGrid, cxCalendar, cxTextEdit, uDataModuleFicherosEDI, uDAInterfaces;
|
||
|
|
|
||
|
|
type
|
||
|
|
IViewHistorialCargasEDI = interface(IViewGrid)
|
||
|
|
['{556EBF85-7F86-49CB-A8BF-EBF299AAF9E5}']
|
||
|
|
function GetEDILog: IBizEDILog;
|
||
|
|
procedure SetEDILog(const Value: IBizEDILog);
|
||
|
|
property EDILog: IBizEDILog read GetEDILog write SetEDILog;
|
||
|
|
end;
|
||
|
|
|
||
|
|
TfrViewHistorialCargasEDI = class(TfrViewGrid, IViewHistorialCargasEDI)
|
||
|
|
cxGridViewFECHA: TcxGridDBColumn;
|
||
|
|
cxGridViewOK: TcxGridDBColumn;
|
||
|
|
cxGridViewERROR_MSG: TcxGridDBColumn;
|
||
|
|
cxGridViewREPORT: TcxGridDBColumn;
|
||
|
|
procedure cxGridViewFECHAGetDisplayText(Sender: TcxCustomGridTableItem;
|
||
|
|
ARecord: TcxCustomGridRecord; var AText: String);
|
||
|
|
protected
|
||
|
|
FEDILog : IBizEDILog;
|
||
|
|
function GetEDILog: IBizEDILog;
|
||
|
|
procedure SetEDILog(const Value: IBizEDILog);
|
||
|
|
public
|
||
|
|
property EDILog: IBizEDILog read GetEDILog write SetEDILog;
|
||
|
|
end;
|
||
|
|
|
||
|
|
|
||
|
|
implementation
|
||
|
|
|
||
|
|
uses DateUtils;
|
||
|
|
|
||
|
|
|
||
|
|
|
||
|
|
{$R *.dfm}
|
||
|
|
|
||
|
|
{ TfrViewHistorialCargasEDI }
|
||
|
|
|
||
|
|
function TfrViewHistorialCargasEDI.GetEDILog: IBizEDILog;
|
||
|
|
begin
|
||
|
|
Result := FEDILog;
|
||
|
|
end;
|
||
|
|
|
||
|
|
procedure TfrViewHistorialCargasEDI.SetEDILog(const Value: IBizEDILog);
|
||
|
|
begin
|
||
|
|
FEDILog := Value;
|
||
|
|
dsDataSource.DataTable := FEDILog.DataTable;
|
||
|
|
end;
|
||
|
|
|
||
|
|
procedure TfrViewHistorialCargasEDI.cxGridViewFECHAGetDisplayText(
|
||
|
|
Sender: TcxCustomGridTableItem; ARecord: TcxCustomGridRecord;
|
||
|
|
var AText: String);
|
||
|
|
var
|
||
|
|
ADate : TDateTime;
|
||
|
|
begin
|
||
|
|
inherited;
|
||
|
|
{ ADate := ARecord.Values[Sender.Index];
|
||
|
|
if DaysBetween(ADate, Now) = 0 then
|
||
|
|
AText := FormatDateTime('hh:mm', ADate)}
|
||
|
|
end;
|
||
|
|
|
||
|
|
end.
|