Объявление

Свернуть
Пока нет объявлений.

ComboBox c Attach to In-Place Selection

Свернуть
X
  • Фильтр
  • Время
  • Показать
Очистить всё
новые сообщения

  • ComboBox c Attach to In-Place Selection

    Создаю на форме ComboBox c Attach to In-Place Selection наполе из справочника есть две проблемы:
    1. Если такая ссылка на поле справочника типа "Drop down list" то в место значеня н экран подтягивает внутрений код записи, как отобразить значение ?
    2. В списке нет полей с типом Date, Float. Что сделать, что бы были ?

  • #2
    Re: ComboBox c Attach to In-Place Selection

    Сообщение от razhev
    2. В списке нет полей с типом Date, Float. Что сделать, что бы были ?
    Нашел ответ в документаци, что Attach to In-Place Selection поддерживает только Text, Drop Down List.

    В связи с этим вопрос, как вытянуть скриптом из конкретной записи в справочнике нужное поле в ComboBox, Edit ?

    Комментарий


    • #3
      Re: ComboBox c Attach to In-Place Selection

      Сообщение от razhev
      В связи с этим вопрос, как вытянуть скриптом из конкретной записи в справочнике нужное поле в ComboBox, Edit ?
      Решение вобщем такое, если кому нужно будет:
      На форме на событие OnAfterFieldChanged
      Код:
      If ChangedField = "Wife Name" And ChangedFieldByUserAction Then ' если поле изменено вручную
          StoreField "Wife Name"
          If Not ActiveRequest.UserFields("Wife Name").IsNull Then
                If Not ActiveRequest.UserFields("Wife Name").TValue.UserFields("Passport date").IsNull Then
                   Edit6.Text = ActiveRequest.UserFields("Wife Name").TValue.UserFields("Passport date").TValue
                Else
                   Edit6.Text = ""
                End If
           Else
              Edit6.Text = ""
           End If
      End If

      На форме на событие OnOpen

      Код:
      If Not ActiveRequest.UserFields("Wife Name").IsNull Then
                If Not ActiveRequest.UserFields("Wife Name").TValue.UserFields("Passport date").IsNull Then
                   Edit6.Text = ActiveRequest.UserFields("Wife Name").TValue.UserFields("Passport date").TValue
                Else
                   Edit6.Text = ""
                End If
           Else
              Edit6.Text = ""
           End If

      Комментарий

      Обработка...
      X