Rubens,
Abs.

Moderador: Moderadores
Public cUrl := "https://www.nfe.fazenda.gov.br/portal/consultaResumoCompletaAntiga.aspx?tipoConsulta=completa&tipoConteudo=XbSeqxE8pl8%3D"
Public cUrl2:= 'https://www.nfe.fazenda.gov.br/portal/consultaCompleta.aspx?tipoConteudo=XbSeqxE8pl8%3D'
Bom dia, quais argumentos devo passar para o exe?
para setar a chave e o local para salvar o xml.
Essa chave é do ambiente de homologação, será por isso?
If At('id="ctl00_ContentPlaceHolder1_bltMensagensErro" class="listaErro">', cHtml) > 0
cPart:= Substr(cHtml, (At('id="ctl00_ContentPlaceHolder1_bltMensagensErro" class="listaErro">', cHtml) + 66))
cPart:= Substr(cPart, (At('<li>', cPart) + 4))
MsgInfo(Troca_Acento(SubStr(cPart, 1, (At('</li>', cPart) - 1))), 'aviso Erro')
Return .f.
EndIf
If ! Empty(cHtml)
...
Usuários vendo este fórum: Bing [Bot] e 8 visitantes