Gilvano Piontkoski
-
Total de ítens
14 -
Registro em
-
Última visita
Tipo de Conteúdo
Blocks
Notes ACBrLibNFe
Fóruns
Downloads
Calendário
Posts postados por Gilvano Piontkoski
-
-
16 minutes ago, Italo Jurisato Junior said:
Bom dia Gilvano,
Favor anexar as Units alteradas para que possamos analisar.
Segue em anexo.
-
1
-
-
On 6/13/2019 at 1:43 PM, Italo Jurisato Junior said:
Boa tarde Lucimauro,
Sim, mas a mudança é pequena, foi acrescentado uma tag que vai conter a string do QR-Code.
Algo semelhante o que já ocorre com a NFC-e.
Logo o DAMDFE vai ser alterado também, pois além do código de barras ele vai passar a ter também o QR-Code.
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
-
48 minutos atrás, Daniel Simoes disse:
parece ser um problema em "pcteEventoCTe.pas"
todos os fontes do ACBr, são em ANSI... (CP1252)... então... todo e qualquer String que contiver acentos, deve ser "tratada" com ACBrStr()
Por favor tentem substituir a Unit em anexo...
Boa tarde,
testei aqui e continua trocando os caracteres ao passar pelo NativeStringToUTF8, só para constar utilizo o Delphi XE7.
-
8 minutos atrás, Italo Jurisato Junior disse:
Bom dia a todos,
Estranho as vogais acentuadas ficarem bagunçadas, será que o método AssinarXML esta realizando essa bagunça?
É preciso debugar para descobrir onde esta a origem do problema.
Gilvano, você teria condições de realizar esse debug?
O método AssinarXML recebe o XML a ser assinado através da variável Evento.
E nos retorna o mesmo XML assinado na variável FPDadosMsg.
Se a variável Evento contem a descrição do evento correto e no FPDadosMsg esta bagunçado então o problema é o método AssinarXML, ai é preciso descobrir em que momento ocorre o problema.
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.
-
-
11 horas atrás, luisclaudio_jr disse:
Aqui da esse problema por causa de qualquer letra acentuada, ex: ç,á,ê... recomendo ver se pode ser isso
Realmente o problema é a acentuação na descrição do evento.
15 horas atrás, Italo Jurisato Junior disse:Boa noite Gilvano,
A assinatura realizada no evento segue o mesmo padrão utilizado na assinatura do CT-e.
Com certeza é algum erro na SEFAZ.
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.
-
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.
-
1
-
-
Problema resolvido, muito obrigado Daniel.
-
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
-
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.
-
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.
-
2
-
-
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
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?
Qr Code MDfe
em ACBrMDFe
Postado
MDFe.Configuracoes.Geral.GerarInfMDFeSupl