• На форуме с 18 марта 2020
  • Сообщений: 36

Тема: Добавление оборудования / тех.переходов к технологии

Добрый день!

Есть задача - пройтись по всей номенклатуре СБ и ДЕ, у которой есть технологии - и к каждой операции добавить некоторое оборудование по умолчанию и тех.переход по умолчанию.
Есть понимание, что нужно идти по всем номенклатурным единицам, получая их NmkID, получать экземпляр технологии theApp.NmkTechnology( NmkID ), а затем проходить по каждой операции. Тут встаёт несколько вопросов:
1. Нашёл только NmkTech.ShowOperation( OperID ), но он не даёт набор операций. Oper_ID - не влияет вообще ни на что (во всяком случае, в нашей базе)
2. Поиск в справке по API не дал функций, связанных с операциями. Сложно понять, как добавить оборудование не к номенклатуре, не к технологии, а к операции. Честно говоря, не понятно, как связать и вышеназванные с оборудованием вообще)

Подскажите, пожалуйста, в какую сторону копать

  • Откуда: Новосибирск
  • На форуме с 30 сентября 2003
  • Сообщений: 4,310

Re: Добавление оборудования / тех.переходов к технологии

Здравствуйте!

на мой взляд лучгше что то типа такого.

   'Dim Tp As INmkTechnology
   OperId  = 0
   PerId  = 0
   OborId = 0
   Call Tp.First
   While not TP.Eof
     if Tp.ClassType=CSDN_COnst.ctOperation Then
       if OperId>0 then ' Операция меняется. Проверим переход и оборудование
         if OborId=0 then OborId=Tp.AddNMkToTechnology( КлассОборудования, ИдНоменклатурыОборудования, OperId)

         if PerId=0 then PerId = Tp.AddNMkToTechnology( КлассПерехода, ИдНоменклатурыПерехода, OperId )
       End If
       OperId = Tp.p_ID.AsInteger
       PerId  = 0
       OborId = 0
     End If
     If OperId>0 and Tp.p_OPER_ID.AsSafeInteger=OperId then
       if Tp.ClassType=CSDN_COnst.ctPereshod Then PerId = Tp.p_ID.AsInteger
       if Tp.ClassType=CSDN_COnst.ctOborud Then OborId = Tp.p_ID.AsInteger
     End if
     TP.Next
   Wend
   'Аналогично добавляем при выходе из цикла

Исопльзовали https://help.technologics.ru/7.7/TCSAPI … ype_13.htm,
https://help.technologics.ru/7.7/TCSAPI … ogy_13.htm,
https://help.technologics.ru/7.7/TCSHelp/_791.htm

Спасибо сказали: pavelAgregat731

  • На форуме с 18 марта 2020
  • Сообщений: 36

Re: Добавление оборудования / тех.переходов к технологии

Спасибо, попробую

  • Откуда: Новосибирск
  • На форуме с 30 сентября 2003
  • Сообщений: 4,310

Re: Добавление оборудования / тех.переходов к технологии

Там ошибка в коде все таки. После добавления записей их порядок поменяется.
Так что лучше пробежатться собрать операции без перехода и оборудования, а в конце их добавить.

Для хранения используйте массивы VBScript либо https://help.technologics.ru/7.7/TCSAPI … ngs_13.htm