POPUP bei einem DCGET automatisch [ERLEDIGT]

[Hans Zethofer]

...aufrufen wenn das Getfeld den Focus hat!

Hallo!

ich möchte bei einem Getfeld eine Auswahlliste automatisch öffnen lassen wenn der User in dieses Geldfeld wechselt.
Geht das vielleicht über die GOTFOCUS Anweisung?

Mit F1 (habe ich so vorbelegt) kann er das schon selbst auch veranlassen aber ich will wenn der Focus im Getfeld ::cARTNUMMER
ist die Liste automatisch öffnen lassen

Code: Alles auswählen

   @  6.4,22 DCGET ::cARTNUMMER OBJECT ::EcARTNUMMER   ;
      GOTFOCUS {|| DC_GetRefresh(GetList) };
      LOSTFOCUS {|| DC_GetRefresh(GetList) };
      valid {||::Artnummer_Valid(::cARTNUMMER)};
      POPUP {|o|::Datenuebernahme(o, GetList, 1)};
         POPCAPTION "v" ;
         POPFONT "10.Marlett" ;
         POPSTYLE DCGUI_POPUPSTYLE_IMBEDDED ;
         POPKEY xbeK_F1 ;
      EDITPROTECT {|| ::lShow}

Habe bisher keine brauchbaren Lösungsansatz gefunden - kann mir da vielleicht jemand auf die Sprünge helfen

Danke

[Koverhage]

mit GotFocus und PostAppEvent

mache es an manchen Stellen auch so.


@ 6.4,22 DCGET ::cARTNUMMER OBJECT ::EcARTNUMMER ;
GOTFOCUS {|| PostAppEvent( xbeP_Keyboard, xbeK_F1,, oBrowse ),DC_GetRefresh(GetList) };

[Hans Zethofer]

Hallo!

Diese Lösung hatte ich auch schon angedacht und probiert.
Das Problem ist nur er bleibt jetzt sozusagen in einem Loop. Wenn ich aus dem Auswahlfenster aussteige wird das Auswahlfenster sofort wieder gestartet.

Da fehlt mir noch eine Logik - eventuell ein Flag das es nur beim ersten Mal GOTFOCUS automatisch gestartet wird.

[Tom]

Code: Alles auswählen

lPoppedUp := .F.

... GOTFOCUS {|o|IF(!lPoppedUp,(Eval(::Datenuebernahme(o, GetList, 1)),lPoppedUp:=.F.),nil)}

[Hans Zethofer]

Genau so eine Lösung habe ich auch jetzt schon eingebaut und die funktioniert jetzt

Code: Alles auswählen

   
     lFirst:=.t.
     @  6.4,22 DCGET ::cARTNUMMER OBJECT ::EcARTNUMMER   ;
      GOTFOCUS {|| IIF (lFirst,(PostAppEvent( xbeP_Keyboard, xbeK_F1,,::EcARTNUMMER),DC_GetRefresh(GetList),lFirst:=.f.),NIL) };
      LOSTFOCUS {|| DC_GetRefresh(GetList) };
      valid {||::Artnummer_Valid(::cARTNUMMER)};
      POPUP {|o|::Datenuebernahme(o, GetList, 1)};
         POPCAPTION "v" ;
         POPFONT "10.Marlett" ;
         POPSTYLE DCGUI_POPUPSTYLE_IMBEDDED ;
         POPKEY xbeK_F1 ;
      EDITPROTECT {|| ::lShow}

bei deiner Lösung Tom

Code: Alles auswählen

lPoppedUp := .F .
... GOTFOCUS {|o|IF(!lPoppedUp,(Eval(::Datenuebernahme(o, GetList, 1)),lPoppedUp:=.F.),nil)}

muß es doch so sein (nach Eval)
lPoppedUp := .T. // <-----

Code: Alles auswählen

... GOTFOCUS {|o|IF(!lPoppedUp,(Eval(::Datenuebernahme(o, GetList, 1)),lPoppedUp:=.T.),nil)}

oder?

[Tom]

Schulljung, Typo. Natürlich muss die Variable auf .T. gesetzt werden.

[Hans Zethofer]

Endlösung! =D>

Code: Alles auswählen

   @  6.4,22 DCGET ::cARTNUMMER OBJECT ::EcARTNUMMER   ;
      GOTFOCUS {|o|IF(lFirst,(Eval({|o|::Datenuebernahme(o, GetList, 1)}),lFirst:=.f.,DC_GetRefresh(GetList)),nil)};
      LOSTFOCUS {|| DC_GetRefresh(GetList) };
      valid {||::Artnummer_Valid(::cARTNUMMER)};
      POPUP {|o|::Datenuebernahme(o, GetList, 1),DC_GetRefresh(GetList)};
         POPCAPTION "v" ;
         POPFONT "10.Marlett" ;
         POPSTYLE DCGUI_POPUPSTYLE_IMBEDDED ;
         POPKEY xbeK_F1 ;
      EDITPROTECT {|| ::lShow}

Danke für die Input's

[Tom]

Schön!

Hinweis am Rande: DC_GetRefresh() funktioniert nicht nur für die (gesamte) GetList, sondern auch für Gruppen und Einzelobjekte (dann nebst Children). DC_GetRefresh(GetList) kann unschöne Nebeneffekte haben und bei umfangreichen Dialogen zu Verlangsamungen und sogar Flackereffekten führen, deshalb sollte man das eingrenzen, wenn man wirklich nur bestimmte Objekte refreshen will. Finden sich also beispielsweise alle Objekte, die man in einem bestimmten Fall refreshen will, in einer Gruppe, genügt etwas wie DC_GetRefresh(oGroup). Die enthaltenen Kinderobjekte werden mitrefreshed.

[Hans Zethofer]

Danke für die Info - werde ich mir mal genauer anschauen