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

Marcelo Grando · 6 Março

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;