Level Extreme platform
Subscription
Corporate profile
Products & Services
Support
Legal
Français
Do form in a Do While
Message
From
17/07/2002 05:44:20
 
 
To
All
General information
Forum:
Visual FoxPro
Category:
Forms & Form designer
Title:
Do form in a Do While
Miscellaneous
Thread ID:
00679520
Message ID:
00679520
Views:
47
Hi

I have a Do Form in a DO While .

VFP , make DO Form , but he still make a Do While .
I see the new Form , but i see too the next messageBox , See Code please .
How can i force VFP stop when Do Form , and only go on in Do While , when I make the release the new form ?

Can you help me ?

Thanks
DO WHILE .T.
  nCima = nCima - 1
  IF FactDoc.NumDoc # nCima 

    Select FCabElim
    SET ORDER TO NumDoc
    GO TOP
    Seek nCima 
    IF Found()
	
	ThisForm.Visible = .F.

	cMessageTitle = 'Atenção'
	cMessageText = 'A Factura nº  ' + AllTrim(Str(FCabElim.NumDoc)) ;					"Deseja ver os detalhes ? "
					
	nDialogType = 4 + 32 + 256

	nAnswer = MESSAGEBOX(cMessageText, nDialogType, cMessageTitle)
		
		
	IF nAnswer = 6
		
        	DO FORM FEliDFact WITH FCabElim.NumDoc
                 *** I want VfP , stops cycle do while , and only 
                 *** go on , when Form FEliDFact release 

		
	ENDIF
			
    ELSE  && nCima = FactDoc.NumDoc , por isso sai 
		
	EXIT
		
    ENDIF
		
 ENDIF
ENDDO	


Pedro Silva

world is wonderful with your help .

Next
Reply
Map
View

Click here to load this message in the networking platform