Showing results 1 to 6 of 6

Thread: thisProject.DynProperties("GUID") gibt "leer"

  1. #1
    alice18 Gast

    Default thisProject.DynProperties("GUID") gibt "leer"

    Hallo,
    ich versuche in 6.22 SP0:
    Guid = thisProject.DynProperties("GUID")
    Datei = "C:\Dokumente und Einstellungen\All Users\Anwendungsdaten\COPA-DATA\SQL\" & Guid & "\FILES\zenOn\custom\languages\ZENONSTR.txt"

    aber kriege guid="leer"

    Wo liegt mein Fehler?

  2. #2
    robertf Gast

    Default Re: thisProject.DynProperties("GUID") gibt "leer"

    Hallo!

    ich denke es wäre viel einfacher, wenn man den Pfad wie folgt ausliest:

    Sub GetLanguagePath()
      Dim strPath As String
      strPath = thisProject.ModulePath(tpPathLanguage) & "\zenonStr.txt"
      Debug.Print strPath
    End Sub

  3. #3
    alice18 Gast

    Default Re: thisProject.DynProperties("GUID") gibt "leer"

    Na ja, aber ich muss Sprachtabelle änder und Änderungen auch im Editor sehen, deswegen versuche ich auf Anwendungsdaten\COPA-DATA\SQL\" & Guid & "\FILES\zenOn\custom\languages\ZENONSTR.txt"

    ist das falsch?

  4. #4
    robertf Gast

    Default Re: thisProject.DynProperties("GUID") gibt "leer"

    Nein, es ist nicht falsch...

    Damit ich sehe, wo genau das Problem liegt, müsste ich es debuggen...
    Wahrscheinlich liegt es daran, dass man "thisProject" nicht im Editor verwenden soll/darf!!!

    Im Editor sieht es dann wie folgt aus:

    'If the project is the 'Active' project
    Sub GetLanguagePath()
      Dim strPath As String
      
      strPath = MyWorkspace.ActiveDocument.ModulePath(tpPathLanguage) & "\zenonStr.txt"
      Debug.Print strPath
    End Sub
    
    'If any Project in the Workspace should be used...
    Sub GetLanguagePath()
      Dim obProject As Project
      Dim strPath As String
      
      Set obProject = ApplicationED.Projects.Item("PROJECTNAME")
      strPath = obProject.ModulePath(tpPathLanguage) & "\zenonStr.txt"
      Debug.Print strPath
    End Sub

  5. #5
    alice18 Gast

    Default Re: thisProject.DynProperties("GUID") gibt "leer"

    so ist mein Code:
    Private Sub GW_speichern_Click()
    Dim FFile As Integer
    Dim Datei As String
    Dim strBuf As String
    Dim varDatei As String
    Dim varDatei2 As String
    Dim Str As String
    
    Guid = thisProject.DynProperties("GUID")
    Datei = "C:\Dokumente und Einstellungen\All Users\Anwendungsdaten\COPA-DATA\SQL\" & Guid & "\FILES\zenOn\custom\languages\ZENONSTR.txt"
    'Datei = "C:\Dokumente und Einstellungen\All Users\Anwendungsdaten\COPA-DATA\SQL\b886aa57-f4ee-492d-a1cf-d00aaceccc4d\FILES\zenOn\custom\languages\ZENONSTR.txt"
    FFile = FreeFile
    Open Datei For Input As FFile
    ....
    routine
    ...
    Loop
    Close FFile
    
    
    Open Datei For Output As FFile
    Print #FFile, Str
    Close FFile
    
    lang = thisProject.ModulePath(tpPathLanguage) & "\ZENONSTR.txt"
    FileCopy Datei, lang
    thisProject.RtFunctions.Item("fct_nachladen").Start
    End Sub

    Datei ist "C:\Dokumente und Einstellungen\All Users\Anwendungsdaten\COPA-DATA\SQL\leer\FILES\zenOn\custom\languages\ZENONSTR.txt"

    lang ist "C:\Dokumente und Einstellungen\All Users\Dokumente\zenOn_Projects\test\SUEDCHEMIE\RT\ FILES\zenOn\custom\languages\ZENONSTR.txt"

  6. #6
    robertf Gast

    Default Re: thisProject.DynProperties("GUID") gibt "leer"

    Wie ich schon im letzten Beitrag "ROT" geschrieben habe, ist das Problem die Verwendung von "thisProject" im Editor!

    Das "thisProject" Objekt ist nur für die Runtime, nicht für den Editor!!!

    Der VBA Code, der im Editor ausgeführt werden soll muss im VBA Project ZWorkspace enthalten sein!
    Die VBA Projekte mit dem zenon Projektnamen sind nur für die Runtime!

    In meinem Beispiel wird thisProject nicht verwendet und es funktioniert (wird auch in den Wizards genau so verwendet).

    Ich hoffe das Missverständnis wird dadurch klarer...

Similar Threads

  1. Replies: 2
    Last Post: 9th June 2009, 12:53
  2. Neuer Button "Alle aktivieren" (Variablen)
    By maerz@staudinger-est.de in forum zenon Supervisor
    Replies: 1
    Last Post: 24th September 2008, 11:13
  3. action "COMMAND" at the dynamic element not visible
    By markclemens in forum zenon Energy Edition
    Replies: 0
    Last Post: 16th May 2008, 06:53
  4. Replies: 2
    Last Post: 3rd April 2008, 12:24
  5. "variable image remanent" setting is not saved
    By markclemens in forum zenon Supervisor
    Replies: 0
    Last Post: 28th March 2008, 09:13

Posting Rules

  • You may not post new threads
  • You may not post replies
  • You may not post attachments
  • You may not edit your posts
  •