Alteração na unit ACBrNFSeDANFSeFR

[danielcs]

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

[Juliomar Marchetti]

Item 1 ok

item 2 o que quer dizer mais visual?

[danielcs]

50 minutos atrás, Juliomar Marchetti disse:

Item 1 ok

item 2 o que quer dizer mais visual?

Alí na imagem que anexei, em "Local da Incidência dos serviços", sem a minha alteração sai apenas o Código do IBGE da cidade. A alteração que realizei traduz o código para o nome do município, apenas isso.

 

Att. Daniel.

[Juliomar Marchetti]

No svn as sugestões.

Obrigado

[danielcs]

Muito obrigado!!