FILL U N — различия между версиями
Материал из Фабиус wiki
Hisava (обсуждение | вклад) м (→Смотрите также) |
Hisava (обсуждение | вклад) м |
||
| Строка 1: | Строка 1: | ||
| − | FILL_U_N - это программа из справочника [[R266]] | + | [[FILL_U_N]] - это программа из справочника [[R266]] |
| − | + | Заполнить документ [[U_N]] | |
| − | Заполнить документ [[U_N]] | + | [[FILL_U_N]]( kinddoc ) |
| − | + | ||
| − | FILL_U_N( kinddoc ) | + | |
kinddoc - тип документа | kinddoc - тип документа | ||
| − | |||
= Пример = | = Пример = | ||
| − | |||
FILL_U_N( 'RTH' ) | FILL_U_N( 'RTH' ) | ||
| − | |||
= Текст программы = | = Текст программы = | ||
| − | |||
parameters kinddoc | parameters kinddoc | ||
local flt, data, doc | local flt, data, doc | ||
| − | data := Date() | + | data := [[Date]]() |
// добавить уровень первый | // добавить уровень первый | ||
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]]() ) |
| − | ( doc )->( DbGoTop() ) | + | ( doc )->( [[DbGoTop]]() ) |
// уровень второй | // уровень второй | ||
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 | ||
| + | = Смотрите также = | ||
| + | [[Полезные функции]] | ||
| − | |||
[[Функции Delphi]] | [[Функции Delphi]] | ||
| − | |||
| − | |||
Версия 08:42, 26 мая 2017
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
