Erro Informações Complementares no DANFE

[Marcílio Jr]

Em 05/03/2018 at 08:14, Juliomar Marchetti disse:

Bom dia

no svn suas sugestões 

Obrigado.

Boa tarde @Juliomar Marchetti.

Atualizei os fontes e mesmo assim tive problema com alguns clientes, que reportaram quebra de linha em algumas notas fiscais.

Debugando o código do método Split, que agora se encontra na unit ACBrUtil, precisei alterar a linha:

{$IFDEF CompilerVersion >= 18} //Delphi 2006+

para

{$IF CompilerVersion >= 18} //Delphi 2006+

removendo apenas o DEF da compilação condicional para que o problema fosse resolvido.

Segue anexo a unit para averiguação.

Att,

Marcílio Júnior

ACBrUtil.pas

[Juliomar Marchetti]

25 minutos atrás, Marcílio Jr disse:

Boa tarde @Juliomar Marchetti.

Atualizei os fontes e mesmo assim tive problema com alguns clientes, que reportaram quebra de linha em algumas notas fiscais.

Debugando o código do método Split, que agora se encontra na unit ACBrUtil, precisei alterar a linha:

{$IFDEF CompilerVersion >= 18} //Delphi 2006+

para

{$IF CompilerVersion >= 18} //Delphi 2006+

removendo apenas o DEF da compilação condicional para que o problema fosse resolvido.

Segue anexo a unit para averiguação.

Att,

Marcílio Júnior

ACBrUtil.pas

se ajusto pra ti outro vai dar problema já notei isso.

 

[BigWings]

Apliquei possível correção no repositório:

Citar

Data: 06/03/2018
-- ACBrUtil --
[*] Refactoring no método "Split" para utilizar método já implementado "AddDelimitedTextToList"
[*] Ajuste no método "AddDelimitedTextToList" para utilizar propriedade "StrictDelimiter" do
    Delphi 2006 ou superior
    (por: BigWings)

Por favor, atualizem e testem.

[Marcílio Jr]

15 horas atrás, Juliomar Marchetti disse:

se ajusto pra ti outro vai dar problema já notei isso.

 

 

12 horas atrás, BigWings disse:

Apliquei possível correção no repositório:

Por favor, atualizem e testem.

Bom dia @Juliomar Marchetti e @BigWings.

Atualizei os fontes, testei no Delphi 10.1.2 Berlin e funcionou.

Muito obrigado.

Att,

Marcílio Júnior

[bsoft]

Tivemos problemas na impressão da observação no DACTe devido à função AddDelimitedTextToList que é usada pela Split. Foram colocadas aspas para resolver o problema de quebrar nos espaços em branco, porém isso dá erro caso haja aspas na observação preenchida pelo cliente.

Segue a proposta para correção, foi alterado somente a parte para Delphi que não tem suporte à propriedade StrictDelimiter do StringList. Testado no Delphi 10.1 e no Delphi 7.

ACBrUtil.pas

[BigWings]

47 minutos atrás, bsoft disse:

Tivemos problemas na impressão da observação no DACTe devido à função AddDelimitedTextToList que é usada pela Split. Foram colocadas aspas para resolver o problema de quebrar nos espaços em branco, porém isso dá erro caso haja aspas na observação preenchida pelo cliente.

Pode fornecer um caso de teste em que o código atual falha?

[bsoft]

16 minutos atrás, BigWings disse:

Pode fornecer um caso de teste em que o código atual falha?

Emitir um CT-e com observação contento aspas. Ex.:

Observação no conhecimento "de" número 99999

No DACTe será impresso conforme o print abaixo. O mesmo também vai acontecer na DANFE para as informações complementares.

[BigWings]

2 horas atrás, bsoft disse:

Segue a proposta para correção, foi alterado somente a parte para Delphi que não tem suporte à propriedade StrictDelimiter do StringList. Testado no Delphi 10.1 e no Delphi 7.

ACBrUtil.pas

Os testes falharam no D7.

Se possível revise a rotina e anexe novamente.

[bsoft]

14 horas atrás, BigWings disse:

Os testes falharam no D7.

Se possível revise a rotina e anexe novamente.

Favor validar novamente.

ACBrUtil.pas

[BigWings]

27 minutos atrás, bsoft disse:

Favor validar novamente.

ACBrUtil.pas

Está sendo analisado.

Obrigado.

 

[Daniel Simoes]

Enviei um possível ajustes para o SVN... e vários novos Casos de Teste...