FILL U N - История изменений

Hisava в 09:46, 28 ноября 2018

2018-11-28T09:46:01Z

Hisava: /* Пример */

2017-05-26T05:42:57Z

‎Пример

Hisava: /* Текст программы */

2017-05-26T05:42:12Z

‎Текст программы

Hisava в 05:42, 26 мая 2017

2017-05-26T05:42:03Z

Hisava: /* Смотрите также */

2017-01-23T07:27:13Z

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

Hisava: /* Текст программы */

2016-09-01T11:29:43Z

‎Текст программы

Hisava: /* Текст программы */

2016-09-01T11:29:14Z

‎Текст программы

Hisava в 11:28, 1 сентября 2016

2016-09-01T11:28:43Z

Hisava в 11:28, 1 сентября 2016

2016-09-01T11:28:31Z

Hisava: /* Текст программы */

2016-09-01T11:24:19Z

‎Текст программы

@@ Строка 6: / Строка 6: @@
 = Пример =
   [[FILL_U_N]]( 'RTH' )
 = Смотрите также =
 [[Полезные функции]]
 [[Функции Delphi]]

@@ Строка 5: / Строка 5: @@
 kinddoc - тип документа
 = Пример =
-  FILL_U_N( 'RTH' )
+  [[FILL_U_N]]( 'RTH' )
 = Текст программы =
   parameters kinddoc

@@ Строка 25: / Строка 25: @@
   // уровень второй
-  if !Empty( kinddoc )
+  if ![[Empty]]( kinddoc )
     [[AddAll]]( '[[U_N]]', '2', ( doc )->RGNUM,, { 'CATTR1' }, { { kinddoc } },, ( doc )->( [[GetForm]]( [[GetArea]]() ) ), ~IsRepl := false )
   endif
 = Смотрите также =
 [[Полезные функции]]
 [[Функции Delphi]]

@@ Строка 1: / Строка 1: @@
-FILL_U_N - это программа из справочника [[R266]]
+[[FILL_U_N]] - это программа из справочника [[R266]]
+ Заполнить документ [[U_N]]
-Заполнить документ [[U_N]]
+[[FILL_U_N]]( kinddoc )
-−
 FILL_U_N( kinddoc )
 kinddoc - тип документа
 = Пример =
   FILL_U_N( 'RTH' )
 = Текст программы =
   parameters kinddoc
   local flt, data, doc
-  data := Date()
+  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 := [[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 )
-    [[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
-  ( doc )->( Refresh() )
+  ( doc )->( [[Refresh]]() )
-  ( doc )->( DbGoTop() )
+  ( doc )->( [[DbGoTop]]() )
   // уровень второй
   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
 [[Функции Delphi]]

@@ Строка 36: / Строка 36: @@
 = Смотрите также =
 [[Функции Delphi]]
 [[Полезные функции]]

@@ Строка 20: / Строка 20: @@
   // добавить уровень первый
-  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 )->( SetFilter( flt ) )