Thanks,
I was not sure if it was the right place and it is always nice if someone with more experience agrees with your plan...
the keypress event for the column looks like this....
TMPART = ""
TMPGEB = SELECT()
IF NKEYCODE = 13
DO FORM FORMS\ARTSEL WITH TMPART TO TMPART
IF LEN(ALLTRIM(TMPART)) <> 0
SELECT ARTIKELE
SEEK(TMPART)
IF FOUND()
TMP1 = CODE
TMP2 = WOORD
TMP3 = PRIJS
TMP4 = BTW
SELECT(TMPGEB)
replace cde with tmp1
replace art with tmp2
replace pri with tmp3
replace btw with tmp4
thisform.grid1.omschrijving.setfocus
ELSE
SELECT(TMPGEB)
ENDIF
ENDIF
ENDIF
By the way......
see this line of code
IF LEN(ALLTRIM(TMPART)) <> 0
if i use if tmpart <> "" (would me more logical)
the if gets never executed ????
do you know why
Précédent
Suivant
Répondre
Voir le fil de ce thread
Voir le fil de ce thread à partir de ce message seulement
Voir tous les messages de ce thread
Voir tous les messages de ce thread à partir de ce message seulement