Ajuda com rotina de NFEletronica da Flexdocs

[senun]

Bom dia a todos ..... Feliz Ano Novo.........

ano novo , problema antigo.... kkkk

utilizo (x)Harbour com Fivewin for Windows.....

a rotina abaixo não está retornando valores, alguem poderia me informar o que pode ser ?

//hLib_DLL:=LoadLibrary("NFe_UTIL_2G.DLL")

hLib_DLL:=LoadLib32("NFe_UTIL_2G.DLL")
//CRETORNO:=hLib_DLL:EnviaNFe2G(siglaWS, NFe, nomeCertificado, versao, msgDados, msgRetWS, cStat, msgResultado, nroRecibo, dhRecbto, //tMed, proxy, usuario, senha, licenca)

CRETORNO:=EnviaNFe2G(siglaWS, NFe, nomeCertificado, versao, msgDados, msgRetWS, cStat, msgResultado, nroRecibo, dhRecbto, tMed, proxy, usuario, senha, licenca)


FreeLibrary(hLib_DLL)

msginfo("Versão : " + TOSTRING(versao)+CRLF +;
"CRETORNO: " + TOSTRING(CRETORNO) +CRLF , "variáveis :")

DLL32 ;
FUNCTION EnviaNFe2G(siglaWS as STRING, NFe as STRING, nomeCertificado as STRING, versao as STRING, @msgDados as STRING, ;
@msgRetWS as STRING, @cStat as LONG , @msgResultado as STRING, @nroRecibo as STRING, @dhRecbto as STRING, ;
@tMed as STRING, proxy as STRING, @usuario as STRING, senha as STRING, @licenca as STRING) ;
AS STRING PASCAL LIB hLib_DLL


se puderem me fornecer alternativas, também aceito..... preciso resolver este problema que se arrasta desde novembro/16....


Grato a todos pela atenção

[Kapiaba]

Instancie a dll assim:

Código: Selecionar todos

   objNFeUtil = CreateObject("NFe_Util_2G.Util")

Veja exeplos no forum: www.fivewin.com.br

Abs

[Kapiaba]

Exemplo:

Código: Selecionar todos

#DEFINE DLL_STRING_OLE  "NFe_Util_2G.Util"


   #IFDEF __XHARBOUR__
       TRY
          ::oNFEUtil := GetActiveObject( DLL_STRING_OLE )
       CATCH
         TRY
            ::oNFEUtil := CreateObject( DLL_STRING_OLE )
         CATCH
            #IFDEF __DOS__
               Alert( "ERRO! NFE Util não está instalado neste computador." )
            #ELSE

               // Modificado em: 29/06/2012
               // Tem tela propria para instalar a DLL da Flexdocs
               //MsgStop( "ERROR! NFE Util não está instalado neste computador.",CAPTION_MSG)
               lNovaDllFlexs := .T.

            #ENDIF
            ::lOkDll := .f.
         END
      END

   #ELSE

      ::oNFEUtil := TOleAuto():New(DLL_STRING_OLE)

      IF ::oNFEUtil:hObj == 0
         #IFDEF __DOS__
            Alert( "ERRO! NFE Util nao esta instalado neste Computador." )
         #ELSE
            MsgStop( "ERROR! NFE Util nao está instaldo neste Computador.",CAPTION_MSG)
         #ENDIF
      ENDIF

   #ENDIF

Abs.

[senun]

Grande Kapiaba,

testei o que vc colocou e não consegui sucesso.....

o Gilmer me mandou a classe dele para eu testar.....

voce poderia me ajudar neste sentido ?

Grato,

[Kapiaba]

Bom dia, o melhor, é você ir direto no forum do Gilmer pois lá, tem vários que usam a classe, e podem e devem ajudá-lo. No que eu souber, responderei. Abs

[Kapiaba]

Veja se ele te manda o DEMO, onde tem o *.PRG exemplo e o DIALOGO(DIALOG) Original de onde partimos conforme imagem abaixo:

Abs.

[senun]

Obrigado João,

enviei um email paa p Gilmer.....

Grato pela sua atenção....