SELECT
' ' AS "№/№",
' ' AS "Код",
A.ANKLASTNAME||' '||UPPER(LEFT(A.ANKFIRSTNAME,1))||'.'||UPPER(LEFT(A.ANKTHIRDNAME,1))||'.' AS "Ф.И.О.",
LEFT(A.ANKDATEBORN, 4)||' г.р.' AS "Год рожд.",
IIF(VB.DSTEXT_STR IS NULL,'лабораторное обследование',TRIM(VB.DSTEXT_STR)) AS "Диагноз",
IIF(VB.RECOMTEXT_STR IS NULL,'рекомендации даны',TRIM(VB.RECOMTEXT_STR)) AS "Рекомендации",
IIF(VM.FIRSTVISIT = 1,'400=00 руб.','280=00 руб.') AS "Стоим. услуги",
' ' AS "Подпись"
FROM TBL_ANKETA A
INNER JOIN TBL_VISITMAIN VM ON (A.ID_ANKETA = VM.VIS_LINKANKETA)
INNER JOIN TBL_VISITBLOB VB ON (VM.ID_VISITMAIN = VB.ID_VISITBLOB)
WHERE
VM.DATEVISIT = :prmDateVisit
-- AND A.ID_ANKETA <> 3766
-- залетный перец, пришедший сдать анализ
UNION
SELECT
' ' AS "№/№",
'В 572' AS "Код",
'Иванов И.И.' AS "Ф.И.О.",
'1980 г.р.' AS "Год рожд.",
'Обследование' AS "Диагноз",
'взятие СПЖ' AS "Рекомендации",
'350=00 руб.' AS "Стоим. услуги",
' ' AS "Подпись"
FROM TBL_ANKETA A
INNER JOIN TBL_VISITMAIN VM ON (A.ID_ANKETA = VM.VIS_LINKANKETA)
INNER JOIN TBL_VISITBLOB VB ON (VM.ID_VISITMAIN = VB.ID_VISITBLOB)
WHERE
VM.DATEVISIT = :prmDateVisit
ORDER BY 3
|