Erro Informações Complementares no DANFE

[Gutierres]

Boa tarde estou tendo um problema ao compilar meu projeto para 64 bits, 

percebi que no método Split da unit ACBrNFeDANFEFRDM esta tento um erro de conversão, quando compilo em 32 bits funciona. 

 

Conteúdo de exemplo 

 

ADelimiter = ;

AString = 'MD-5:A6C08B76C773BFA72347A2F902D8CFB7;DOCUMENTO EMITIDO POR ME OU EPP OPTANTE PELO SIMPLES NACIONAL;NACIONAL CONF. LC 123/2006.;NAO GERA DIREITO A CREDITO FISCAL DE IPI.'

[Gutierres]

Em 29/01/2018 at 16:16, Gutierres disse:

Boa tarde estou tendo um problema ao compilar meu projeto para 64 bits, 

percebi que no método Split da unit ACBrNFeDANFEFRDM esta tento um erro de conversão, quando compilo em 32 bits funciona. 

 

Conteúdo de exemplo 

 

ADelimiter = ;

AString = 'MD-5:A6C08B76C773BFA72347A2F902D8CFB7;DOCUMENTO EMITIDO POR ME OU EPP OPTANTE PELO SIMPLES NACIONAL;NACIONAL CONF. LC 123/2006.;NAO GERA DIREITO A CREDITO FISCAL DE IPI.'

Companheiros como estava precisando utilizar em versão 64bits, fiz esse ajuste nos fontes para mim funcionou.

 

ACBrNFeDANFEFRDM.pas

[Juliomar Marchetti]

14 minutos atrás, Gutierres disse:

Companheiros como estava precisando utilizar em versão 64bits, fiz esse ajuste nos fontes para mim funcionou.

 

ACBrNFeDANFEFRDM.pas

Usou algum tipo de formatador de fontes?

tem muitas alterações.

pegue o fonte do svn e altere somente o necessário para a possível correção.

[Gutierres]

28 minutos atrás, Juliomar Marchetti disse:

Usou algum tipo de formatador de fontes?

tem muitas alterações.

pegue o fonte do svn e altere somente o necessário para a possível correção.

Desculpa uso sim GExpert força do hábito

 

function TACBrNFeFRClass.Split(const ADelimiter, AString: string): TSplitResult;
var
  vRows: TStrings;
  vI: Integer;
begin
  vRows := TStringList.Create;
  try
    vRows.Delimiter := ADelimiter[1];
    vRows.StrictDelimiter := True;
    vRows.DelimitedText := AString;
    SetLength(Result, vRows.Count);

    for vI := 0 to vRows.Count - 1 do
      Result[vI] := vRows.Strings[vI];

  finally
    FreeAndNil(vRows);
  end;
end;

Editado 31 Janeiro, 2018 por Gutierres

[Juliomar Marchetti]

pode anexar a unit mas somente com a alteração.

[Gutierres]

1 hora atrás, Juliomar Marchetti disse:

pode anexar a unit mas somente com a alteração.

 

ACBrNFeDANFEFRDM.pas

[Juliomar Marchetti]

Em 31/01/2018 at 18:12, Gutierres disse:

 

ACBrNFeDANFEFRDM.pas

no svn sua sugestão

obrigado.

[Thobias Sobczak]

Bom dia pessoal

Tive que reverter as alterações na minha pasta do ACBr pois as informações complementares saiam sempre com quebra de linha onde havia espaço.

Há alguma propriedado no TACBrDANFeFR a ser alterada após a atualização?

 

[Juliomar Marchetti]

30 minutos atrás, Thobias Sobczak disse:

Bom dia pessoal

Tive que reverter as alterações na minha pasta do ACBr pois as informações complementares saiam sempre com quebra de linha onde havia espaço.

Há alguma propriedado no TACBrDANFeFR a ser alterada após a atualização?

 

A princípio não .

por favor queria debugar e ver o que acontece pra não haver a quebra de linha com o código acima postado

[Marcílio Jr]

Boa tarde.

Para resolver o problema da quebra de linha basta alterar o método TACBrNFeFRClass.Split da unit ACBrNFeDANFEFRDM.pas, abastecendo a propriedade StrictDelimiter como True:

...

function TACBrNFeFRClass.Split(const ADelimiter, AString: string): TSplitResult;
var
  vRows: TStrings;
  vI: Integer;
begin
  vRows := TStringList.Create;
  try
    vRows.StrictDelimiter := True;
    vRows.Delimiter := ADelimiter[1];
    vRows.DelimitedText := AString;
    SetLength(Result, vRows.Count);

    for vI := 0 to vRows.Count - 1 do
      Result[vI] := vRows.Strings[vI];

  finally
    FreeAndNil(vRows);
  end;
end;

...

Segue anexo a unit ACBrNFeDANFEFRDM.pas para averiguação.

ACBrNFeDANFEFRDM.pas

[Juliomar Marchetti]

Esse é o problema se habilitar quebro a compatibilidade com versões anteriores do delphi!

[Thobias Sobczak]

Aparentemente o problema sumiu aqui, DO NADA!

HAHAHA

Mas pelo que pude observar debugando, estava quebrando linha no ';' aqui, e simplesmente parou de quebrar

Estranho!

[Marcílio Jr]

5 minutos atrás, Juliomar Marchetti disse:

Esse é o problema se habilitar quebro a compatibilidade com versões anteriores do delphi!

Vou procurar outra solução aqui.

Obrigado por alertar.

[Marcílio Jr]

40 minutos atrás, Juliomar Marchetti disse:

Esse é o problema se habilitar quebro a compatibilidade com versões anteriores do delphi!

Encontrei uma outra maneira para resolver o problema da quebra de linha sem quebrar a compatibilidade com versões anteriores do delphi.

Alterei o método TACBrNFeFRClass.Split da unit ACBrNFeDANFEFRDM.pas, substituindo a linha:

vRows.DelimitedText := AString;

por:

vRows.DelimitedText :=  '"' + StringReplace(AString, ADelimiter, '"' + ADelimiter + '"', [rfReplaceAll]) + '"' ;

Segue anexo a unit ACBrNFeDANFEFRDM.pas para averiguação.

 

ACBrNFeDANFEFRDM.pas

Editado 19 Fevereiro, 2018 por Marcílio Jr

[thiagosantanna10]

18 horas atrás, Marcílio Jr disse:

Encontrei uma outra maneira para resolver o problema da quebra de linha sem quebrar a compatibilidade com versões anteriores do delphi.

Alterei o método TACBrNFeFRClass.Split da unit ACBrNFeDANFEFRDM.pas, substituindo a linha:

vRows.DelimitedText := AString;

por:

vRows.DelimitedText :=  '"' + StringReplace(AString, ADelimiter, '"' + ADelimiter + '"', [rfReplaceAll]) + '"' ;

Segue anexo a unit ACBrNFeDANFEFRDM.pas para averiguação.

 

ACBrNFeDANFEFRDM.pas

Fazendo essa alteração funcionou comigo, vou aplicar aqui também temporariamente enquanto a Unit é averiguada. Obrigado!

[Juliomar Marchetti]

Subi no svn como paliativo

[Paulo Alexandre Hostert]

Boa tarde,

Mesmo atualizando fonte para mim o problema persiste.

Voltei a function splic com o código anterior de novembro de 2017.

[BigWings]

1 hora atrás, Paulo Alexandre Hostert disse:

Boa tarde,

Mesmo atualizando fonte para mim o problema persiste.

Voltei a function splic com o código anterior de novembro de 2017.

Qual versão do Delphi?

[Paulo Alexandre Hostert]

Boa noite

10.2.2

[Marcílio Jr]

15 horas atrás, Paulo Alexandre Hostert disse:

Boa tarde,

Mesmo atualizando fonte para mim o problema persiste.

Voltei a function splic com o código anterior de novembro de 2017.

 

14 horas atrás, BigWings disse:

Qual versão do Delphi?

 

13 horas atrás, Paulo Alexandre Hostert disse:

Boa noite

10.2.2

Bom dia.

Outra possibilidade seria refatorar o método TACBrNFeFRClass.Split da unit ACBrNFeDANFEFRDM.pas verificando a versão do delphi:

 

function TACBrNFeFRClass.Split(const ADelimiter, AString: string): TSplitResult;
var
  vRows: TStrings;
  vI: Integer;
begin
  vRows := TStringList.Create;
  try
    vRows.Delimiter := ADelimiter[1];
    // Delphi 2006 em diante
    If RTLVersion >= 18 Then
    Begin
      vRows.StrictDelimiter := True;
      vRows.DelimitedText   := AString;
    End
    // Versões Anteriores ao Delphi 2006
    Else
      vRows.DelimitedText :=  '"' + StringReplace(AString, ADelimiter, '"' + ADelimiter + '"', [rfReplaceAll]) + '"' ;

    SetLength(Result, vRows.Count);

    for vI := 0 to vRows.Count - 1 do
      Result[vI] := vRows.Strings[vI];

  finally
    FreeAndNil(vRows);
  end;
end;
 

Segue anexo a unit ACBrNFeDANFEFRDM.pas para averiguação.

ACBrNFeDANFEFRDM.pas

[Allan Wolski]

Bom dia.

A função Split é utilizada também nas impressões em FR de CT-e e MDF-e, causando o mesmo problema relatado aqui ao compilar em 64 bits.
Para facilitar a manutenção, movi a função para o ACBrUtil.pas, juntamente com o tipo TSplitResult retornado pela mesma.

Como sugestão para remover Hints e Warnings, aposentei as funções SubstrCount e Explode nas units modificadas, além da função CollateBr na unit ACBrGNREGuiaFRDM, as quais não são utilizadas.

Segue fontes modificados para avaliação.
Testado no Delphi 7 e 10.1 Berlin.

Fontes.zip

Editado 22 Fevereiro, 2018 por Allan Wolski
Faltou anexo.

[Allan Wolski]

Bom dia.

Foi possível analisar as alterações propostas?

[Juliomar Marchetti]

Não ainda

[Allan Wolski]

Ok, fico no aguardo.

[Juliomar Marchetti]

Em 22/02/2018 at 08:37, Allan Wolski disse:

Bom dia.

A função Split é utilizada também nas impressões em FR de CT-e e MDF-e, causando o mesmo problema relatado aqui ao compilar em 64 bits.
Para facilitar a manutenção, movi a função para o ACBrUtil.pas, juntamente com o tipo TSplitResult retornado pela mesma.

Como sugestão para remover Hints e Warnings, aposentei as funções SubstrCount e Explode nas units modificadas, além da função CollateBr na unit ACBrGNREGuiaFRDM, as quais não são utilizadas.

Segue fontes modificados para avaliação.
Testado no Delphi 7 e 10.1 Berlin.

Fontes.zip

Bom dia

no svn suas sugestões 

Obrigado.