Página 2 de 3
Rotina para acessar Portal da NFE
Enviado: 14 Abr 2022 07:36
por 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.
Rotina para acessar Portal da NFE
Enviado: 14 Abr 2022 10:33
por 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:
Por:
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
Rotina para acessar Portal da NFE
Enviado: 14 Abr 2022 10:46
por lucimauro
Estou querendo dar um jeito de imputar a chave nesta consulta, alguém tem uma ideia pra isso?
Rotina para acessar Portal da NFE
Enviado: 14 Abr 2022 12:22
por JoséQuintas
Eu tenho no aplicativo o copiar automático.
O usuário apenas abre a consulta do portal e cola a chave.
Rotina para acessar Portal da NFE
Enviado: 14 Abr 2022 14:19
por 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.
Rotina para acessar Portal da NFE
Enviado: 14 Abr 2022 16:05
por rochinha
Amiguinhos
Passe a sua chave neste momento:
Código: Selecionar todos
...
oActiveXdo:All:Item("ctl00$ContentPlaceHolder1$txtChaveAcessoResumo",0):Value:=cChave
...
Rotina para acessar Portal da NFE
Enviado: 14 Abr 2022 17:37
por lucimauro
Rochinha esse método value nem existe nos teste que fiz aqui.
Rotina para acessar Portal da NFE
Enviado: 18 Abr 2022 09:36
por 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
Rotina para acessar Portal da NFE
Enviado: 18 Abr 2022 16:34
por 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.
Rotina para acessar Portal da NFE
Enviado: 18 Abr 2022 16:37
por 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
Rotina para acessar Portal da NFE
Enviado: 21 Abr 2022 11:35
por 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.
Rotina para acessar Portal da NFE
Enviado: 22 Abr 2022 00:19
por lucimauro
Rocinha ;
oActiveXdo:All:Item("ctl00$ContentPlaceHolder1$txtChaveAcessoResumo",0):Value:=cChave
nao funciona com :Win_OleCreateObject("WScript.Shell")
Rotina para acessar Portal da NFE
Enviado: 22 Abr 2022 08:53
por Kapiaba
Lucimauro, mostre a sua funcção completa para eu dar uma olhada e comparar com a minha por favor. Obg. abs.
Regards, saludos.
Rotina para acessar Portal da NFE
Enviado: 22 Abr 2022 09:17
por 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.
Rotina para acessar Portal da NFE
Enviado: 22 Abr 2022 10:31
por 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.
test.zip