Есть в Clarion места, в которых просто выключается мозг и не понятно, почему так всё как всегда …
Делаем стандарный, элементарный отчёт для печати текстового файла (конкретно слип-чека эквайринга) на принтер.
Код: Выделить всё
Report_Slip PROCEDURE (String xText_)
…
report REPORT('Текстовый файл'),AT(200,200,7760,11031),PAPER(PAPER:A4), PRE(RPT),FONT('Consolas',10,,FONT:regular,CHARSET:CYRILLIC),THOUS
detail DETAIL,USE(?detail)
TEXT,AT(,,7760,),USE(xText_),TRN,LEFT,RESIZE
END
END
...
Код: Выделить всё
Report_Slip('Какой-то там текст') ! Работает
Report_Slip(' ') ! Работает
Report_Slip('') ! GPF с крахом приложения :(