Level Extreme platform
Subscription
Corporate profile
Products & Services
Support
Legal
Français
Code
Message
From
25/02/2005 16:22:01
 
 
To
25/02/2005 15:40:39
General information
Forum:
Visual FoxPro
Category:
Coding, syntax & commands
Title:
Re: Code
Environment versions
Visual FoxPro:
VFP 8
Database:
Visual FoxPro
Miscellaneous
Thread ID:
00990699
Message ID:
00990737
Views:
28
Update
SELECT 1
SELECT MAX(billno) from mstr INTO ARRAY laAarray
IF _TALLY > 0
thisform.text1.value=(RIGHT(STR(YEAR(DATE()),4),2) + '_'+RIGHT(STR(10000+laAarray+1,5),4))+1
ELSE

* Here array laAarray does not exist!! But you want to start from 1?

THISFORM.TEXT1.VALUE = (RIGHT(STR(YEAR(DATE()),4),2) + '_'+RIGHT(STR(10000+1,5),4))
ENDIF
Previous
Next
Reply
Map
View

Click here to load this message in the networking platform