Ir para conteúdo
  • Cadastre-se

dev botao

URL não definida para :TNFSeGerarNFSe


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

Recommended Posts

Italo e demais

Peço mais vez ajuda pra tentar implantar a minha NFSe

Já configurei tudo que podia e que não podia, já tentei seguir o que voce me disse anteriormente mas continuo tendo o problema com esse erro URL não definida para :TNFSeGerarNFSe
Meu provedor é SIAPNet, voce até já adicionou ele no Cidades.INI e tudo mais. Infelizmente estou patinando no gelo.
Essas são as configurações do DataModule
+---------------------------------------------------------------
 

  With acbrNFSe.Configuracoes.Certificados do begin
    NumeroSerie               :=dm.EmpresaCERTIFICADO.AsString;
  End;

  Path_NFSe               :=LerIni('NFSE','PATHNFSe');
  Path_RPS                :=LerIni('NFSE','PATHRps');
  Path_Ger                :=LerIni('NFSE','PATHGer');
  Path_SchemaS            :=LerIni('NFSE','PATHSchemas');
  With acbrNFSe.Configuracoes.Arquivos do begin
    AdicionarLiteral      :=True;
    EmissaoPathNFSe       :=True;
    SepararPorMes         :=True;
    SepararPorCNPJ        :=True;
    PathGer               :=Path_Ger;
    PathSchemas           :=Path_SchemaS;
    NomeLongoNFSe         :=True;
    PathMensal            :=GetPathGer(0);
    PathCan               :=PathMensal;
    PathSalvar            :=PathMensal;
    Salvar                :=True;
  End;
  With acbrNFSe.Configuracoes.Geral do begin
    Salvar                :=True;
    PathIniCidades        :=Path_Local;
    PathIniProvedor       :=Path_Local;
    CodigoMunicipio       :=StrToInt(FormatFloat('00',dm.Empresa.FieldByName('CodUF').AsInteger)+FormatFloat('00000',dm.Empresa.FieldByName('CodMun').AsInteger));
    UserWeb               :=dm.Empresa.FieldByName('UsuarioWeb').AsString;
    SenhaWeb              :=dm.Empresa.FieldByName('SenhaWeb').AsString;
    with Emitente do begin
      CNPJ                :=dm.Empresa.FieldByName('cnpj').AsString;
      InscMun             :=dm.Empresa.FieldByName('Municipal').AsString;
      RazSocial           :=dm.Empresa.FieldByName('Razao').AsString;
      WebUser             :=dm.Empresa.FieldByName('UsuarioWeb').AsString;
      WebSenha            :=dm.Empresa.FieldByName('SenhaWeb').AsString;
      WebFraseSecr        :='';
    end;
  End;
  With acbrNFSe.Configuracoes.WebServices do begin
    Salvar                :=True;
    Ambiente              :=iif(dm.EmpresaAMBIENTE.AsInteger=0,taHomologacao,taProducao);
    Visualizar            :=False;
    UF                    :=dm.Empresa.FieldByName('Estado').AsString;
    TimeOut               :=5000;
  End;

  With acbrNFSe.Configuracoes.Geral do begin
    SSLLib                :=libWinCrypt;
    SetConfigMunicipio;
  End;

  with acbrNFSe do begin
    if DANFSE <> nil then begin
     DANFSE.Logo        := LerIni('NFSE','LOGOPREF');
     DANFSE.PrestLogo   := LerIni('NFSE','LOGO');
     DANFSE.Prefeitura  := dm.EmpresaPREFEITURA.AsString;
     DanfSE.PathPDF     := Path_Local;
     DanfSE.TipoDANFSE  :=tpPadrao;
    end;
  end;
+------------------------------------------------------------------------

Aqui segue a forma que estou gerando e enviando

{aqui eu preencho os dados da XML}

  MyLote :=dm04.NotaComRps.FieldByName('RPS').AsInteger;
  MyRps  :=dm04.NotaComRps.FieldByName('RPS').AsInteger;
  dm00.acbrNFSe.Gerar(MyRps,MyLote);
  dm00.acbrNFSe.GerarLote(MyLote);
  //dm00.acbrNFSe.NotasFiscais.ValidarLote(MyLote,);
  dm00.acbrNFSe.EnviarSincrono(MyLote);
  //dm00.acbrNFSe.ConsultarLoteRps(MyLote);
  with dm00.acbrNFSe do begin
    rCodigo   :=WebServices.EnviarLoteRPS.RetEnvLote.InfRec.MsgRetorno[ 0 ].Codigo;
    rMsg      :=WebServices.EnviarLoteRPS.RetEnvLote.InfRec.MsgRetorno[ 0 ].Mensagem;
    rCorrecao :=WebServices.EnviarLoteRPS.RetEnvLote.InfRec.MsgRetorno[ 0 ].Correcao;
  end;
  showmessage(rCodigo+' - '+rmsg+' - '+rCorrecao);
 

o erro ocorre ao Gerar ou ao GerarLote, tanto com uma opção quanto a outra o erro ocorre.

incrível, faz 3 anos que tento implantar essa nota, até então foi dificil descobrir que a Prefeitura de Pinda não tinha WS, agora que encontrei alguem na prefeitura que me respondeu a altura, não consigo avançar no caso.

agradeço muito uma ajuda.

Link para o comentário
Compartilhar em outros sites

  • Consultores

Boa tarde Marcelo,

Teste desta forma:

  MyLote :=dm04.NotaComRps.FieldByName('RPS').AsInteger;
  MyRps  :=dm04.NotaComRps.FieldByName('RPS').AsInteger;
  dm00.acbrNFSe.EnviarSincrono(MyLote);
  with dm00.acbrNFSe do begin
    rCodigo   :=WebServices.EnviarLoteRPS.RetEnvLote.InfRec.MsgRetorno[ 0 ].Codigo;
    rMsg      :=WebServices.EnviarLoteRPS.RetEnvLote.InfRec.MsgRetorno[ 0 ].Mensagem;
    rCorrecao :=WebServices.EnviarLoteRPS.RetEnvLote.InfRec.MsgRetorno[ 0 ].Correcao;
  end;
  showmessage(rCodigo+' - '+rmsg+' - '+rCorrecao);

Consultor SAC ACBr

Italo Giurizzato Junior
Ajude o Projeto ACBr crescer - Assine o SAC

Projeto ACBr

Analista de Sistemas / e-mail: [email protected] / Fone: (16) 9-9701-5030 / Araraquara-SP

Araraquara - A era dos Trólebus

Link para o comentário
Compartilhar em outros sites

Italo

obrigado por responder, mas infelizmente o erro é o mesmo. a impressão que dá é que ta faltando alguma informação na XML, mas eu sinceramente não consigo encontrar onde essa URL está vazia. o componente tem muitas opções talvez isso não esteja encontrando ou deixando de preencher alguma tag.

Quando tento enviar, como EnviarSincrono precisa de certa forma criar o XML, ai creio que ele bate na propriedade GERAR onde dá o mesmo erro.

Link para o comentário
Compartilhar em outros sites

  • Consultores

Bom dia Marcelo,

Você se refere a cidade de Pindamonhangaba/SP, correto?

Favor verificar se no arquivo Cidades.ini consta a respectiva cidade.

Se sim, verifique se a mesma aponta para o provedor SIAPNet.

Se sim, abra o arquivo SIAPNet.ini e verifique se consta a URL da cidade desejada.

No repositório o arquivo Cidades.ini contem:

[3538006]
Nome=Pindamonhangaba
UF=SP
Provedor=SIAPNet
NomeURL_H=teste
NomeURL_P=pmpinda

e o arquivo SIAPNet.ini contem:

 

[URL_P]
; Lorena/SP
RecepcaoLoteRPS_3527207=https://siap.lorena.sp.gov.br/pmlorena/websis/siapnet/arrecadacao/issonline/ws/

; guaratingueta/SP
RecepcaoLoteRPS_3518404=https://iss.guaratingueta.sp.gov.br/pmguaratingueta/websis/siapnet/arrecadacao/issonline/ws/index.php?wsdl

;Pindamonhangaba/SP
RecepcaoLoteRPS_3538006=http://siapegov.pindamonhangaba.sp.gov.br/pmpinda/websis/siapnet/arrecadacao/issonline/ws/index.php?wsdl

[URL_H]
; Lorena/SP
RecepcaoLoteRPS_3527207=https://siap.lorena.sp.gov.br/teste/websis/siapnet/arrecadacao/issonline/ws/

; guaratingueta/SP
RecepcaoLoteRPS_3518404=https://iss.guaratingueta.sp.gov.br/teste/websis/siapnet/arrecadacao/issonline/ws/index.php?wsdl

;Pindamonhangaba/SP
RecepcaoLoteRPS_3538006=http://siapegov.pindamonhangaba.sp.gov.br/pmpinda_teste/websis/siapnet/arrecadacao/issonline/ws/index.php?wsdl

Se os seus arquivos estão atualizados, verifique se a sua aplicação não esta lendo outro arquivo que esteja desatualizado.

Consultor SAC ACBr

Italo Giurizzato Junior
Ajude o Projeto ACBr crescer - Assine o SAC

Projeto ACBr

Analista de Sistemas / e-mail: [email protected] / Fone: (16) 9-9701-5030 / Araraquara-SP

Araraquara - A era dos Trólebus

Link para o comentário
Compartilhar em outros sites

  • Este tópico foi criado há 2230 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.