Hi Grady,

Thanks for the lecture <g> Not that it has anything to do with the question, though <g>

On the other hand, I've already changed the code and we even tested it. So, thanks for the listening and the sympathy <g>

>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.