PC Toledo

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

Olá!

Qual é o substituto de TRY/CATCH/END no Harbour?

BEGIN SEQUENCE
<statements>...
[BREAK [<exp>]]
<statements>...
[RECOVER [USING <idVar>]]
<statements>...
[DEFAULT]
END [SEQUENCE]


Na verdade, o xHarbour implementou um #translate do comando acima, que resultou em Try/Catch/End try ...

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

... options": {
"statusbar": {
"hide": true
}
}
},
{
"label": "Compilar e Executar Clipper",
"type": "shell",
"dependsOrder": "sequence",
"dependsOn": [
"Compilar com hbmk2 (arquivo atual)",
"Executar .exe (raiz projeto)"
],
"problemMatcher": [],
"options": {
"statusbar ...

... nOrder>
A numeric value specifying the ordinal position of the index open in a work area to query information for. Indexes are numbered in the sequence of opening, beginning with 1. The value zero identifies the controlling index.
<cIndexName>
Alternatively, a character string holding the ...