Rotina para acessar Portal da NFE

[Kapiaba]

Bom dia, eu me refiro a este comando:

Código: Selecionar todos

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

Obg. abs.

Regards, saludos.

[rochinha]

Amiguinhos,

Bom dia. A SEFAZ mudou alguma coisa, simplesmente parou de funcionar.

Troque:

Código: Selecionar todos

https://www.nfe.fazenda.gov.br/portal/consulta.aspx?tipoConsulta=completa&tipoConteudo=XbSeqxE8pl8=

Por:

Código: Selecionar todos

https://www.nfe.fazenda.gov.br/portal/consultaRecaptcha.aspx?tipoConsulta=resumo&tipoConteudo=7PhJ+gAVw2g=

Troque:

Código: Selecionar todos

ctl00$ContentPlaceHolder1$txtChaveAcessoCompleta

Por:

Código: Selecionar todos

ctl00$ContentPlaceHolder1$txtChaveAcessoResumo

Veja se funciona, pois a página realmente foi modificada.

Apesar de bem lembrado pelo José M Quintas é obrigação passível de multa o envio do XML pelo emissor ao destinatário e o destinatário processar a manifestação

[lucimauro]

Estou querendo dar um jeito de imputar a chave nesta consulta, alguém tem uma ideia pra isso?

[JoséQuintas]

Eu tenho no aplicativo o copiar automático.
O usuário apenas abre a consulta do portal e cola a chave.

[lucimauro]

Então voce digite a chave no sistema e copia para area de transferência depois no portal voce cola correto?
EU queria era simplificar esse processo já colando no portal mais não consegui.

[rochinha]

Amiguinhos

Passe a sua chave neste momento:

Código: Selecionar todos

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

[lucimauro]

Rochinha esse método value nem existe nos teste que fiz aqui.

[Kapiaba]

No forum FiveWin Brasil, foi reportado que funciona normal com as instruções do rochinhas.

http://fivewin.com.br/index.php?/topic/ ... ela-chave/

Regards, saludos

[JoséQuintas]

Eu não me conformo com isto:

Código: Selecionar todos

MsgStop( OemToAnsi( "Aten‡Æo usu rio: NÆo h  conexÆo com a internet " )+CRLF+;

parece 20 anos atrasado...
Não acredito que fivewin ou outra LIB precise disso, talvez só GTWVW do Harbour 3.2.
Ou talvez XHarbour, sei lá... não uso, não sei dizer.

[JoséQuintas]

Código: Selecionar todos

REQUEST HB_CODEPAGE_PTISO

PROCEDURE Main

   SetMode( 25, 80 )
   Set( _SET_CODEPAGE, "PTISO" )
   CLS
   MsgStop( "Atenção usuário: Não há conexão com a internet" )

   RETURN

FUNCTION MsgStop( cText )

   wapi_MessageBox( wapi_GetActiveWindow(), cText, "Atenção" )

   RETURN Nil

test.zip

(439.74 KiB) Baixado 199 vezes

[Kapiaba]

Não entendi sua comparação com o FiveWin. MsgInfo(), MsgStop(), são funcões próprias do FiveWin, explique melhor, porfa.

Código: Selecionar todos

REQUEST HB_CODEPAGE_PTISO

PROCEDURE Main

   SetMode( 25, 80 )
   Set( _SET_CODEPAGE, "PTISO" )
   CLS

   IF .NOT. IsInternet()

      MsgStop( "Atenção usuário: Não há conexão com a internet" )

   ENDIF

   RETURN

FUNCTION MsgStop( cText ) // MsgStop funcao propria do FiveWin.

   wapi_MessageBox( wapi_GetActiveWindow(), cText, "Atenção" )

RETURN Nil

FUNCTION IsInternet()

   LOCAL cIp, cVret := .F.

   WsaStartUp()

   cIp := GETHOSTBYNAME( "microsoft.com" )
   cIp := GETHOSTBYNAME( "microsoft.com" )

   WsaCleanUp()

   IF ( cIp <= "0.0.0.0" )

      WsaStartUp()

      cIp := GetHostByName( "google.com" )
      cIp := GetHostByName( "google.com" )

      WsaCleanUp()

   ENDIF

RETURN( cIp<>"0.0.0.0" )

Regards, saludos.

[lucimauro]

Rocinha ;
oActiveXdo:All:Item("ctl00$ContentPlaceHolder1$txtChaveAcessoResumo",0):Value:=cChave
nao funciona com :Win_OleCreateObject("WScript.Shell")

[Kapiaba]

Lucimauro, mostre a sua funcção completa para eu dar uma olhada e comparar com a minha por favor. Obg. abs.

Regards, saludos.

[Itamar M. Lins Jr.]

Olá!

Não entendi sua comparação com o FiveWin. MsgInfo(), MsgStop(), são funcões próprias do FiveWin, explique melhor, porfa.

msginfo() tem na Hwgui, WVW... em quem quiser usar a função com esse nome. Na versão 2.17 em diante a Hwgui adotou prefixo HWG_MSGINFO() para não colidir com as funções das libs de fora.
MAS não é isso que ele se referiu, ele faz REFERÊNCIA às letras acentuadas. Da não necessidade de usar isso:

Código: Selecionar todos

OemToAnsi( "Aten‡Æo usu rio: NÆo h  conexÆo com a internet " ).

O acento não aparece nem para o programador e ainda tem que usar uma função OEM... Não tem necessidade nenhuma disso, basta entender o assunto de como o editor de código fonte acentua e usar o mesmo que o OS(Windows) usa.

Saudações,
Itamar M. Lins Jr.

[lucimauro]

Kapiaba bom dia.

Código: Selecionar todos

objShell:=Win_OleCreateObject("WScript.Shell")
objShell:run('chrome.exe http://www.nfe.fazenda.gov.br/portal/consultaRecaptcha.aspx?tipoConsulta=resumo&tipoConteudo=7PhJ+gAVw2g=')
Inkey(6)
objShell:All:Item("ctl00$ContentPlaceHolder1$txtChaveAcessoResumo",0):Value:=cChaveNfeBaixar

Estou chamando logo o chrome porque pelo IE não se consegue baixar xml no portal com certificado porque fica dando erro
Então por isso não uso CreateObject("InternetExplorer.Application"), não sei se isso seria o problema.