kapiaba Posted December 12, 2016 Report Share Posted December 12, 2016 Já to dentro amorrrrrrrrrrrrrrrrrr ahauhauhauahuahuahuahau kkkkkkkkkkkkkkkkkkkkk, morrriiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiii aferra 1 Quote Link to comment Share on other sites More sharing options...
kapiaba Posted December 12, 2016 Report Share Posted December 12, 2016 Já deu certo.. o colega Daniel, autor original da rotina no inicio da postagem q compartilhou no fórum do Toledo e depois foi migrada para Fivewin, corrigiu e postou lá o código Bom dia Fladimir, onde é a modificação, pode postar, porfa? Quote Link to comment Share on other sites More sharing options...
fladimir Posted December 12, 2016 Report Share Posted December 12, 2016 Bom dia Fladimir, onde é a modificação, pode postar, porfa? Bom dia João, Então ele revistou todo o PRG... segue link pra baixar o PRG alterado Ai no caso tem q adaptar ao Five []'s kapiaba 1 Quote Link to comment Share on other sites More sharing options...
aferra Posted December 13, 2016 Author Report Share Posted December 13, 2016 irei adaptar para o five, assim que pronto, posto novamente. Quote Link to comment Share on other sites More sharing options...
marcioe Posted December 16, 2016 Report Share Posted December 16, 2016 ALGUMA NOVIDADE PARA xhabor. Quote Link to comment Share on other sites More sharing options...
aferra Posted December 21, 2016 Author Report Share Posted December 21, 2016 Bom, peguei o que aokisantos postou e está perfeito para o harbour, para xharbour precisa alterar essas duas linhas local oDialog, oIcone, oFonte, hInput := HB_Hash() para local oDialog, oIcone, oFonte, hInput := Hash() e na static procedure AtualizaImagem( hInput ) oServer:= win_OleCreateObject( "MSXML2.ServerXMLHTTP.5.0") para oServer:= CreateObject( "MSXML2.ServerXMLHTTP.6.0" ) e como já está postado basta copiar e alterar e que vai funcionar, inclusive já está com a ultima alteração feita da pctoledo. Quote Link to comment Share on other sites More sharing options...
Jorge Andrade Posted December 21, 2016 Report Share Posted December 21, 2016 Bom, peguei o que aokisantos postou e está perfeito para o harbour, para xharbour precisa alterar essas duas linhas local oDialog, oIcone, oFonte, hInput := HB_Hash() para local oDialog, oIcone, oFonte, hInput := Hash() e na static procedure AtualizaImagem( hInput ) oServer:= win_OleCreateObject( "MSXML2.ServerXMLHTTP.5.0") para oServer:= CreateObject( "MSXML2.ServerXMLHTTP.6.0" ) e como já está postado basta copiar e alterar e que vai funcionar, inclusive já está com a ultima alteração feita da pctoledo. Essa resposta foi somente pra sua FLOR DE LIZ?? ahuahuahauahau. Brincadeirinha, amigo, amigo, ahuahauhauhauhauah kapiaba and aferra 2 Quote Link to comment Share on other sites More sharing options...
kapiaba Posted December 21, 2016 Report Share Posted December 21, 2016 kkkkkkkkkkkkkkk, morriiiii, como é ciumento esse Jorge Andrade!! kkkkkkkkkkkkkkkkkkkkk aferra 1 Quote Link to comment Share on other sites More sharing options...
aferra Posted December 21, 2016 Author Report Share Posted December 21, 2016 kkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkk haja ciúmes, tem pros dois benhêêê kkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkk kapiaba 1 Quote Link to comment Share on other sites More sharing options...
Jorge Andrade Posted December 21, 2016 Report Share Posted December 21, 2016 Magoei!!!! Pena que aqui não tem para vcs dois ouvirem os meus soluços. ahauhauahuahuahua kapiaba 1 Quote Link to comment Share on other sites More sharing options...
william Posted December 22, 2016 Report Share Posted December 22, 2016 Boa tarde, agora sim , terminei de adaptar a ultima versao do codigo do Daniel (14/12/2016) para funcionar com xharbour. Tambem arrumei o erro que as vezes nao aparecia o captcha. Caso a TIP.LIB do seu xharbour nao tiver a função HB_BASE64DECODE() ( as versoes mais recentes do xharbour nao tem) , segue no pacote a tip.lib que contem a funcao,, basta inclui-la no projeto. Abaixo o link para descarregar o pacote com o fonte (NFE.PRG). http://www.4shared.com/rar/hbk9ZBefba/nfedosite3.html Att. William Adami Quote Link to comment Share on other sites More sharing options...
Jorge Andrade Posted December 23, 2016 Report Share Posted December 23, 2016 Boa tarde, agora sim , terminei de adaptar a ultima versao do codigo do Daniel (14/12/2016) para funcionar com xharbour. Tambem arrumei o erro que as vezes nao aparecia o captcha. Caso a TIP.LIB do seu xharbour nao tiver a função HB_BASE64DECODE() ( as versoes mais recentes do xharbour nao tem) , segue no pacote a tip.lib que contem a funcao,, basta inclui-la no projeto. Abaixo o link para descarregar o pacote com o fonte (NFE.PRG). http://www.4shared.com/rar/hbk9ZBefba/nfedosite3.html Att. William Adami William, quando tento baixar meu antivírus (Nod32-Eset) está acusando página maléfica ou arquivo contaminado. []s, Quote Link to comment Share on other sites More sharing options...
kapiaba Posted January 2, 2017 Report Share Posted January 2, 2017 Jorge, está baixando normal, você deve estar clicando no botão errado. Chame no skype que eu passo para ti. abs. Jorge Andrade 1 Quote Link to comment Share on other sites More sharing options...
Jorge Andrade Posted January 5, 2017 Report Share Posted January 5, 2017 Jorge, está baixando normal, você deve estar clicando no botão errado. Chame no skype que eu passo para ti. abs. Opa!!! Valeu meu amigo João, quantas horas vc ficou sóbrio nestas festas, eu não consegui contar, ahauhauhauahuahua. Estes dias estive resolvendo assuntos particulares, mas quando puder, me chame por favor. []s, Quote Link to comment Share on other sites More sharing options...
oribeiro Posted January 17, 2017 Report Share Posted January 17, 2017 Pessoal, Essa função é sensacional! Muito obrigado pela contribuição. Ela consegue gerar um novo arquivo XML com todas as informações do xml original? Por exemplo, as tags de importação, fundo de pobreza, etc. Tudo? Quote Link to comment Share on other sites More sharing options...
oribeiro Posted January 18, 2017 Report Share Posted January 18, 2017 Consegui baixar o XML feita no modo produção, mas tem como baixar uma XML feita no modo teste? No modo de produção são usadas as seguintes URLs, seria o caso de trocar alguma coisa aqui? Private cUrl := "http://www.nfe.fazenda.gov.br/portal/consulta.aspx?tipoConsulta=completa&tipoConteudo=XbSeqxE8pl8=" Private cUrl1:= "http://www.nfe.fazenda.gov.br/portal/consultaCompleta.aspx?tipoConteudo=XbSeqxE8pl8=" Private cUrl2:= 'http://www.nfe.fazenda.gov.br/portal/consultaCompleta.aspx?tipoConteudo=XbSeqxE8pl8%3d' Quote Link to comment Share on other sites More sharing options...
aferra Posted January 18, 2017 Author Report Share Posted January 18, 2017 desculpe, mas pq cargas d'águas baixar do modo teste? bem voce teria que descobrir quais os links relacionais para isso. Quote Link to comment Share on other sites More sharing options...
oribeiro Posted January 18, 2017 Report Share Posted January 18, 2017 Concordo que é estranho esse meu objetivo! Risos Mas eu quero fazer testes com essa função para ver se ela consegue montar um XML completo, com dados de importação/exportação, fundo de pobreza, etc. Então, eu posso fazer uma nota fiscal como teste e colocar tudo nela e depois ver se o XML baixado nessa função contempla tudo. Quote Link to comment Share on other sites More sharing options...
aferra Posted January 18, 2017 Author Report Share Posted January 18, 2017 hummmm entendi, então olhe o fonte que voce vai ver se tem tudo isso que vc precisa, está tudo separado e comentado, a função é BaixarXML, senão tiver vc reporta. Quote Link to comment Share on other sites More sharing options...
oribeiro Posted January 19, 2017 Report Share Posted January 19, 2017 Certo. Obrigado. Apenas mais uma coisa, o XML baixado por essa função tem validade jurídica? Quote Link to comment Share on other sites More sharing options...
Alain da Silva Posted February 10, 2017 Report Share Posted February 10, 2017 Boa tarde, esta dando um erro na criação da imagem. If (!(ferror() = 0)) MsgInfo("Erro de criacao do arquivo de imagem " + Str(ferror(), 3, 0)) Return .f. EndIf Quote Link to comment Share on other sites More sharing options...
Alain da Silva Posted February 14, 2017 Report Share Posted February 14, 2017 Mais alguém esta com esse erro? Quote Link to comment Share on other sites More sharing options...
fladimir Posted February 14, 2017 Report Share Posted February 14, 2017 (edited) Veja no seu código se vc tem essa linha: nFim := At('" style="border-width:0px;" />', cHtml1) - 2 Caso tenha altere para: nFim := At('" />', cHtml1) - 1 Agradecimentos ao colega Daniel autor da rotina original q identificou a mudança q os caras fizeram no site e já postou a correção. A comunidade agradece. Edited February 14, 2017 by fladimir prestar agradecimento ao autor original da solução Quote Link to comment Share on other sites More sharing options...
Alain da Silva Posted February 14, 2017 Report Share Posted February 14, 2017 obrigado Fladimir, funcionou. fladimir 1 Quote Link to comment Share on other sites More sharing options...
crisvam Posted June 29, 2017 Report Share Posted June 29, 2017 A rotina estava funcionando muito bem, de repente não aparece mais o captcha. Antes porem, apacece a menssagem: 'Erro ao tentar obter CAPTCHA. Tente novamente!', 'Atenção! Na função AtualizarImagem. Quote Link to comment Share on other sites More sharing options...
Recommended Posts
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.