NFSe Padrão Nacional - Ocorrendo o erro E0370 - Relacionado a Serviços de Obras

[Diogo Loff]

Esta foi uma resposta que dei em um tópico que esta em um forum errado que não é destinado a NFSe.

Contexto esta acontecendo erros com relação a obras onde não esta gerando o bloco corretamente pois esta condicionando ao campo "inscImobFisc". Porem existem várias situações que o serviço se enquadra como obra, mas não existem dados imobiliarios, exemplo disto colocação de ar condicionado, reparos, entre outros. Os dados imobiliarios só são pertinentes quando é uma obra realmente, digamos vou contrsuir um prédio por exemplo.

 

Fiz os seguintes ajustes listados abaixo (Fonte esta anexo e foi utiliza um fonte atualizado hoje a tarde)

Ajustado a rotina de condição para gerar o bloco.

function TNFSeW_PadraoNacional.DevoGerarXMLObra: Boolean;
begin
  Result := (NFSe.ConstrucaoCivil.inscImobFisc <> '') or (NFSe.ConstrucaoCivil.CodigoObra <> '') or (NFSE.ConstrucaoCivil.Cib > 0);
end;

Ajustado o bloco onde gera

function TNFSeW_PadraoNacional.GerarXMLObra: TACBrXmlNode;
begin
  Result := CreateElement('obra');

  if NFSe.ConstrucaoCivil.inscImobFisc <> '' then
  begin
    Result.AppendChild(AddNode(tcStr, '#1', 'inscImobFisc', 1, 30, 1,
                                        NFSe.ConstrucaoCivil.inscImobFisc, ''));
  end;

  if NFSe.ConstrucaoCivil.CodigoObra <> '' then
  begin
    Result.AppendChild(AddNode(tcStr, '#1', 'cObra', 1, 30, 1,
                                          NFSe.ConstrucaoCivil.CodigoObra, ''));
  end;

  if NFSE.ConstrucaoCivil.Cib > 0 then
  begin
    Result.AppendChild(AddNode(tcStr, '#1', 'cCIB', 1, 8, 1,
                                          Poem_Zeros(NFSe.ConstrucaoCivil.Cib, 8)));
  end;

  if (NFSe.ConstrucaoCivil.Endereco.CEP <> '') or
     (NFSe.ConstrucaoCivil.Endereco.Endereco <> '') then
  begin
    Result.AppendChild(GerarXMLEnderecoObra);
  end;
end;

 

Rotina testada e validada.

PadraoNacional.GravarXml.pas