Olá, recentemente migramos para o trunk 2 aqui na empresa e ao mexer na NFSe do ACBr notei dois casos:
1) Uma das notas do meu cliente não possui Item de Serviço, e ao emitir a nota, ela sai com esse subreport (Item, Quantidade, Valor Unitário e Valor Total). Mesmo sem possuir nenhum item.
Para não aparecer só mudei a condição do seguinte IF, "if ANFSe.Servico.ItemServico.Count < 12 then" para "if (ANFSe.Servico.ItemServico.Count > 0) AND (ANFSe.Servico.ItemServico.Count < 12) then"
Desta forma, só irá preencher o cds se houver Item de Serviço.
2)No local da Incidência do Serviço estava aparecendo o Código do município. Como isso não é muito visual para o usuário, utilizei a função CodCidadeToCidade do ACBr para ficar mais visual.
A linha alterada foi a seguinte: FieldByName('CodigoMunicipio').AsString := CodCidadeToCidade(StrToIntDef(IfThen(CodigoMunicipio <> '', CodigoMunicipio, ''),0));
Estou anexando o fonte para que analisem. Desde já agradeço!
ACBrNFSeDANFSeFR.pas
