* Создаем константы символов.
S_NEW_LINE = CHR(13) + CHR(10) && Переход на новую строку.
S_QUOTE    = CHR(34)           && двойная кавычка (").
S_ARROW    = " => "            && Стрелка. 

* Получаем детали ошибки.
lcDateTime     = TTOC(DATETIME())
lcErrorMessage = SUBSTR(MESSAGE(), 1, LENC(MESSAGE())-1)
lcLineOfCode   = MESSAGE(1)
lcErrorNumber  = ALLTRIM(STR(ERROR()))
lcLineNumber   = ALLTRIM(STR(LINENO(1)))
lcMaintenance  = getProgrammSetting("Maintenance")

* Получаем цепочку вызова до момента возникновения ошибки.
lcProgrammChain = ""
lnChainLenght = PROGRAM(-1)
FOR i = 1 TO lnChainLenght
	lcNextEement = PROGRAM(i)
	IF (ALLTRIM(lcNextEement) != "ON...") AND (ALLTRIM(lcNextEement) != "ERRORHANDLER")
		IF !EMPTY(lcProgrammChain)
			lcProgrammChain = lcProgrammChain + S_ARROW + lcNextEement
		ELSE
			lcProgrammChain = lcNextEement
		ENDIF
	ENDIF
ENDFOR

* Формируем сообщение разработчику.
lcAdminMessage  = lcDateTime + S_NEW_LINE +;
                  "   Ошибка:       №" + lcErrorNumber + " " + S_QUOTE + lcErrorMessage + S_QUOTE + S_NEW_LINE +;
                  "   Исходный код: " + S_QUOTE + lcLineOfCode + S_QUOTE + S_NEW_LINE +;
                  "   Программа:    " + lcProgrammChain + S_NEW_LINE +;
                  "   Строка:       " + lcLineNumber + S_NEW_LINE

02.08.2019 18:42:52
   Ошибка:       №16 "Unrecognized command verb"
   Исходный код: "dfgsdfg"
   Программа:    MAIN => SHOWJOURNAL_01 => F03_JOURNAL_01.GRID1.COLUMN14.COMMAND3.CLICK => F17_01_EDITJOURNAL.COMMAND8.CLICK => F17_03_SOLDER.COMMAND1.CLICK
   Строка:       11

02.08.2019 18:44:02
   Ошибка:       №16 "Неизвестная команда"
   Исходный код: "SELECT SelectWorker
"
   Программа:    MAIN => SHOWJOURNAL_01 => F03_JOURNAL_01.GRID1.COLUMN14.COMMAND3.CLICK => F17_01_EDITJOURNAL.COMMAND8.CLICK => F17_03_SOLDER.COMMAND1.CLICK
   Строка:       11