Emissão Nfse Porto Velho - RO

[Iago de Assis]

Bom dia, 

Estou tentando efetuar a emissão de NFSe para Porto Velho, utilizando o "ACBrNFSe_Exemplo".

Porém ao emitir tenho o seguinte retorno:

Método..... : Gerar
Código Erro : E186
Mensagem... : cvc-complex-type.2.4.a: Foi detectado um conteudo invalido comecando com o elemento 'OptanteSimplesNacional'. Era esperado um dos '{"http://www.abrasf.org.br/nfse.xsd":RegimeEspecialTributacao}'.
Correção... : Verifique sua mensagem SOAP e a passagem dos parametros necessarios.
Provedor... : PVH

Segue em anexo o xml da emissão.

Peço que me ajudem neste caso, desde já agradeço !

 

1-ger-nfse.xml

[BigWings]

Edite o código do exemplo, informando o regime especial de tributação no método AlimentarNFSe.

// TnfseRegimeEspecialTributacao = ( retNenhum, retMicroempresaMunicipal, retEstimativa, retSociedadeProfissionais, retCooperativa, retMicroempresarioIndividual, retMicroempresarioEmpresaPP );
RegimeEspecialTributacao := retNenhum;

No caso deve ser um valor diferente de retNenhum.

[Iago de Assis]

1 hora atrás, BigWings disse:

Edite o código do exemplo, informando o regime especial de tributação no método AlimentarNFSe.

// TnfseRegimeEspecialTributacao = ( retNenhum, retMicroempresaMunicipal, retEstimativa, retSociedadeProfissionais, retCooperativa, retMicroempresarioIndividual, retMicroempresarioEmpresaPP );
RegimeEspecialTributacao := retNenhum;

No caso deve ser um valor diferente de retNenhum.

Certo, consegui passar desta fase. 

Minha solução foi a seguinte.

Selecionei "retOutros", porém fiz as seguintes modificações no fonte:

function RegimeEspecialTributacaoToStr(const t: TnfseRegimeEspecialTributacao): String;
begin
  result := EnumeradoToStr(t,
                           ['0','1','2','3','4','5','6','7','8','9','10', '11', '12',
                            '13', '1' ],  // mudei para 1 o outros
                           [retNenhum, retMicroempresaMunicipal, retEstimativa,
                           retSociedadeProfissionais, retCooperativa,
                           retMicroempresarioIndividual, retMicroempresarioEmpresaPP,
                           retLucroReal, retLucroPresumido, retSimplesNacional,
                           retImune, retEmpresaIndividualRELI, retEmpresaPP,
                           retMicroEmpresario, retOutros]);
end;

---------------------------------------------------------------------

       retOutros                    : Result := '1 - Movimento Mensal';  //'14 - Outros/Sem Vinculo';  //mudei a descrição para movimento mensal

 

Porém agora estou recebendo o seguinte retorno:

Método..... : Gerar
Código Erro : E47
Mensagem... : CPF/CNPJ do tomador do servico incorreto ou nao informado.
Correção... : Informe corretamente o CPF/CNPJ do tomador do servico.
Provedor... : PVH

 

Verifiquei que a tag Cpf/Cnpj do tomador não está sendo incluída no xml. Acredito que seja por conta de que no construtor 

constructor TDadosTomador.Create;
begin
  inherited Create;

  FIdentificacaoTomador := TIdentificacaoTomador.Create;
  FEndereco             := TEndereco.Create;
  FContato              := TContato.Create;
end;

 

Não há uma instância para o Cpf/Cnpj. 

Preciso de ajuda para realizar essa alteração .

[BigWings]

1 hora atrás, Iago de Assis disse:

Verifiquei que a tag Cpf/Cnpj do tomador não está sendo incluída no xml.

Está informando o CPF ou CNPJ do tomador, conforme no programa exemplo?

      PrestadorServico.Contato.Telefone := '1633224455';

      Tomador.IdentificacaoTomador.CpfCnpj := '55555555555555';
      Tomador.IdentificacaoTomador.InscricaoMunicipal := '17331600';

      Tomador.RazaoSocial := 'INSCRICAO DE TESTE';

      Tomador.Endereco.Endereco := 'RUA PRINCIPAL';

Pelo que vi está gerando no XML normalmente:

[Iago de Assis]

sim querido estou passando da seguinte forma:

      Tomador.IdentificacaoTomador.CpfCnpj            := '55555555555555';
      Tomador.IdentificacaoTomador.InscricaoMunicipal := '17331600';
      Tomador.RazaoSocial          := 'AQUI NOME DO TOMADOR TESTE';
      Tomador.Endereco.Endereco    := 'RUA PRINCIPAL DO TOMADOR';
      Tomador.Endereco.Numero      := 'S/N';

Porém, ao observar o xml, realmente não consta o Cpf/cnpj
 

Editado 3 Março, 2020 por Iago de Assis

[BigWings]

18 minutos atrás, Iago de Assis disse:

      Tomador.Endereco.Endereco    := 'RUA PRINCIPAL DO TOMADOR';
      Tomador.Endereco.Numero      := 'S/N';

Porém, ao observar o xml, realmente não consta o Cpf/cnpj

Veja se está informando a UF do endereço do tomador.

Tem uma condição no código que pode causar isso caso não informe.

[Iago de Assis]

Perfeito amigo, era exatamente isso.

Resolvi meu caso informando a UF do tomador do serviço e também o código do município. 

Agradeço muito pela sua ajuda BigWings.

Podemos encerrar este pedido.

[BigWings]

Obrigado por reportar.

Fechando. Para novas dúvidas, criar um novo tópico.