Level Extreme platform
Subscription
Corporate profile
Products & Services
Support
Legal
Français
Code
Message
From
25/02/2005 15:58:45
 
 
To
25/02/2005 15:53:32
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:
00990710
Views:
13
hi,
thank you for reply,
i get erro message file"laaarray.prg" dose not exist
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]+1,5),4))+1
ELSE
   THISFORM.TEXT1.VALUE = (RIGHT(STR(YEAR(DATE()),4),2) + '_'+RIGHT(STR(10000+laAarray[1]+1,5),4))&&file"laaarray.prg" dose not exist

ENDIF
>>hi all,
>>
>>i try to run this code TO INSERT FIRST BILLNO AND DATE at empty table, it works befor,
>>i get error message variable LAAARRAY not found
>>
>>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
>> THISFORM.TEXT1.VALUE = (RIGHT(STR(YEAR(DATE()),4),2) + '_'+RIGHT(STR(10000+laAarray+1,5),4))
>> ENDIF
>>
>>THANKS.
>
>
>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]+1,5),4))+1
>ELSE
>   THISFORM.TEXT1.VALUE = (RIGHT(STR(YEAR(DATE()),4),2) + '_'+RIGHT(STR(10000+laAarray[1]+1,5),4))
>ENDIF
>
>
>Index to the first element of the laArray as laArray[1]
Previous
Next
Reply
Map
View

Click here to load this message in the networking platform