Plateforme Level Extreme
Abonnement
Profil corporatif
Produits & Services
Support
Légal
English
Procedures and do while . . . enddo
Message
Information générale
Forum:
Visual FoxPro
Catégorie:
Codage, syntaxe et commandes
Divers
Thread ID:
00392109
Message ID:
00392310
Vues:
10
>>>
>>>With VFP you can nest programs 128 deep. Unless you have some recursion going on here, you should be okay. If you are using recursion, take a look at your design to make sure you haven't created a situation that could exceed this limitation.
>>>
>>>The simple answer to your questin is yes you can.
>>
>>Thanks - I guess it's back to the drawing board to see what's causing the nesting error.
>
>Is it possible to post the code? Maybe someone here can spot a problem. Sometimes it's better to have mulitple sets of eyes looking at something. You may be too close to the situation.

Here's the code - any input would be appreciated - I get the nesting error on the first line of code.

************************************
*
* skip through the records created in cursor gltemp1
* to see if they are subject to any of the 'mathcing rules'
* IF so, then loop through the chk_rules cursor to see
* if the rules are satisfied
*
***************************************


do while .T.

if eof()
exit
endif

lcgltemptext = alltrim(gltemp1.desctext)

select chk_rules

DO while .T.

if eof()
exit
endif

lcval_gl_text = alltrim(chk_rules.gl_rule)
lcval_st_text = alltrim(chk_rules.st_rule)

if occurs(lnstdesc,lcval_st_text)>0
if occurs(lcgltemptext, lcval_gl_text)>0
select gl
locate for gl.unique_id = gltemp.unique_id
if ! found()
=messagebox("error",0,"test")
else
lcmatch_continue = .t.
endif
else
lcmatch_continue = .f.
endif
endif

skip

loop
ENDDO

if lcmatch_continue = .t.
exit

select gltemp1
skip
loop

enddo
Al Williams

Anola MB, CANADA
Précédent
Suivant
Répondre
Fil
Voir

Click here to load this message in the networking platform