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

   
Vista:

para Kong, controlar error de Impresora!

Publicado por Rafael (51 intervenciones) el 09/02/2009 21:42:41
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
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

RE:para Kong, controlar error de Impresora!

Publicado por kong (681 intervenciones) el 09/02/2009 22:00:53
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)
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

RE:para Kong, controlar error de Impresora!

Publicado por Ernesto Hernandez (4632 intervenciones) el 09/02/2009 22:09:47
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
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar
Imágen de perfil de Mauricio

Controlar error de Impresora

Publicado por Mauricio (1368 intervenciones) el 09/02/2009 22:14:43
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
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

RE:Controlar error de Impresora

Publicado por Rafael (51 intervenciones) el 09/02/2009 22:20:20
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...
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

RE:Controlar error de Impresora

Publicado por Ernesto Hernandez (4632 intervenciones) el 09/02/2009 22:24:23
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.
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar