• На форуме с 27 февраля 2009
  • Сообщений: 28

Тема: Работа со справочником инструментов

У нас ситуация заключается в следующем :в справочнике инструментов для всех инструментов типа Резец,Сверло, Фреза, вороток и т. д. из наименование инструмента нужно вырезать обозначение, т.к исходная запись в справочнике не соответствует ГОСТу.(т.е например вместо Резец 2103-0007 ВК6 ГОСТ 18879-73 должно остаться Резец ВК6 ГОСТ 18879-79),позиций такого типа в справочнике инструментов огромное количество и править каждую вручную не представляется возможным из-за срочности работы,можно ли исправить разом большое количество записей в справочнике? И подскажите, пожалуйста, как и где в программе TechnologiCS можно посмотреть уже имеющиеся скрипты и добавлять свои.
Заранее большое спасибо

Ответ от Алексей Болдырев (изменено: Алексей Болдырев, 27 февраля 2009 13:45:04)

  • Откуда: Ярославль
  • На форуме с 15 декабря 2008
  • Сообщений: 29

Re: Работа со справочником инструментов

Елена Лебедева пишет:

можно ли исправить разом большое количество записей в справочнике?

Можно, Вам нужно написать макрос.

Елена Лебедева пишет:

И подскажите, пожалуйста, как и где в программе TechnologiCS можно посмотреть уже имеющиеся скрипты и добавлять свои.
Заранее большое спасибо

Посмотрите раздел справки "15. Макросы и скриптовые модули" и "21. TechnologiCS API". Также загляните в ветку "Использование TechnologiCS API" данного форума.

  • На форуме с 3 декабря 2008
  • Сообщений: 137

Re: Работа со справочником инструментов

Сейчас выложу вам макрос, доделываю.

Ответ от Алексей Болдырев (изменено: Алексей Болдырев, 27 февраля 2009 14:43:36)

  • Откуда: Ярославль
  • На форуме с 15 декабря 2008
  • Сообщений: 29

Re: Работа со справочником инструментов

Как вариант:

Sub FormMacro_EditName(TCSActiveModule)                   'Исправить наименование у выделенных позиций
Dim NameArray      
    If TCSActiveModule.SelectedRowsCount > 0 Then    
        For i = 0 To TCSActiveModule.SelectedRowsCount - 1    
            If TCSActiveModule.GotoSelectedRow(i) Then
                NameArray = Split(TCSActiveModule.Properties("NAME").AsString, " ")                
                If UBound(NameArray) > 1 Then
                    NameArray(1) = ""
                    Call TCSActiveModule.Edit
                      TCSActiveModule.Properties("NAME").Value = Join(NameArray, " ")
                    On Error Resume Next
                    Call TCSActiveModule.SaveChanges
                    Call TCSActiveModule.CancelChanges                
                End If  
            End If
        Next                                     
    Else
        Call TCSApp.ShowErrorMessage("Выделите хотя бы одну номенклатурную позицию.")
    End If 
End Sub

Выделяете позиции, в которых нужно изменить наименование и запускаете скрипт. Скрипт удалит второе "слово" в наименовании.

  • На форуме с 3 декабря 2008
  • Сообщений: 137

Re: Работа со справочником инструментов

Выкладываю модуль формы режима "Номенклатура". В демобазе он есть, я в него добавила макрос вырезающий Обозначение из Наименования. Вам его надо заменить с помощью импорта. Для этого:
1. Выберите меню "Справочники" - "Скриптовые модули", спозиционируйтесь в дереве классификатора на "Номенклатура" - "Номенклатурный справочник"
2. Далее кнопка (крайняя справа) "Импорт модулей". Укажите файл с модулем формы CSDN_Nomenclatures.eiScript, который скачаете
3. Проставьте галки "Перезаписывать модули" .... (всего 3)
4. Кнопка "Импорт"
Далее можете идти в справочник инструмента и запускать макрос. Он работает по всей номенклатуре грида. Поэтому советую попробовать сначала на какой нибудь немногочисленной ветке.
Макрос вызывается с помощью кнопки "Показать макросы" (на кнопке черный треугольник). Называется "Исключить обозначение из наименования инструмента"

Post's attachments

CSDN_Nomenclatures.eiScript 3.47 Кб, 1 скачиваний с 2009-02-27 

You don't have the permssions to download the attachments of this post.

  • На форуме с 27 февраля 2009
  • Сообщений: 28

Re: Работа со справочником инструментов

Огромнейшее спасибо всем за помощь, все получилось в лучшем виде!!!:lol: