Ir para conteúdo
  • Cadastre-se

dev botao

  • Este tópico foi criado há 2437 dias atrás.
  • Talvez seja melhor você criar um NOVO TÓPICO do que postar uma resposta aqui.

Recommended Posts

  • Membros Pro
Postado (editado)

Fala pessoal.

Sou novo no ramo de NFSe e até agora não desenvolvi nenhuma Nota Fiscal Eletronica em uma prefeitura que não esteja no Projeto ACBR.

 

Essa semana iniciei Londrina, e os usuários já estão criados, e tudo certo. estou recebendo sempre a mensagem:

 

  •  
  • Processo Geral - Usuário não emissor de nota eletrônica
  •  
  • Processo Geral - Falha na autenticação, verifique suas credenciais.
  •  

Esse código é o envio da nota através do XML, gostaria de saber se estou fazendo da maneira certa.







var
  RPS :            TElementoRPS;
  ws:              ModuloEmissorNFSePortType;
  descricaoRps:    tcDescricaoRps;
  retornoNota:     tcRetornoNota;
  DescricaoErros:  tcListaErrosAlertas;
  I:               Integer;
  dia,mes,ano :    word;

begin
   try
      RPS := TLeitorGenerico(TNFPSe(FNFPSeRef).Leitor).lote.listaRPS.item(indice);
      descricaoRps   := tcDescricaoRps.Create;
      DescricaoErros := tcListaErrosAlertas.Create();

      if TUtil.iif(IniOptions.Ambiente = 1, True, False) then
      begin
         ws :=  getModuloEmissorNFSePortType(True,
             'http://testeiss.londrina.pr.gov.br/ws/v1_01/sigiss_ws.php?wsdl',
             frmMenu.HTTPRIO1);
         descricaoRps.ccm   := 948314;
         descricaoRps.cpf   := '22853201830';
         descricaoRps.senha := '**********';
      end
      else
      begin
         ws :=  getModuloEmissorNFSePortType(True,
             'https://iss.londrina.pr.gov.br/ws/v1_01/sigiss_ws.php?wsdl',
             frmMenu.HTTPRIO1);

        descricaoRps.ccm   := 948314;
        descricaoRps.cpf   := '10280162634';
        descricaoRps.senha := ''**********';';
      end;
      descricaoRps.cnpj  := Session.Filial.getCnpj;


     
      if (RPS.Servico.Valores.IssRetido <> 0.00) then
        descricaoRps.situacao := 'tt'   // tributado no tomador
      else
        descricaoRps.situacao := 'tp';  // tributado no prestador

      //cod_pais_prestacao_servico  := '1082';
      descricaoRps.servico                     := StrToInt(RPS.Fiscal.ItemListaServico);



      descricaoRps.aliquota := RPS.Servico.Valores.Aliquota;
      if StrToFloat(descricaoRps.aliquota)=0 then
        descricaoRps.aliquota := '0,00'
      else
        descricaoRps.aliquota := descricaoRps.aliquota+',00';

      descricaoRps.cod_municipio_prestacao_servico := IntToStr(ord(Session.Filial.getEndereco.CodigoMunicipio));
      descricaoRps.cod_municipio_incidencia        := RPS.Fiscal.CodIBGEMunicipioIncidencia;



      // ****************************** Início Dados Tomador ******************************** //
      // Verifica o tipo de tomador
      if (RPS.Tomador.TipoPessoa = pesFisica) then
            descricaoRps.tomador_tipo := 2                             // 2- Pessoa Física
      else if  (descricaoRps.cod_municipio_prestacao_servico = descricaoRps.tomador_cod_cidade) then
           descricaoRps.tomador_tipo := 3  // 3- Pessoa Jurídica do Município do Prestador
      else if  (descricaoRps.cod_municipio_prestacao_servico <> descricaoRps.tomador_cod_cidade) then
           descricaoRps.tomador_tipo := 4  // 4- Pessoa Jurídica de Fora
      else
      raise Exception.Create('Tipo do Tomador inexistente!!!');

      if (descricaoRps.tomador_tipo<>1) and (descricaoRps.tomador_tipo<>5) then
      begin
          descricaoRps.tomador_cnpj  := RPS.Tomador.Documento;
          descricaoRps.tomador_razao := RPS.Tomador.RazaoSocial;
          descricaoRps.tomador_endereco := RPS.Tomador.Endereco.Logradouro;
          descricaoRps.tomador_numero  := RPS.Tomador.Endereco.Numero;
          descricaoRps.tomador_CEP  := RPS.Tomador.Endereco.CEP;
          descricaoRps.tomador_cod_cidade := RPS.Tomador.Endereco.CodigoMunicipio;
          descricaoRps.tomador_bairro := RPS.Tomador.Endereco.Bairro;
          if (descricaoRps.tomador_tipo<>1) then
              descricaoRps.tomador_complemento := '';
      end;

      descricaoRps.tomador_im := IntToStr(descricaoRps.ccm);


     // ****************************** Fim Dados Tomador ************************************ //

     // Verifica  se o código de incidência do serviço é diferente do município do prestador.
     if (descricaoRps.cod_municipio_incidencia <> descricaoRps.cod_municipio_prestacao_servico)  then
     begin
       descricaoRps.situacao := 'nt';
       descricaoRps.retencao_iss :=  FormataDinheiro(FloatToStr(RPS.Servico.Valores.Inss.AsCurrency));
     end
     else
      //descricaoRps.retencao_iss := '0,00';  //NAO PREENCHER COM NENHUM VALOR

      //Dados e Impostos RPS
      descricaoRps.valor      :=  FormataDinheiro(FloatToStr(RPS.Servico.Valores.Servico));
      descricaoRps.base       :=  FormataDinheiro(FloatToStr(RPS.Servico.Valores.BaseDeCalculo));
      if RPS.Servico.Valores.Ir.AsFloat>0 then
         descricaoRps.ir         :=  FormataDinheiro(FloatToStr(RPS.Servico.Valores.Ir.AsFloat));

      if RPS.Servico.Valores.Pis.AsFloat>0 then
         descricaoRps.pis        :=  FormataDinheiro(FloatToStr(RPS.Servico.Valores.Pis.AsFloat));

      if RPS.Servico.Valores.Cofins.AsFloat>0 then
         descricaoRps.cofins     :=  FormataDinheiro(FloatToStr(RPS.Servico.Valores.Cofins.AsFloat));

      if RPS.Servico.Valores.Csll.AsFloat>0 then
         descricaoRps.csll       :=  FormataDinheiro(FloatToStr(RPS.Servico.Valores.Csll.AsFloat));

      if RPS.Servico.Valores.Inss.AsFloat>0 then
         descricaoRps.inss       :=  FormataDinheiro(FloatToStr(RPS.Servico.Valores.Inss.AsFloat));

      descricaoRps.descricaoNF       :=  RPS.Servico.Discriminacao;
      descricaoRps.rps_num           :=  StrToInt(RPS.Numero);
      descricaoRps.rps_serie         :=  RPS.Serie;

      DecodeDate(now,ano,mes,dia);
      descricaoRps.rps_dia           := dia;
      descricaoRps.rps_mes           := mes;
      descricaoRps.rps_ano           := ano;


      retornoNota := tcRetornoNota.Create;

      ws.GerarNota(descricaoRps, retornoNota, DescricaoErros);


       if retornoNota.Resultado=1 then
       begin
         with retornoNota do
         begin
             TfrmNFSeEnvio(Pai).dolog('Auth: '+autenticidade,tmSucesso);
             TfrmNFSeEnvio(Pai).doLog('Nota: '+IntToStr(Nota),tmSucesso);
             TfrmNFSeEnvio(Pai).dolog('Link para visualização: '+LinkImpressao,tmSucesso);
         end;
       end
       else
       begin
         for I:= 0 to Length(DescricaoErros)-1 do

         with DescricaoErros[I] do
         begin
            TfrmNFSeEnvio(Pai).dolog(ID+'-'+DescricaoProcesso+' - '+DescricaoErro,tmVermelho);
         end;

       end;

   {   if ((Length(DescricaoErros) > 0) and (retornoNota.Nota = 0)) then
      begin
        for I := 0 to Length(DescricaoErros) - 1 do
        begin
          with DescricaoErros[I] do
          begin
            frmNFSeEnvio.doLog(IntToStr(id) + ' - ' + DescricaoProcesso + ': ' + DescricaoErro, tmErro);
          end;
        end;
      end
      else
      begin
        frmNFSeEnvio.doLog(retornoNota.Resultado, tmSucesso);
        frmNFSeEnvio.doLog(retornoNota.Nota, tmSucesso);
        frmNFSeEnvio.doLog(retornoNota.autenticidade, tmSucesso);
        frmNFSeEnvio.doLog(retornoNota.LinkImpressao, tmSucesso);
      end;   }
    except
      on e: Exception do
        raise Exception.Create('Erro ao enviar da nota fiscal.' + sLineBreak + e.Message);
    end;
end;

Alguém pode me auxiliar no codigo acima?? agradeço.

Editado por Gallixx
  • Membros Pro
Postado

XML que estou enviando:

<?xml version="1.0"?>
<SOAP-ENV:Envelope xmlns:SOAP-ENV="http://schemas.xmlsoap.org/soap/envelope/" xmlns:xsd="http://www.w3.org/2001/XMLSchema" xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance" xmlns:SOAP-ENC="http://schemas.xmlsoap.org/soap/encoding/">

	<SOAP-ENV:Body>
		<GerarNota xmlns="http://iss.londrina.pr.gov.br/ws/v1_01">
			<DescricaoRps xmlns="">
				<ccm>948314</ccm>
				<cnpj>000116506000918</cnpj>
				<cpf>22853201830</cpf>
				<senha>*****</senha>
				<aliquota>5,00</aliquota>
				<servico>2601</servico>
				<situacao>tt</situacao>
				<valor>28855,56</valor>
				<base>28855,56</base>
				<ir/>
				<pis/>
				<cofins/>
				<csll/>
				<inss/>
				<retencao_iss/>
				<cod_municipio_prestacao_servico>4113700</cod_municipio_prestacao_servico>
				<cod_municipio_incidencia>4113700</cod_municipio_incidencia>
				<descricaoNF>SERV. PREST. CONF. EXTRATOS EM ANEXO</descricaoNF>
				<tomador_tipo>4</tomador_tipo>
				<tomador_cnpj>60746948050217</tomador_cnpj>
				<tomador_email/>
				<tomador_ie/>
				<tomador_im>948314</tomador_im>
				<tomador_razao>BANCO BRADESCO S/A</tomador_razao>
				<tomador_endereco>AVENI PARANA</tomador_endereco>
				<tomador_numero>109</tomador_numero>
				<tomador_complemento/>
				<tomador_bairro>CENTRO</tomador_bairro>
				<tomador_CEP>86020300</tomador_CEP>
				<tomador_cod_cidade>4113700</tomador_cod_cidade>
				<tomador_fone/>
				<tomador_ramal/>
				<tomador_fax/>
				<rps_num>4437</rps_num>
				<rps_serie>6</rps_serie>
				<rps_dia>24</rps_dia>
				<rps_mes>1</rps_mes>
				<rps_ano>2014</rps_ano>
			</DescricaoRps>
		</GerarNota>
	</SOAP-ENV:Body>
</SOAP-ENV:Envelope>
  • 9 meses depois ...
  • 3 anos depois...
Postado

Conseguiu resolver o problema de autenticacao? Qual foi a solução?

Bom dia Pessoal.... Qual eh a solução desse problema???? Favor coloque pra quem esteja passando pelo mesmo problema (como eu).

Rennes.

 

  • Este tópico foi criado há 2437 dias atrás.
  • Talvez seja melhor você criar um NOVO TÓPICO do que postar uma resposta aqui.

Crie uma conta ou entre para comentar

Você precisar ser um membro para fazer um comentário

Criar uma conta

Crie uma nova conta em nossa comunidade. É fácil!

Crie uma nova conta

Entrar

Já tem uma conta? Faça o login.

Entrar Agora
×
×
  • Criar Novo...

Informação Importante

Colocamos cookies em seu dispositivo para ajudar a tornar este site melhor. Você pode ajustar suas configurações de cookies, caso contrário, assumiremos que você está bem para continuar.

The popup will be closed in 10 segundos...