Mdf-E - Nt 01.2015 - Novo Webservice De Consulta Manifestos Não Encerrados

[Italo Giurizzato Junior]

Bom dia Hugo,

O grande problema é que essa é a unica chamada ao Web Service que contem uma palavra acentuada: "NÃO".

A SEFAZ-RS precisa levar um puxão de orelha e tirar o acento, ai resolve todos os problemas.

[Hugo Vinicius]

Italo,

Depois de alterado a procedure EnviarDados da unit ACBrDFeWebService, o erro não ocorreu, segue em anexo a alteração.

Muito Obrigado

ACBrDFeWebService.pas

[Italo Giurizzato Junior]

Boa tarde Hugo,

Vamos avaliar a sua alteração.

[Italo Giurizzato Junior]

Bom dia Hugo,

Notei que a alteração que você realizou foi feita em cima de uma unit desatualizada.

Sendo assim, sugiro que você faça uma cópia da sua alteração e atualize todos os fontes de todas as pastas de tal forma que todos os fontes fiquem com uma bolinha verde em seus ícones.

Depois recompile a aplicação com a opção Build.

E refaça os testes.

Outra coisa, qual é a versão do seu Delphi?

[Hugo Vinicius]

Delphi XE6

[Italo Giurizzato Junior]

Boa tarde Hugo,

Você atualizou todos os fontes e refez os testes?

[Hugo Vinicius]

Italo, 

Farei os testes agora, daqui a pouco posto o resultado.

Obrigado

Hugo Vinicius.

[Hugo Vinicius]

Boa noite Italo,

Desculpe a demora, mesmo atualizado o fonte e compilando o projeto o erro continua, segue em anexo o DEBUG.

Observação: Realizei o merge da minha correção, favor avaliar.

Atenciosamente

Hugo Vinicius

ACBrDFeWebService.pas

[Italo Giurizzato Junior]

Bom dia Hugo,

Por favor abra a unit pmdfeConsMDFeNaoEnc e verifique se na linha 102 esta da seguinte forma:

 Gerador.wCampo(tcStr, 'CP04', 'xServ', 24, 24, 1, 'CONSULTAR NÃO ENCERRADOS', DSC_XSERV);

Ou se existe alguma function que recebe a string em negrito como parâmetro.

[Hugo Vinicius]

Italo, esta da forma que falo, abaixo a função GerarXML.

 

Function TConsMDFeNaoEnc.GerarXML: Boolean;
begin
 Gerador.ArquivoFormatoXML := '';

 Gerador.wGrupo('consMDFeNaoEnc ' + NAME_SPACE_MDFE + ' versao="' + Versao + '"');
 Gerador.wCampo(tcStr, 'CP03', 'tpAmb', 01, 01, 1, tpAmbToStr(FtpAmb), DSC_TPAMB);
 Gerador.wCampo(tcStr, 'CP04', 'xServ', 24, 24, 1, 'CONSULTAR NÃO ENCERRADOS', DSC_XSERV);
 Gerador.wCampo(tcEsp, 'CP05', 'CNPJ ', 14, 14, 1, OnlyNumber(FCNPJ), DSC_CNPJ);
 Gerador.wGrupo('/consMDFeNaoEnc');

 Result := (Gerador.ListaDeAlertas.Count = 0);
end;

Editado 24 Fevereiro, 2016 por Hugo Vinicius

[Italo Giurizzato Junior]

Hugo,

Vamos verificar o que pode estar ocorrendo, pois me parece que esse problema já tinha sido resolvido.

[Gilvano Piontkoski]

Em 24/02/2016 at 01:07, Hugo Vinicius disse:

Boa noite Italo,

Desculpe a demora, mesmo atualizado o fonte e compilando o projeto o erro continua, segue em anexo o DEBUG.

Observação: Realizei o merge da minha correção, favor avaliar.

Atenciosamente

Hugo Vinicius

ACBrDFeWebService.pas

Também estou com o mesmo problema de caractere especial no NÃO. Existem alguma solução para contornar o problema até sair um correção oficial?

[Italo Giurizzato Junior]

Boa tarde Giovano,

Me parece que isso já foi resolvido, favor atualizar os fontes e fazer novos testes.

[Gilvano Piontkoski]

Bom dia Italo,

Atualizei meu repositório para a revisão 11322 hoje e problema continou acontecendo.
Na unit ACBrUtil, metodo NativeStringToUTF8 é chamado o "SetCodePage(RBS, 0, False);" que altera a string "CONSULTAR NÃO ENCERRADOS" para "CONSULTAR NÃO ENCERRADOS", alterei para "SetCodePage(RBS, 0, True);" e problema não acontece. Testei a emissão e cancelamento de algumas notas, fiz consulta de status dos serviços e está tudo funcionando.

Obs.: Uso Delphi XE7.

[Gilvano Piontkoski]

Boa tarde Italo,

Consegue me dizer se a alteração que fiz é a correta, ou se vocês vão fazer outra alteração para corrigir o problema?

[Italo Giurizzato Junior]

Bom dia Gilvano,

Houve diversas alterações, não sei lhe dizer se com elas o seu problema foi resolvido.

Favor atualizar os fontes e realizar novos testes.

[Gilvano Piontkoski]

2 horas atrás, Italo Jurisato Junior disse:

Bom dia Gilvano,

Houve diversas alterações, não sei lhe dizer se com elas o seu problema foi resolvido.

Favor atualizar os fontes e realizar novos testes.

Bom dia Italo,

Atualizei meu repositório para a revisão 11409 e o problema continua. Ao entrar no método NativeStringToUTF8 e chamar o SetCodePage a string "CONSULTAR NÃO ENCERRADOS" é alterada para "CONSULTAR NÃO ENCERRADOS", ficando esse carácter "ƒ" que causa a rejeição do schema.

Esse código gera o carácter "ƒ":

function NativeStringToUTF8( AString : String ) : AnsiString;
{$IFNDEF FPC}
 {$IFDEF UNICODE}
  var
    RBS: RawByteString;
 {$ENDIF}
{$ENDIF}
begin
  {$IFDEF FPC}
    Result := AString;  // FPC usa UTF8 de forma nativa
  {$ELSE}
    {$IFDEF UNICODE}
      RBS := UTF8Encode(AString);
      SetCodePage(RBS, 0, False);
      Result := AnsiString(RBS);
    {$ELSE}
      Result := UTF8Encode(AString);
    {$ENDIF}
  {$ENDIF}
end;

Esse não:

function NativeStringToUTF8( AString : String ) : AnsiString;
{$IFNDEF FPC}
 {$IFDEF UNICODE}
  var
    RBS: RawByteString;
 {$ENDIF}
{$ENDIF}
begin
  {$IFDEF FPC}
    Result := AString;  // FPC usa UTF8 de forma nativa
  {$ELSE}
    {$IFDEF UNICODE}
      RBS := UTF8Encode(AString);
      SetCodePage(RBS, 0, True);
      Result := AnsiString(RBS);
    {$ELSE}
      Result := UTF8Encode(AString);
    {$ENDIF}
  {$ENDIF}
end;

Não tenho conhecimento se a troca desse parametro na chamada do SetCodePage pode gerar outro problema ou não.

[Italo Giurizzato Junior]

Bom dia Gilvano,

Já passei o problema para quem escreveu essa function para que o mesmo possa analisar.

*****

Gilvano qual é a versão do Delphi que você utiliza?

[Gilvano Piontkoski]

2 horas atrás, Italo Jurisato Junior disse:

Bom dia Gilvano,

Já passei o problema para quem escreveu essa function para que o mesmo possa analisar.

*****

Gilvano qual é a versão do Delphi que você utiliza?

Delphi XE7

[Daniel Simoes]

Em 15/03/2016 at 09:35, Gilvano Piontkoski disse:

"CONSULTAR NÃO ENCERRADOS" é alterada para "CONSULTAR NÃO ENCERRADOS"

Gilvano,

É exatamente o que a função " NativeStringToUTF8" faz... isso está correto e não será modificado...

Delphi não usa UTF8, por isso ele exibe no Debug de forma incorreta...

 

Qual é exatamente o problema ? E como reproduzi-lo, com os Demos do ACBr ?

[Hugo Vinicius]

Bom dia Daniel,

Segue o problema.

Boa Tarde

A função ConsultaMDFeNaoEnc, esta retornando a mensagem “Falha no Schema XML”, segue em anexo os XML, eles estão com alguns caracteres estranhos.

Observação: O envio e o encerramento do MDFe está funcionando normalmente,

Muito Obrigado

20160219140713-ped-cons.xml

20160219140713-ped-cons-soap.xml

20160219140716-cons.xml

20160219140716-cons-soap.xml

Muito Obrigado

Hugo Vinicius

[Daniel Simoes]

Qual o passo a passo para reproduzir o problema, usando os Demos do ACBr ?

[Hugo Vinicius]

Daniel,

Segue abaixo:

Projeto: ..\Exemplos\ACBrDFe\ACBrMDFe\Delphi\Demo_ACBrMDFe

Botão: Consultar Não Encerrados

Obrigado

Hugo Vinicius

[Daniel Simoes]

Fiz teste no XE7,  e não notei problemas no envio... o XML está sendo convertido para UTF8 corretamente... E obtive com sucesso a resposta do WebService...

Entretanto encontrei problemas no método: "TDFeWebService.SalvarEnvio", que erroneamente presumia, que o XML a ser enviado sempre estava em UTF8, e isso somente será verdade, se o XML já passou pelo processo de assinatura...

Enviei a seguinte correção para o SVN:

-- ACBrDFeWebService --
[-] Método: "SalvarEnvio", correção para conversão de XML para UTF8, quando o
    mesmo não foi previamente assinado     (por: DSA) 

 

Verifique:
- Se seus fontes do ACBr estão corretamente atualizados...
- Se os seus Schemas estão atualizados...

[Hugo Vinicius]

Daniel,

Irei realizar os testes.

Muito obrigado.