Jean-Marc Massé
2045819
1)CLS
2)CLEAR VAR VSALDESTNOT,VSALNOM
3)SET VAR VSALDESTNOT INTEGER
4)SELECT SALDESTNOT INTO VSALDESTNOT INDIC iv1 +
5) FROM LANCNOTES WHERE CURRENT OF SYS_NEW
6) SET VAR VSALNOM TEXT = LOGNOM IN UTILISBASE WHERE CODSALARIE =
7) V0VSALDESTNOT
8) IF .VSALNOM = (CVAL("NetUser")) THEN
9) PAUSE 2 USING "Nouveau message"
10) EDIT USING LANCLISTNOT CAPTION "Liste des messages envoyés et reçus"
11)ENDIF
12) CLEAR VAR VSALDESTNOT,VSALNOM
13) RETURN
Note
line 4) has a "+" to extend the command line to line (5)
Line 6) does not and has to have a "+" to extend the command line to line (7)
Line 7) Vsaldestnot has to be .Vsaldestnot (doted)
Line 8) .vsalnom should not be doted because it is on the right side of an expression.
Hope this helps!
Gilbert Keller
