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