Tenho que não informar no XML para emissão de NFS-e em BH a TAG IdentificacaoTomador para toadores que não possuam CPF e nem CNPJ, como fazer isto?
Minha sugestão:
na unit pnfsNFSeW
// Alterado por Augusto Fontana em 12/06/2014
if (NFSe.Tomador.Endereco.UF <> 'EX') or
(FProvedor = proSimplISS) or (FProvedor = proISSNet) then
begin
if (NFSe.Tomador.IdentificacaoTomador.CpfCnpj <> '') or
(NFSe.Tomador.IdentificacaoTomador.InscricaoMunicipal <> '') then
begin
Gerador.wGrupoNFSe('IdentificacaoTomador');
Gerador.wGrupoNFSe('CpfCnpj');
if FProvedor = proVirtual then
begin
if length(OnlyNumber(NFSe.Tomador.IdentificacaoTomador.CpfCnpj)) <= 11 then
begin
Gerador.wCampoNFSe(tcStr, '#34', 'Cpf ', 11, 11, 1, OnlyNumber(NFSe.Tomador.IdentificacaoTomador.CpfCnpj), '');
Gerador.wCampoNFSe(tcStr, '#34', 'Cnpj', 14, 14, 1, '', '');
end
else if (NFSe.Tomador.IdentificacaoTomador.CpfCnpj <> '') then
begin
Gerador.wCampoNFSe(tcStr, '#34', 'Cpf ', 11, 11, 1, '', '');
Gerador.wCampoNFSe(tcStr, '#34', 'Cnpj', 14, 14, 1, OnlyNumber(NFSe.Tomador.IdentificacaoTomador.CpfCnpj), '');
end;
end
else begin
if Length(OnlyNumber(NFSe.Tomador.IdentificacaoTomador.CpfCnpj)) <= 11 then
Gerador.wCampoNFSe(tcStr, '#36', 'Cpf ', 11, 11, 1, OnlyNumber(NFSe.Tomador.IdentificacaoTomador.CpfCnpj), '')
else if (NFSe.Tomador.IdentificacaoTomador.CpfCnpj <> '') then
Gerador.wCampoNFSe(tcStr, '#36', 'Cnpj', 14, 14, 1, OnlyNumber(NFSe.Tomador.IdentificacaoTomador.CpfCnpj), '');
end;
if (NFSe.Tomador.IdentificacaoTomador.CpfCnpj <> '') then
Gerador.wGrupoNFSe('/CpfCnpj');
Gerador.wCampoNFSe(tcStr, '#37', 'InscricaoMunicipal', 01, 15, 0, NFSe.Tomador.IdentificacaoTomador.InscricaoMunicipal, '');
if (FProvedor = proSimplISS) or (FProvedor = proBetha) then
Gerador.wCampoNFSe(tcStr, '#38', 'InscricaoEstadual', 01, 20, 0, NFSe.Tomador.IdentificacaoTomador.InscricaoEstadual, '');
Gerador.wGrupoNFSe('/IdentificacaoTomador');
end;
end;