Acessar IE pelo Clipper com site da NFE

[billy1943]

Tenho um arquivo de nome ie.bat com o seguinte conteúdo:

@start "" /b "C:\Arquivos de Programas\Internet Explorer\iexplore.exe" %*

Se eu o chamar no prompt do DOS como exemplo:

ie.bat "www.xxxxxxxx.com.br....."

ele acessa qualquer site sem problemas.

Eu queria utilizá-lo para acessar o portal da NFE abaixo e usando a chave (fictícia) abaixo,
de dentro de um programa em Clipper, com os seguintes valores :

chave -> "35100671683379000200550000000104862001600477" // pode usar uma válida para teste
portal -> "https://www.nfe.fazenda.gov.br/portal/F ... aveacesso="

Se concatenarmos o link do portal com a string da chave e chamarmos o IE.Bat com essa nova string, ele acessa a NFE certinho.

Exemplo: pelo prompt do DOS

ie.bat "https:// ..............................600477"

Já tentei várias formar com RUN, START e com a função SWPRUNCMD do Blinker, sem sucesso.
Poderíamos usar essa estrutura para n situações dentro de nossos sistemas.

Alguém tem a solução ?

[alxsts]

Olá!

Podes postar o código onde é montada a string?

[billy1943]

Ao Alexandre:

Obrigado pela atenção:

Explicação:

- a chave abaixo eu a consigo no meu sistema por meio dos .XML recebidos dos fornecedores, ou pelos produzidos pelo sistema nas NFE emitidas;
- abaixo seria a forma de acessar o site com as informações: chave e site da Receita e usando o IE.BAT:


cchavenfe := "35100671683379000200550000000104862001500477"
ccomando := "https://www.nfe.fazenda.gov.br/portal/F ... ]cChaveNFe[/b]
start ie.bat &ccomando.

[sygecom]

Talvez não seja a resposta que esteja esperando, mas tente compilar seu aplicativo com xharbour que esse tipo de coisa não precisa nem esquentar a cabeça de como contornar.

[billy1943]

Olá Sygecom !

Eu vi os exemplos no XHarbour de como acessar sites com passagem de parametros, tais como: Mapa, CEP.

Ocorre que as minhas aplicações estão muito difíceis de converter, primeiro porque tenho muitas .LIBs de que não disponho dos fontes, segundo porque demandaria muito tempo para converter para o ambiente gráfico que seria meu principal intuito quando for para migrar do Clipper de uma vez;

Se puder me indicar um .EXE, feito com o XHarbour/Harbour/Minigui, que possa ser utilizado facilmente de dentro do Clipper, similarmente ao UNIDANFE, ou outros que mesmo sendo visuais, permitem a passagem de parametros, isto também me atenderia.

Agradeço de qualquer forma toda ajuda advinda.

[JoséQuintas]

Se servir usar um pouco de VBScript, e o antivírus não bloquear...
Em todo caso, teste antes as alternativas em fonte Clipper ou BAT, ajustando a linha de comando no estilo do RUN do VBScript.
(Quando o nome do programa/pasta tem espaços em branco, é necessário colocar entre aspas)

Código: Selecionar todos

Fonte Clipper

cChave = "35100671683379000200550000000104862001600477"
run ("NFE.VBS " + cChave)

NFE.VBS

set oShell = CreateObject("WScript.Shell")
Set oArgs = WScript.Arguments
dim cComando
cComando = Chr(34)+"c:\Arquivos de programas\Internet Explorer\iexplore.exe" +
Chr(34)+ " https://www.nfe.fazenda.gov.br/portal/FormularioDePesquisa.aspx?tipoconsulta=completa&chaveacesso=" & oArqs(0)
oshell.run (cComando)
set oargs = nothing
set oshell = nothing

[billy1943]

Obrigado pela atenção, amigo JoséQuintas

Vou tentar adaptar para Clipper, pois não uso ainda outra linguagem além dele.
Estou "dando uns tapas" no XHarbour, mas não estou em condições de deixar de lado nosso velho e bom Clipper.

[JoséQuintas]

Explicando melhor:

Primeiro tente no Clipper, usando aspas igual está no script
run ( chr(34) + "c:\arquivos de programas\...." + chr(34) + " " + cChave)

Aqui eu uso do jeito que coloquei aí.
O arquivo VBS usa VBScript, linguagem estilo VB6, que roda no Windows sem compilar, como se fosse um arquivo BAT.
O VBScript tem tanto recurso que até fazem vírus com ele, por isso alguns antivírus bloqueiam qualquer script, até esse.
No meu sistema em Clipper, o usuário digita o CEP e o sistema já busca on-line nos correios através de script, e de quebra já vai salvando numa base MySql.
Pode ser interessante fazer uso de script, já que está fazendo muito uso do Clipper, como eu.

[billy1943]

Olá amigo José Quintas

Não deu certo o tal de script (VBS).

Tem alguma coisa a preparar no sistema para que ele funcione ?

Tem algo a ver com Windows Scripting Host ?

Porque se desse certo, seria uma boa por permitir integração entre o Clipper e o Windows.

[JoséQuintas]

Veja se tem o wscript.exe.
run ( "c:\windows\system32\wscript.exe arquivo.vbs")

Obs. Uso XP Pro SP3, mas olhei aqui no Windows 7 Enterprise, e o wscript.exe também está lá.

[billy1943]

Resolvi da seguinte forma:

- adaptei o exemplo MAPAS do XHarbour, onde o site acessado é o Maps.Google, para acessar o do Portal da NFE;
- forneço como único parametro a chave de acesso obtida do .XML pelo sistema em Clipper, tanto para as NFe de saídas como principalmente para as de entrada;

- uso o comando RUN ("sefaz.exe" + " " + param)
onde param = string de 44 caracteres, isolada com o uso da LFN.LIB (função LF_MEMOREAD), em Clipper;