Experimente modificar em pcnCFeW.pas, linha 201:
if trim(CFe.Emit.IM) <> '' then
Gerador.wCampo(tcStr, 'C13', 'IM ', 01, 15, 1, CFe.Emit.IM, DSC_IM);
método completo:
procedure TCFeW.GerarEmit;
begin
Gerador.wGrupo('emit', 'C01');
Gerador.wCampoCNPJCPF('C02', 'C02', CFe.Emit.CNPJCPF, 1058);
if not FApenasTagsAplicacao then
begin
Gerador.wCampo(tcStr, 'C03', 'xNome ', 01, 60, 0, ACBrStrToAnsi(CFe.Emit.xNome), DSC_XNOME);
Gerador.wCampo(tcStr, 'C04', 'xFant ', 01, 60, 0, ACBrStrToAnsi(CFe.Emit.xFant), DSC_XNOME);
end;
(**)GerarEmitEnderEmit;
Gerador.wCampo(tcStr, 'C12', 'IE ', 12, 12, 1, SomenteNumeros(CFe.Emit.IE), DSC_IE);
if trim(CFe.Emit.IM) <> '' then
Gerador.wCampo(tcStr, 'C13', 'IM ', 01, 15, 1, CFe.Emit.IM, DSC_IM);
if not FApenasTagsAplicacao then
Gerador.wCampo(tcInt, 'C14', 'cRegTrib', 01, 01, 1, RegTribToStr(CFe.Emit.cRegTrib), DSC_REGTRIB);
Gerador.wCampo(tcInt, 'C15', 'cRegTribISSQN', 01, 02, 1, RegTribISSQNToStr(CFe.Emit.cRegTribISSQN), DSC_REGISSQN);
Gerador.wCampo(tcStr, 'C16', 'indRatISSQN', 01, 01, 1, indRatISSQNToStr(CFe.Emit.indRatISSQN), DSC_RATISSQN);
Gerador.wGrupo('/emit');
end;