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)
*******************************************************************************************************************