Hello Gilbert,
My original message is the following :
CLS
CLEAR VAR VSALDESTNOT,VSALNOM
SET VAR VSALDESTNOT INTEGER
SELECT SALDESTNOT INTO VSALDESTNOT INDIC iv1 FROM LANCNOTES WHERE CURRENT OF
SYS_NEW
SET VAR VSALNOM TEXT = LOGNOM IN UTILISBASE WHERE CODSALARIE = .VSALDESTNOT
IF .VSALNOM = (CVAL("NetUser")) THEN PAUSE 2 USING "Nouveau message" caption
.vsalnom
EDIT USING LANCLISTNOT CAPTION "Liste des messages envoyés et reçus"
ENDIF
CLEAR VAR VSALDESTNOT,VSALNOM
RETURN
Thank you
Jean-Marc
-----Message d'origine-----
De : [email protected] [mailto:[EMAIL PROTECTED] De la part de Gilbert K
Envoyé : lundi 22 septembre 2008 02:34
À : RBASE-L Mailing List
Objet : [RBASE-L] - Message
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
