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

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

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

FILL_U_N( kinddoc )

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

Пример

FILL_U_N( 'RTH' )

@@ Строка 1: / Строка 1: @@
-FILL_U_N - это программа из справочника [[R266]]
+[[FILL_U_N]] - это программа из справочника [[R266]]
+ Заполнить документ [[U_N]]
-Заполнить документ [[U_N]]
+[[FILL_U_N]]( kinddoc )
-FILL_U_N( 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]]
-[[Полезные функции]]