Boa tarde
Estou com o seguinte caso com o a impressão de incidencia do servidor IPM nas observações.
Na unit IPM.LerXml tem o seguinte trecho que fiz ajuste , gostaria da ajuda de vcs se faz sentido
Antes
if ItemServico.Count > 0 then
begin
CodigoMunicipio := ItemServico[0].CodMunPrestacao;
if CodigoMunicipio <> '' then
begin
xUF := '';
MunicipioPrestacaoServico := ObterNomeMunicipioUF(StrToIntDef(CodigoMunicipio, 0), xUF);
MunicipioPrestacaoServico := MunicipioPrestacaoServico + '/' + xUF;
end;
if ItemServico[0].TribMunPrestador = snSim then
MunicipioIncidencia := StrToIntDef(CodigoMunicipio, 0)
else
MunicipioIncidencia := StrToIntDef(NFSe.Tomador.Endereco.CodigoMunicipio, 0);
MunicipioPrestacaoServico := '';
xMunicipioIncidencia := '';
if MunicipioIncidencia > 0 then
begin
MunicipioPrestacaoServico := ObterNomeMunicipioUF(MunicipioIncidencia, xUF);
MunicipioPrestacaoServico := MunicipioPrestacaoServico + '/' + xUF;
xMunicipioIncidencia := MunicipioPrestacaoServico;
end;
Depois
if ItemServico.Count > 0 then
begin
CodigoMunicipio := ItemServico[0].CodMunPrestacao;
if CodigoMunicipio <> '' then
begin
xUF := '';
MunicipioPrestacaoServico := ObterNomeMunicipioUF(StrToIntDef(CodigoMunicipio, 0), xUF);
MunicipioPrestacaoServico := MunicipioPrestacaoServico + '/' + xUF;
end;
if MunicipioIncidencia = '' then
begin
if ItemServico[0].TribMunPrestador = snSim then
MunicipioIncidencia := StrToIntDef(CodigoMunicipio, 0)
else
MunicipioIncidencia := StrToIntDef(NFSe.Tomador.Endereco.CodigoMunicipio, 0);
end;
//MunicipioPrestacaoServico := '';
//xMunicipioIncidencia := '';
if MunicipioIncidencia > 0 then
begin
//MunicipioPrestacaoServico := ObterNomeMunicipioUF(MunicipioIncidencia, xUF);
//MunicipioPrestacaoServico := MunicipioPrestacaoServico + '/' + xUF;
//xMunicipioIncidencia := MunicipioPrestacaoServico;
xMunicipioIncidencia := ObterNomeMunicipioUF(MunicipioIncidencia, xUF);
end;
// NFSe.Servico.MunicipioIncidencia
end;