PC Toledo

oribeiro escreveu:nfe:=ACBrNFe():New()
? nfe:StatusServico()

Parece até a sefazclass.

Nfe := SefazClass():New()
Nfe:cCertificado := "nome" // caso já não esteja fixo no aplicativo
Nfe:cUF := "RJ" // caso não esteja fixo no aplicativo ou não seja a default
? nfe:NfeStatusServico()

Zé,
Pelo que vi ta no SVN do ACBR:

http://svn.code.sf.net/p/acbr/code/trun ... rbour/NFe/

Mas que parece muito parece mesmo

Dava pra melhorar muuuuito....

Código: Selecionar todos

METHOD GetPath(tipo)

    local hResult, buffer, bufferLen

    bufferLen := STR_LEN
    buffer := Space(bufferLen)
    hResult := DllCall(::hHandle, DLL_OSAPI, "NFE_GetPath", tipo, @buffer, @bufferLen)
    ::CheckResult(hResult)

    RETURN ::ProcessResult(buffer, bufferLen)

EM TUDO, tem a chamada, seguida da CheckResult, que nada mais é do que testar se o retorno cabia na variável, e se não couber cria uma variável maior.

ISSO É UMA CLASSE, parece que esqueceram.
Se é tudo igual, centraliza isso.

Substituir por a, b, c, d, e, f, g, o que poderia ser três pontos em Harbour ...

Código: Selecionar todos

METHOD DllAcbr( cFunction, a, b, c, d, e, f, g )

   LOCAL hResult, buffer, bufferlen

   bufferlen := STR_LEN
   buffer := Space( bufferlen )
   hResult := DllCall( ::hHandle, DLL_OSAPI, cFunction, @a, @b, @c, @d, @e, @f, @g )
   RETURN ::ProcessResult( buffer, bufferlen )

Com isso, o método original (todos fazem a mesma coisa), poderia ser resumido em:

Código: Selecionar todos

METHOD GetPath( tipo ) INLINE ::DllAcbr( "NFE_GetPath", tipo )

Só pra dar uma idéia de possibilidades.

Quintas, não seria interessante entrar em contato com o pessoal do ACBr e contribuir com o seu conhecimento sobre Classes em Harbour ?
O Daniel que iniciou o projeto em 2004 também era programador xBase, mas depois de tantos anos com certeza o foco é Pascal ( Lazarus e Delphi ) e os exemplos que eles fizeram para o ACBr LIB podem ser melhorados, fizeram mais para mostrar a integração.

https://projetoacbr.com.br/acbrlib/

MSDN escreveu:Quintas, não seria interessante entrar em contato com o pessoal do ACBr e contribuir com o seu conhecimento sobre Classes em Harbour ?

Não, porque não uso ACBR.
Teria que baixar, inventar programas, inventar dados pra teste, etc... não dá.
O pessoal do ACBR recebe pra isso.

Quanto aos usuários... talvez finalmente cobraram algo em DLL, e conseguiram alguma coisa.

PC Toledo

Dll nao carrega

Dll nao carrega

Dll nao carrega

Dll nao carrega

Dll nao carrega

Dll nao carrega