DominoArea.org [Archive]

Salut une autre petite coquille,
lors de l'ajout d'un attachement dans un champ RT celui-ci s'affiche en style v2 (bas du form)!
Voila mon code!

Code : Tout sélectionner


   Call uidoc.Refresh(True) ' Important: forcer le Refresh uidoc pour charger le richtext field dans le doc en back-end!!!!
   Set rtitemBody = doc.GetFirstItem("piecejointe")
   If Not doc.HasEmbedded Then 'si pas d'attachements: insertion et controle doublon
      filepath=GetSingleFileName("Sélection de pièces jointes","*.*")
      If filepath<>"" Then
         fileName = Dir$(filepath, 0)
         doc.FilePath=filepath
      Else
         doc.FilePath=""
         Exit Sub
      End If
      Call rtitemBody.EmbedObject ( EMBED_ATTACHMENT, "", filePath)
   Else
      
      AttachementsNames =Evaluate(|@attachmentnames|,doc)
      filepath=GetSingleFileName("Sélection de pièces jointes","*.*")
      If filepath<>"" Then
         fileName = Dir$(filepath, 0)
         doc.FilePath=filepath
      Else
         'Messagebox "Fichier introuvable", 16, "Sélection de fichier"
         Exit Sub
      End If
      Forall a In AttachementsNames
         If a=filename Then
            Messagebox "Votre dossier contient déjà ce fichier en pièce jointe", 16, "Contrôle des fichiers attachés"
            doc.FilePath=""
            Exit Sub
         End If
      End Forall
      
      ' <<<<<<<<<<< refresh du Body pour faire apparaitre l'attachement >>>>>>>>>
      doc.saveoptions="0"
      Call uidoc.Close
      If Not doc Is Nothing Then
         Call rtitemBody.Update
         Set uidocnew= ws.EditDocument( True , doc,,,,True)
         Delete uidoc
         Call uidocnew.Document.RemoveItem("Saveoptions")
      End If
      
         ' <<<<<<<<<<< refresh du Body pour faire apparaitre l'attachement >>>>>>>>>
   End If


A l'enregistrement le doc attaché n'est plus dans le RT. Je ne veux pas sauvegarder le doc avant! J'ai l'impression d'avoir oublié un truc.
MErci pour vos lumières.
cdt
camille

salut

la comme ça je vois pas

essais un traitement completement en back-end via un agent

Salut Michael, oui justement c'est un agent qui exécute ce code!
cdt
camille

je parle d'agent lancé via un runonserver ou il n'y a aucun objet frontale.

tu a peut etre un souci entre le frontal et le dorsale

et un champ $v2attachmentoption à 0 dans le formulaire???

Salut, ce champ est réservé au client Web pour masquer les attachements!?
Quel est le lien avec le client notes?
cdt
camille

il marche aussi en client lourd!!!!

Le champ RT est visible ? Pas de formule de masquage ? isSummary ?

Salut Roubech,
oui le RT est visible dans le masque en édition.
Après l'exécution de l'agent l'attachement se trouve hors du RT!
J'ai essayé avec un agent qui import le fichier.
Puis un deuxième agent en Formula qui fait un refresh mais idem.
cdt
camille