Não consegue acessar o Portal da NFE

[billy1943]

A rotina abaixo, obtida por meio dos exemplos do XHarbour, é compilada e gera o executável, onde em meu sistema informo a chave
para acesso ao Portal da NFE por meio do link nela incluso;
Ocorre que nem o IE é aberto e nem o site é acessado.
Antes da modificação do site, tinha acesso
Se alguém quiser compilar e funcionar, agradeceria a informação do que está errado ou faltando.
Estou usando o Harbour.Exe de 26.04.11.

Código: Selecionar todos

#include "inkey.ch"

***************
FUNCTION main
***************
local oPagi,mweb
local xcolors := setcolor()
local xtela := savescreen()
private xchave
Parameters xchave 
wvw_settitle(,"Usando o Internet Explorer")
setcolor("w+/b,g+/n,,,bg+b")
cls

do while .t.
  
   try
   oPagi := GetActiveObject( "InternetExplorer.Application" )
   catch
   try
   oPagi := CreateObject( "InternetExplorer.Application" )
   catch
   Alert( "Erro ! Internet Explorer nÆo dispon¡vel")
   return
   end
   end
   mweb := "https://www.nfe.fazenda.gov.br/portal/consulta.aspx?" + ;
           "tipoconsulta=completa&tipoconteudo=xbseqxe8pl8=" + xchave 

   oPagi:Visible := .t.
   oPagi:Navigate( mweb )
   wvw_minimize(0)
   exit

enddo

setcolor(xcolors)
restscreen(,,,,xtela)
return nil

[sygecom]

Como mudou o site parou de funcionar, veja o exemplo do link abaixa, compile e teste, eu não testei ainda.
http://www.fivewin.com.br/forum/topic.a ... C_ID=19504

[billy1943]

Oi, Sygecom

O exemplo sugerido está em FiveWin, e eu tentei compilá-lo em XHarbour mas existiam funções que precisei excluir para ver se funcionava.

Não consegui.

Se alguém tem a estrutura do FiveWin e puder funcioná-lo ou adaptá-lo para XHarbour, seria de grande valia para nossa comunidade.

[fladimir]

Billy eu peguei o bonde andando nem usava isso em meu sistema mas achei interessante, peguei do link q o Leonardo postou e anexei em meu sistema, compilei e deu certo, agora consulto tb no Portal da NFe.

Não uso Fivewin, apenas Harbour Console, o único erro apresentado foi com relação a linha q esta comentada no código.

Vou postar o código q peguei do link do Leonardo, da uma verificada ai, se for o caso poste as mensagens de erro para que possamos tentar ajudá-lo.

Código:

Código: Selecionar todos

//////////////////////////////////////////////////////////////////////////////   
/// NFe_ChecaPortal - Função para checar o numero do Danfe nos portais Nacional ou Estado de São Paulo
/// Esta função faz com que abra as paginas dos portais de consulta das NFes e preencha os campos das chaves automaticamente.
/// Assim será necessario digitar somente o Capcha
///
/// Parametros: f_cChave > Numero da chave (Danfe) no formato caracter
/// f_nPortal > Portal a abril - Formato Numerico
/// 1- Portal Nacional
/// 2- Portal do estado de São Paulo
FUNCTION NFe_ChecaPortal(f_cChave,f_nPortal)
local oOle, oOleDoc := Array(2)
Default f_nPortal to 1

If f_cChave = NIL
	f_cChave := ""
Endif

oOle:= CreateObject("InternetExplorer.Application")
oOle:Visible := .t. // Apresenta o Browser
oOle:ToolBar := .f. // Desativa a barra de ferramentas
oOle:StatusBar := .f. // Desativa a barra de status
oOle:MenuBar := .f. // desativa a barra de menu

If f_nPortal == 1
	oOle:Navigate2("http://www.nfe.fazenda.gov.br/portal/consulta.aspx?tipoConsulta=completa&tipoConteudo=XbSeqxE8pl8=" + f_cCHAVE)
Else
	oOle:Navigate("http://nfe.fazenda.sp.gov.br/ConsultaNFe/consulta/publica/ConsultarNFe.aspx") // Abre o site
EndIf

WHILE oOle:Busy
	inkey(.5)
END

If f_nPortal == 1
	oOle := oOle:Document()
	oOle:All:Item("ctl00$ContentPlaceHolder1$txtChaveAcessoCompleta",0):Value := f_cChave
Else
	oOle := oOle:Document()
	oOle:All:Item("ctl00$ContentMain$tbxIdNFe"):Value := f_cChave
EndIf

//SysRefresh()
return .t.

Sds.
Sucesso!!!
:)Pos

[sygecom]

Olá Billy,

Oi, Sygecom

O exemplo sugerido está em FiveWin, e eu tentei compilá-lo em XHarbour mas existiam funções que precisei excluir para ver se funcionava.

Não consegui.

Se alguém tem a estrutura do FiveWin e puder funcioná-lo ou adaptá-lo para XHarbour, seria de grande valia para nossa comunidade.

Tem que funcionar com xHarbour puro, comente as funções da FIVEWIN que são duas apenas conforme o colega Fladimir mostrou que deve funcionar.