URL não definida para :TNFSeGerarNFSe

[Marcelo Bill]

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.

[Italo Giurizzato Junior]

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);

[Marcelo Bill]

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.

[Italo Giurizzato Junior]

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.