Consulta MDFe Não Encerrados

[Jemison Vidal]

Boa Tarde
Devido algumas solicitações de clientes identifiquei um probleminha na consulta de manifestos não encerrados e se possivél gostaria de uma ajuda.

No arquivo ACBrDFeWebService.pas temos a procedure "TDFeWebService.DefinirEnvelopeSoap", a mesma é preenchida corretamente, porém na tag xServ, está sendo preenchida a Frase "CONSULTAR NÃO ENCERRADOS", e ao realizar a conversão para UTF8 na procedure "TDFeWebService.EnviarDados", devido o carácter com acentuação a aplicação altera a frase para "CONSULTAR NÃO ENCERRADOS" . Tentei alterar diretamente a raiz removendo o acento porém sem sucesso, de imediado utilizei a função ParseText para converter novamente e remover o carácter especial mais creio que não esteja correto, alguém teria alguma solução ?

 

Agradeço desde já !

Abraço.

[Italo Giurizzato Junior]

Boa noite Jemilson,

Pelo que me consta esse problema já tinha sido resolvido, você esta com todos os fontes atualizados?

[Jemison Vidal]

Bom Dia Ítalo,

Atualizei os fontes,e infelizmente o problema persiste.

No Trunk1 a consulta está funcionando, para o Trunk2, após a conversão para UTF-8 o problema ocorre, vou continuar verificando para localizar o problema com exatidão e informar melhor.

Se alguém encontrar alguma solução agradeço.

Obrigado desde já !

Abraço.

Editado 26 Novembro, 2015 por Jemison Vidal

[Daniel Simoes]

Tem relato de usuários aqui do fórum usando essa consulta com sucesso no trunk2...

Você modificou algo nos fontes do ACBr ?

[Jemison Vidal]

Olá Sr. Daniel Bom dia,

Os Fontes estão atualizados e não foram modificados, realizei a exclusão dos arquivos e baixei novamente sem sucesso.

Efetuamos uma alteração no SetCodePage, colocando o parâmetro Convert para True, dessa maneira o processo foi efetuado com sucesso.

Dentro desse ambiente oque podemos fazer para resolver, sendo que essa function está no ACBrUtil ? lembrando que estou utilizando o Delphi XE6;

function ACBrStrToUTF8( AString : String ) : AnsiString;
{$IFNDEF FPC}
{$IFDEF UNICODE}
var
  RBS: RawByteString;
{$ENDIF}
{$ENDIF}
begin
  {$IFNDEF FPC}
   {$IFDEF UNICODE}
    RBS := UTF8Encode(AString);
    SetCodePage(RBS, 0, False);
    Result := AnsiString(RBS);
   {$ELSE}
    Result := UTF8Encode(AString);
   {$ENDIF}
  {$ELSE}
   Result := AString;
  {$ENDIF}
end;

 

Realizando outro teste utilizei a mesma forma que estava sendo preenchida no trunk1 e funcionou corretamente, lembrando que no trunk1 a conversão não é necessária porque os valores estão sendo passados corretamente para o envelopSoap, segue abaixo código utilizado no trunk1.

procedure TWebServicesBase.DefinirEnvelopeSoap;
var
  Texto: AnsiString;
begin
  { Sobrescrever apenas se necessário }

  Texto := '<?xml version="1.0" encoding="UTF-8"?>';
  Texto := Texto + '<soap12:Envelope xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance"' +
                                   ' xmlns:xsd="http://www.w3.org/2001/XMLSchema"' +
                                   ' xmlns:soap12="http://www.w3.org/2003/05/soap-envelope">';
  Texto := Texto +   '<soap12:Header>';
  Texto := Texto +     '<mdfeCabecMsg xmlns="' + Servico + '">';
  Texto := Texto +       GerarUFSoap;
  Texto := Texto +       GerarVersaoDadosSoap;
  Texto := Texto +     '</mdfeCabecMsg>';
  Texto := Texto +   '</soap12:Header>';
  Texto := Texto +   '<soap12:Body>';
  Texto := Texto +     '<mdfeDadosMsg xmlns="' + Servico + '">';
  Texto := Texto +       DadosMsg;
  Texto := Texto +     '</mdfeDadosMsg>';
  Texto := Texto +   '</soap12:Body>';
  Texto := Texto + '</soap12:Envelope>';

  FEnvelopeSoap := Texto;
end;

Se alguém teve ou estiver com o mesmo problema e possui alguma solução.

Desde Já Agradeço, Abrado.

 

[Daniel Simoes]

Não compreendi... Qual é a sua sugestão para modificação dos fontes do Trunk2 ??

poderia anexar as Units modificadas, para analise ?

[Jemison Vidal]

Certo, o problema segundo a minha análise está ocorrendo durante a conversão para UTF-8, devido a acentuação, retirando a necessidade de conversão a consulta é realizada com sucesso, não sei dizer se o problema está relacionado com o compilador(Delphi XE6), apenas esse processo está com problema. segue sugestão e arquivo para analise;

Código Atual:

procedure TDFeWebService.DefinirEnvelopeSoap;
var
  Texto: String;
begin
  { Sobrescrever apenas se necessário }

  {$IFDEF FPC}
   Texto := '<' + ENCODING_UTF8 + '>';    // Envelope já está sendo montado em UTF8
  {$ELSE}
   Texto := '';  // Isso forçará a conversão para UTF8, antes do envio
  {$ENDIF}

  Texto := Texto + '<' + FPSoapVersion + ':Envelope ' + FPSoapEnvelopeAtributtes + '>';
  if NaoEstaVazio(FPHeaderElement) then
  begin
    Texto := Texto + '<' + FPSoapVersion + ':Header>';
    Texto := Texto + '<' + FPHeaderElement + ' xmlns="' + Servico + '">';
    Texto := Texto + GerarCabecalhoSoap;
    Texto := Texto + '</' + FPHeaderElement + '>';
    Texto := Texto + '</' + FPSoapVersion + ':Header>';
  end;
  Texto := Texto + '<' + FPSoapVersion + ':Body>';
  Texto := Texto + '<' + FPBodyElement + ' xmlns="' + Servico + '">';
  Texto := Texto + DadosMsg;
  Texto := Texto + '</' + FPBodyElement + '>';
  Texto := Texto + '</' + FPSoapVersion + ':Body>';
  Texto := Texto + '</' + FPSoapVersion + ':Envelope>';

  FPEnvelopeSoap := Texto;
end;

Código com Alteração:

procedure TDFeWebService.DefinirEnvelopeSoap;
var
  Texto: String;
begin
  { Sobrescrever apenas se necessário }
  Texto := '<?xml version="1.0" encoding="UTF-8"?>';
  Texto := Texto + '<soap12:Envelope xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance"' +
                                   ' xmlns:xsd="http://www.w3.org/2001/XMLSchema"' +
                                   ' xmlns:soap12="http://www.w3.org/2003/05/soap-envelope">';
  Texto := Texto +   '<soap12:Header>';
  Texto := Texto +     '<mdfeCabecMsg xmlns="' + Servico + '">';
  Texto := Texto +       GerarUFSoap;
  Texto := Texto +       GerarVersaoDadosSoap;
  Texto := Texto +     '</mdfeCabecMsg>';
  Texto := Texto +   '</soap12:Header>';
  Texto := Texto +   '<soap12:Body>';
  Texto := Texto +     '<mdfeDadosMsg xmlns="' + Servico + '">';
  Texto := Texto +       DadosMsg;
  Texto := Texto +     '</mdfeDadosMsg>';
  Texto := Texto +   '</soap12:Body>';
  Texto := Texto + '</soap12:Envelope>';

  FPEnvelopeSoap := Texto;
end;

 

 

 

ACBrDFeWebService.pas

Editado 1 Dezembro, 2015 por Jemison Vidal

[José S. Simione]

Olá, estou com erro na consulta dos não encerrados, segue o erro:

---------------------------
Error
---------------------------
Rejeição: Falha no schema XML
---------------------------
OK   
---------------------------

Baixei hoje os Schemas atualizado. Poderia me ajudar?

[Daniel Simoes]

pmdfeConsMDFeNaoEnc.pas

6 horas atrás, Jemison Vidal disse:

Certo, o problema segundo a minha análise está ocorrendo durante a conversão para UTF-8, devido a acentuação, retirando a necessidade de conversão a consulta é realizada com sucesso, não sei dizer se o problema está relacionado com o compilador(Delphi XE6), apenas esse processo está com problema. segue sugestão e arquivo para analise;

Modificações no núcleo do DFe devem ser evitadas a todo custo... pois elas podem afetar todos os WebServices

Notei que em "pmdfeConsMDFeNaoEnc.pas", havia uma conversão de Encoding para o acento... porém todo o Envelope será convertido novamente antes da transmissão... e isso está ocasionando o problema (dupla conversão da String)

Por favor tente com a Unit em anexo.. substitua a mesma, na pasta "ACBr\Fontes\ACBrDFe\ACBrMDFe\PCNMDFe"

[Jemison Vidal]

Boa Tarde,

Com a sua unit funcionou perfeitamente, Muito Obrigado pela ajuda e atenção.

Abraço!

[Daniel Simoes]

enviado para o SVN.. Obrigado por testar

[Jemison Vidal]

Boa Tarde @Daniel Simoes,

Desculpa, mais o problema não foi resolvido, foi testado apenas com a unit errada.

a uma maneira que encontrei seria retirar a necessidade de conversão para UTF8, Porém não reconheço a real necessidade do IFDEF FPC, saberia me dizer para que serve esse IFDEF ?, Obrigado e desculpa novamente;

Abaixo código para evitar a conversão para UTF8;

Antes: 

procedure TDFeWebService.DefinirEnvelopeSoap;
var
  Texto: String;
begin
  { Sobrescrever apenas se necessário }

  {$IFDEF FPC}
   Texto := '<' + ENCODING_UTF8 + '>';    // Envelope já está sendo montado em UTF8
  {$ELSE}
   Texto := '';  // Isso forçará a conversão para UTF8, antes do envio
  {$ENDIF}
  Texto := Texto + '<' + FPSoapVersion + ':Envelope ' + FPSoapEnvelopeAtributtes + '>';
  if NaoEstaVazio(FPHeaderElement) then
  begin
    Texto := Texto + '<' + FPSoapVersion + ':Header>';
    Texto := Texto + '<' + FPHeaderElement + ' xmlns="' + Servico + '">';
    Texto := Texto + GerarCabecalhoSoap;
    Texto := Texto + '</' + FPHeaderElement + '>';
    Texto := Texto + '</' + FPSoapVersion + ':Header>';
  end;
  Texto := Texto + '<' + FPSoapVersion + ':Body>';
  Texto := Texto + '<' + FPBodyElement + ' xmlns="' + Servico + '">';
  Texto := Texto + DadosMsg;
  Texto := Texto + '</' + FPBodyElement + '>';
  Texto := Texto + '</' + FPSoapVersion + ':Body>';
  Texto := Texto + '</' + FPSoapVersion + ':Envelope>';

  FPEnvelopeSoap := Texto;
end;

 

Possível solução:

procedure TDFeWebService.DefinirEnvelopeSoap;
var
  Texto: String;
begin
  { Sobrescrever apenas se necessário }

  Texto := '<' + ENCODING_UTF8 + '>';
  Texto := Texto + '<' + FPSoapVersion + ':Envelope ' + FPSoapEnvelopeAtributtes + '>';
  if NaoEstaVazio(FPHeaderElement) then
  begin
    Texto := Texto + '<' + FPSoapVersion + ':Header>';
    Texto := Texto + '<' + FPHeaderElement + ' xmlns="' + Servico + '">';
    Texto := Texto + GerarCabecalhoSoap;
    Texto := Texto + '</' + FPHeaderElement + '>';
    Texto := Texto + '</' + FPSoapVersion + ':Header>';
  end;
  Texto := Texto + '<' + FPSoapVersion + ':Body>';
  Texto := Texto + '<' + FPBodyElement + ' xmlns="' + Servico + '">';
  Texto := Texto + DadosMsg;
  Texto := Texto + '</' + FPBodyElement + '>';
  Texto := Texto + '</' + FPSoapVersion + ':Body>';
  Texto := Texto + '</' + FPSoapVersion + ':Envelope>';

  FPEnvelopeSoap := Texto;
end;

 

[Daniel Simoes]

Outros usuários já relataram que esse caso está fechado.. verifique seus fonte... em todo caso, eu não estou mais investigando ele...

[José S. Simione]

Olá Daniel, Bom dia!

Não consegui localizar um post com a solução dessa questão. Pois estou com o mesmo problema, contando que utilizo o Delphi XE6 poderia ser algo com meu compilador?

Att

[Italo Giurizzato Junior]

Bom dia José,

Você esta com todos os fontes de todas as pastas atualizados?

Recompilou a sua aplicação com a opção Build?

Tem algum fonte cujo ícone possui uma bolinha vermelha ou triangulo amarelo?

[José S. Simione]

Bom dia, Italo!

Você esta com todos os fontes de todas as pastas atualizados?

R: Sim, foi deletado e baixado tudo novamente!. 

Recompilou a sua aplicação com a opção Build?

R: Sim, dei um Clear e na sequencia um Make e Build.

Tem algum fonte cujo ícone possui uma bolinha vermelha ou triangulo amarelo?

R: Estão todos verdes!

Obrigado pela atenção!

 

 

[José S. Simione]

Acredito que o problema deriva da seguinte função localizada em "ACBrUtil", de acordo com a Observação ela converte de acordo com o compilador segue o font, no trunk1 não era necessário a conversão, pois era preenchido a string:

'<?xml version="1.0" encoding="UTF-8"?>'

Ao seguir as modificação do usuário @Jemison Vidal, obtive sucesso, porem conforme dito pelo Daniel o problema ja foi encerrado, devo entender que se refere realmente ao meu compilador?  

{-----------------------------------------------------------------------------
  Converte a AString nativa do Compilador, para UTF8, de acordo o suporte a
  UNICODE/UTF8 do Compilador
 -----------------------------------------------------------------------------}
function ACBrStrToUTF8( AString : String ) : AnsiString;
{$IFNDEF FPC}
{$IFDEF UNICODE}
var
  RBS: RawByteString;
{$ENDIF}
{$ENDIF}
begin
  {$IFNDEF FPC}
   {$IFDEF UNICODE}
    RBS := UTF8Encode(AString);
    SetCodePage(RBS, 0, False);
    Result := AnsiString(RBS);
   {$ELSE}
    Result := UTF8Encode(AString);
   {$ENDIF}
  {$ELSE}
   Result := AString;
  {$ENDIF}
end;

[Daniel Simoes]

Acabei de testar com o Demo do ACBr, em um XE7 e tudo funcionou a contento... 

Modifiquei o demo existente no SVN, já que a opção para rodar o "CONSULTAR NÃO ENCERRADOS", ainda não existia...

Favor atualizar os fontes e testar com o Demo atual... "Demo_ACBrMDFe"

Atentar para a seguinte modificação:

ACBrMDFe1.Configuracoes.Geral.RetirarAcentos = False

 

[Jemison Vidal]

Boa Tarde, Apenas para Finalizar o Tópico.

Verificando as diferenças entre o Demo_ACBrMDFe, foi identificado que o mesmo está setando a propriedade SSLLib com libCapicom, e minha aplicação estava  pegando conforme as diretivas do ACBr no create do componente o modo  libCapicomDelphiSoap;

O modo libCapicomDelphiSoap, deve possuir algo que interfira nesta consulta, estou alterado para  libCapicom apenas para realizar está consulta e retornando para libCapicomDelphiSoap;

Solução: ACBrMDFe1.Configuracoes.Geral.SSLLib := libCapicom

 

Obrigado pela ajuda, Abraço !

[Daniel Simoes]

Veja a diferença des Libs em: