Ir para conteúdo
  • Cadastre-se

dev botao

NFS-e Valinhos / SP


Ver Solução Respondido por Renato Rubinho,
  • Este tópico foi criado há 276 dias atrás.
  • Talvez seja melhor você criar um NOVO TÓPICO do que postar uma resposta aqui.

Recommended Posts

Boa tarde, preciso de ajuda com emissão de NFS-e para prefeitura de Valilnhos/SP provedor, não consegui encontrar muitas informações a respeito no site, vi que no arquivo "ACBrNFSeXServicos.ini" tem a seguinte configuração:

[3556206]
; Incluído em 20/09/2022
Nome=Valinhos
UF=SP
Provedor=SigISSWeb
ProRecepcionar=https://wsvalinhos.sigissweb.com/

 

o que me leva acreditar componente esta apto para emitir para o provedor, não estou conseguindo concluir a emissão recebendo um retorno estranho, alguém faz emissão de NFSe para Valinhos/SP utilizando o componente poderia me ajudar?

10005-ger-nfse.xml 10005-lista-nfse-ger.xml

Link para o comentário
Compartilhar em outros sites

  • Consultores
  • Solution

Boa tarde,

Abrindo o retorno do provedor, acusa um provável problema de autenticação.

The request has not been applied because it lacks valid authentication credentials for the target resource

Veja que nos métodos deste provedor existe um para gerartoken.

../trunk2/Fontes/ACBrDFe/ACBrNFSeX/Provedores/SigISSWeb.Provider.pas

Provavelmente você precisa primeiro preencher Emitente.WSUser, Emitente.WSSenha e consumir este método.

procedure TACBrNFSeProviderSigISSWeb.PrepararGerarToken(
  Response: TNFSeGerarTokenResponse);
var
  AErro: TNFSeEventoCollectionItem;
  Emitente: TEmitenteConfNFSe;
begin
  Response.Clear;
  Emitente := TACBrNFSeX(FAOwner).Configuracoes.Geral.Emitente;
  if EstaVazio(Emitente.WSUser) then
  begin
    AErro := Response.Erros.New;
    AErro.Codigo := Cod119;
    AErro.Descricao := ACBrStr(Desc119);
    Exit;
  end;
  if EstaVazio(Emitente.WSSenha) then
  begin
    AErro := Response.Erros.New;
    AErro.Codigo := Cod120;
    AErro.Descricao := ACBrStr(Desc120);
    Exit;
  end;
  // Aten��o: Neste xml todos os "Ws_" do in�cio das tags devem ter o primeiro "W" em mai�sculo
  Response.ArquivoEnvio := '{"login":"' +
                           OnlyNumber(Emitente.WSUser) + '","senha":"' +
                           Emitente.WSSenha + '"}';
  FpPath := 'rest/login';
  FpMethod := 'POST';
  FpMimeType := 'application/json';
end;

 

Link para o comentário
Compartilhar em outros sites

15 horas atrás, Renato Rubinho disse:

Boa tarde,

Abrindo o retorno do provedor, acusa um provável problema de autenticação.

The request has not been applied because it lacks valid authentication credentials for the target resource

Veja que nos métodos deste provedor existe um para gerartoken.

../trunk2/Fontes/ACBrDFe/ACBrNFSeX/Provedores/SigISSWeb.Provider.pas

Provavelmente você precisa primeiro preencher Emitente.WSUser, Emitente.WSSenha e consumir este método.

procedure TACBrNFSeProviderSigISSWeb.PrepararGerarToken(
  Response: TNFSeGerarTokenResponse);
var
  AErro: TNFSeEventoCollectionItem;
  Emitente: TEmitenteConfNFSe;
begin
  Response.Clear;
  Emitente := TACBrNFSeX(FAOwner).Configuracoes.Geral.Emitente;
  if EstaVazio(Emitente.WSUser) then
  begin
    AErro := Response.Erros.New;
    AErro.Codigo := Cod119;
    AErro.Descricao := ACBrStr(Desc119);
    Exit;
  end;
  if EstaVazio(Emitente.WSSenha) then
  begin
    AErro := Response.Erros.New;
    AErro.Codigo := Cod120;
    AErro.Descricao := ACBrStr(Desc120);
    Exit;
  end;
  // Aten��o: Neste xml todos os "Ws_" do in�cio das tags devem ter o primeiro "W" em mai�sculo
  Response.ArquivoEnvio := '{"login":"' +
                           OnlyNumber(Emitente.WSUser) + '","senha":"' +
                           Emitente.WSSenha + '"}';
  FpPath := 'rest/login';
  FpMethod := 'POST';
  FpMimeType := 'application/json';
end;

 

Bom dia, já estava sendo preenchido os campos WSUser e WSSenha e imaginei que ao preenche-los o método seria executado automaticamente, mas alterei meu fonte deixando

           if ((ACBrNFSeX1.Configuracoes.Geral.Emitente.WSUser <> '') and (ACBrNFSeX1.Configuracoes.Geral.Emitente.WSSenha <> '')) then
           begin
             ACBrNFSeX1.GerarToken;
             ACBrNFSeX1.Emitir(pFaturaLote, meAutomatico, False);
           end;

e funcionou, ou melhor deu outro erro mas acredito ser algo relacionado a cadastro.

Obrigado pela ajuda!

  • Curtir 1
Link para o comentário
Compartilhar em outros sites

  • Este tópico foi criado há 276 dias atrás.
  • Talvez seja melhor você criar um NOVO TÓPICO do que postar uma resposta aqui.
Visitante
Este tópico está agora fechado para novas respostas
×
×
  • 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.