FILL U N — различия между версиями

Материал из Фабиус wiki
Перейти к: навигация, поиск
м (Пример)
м
 
Строка 6: Строка 6:
 
= Пример =
 
= Пример =
 
  [[FILL_U_N]]( 'RTH' )
 
  [[FILL_U_N]]( 'RTH' )
 
= Текст программы =
 
parameters kinddoc
 
 
local flt, data, doc
 
 
data := [[Date]]()
 
 
// добавить уровень первый
 
flt := [ KINDDOC = '[[U_N]]' and LVLNUM = '1' and [[DtoS]]( DATDOC ) = '] + [[DtoS]]( data ) + [' ]
 
doc := [[OpenChildDoc]]( '[[U_N]]', '1', ~ParentForm := "", ~IsCondition := false, ~Month := [[Month]]( data ), ~Year := [[Year]]( data ) )
 
( doc )->( [[SetFilter]]( flt ) )
 
( doc )->( [[Refresh]]() )
 
if Empty( ( doc )->AUTOID )
 
  [[AddAll]]( '[[U_N]]', '1', " ",, { 'DATDOC' }, { { data } },,,, [[Year]]( data ), [[Month]]( data ),,, false,, flt )
 
endif
 
( doc )->( [[Refresh]]() )
 
( doc )->( [[DbGoTop]]() )
 
 
// уровень второй
 
if ![[Empty]]( kinddoc )
 
  [[AddAll]]( '[[U_N]]', '2', ( doc )->RGNUM,, { 'CATTR1' }, { { kinddoc } },, ( doc )->( [[GetForm]]( [[GetArea]]() ) ), ~IsRepl := false )
 
endif
 
 
 
= Смотрите также =
 
= Смотрите также =
 
[[Полезные функции]]
 
[[Полезные функции]]
  
 
[[Функции Delphi]]
 
[[Функции Delphi]]

Текущая версия на 12:46, 28 ноября 2018

FILL_U_N - это программа из справочника R266

Заполнить документ U_N

FILL_U_N( kinddoc )

kinddoc - тип документа

Пример

FILL_U_N( 'RTH' )

Смотрите также

Полезные функции

Функции Delphi