Brauche Hilfe bei einer Ansicht

[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]

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

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  

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

[klaussal]

@bernhard
gut gesehen, adlerauge  

wer hat bloss sowas programmiert (kopfschüttel)  

[koehlerbv]

Jutta - das war wohl ihr erster LS-Versuch und die Konsequenz nur logisch.

Bernhard

@Jutta: Ich will Dich wirklich nicht entmutigen, aber so wird das bestimmt nix. Fang' erstmal mit etwas eigenem an, um Dir wenigstens Grundlagen zu schaffen.

[him1802]

ok ok ok....ist ja gut. Ihr habt mich überzeugt - oder besser überredet. Ich hör einfach auf, obwohl ich mich lieber daran festbeißen würde Da muss dann wohl doch mal unser Guru dran.

Trotzdem danke für Eure Hilfe.

Es kommt aber schon das nächste Problem, aber dafür mach ich besser ein neues Thema auf

Liebe Grüße
Jutta

[koehlerbv]

Wenn der "Guru" kommt, dann lass Dir gleich mal erklären, warum er was wie macht. Da bekommst Du schon erste Einblicke ;-)

Bernhard

[him1802]

Na das ist manchmal ein bissi schwierig. Er ist ein echter Techi und kann relativ schlecht erklären, weil er 1000 Dinge voraussetzt. Obwohl er echt fit ist. Ich hatte mein erstes Designer Seminar bei ihm und wollte es nach 1 Tag schmeißen, weil ich NICHTS verstanden habe (ich kannte notes noch nicht mal als Anwender. Soviel zu den tollen Ideen der Firma). Den Rest habe ich mir im Laufe der Zeit - manchmal mit seiner Hilfe zurechtgefummelt. Soviel dazu  

Danke euch allen
Jutta