FiveTech Software tech support forums

... = VK_ESCAPE ; Niv := 0 ; ENDIF ------------------------------------- What do I want to do ? Button 200 is a button "Save" Button 201 is a button "Quit" If niv = 9, the data will be saved. If niv = 0, the program will check whether there is a difference between the data on the screen and the data ...

... y ahi, tu puedes escribir lo que tu quieras que pase con los errores. Lo mas facil es hacer: Funcion MiControlDeErrores(oError) QUIT RETURN Asi el programa directamente se sale sin hacer mas preguntas. FiveWin tiene el Errsysw.prg que contiene la función que controla los errores ...

Hi all,

Has anyone changed the errorsys in order to quit the program only if we pulse the button QUIT? My idea is if we pulse other button, the program continues normally without quit. Is it possible? If so, how can I do it in my errorsys?

Best Regards,

Hola,

Alguno de ustedes ha conseguido cambiar el errorsys de forma que solo se quite el programa si pulsarmos el botón QUIT, y si pulsarmos el botón SALIR el programa continue normalmente? Se si, donde puedo coger tal información?

Saludos

... static function ErrorDialog( e ) // -> logical or quits App. local oDlg, oLbx, oFont, oWnd local lRet // if lRet == nil -> default action: QUIT local n, j, cMessage, aStack := {} local oSay, hLogo local nButtons := 1 local cErrorLog := "" local aVersions := GetVersion() local aTasks local ...

Antonio,

Quando clico em "Quit" o sistema é abortado normalmente, sem ocorrer o erro de GPF

...mas se clico em "Retry" aí ocorre o erro de GPF novamente

Gracias,

Rossine.

Hi, When we meet app runtime errors,could we return to last called from function intead of quit app? for example: Function a1() define dialog odlg resource "odlg" redefine button id 101 of odlg action a2() activate dialog odlg return function a2() local n1:=1/0 // local ...

I forgot about id 1. I quit using that id so long ago.

... My app uses exclusively windows (i have no dialogs in it). Adding the Modal clause make the app work again correctly but only once. When you quit the app now, you can not start the app again. You have to reset the computer to make it work again .... I use windows and folders. Any idea ? Richard

ya encontre la solución a la falla de memoria, el problema es que al cerrar la aplicación con el valid enviaba una instrucion quit que sustitui por un ownd:end() y termina adecuadamente gracias, supongo que son las diferencias entre los 16 y 32 bits

Rene,

FW termina automaticamente la aplicación, revisa samples\tutor02.prg.

Es la forma correcta de terminar una aplicación, no hay que llamar a QUIT ni a nada más.

Solucionado gracias a un mensaje antiguo de Giordano, en el foro de xHarbour:

oWord:QUIT()

se me ocurre que tendrás que buscar las funciones que define ese comando y después ver la manera que se corresponda con la cadena 'copy to etc '. Por ejemplo el comando QUIT invoca a la funcion __quit() y así con cada comando
salu2

... no tenía el Excel instalado, pues ahora funciona perfectamente. Lo único es que me daba un error al terminar por cerrar la hoja: oHoja:End() oHoja:Quit() Me lo daba con los dos métodos, Quit y End pero se lo he comentado y funciona perfectamente. Te lo agradezco mucho porque tengo 3 aplicaciones ...

... BLANK FOR nCol := 1 TO nCols xValue := oHoja:Cells(nRow,nCol):Value FieldPut(nCol,xValue) SysRefresh() NEXT DBCOMMIT() Memory(-1) NEXT */ oExcel:Quit() oHoja:End() oExcel:End() Return NIL Supongo que estaré haciendo algo mal pero no se el qué. Si esto llega a funcionar con xHarbour haré un ejecutable ...