CREATE PLAN NHC 3 - История изменений

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

2020-08-18T08:36:07Z

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

Hisava в 06:49, 27 июля 2017

2017-07-27T06:49:47Z

Hisava в 06:49, 27 июля 2017

2017-07-27T06:49:37Z

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

2017-02-06T08:28:35Z

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

Hisava в 07:34, 21 апреля 2016

2016-04-21T07:34:39Z

Hisava в 07:34, 21 апреля 2016

2016-04-21T07:34:13Z

Hisava: Новая страница: «CREATE_PLAN_NHC_3 - это функция из справочника R266 = Полный текст функции = parameters kod local fld, active, …»

2016-04-21T07:33:58Z

Новая страница: «CREATE_PLAN_NHC_3 - это функция из справочника R266 = Полный текст функции = parameters kod local fld, active, …»

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

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

= Полный текст функции =

parameters kod

local fld, active, _, sql, aa

active := Active_Rec( kod )

fld := ' _1,C,4; _2,N,5; _3,C,30; _4,N,14,4; '

try
_ := CreateTmpFile( fld, '_', ~IsFreeDel := true )

sql := [ Select REFL, KOD, TON_AMNT From R71 Where KODPROD = ] + kod + [ and VAR_NUM = ] + active
SimpleSql( [ Insert into ] + TmpFilePath( _ ) + [( _1, _2, _4 ) ] + sql, ReflisPath )

// r08
sql := [ Update _ Set _3 = Left( PNAME, 30 ) From ] + TmpFilePath( _ ) + [ _ left outer join R08 ON _2 = KOD Where _1 = 'R08 ' ]
SimpleSql( sql, ReflisPath )

// r11
sql := [ Update _ ;
Set _3 = Left( PNAME, 30 ) ;
From ] + TmpFilePath( _ ) + [ _ ;
left outer join R11 ON _2 = KOD ;
Where _1 = 'R11 ' ]
SimpleSql( sql, ReflisPath )

( _ )->( DbGoTop() )
while !( _ )->( eof() )
if ( _ )->_1 = 'R11 '
aa := StrTran( str( Round( ( _ )->_4 * R11Wght( ( _ )->_2 ), 4 ) ) , ',', '.' )
sql := [ Select REFL, KOD, Round( TON_AMNT * ] + aa + [ / 1000, 4 );
From R71 ;
Where KODPROD = ] + ( _ )->_2 + [ and VAR_NUM = ] + Active_Rec( ( _ )->_2 )
SimpleSql( [ Insert into ] + TmpFilePath( _ ) + [( _1, _2, _4 ) ;
] + sql, ReflisPath )
endif
( _ )->( DbSkip() )
end

// в результате возвращаю массив
sql := [ Select _2, Sum( _4 ) _4 ;
From ] + TmpFilePath( _ ) + [ ;
Where _1 = 'R08 ' ;
Group by _2 ]
aa := SqlToArr( sql, { '_2', '_4' } )

if !IsEmpty( aa )
result := aa
endif

finally
CloseTable( _ )
end

// _1 - справочник
// _2 - код
// _3 - наименование
// _4 - количество на тонну TON_AMNT

← Предыдущая		Версия 08:36, 18 августа 2020
Строка 64:		Строка 64:

	[[CREATE_PLAN_NHC]]		[[CREATE_PLAN_NHC]]
−
−	~~[[Полезные функции]]~~
−
−	~~[[Функции Delphi]]~~

@@ Строка 60: / Строка 60: @@
   // _3 - наименование
   // _4 - количество на тонну TON_AMNT
 = Смотрите также =
 [[CREATE_PLAN_NHC_2]]

@@ Строка 1: / Строка 1: @@
-CREATE_PLAN_NHC_3 - это функция из справочника [[R266]]
+[[CREATE_PLAN_NHC_3]] - это функция из справочника [[R266]]
+ Вернуть рецептуру распакованным массивом
-Вернуть рецептуру распакованным массивом
+= Текст =
-−
-= Полный текст функции =
-−
   parameters kod
@@ Строка 65: / Строка 62: @@
 = Смотрите также =
-[[Функции Delphi]]
+[[CREATE_PLAN_NHC_2]]
-−
-[[Полезные функции]]
 [[CREATE_PLAN_NHC]]
-[[CREATE_PLAN_NHC_2]]
+[[Полезные функции]]

@@ Строка 65: / Строка 65: @@
 = Смотрите также =
 [[CREATE_PLAN_NHC]]
 [[CREATE_PLAN_NHC_2]]

← Предыдущая		Версия 07:34, 21 апреля 2016
Строка 63:		Строка 63:
	// _3 - наименование		// _3 - наименование
	// _4 - количество на тонну TON_AMNT		// _4 - количество на тонну TON_AMNT
		+
		+	= Смотрите также =
		+
		+	[[CREATE_PLAN_NHC]]
		+
		+	[[CREATE_PLAN_NHC_2]]

← Предыдущая		Версия 07:34, 21 апреля 2016
Строка 1:		Строка 1:
	CREATE_PLAN_NHC_3 - это функция из справочника [[R266]]		CREATE_PLAN_NHC_3 - это функция из справочника [[R266]]
		+
		+	Вернуть рецептуру распакованным массивом

	= Полный текст функции =		= Полный текст функции =