Шаблон  Button_Print

B_Print.gif (226 bytes)  Это 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, размеры и т.п.)

 

Шаблон  Button_Vedom

B_Vedom.gif (227 bytes)  Это 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

Hosted by uCoz