AcbrNFSeX Codigo do Item

[Dener Souza]

Bom dia, estou configurando meu software que hoje emite NFSe para alguns clientes que utilizam o padrão nacional para emitir também para outros que utilizam a IPM (para Guabiruba/SC). Porem na impressão da DANFSE esta saindo o codigo cortado, ao invés de 10701 esta saindo apenas 1070 e nao esta saindo a descrição do item.
Olhei aqui no forum e encontrei essa resposta 

 onde reduziram o tamanho para ItemServico[i].ItemListaServico := PadLeft(aValor, 4, '0');
Eu fiz uma alteracao no IPM.LerXML.pas deixando ele assim
//ItemServico[i].ItemListaServico := PadLeft(aValor, 4, '0');
        if Length(aValor) <= 4 then
          ItemServico[i].ItemListaServico := PadLeft(aValor, 4, '0')
        else
          ItemServico[i].ItemListaServico := PadLeft(aValor, 6, '0');
e agora a linha esta trazendo de forma correta, com codigo completo 010701 e descricao...