Seite 1 von 1

Valid in Express - Anfängerfrage

Verfasst: Mi, 21. Jun 2017 10:28
von uwe.24
Hallo.

Ich befasse mich schon lange mit Xbase, aber erst kurz mit Express.
Daher eine wahrscheinlich leicht zu beantwortende Frage.
Ich möchte nach einer dcget Eingabe reagieren. Das mache ich mit dem valid.
Der Eingabewert wird in einer geöffneten DBF gesucht und eine Variable mit einem Feldinhat daraus gefüllt.
Das klappt laut Debugger auch.
Diese Varaible soll nun hinter dem dcget-Feld angezeigt werden, also wie in der Zeile mit dcsay cUTMatbez1.
Ich habe wirklich vieles getestet, aber komme nicht zurecht.
Ich dachte man könnte das über ein dc_getrefresh() lösen.
Oder geht das ganz anders?

Hier einige Testcodezeilen dazu:

Code: Alles auswählen

proc utspezial2
   LOCAL GetList := {}

   Public cUTMCNR1 := "1101"
   Public cUTMATBEZ1 := "Noch nichts"
   Public cUTMCNR2 := "2108"
   Public cUTMATBEZ2 := "Noch nichts"

   @ 10,10 dcsay "MCNR1: " get cUTMCNR1 pict "!!!!" valid {||UTTesting(1,cUTMCNR1,@getlist)}
   @ 10,30 dcsay cUTMatbez1
   @ 11,10 dcsay "MCNR2: " get cUTMCNR2 pict "!!!!" valid {||UTTesting(2,cUTMCNR2,@getlist)}
   @ 11,30 dcsay cUTMatbez2

   dcgetoptions windowwidth 480
   dcread gui modal fit addbuttons Title "UT Test2"
  return

*******************************************************************************************************************

 STATIC FUNCTION UTTesting(nTemp,cSuch,getlist)
   IF nTemp = 1
      sele 3
      seek cSuch
      if found()
         cUTMATBEZ1 := c->MATBEZ
      else
         cUTMATBEZ1 := "Nicht gefunden!            "
      endif
   else
      sele 3
      seek cSuch
      if found()
         cUTMATBEZ2 := c->MATBEZ
      else
         cUTMATBEZ2 := "Nicht gefunden!            "
      endif
   endif
   dc_getrefresh(getlist)
RETURN(NIL)

*******************************************************************************************************************

Re: Valid in Express - Anfängerfrage

Verfasst: Mi, 21. Jun 2017 11:29
von Koverhage
2 Sachen die mir auffallen
1. Du gibst Nil zurück, würde es mal mit .t. versuchen
2. warum @getlist ? ich mache das immer ohne

Re: Valid in Express - Anfängerfrage

Verfasst: Mi, 21. Jun 2017 11:36
von uwe.24
Hallo Klaus
1. Du gibst Nil zurück, würde es mal mit .t. versuchen
Auch mit .t. ändert sich nichts.
2. warum @getlist ? ich mache das immer ohne
@ da damit die Originalvariable übergeben und bearbeitet wird
aber ohne geht es auch nicht

Danke
Uwe aus OS

Re: Valid in Express - Anfängerfrage

Verfasst: Mi, 21. Jun 2017 11:44
von uwe.24
Hallo.

Beim Warten auf Lösungen hab ich weitergesucht und wie immer:
Wer suchet der findet.
viewtopic.php?f=36&t=1681

So geht es:

Code: Alles auswählen

proc utspezial2
   LOCAL GetList := {}

   Public cUTMCNR1 := "1101"
   Public cUTMATBEZ1 := "Noch nichts"
   Public cUTMCNR2 := "2108"
   Public cUTMATBEZ2 := "Noch nichts"

   @ 10,10 dcsay "MCNR1: " get cUTMCNR1 pict "!!!!" valid {||UTTesting(1,cUTMCNR1,getlist)}
   @ 10,30 dcsay {||cUTMatbez1}
   @ 11,10 dcsay "MCNR2: " get cUTMCNR2 pict "!!!!" valid {||UTTesting(2,cUTMCNR2,getlist)}
   @ 11,30 dcsay {||cUTMatbez2}

   dcgetoptions windowwidth 480
   dcread gui modal fit addbuttons Title "UT Test2"
  return
Danke Koverhage für deine Antwort aus 2007 :)

Jetzt kann es weitergehen. :banghead:

UWe aus OS