PC Toledo

... é nativo das linguagens [x]Harbour. No xHarbour, criaram através do pré-processador. Tem que fazer o mesmo para aplicações Harbour ou usar BEGIN SEQUENCE...RECOVER..
END SEQUENCE.

Coloque as linhas abaixo no início do teu .Prg:
#xcommand TRY => BEGIN SEQUENCE WITH { |o| Break( o ) }
#xcommand ...

A idéia é boa, mas cai quase no mesmo caso.
Supondo que eu coloque um BEGIN SEQUENCE/ENDSEQUENCE pegando o aplicativo inteiro.
Não vai dar erro, então não vai capturar nada.
O erro vai ser na execução das rotinas de API, e a LIB é quem faz.
Teoricamente vai dar no mesmo, igual já acontece.

Talvez ...

A idéia é boa, mas cai quase no mesmo caso.
Supondo que eu coloque um BEGIN SEQUENCE/ENDSEQUENCE pegando o aplicativo inteiro.
Não vai dar erro, então não vai capturar nada.
O erro vai ser na execução das rotinas de API, e a LIB é quem faz.
Teoricamente vai dar no mesmo, igual já acontece.

Talvez ...

Olá!

Coloque um begin sequence... recover using oErr e inspecione oErr no momento do erro.

... 1;
SubC: 1007;
OSCode: -2147352567;
SubSystem: WINOLE;
Mensagem: leiauteEventoCancSubst_v1.00.xsd#/schema/complexType[2][@name = 'TRetEvento']/sequence[1]/element[1][@name = 'infEvento']/complexType[1]/sequence[1]/element[3][@name = 'cOrgao']
Undeclared XSD type : '{http://www.portalfiscal.inf.br ...

... em todo caso, com CAPICOM, que usamos pra NFE.

testar

STATIC FUNCTION TestSignedEXE( cFileName )

LOCAL oSignedCode, lOk := .F.

BEGIN SEQUENCE WITH __BreakBlock()
oSignedCode := win_OleCreateObject( "CAPICOM.SignedCode" )
oSignedCode:FileName := cFileName
oSignedCode:Verify()
lOk ...

... mm + ret_aa, '@R 99/99/9999') ),;
ret_valor, mValor, ret_tipo, ccr_codigo})

Skip

EndDo

Set(_SET_DELETED, dele_atu)
Set Filter To

Begin Sequence
If Len(aDados) > 0

SetCursor(0)
aDados2 := RTP_RetBRow(16, 1, 38, 130, aCab, aDados, 9, cUo, cTipo, cNome)
SetCursor(1)

For i := 1 To Len ...

... mm + ret_aa, '@R 99/99/9999') ),;
ret_valor, mValor, ret_tipo, ccr_codigo})

Skip

EndDo

Set(_SET_DELETED, dele_atu)
Set Filter To

Begin Sequence
If Len(aDados) > 0

SetCursor(0)
aDados2 := RTP_RetBRow(16, 1, 38, 130, aCab, aDados, 9, cUo, cTipo, cNome)
SetCursor(1)

For i := 1 To Len ...

... x,...>] ) => inetIsSocket( <x> )
#xtranslate hb_inetClose( [<x,...>] ) => inetDestroy( <x> )

/* Some statement endings */
#xcommand ENDSEQUENCE => END
#xcommand ENDSWITCH => END
#xcommand END SWITCH => END
#xcommand ENDWITH => END
#xcommand END WITH => END
#xcommand END OBJECT => END ...

Uso isto


BEGIN SEQUENCE WITH __BreakBlock()
:Execute( "SELECT @@global.max_allowed_packet AS QTD" )
IF :Number( "QTD" ) < 16000000
Errorsys_WriteErrorLog( ;
"Max Allowed Packet=" + NumberSQL( :Number( "QTD" ) ) + hb_Eol() + ;
"Alterar seção [mysqld] em my.ini no servidor" + hb_Eol() + ;
"max ...

... cSetColor )
lErrorMsg := .T.
Inkey(2)

RETURN Nil

STATIC FUNCTION TestSignedEXE( cFileName )

LOCAL oSignedCode, lOk := .F.

BEGIN SEQUENCE WITH __BreakBlock()
oSignedCode := win_OleCreateObject( "CAPICOM.SignedCode" )
oSignedCode:FileName := cFileName
oSignedCode:Verify()
lOk ...

... RETURN ""

FUNCTION AppUserName()

RETURN ""

STATIC FUNCTION TestSignedEXE( cFileName )

LOCAL oSignedCode, lOk := .F.

BEGIN SEQUENCE WITH __BreakBlock()
oSignedCode := win_OleCreateObject( "CAPICOM.SignedCode" )
oSignedCode:FileName := cFileName
oSignedCode:Verify()
lOk ...

... pelos testes com certificado.
Trechos do meu build.prg


STATIC FUNCTION TestSignedEXE( cFileName )

LOCAL oSignedCode, lOk := .F.

BEGIN SEQUENCE WITH __BreakBlock()
oSignedCode := win_OleCreateObject( "CAPICOM.SignedCode" )
oSignedCode:FileName := cFileName
oSignedCode:Verify()
lOk ...

... merchant-api.ifood.com.br/authentication/v1.0/oauth/userCode])


Static Function f_WebSer(cMetodo, cUrl, cBody)
Local cRetorno, oSoap

BEGIN SEQUENCE WITH __BreakBlock()
oSoap:= Win_OleCreateObject([MSXML2.ServerXMLHTTP.6.0])
RECOVER
MsgExclamation([Erro na Criação do Serviço:] + Hb_OsNewLine ...

developer escreveu:Qual é o substituto de TRY/CATCH/END no Harbour?
E o que substitui o XBROWSER() no Harbour?
Obrigado