PC Toledo

Enviado: **06 Jan 2017 10:59**

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

Enviado: **06 Jan 2017 11:55**

Instancie a dll assim:

Código: Selecionar todos

   objNFeUtil = CreateObject("NFe_Util_2G.Util")

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

Abs

Enviado: **06 Jan 2017 12:03**

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.

Enviado: **16 Jan 2017 11:45**

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,

Enviado: **16 Jan 2017 11:57**

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

Enviado: **16 Jan 2017 12:01**

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

Abs.

Enviado: **16 Jan 2017 20:46**

Obrigado João,

enviei um email paa p Gilmer.....

Grato pela sua atenção....

PC Toledo

Ajuda com rotina de NFEletronica da Flexdocs

Ajuda com rotina de NFEletronica da Flexdocs

Ajuda com rotina de NFEletronica da Flexdocs

Ajuda com rotina de NFEletronica da Flexdocs

Ajuda com rotina de NFEletronica da Flexdocs

Ajuda com rotina de NFEletronica da Flexdocs

Ajuda com rotina de NFEletronica da Flexdocs

Ajuda com rotina de NFEletronica da Flexdocs