FILL U N — различия между версиями
Материал из Фабиус wiki
Hisava (обсуждение | вклад) м |
Hisava (обсуждение | вклад) м (→Текст программы) |
||
| Строка 20: | Строка 20: | ||
// добавить уровень первый | // добавить уровень первый | ||
| − | flt := [ KINDDOC = 'U_N' and LVLNUM = '1' and [[DtoS]]( DATDOC ) = '] + [[DtoS]]( data ) + [' ] | + | 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 := [[OpenChildDoc]]( '[[U_N]]', '1', ~ParentForm := "", ~IsCondition := false, ~Month := Month( data ), ~Year := Year( data ) ) |
( doc )->( SetFilter( flt ) ) | ( doc )->( SetFilter( flt ) ) | ||
( doc )->( Refresh() ) | ( doc )->( Refresh() ) | ||
| Строка 32: | Строка 32: | ||
// уровень второй | // уровень второй | ||
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 | ||
Версия 14:29, 1 сентября 2016
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
