Plateforme Level Extreme
Abonnement
Profil corporatif
Produits & Services
Support
Légal
English
Problem text
Message
De
23/05/2006 11:22:24
 
 
Information générale
Forum:
Visual FoxPro
Catégorie:
Autre
Titre:
Versions des environnements
Visual FoxPro:
VFP 9 SP1
OS:
Windows XP
Database:
Visual FoxPro
Divers
Thread ID:
01124269
Message ID:
01124279
Vues:
10
Hi: From VFP9 help

You can place LOOP anywhere between DO WHILE and ENDDO, anywhere between FOR and ENDFOR or FOR EACH and ENDFOR, or anywhere between SCAN and ENDSCAN.

The LOOP command returns control directly to the DO WHILE, FOR, or FOR EACH clause without executing the statements between LOOP and ENDDO or ENDFOR. The counter is incremented or decremented as if the END... statement were reached.

NOTE that if endif is not covered in the LOOP command help information. Is help wrong or is it you?

------------------------------------------------------------

>Hi everybody,
>
>I'm trying to figure out the best way to proceed. In the code we perform multiple checks. If all are passed, we update the record.
>
>Now, in my form I want to present some info to the user why some accounts were not closed. We put all info in the log file, but I also want to give a shorter message, saying, for example:
>
>From 30 selected accounts 20 were not closed because some have recent payments, some were billed in last 30 days, etc.
>
>Now, my problem is composing this message. Here is the current code (it's actually my colleague's code):
>
>
>IF .Payment_Arrangement(lcTrans_fk)
>
>    .WriteToLogfile("Account #: " + lcClient_account_number + " has a payment arrangement.")
>    .Reschedule_close(lcTrans_employees_queues_pk, 60)
>    .cProblemText = "Account has a payment arrangement."
>     LOOP
>ENDIF
>
>**  Has a payment been received in the last 60 days?
>
>IF .Payment_Received(lcTrans_fk)
>  .WriteToLogfile("For account #: " + lcClient_account_number + " has been received in the last 60 days.")
>   .Reschedule_close(lcTrans_employees_queues_pk, 60)
>   .cProblemText = "Payment has been received in the last 60 days."
>   LOOP
>ENDIF
>
>** Is there a process pending?
>   IF .Process_is_pending(lcTrans_fk)
>      .WriteToLogfile("Account #: " + lcClient_account_number + " has a process pending.")
>      .Reschedule_close(lcTrans_employees_queues_pk, 10)
>       LOOP
>ENDIF
>
>
>In other words, I'm a little bit at lost what to put in cProblemText.
>
>I think I need some variables for each check, like
>lnStatusChanged, lnBilled, etc. and then I would need to try to create a message based on the numbers.
>
>What do you think?
>
>Thanks.
I ain't skeert of nuttin eh?
Yikes! What was that?
Précédent
Suivant
Répondre
Fil
Voir

Click here to load this message in the networking platform