Plateforme Level Extreme
Abonnement
Profil corporatif
Produits & Services
Support
Légal
English
Code
Message
De
25/02/2005 15:58:45
 
 
À
25/02/2005 15:53:32
Information générale
Forum:
Visual FoxPro
Catégorie:
Codage, syntaxe et commandes
Titre:
Re: Code
Versions des environnements
Visual FoxPro:
VFP 8
Database:
Visual FoxPro
Divers
Thread ID:
00990699
Message ID:
00990710
Vues:
14
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]
Précédent
Suivant
Répondre
Fil
Voir

Click here to load this message in the networking platform