Заказ звонка

Закрыть

*
*
*

Диалог Перечень ПСп

Страницы: 1
RSS
Диалог Перечень ПСп
Доброго всем дня! smile:)

Недавно начал разбираться с TCS, поэтому просьба помочь в решении простой задачки.
Мне нужно вывести диалог "Перечень ПСп" по выбранной производственной спецификации. Как это лучше сделать?
Добрый день!

Не очень понятно, в чём вопрос?
Как открыть Перечень ПСп? Выберите нужную ПСп,нажмите на панели управления Редактировать или Просмотр и в открывшемся окне выберите закладку "Перечень ПСп".

Альтернативный вариант: выберите ПСп, нажмите на панели управления Показать зависимые объекты и в окне зависимых объектов (внизу) выберите на панели управления или с помощью контекстного меню Перечень ПСп.

Или Вам это нужно через API в своей программе сделать?
Вопрос программирования в TCS, а не работы в TCS:) Я полагал, что данная секция форума посвящена этому. smile:(

Цитата
Или Вам это нужно через API в своей программе сделать?


Я предполагал, что API уже есть для реализации моей задачки. Если нет, то видимо придется его писать.smile:(

Еще раз повторю и более подробно распишу задачу:
1. Нужно чтобы пользователь выбрал ПСп из "Списка ПСп"
2. Нажал на кнопку, к примеру "Выбрать перечень ПСп"
3. Ему выдался диалог с перечнем ПСп. Примечание: Аналогичная информация, отображается на вкладке "Перечень ПСп", но нужно её отображать в диалоговом окне, для дальнейшего выбора.

Просьба подсказать такой api или подсказать, как написать такой api
Изменено: Антон Васильев - 06.12.2010 15:56:10
Как-то так:
Код
Sub FormMacro_Test(TCSActiveModule)
    
    Dim ProductionBOM1
    Dim ProductionBOMList1
    Dim I

    Set ProductionBOM1 = TCSApp.Manufacturing.ProductionBOM
    ProductionBOM1.UserModuleName = ProductionBOM1.UniqueUserModuleName
    
    If ProductionBOM1.RunModuleForSelect("Выберите производственную спецификацию", False) Then
        Set ProductionBOMList1 = ProductionBOM1.Properties("ProductionBOMList").AsIDispatch
        I = ProductionBOMList1.ShowModal("Перечень ПСп")
        
        If I = 1 Then
        End If
        
        Set ProductionBOMList1 = Nothing
    End If                             
    
    
    TCSApp.DeleteModuleByUserModuleName( ProductionBOM1.UserModuleName )
    Set ProductionBOM1 = Nothing
    
End Sub

Перечень ПСП
Список ПСП
Все оказывается намного проще, чем я думал. Спасибо
Страницы: 1
Читают тему (гостей: 1, пользователей: 0, из них скрытых: 0)