FILL U N — различия между версиями
Материал из Фабиус wiki
Hisava (обсуждение | вклад) м |
Hisava (обсуждение | вклад) м (→Текст программы) |
||
| Строка 25: | Строка 25: | ||
// уровень второй | // уровень второй | ||
| − | if !Empty( kinddoc ) | + | if ![[Empty]]( kinddoc ) |
[[AddAll]]( '[[U_N]]', '2', ( doc )->RGNUM,, { 'CATTR1' }, { { kinddoc } },, ( doc )->( [[GetForm]]( [[GetArea]]() ) ), ~IsRepl := false ) | [[AddAll]]( '[[U_N]]', '2', ( doc )->RGNUM,, { 'CATTR1' }, { { kinddoc } },, ( doc )->( [[GetForm]]( [[GetArea]]() ) ), ~IsRepl := false ) | ||
endif | endif | ||
| + | |||
= Смотрите также = | = Смотрите также = | ||
[[Полезные функции]] | [[Полезные функции]] | ||
[[Функции Delphi]] | [[Функции Delphi]] | ||
Версия 08:42, 26 мая 2017
FILL_U_N - это программа из справочника R266
Заполнить документ U_N
FILL_U_N( kinddoc )
kinddoc - тип документа
Пример
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
