Validação de Regras de Negocio do XML da NF-e, mensagens duplicadas conforme a quantidade de Itens no XML

[xim.logan]

Boa noite,

a validação de regras de negócios estava saindo a mesma informação no MemoDados, de acordo com a quantidade de Itens da NF-e.

Segue correção.

---- Unit   ACBrNFeNotasFiscais

 

function TNotasFiscais.ValidarRegrasdeNegocios(out Erros: String): Boolean;
var
  i: integer;
  msg: ShortString;
begin
  Result := True;
  Erros := '';
  msg:='';
  for i := 0 to Self.Count - 1 do
  begin
    if not Self.Items[i].ValidarRegrasdeNegocios then
    begin
      Result := False;
      msg :=Self.Items[i].ErroRegrasdeNegocios;  // Adicionei este variavel
      if Pos(msg,Erros)<=0 then // Coloquei essa condição
      Erros := Erros + Self.Items[i].ErroRegrasdeNegocios + sLineBreak;
    end;
  end;
end;

 

Adilson Duarte

Analista  de Sistemas

[Italo Giurizzato Junior]

Boa noite Adilson,

Favor anexar a unit alterada para que possamos analisar a sua contribuição.

Desde já muito obrigado pela contribuição e pela compreensão.

[xim.logan]

Ok Italo, segue anexoACBrNFeNotasFiscais.pasACBrNFeNotasFiscais.pas

[Juliana Tamizou]

Obrigado pela contribuição, em breve será validada para possível inclusão ao svn

TK-2037

[Italo Giurizzato Junior]

Bom dia Adilson,

Desculpe a demora em analisar a sua contribuição.

Já esta no SVN.