Este é só um exemplo de como resolver o problema, o código pode ser
alterado ou melhorado conforme a sua necessidade. Ele se aplica
para quem está utilizando o TACBrNFe para o envio de notas eletrônicas.
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 | // ... seu código // Verificando se o cliente é pessoa física ou Jurídica // 1 - Física / 2 Júridica if (QryCliente.FieldByName('TIPO').AsInteger = 1) then begin Dest.indIEDest := inNaoContribuinte; end; if (QryCliente.FieldByName('TIPO').AsInteger = 2) then begin // Se não tiver IE, consederei como isento if (Trim(QryCliente.FieldByName('IE').AsString) = '') then begin Dest.indIEDest := inIsento; end else begin { Preenchendo a inscrição Estadual e indicando que é contrubuinte. } Dest.IE := sn(QryCliente.FieldByName('IE').AsString); Dest.indIEDest := inContribuinte; end; end; // ... seu código |
Código baseado no forum do ACBr:
http://www.projetoacbr.com.br/forum/index.php?/topic/15990-nfe-310-para-pessoa-f%C3%ADsica/
Está gostando do conteúdo? Considere pagar um cafezinho para nossa equipe!
Você precisa fazer o login para publicar um comentário.
Muito boa a dica, obrigado.