Domino 9 und frühere Versionen > Entwicklung

Brauche Hilfe bei einer Ansicht

<< < (5/6) > >>

Glombi:
Wenn in (Declarations) alles leer ist, muss aber was unter (Globals) - (Declarations) stehen. Denn woher kennt denn sonst würde das Querysave die Werte OSales etc. nicht kennen!
Die (Globals) findest Du im selben Eigenschaftsfenster wie (Declarations).

Andreas

koehlerbv:

--- Zitat ---Jetzt bin ich soooo knapp davor, was kann noch falsch sein??

--- Ende Zitat ---
Das glaube ich eher weniger. Wenn in den Declarations keine Variablen deklariert werden, damit diese im PostOpen UND im QuerySave zur Verfügung stehen, dann müssen diese ja woanders (ScriptLibrary ?) deklariert werden. Diese müssen dann ja auch noch mit Deinen Vars ergänzt werden, diese wiederum müssen sich im PostOpen erstmal die Originalwerte merken und so weiter und so fort.
Und das alles ohne Plan ...

Bernhard

him1802:
Na ob die Ansicht in dem kleinen Fenster jetzt wirklich hilft???


' Check if any of the Account Level information has been changed ( including direct updates to Transition date)
   If OAE(0) <> CurrentDoc.AE(0) Or _
   OType(0) <> CurrentDoc.Type(0) Or OActivity(0) <> CurrentDoc.Activity(0) Or _
   OIndustry(0) <> CurrentDoc.Industry(0)  Or  ONaceCode(0) <> CurrentDoc.NaceCode(0) Or _
   OAccount(0) <> CurrentDoc.Account(0)  Or OAAddress1(0)<> CurrentDoc.AAddress1(0) Or _
   OAAddress2(0) <> CurrentDoc.AAddress2(0) Or OAAddress3(0) <> CurrentDoc.AAddress3(0)  Or _
   OAPostalCode(0) <> CurrentDoc.APostalCode(0) Or OACity(0) <> CurrentDoc.ACity(0) Or _
   OACountry(0) <> CurrentDoc.ACountry(0)  Or OATelephone(0) <> CurrentDoc.ATelephone(0)  Or _
   OAFax(0) <> CurrentDoc.AFax(0) Or OAccountNotes(0) <> CurrentDoc.AccountNotes(0)  Or _
   OTransS(0) <> CurrentDoc.TransS(0) Or OTransT(0) <> CurrentDoc.TransT(0) Or _
     OCompetence(0) <> CurrentDoc.Competence(0) Or OSales(0) <> CurrentDoc.Sales(0) Or_
     OService <> CurrentDoc.Service(0) Or OLeadership <> CurrentDoc.Leadership(0) Or_
   OTransP(0) <> CurrentDoc.TransP(0)  Or OTransC(0) <> CurrentDoc.TransC(0) Then
   
   ' Get all Contact documents for this Account in the DocumentCollection docs
   Set view = session.CurrentDatabase.GetView( "($All Contacts)" )          
     ' If Account Name has been changed, look for old Account name
   If OAccount(0) = Currentdoc.Account(0) Then
      Set docs = view.GetAllDocumentsByKey(Currentdoc.Account,True)
   Else
      Set docs = view.GetAllDocumentsByKey(OAccount(0),True)
   End If    
   
   If docs.Count > 1 Then
      Set doc = docs.GetFirstDocument
      Do While Not (doc Is Nothing)
         If doc. UniversalID <> uid Then
                       ' Ask the user if he/she wants the changes to be reflected to all docs
            If FirstPass = True Then
               Dim twoLiner As String
               twoLiner = |You have made changes to an Account information.
Would you like that same change to be reflected on all Contacts for the same Account? |
               UserChoice = Messagebox (twoLiner, 36, "Automatic update of all Contacts")
               FirstPass = False
            End If                              

klaussal:
... nein nein nein  ;D

das muss mit DIM anfangen.damit werden felder deklariert.

koehlerbv:
Dieser (!) Fehler liegt an den beiden letzten Zeilen vor dem Then, in denen der Unterstrich einfach an's Or geklatscht wurden.
Wenn dazwischen erstmal ein Leerzeichen eingefügt wird, dann ist das syntaktisch wieder in Ordnung - aber am logischen Problem hat sich noch lange nichts geändert.

Bernhard

Navigation

[0] Themen-Index

[#] Nächste Seite

[*] Vorherige Sete