Рич-текст поле + атачменти

Тема в разделе "Lotus - Программирование", создана пользователем Cleric-Lviv, 17 май 2010.

  1. Cleric-Lviv

    Cleric-Lviv Lotus team
    Lotus team

    Регистрация:
    3 янв 2008
    Сообщения:
    605
    Симпатии:
    0
    Всем привет.
    ступор напал, незнаю как побороть:)

    вобщем вопрос таков:
    есть на кверисейв кодик, которий помогает делать, версийность документа, должен старий документ бросать в архив. делать ето он умеет но вот незадача что если в поле есть более 1 атачмента, то в архиве есть 2 и больше документов.....как ето побороть...???
    Код (Text):
    Set itemcd = CopyDoc.GetFirstItem("DocContainer")      
    If Not itemcd Is Nothing Then
    If ( itemcd.Type = RICHTEXT ) Then
    If Not(Isempty(itemcd.EmbeddedObjects)) Then
    Forall ob In itemcd.EmbeddedObjects                        
    If ob.Type = EMBED_ATTACHMENT Then
    Set docdst = CopyDoc.CopyToDatabase( dbdst )
    docdst.form = "moveddoc"
    Call docdst.save(True, True)
    Call CopyDoc.ReplaceItemValue("Archive", 1)
    Call CopyDoc.ReplaceItemValue("form", "archdoc")
    Set dccopdoc = CopyDoc.Responses
    '   Msgbox dccopdoc.Count
    Call ob.Remove
    Call itemcd.AppendDocLink(docdst, "")
    End If
    End Forall
    End If
    End If
    End If
     
  2. lmike

    lmike нет, пердело совершенство
    Команда форума Lotus team

    Регистрация:
    27 авг 2008
    Сообщения:
    6.081
    Симпатии:
    300
    Set docdst = CopyDoc.CopyToDatabase( dbdst )
    не делать это в цикле
    да и ваще смысл цикла мне не ясен (в данном контексте)
     
  3. Cleric-Lviv

    Cleric-Lviv Lotus team
    Lotus team

    Регистрация:
    3 янв 2008
    Сообщения:
    605
    Симпатии:
    0
    lmike


    кажется понял........щас попробую.....
     
Загрузка...

Поделиться этой страницей