FoxPro/Visual FoxPro - para Kong, controlar error de Impresora!

Amigo, gracias por tu ayuda, ya econtre el número especifico del error par acontrolar el error de impresora, entiendo que tengo que colocar ON ERROR DO nombre, en el programa de inicio, lo que no tengo claro es donde voy a colocar la rutina! disculpa nunca he hecho una!

tu dices que la coloques en el .prg de procedimientos, o funciones definidas, ¿Te pregunto acaso tengo que meterla en el mismo programa de inicio, o te refieres a otra parte? por favor explicame un poquito mas, dame una pista....

gracias de antemano...

esta fue la ayuda que me escribeste
______________________________________________________________________

seguramente tienes una rutina de control de Errores, no?
hay un numero especifico del error que corresponde a la falla de impresora, solo lo tienes que incorporar a tu rutina de control de errores (exactamente no se cual es ese numero, pero existe en la ayuda)
..............
si no tienes la rutina de control de errores debes crear una.

dentro del .prg principal, al inicio, ponga esta linea
ON ERROR DO nombrerutinadeerrores

en el .prg de procedimientos, o funciones definidas, has una rutina asi
FUNCTION nombrerutinadeerrores
do case
case error()=1234
mostrar algun mensaje
hacer algo
case error()=0987
mostrar algun mensaje
hacer algo
endcase
return

hola.
si. puedes ponerla en el mismo programa de inicio....
no tengo a la mano una rutina asi. pero es como cualquier UDF (funcion definida por el usuario)

puedes utilizar algo asi

FUNCTION Error(lnerror,lcMethod,lnLine)
This.StandardPage("Error Ocurrido","Prueba")
LOCAL loException as Exception
loException = CREATEOBJECT("Exception")
loException.LineNo = lnLine
loException.ErrorNo = lnError
loException.Message = MESSAGE()
THROW loException
ENDFUNC

Tambien puedes ayudarte en el formulario del evento ERROR:
Aca puedes hacer algo como esto:
*
IF nerror = 1234
mostrar algun mensaje
ELSE
IF nerror ? 987
mostrar algun mensaje
ENDIF
ENDIF
return

Ya entendi...... creo que podre terminar esa parte parte hoy mismo.... gracias muchachos, de verdad gracias por la ayuda... espero algún dia en un futuro no muy legos ayudar a otras personas en esto de la programación...

algo mas completo cono esto lograras una cadena de texto para identificar tu error

function xErrHlr()
#DEFINE CRLF chr(13)+chr(10)
local ;
laErrs[1], lnErrs, lnErr, ;
llOleErr, llOdbcErr, llTrigErr, ;
lcErrMsg

aError( laErrs )
llOleErr = between( laErrs[1], 1426, 1429 )
llOdbcErr = laErrs[1] = 1526
llTrigErr = laErrs[1] = 1539

lcErrMsg = ;
'1. Error: ' + trans( laErrs[1] ) + CRLF ;
+ '2. Message: "' + laErrs[2] + '"' + CRLF ;
+ '3. ' + iif( llOleErr or llOdbcErr, "OLE/ODBC: ", "EMP: " ) + transform( laErrs[3] ) + CRLF ;
+ '4. ' + iif( llOleErr, "App: ", ;
iif( llOdbcErr, "SQL State: ", ;
"Work Area (?): " ) + transform( laErrs[4] ) ) + CRLF ;
+ '5. ' + iif( llOleErr, "OLE Help file: " + trans( laErrs[5] ), ;
+ iif( llOdbcErr, "ODBC Error: " + transform( laErrs[5] ), ;
+ iif( llTrigErr, "Trigger: " + substr( "InsertUpdateDelete", laErrs[5]*6-5, 6 ), ;
+ "na: " + transform( laErrs[5] ) ) ) ) + CRLF ;
+ '6. ' + iif( llOleErr, "OLE Help Context Id : ", ;
+ iif( llOdbcErr, "ODBC Connection Handle: ", ;
+ "na: " ) ) + transform( laErrs[6] ) + CRLF ;
+ '7. ' + iif( llOleErr, "OLE exception number: ", ;
+ "na: " ) + transform( laErrs[6] )

? lcErrMsg
_cliptext = lcErrMsg && put it on the clipboard so you can post it in a message.