Consulta MDFe Não Encerrados no Trunk2

[Matheus]

Boa Tarde,

Realizei a atualização dos componente hoje a tarde.

Continuo encontrando problemas com a chamada para este webservice no Delphi XE 7.

Porém fiz uma alteração para teste em um fonte e consegui fazer a consulta com sucesso.

Caso no fonte ACBRDfeWebService eu comente os IFDEFS que existem nela e force com que o xml seja montado já com o cabeçalho utf-8 a consulta é realizada com sucesso.

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}

Debugando o código, percebi que com o código dessa maneira, ao executar a procedure EnviarDados, a string não é reformatada ao chamar a função ConverteXMLtoUTF8, somente é retornada a procedure que é passada por parâmetro.

if not XmlEstaAssinado(FPEnvelopeSoap) then
    FPEnvelopeSoap := ConverteXMLtoUTF8(FPEnvelopeSoap);

Caso eu descomente o IFDEF na procedure DefinirEnvelopeSoap ao chamar a funcao ConverteXMLtoUTF8, será adicionado o cabeçalho <?xml version="1.0" encoding="UTF-8"?> na string, após isso ao tentar executar o enviardados retorna o erro de falha no schema xml.

Provavelmente este IFDEF não possa ser comentado, porém gostaria de uma idéia de vocês caso tenham alguma alternativa para resolver essa encrenca.

[Daniel Simoes]

Não compreendi... o cabeçalho de UTF8 é necessário, e por isso precisa ser adicionado...

A sua modificação faz exatamente isso... Porém, dessa maneira, está errado, pois não haverá a conversão de UNICODE para UTF8...

[Matheus]

Concordo com você Daniel, o xml era montado corretamente, na função EnviarDados ele adicionava o cabeçalho e convertia a string para UTF-8, não faz muito sentido mesmo a alteração que fiz, mas é como se na função ConverteXMLToUTF8 fosse alterado algo na string que causasse o erro, enfim.

Outra forma de ajustar sem precisar comentar as diretivas DefinirEnvelopeSoap é alterar a função EnviarDados da seguinte maneira.

if not XmlEstaAssinado(FPEnvelopeSoap) then
    begin
    if not XmlEhUTF8(FPEnvelopeSoap) then
      begin
      FPEnvelopeSoap := '<' + ENCODING_UTF8 + '>' + FPEnvelopeSoap;    // Envelope já está sendo montado em UTF8
      FPEnvelopeSoap := ConverteXMLtoUTF8(FPEnvelopeSoap);
    end;
  end;

Continua não fazendo muito sentido, rsrs, mas enfim.

Não sei se ajuda alguma coisa no diagnóstico mas as minhas rotinas estão em um servidor de aplicação multicamadas datasnap.

[Daniel Simoes]

Mudar essa rotina pode causar muito efeito colateral... e realmente acho que os fontes estão corretos da maneira que estão...

Por favor descreva melhor o problema, e tente fornecer um passo a passo, de como reproduzi-lo, usando o Demo do ABCrNFe

[Matheus]

Segue projeto em anexo..

Dentro do projeto tem a ACBRDFeWebServices.pas com um comentário na função EnviarDados;

o funcionamento é simples, soh é necessário preencher informações de certificado e senha na unit1.pas e ao rodar a aplicação informar o cnpj para executar a chamada ao webservice.

utilizar o delphi XE7.

TesteMDFe.rar

[Daniel Simoes]

Parece que está tudo correto...

Use Delphi XE7, no WebService de SP, com um Certificado A1 e OpenSSL

veja a imagem:

 

[Matheus]

Cara, acho que abandonamos as tentativas, a única diferença para o meu ambiente é que utilizo capcom.

A princípio vou manter o fonte alterado adicionado em meus projetos, nas próximas versões que sincronizar o ACBr eu refaço os testes.

Obrigado pela ajuda.

[Marcelo A. Rodrigues]

Bom dia, 

 

Sei que o tópico é antigo, porém passei pelo mesmo problema com o retorno de status 215 (Falha no schema XML).

Eu utilizava na propriedade SSLLib o Capicom da seguinte forma

        ACBrMDFe1.Configuracoes.Geral.SSLLib := libCapicomDelphiSoap;

Consegui resolver alterando essa propriedade para libCapicom antes de enviar o evento para retornar os manifestos não encerrados:

        ACBrMDFe1.Configuracoes.Geral.SSLLib := libCapicom;

 

Caso alguém passe pelo mesmo erro, funcionou para mim dessa forma.

att.