(изменено: Дмитрий Гамий, 3 декабря 2010 16:13:18)

Тема: Исчезают данные после команды "Обновить"

Ситуация следующая: в форме ввода в отдельной процедуре  создаю пользовательский набор данных и отображаю его на модуле AxForm.
Вот код этой процедуры:

Sub ReadDeficitData(AForm, ByVal ACalcDocId)
    ' AForm - форма ввода
    ' AProdBOMId - ИД расчётного документа вида "Ведомость потребностей"
    Const URS_NOTE = "DeficitFromDemandSheet"
    Const URS_NAME = "Дефицит по ведомости потребностей"
    Const PAR_NAME = "CALCDOC_ID"    
    
    Set ursDeficit = TCSApp.UserRecordSet(URS_NOTE, True, PAR_NAME, ACalcDocId)
    If Not ursDeficit Is Nothing Then
        CSU_Common.CreateModule(ursDeficit)        
        
        ursDeficit.Show(AForm.Controls(c_adbfDeficit))
    Else
        TCSApp.ShowErrorMessage "Ошибка доступа к набору данных:" & _
            vbCrLf & URS_NOTE & " - " & URS_NAME                
    End If ' If Not ursDeficit Is Nothing  
    
End Sub ' >>>> ReadDeficitData(AForm, ByVal ACalcDocId)

Процедура CSU_Common.CreateModule "запоминает" экземпляр объекта по уникальному имени:

Sub CreateModule(XModule)
    'XModule - любой модуль, который наследуется от IModule2
    On Error resume Next
    
    XModule.UserModuleName = XModule.UniqueUserModuleName
    
End Sub

Во время работы макроса, если выполнить обновление данных (т.е. команду "Обновить"), эти самые данные пропадают.
Подскажите, пожалуйста, что сделать, чтобы данные после обновления не исчезали?

Re: Исчезают данные после команды "Обновить"

А если этот запрос открыть в TechnologiCS и нажать F5 - что будет?

Re: Исчезают данные после команды "Обновить"

Если открыть запрос в зависимом объекте "Результаты запроса" справочника "Наборы данных" и обновить, то данные не исчезают.

(изменено: Дмитрий Гамий, 6 декабря 2010 12:22:13)

Re: Исчезают данные после команды "Обновить"

Что интересно, если создать этот же запрос и показать его модально, то он вообще пустой открывается...

Re: Исчезают данные после команды "Обновить"

Давайте запрос ваш для экспериментов, пока не наблюдаем никаких проблем.

(изменено: Дмитрий Гамий, 6 декабря 2010 12:52:59)

Re: Исчезают данные после команды "Обновить"

Упс, с этим ошибочка вышла:

Что интересно, если создать этот же запрос и показать его модально, то он вообще пустой открывается...

Не тот ИД подставил.

Запрос во вложении. В него нужно передать параметр "CALCDOC_ID" значение идентификатора расчётного документа.

Post's attachments

Query.ieQueries 1.37 Кб, файл не был скачан. 

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