Suprimir Im Do Xml (Quando Não Possuir)

[netstart]

Bom dia, o SGRSAT não consegui processar alguns cupons emitidos por estar com a TAG <IM> no xml, recebemos um email deles:

 

Bom dia,

 

Verificamos que 2 cupons foram processados com falha de schema XML.

Ao que tudo indica, são testes para ativação de novo SAT em contribuinte.

 

A razão para a falha de schema XML é a informação, pelo SAT, das tags <IM></IM>.

 

Sugerimos que o Aplicativo Comercial:

 

1-      Ou informe a Inscrição Municipal do contribuinte, caso este a possua ou;

2-      Não informar, no dado de venda para o SAT, a tag <IM> em qualquer das formas (<IM/> ou <IM></IM>);

 

Atenciosamente,

Secretaria da Fazenda do Estado de São Paulo

 

A principio pensamos em mudar o pcnGerador, mas logo notamos que ele serve para todos (NFe,NFCe,SAT,etc), fiquei na duvida onde mudar para corrigir, assim daria certo, mas não seria a forma correta:

 

 if FOpcoes.FTagVaziaNoFormatoResumido then

        begin

          if tag <> 'IM' then

            FArquivoFormatoXML := FArquivoFormatoXML + '<' + tag + '/>'

        end

        else

        begin

          if tag <> 'IM' then

            FArquivoFormatoXML := FArquivoFormatoXML + '<' + tag + '></' + tag + '>';

        end;

 

[Daniel Simoes]

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;

[netstart]

Deu certo...