|
|
| Строка 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
