Alguém poderia verificar para mim por favor o código na unit ACBrNFSeDANFSeFR:
//linha 936
with Servico do
begin
FieldByName('ExigibilidadeISS').AsString := ExigibilidadeISSDescricao(ExigibilidadeISS);
FieldByName('TipoRecolhimento').AsString := TipoRecolhimento;
if Provedor = proAdm then
begin
FieldByName('CodigoMunicipio').AsString := CodigoMunicipio;
FieldByName('MunicipioIncidencia').AsString := CodCidadeToCidade(MunicipioIncidencia);
end
else
begin
FieldByName('CodigoMunicipio').AsString := CodCidadeToCidade(StrToIntDef(IfThen(CodigoMunicipio <> '', CodigoMunicipio, ''),0));
FieldByName('MunicipioIncidencia').AsString := CodCidadeToCidade(MunicipioIncidencia); // Leo: mudei aqui
//FieldByName('MunicipioIncidencia').AsString := CodCidadeToCidade(StrToIntDef(CodigoMunicipio, 0)); // Antes:
end;
Comentei onde recebia o município de incidência com o mesmo código do município.
Desde já agradeço a atenção!