Jump to content
Fivewin Brasil

Consulta NFe pela Chave

edutraini

By edutraini
in Programação

 Share

Recommended Posts

edutraini Rookie

edutraini

Posted
Posted

Boa tarde, Pessoal

Eu usava esse endereco para consultar um nota fiscal pela chave no portal da fazenda e agora da erro não abre mais

oActivex:Navigate2("https://www.nfe.fazenda.gov.br/portal/consultaResumoCompletaAntiga.aspx?tipoConsulta=completa&tipoConteudo=XbSeqxE8pl8=")

Existe algum outro endereco que possa consultar a nfe

Link to comment
Share on other sites
kapiaba Enthusiast

kapiaba

Posted
Posted

Divirta-se: 

// Mudei em: 11/02/2014 usando ActiveX agora melhor e mais seguro.
FUNCTION ConsultaXmlComChave( cChave )
	   LOCAL oChildWnd, oDlg, oHttp
	   MsgWait( "CONECTANDO AO PORTAL DA SEFAZ...", ;
            "AGUARDE UM MOMENTO POR FAVOR... ", 2.5 )
	   DEFINE DIALOG oDlg FROM 0, 0 TO 600, 900 PIXEL                            ;
          TITLE "Consultar a Chave da NF-e na Sefaz"                         ;
          COLORS CLR_BLACK, CLR_WHITE TRANSPARENT
	   oDlg:lHelpIcon := .F.
	   ACTIVATE DIALOG oDlg NOWAIT CENTERED
	   oActiveX=TActiveX():New(oDlg,"Shell.Explorer.2",00,0,900,600)
	   oActivex:Silent := .T.
	   // Mudou em: 21/12/2017 - Joao
   oActivex:Navigate2("https://www.nfe.fazenda.gov.br/portal/consultaRecaptcha.aspx?tipoConsulta=completa&tipoConteudo=XbSeqxE8pl8=")
	   oActivex:SetFocus()
	   WHILE oActivex:Busy
	      SysWait(.2)
	   ENDDO
	   oActiveXdo := oActiveX:Document()
	   oHttp := oActiveX:GetProp( "Document" )    // -> Object Document
	   IF Empty( oHttp )
	      MsgInfo( "Problemas no Site da SEFAZ", ;
               "Problemas no Site da SEFAZ" )
	      RETURN( .F. )
	   ENDIF
	   oActiveXdo:All:Item("ctl00$ContentPlaceHolder1$txtChaveAcessoCompleta",0):Value:=cChave
	RETURN NIL
// Pessoal segue abaixo como acessar o portal do sefaz já como número da
// chave usando a classe OLE postado pelo gilmer em dicas
FUNCTION CHECA_CHAVE( nChave )
	  LOCAL oOle, cSite
	  // Verifica a conexao da internet se esta ativa ou nao
  IF .NOT. IsInternet()
	      MsgStop( OemToAnsi( "Aten‡Æo usu rio: NÆo h  conexÆo com a internet " )+CRLF+;
               OemToAnsi( "Saia do Programa e Verifique Suas Conexäes     " )+CRLF+;
               OemToAnsi( "de Internet. Enquanto Permanecer Esta Mensagem " )+CRLF+;
               OemToAnsi( "NÆo Tente Enviar Nenhuma Nota Fiscal Eletr“nica" )+CRLF+;
               OemtoAnsi( "Vocˆ Pode Emitir o FORMULµRIO DE SEGURAN€A     " )+CRLF+;
               OemToAnsi( "Clicando no BotÆo: <Manuten‡Æo>. Obrigado.     " ),     ;
               OemToAnsi( "Alerta M ximo, Computador Sem Internet Ativa.  " ) )
	     LIBERA_TUDO()
	     RETURN NIL
	  ENDIF
	  cSite := ( "http://www.nfe.fazenda.gov.br/portal/consultaRecaptcha.aspx?tipoConsulta=completa&tipoConteudo=XbSeqxE8pl8=" )
	  ShellExecute(GetActiveWindow(),"open",'"'+cSite+'"', 0 )
	  SysRefresh()
	RETURN( .T. )
	// Chave de acesso do portal da nfe - Incluido em: 06/08/2013
	// ESTA EM: http://www.pctoledo.com.br/forum/viewtopic.php?f=2&t=12128
	///////////////////////////////////////////////////////////////////////////////
/// 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 abrir - Formato Numérico
/// 1- Portal Nacional
/// 2- Portal do estado de São Paulo
	#command DEFAULT <param> := <val> [, <paramn> := <valn> ];
=> ;
    <param> := IIF(<param> = NIL, <val>, <param> ) ;
    [; <paramn> := IIF(<paramn> = NIL, <valn>, <paramn> ) ]
	FUNCTION NFe_ChecaPortal( f_cChave, f_nPortal )  // VEM DE DBMANUT.PRG
	   LOCAL oOle, oOleDoc := Array(2)
   LOCAL oIE
   LOCAL oDoc
   LOCAL oBody
	   Default f_nPortal := 1, f_cChave := ""
	   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("https://www.nfe.fazenda.gov.br/portal/consulta.aspx?tipoConsulta=completa&tipoConteudo=XbSeqxE8pl8=")
	   Else // Mudou para https
	      oOle:Navigate("https://nfe.fazenda.sp.gov.br/ConsultaNFe/consulta/publica/ConsultarNFe.aspx") // Abre o site
	   EndIf
	   // Maximiza o Internet explorer
   hWnd := oOle:hWnd
	   ShowWindow( hWnd, 3 ) // SW_MAXIMIZE=3 SW_NORMAL=1 SW_MINIMIZE=6
	   BringWindowToTop( hWnd )
	   WHILE oOle:Busy
	      SysWait(.5)
	      // Nenhuma funciona
      // ProcessMessages()
      // GTprocessmessages()
      // wvw_processmessages()
	   ENDDO
	   If f_nPortal == 1  // Portal Nacional
	      oOle := oOle:Document()
      oOle:All:Item("ctl00$ContentPlaceHolder1$txtChaveAcessoCompleta",0):Value := f_cChave
	   Else  // portal de Sao Paulo
	      oOle := oOle:Document()
      oOle:All:Item("ctl00$ContentMain$tbxIdNFe"):Value := f_cChave
	   EndIf
	   oDoc := oOle:Get( "Document" )
	   oBody := oOle:Get( "Body" )
	   //MsgAlert( oBody:innerText ) // mostra o texto da pagina
	   oBody := Nil
   oDoc  := Nil
   oOle  := Nil
	RETURN( .T. )
	FUNCTION ConsultaSefazXml( cChave )
	   LOCAL oFont, oDlgCaptcha, oGet, oGet1, cCaptcha := Space(8), oSefaz, oImage
   LOCAL oFnt, oSaida, oBaixarXML
	   LOCAL oChildWnd
	   Default cChave := Space(44)
	   // 03/02/2014
   // BAIXA O ARQUIVO .XML NAO ASSINADO, + NAO BAIXA O ASSINADO... ESPERANDO
   MsgWait( "CONECTANDO AO PORTAL DA SEFAZ...", ;
            "AGUARDE UM MOMENTO POR FAVOR... ", 2.0 )
	   SELECT CADNFE
	   DEFINE WINDOW oChildWnd FROM 0,0 TO 600,800 PIXEL TITLE "Fazenda.GOV"
	   oActiveX = TActiveX():New( oChildWnd, "Shell.Explorer.2" )
	   oChildWnd:oClient = oActiveX
	   oActiveX:Do( "Navigate2", "https://www.nfe.fazenda.gov.br/portal/consulta.aspx?tipoConsulta=completa&tipoConteudo=XbSeqxE8pl8="+cChave )
	   ACTIVATE WINDOW oChildWnd
	RETURN NIL


 

Link to comment
Share on other sites
  • 2 years later...
kapiaba Enthusiast

kapiaba

Posted
Posted

Bom dia. Amores e amoras, parou de funcionar. Alguém sabe o que aconteceu, o que a SEFAZ mudou e se possível pode postar para nosotros? Obg. Abs. 

	oActiveXdo:All:Item("ctl00$ContentPlaceHolder1$txtChaveAcessoCompleta",0):Value:=cChave

SEFAZ chata do kcte.

Regards, saludos.

Link to comment
Share on other sites

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

Guest
Reply to this topic...

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

Loading...
×
 Share
Go to topic listing
×
×
  • Create New...