Jump to content

Compre o Delphi
Com até 30% de desconto
e parcelado em até 12x sem juros

Saiba Mais

Balança SM100 performance surpreendente

Tecnologia Japonesa   Teclado e Visor resistentes a água
Consumo inteligente de etiquetas   Baixo custo de manutenção
Comunicação Ethernet e WIFI independentes

Saiba mais

Impressora de Etiquetas ELGIN - L42 PRO

Protocolos PPLA, PPLB, ZPL, EPL (automático)
Porta USB padrão Opcionais: Ethernet, Serial, Paralela
Sensor de Etiquetas Móvel Garantia de 18 meses

Saiba mais

Marcelo Bill

URL não definida para :TNFSeGerarNFSe

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.

Share this post


Link to post
Share on other sites

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 Jurisato 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

Share this post


Link to post
Share on other 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.

Share this post


Link to post
Share on other sites

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 Jurisato 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

Share this post


Link to post
Share on other sites

Create an account or sign in to comment

You need to be a member in order to leave a comment

Create an account

Sign up for a new account in our community. It's easy!

Register a new account

Sign in

Already have an account? Sign in here.

Sign In Now

×
×
  • Create New...