Valid in Express - Anfängerfrage

Moderator: Moderatoren

Antworten
Benutzeravatar
uwe.24
Cut&Paste-Entwickler
Cut&Paste-Entwickler
Beiträge: 33
Registriert: Di, 01. Aug 2006 15:47
Wohnort: Osnabrück

Valid in Express - Anfängerfrage

Beitrag von uwe.24 » Mi, 21. Jun 2017 10:28

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)

*******************************************************************************************************************
Uwe aus OS

Benutzeravatar
Koverhage
Der Entwickler von "Deep Thought"
Der Entwickler von "Deep Thought"
Beiträge: 2086
Registriert: Fr, 23. Dez 2005 8:00
Wohnort: Aalen
Kontaktdaten:

Re: Valid in Express - Anfängerfrage

Beitrag von Koverhage » Mi, 21. Jun 2017 11:29

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
Gruß
Klaus

Benutzeravatar
uwe.24
Cut&Paste-Entwickler
Cut&Paste-Entwickler
Beiträge: 33
Registriert: Di, 01. Aug 2006 15:47
Wohnort: Osnabrück

Re: Valid in Express - Anfängerfrage

Beitrag von uwe.24 » Mi, 21. Jun 2017 11:36

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
Uwe aus OS

Benutzeravatar
uwe.24
Cut&Paste-Entwickler
Cut&Paste-Entwickler
Beiträge: 33
Registriert: Di, 01. Aug 2006 15:47
Wohnort: Osnabrück

Re: Valid in Express - Anfängerfrage

Beitrag von uwe.24 » Mi, 21. Jun 2017 11:44

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
Uwe aus OS

Antworten