Sandro Felipe Adad
-
Total de ítens
228 -
Registro em
-
Última visita
-
Days Won
3
Community Answers
-
Sandro Felipe Adad's post in "Valor string inválido para TLayOutMDFe: URL-QRCode" ao tentar Gerar um Cte no programa de exemplo após ultimas atualizações do ACBR. was marked as the answer
Após atualização de agora cedo parece que o problema foi sanado.
Pode encerrar.
-
Sandro Felipe Adad's post in ACBRConsultaCNPJ was marked as the answer
Até que seja confirmada ou não a inviabilidade de uso da api pública pelo componente do ACBR, o que pode ser feito é usar usarmos a consulta pública como foi sugerido aqui no forum. Ou seja, um projeto que contenha um navegador (edge), possibilitando que o próprio usuário clique no botão (Sou Humano) e efetue a consulta manualmente. Após a consulta manual é possível extrair os dados do próprio html resultante. Fiz um protótipo funcional que efetua isso a quem interessar.
ConsultaCNPJ.dpr ConsultaCNPJ.dproj uConsultaCNPJ.dfm uConsultaCNPJ.pas
-
Sandro Felipe Adad's post in NFSe - Provedor IPM - Rio Negrinho/SC - 4215000 - Erro Envio/Consultas - Usuario ou Senha Invalidos was marked as the answer
Creio que o problema é com alguma configuração do ACBR que antes era default e agora não é mais.
ACBRNFSE.Configuracoes.Geral.SSLLib := libCustom;
ACBRNFSE.Configuracoes.Geral.SSLCryptLib := cryWinCrypt;
ACBRNFSE.Configuracoes.Geral.SSLHttpLib := httpWinHttp;
ACBRNFSE.Configuracoes.Geral.SSLXmlSignLib := xsLibXml2;
ACBRNFSE.SSL.SSLType := LT_TLSv1_2;
Consegui efetuar a consulta no programa de exemplo, com esta configuração acima, e teve exito.
-
Sandro Felipe Adad's post in NFs-e - Garibaldi/RS Infiscv11 - Erro na Consulta was marked as the answer
Podem fechar o tópico, era problema do Infisc-v11.ini desatualizado no meu cliente.
-
Sandro Felipe Adad's post in NFSe - Joinville/SC (4209102) was marked as the answer
Funcionou aff...
Segue em anexo a minha contribuição, o arquivo .ini e demais alterados.
Funcionando e testado pelos métodos do programa Demo_ACBR_Nfse do acbr:
botão-> Gerar e enviar Lote -> RPS ACBrNFSe1.Enviar(vNumLote);
botão-> Consultar Situação do Lote -> ACBrNFSe1.ConsultarSituacao(Protocolo);
botão-> Consultar NFSe por RPS -> (Que retorna o numero da nota gerada) ACBrNFSe1.ConsultarNFSeporRps(ACBrNFSe1.NotasFiscais.Items[0].NFSe.IdentificacaoRps.Numero,
ACBrNFSe1.NotasFiscais.Items[0].NFSe.IdentificacaoRps.Serie,
TipoRPSToStr(ACBrNFSe1.NotasFiscais.Items[0].NFSe.IdentificacaoRps.Tipo));
Segue para subir ao repositório e merge.
Obrigado pela ajuda de todos.
ISSJoinville.ini
pnfsNFSeG.pas
pnfsConversao.pas
pnfsNFSeW_ABRASFv2.pas