FILL U N — различия между версиями

Материал из Фабиус wiki
Перейти к: навигация, поиск
м
м (Текст программы)
Строка 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

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

Функции Delphi

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