Шаблон  Button_UTW             

  Шаблон Button_UTW предназначен для реализации кнопки операции "Утверждения" документа.   Предполагается, что эта кнопка будет расположена в окне Ведомости Документов.

#!================================================================
#CONTROL (Button_UTW, 'Кнопка Утвердить')
#!================================================================
CONTROLS
  BUTTON,AT(,,16,16),MSG('Утверждение выделенного документа'), TIP('Утвердить'), USE(?Button_UTW), |
ICON('UTW_DOC.ICO'),Key('UtwKey')
END
#DISPLAY ('')
#DISPLAY ('Кнопка Утвердить')
#DISPLAY ('')
#BOXED ('Процедура утверждения')
  #PROMPT ('Имя процедуры:', PROCEDURE), %UtwProc, REQ
  #PROMPT ('Параметры процедуры:', @s60 ), %ParamProc
#ENDBOXED
#!
#ATSTART
#DECLARE (%ButtonUTW)
#FOR (%Control), WHERE(%ControlInstance = %ActiveTemplateInstance)
  #SET (%ButtonUTW, %Control)
#ENDFOR
#ENDAT
#!
#AT (%WindowEventHandling, 'OpenWindow')
  ?Button_UTW{prop:Key}=UtwKey
#ENDAT
#!
#!----- Кнопка Button_UTW -----
#AT (%ControlPostEventHandling, '?Button_UTW', 'Accepted')
  %UtwProc( %ParamProc )
  ForceRefresh = True
  do RefreshWindow
  select( ?Browse:1 )
#ENDAT

Шаблон  Button_RU            

  Шаблон Button_RU предназначен для реализации кнопки операции "Разутверждения" документа.  Предполагается, что эта кнопка будет расположена в окне Ведомости Документов.

 
#!===============================================================
#CONTROL (Button_RU, 'Кнопка Разутвердить')
#!===============================================================
CONTROLS
  BUTTON,AT(,,16,16),MSG('Разутверждение выделенного документа'),TIP('Разутвердить'),USE(?Button_RU),
ICON('RAZUTW.ICO'), Key('RuKey')
END
#!
#DISPLAY ('')
#DISPLAY ('Кнопка Разутвердить')
#DISPLAY ('')
#BOXED ('Процедура разутверждения:')
  #PROMPT ('Имя процедуры:', PROCEDURE), %RutwProc, REQ
  #PROMPT ('Параметры процедуры:', @s60 ), %ParamProc
#ENDBOXED
#!
#ATSTART
#DECLARE (%ButtonRU)
#FOR (%Control), WHERE(%ControlInstance = %ActiveTemplateInstance)
  #SET (%ButtonRU, %Control)
#ENDFOR
#ENDAT
#!
#AT (%WindowEventHandling, 'OpenWindow')
  ?Button_RU{prop:Key}=RUtwKey
#ENDAT
#!
#! ----- Кнопка Button_RU ------
#AT (%ControlPostEventHandling, '?Button_RU', 'Accepted')
  %RutwProc( %ParamProc )
  ForceRefresh = True
  do RefreshWindow
  select( ?Browse:1 )
#ENDAT