Estou criando uma tela no forms onde a pessoa entra com a data inicia, data final e clica em um botão para gerar um arquivo em txt.
Funciona normalmente, porem quando estou acrescentando mais alguns campos na query da erro. nem consigo compilar o formulario.
Vou simplificar o código para ficar mais facil de entender...
Assim funciona de boa:
SELECT AD.DT_PARTO DT
, AD.CD_ATENDIMENTO RH
, PA.NM_PACIENTE NOME
FROM DBAMV.ADMISSAO_CO AD, DBAMV.PACIENTE PA, DBAMV.ATENDIME ATE, DBAMV.RECEM_NASCIDO RN, DBAMV.TIP_ANEST TA
WHERE AD.CD_ATENDIMENTO = ATE.CD_ATENDIMENTO
AND ATE.CD_PACIENTE = PA.CD_PACIENTE
AND AD.CD_ADMISSAO_CO = RN.CD_ADMISSAO_CO(+)
AND AD.CD_TIP_ANEST = TA.CD_TIP_ANEST(+)
--AND RN.CD_ATENDIMENTO IS NOT NULL
AND AD.CD_TIP_PARTO <> 2
AND DT_PARTO BETWEEN :P_DT_INI AND :P_DT_FIM
ORDER BY 1 ASC;
Se acrescento mais um campo não funciona:
SELECT AD.DT_PARTO DT
, AD.CD_ATENDIMENTO RH
, PA.NM_PACIENTE NOME
, (SELECT MAX(SC.DS_SAL_CIR) FROM DBAMV.AVISO_CIRURGIA AC, DBAMV.SAL_CIR SC WHERE CD_ATENDIMENTO = AD.CD_ATENDIMENTO AND TP_SITUACAO = 'R' AND AC.CD_SAL_CIR = SC.CD_SAL_CIR AND AC.cd_cen_cir = 2)SALA
FROM DBAMV.ADMISSAO_CO AD, DBAMV.PACIENTE PA, DBAMV.ATENDIME ATE, DBAMV.RECEM_NASCIDO RN, DBAMV.TIP_ANEST TA
WHERE AD.CD_ATENDIMENTO = ATE.CD_ATENDIMENTO
AND ATE.CD_PACIENTE = PA.CD_PACIENTE
AND AD.CD_ADMISSAO_CO = RN.CD_ADMISSAO_CO(+)
AND AD.CD_TIP_ANEST = TA.CD_TIP_ANEST(+)
--AND RN.CD_ATENDIMENTO IS NOT NULL
AND AD.CD_TIP_PARTO <> 2
AND DT_PARTO BETWEEN :P_DT_INI AND :P_DT_FIM
ORDER BY 1 ASC;
encontrado o simbolo "SELECT" quando um dos seguintes simbolos era esperado:
(-+mod not null others <an identifier>
<a double-quoted delimited-identifier><a bind variable> avg
count current exists max min prior sql stddev sun variance
cast < a string literal with character set specification>
< a number > <a single quoted SQL string>
e tem mais algums erros....rsrsrsr
alguém sabe o porque? sera que pode me ajudar ?
Abraço!!!
