Luiz Eduardo Bodo

[5103353] ; Atualizado em 06/03/2025 Nome=Confresa UF=MT Provedor=Fiorilli Versao=2.00 ProRecepcionar=http://confresa.sigaraguaia.com.br:8080/IssWeb-ejb/IssWebWS/IssWebWS ProLinkURL=http://confresa.sigaraguaia.com.br:8080/issweb/formGerarNF.jsf?nroNota=%NumeroNFSe%&codVerificacao=%CodVerif%&cnpj=%Cnpj%&hash=%ChaveAcesso% ta na mão!

Boa tarde pessoal, a prefeitura de confresa-mt alterou o provedor Coplan para Fiorilli.

Ontem foi terrível

Eu resolvi apenas atualizando os fontes, tinha alteração particular, apaguei atualizei e deu certo

boa tarde, estou com o mesmo problema emissão em SP

Obrigado Italo

Boa tarde amigos, venho informar que o provedor de Porto Alegre do Norte - MT esta setado para ISSIntel, mas atualmente o provedor correto é o Agili (https://agiliblue.agilicloud.com.br/portal/portoalegrenorte#/)

Obrigado por compartilhar lembrando que a receitaws não e uma fonte oficial, podendo conter divergências nos dados

Muito obrigado

como passar esse parametro?

obrigado pela dica Orlando, vou dar uma olhada.

esta api como o amigo Alexandre comentou realmente não é oficial, nao requer captcha apenas o endereço https://www.receitaws.com.br/v1/cnpj+CNPJAQUI lembrando que esta api limita 3 consultas por minuto.

Obrigado por esclarecer, realmente não tinha me atentado a este fato, de fato na base de dados da receitaws tem um atraso de pelo 1 mes em alguns cnpj que consultei aqui, mas nao sei se a data de atualizacao da base deles é realmente sincronizada com a receita federal. mas é funcional até certo ponto.

Sim utilizando a API free oficial, esta funcionando perfeitamente, de ontem pra hoje dei uma melhorada nela, encapsulando. segue a unit. Fiz uma função para chamar. function TfrmPessoas.ConsultarCNPJ(const CNPJ: string): TCNPJInfo; begin Result := TCNPJInfo.Create; try Result.Consultar(CNPJ); except on E: Exception do begin // Trate as exceções, se necessário. ShowMessage('Erro ao consultar CNPJ: ' + E.Message); Result.Free; // Libere a instância em caso de erro. Result := nil; // Defina o resultado como nulo em caso de erro. end; end; end; // MODO DE USAR... InfoCNPJ := ConsultarCNPJ(DM.TiraPontos(txtDocumento.Text)); // Substitua pelo CNPJ desejado. if InfoCNPJ.Achou = 'Sim' then begin // achou end else // não achou... espero ter ajudado, qualquer duvida ou melhorias é bem vinda... CNPJInfo.pas

Boa tarde pessoal, quem esta com problema na consulta do CNPJ, fiz uma função utilizando JSONResponse, simples e eficiente, estou utilizando delphi 10.3

Boa tarde Italo, também estou achando que o problema é eles mesmo. vou fazer isso. muito obrigado pela atenção.

Estava dando uma fuçada aqui, no exemplo colocando os dados inválidos, o erro aparece indicando o que esta inválido, a partir do momento que eu preencho tudo corretamente, ai ele já volta para este erro que estou tendo. Fui deixando inválido quase todos os campos para saber se era algum campo que estava com problema de preenchimento, mas não achei nenhum campo inválido. Informações do Retorno: Requisição Ambiente: 1 Cidade : Sao Jose do Xingu/MT Provedor: Agili Versão: 1.00 Método Executado: Gerar NFSe Parâmetros de Envio Numero do Lote: 1 Parâmetros de Retorno Data de Envio : 30/12/1899 Numero do Prot: Numero da Nota: Link : Código Verif. : Sucesso : False Erro(s): Código : Erro Mensagem: Erro ao tentar gerar NFS-e => Value cannot be null. Parameter name: source Correção: Erro deve ser corrigido para poder gerar a NFS-e com os dados informados. --------- Código : X203 Mensagem: Não foi retornado nenhuma NFSe. Correção: --------- NFS-e Numero....: 1 Cod. Verificacao: Prestador.......: ANTONIA CAVALCANTE DE MELO SILVA Tomador.........: Jakson Goncalves Pessoa

Italo, verifiquei o exemplo de cima abaixo, cheguei até a dar um CTRL+C + CTRL+V no meu projeto com o exemplo mas o erro continua, talvez eu esteja fazendo confusão na hora de gerar. Atualmente nos provedores que atendo, estou fazendo da seguinte forma. // Alimento a NFS-e com uma função, validando os dados. // Feito isso faço a emissão desta forma. DM.NFSE.Emitir(qryNFSeNumero_LOTE.AsString,meAutomatico,False); ChecarResposta(tmRecepcionar); E depois verifico via webservice o retorno. Agora no provedor Agili é desta forma? trocando o meAutomatico por meUnitário? ou tem alguma mudança a mais que eu nao estou fazendo. Na hora de checar a resposta, devo utilizar o tmRecepcionar? eu acho que estou pecando nesta parte.

Então vou dar uma olhada nos campos do exemplo para ver se estou fazendo algo incorreto ou deixando de fazer, já retorno aqui, muito obrigado ítalo

Quando mando no unitário da esse erro aqui. Quando mando no automático ai da o erro que limite o envio de rps de no mínimo 2 como vc explicou

Como eu faço para enviar no modo unitário? Porque esse rps e gerado quando eu envio a função emitir com o modo unitário

agora esta gerando este XML 5123073478041200010356000000000000001-rps.xml

São José do Xingu - MT acabamos de homologar ela no NFSEX

Quando passei pro modo unitário obtive este retorno.

Entendi, então no caso devo trocar a emissão para o modo meUnitario? Seria isso?