Fórum Xmaker

Senhores boa noite.

Estou alterando a SQL principal de um arquivo para formatar o campo hora, este campo esta no Oracle com formato DATE que no Oracle é representado assim: 'DD/MM/YYYY, HH:MM:SS'

Veja a SQL alterada:

// Sql Principal
SqlPrincipal.Add('Select');
SqlPrincipal.Add(' RCRSVCAD.COD_RSV AS COD_RSV,');
SqlPrincipal.Add(' RCRSVCAD.COD_CON AS COD_CON,');
SqlPrincipal.Add(' RCRSVCAD.COD_SAC AS COD_SAC,');
SqlPrincipal.Add(' RCRSVCAD.NOME_PAC AS NOME_PAC,');
SqlPrincipal.Add(' RCRSVCAD.DATA_INICIAL AS DATA_INICIAL,');
SqlPrincipal.Add(' TO_CHAR(RCRSVCAD.HORA_INICIAL, '+#39+'HH24:MI' +#39+') AS HORA_INICIAL,'); - linha alterada.
SqlPrincipal.Add(' RCRSVCAD.DATA_FINAL AS DATA_FINAL,');
SqlPrincipal.Add(' RCRSVCAD.HORA_FINAL AS HORA_FINAL,');
SqlPrincipal.Add(' RCRSVCAD.IDADE AS IDADE,');
SqlPrincipal.Add(' RCRSVCAD.COD_PRO AS COD_PRO,');
SqlPrincipal.Add(' BLSACCAD.DESCRICAO AS DESCRICAO,');
SqlPrincipal.Add(' FACONCAD.FANTASIA AS FANTASIA,');
SqlPrincipal.Add(' FAPROCAD.NOME_PRO AS NOME_PRO,');
SqlPrincipal.Add(' TBL_PAINEL.LEITO AS LEITO,');
SqlPrincipal.Add(' TBL_PAINEL.COD_PRO AS COD_PROANEST,');
SqlPrincipal.Add(' ESP_FAPROCAD.NOME_PRO AS NOME_ANEST,');
SqlPrincipal.Add(' RCCIRRSV.COD_PRD AS COD_PRD,');
SqlPrincipal.Add(' TBL_PAINEL.CIRCULANTE AS CIRCULANTE,');
SqlPrincipal.Add(' TBL_PAINEL.STATUS AS STATUS,');
SqlPrincipal.Add(' FAPRDCAD.DESCRICAO AS PROCEDIMENTO,');
SqlPrincipal.Add(' FACONCAD.NATUREZA AS NATUREZA,');
SqlPrincipal.Add(' FAPROCAD.NOME_REDUZIDO AS NOME_REDUZIDO');
SqlPrincipal.Add('from RCRSVCAD');
Sql.AddStrings(SqlPrincipal);
// Foreign Key
FiltroExtra.Add('Left Outer Join FAPROCAD on');
FiltroExtra.Add(' RCRSVCAD.COD_PRO = FAPROCAD.COD_PRO');
FiltroExtra.Add('Left Outer Join FACONCAD on');
FiltroExtra.Add(' RCRSVCAD.COD_CON = FACONCAD.COD_CON');
FiltroExtra.Add('Left Outer Join BLSACCAD on');
FiltroExtra.Add(' RCRSVCAD.COD_SAC = BLSACCAD.COD_SAC');
FiltroExtra.Add('Left Outer Join RCCIRRSV on');
FiltroExtra.Add(' RCRSVCAD.COD_RSV = RCCIRRSV.COD_RSV');
FiltroExtra.Add('Left Outer Join TBL_PAINEL on');
FiltroExtra.Add(' RCRSVCAD.COD_RSV = TBL_PAINEL.COD_RSV');
FiltroExtra.Add('Left Outer Join FAPROCAD ESP_FAPROCAD on');
FiltroExtra.Add(' TBL_PAINEL.COD_PRO = ESP_FAPROCAD.COD_PRO');
FiltroExtra.Add('Left Outer Join FAPRDCAD on');
FiltroExtra.Add(' RCCIRRSV.COD_PRD = FAPRDCAD.CODIGO');
Sql.Add('order by RCRSVCAD.HORA_INICIAL');

Quando mando compilar da sempre esse erro:
ERROR.jpg

Alguém pode me ajudar?

Agradeço muito.

Boa tarde
qual o tipo do campo no Xmaker ?
pois para funcionar o Tipo campo (SQL) deve esta como Datetime ou date
e tambem esperimente colocar o tipo do Objeto como ftDateTime

qual quer duvida estou a disposição
Mário Araujo