FILL U N — различия между версиями
Материал из Фабиус wiki
Hisava (обсуждение | вклад) м |
Hisava (обсуждение | вклад) м (→Текст программы) |
||
| Строка 21: | Строка 21: | ||
// добавить уровень первый | // добавить уровень первый | ||
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() ) | ||
if Empty( ( doc )->AUTOID ) | if Empty( ( doc )->AUTOID ) | ||
| − | AddAll( 'U_N', '1', " ",, { 'DATDOC' }, { { data } },,,, Year( data ), Month( data ),,, false,, flt ) | + | [[AddAll]]( 'U_N', '1', " ",, { 'DATDOC' }, { { data } },,,, Year( data ), Month( data ),,, false,, flt ) |
endif | endif | ||
( 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 | ||
Версия 13:56, 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
