Jump to content

icones_brancos.png

dia-do-acbr-online.png botao

botao.pngbotao.png

botao.pngbotao.png

Ofertas Embarcadero
Descontos de até 35%

Saiba Mais

logo_acbr_paygo.png

TEF ACBr PayGo
Seja um revendedor e ofereça uma solução completa para seu cliente.


botao.png

beneficios.png

Filipe Natividade

Membros
  • Content Count

    121
  • Joined

  • Last visited

Community Reputation

40 Excellent

About Filipe Natividade

  • Rank
    Membro

Recent Profile Visitors

The recent visitors block is disabled and is not being shown to other users.

  1. Qual URL você usou?, colocou algum parâmetro nela? Você pode dar um replace de '</li>' para '</situacao>'
  2. Teste esse xml no método: procedure TNFSeConsultarNfseRPS.DefinirDadosMsg; colocando o XML na variável: FPDadosMsg. mas o FDadosEnvelope deve ser '' não pode conter nem espaço em branco. Atualização*** Você pode obter o código tom por: NFSe.PrestadorServico.Endereco.CodigoMunicipio. Pois no provedor IPM, no CodigoMunicipio você deve informa o Código TOM.
  3. Carregue XML do rps, depois vc pode acessar o código do município do emitente, nesse código de município vc pode colocar o código tom. Vê se isso dá certo.
  4. Eu vi o manual "em anexo" agora e tem um método para isso, "na epoca que eu fiz a integração com o ACBR não tinha esse método no manual" Você pode testar esse XML. depois fala para a gente como ficou. manual_eletron.pdf Teste esse xml no método: procedure TNFSeConsultarNfseRPS.DefinirDadosMsg; colocando o XML na variável: FPDadosMsg. mas o FDadosEnvelope deve ser '' não pode conter nem espaço em branco.
  5. O protocolo deve ser capturado após a geração da NFS-e, com o método Gerar. sem ele voce não consegue fazer a consulta, quando ocorre de eu perder a comunicação com a IPM, eu pego esse protocolo no site da IPM e coloco no meu sistema e faço a consulta do lote.
  6. Boa tarde. verifiquei meu código novamente e tinha esquecido de informar que para o provedor IPM é utilizado somente o comando: NFSe.ConsultarLoteRps( '', qryNFSePROTOCOLO.AsString ); pois para esse provedor não é utilizado o comando: NFSe.ConsultarNFSeporRps. Código que utilizo: if( NFSe.Configuracoes.Geral.Provedor = proIPM )then begin NFSe.NotasFiscais.LoadFromFile( PATH + qryNFSeID.AsString + qryNFSeSERIE.AsString + '-Rps.xml' ); NFSe.ConsultarLoteRps( '
  7. Fiz um teste agora, e o XML de consulta foi esse: <?xml version="1.0" encoding="UTF-8"?><nfse><pesquisa><codigo_autenticidade>0180450009868880</codigo_autenticidade><numero/><serie/><cadastro/></pesquisa></nfse> e o de resposta foi esse: <?xml version="1.0" encoding="UTF-8"?><retorno><mensagem><codigo>00001 - Sucesso</codigo></mensagem><numero_nfse>1227</numero_nfse><serie_nfse>1</serie_nfse><situacao_codigo_nfse>1</situacao_codigo_nfse><situacao_des
  8. Certo, mas o envelope deve ficar em branco, não pode conter nem "espaços". exemplo: FDadosEnvelope = ' '; < não pode, deve ser: FDadosEnvelope = '';
  9. Boa tarde, realmente existe o problema. tente executar o seguinte teste no procedimento: procedure TNFSeConsultarNfseRPS.DefinirDadosMsg; no final if (FPDadosMsg = '') or (FDadosEnvelope = '') then GerarException(ACBrStr('A funcionalidade [Consultar NFSe por RPS] não foi disponibilizada pelo provedor: ' + FPConfiguracoesNFSe.Geral.xProvedor)); Altere o valor da variável: FDadosEnvelope para ' ', para poder passar pela validação, e em seguida, volte o valor para '' pois para o provedor IPM não pode ter envelope. pois na proce
  10. Vou fazer um teste a tarde e te aviso se realmente está ou não funcionando.
  11. E com essas variáveis preenchidas é claro. NFSe.Configuracoes.Geral.UserWeb := ''; NFSe.Configuracoes.Geral.SenhaWeb := '';
  12. @-=Ma®©oS=-, com a IPM eu utilizo a seguinte forma. Envio NFSe.Gerar( NroRPS, 0, False ); //tratamentos qryNFSePROTOCOLO.AsString := NFSe.NotasFiscais.Items[0].NFSe.Protocolo; Consulta NFSe.NotasFiscais.LoadFromFile( Diretorio + NroRPS + SerieRps + '-Rps.xml' ); NFSe.ConsultarLoteRps( '', qryNFSePROTOCOLO.AsString ); apos consular o lote NFSe.ConsultarNFSeporRps( NFSe.NotasFiscais.Items[0].NFSe.IdentificacaoRps.Numero, NFSe.NotasFiscais.Items[0].NFSe.IdentificacaoRps.Serie,
  13. Bom dia @tobexy. segue o arquivo nfse.pas. O arquivo nfse.pas é apenas um exemplo de como preencher o componente ACBrNFSe para o provedor IPM, quais comandos utilizar etc, um guia para com está começando a se familiarizar com as dificuldades deste provedor. Outra coisa, a comunicação com o servidor da IPM é com HTTP POST, então, ao processar o envio, eles já irão responder com a NFS-e gerada com o HTML para impressão. mas no arquivo de exemplo a impressão é feita de outra forma, faço abrir um link para impressão. O xml de retorno é somente isso. <?
×
×
  • Create New...