PC Toledo

... 1 )
PostQuitMessage( 0 )
QUIT

RETURN .F.

STATIC FUNCTION ErrorMessage( e )

LOCAL cMessage := ""

// start error message
BEGIN SEQUENCE WITH __BreakBlock()
cMessage := if( e:Severity > ES_WARNING, "Error ", "Warning " )
ENDSEQUENCE

// add subsystem name IF available
IF ...

... STATIC FUNCTION EnsurePSW_LETO()

LOCAL aStru := {}
LOCAL lOk := .T.

IF Empty( cPathLeto )
RETURN .F.
ENDIF

BEGIN SEQUENCE

// 1) cria DBF se não existir
IF ! leto_file( cPathLeto + "psw.dbf" )

AAdd( aStru, { "USUARIO", "C", 10, 0 } )
AAdd( aStru, { "SENHA", "C ...

... Czerpak (druzus/at/poczta.onet.pl)
* contrib/hbssl/d2i.c
* contrib/hbssl/hbssl.hbx
* added new PRG function which converts ASN.1 DER SEQUENCE (RFC 3279) to
IEEE P1363 Fixed Field Concatenation ( R || S ):
D2I_ECDSA_SIG_RS( <cSigDER> ) -> <cSigRS>

* src/rtl/vfile.c
* comment ...

... é 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 ...