Это control-шаблон, который реализует кнопку вызова
процедуры печати .
#!==================================================
#CONTROL (Button_Print, 'Кнопка Печатать')
#!==================================================
CONTROLS
BUTTON,AT(,,16,16),MSG('Печатать'),TIP('Печатать'),USE(?Print),ICON('PRINT.ICO'),
KEY('PrinterKey')
END
#!
#DISPLAY ('')
#DISPLAY ('Кнопка Печатать')
#DISPLAY ('')
#DISPLAY ('Название процедуры печати:')
#PROMPT ('Процедура печати:', PROCEDURE), %PrintProc, REQ
#DISPLAY ('')
#!
#ATSTART
#DECLARE (%ButtonPrint)
#FOR (%Control), WHERE(%ControlInstance = %ActiveTemplateInstance)
#SET (%ButtonPrint, %Control)
#ENDFOR
#ENDAT
#!
#AT (%WindowEventHandling, 'OpenWindow')
?Print{prop:Key}=PrinterKey
#ENDAT
#!
#!------ Кнопка Print ----
#AT (%ControlPostEventHandling, '?Print', 'Accepted')
%PrintProc
select( ?Browse:1 )
#ENDAT
Этот (как и следующий) шаблон
реализован для того, чтобы не настраивать каждый
раз параметры кнопок (ICON. MESSAGE, TIP, размеры и т.п.)
Это control-шаблон, который реализует кнопку вызова
процедуры печати Ведомости
документов .
#!===========================================================
#CONTROL (Button_Vedom, 'Кнопка печати ведомости
документов')
#!===========================================================
CONTROLS
BUTTON,AT(,,16,16),MSG('Печатать
Ведомость'),TIP('Ведомость'), USE(?Vedom), ICON('REPORT.ICO'),
KEY('VedomKey')
END
#!
#DISPLAY ('')
#DISPLAY ('Кнопка Печатать Ведомость')
#DISPLAY ('')
#DISPLAY ('Процедура печати ведомости:')
#PROMPT ('Процедура печати:', PROCEDURE), %PrintVedomProc, REQ, DEFAULT('')
#DISPLAY ('')
#!
#ATSTART
#DECLARE (%ButtonVedom)
#FOR (%Control), WHERE(%ControlInstance = %ActiveTemplateInstance)
#SET (%ButtonVedom, %Control)
#ENDFOR
#ENDAT
#!
#AT (%WindowEventHandling, 'OpenWindow')
?Vedom{prop:Key}=VedomKey
#ENDAT
#!
#!------ Кнопка Vedom ----
#AT (%ControlPostEventHandling, '?Vedom', 'Accepted')
%PrintVedomProc
select( ?Browse:1 )
#ENDAT