Arquivo: pcnCFeW.pas da pasta Fontes/ACBrSAT/PCNSAT
Linha: 204 a 206 na procedure TCFeW.GerarEmit;
if Length(InscEst) < 12 then //Caso a IE possua menos do que 12 dígitos, o AC deve preencher com espaços à direita. ER 2.21.08
InscEst := PadRight(InscEst,12,' ');
Gerador.wCampo(tcStrOrig, 'C12', 'IE ', 2, 14, 1, InscEst, DSC_IE);
O que tem de errado é que a procedure Gerador.wCampo retira os espaços em brancos por default.
Como se vê aqui no arquivo: pcnGerador da pasta Fontes/PCNComum
Linha: 674 a 681 na procedure wCampo
if ParseTextoXML then
ATag := '<' + tag + Atributo + '>' +
FiltrarTextoXML(FOpcoes.FRetirarEspacos, ConteudoProcessado, FOpcoes.FRetirarAcentos) +
'</' + tag + '>'
else
ATag := '<' + tag + Atributo + '>' +
ConteudoProcessado +
'</' + tag + '>';
ParseTextoXML = True e FOpcoes.FRetirarEspacos = True
Poderiam verificar se é possível passar a chamar a função wCampo para IE dessa maneira?
Gerador.wCampo(tcStrOrig, 'C12', 'IE ', 2, 14, 1, InscEst, DSC_IE, False);
Ou pode ser que dê outro problema? Ou tem alguma outra solução?