how to TWebDBTableControl OnGetCellData

WEB TMS WEB Core
1
Component: TWebDBTableControl
Event: OnGetCellData

>>>> Error: Uncaught TypeError: Cannot read property 'GetAsJSValue' of null

Important: not exist null

EXAMPLE:

procedure TFViewtrocaedit.WebDBTableNotaGetCellData(Sender: TObject; ACol, ARow: Integer; AField: TField; var AValue: string);
begin
  if ACol = 1 then
    AValue := FormatDateTime('dd/mm/yyyy', TDate(AField.Value));
  if ACol = 2 then
    AValue := FormatFloat('R$ #,##0.00', Double(AField.Value));
end;

2


I solved


procedure TFViewtrocaedit.WebDBTableNotaGetCellData(Sender: TObject; ACol, ARow: Integer; AField: TField; var AValue: string);
begin
  if Assigned(AField) then .  <<<<<<<<==========
  begin
   if ACol = 1 then
     AValue := FormatDateTime('dd/mm/yyyy', TDate(AField.Value));
   if ACol = 2 then
     AValue := FormatFloat('R$ #,##0.00', Double(AField.Value));
  end;
end;