RECALCUTHSUM R08 - История изменений

Hisava: /* Текст */

2017-07-17T12:50:32Z

‎Текст

2017-07-17T12:50:11Z

2016-10-19T05:25:55Z

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

2016-10-19T05:25:17Z

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

2016-10-19T05:25:09Z

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

2016-10-19T05:25:04Z

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

2016-10-19T05:24:59Z

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

2016-10-19T05:24:54Z

2016-10-19T05:24:05Z

2016-10-19T05:23:52Z

Новая страница: «RECALCUTHSUM_R08 - это функция из справочника R266»

Новая страница

RECALCUTHSUM_R08 - это функция из справочника [[R266]]

@@ Строка 19: / Строка 19: @@
   for i := 1 to [[Len]]( sr )
     ( ga )->( [[DbGoTo]]( sr[i] ) )
-    uth2 := [[OpenChildDoc]]( 'UTH', '2', ( ga )->RGNUM )
+    uth2 := [[OpenChildDoc]]( '[[UTH]]', '2', ( ga )->RGNUM )
     if ( uth2 )->DREFL2 = 'R08 '
       ( uth2 )->ALLPRICE := [[R473PRICE_WO_SUPPL]]( ( uth2 )->DANAL2, ( uth2 )->DATDOC )
@@ Строка 26: / Строка 26: @@
   [[MakePrvs]]( ga,, 3 )
 = Смотрите также =
 [[Полезные функции]]
 [[Функции Delphi]]

@@ Строка 1: / Строка 1: @@
-RECALCUTHSUM_R08 - это функция из справочника [[R266]]
+[[RECALCUTHSUM_R08]] - это функция из справочника [[R266]]
+ Пересчитать цены на сырье по выделенным документам [[UTH]]
-Пересчитать цены на сырье по выделенным документам [[UTH]]
+[[RECALCUTHSUM_R08]]()
 = Текст =
-= Текст программы =
-−
   local ga, sr, i, uth2
@@ Строка 28: / Строка 26: @@
   [[MakePrvs]]( ga,, 3 )
 = Смотрите также =
 [[Функции Delphi]]

@@ Строка 15: / Строка 15: @@
   endif
-  if !YesNo( 'Вы уверены, что хотите изменить цены в выбранных накладных?', false )
+  if ![[YesNo]]( 'Вы уверены, что хотите изменить цены в выбранных накладных?', false )
     return
   endif
-  for i := 1 to Len( sr )
+  for i := 1 to [[Len]]( sr )
-    ( ga )->( DbGoTo( sr[i] ) )
+    ( ga )->( [[DbGoTo]]( sr[i] ) )
-    uth2 := OpenChildDoc( 'UTH', '2', ( ga )->RGNUM )
+    uth2 := [[OpenChildDoc]]( 'UTH', '2', ( ga )->RGNUM )
     if ( uth2 )->DREFL2 = 'R08 '
-      ( uth2 )->ALLPRICE := R473PRICE_WO_SUPPL( ( uth2 )->DANAL2, ( uth2 )->DATDOC )
+      ( uth2 )->ALLPRICE := [[R473PRICE_WO_SUPPL]]( ( uth2 )->DANAL2, ( uth2 )->DATDOC )
     endif
   next

@@ Строка 10: / Строка 10: @@
   sr := [[SelRows]]( [[GetForm]]( ga ) )
-  if IsEmpty( sr )
+  if [[IsEmpty]]( sr )
-    Message( 'Выберите документы для пересчета цен ( ALT+F1, ALT+F2 )' )
+    [[Message]]( 'Выберите документы для пересчета цен ( ALT+F1, ALT+F2 )' )
     return
   endif

@@ Строка 8: / Строка 8: @@
   ga := [[GetArea]]()
-  sr := [[SelRows]]( GetForm( ga ) )
+  sr := [[SelRows]]( [[GetForm]]( ga ) )
   if IsEmpty( sr )

@@ Строка 7: / Строка 7: @@
   local ga, sr, i, uth2
-  ga := GetArea()
+  ga := [[GetArea]]()
   sr := SelRows( GetForm( ga ) )

← Предыдущая		Версия 05:24, 19 октября 2016
Строка 1:		Строка 1:
	RECALCUTHSUM_R08 - это функция из справочника [[R266]]		RECALCUTHSUM_R08 - это функция из справочника [[R266]]
		+
		+	Пересчитать цены на сырье по выделенным документам [[UTH]]
		+
		+	= Текст программы =
		+
		+	local ga, sr, i, uth2
		+
		+	ga := GetArea()
		+	sr := SelRows( GetForm( ga ) )
		+
		+	if IsEmpty( sr )
		+	Message( 'Выберите документы для пересчета цен ( ALT+F1, ALT+F2 )' )
		+	return
		+	endif
		+
		+	if !YesNo( 'Вы уверены, что хотите изменить цены в выбранных накладных?', false )
		+	return
		+	endif
		+
		+	for i := 1 to Len( sr )
		+	( ga )->( DbGoTo( sr[i] ) )
		+	uth2 := OpenChildDoc( 'UTH', '2', ( ga )->RGNUM )
		+	if ( uth2 )->DREFL2 = 'R08 '
		+	( uth2 )->ALLPRICE := R473PRICE_WO_SUPPL( ( uth2 )->DANAL2, ( uth2 )->DATDOC )
		+	endif
		+	next
		+
		+	[[MakePrvs]]( ga,, 3 )

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