Erro No Envio De Evento - Delphi Xe6

[jorgehenrique]

Desculpe mas acredito que manualmente sua instalação pode acarretar problemas! sempre indicamos a usar o  ACBrInstall!

ao efetuar a limpeza, você à fez de dentro de meus documentos publico, tanto os bpl e dcp?

Bom, sempre fiz pelo ACBrInstall desde que disponibilizado foi. Hoje fiz a instalacao como fazia anos atras, mas foi por faltar alternativas mesmo. Com o ACBrInstall os BPLs vao para a pasta ACBr\Lib\Delphi\LibD20, instalando manualmente vão para a pasta Documentos Públicos\Embarcadero\Studio\14.0\Bpl. A limpeza eu fiz geral mesmo, procurei tudo que era BPL em todas as pastas e limpei. Agora estão instalados na pasta de Documentos Publicos.

 

Att

[jhmontoia]

Pessoal,

   Esse problema não é exclusivo da NFe, estamos com o mesmo problema ao emitir CTe, também para o estado de MG.

   Porém o erro não ocorre se o exe for compilado no delphi XE2 (Utilizando o mesmo fonte).

   O erro ocorre ao Enviar ou consultar o CTe.

   Até iria abrir um novo tópico no ACBrCTe mas como estamos falando do mesmo erro evitei ter um tópico duplicado.

 

   O problema começou a ocorrer hoje pela manhã. 

  

Att,

Jonas

[Juliomar Marchetti]

Ai está uma pergunta é somente com o estado de MG ou nos outros também ocorre?

[jorgehenrique]

Sim!!

 

Quando faço o mesmo processo de consultar uma chafe NF-e de SP, por exemplo, tanto meu sistema quanto o demo do ACBr funcionam!!!!

 

Att

[lecovan]

Boa Tarde,

 

Este erro começou a ocorrer na empresa onde trabalho também, porém só ocorreu no Evento de Cancelamento da NF-e.

 

Compilei meu aplicativo pra Delphi XE6 no dia 08/08/2014, somente vindo a precisar fazer um cancelamento ontem dia 26/08/2014, antes em Delphi XE3 estava funcionando normalmente.

 

Obs: Também somos de Minas Gerias.

 

Agradeço qualquer dica que ajude a solucionar este problema.

 

Atenciosamente,

 

Ivan Bernardes Santos

[Juliomar Marchetti]

Então fora de MG funcionou?

se sim duas coisas ou MG tá com problema ou o código ou algo especifico que seja necessário a MG não está implementando!

[jorgehenrique]

Pessoal boa tarde!

 

Tenho uma novidade. Em uma estação de uma das empresas que mantenho, estavam usando os executaveis recentes normalmente. Estranhei e verifiquei quais as diferenças entre minha maquina virtual Windows 7 SP1, que não conseguia fazer as consultas e a estação que funcionava normalmente.

 

Advinhem só: Internet Explorer desatualizado!! Estava usando o IE8, passei a usar o IE11 no meu Windows 7 e pronto.

 

Tudo resolvido!

 

Se tiverem como ratificar esta informação, ficarei grato.

 

Att

[lecovan]

Bom Dia a todos,

 

Esta informação de Internet Explorer desatualizado só resolverá o problema em Ambiente com Windows 7 ou superior, estou com este problema em um PC com XP SP3, sem mais atualizações.

 

Jorge Henrique nos PC's com XP SP3 você conseguiu algum progresso?

 

Muito Obrigado

[jorgehenrique]

Bom Dia a todos,

 

Esta informação de Internet Explorer desatualizado só resolverá o problema em Ambiente com Windows 7 ou superior, estou com este problema em um PC com XP SP3, sem mais atualizações.

 

Jorge Henrique nos PC's com XP SP3 você conseguiu algum progresso?

 

Muito Obrigado

 

Rapaz, do jeito que está me parece que quem usa o Windows XP já era... Ainda te digo isso sem certeza, mas no momento estou com esta idéia, mesmo porque até a própria MS já anunciou o fim do suporte ao XP.

 

Att

Editado 28 Agosto, 2014 por jorgehenrique

[jorgehenrique]

Então fora de MG funcionou?

se sim duas coisas ou MG tá com problema ou o código ou algo especifico que seja necessário a MG não está implementando!

 

Me parece ser algo relacionado a criptografia. Tipo: webservices atualizado + IE desatualizado = zica!! Pelo menos pra mim aqui, o problema foi resolvido e os pc s desatualizados ja foram solicitados a atualizarem.

 

Eu ficar me matando com isso nao da mais nao...hehe

 

Att

[CrasH]

Eu estou com o mesmo problema em alguns clientes (também sou de MG)... Geralmente os que usam certificados A1. Com A3 não apresenta o problema... Então, resolvi compilar o meu executável em uma versão mais antiga do Delphi (compilei no XE2) e imaginem só... tudo funcionou maravilhosamente!! Acredito que pode ser algum tratamento que o XE6 faz. Outra coisa que não consegui foi fazer cancelamento. Parece que ele conecta ao webservice mas não transmite informações.

[CrasH]

Bom será que não tem solução mesmo? Achei muito inviável as duas soluções até agora: Atualizar o windows dos clientes (que geralmente tem windows pirata), e/ou ficar compilando o executável toda vez em uma versão anterior do Delphi (Ficar sempre dependente de uma versão pra trás pra compilar é tenso).

[jhmontoia]

Bom dia Pessoal.

   Segundo a Embarcadero o Delphi XE6 não é compatível com Windows XP.

   Porém encontrei uma solução no fórum da embarcadero que resolve o problema. 

http://qc.embarcadero.com/wc/qcmain.aspx?d=124627

 

   No meu caso somente adicionei a pasta {Diretorio de Inspalação do Delphi XE6}/Source/Soap/ no meu LibraryPath editei o arquivo Soap.SoapHTTPTrans.pas substituindo o código:

{$IFDEF UNICODE}
  HttpSendRequest(Request, nil, 0,
                  DatStr.Bytes, DatStr.Size);
{$ELSE}
  HttpSendRequest(Request, nil, 0,
                  @DatStr.DataString[1],
                  Length(DatStr.DataString));
{$ENDIF}
  RetVal := HandleWinInetError(GetLastError, Request, True);

Por:

{$IFDEF UNICODE}
  WinInetResult := HttpSendRequest(Request, nil, 0,
                                   DatStr.Bytes, DatStr.Size);
{$ELSE}
  WinInetResult := HttpSendRequest(Request, nil, 0,
                                   @DatStr.DataString[1],
                                   Length(DatStr.DataString));
{$ENDIF}

  if not WinInetResult then
    RetVal := HandleWinInetError(GetLastError, Request, True);

   Lembrando de Criar a variável local WinInetResul : Boolean;

 

   Basta dar um Build e o executável volta a funcionar normalmente.

   Esta solução foi postada pra Windows 7 com instalação Original (I.E. 9) mas no meu caso (Windows XP com IE 8) o sistema funcionou normalmente.

 

   Se alguém quiser testar e compartilhar o resultado seria de grande ajuda.

 

Att,

Jonas

[Julio Artur Debastiani]

Bom dia Pessoal.

   Segundo a Embarcadero o Delphi XE6 não é compatível com Windows XP.

   Porém encontrei uma solução no fórum da embarcadero que resolve o problema. 

http://qc.embarcadero.com/wc/qcmain.aspx?d=124627

 

   No meu caso somente adicionei a pasta {Diretorio de Inspalação do Delphi XE6}/Source/Soap/ no meu LibraryPath editei o arquivo Soap.SoapHTTPTrans.pas substituindo o código:

{$IFDEF UNICODE}
  HttpSendRequest(Request, nil, 0,
                  DatStr.Bytes, DatStr.Size);
{$ELSE}
  HttpSendRequest(Request, nil, 0,
                  @DatStr.DataString[1],
                  Length(DatStr.DataString));
{$ENDIF}
  RetVal := HandleWinInetError(GetLastError, Request, True);

Por:

{$IFDEF UNICODE}
  WinInetResult := HttpSendRequest(Request, nil, 0,
                                   DatStr.Bytes, DatStr.Size);
{$ELSE}
  WinInetResult := HttpSendRequest(Request, nil, 0,
                                   @DatStr.DataString[1],
                                   Length(DatStr.DataString));
{$ENDIF}

  if not WinInetResult then
    RetVal := HandleWinInetError(GetLastError, Request, True);

   Lembrando de Criar a variável local WinInetResul : Boolean;

 

   Basta dar um Build e o executável volta a funcionar normalmente.

   Esta solução foi postada pra Windows 7 com instalação Original (I.E. 9) mas no meu caso (Windows XP com IE 8) o sistema funcionou normalmente.

 

   Se alguém quiser testar e compartilhar o resultado seria de grande ajuda.

 

Att,

Jonas

 

 

estava com este problema no Delphi XE6, fiz isso e funcionou

[Juliomar Marchetti]

estava com este problema no Delphi XE6, fiz isso e funcionou

Acredito que essa alteração se deve nos fontes do Delphi!

então o mais correto é que quem estiver com o problema aplique ela no seu código local!

Estivemos conversando entre a equipe a achamos mais correto que quem estiver com o problema faça alteração no seu delphi!

 

Pediria para um dos colegas que alterou o arquivo anexar o mesmo ao post que assim ajudará quem tiver com o problema somente baixando o mesmo!

 

Obrigado pelos testes e também a solução disponibilizada!

[jhmontoia]

Boa tarde Juliomar.

 

Conforme solicitado, segue a Unit alterada.

Para quem trabalha com diversos sistemas como eu o melhor é editar o arquivo na pasta do Delphi. Agora pra quem trabalha com um único sistema basta adicionar as duas units ( a alteração é somente na Soap.SoapHTTPTrans.pas) na pasta do sistema e adicionar as units ao projeto.

 

Atenciosamente,

Jonas

Soap.SOAPHTTPTrans.pas

Soap.SOAPHTTPClient.pas

[Caetano]

Ola. Estou com o mesmo problema, realizei as mudanças porem, pra mim não funcionou.

Sera que fiz algo de errado?