FILL U N — различия между версиями
Материал из Фабиус wiki
Hisava (обсуждение | вклад) (Новая страница: «FILL_U_N - это программа из справочника R266 = Смотрите также = Функции Delphi Полезные функ…») |
Hisava (обсуждение | вклад) м |
||
| Строка 1: | Строка 1: | ||
FILL_U_N - это программа из справочника [[R266]] | 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 | ||
= Смотрите также = | = Смотрите также = | ||
Версия 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
