• На форуме с 7 марта 2008
  • Сообщений: 30

Re: Странно работает поиск....

Доброе время суток. Интересуюсь параметрами фактической сдачи, хочу их программно добавлять если еще нет, или если есть просто перезаписывать значения запрашиваемыми у пользователя. Пытаюсь найти примеры - ввожу "orderfactparameters", получаю -
Следующие слова в поисковом запросе были проигнорированы, так как являются слишком употребимыми: orderfactparameters.   :lol:

  • На форуме с 2 декабря 2003
  • Сообщений: 125

Re: Странно работает поиск....

это значит ничего не найдено smile
если сейчас тоже самое попробовать - найдёт Ваше сообщение

  • На форуме с 7 марта 2008
  • Сообщений: 30

Re: Странно работает поиск....

Ясно.... :D 
А както можно программно добавить параметры фактической сдачи?
Я делаю следующее, с вкладки

Фактическое изготовление

запускается макрос, который запрашивает значения параметров и проставляет их. Делаю через ChildModules,

Sub FormMacro_insertParam(TCSActiveModule) 
Dim FI_NNar
Dim FI_Data
Dim FI_Razr
Dim FI_EdNorm
Dim FI_POpBr
Dim FI_NBrig
Dim FI_KUR
Set chModules = TCSActiveModule.ChildModules.ModuleByName("OrderFactParameters").AsIDispatch
'I = chModules.ShowModal("")
chModules.First

Do While Not chModules.Eof 
    Call TCSApp.ShowMessageBox("Сообщение", chModules.Properties("PAR_NAME").AsString)
   
    Select Case chModules.Properties("PAR_NAME").AsString
        Case   "№ наряда"
        '  запрашиваем значение и проставляем

        ...................



    End Select
   
   
   
    chModules.Next         
Loop 

Set chModules = Nothing


End Sub

Как добавить соотв параметр, если его еще нет?

  • На форуме с 7 марта 2008
  • Сообщений: 30

Re: Странно работает поиск....

пардон, последний вопрос надо было наверное в новую тему вынести... Что я и делаю...