Corrigir a impressão do MDF-e com mais de um contratante

[Marcelo Grando]

Arquivo: ACBrMDFeDAMDFEFR.pas

...\ACBr_II\trunk2\Fontes\ACBrDFe\ACBrMDFe\DAMDFE\Fast\ACBrMDFeDAMDFEFR.pas

linha 1059
procedure TACBrMDFeDAMDFEFR.CarregaContratantes;
var i:integer;
begin
  with cdsContratantes, FMDFe.rodo.infANTT do
  begin    
    for I := 0 to infContratante.Count - 1 do
    begin
      Append;
      if Length(infContratante[i].CNPJCPF)=11 then
        FieldByName('CNPJCPF').AsString         := FormatarCPF(infContratante[i].CNPJCPF)
      else
        FieldByName('CNPJCPF').AsString         := FormatarCNPJ(infContratante[i].CNPJCPF);
      Post;
    end;
  end;
end;

 

O Append; e o Post; estão fora do "for I", carregando somente o primeiro contratante, caso tenha mais de 1 não carrega todos;

ACBrMDFeDAMDFEFR.pas

[BigWings]

Foi pro SVN, rev. 37754.

Obrigado pela contribuição.