A implementação do DANFSE em Fortes Report com layout bem próximo ao usado pelo provedor ISSNet, quebrou o código para o Delphi 7

[eduardocajueiro]

Boa noite,

Eu atualizei o código do ACBR agora, e fui compilar está apresentando o erro abaixo:

[Error] ACBrNFSeXDANFSeRLISSNet.pas(391): Undeclared identifier: 'SplitString'

Então verifiquei que foi por causa da utilização da função SplitString que não existe no Delphi 7 e foi implementada na atualização abaixo.

Citar

07/02/2023
-- Diversos --
[+] Implementado o DANFSE em Fortes Report com layout bem próximo ao usado pelo
    provedor ISSNet.
   Por: Fabio Pasquali

Não seria possível alterar a utilização da função SplitString pela função Split da unit ACBrUtil.Strings. O código ficaria assim:

procedure TfrlXDANFSeRLISSnet.rlbCabecalhoBeforePrint(Sender: TObject; var PrintIt: Boolean);
var
  strPrefeitura : TSplitResult;
begin
  inherited;

  With fpNFSe do
  begin
    TDFeReportFortes.CarregarLogo(rliLogo, fpDANFSe.Logo);

    rllNumNF0.Caption := Numero;

    // Somente as 3 primeiras linhas serão utilizadas
    strPrefeitura := ACBrUtil.Strings.Split(FQuebradeLinha[1], fpDANFSe.Prefeitura);

    if (Length(strPrefeitura) >= 1) then
      rlmPrefeitura1.Caption := strPrefeitura[0];

    if (Length(strPrefeitura) >= 2) then
      rlmPrefeitura2.Caption := strPrefeitura[1];

    if (Length(strPrefeitura) >= 3) then
      rlmPrefeitura3.Caption := strPrefeitura[2];
  end;
end;

Peço que algum ajuste seja feito o quanto antes, sei que o Delphi 7 não é a melhor opção, mas como é um sistema legado, fica muito difícil de migrar.

Desde já agradeço.
 

[Diego Foliene]

8 horas atrás, eduardocajueiro disse:

Boa noite,

Eu atualizei o código do ACBR agora, e fui compilar está apresentando o erro abaixo:

[Error] ACBrNFSeXDANFSeRLISSNet.pas(391): Undeclared identifier: 'SplitString'

Então verifiquei que foi por causa da utilização da função SplitString que não existe no Delphi 7 e foi implementada na atualização abaixo.

Não seria possível alterar a utilização da função SplitString pela função Split da unit ACBrUtil.Strings. O código ficaria assim:

procedure TfrlXDANFSeRLISSnet.rlbCabecalhoBeforePrint(Sender: TObject; var PrintIt: Boolean);
var
  strPrefeitura : TSplitResult;
begin
  inherited;

  With fpNFSe do
  begin
    TDFeReportFortes.CarregarLogo(rliLogo, fpDANFSe.Logo);

    rllNumNF0.Caption := Numero;

    // Somente as 3 primeiras linhas serão utilizadas
    strPrefeitura := ACBrUtil.Strings.Split(FQuebradeLinha[1], fpDANFSe.Prefeitura);

    if (Length(strPrefeitura) >= 1) then
      rlmPrefeitura1.Caption := strPrefeitura[0];

    if (Length(strPrefeitura) >= 2) then
      rlmPrefeitura2.Caption := strPrefeitura[1];

    if (Length(strPrefeitura) >= 3) then
      rlmPrefeitura3.Caption := strPrefeitura[2];
  end;
end;

Peço que algum ajuste seja feito o quanto antes, sei que o Delphi 7 não é a melhor opção, mas como é um sistema legado, fica muito difícil de migrar.

Desde já agradeço.
 

Bom dia!
Muito obrigado pela aviso e pela contribuição!
Já está sendo analisado na #TK-3589

[Diego Foliene]

Mais uma vez, muito obrigado pela colaboração.
A mesma parece estar OK e por isso foi disponibilizada na Rev-28448.
Por favor, queira atualizar seus fontes, reinstalar o ACBr para realizar novos testes e reportar qualquer problema.

[eduardocajueiro]

Acabei de atualizar os fontes e funcionou perfeitamente.

Obrigado

[Diego Foliene]

Obrigado por reportar.

Fechando. Para novas dúvidas, criar um novo tópico.