FILL U N

Материал из Фабиус wiki
Версия от 13:56, 1 сентября 2016; Hisava (обсуждение | вклад) (Текст программы)

Перейти к: навигация, поиск

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

Смотрите также

Функции Delphi

Полезные функции