BASE/4208 gen Code 104

[Manfred]

Hi,

ich mal wieder.

Kann mir hier einer von den GUI Spezialisten mal weiterhelfen?

oError:args :
-> VALTYPE: O CLASS: XbpDialog
oError:canDefault : N
oError:canRetry : N
oError:canSubstitute: Y
oError:cargo : NIL
oError:description : XBP-object has wrong state for access
oError:filename :
oError:genCode : 104
oError:operation : :create
oError:osCode : 0
oError:severity : 2
oError:subCode : 4208
oError:subSystem : BASE
oError:thread : 1
oError:tries : 0

Ich weiß nicht wo ich suchen soll.

[brandelh]

Zeig mal den Code, mindesten ab der XbpDialog():NEW() Zeile,
bis zum Create und markiere die Zeile in der der Fehler auftritt (Zeilennummer steht unten in der errorlog).

Auf den ersten Blick würde ich sagen, dass ein
CREATE auf ein Objekt angewandt wird, als das gerade nicht erlaubt ist.
Eventuell wurde create bereits vorher ausgeführt, oder fehlt das NEW()... ?

[Martin Altmann]

Hallo Manfred,
ein Create() ohne Init() vielleicht?
Schau doch mal in die Zeile, in der der Fehler aufgetreten ist.
Ansonsten poste mal einige Zeilen Code

Viele Grüße,
Martin

[Manfred]

Rennt mich über den Haufen, aber ich bin der Meinung an dem Teil seit längerer Zeit nichts mehr geändert zu haben und bis heute lief es.

Code: Alles auswählen

       IF VALTYPE("oAppWindow") = "C"
          oAppWindow := SetAppWindow()
          oSysPara:neuCenter()
       ENDIF
       oDialog  := XbpDialog():new(oAppWindow,,{200,20},{oSysPara:aWSize[1]-500,160})
       oStatic1 := XBPSTATIC():NEW(oDialog,,{10,110},{300,20})
       oStatic2 := XBPSTATIC():NEW(oDialog,,{10,90},{300,20})
       oStatic3 := XBPSTATIC():NEW(oDialog,,{10,70},{300,20})
       oStatic4 := XBPSTATIC():NEW(oDialog,,{10,50},{300,20})
       oStatic5 := XBPSTATIC():NEW(oDialog,,{10,30},{300,20})
       oStatic6 := XBPSTATIC():NEW(oDialog,,{10,10},{300,20})
       oStatic7 := XBPSTATIC():NEW(oDialog,,{200,10},{100,20})                  
       oDialog:title := "Db-Strukturanpassung: " + UPPER(::cDbank)
       oDialog:create()

Genau bei dem create knallt es.
Ich habe mir das oDialog im Debugger angesehen, kann aber nichts falsches erkennen.

[Martin Altmann]

Hmmm,
ich mache statt des :NEW() bei dem Dialog immer ein :INIT():

Code: Alles auswählen

Dialog  := XbpDialog():[color=red]init[/color](oAppWindow,,{200,20},{oSysPara:aWSize[1]-500,160})

- sonst sehe ich auf die Schnelle erstmal nichts auffälliges...
Viele Grüße,
Martin

[Manfred]

Hi Martin,

muß auch was anderes sein, ich habe gerade das PRG File aus einer älteren Datensicherung zurückgeholt, von der ich weiß, dass es lief und der Fehler ist der gleiche.

Ich habe nur keine Ahnung, wo ich jetzt suchen soll weil ich mit dem Fehler als solches nichts anfangen kann.

Watt´n Mist.

[brandelh]

> ich mache statt des :NEW() bei dem Dialog immer ein :INIT():

Laut Handbuch verwendet der Xbaseler :NEW(), was ein INIT() aufruft.
Es sei denn der eXpressler muß das anders machen...

Code: Alles auswählen

IF VALTYPE("oAppWindow") = "C" 
          oAppWindow := SetAppWindow() 
          oSysPara:neuCenter() 
       ENDIF 
       oDialog  := XbpDialog():new(oAppWindow

das ist mir verdächtig: VALTYPE("oAppWindow") = "C"
kann doch nur "C" sein, warum machst du das ?

Wenn oAppWindow kein (passendes) Object ist, würde ein falscher Variablentyp an XbpDialog übergeben, was auch passen könnte ...

Hast du eine eigene AppSys ? Wenn ja setzt du dort SetAppWindow(oDLG) ?

[Manfred]

Code: Alles auswählen

IF VALTYPE("oAppWindow") = "C" 
          oAppWindow := SetAppWindow() 
          oSysPara:neuCenter() 
       ENDIF 
       oDialog  := XbpDialog():new(oAppWindow

das ist mir verdächtig: VALTYPE("oAppWindow") = "C"
kann doch nur "C" sein, warum machst du das ?

Wenn oAppWindow kein (passendes) Object ist, würde ein falscher Variablentyp an XbpDialog übergeben, was auch passen könnte ...

Hast du eine eigene AppSys ? Wenn ja setzt du dort SetAppWindow(oDLG) ?

ja, habe ich. Im Moment fällt mir nichts besseres dazu ein.
SetAppWindow(oCrt)

[rassekst]

Hallo Manfred,

Probier mal folgendes:

erst das Objekt oDialog mit create() erzeugen, dann die Static's erzeugen.

Gruss Steffen

[brandelh]

der Code ist doch von eXpress oder ?

Die Fehlermeldung ist eindeutig, etwas (dialog oder controls) ist entweder noch nicht im richtigen Zustand oder schon zuweit (hat also das create schon hinter sich). Ich weiß nun nicht, ob eXpress im Create des Fensters alle anderen automatisch created.

Mei meinem Classcode kam das noch nicht vor.
Irgendetwas muß aber geändert worden sein, zwischen deinem letzten funktionsfähigen Lauf und jetzt. War es eventuell eine ältere Version von Xbase, welche eventuell fehlertoleranter war ?

[AUGE_OHR]

Code: Alles auswählen

       oDialog:title := "Db-Strukturanpassung: " + UPPER(::cDbank)
       oDialog:create()

Genau bei dem create knallt es.

was ist den mit (::cDbank) ? ich sehe sonst kein :: im source code

gruss by OHR
Jimmy

[Manfred]

Moin Jimmy,

das ::cDbank ist es auch nicht, aber ich bin gerade dabei es zu zerpflücken und ich habe den Verdacht, das es ein ganz saublöder Fehler ist und der auch noch VOR dem PC hockt.
Ich melde mich gleich noch einmal.

[Manfred]

Hi,

auf jeden Fall ist es so, dass der Code, den ich oben eingestellt habe klappt. Der Fehler liegt woanders. Es muß irgendwo bei den Programmversionen etwas durcheinandergekommen sein. Ich bin gerade dabei nach und nach auf GUI umzustellen und dabei muß mir wohl ein Fehler unterlaufen sein. Ich habe einen Versionswechsel meiner Programme vorgenommen und wohl irgendwelche, schon fertige, Methoden aufgerufen, die so nicht benutzt werden können/dürfen.

Wenn ich den Fehler irgendwann einmal finden sollte, dann werde ich ihn hier bekannt geben. Im Moment klappt die letzte Version aber jetzt richtig und das ist die Hauptsache.

[Lewi]

Hallo!
Ich bin zwar schon etwas aus der Übung, was Dialog-Funktionscode betrifft, aber mit dem nachfolgenden Code sollte es eigentlich funktionieren. Es stellt sich allerdings die Frage, wie Du im Funktionscode auf die Klassen-Instanzvariable "::cDbank" kommst?

Code: Alles auswählen

Local oDialog, oStatic1, oStatic2, .........

IF VALTYPE("oAppWindow") = "C"
   oAppWindow := SetAppWindow()
   oSysPara:neuCenter()
ENDIF
oDialog  := XbpDialog():new(oAppWindow,,{200,20},{oSysPara:aWSize[1]-500,160})
oDialog:title := "Db-Strukturanpassung: " + UPPER(::cDbank)  <--  wo kommt denn die Instanzvariable her????
oDialog:create()

oStatic1 := XBPSTATIC():NEW(oDialog:drawingArea,,{10,110},{300,20})
oStatic1:create()

oStatic2 := XBPSTATIC():NEW(oDialog:drawingArea,,{10,90},{300,20})
oStatic2:create()

oStatic3 := XBPSTATIC():NEW(oDialog:drawingArea,,{10,70},{300,20})
oStatic3:create()

oStatic4 := XBPSTATIC():NEW(oDialog:drawingArea,,{10,50},{300,20})
oStatic4:create()

oStatic5 := XBPSTATIC():NEW(oDialog:drawingArea,,{10,30},{300,20})
oStatic5:create()

oStatic6 := XBPSTATIC():NEW(oDialog:drawingArea,,{10,10},{300,20})
oStatic6:create()

oStatic7 := XBPSTATIC():NEW(oDialog:drawingArea,,{200,10},{100,20})
oStatic7:create()

oDialog:show()

[/code]

[Manfred]

Hi,

ich bin mir jetzt nicht ganz sicher, ob der hier auch zu gehört, aber diesen anfangs genannten Fehler habe ich mehrmals in anderen Programmen produziert. Allerdings weiß ich da, woher und warum der erscheint.

Ich gehe mal in erster Linie davon aus, dass es einfach noch fehlendes Knowhow meinerseits ist, aber der Fehler taucht auf, wenn versucht wird ein GUI Fenster in einem zu kleinen Textfenster zu öffnen, oder wie ich es jetzt nennen soll.

Das Problem hatte ich erneut, als ich über die TOOLS mit WOPEN() usw über das aktuelle Bild ein neues Window gelegt habe und darin dann aus Unwissenheit ein XBP.... drüberlegen wollte. Natürlich habe ich dem Part die Gesamtkoordinaten vom Programmstart gegeben und die sind natürlich anders, als die, zum Zeitpunkt des WOPEN(). Also half dort nur eins: WSELECT() merken, Window wechseln in "0" und dann nochmals GUI aufmachen. Das geht dann.

Tja, es gibt noch viel zu lernen. Lassen wir es liegen....

[Markus Walter]

Rennt mich über den Haufen, aber ich bin der Meinung an dem Teil seit längerer Zeit nichts mehr geändert zu haben und bis heute lief es.

Code: Alles auswählen

       IF VALTYPE("oAppWindow") = "C"
          oAppWindow := SetAppWindow()
          oSysPara:neuCenter()
       ENDIF
       oDialog  := XbpDialog():new(oAppWindow,,{200,20},{oSysPara:aWSize[1]-500,160})
       oStatic1 := XBPSTATIC():NEW(oDialog,,{10,110},{300,20})
       oStatic2 := XBPSTATIC():NEW(oDialog,,{10,90},{300,20})
       oStatic3 := XBPSTATIC():NEW(oDialog,,{10,70},{300,20})
       oStatic4 := XBPSTATIC():NEW(oDialog,,{10,50},{300,20})
       oStatic5 := XBPSTATIC():NEW(oDialog,,{10,30},{300,20})
       oStatic6 := XBPSTATIC():NEW(oDialog,,{10,10},{300,20})
       oStatic7 := XBPSTATIC():NEW(oDialog,,{200,10},{100,20})                  
       oDialog:title := "Db-Strukturanpassung: " + UPPER(::cDbank)
       oDialog:create()

Genau bei dem create knallt es.
Ich habe mir das oDialog im Debugger angesehen, kann aber nichts falsches erkennen.

Also wenn ich so auf die Schnelle drüberschaue, meine ich, dass der Parent für die Statics die drawingarea des XbpDialog sein muss und nicht das XbpDialog-Objekt selbst...

In welcher Zeile kommt den der Runtime-Error?

[Manfred]

Hi Markus,

der kommt exakt bei :create()

Ich habe deshalb meinen letzten Beitrag hierzu geschrieben, weil es bei einer anderen Anwendung auch zu diesem Fehler kam, dort aber mit WOPEN() der Tools ein neues kleineres Fenster vorher geöffnet wurde. Als ich über WSELECT(0) das ursprüngliche Originalfenster aktiviert hatte, war der Fehler sofort weg.

Es sollte auch nur ein Hinweis darauf sein, dieses evtl. bei der Fehlersuche in Betracht zu ziehen, falls jemand hier aus dem Forum ähnliches erleben sollte. Ich schätze aber mal, wer nicht im Hybridmodus arbeitet dürfte nicht auf diese Problem stoßen!?