Luiz Eduardo Bodo

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?

Boa tarde amigos, estou com esse problema na hora de transmitir a NFS-e no provedor Agili. Ao alimentar o componente com apenas uma nota a ser transmitida ele retorna este erro, estou postando o erro e o XML do mesmo. 5123073478041200010356000000108211985-rps.xml

Na mosca, era isso mesmo Italo, preenchi corretamente a propriedade do cnae no item e deu certinho, mais uma vez muito obrigado pela atenção. Tópico resolvido!

No xml que eu postei esta tudo ok? posso estar fazendo algo errado na hora de transmitir? Pois eu já faço a emissão no provedor Betha , Simpliss e SmarAPD e sempre ocorre tudo ok, só neste provedor que comecei a emitir agora tive esse problema na emissão pois ainda não estava homologado na NFSEX

Olá Juliomar, olhei a pasta de BPL do delphi, olhei todas as pastas e subpastas que poderiam ter lá e não tem nada do ACBr nelas. Estranho porque toda vez que preciso atualizar o ACBr nunca tive esse problema, sempre atualizou certinho sem precisar fazer procedimentos. Não sei o que fazer

Italo, deletei toda a pasta do ACBR fiz a instalaçao dei Build na aplicação e mesmo assim o erro persiste o engraçado é que no XML gera a TAG <CodigoCnae/> desta forma somente fechando a TAG

Muito obrigado pela atenção e explicação Italo, irei fazer as verificações necessárias que me passou e retornarei aqui.