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

Материал из Фабиус wiki
Перейти к: навигация, поиск
м
м
 
(не показано 7 промежуточных версий этого же участника)
Строка 1: Строка 1:
−
FILL_U_N - это программа из справочника [[R266]]
+
[[FILL_U_N]] - это программа из справочника [[R266]]
−
 
+
Заполнить документ [[U_N]]
−
Заполнить документ [[U_N]]
+
[[FILL_U_N]]( kinddoc )
−
 
+
−
FILL_U_N(kinddoc)
+
  
 
kinddoc - тип документа
 
kinddoc - тип документа
−
 
 
= Пример =
 
= Пример =
−
 
+
  [[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

Источник — «https://wiki.sftserv.ru/index.php?title=FILL_U_N&oldid=32305»