Объявление

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

скрипт на изменение данных

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

  • скрипт на изменение данных

    Ребят всем Привет!
    Мне необходимо изменение данных сотрудников в их карточке. А точнее номера телефона. В веб форму добавил reference to object (UserP) и Новый номер телефона (NewPhone). При изменении тел номера человек должен выбрать кому поменял номер и на какой, чтобы старый номер телефона (PhoneWork) стерся и стал новый номер (NewPhone). Скрипт на изменение данных:
    Sub create_Save_button
    'создаем объект по UniqueID
    Set objActiveRequest = ActiveSession.GetRequestByUniqueID(ScriptParameter s.userdata) '
    If objActiveRequest.UserFields("UserР").Value <> "" And objActiveRequest.UserFields("NewPhone").Value <> "" Then
    Set secs = objActiveRequest.UserFields("PhoneWork").TValue
    secs.Add objActiveRequest.UserFields("NewPhone").TValue
    Set objActiveRequest.UserFields("PhoneWork").TValue = secs
    objActiveRequest.UserFields("NewPhone").Value = ""
    End If
    'сохраняем постоянный объект
    objActiveRequest.SaveEx 257
    'открываем постоянный объект
    PerformAction.OpenObject objActiveRequest, False, True
    End Sub

    Посоветуйте пожалуйста что не так делаю и как можно сделать?

  • #2
    Если у Вас PhoneWork имеет тип memo, данный скрипт дозаписывает в него новую секцию со значением поля NewPhone
    Для удаления списка PhoneWork используйте цикл
    for j = 0 to secs.Count-1
    secs(j).text = ""
    next
    Set objActiveRequest.UserFields("PhoneWork").TValue = secs

    Комментарий


    • #3
      Сообщение от yuriy_tula Посмотреть сообщение
      Если у Вас PhoneWork имеет тип memo, данный скрипт дозаписывает в него новую секцию со значением поля NewPhone
      Для удаления списка PhoneWork используйте цикл
      for j = 0 to secs.Count-1
      secs(j).text = &quot;&quot;
      next
      Set objActiveRequest.UserFields(&quot;PhoneWork&quot.TValue = secs
      нет, у меня тип text

      Комментарий


      • #4
        По Вашему скрипту в поле PhoneWork добавляется новая секция со значением из поля NewPhone. Для того, чтобы в поле PhoneWork оставалась только последняя запись, надо удалить из него предыдущие секции.

        Комментарий

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