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