Date type in Xdata Criteriaresult

[Mika_Koistinen]

If have xdata service which return Tlist
and I get data like this.

  result :=  om.Find<Tpurchaseorder>.createalias('supplier','s').SetProjections(
  tprojections.ProjectionList //
  .add(tprojections.sum('amount').as_('amount')) //
  .add(tprojections.group('order_date').As_('date')))
  .Add(Linq['s.id'] = supplierid).listvalues;

works fine except date is numeric, not date type

{
  "value": [
    {
      "amount": 0,
      "date": 42109
    },
    {
      "amount": 1596.2344,
      "date": 42110
    }
  ]
}

order_date property is Tdatetime and field in DB is Date

[wlandgraf (Wagner Landgraf)]

That's current by design: EConvertToJsonError Timestamp Column - #2 by wlandgraf.

[Mika_Koistinen]

What's wrong here

  result := om.Find< Tpurchaseorder >.SetProjections( tprojections.ProjectionList //
    .add( tprojections.sum( 'amount' ).as_( 'amount' ) ) //
    .add( tprojections.Group( 'order_date' ).as_( 'date' ) ) ) //
    .add( TProjections.Sql<string>('convert(tilauspvm, VARCHAR(10)) ').As_('correctdate') ) // <-- compilere error here
    .add( Linq.sql( 'a.toimittaja = ''' + supplierid + #39 ) ) //
    .listvalues;

I get compiler error
E2010 Incompatible types: 'TCustomCriterion' and 'TAliasedProjection'

[wlandgraf (Wagner Landgraf)]

This line:

   .add( tprojections.Group( 'order_date' ).as_( 'date' ) ) ) //

has an extra close parenthesis, thus the projection list is over and the next .add actually refers to adding a condition, not a projection.

[Mika_Koistinen]

thanks again.
Those empty comments at the end of line are making detecting much harder.
I wish there would be another way to tell delphi formatter not to combine this line... but that matter is out of this forums scope