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 18: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.'

Expandir  

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

 

ACBrNFeDANFEFRDM.pas

[Juliomar Marchetti]

  Em 31/01/2018 at 17:53, Gutierres disse:

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

 

ACBrNFeDANFEFRDM.pasFetching info...

Expandir  

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]

  Em 31/01/2018 at 18:09, 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.

Expandir  

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]

  Em 31/01/2018 at 18:55, Juliomar Marchetti disse:

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

Expandir  

 

ACBrNFeDANFEFRDM.pas

[Juliomar Marchetti]

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

 

ACBrNFeDANFEFRDM.pasFetching info...

Expandir  

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]

  Em 19/02/2018 at 12:15, 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?

 

Expandir  

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]

  Em 19/02/2018 at 17:27, Juliomar Marchetti disse:

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

Expandir  

Vou procurar outra solução aqui.

Obrigado por alertar.

[Marcílio Jr]

  Em 19/02/2018 at 17:27, Juliomar Marchetti disse:

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

Expandir  

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.pasFetching info...

Editado 19 Fevereiro, 2018 por Marcílio Jr

[thiagosantanna10]

  Em 19/02/2018 at 18:06, 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.pasFetching info...

Expandir  

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]

  Em 20/02/2018 at 20:28, 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.

Expandir  

Qual versão do Delphi?

[Paulo Alexandre Hostert]

Boa noite

10.2.2

[Marcílio Jr]

  Em 20/02/2018 at 20:28, 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.

Expandir  

 

  Em 20/02/2018 at 21:37, BigWings disse:

Qual versão do Delphi?

Expandir  

 

  Em 20/02/2018 at 22:24, Paulo Alexandre Hostert disse:

Boa noite

10.2.2

Expandir  

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 11: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.zipFetching info...

Expandir  

Bom dia

no svn suas sugestões 

Obrigado.