mORMot Open Source

        FQuery.Open(vp.argv[0].asJSString.ToString(cx));
        loop := 0;
        obj := cx.NewRootedObject(cx.NewArrayObject(FQuery.RecordCount-1));
        try
          while not FQuery.eof do begin
            obj.ptr.SetElement(cx, loop, SimpleVariantToJSval(cx, FQuery.Fields[0].AsString));     // add item to arr
            inc(loop);
            fQuery.Next;
          end;
          vp.rval := obj.ptr.ToJSValue;;
        finally
          cx.FreeRootedObject(obj);
        end;

    let arr = myfunction('select id,name from customers');

    // this returns ['1','2','3','4']

  
    let arr = myfunction('select id,name from customers');

    // to return returns [{id:'1',name:'Luis'},{id:'2',name:'peter'},{id:'3',name:'Rose'},{id:'4',name:'John'}]

        FQuery.Open(vp.argv[0].asJSString.ToString(cx));
        loop := 0;    

        obj := cx.NewRootedObject(cx.NewArrayObject(FQuery.RecordCount-1));
        try
          while not Fquery.eof do begin
            // obj.ptr.SetElement(cx, loop, SimpleVariantToJSval(cx, FQuery.Fields[0].AsString));     // add item to arr
            
            for fldCount := 0 to FQuery.FieldCount -1 do begin
              fldName := FQuery.Fields[0].FieldName;
              fldValue := FQuery.Fields[0].AsString;
              // how to wrap it, and add it to the array?          <----  Need help!
            end;

            inc(loop);
            fQuery.Next;
          end;
          vp.rval := obj.ptr.ToJSValue;;
        finally
          cx.FreeRootedObject(obj);
        end;

procedure TSignalTicket.Execute;
var
  arr_ind : integer;
  FData : TData;
  FQuery, qSignalDetail  : TFDQuery;
  n : String;
  qry : String;
  whr : String;
  evts: String;

  procedure addWhere(stm : String);
  begin
    if whr = '' then
      whr := ' where (' + stm + ')'
    else
      whr := whr + ' and (' + stm + ')';
  end;

begin
  Title := 'Signal Ticket';

  inherited;

  qry :=
    ' SELECT c.name AS "Customer",  s.utc, ulc.name AS "Classification", s.UL_KEy, s.ul_sounder, s.NAME AS "Site", st.name AS "Type", sr.name AS "Resolution", sh.* FROM SIGNAL_HISTORY sh ' +
    ' INNER JOIN SIGNAL_TYPES st ON st.id= sh.signal_type ' +
    ' LEFT JOIN SIGNAL_RESOLUTIONS sr ON sr.id=sh.SIGNAL_RESOLUTION_ID ' +
    ' INNER JOIN CUSTOMERS c ON c.id=sh.CUSTOMER_ID ' +
    ' INNER JOIN SITES s ON s.id = sh.SITE_ID ' +
    ' LEFT JOIN UL_CLASSIFICATIONS ulc ON ulc.id = s.UL_CLASSIFICATION' ;


  //addWhere('sh.id = ' + QuotedStr(FParams.Values['signal_id']));
  addWhere('sh.id = ' + QuotedStr('3b938dd1-9f34-4ab2-bcc5-b9b9c34c2b15'));


  FData := ConnCached.GetDataObj;
  try
    FQuery := FData.GetQuery;

    FQuery.Open(qry + whr);

    RepObj.Font.Style := [];
    RepObj.AddColumns([10,40,10,40]);
    RepObj.DrawTextAcrossCols(['Customer', FQuery.FieldByName('Customer').AsString,'Date', FQuery.FieldByName('dt').AsString]);
    RepObj.DrawTextAcrossCols(['Site', FQuery.FieldByName('Site').AsString,'Signal', FQuery.FieldByName('Type').AsString]);

    RepObj.DrawTextAcrossCols(['Panel', FQuery.FieldByName('Panel').AsString,'Resolution', FQuery.FieldByName('Resolution').AsString]);
    RepObj.DrawTextAcrossCols(['Priority', FQuery.FieldByName('Priority').AsString,'UL Class',FQuery.FieldByName('Classification').AsString]);
    RepObj.DrawTextAcrossCols(['Signal', FQuery.FieldByName('Code').AsString,'UL Keys', FQuery.FieldByName('UL_KEY').AsString]);
    RepObj.DrawTextAcrossCols(['Zone', FQuery.FieldByName('Zone').AsString,'UL Sounder', IIF(FQuery.FieldByName('UL_SOUNDER').AsString = 't', 'Yes','No' )]);

    RepObj.DrawTextAcrossCols(['Active', IIF(FQuery.FieldByName('active').AsString = 't', 'Yes','No' ),'UTC', FQuery.FieldByName('UTC').AsString]);

    RepObj.NewLine;
    RepObj.ClearColumns;
    RepObj.DrawText('Log',true);
    RepObj.AddColumns([20,20, 70]);
    RepObj.AddColumnHeaders(['Time', 'Operator', 'Description'],true,true);
    qSignalDetail := FData.GetQuery;

    qSignalDetail.Open(
      ' SELECT u.name AS "Operator", shd.* FROM SIGNAL_HISTORY_DETAIL shd ' +
      ' LEFT JOIN USERS u ON shd.user_id = u.id ' +
      '  where signal_id = ' + QuotedStr(FQuery.FieldByName('ID').AsString) + ' order by dt' );

    while not qSignalDetail.Eof do  begin
      RepObj.DrawTextAcrossCols([
         qSignalDetail.FieldByName('dt').AsString,
         qSignalDetail.FieldByName('Operator').AsString,
         qSignalDetail.FieldByName('data').AsString]);

      qSignalDetail.Next;
    end;


    RepObj.NewLine;
    RepObj.DrawText('Runners',False);
    RepObj.ClearColumns;
    RepObj.AddColumns([15, 16, 16, 4, 4, 4,20]);
    RepObj.AddColumnHeaders(['Runner', 'Dispatched', 'Arrived', 'Min','Key','Ver','Notes'],true,true);
    qSignalDetail := FData.GetQuery;

    qSignalDetail.Open(
      ' SELECT re.* FROM UL_RUNNER_EVENTS re where signal_id = ' + QuotedStr(FQuery.FieldByName('ID').AsString) + ' order by dispatch_time' );

    while not qSignalDetail.Eof do  begin
      RepObj.DrawTextAcrossCols([
         qSignalDetail.FieldByName('name').AsString,
         qSignalDetail.FieldByName('dispatch_time').AsString,
         qSignalDetail.FieldByName('arrival_time').AsString,
         qSignalDetail.FieldByName('ul_travel_time').AsString,
         qSignalDetail.FieldByName('key_used').AsString,
         qSignalDetail.FieldByName('verification_method').AsString,
         qSignalDetail.FieldByName('notes').AsString
         ]);

      qSignalDetail.Next;
    end;

    RepObj.NewLine;

  finally
    ConnCached.ReleaseDataObj(FData);
  end;

  RepObj.EndDoc;
end;