Gilvano Piontkoski

MDFe.Configuracoes.Geral.GerarInfMDFeSupl

Segue em anexo. ACBrMDFe.pas ACBrMDFeConfiguracoes.pas

Bom dia, Estou testando a emissão de MDF-e em ambiente de homologação e precisei fazer duas alterações para conseguir gerar a tag qrCodMDFe: A primeira foi criar um método para setar a propriedade GerarInfMDFeSupl. A segunda foi um ajuste na função GetURLQRCode que não estava gerando corretamente a url do qrCode. Seguem em anexo o patch das alterações e o xml do MDF-e. mdfe.patch 42190709404517000110581320000000051000000044-mdfe.xml

Boa tarde, testei aqui e continua trocando os caracteres ao passar pelo NativeStringToUTF8, só para constar utilizo o Delphi XE7.

A " bagunça" acontece nessa linha: Eventos := NativeStringToUTF8( EventoCTe.Gerador.ArquivoFormatoXML ); EventoCTe.Gerador.ArquivoFormatoXML: aqui retorna o xml com a seguinte string "Prestação do Serviço em Desacordo" ao passar pelo NativeStringToUTF8 que gera a "bagunça": "Prestação do Serviço em Desacordo" porém o xml é assinado corretamente, e com o StringReplace o evento é aceito pela receita, tentei fazer esse replace em outros pontos mas sempre dava algum erro, ou o 298 ou outro sobre o enum das descrições dos eventos.

Anexada. ACBrCTeWebServices.pas

Realmente o problema é a acentuação na descrição do evento. Realmente segue o mesmo padrão, mas nos outros eventos não existe acento na descrição do evento, acabei de fazer um ajuste aqui e o evento foi aceito, simplesmente fiz o seguinte: FPDadosMsg := StringReplace(FPDadosMsg, 'Prestação do Serviço em Desacordo', 'Prestação do Serviço em Desacordo', []); Segue o patch da alteração, sei que essa não é a solução definitiva, somente resolveu essa situação especifica. evento-desacordo.patch

Boa tarde, Também estou com problema no evento de prestação de serviço em desacordo, porém a rejeição é a "Assinatura difere do padrao do Projeto Status: 298". Segue em anexo os arquivos gerados. 11317-ped-eve.xml 11317-ped-eve-soap.xml

Problema resolvido, muito obrigado Daniel.

Delphi XE7

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.

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?

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.

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?