Клуб Логистов | Логист.ру - Печатать страницу

Клуб Логистов | Логист.ру
https://old.logist.ru/archive/YaBB.cgi
Практика >> Информационные технологии в логистике >> Модуль АВС-XYZ анализа для 1С 7.7.
https://old.logist.ru/archive/YaBB.cgi?num=1139139148

Сообщение написано Алексей Павлов 05.02.2006 :: 14:32:26

Заголовок: Модуль АВС-XYZ анализа для 1С 7.7.
Создано Алексей Павлов 05.02.2006 :: 14:32:26

Уважаемые коллеги!
Есть ли у кого модуль АВС-XYZ анализа для 1С торговля и склад 7.7 в виде отдельного отчета. Не хочется изобретать велосипед просто. Готов обсудить варианты получения.

Заголовок: Re: Модуль АВС-XYZ анализа для 1С 7.7.
Создано Валерий 20.03.2006 :: 17:47:58

В готовом варианте вы навряд ли найдёте эти анализы для вашей структуры данных. Могу предложить как вариант выгружать данные в Ехсель, и работать с ними уже там. Для XYZ-анализа в Ехселе есть встроенная функция для рассчёта среднего квадратичного отклонения: СРОТКЛ(массив данных). Для АВС-анализа же у меня есть написанная на ВБА для Ехселя функция (единственное, массив данных перед использованием надо отсортировать по убыванию - не стал с этим заморачиваться в функции):

Function ABC(diapazon As Range) As String
'выдаёт значения, с которых начинаются группы B и C АВС-анализа
'позиции должны стоять в порядке убывания количественного параметра
Dim i As Integer
Dim yachejka As Range
Dim sum As Single
Dim v_ya As Single
Dim temp As Single
Dim maxnov As Integer
Dim b As Single
Dim j As Integer
Dim c As Single
sum = 0
maxnom = 0
temp = 0
i = 0
For Each yachejka In diapazon
sum = sum + yachejka.Value
maxnom = maxnom + 1
Next yachejka
Do
i = i + 1
v_ya = diapazon.Cells(i, 1)
temp = temp + v_ya
Loop While (temp / sum + i / maxnom) <= 1
b = v_ya
j = i
Do
j = j + 1
v_ya = diapazon.Cells(j, 1)
temp = temp + v_ya
Loop While ((temp - b) / (sum - b) + (j - i) / (maxnom - i)) <= 1
c = v_ya
ABC = "Группа B начинается с: " & b & " Группа C начинается с: " & c
End Function

Заголовок: Re: Модуль АВС-XYZ анализа для 1С 7.7.
Создано Ким Виктор 08.09.2011 :: 04:14:54

У меня есть, но не даром...