FiveTech Software tech support forums

Dear Michel,

Do you use this ? Maybe you wrote ON MOVE by mistake:

ACTIVATE DIALOG ArcLeg RESIZE16 NOWAIT ON MOVE ArcLeg:Move(aRect[1],aRect[4],,,.T.)

or

ACTIVATE DIALOG ArcLeg RESIZE16 NOWAIT ON INIT ArcLeg:Move(aRect[1],aRect[4],,,.T.)

... Facturas en PDF" FROM 1,1 TO 3,40 @0,2 SAY oText PROMPT xsay OF oIndex COLOR CLR_HBLUE Font m->oFontFis ACTIVATE DIALOG oIndex NOWAIT CENTER do while !eof() xnum:=99->numero VTA1100PE() // Genera los pdf sele 99 skip xsay:="Socio: "+strzero(99->cliente,4)+" ...

... xnaudit ), dbCloseall() , princfac:End(), oWndChild:End() ) // when xLiderAudit = xNUsuario // cancel ACTIVATE DIALOG princfac CENTERED nowait ON INIT ( princfac:Move( 0, 0 ) ) //, oRich:LoadRtf( xobserva ), oRich:PostMsg( WM_KEYDOWN, VK_HOME, 0 )) oWndChild:nWidth := princfac:nWidth ...

I am interested in a non-modal (NOWAIT) window

... font oSegoe ID 992 OF princfac ACTION ( lsave := .f., dbCloseall() , princfac:End(), oWndChild:End() ) // cancel ACTIVATE DIALOG princfac CENTERED nowait ON INIT princfac:Move( 0, 0 ) //, oRich:LoadRtf( xobserva ), oRich:PostMsg( WM_KEYDOWN, VK_HOME, 0 )) oWndChild:nWidth := princfac:nWidth + 7 ...

... @ 10, 165 GET oGet VAR cSeek...... @ 110,10 XBROWSE oBrw SIZE -10,-10 PIXEL...... @ 10, 550 COMBOBOX oBrw:oSortCbx.... ACTIVATE DIALOG oDlg CENTER NOWAIT; VALID Chiudi_Dbf(oMisura) return nil STATIC FUNCTION Chiudi_Dbf(oMisura) oMisura:Close() RETURN .t. I have tried to recreate the error many ...

Thank you

Antonio Linares wrote:So glad to see you here with us Dear Rao

I'm happy for Rao recovery too!

https://i.postimg.cc/pX9t0QG9/KK.png CORRECT WAY    ACTIVATE DIALOG oDlg NOWAIT ;      VALID ( oDbf:Close(), .T. ) return nil  Nages, I made as you wrote me  ACTIVATE DIALOG oDlg NOWAIT ;      VALID ( oDbf:Close(), .T. )  ...

So glad to see you here with us Dear Rao

thanks I resolved with Cesar

... I open dbf with tdatabase why make error ? is it possible to use a dialog in source (and not in resource) using the NOWAIT clause? Meaning what DEFINE DIALOG oDlg SIZE nWd, nHt PIXEL TRUEPIXEL; FONT oFont COLOR CLR_BLACK, DLG_nColorDlg ACTIVATE DIALOG oDlg NOWAIT ...

... Main()nArea := 0   DEFINE WINDOW oWnd TITLE "Dialogo NoWait"   @ 2,  2 BUTTON "&Start" SIZE 80, 20 ACTION StartTest()    @ 2, 20 BUTTON "&Info" ...

... la APERTURA de la Base de Datos, porque el ERRSYSW.prg esta diciendo que el AREA ABIERTA NO ESTÁ EN USO. And why does this DIALOGUE need to be NOWAIT? ¿Y por qué este DIÁLOGO necesita ser NOWAIT? Regards, saludos.