RT файлы FP7

[lmike]

после ФП7 аттачи стали отображаться под чертой...

 

[lmike]

код

    Dim rtitem As NotesRichTextItem
    Set rtitem = RemoveAttachments(doc, "body")
    Call doc.Save(True,False,True)'установить прочитанным
   
    '   fname=Replace(fname,{\},{/})
    fname=Replace(fname,{/},{\})'Windows specific
    If ( rtitem.Type = RICHTEXT ) Then
        Call rtitem.EmbedObject( EMBED_ATTACHMENT,{} , fname, fnam(0))
        Call doc.Save(True, False)
        If worddoc Is Nothing Then
            Dim res, run As String
            'run={cmd.exe /C start "} &fname &{"}
            run={cmd.exe /C ""} &fname &{""}
            Print {Shell calling...}, run
            res=Shell(run, 6)
        End If
    End If

удалени аттачей

Function RemoveAttachments(objdoc As NotesDocument, fld As String) As NotesRichTextItem
    Dim rtItem As NotesRichTextItem
    Dim docItem As NotesItem
   
    On Error GoTo errorhandler
    Set docItem=objdoc.GetFirstItem(fld)
    If Not docItem Is Nothing Then
        DbgMsg("RichText:" & CStr(docItem.Type = RICHTEXT))
        If docItem.Type=RICHTEXT Then
            Set rtItem=docItem
        End If
    End If
    If objdoc.Hasembedded Then 
        If ( Not rtItem Is Nothing ) Then
            If (Not IsEmpty(rtitem.EmbeddedObjects))Then
                ForAll o In rtitem.EmbeddedObjects
                    Call o.Remove
                    DbgMsg("RT field: remove attachments")
                End ForAll
            End If
        Else
            If ( Not IsEmpty(objdoc.EmbeddedObjects)) Then
                ForAll o In objdoc.EmbeddedObjects
                    Call o.Remove
                    DbgMsg("remove attachments")
                End ForAll
            End If
        End If
    End If
   
    Do While Not objdoc.GetFirstItem("$FILE") Is Nothing
        objdoc.RemoveItem("$FILE")
        DbgMsg("remove fields: $FILE")
    Loop
   
    If (rtItem Is Nothing) Then
        Do While Not objdoc.GetFirstItem(fld) Is Nothing
            objdoc.RemoveItem(fld)
            DbgMsg("Remove non RT fields:" & fld)
        Loop
        Set rtItem=objdoc.CreateRichTextItem(fld)
        Call objdoc.Save(True,False)
    End If
    Set RemoveAttachments=rtItem
ExitFunction:
    Exit Function
errorhandler:
    Call RaiseError()
    Resume ExitFunction
End Function

 

[garrick]

после ФП7 аттачи стали отображаться под чертой..

Есть такая беда.
А код этот для чего?

 

[lmike]

@garrick ну это его результат, когда аттачи через интерактив - такого нет
просто я думал че-то можно подкрутить (м.б. удалять поле вовсе)

 

[lmike]

Есть такая беда.
А код этот для чего?

и как лечить (программно)

 

[lmike]

как я понял - так отображается, и мне кажется - зареганные типы в ОС

 

[oshmianski]

@lmike,
Я чет не понял, этот код для демонстрации баго-фичи и ее лечения?
Код "удалени аттачей" для чего?

 

[lmike]

@lmike,
Я чет не понял, этот код для демонстрации баго-фичи и ее лечения?
Код "удалени аттачей" для чего?

код, раньше, лечил траблу со слетевшими хинтами
но теперь он не помогает
приведен просто как часть процесса

 

[lmike]

и еще - я даже не знаю как гугл спросить, про такой факап

 

[Darkhan]

По большому счету, не все ли равно как оно отображается, программно к аттачу достучаться же можно. У меня на практике такое часто выходило, я просто забил на это, отображаю иконку аттача "по-своему"

 

[lmike]

вот что заметил в программно аттачанных

<item name="Body" sign="true" seal="true">

 

[Darkhan]

кстати, у меня такое выходило, когда я программно аттачил в текущий открытый док

 

[oshmianski]

я давеча тоже натолкнулся на такую траблу.
костыль: в форме, в первой строке добавил header и высоту ему сделал 0.
уродско и не всегда применимо, ну а что делать...

 

[oshmianski]

кстати, у меня такое выходило, когда я программно аттачил в текущий открытый док

неа, теперь уже даже просто в background.
или это бага, которую исправят или нужно курить... уж и не знаю чего я только не курил с этими индусами.

 

[lmike]

флаги поснимал, но трабла не прошла

 

[lmike]

или это бага, которую исправят или нужно курить...

такое ощущение - они цепляют системную иконку (теперь) в хинт, но каким-то образом, хинт (при этом) портится
все больше склоняюсь к мысли - делать аттач через DXL

 

[lmike]

нашел разницу в ДХЛ
и она... в поле $FILE, но в нотусевой сучности я не знаю где копать, а ДХЛ

<item name="$FILE" summary="true" sign="true" seal="true">
- <object>
- <file hosttype="msdos" compression="none" flags="sign storedindoc" encoding="none" name="Договорзайма.doc" size="45545">

с flags! будет "нормально" загружен, а такой

- <item name="$FILE" summary="true" sign="true" seal="true">
- <object>
- <file hosttype="msdos" compression="none" encoding="none" name="Договорзайма.doc" size="45545">

в индусском стиле
то - достаточно flags='storedindoc' (атрибут) добавить в тег (<file...), для "правильного" резалта

 

[savl]

@lmike @oshmianski
мне рассылка от IBM по APAR приходит, ICN больше нет

Ссылка скрыта от гостей

Ссылка скрыта от гостей

The record has been opened. Subscription to this Authorized Program Analysis Report (APAR) is available.

Ссылка скрыта от гостей

Ссылка скрыта от гостей

The record has been opened. Subscription to this Authorized Program Analysis Report (APAR) is available.

 

[romych2004]

Ссылка скрыта от гостей

 

[swyatogor]

хм.. странно.. у мну fp7 давно стоит.. таких артефактов не наблюдал..
а ODS какой у Ваших баз?