Архив форума

С 28 декабря 2001 года по ... Здесь много вкусного.

Новый форум здесь.

Добро пожаловать, Гость. Пожалуйста, выберите Вход.

20.06.2021 :: 23:46:57

Новости:
Главная | Справка | Поиск | Вход


Модуль АВС-XYZ анализа для 1С 7.7. (Прочитано 6294 раз)
Алексей Павлов
Экс-Участник



Модуль АВС-XYZ анализа для 1С 7.7.
05.02.2006 :: 14:32:26
 
Уважаемые коллеги!
Есть ли у кого модуль АВС-XYZ анализа для 1С торговля и склад 7.7 в виде отдельного отчета. Не хочется изобретать велосипед просто. Готов обсудить варианты получения.
Наверх
 
 
  IP записан
Разгуляев Валерий
Senior Member
****


эксперт по
управлению величиной
запасов

Сообщений: 498
Re: Модуль АВС-XYZ анализа для 1С 7.7.
Ответ #1 - 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
Наверх
 
 
E-mail | WWW | ICQ   IP записан
Ким Виктор
YaBB Newbies
*


Клуб логистов

Сообщений: 1
Re: Модуль АВС-XYZ анализа для 1С 7.7.
Ответ #2 - 08.09.2011 :: 04:14:54
 
У меня есть, но не даром...
Наверх
 
 
E-mail   IP записан