NFE ISENTO CONTRIBUINTE NAOCONTRIBUINTE

[FABRICIO CERAVOLO PENA]

Alguém pode me ajudar a configurar as variáveis do ACBR para ISENTO CONTRIBUINTE E NÃO CONTRIBUINTE ?

Com meu código atual consigo enviar apenas NFe que tem IE e CNPJ, para os outros casos não está funcionando ... vejam o código como ficou ...

  if (length(RetiraCaracterCPFCNPJ(NotaF.NFe.Dest.CNPJCPF)) = 11) and (NotaF.NFe.Dest.IE = 'ISENTO') then begin
    NotaF.NFe.Dest.IE := '';
    NotaF.NFe.Dest.indIEDest :=   inIsento ;
  end;
  if (length(RetiraCaracterCPFCNPJ(NotaF.NFe.Dest.CNPJCPF)) = 14) and (NotaF.NFe.Dest.IE = 'ISENTO') then begin
    //NotaF.NFe.Dest.IE := 'ISENTO';
    NotaF.NFe.Dest.indIEDest := inNaoContribuinte;
  end  else
  if (length(RetiraCaracterCPFCNPJ(NotaF.NFe.Dest.CNPJCPF)) = 14) and (NotaF.NFe.Dest.IE <> '') then begin
    NotaF.NFe.Dest.indIEDest := inContribuinte;
  end;
 

[Antonio Paulo Mangili]

Fabricio se te ajudar:

               if PessoaFJ = 'F' then
               begin
                    Ide.indFinal  := cfConsumidorFinal;
               end
               else
               begin
                    if (IEClie = '') and (CNPJClie <> '') then
                       Ide.indFinal  := cfConsumidorFinal;

                    if (IEClie <> '') and (CNPJClie <> '') then
                       Ide.indFinal := cfNao;

               end;
               
                    if PessoaFJ = 'F' then
                    begin
                         Dest.indIEDest         := inNaoContribuinte; //9-não contribuinte
                    end
                    else
                    begin
                         if (IEClie = '') and (CNPJClie <> '') then
                            Dest.indIEDest         := inNaoContribuinte; //9-não contribuinte

                         if (IEClie <> '') and (CNPJClie <> '') then
                            Dest.indIEDest         := inContribuinte;    //1-contribuinte
                    end;

 

paulinho