Como tratar os retornos NFE_Validar() NFE_ValidarRegrasdeNegocios()

[Michel Guedes Campos]

Olá, estou iniciando a emissão de NFe e NFCe pela AcbrLIbNfe(0.4.6.84) , ja consigo emitir notas e consultar ok.

Mas nao consigo tratar quando há retornos pelos comandos NFE_Validar() e NFE_ValidarRegrasdeNegocios(), utilizo em Harbour.

Quando a DLL retorna SetRetorno -10,-11 da um erro na DLL e fecha, gostaria de fazer as validacoes antes do envio para Sefaz, outro comando que da erro se a Sefaz estiver fora do ar é o comando NFE_StatusServico().
Vou enviar o Log da DLL, estou utilizando as funcoes implementadas pelo DEMO em Harbour.

 

ACBrLibNFE-20200429.log AcbrLib.ini

[Rafael Dias]

Se a aplicação esta fechando é erro na sua parte, pois o log é até preenchido.

Sempre que o retorno for diferente de 0 vai ser lançado uma excpetion que você precisa capturar para processar as informações delas, se você não capturar estes erros a aplicação fechara mesmo.

Pelo que li no [x]Harbour tem o Try Catch e no Harbour é Begin Sequence e RECOVER

https://github.com/Petewg/harbour-core/wiki/Statements

[Michel Guedes Campos]

quando esta ok os dados da NFe funciona uma blz, mas quando retorna -10, -11 ele nao da retorno, vou colocar o methodos que utlizo.

METHOD CheckResult(hResult) CLASS ACBrNFe
    local buffer, bufferLen, oErr
    if hResult >= 0
       RETURN nil
    endif
    bufferLen := STR_LEN
    buffer := Space(bufferLen)
    DllCall(::hHandle, DLL_OSAPI, "NFE_UltimoRetorno", @buffer, @bufferLen)
    if bufferLen > STR_LEN
        buffer := Space(bufferLen)
        DllCall(::hHandle, DLL_OSAPI, "NFE_UltimoRetorno", @buffer, @bufferLen)
    endif
    oErr := ErrorNew()
    oErr:Severity := ES_ERROR
    oErr:Description := hb_UTF8ToStr(buffer)
    oErr:CanDefault    := .T.
    oErr:CanRetry      := .F.
    oErr:CanSubstitute := .F.
    Throw(oErr)

    RETURN nil

METHOD Validar() CLASS ACBrNFe
    local hResult
    hResult := DllCall(::hHandle, DLL_OSAPI, "NFE_Validar")
    ::CheckResult(hResult)
    RETURN nil

Neste caso ele gera um exception e lanca pelo Throw, mas da como erro do sistema e QUIT e na verdade teria qu somente gerar a string com o set retorno , nao seria?

LibNFe.prg

[Daniel Simoes]

é uma técnica comum de programação, disparar Exceptions, para a rotina que invoca, possa capturar...

Qual é a sua sugestão, para a mudança na Classe de Alto nível, em xHarbour ?

[Michel Guedes Campos]

Caro, @Daniel Simoes, nao quero mudar a LIB que ja é utilizada por muitos e salva a vida de muitos, somente gostaria de entender a mesma.

Como foi falado no post anterior, entao quando ela retorna -10 ou -11 ela gera um EXCEPTION, agora preciso tratar esse exception em Harbour, achei que mesmo no set retorno -10 ou -11 ela retornaria o erro, mas nao.

TFA

 

[Rafael Dias]

todo retorno negativo é um excpetion/erro, por isso a classe trabalha da mesma maneira.

Outra coisa que lembrei é que a função Validar, ela já funciona assim no pascal, em casa de erro de validação ela lança um exception, por isso tem este mesmo comportamento na lib.

Se pegar a mensagem da excpetion vai ter os erros.

[Daniel Simoes]

2 horas atrás, Michel Guedes Campos disse:

Caro, @Daniel Simoes, nao quero mudar a LIB que ja é utilizada por muitos e salva a vida de muitos, somente gostaria de entender a mesma.

Como foi falado no post anterior, entao quando ela retorna -10 ou -11 ela gera um EXCEPTION, agora preciso tratar esse exception em Harbour, achei que mesmo no set retorno -10 ou -11 ela retornaria o erro, mas nao.

TFA

 

Não é a Lib que gera um Exception, ela apebas retorna um valor negativo...

Quem gera o Exception é a Classe de Alto Nível em xHarbour, e a qual você tem os fontes...  ou seja, você pode modificar o método "CheckResult" para não levantar um Exception...

Um T.F.A.