Adhelmar Rondon

É teve uma época que eu iria migrar um projeto clipper para o Harbour, mais acabei não fazendo

Olá, eu trabalhei por muitos anos com Clipper e usava o banco xBase DBF, dizem que Habour é muito parecido com clipper; Qualquer coisa segue meu contato +55 11 937104384

Sim isso mesmo e os fontes do projeto fica com você

Segue meu contato (11)93710-4384 - Adhelmar Rondon Junior

Muito obrigado, fico agradecido

Segue anexo o fonte ACBrSedex, para ser analisado retorno das informações do rastreio ACBrSedex.pas

Bom dia, Diego Eu fiz umas alterações para pegar as informações, gostaria de saber se posso postar os fontes, agora não consegui alimentar o origem, porque colocaram também nome como Local, então na linha fica dois Locais

Muito obrigado, é que eles fizeram alterações e não tem mais a tag <LI>, foi colocado dentro de uma table as informações, enquanto isso estou vendo se consigo pegar as informações para o meu cliente

Olá Eu acho que o webservise de rastreio foi alterado o retorno, porque não esta mais funcionando a rotina que trata o retorno, pelo que eu vi foi colocado dentro de table o retorno </tr> </thead> <tbody> <tr> <td> <span class="bold eventoLocal">Local: </span>QUITANDINHA / PR<a class="btn-floating track-fab waves-effect waves-light white"><i class="mr-1 fa fa-home green-text"></i></a><br><span class="bold">Data: </span>01/02/2023 às 11:50<br><a class="pulse btn-floating ajuda-fab waves-effect waves-light white green-text" href="/ajuda/Objeto_entregue_ao_destinatário"><i class="red-text fa fa-question-circle green-text"></i></a><span class="bold eventoStatus">Objeto entregue ao destinatário</span><br>Local: Agência dos Correios - Quitandinha / PR<br> </td> </tr> <tr> <td> <span class="bold eventoLocal">Local: </span>QUITANDINHA / PR<a class="btn-floating track-fab waves-effect waves-light white"><i class="mr-1 fa fa-dolly amber-text"></i></a><br><span class="bold">Data: </span>01/02/2023 às 09:58<br><a class="pulse btn-floating ajuda-fab waves-effect waves-light white amber-text" href="/ajuda/Objeto_saiu_para_entrega_ao_destinatário"><i class="red-text fa fa-question-circle amber-text"></i></a><span class="bold eventoStatus">Objeto saiu para entrega ao destinatário</span><br>Local: Agência dos Correios - Quitandinha / PR<br> </td> </tr> <tr> <td> <span class="bold eventoLocal">Local: </span>JUNDIAI / SP<a class="btn-floating track-fab waves-effect waves-light white"><i class="mr-1 fa fa-envelope green-text"></i></a><br><span class="bold">Data: </span>03/01/2023 às 17:25<br><a class="pulse btn-floating ajuda-fab waves-effect waves-light white green-text" href="/ajuda/Objeto_postado"><i class="red-text fa fa-question-circle green-text"></i></a><span class="bold eventoStatus">Objeto postado</span><br>Local: Agência dos Correios - Jundiai / SP<br> </td> </tr> </tbody> </table> <p><strong>Sua compra é <strong>INTERNACIONAL</strong> e não obteve informações ou quer ver mais detalhes? <a href="/internacional.php?P_COD_UNI=JN722745583BR" style="color:#FF0000"><strong>CONSULTE AQUI</strong></a>.</strong></p> <p class="input-group-btn"><a href="index.php">

Boa tarde, Rubinho Na verdade fiquei sem solução, não sei porque em ambiente homologação, só consigo testar nota com um cnpj os outros retornam com erro, mais o suporte não respondeu mais nada, em ambiente produção esta funcionando normal

podem fechar o post

Bom dia, Rubinho Então deve ser algum problema com homologação, apesar do suporte falar que não tem problema algum, fim de semana em homologação não da pra emitir, em produção o cliente esta usando normal grato pela sua ajuda

Olá Tudo bem? Ao emitir notas para São José dos Campos esta retornando alguns tomadores com erro abaixo Não é permitido Tomador Não Identificado para atividade selecionada alguém saberia o que é esse erro?

Consulta o lote após o envio, mais percebi que servidor de homologação deles as vezes da problema

Rubinho, obrigado, consegui pelo exemplo a pegar o retornos de erro, eu queria apenas mostrar o ultimo retorno de erro, mais acho que não tem jeito né Diz uma coisa esse provedor ele é bem lento e assim entra em idle e assim a tela de processamento some, não teria como manter ela, enquanto o provedor não retorna nenhum mensagem, o windows acha que não esta processando nada e fica com não respondendo E uma outra coisa como que você trata retorno de lote em processamento, hoje fazendo testes as notas retornam tudo como lote em processamento

Olá Gerando nota para São José dos Campos, o servidor retorna com erro, não teria como esse erro ser mostrado, porque coloca Sucesso como True, mais devido ao erro o servidor não gerou a nota, realmente o email esta invalido, mais seria bom mostrar o erro 000145520-lista-nfse-con-lot.xml

Mais uma vez grato Rubinho, me ajudou muito Fiz rotina para fazer download, assim facilita para o usuário Gratidão! Deus abençoe, essa grande equipe ACBr

Desculpe pela minha burrice rsrs

Diz uma coisa o ACBrNFSeX, tem opção pegar esse PDF e salvar?

Sei que estou te alugando muito, desculpe, eu fiz isso, o que eu percebi que a nota fiscal não é carregada com os dados depois do retorno, assim eu olhando provedor geisweb, na rotina que trata o retorno, carrega os dados retornados no xml da nota e salva esse provedor não tem isso, então isso que não entendi, eu analisando, sei que vocês entende 100.000 vezes melhor que eu

Bom dia, Rubinho Então por ele não ter consultar o lote, então acho que não é depois que a nota é retornada, ela é lida e gravada na pasta, então por isso não consegui entender como o componente pega a nota, como faz com os outros provedores, tentei diversas consulta mais não sei porque não retorna nada, ele deve ser bem fora do padrão esse provedor né. vou tentar mais uma vez, se não der certo vou dizer para o meu cliente que não estou conseguindo gerar nota para Itupeva, quer dizer a nota é gerada, só não consigo pegar o retorno grato

Bom dia, Rubinho testei pelo exemplo e o que acontece gera a nota e retorna true, só que ao fazer o método consultar o lote, não retorna e assim fica como false e com isso coloca numero do rps na nota, estou enviando um print da tela, com o componente não gera a nota, o que pode ser?

Eu fiz debug nessa procedure e esta retornando numero da nota, mais na procedure checarresposta, tem essa rotina abaixo, mais esta retornando errado, esta vindo ACBrNFSeX1.NotasFiscais.Items[i].NFSe.Numero numero do rps ACBrNFSeX1.NotasFiscais.Items[i].NomeArq esta vindo vazio ACBrNFSeX1.NotasFiscais.Items[i].NFSe.CodigoVerificacao esta vindo vazio mais a nota foi gerada for i := 0 to ACBrNFSeX1.NotasFiscais.Count -1 do begin memoLog.Lines.Add(' '); memoLog.Lines.Add('NFS-e Numero....: ' + ACBrNFSeX1.NotasFiscais.Items[i].NFSe.Numero); memoLog.Lines.Add('Cod. Verificacao: ' + ACBrNFSeX1.NotasFiscais.Items[i].NFSe.CodigoVerificacao); memoLog.Lines.Add('Prestador.......: ' + ACBrNFSeX1.NotasFiscais.Items[i].NFSe.Prestador.RazaoSocial); memoLog.Lines.Add('Tomador.........: ' + ACBrNFSeX1.NotasFiscais.Items[i].NFSe.Tomador.RazaoSocial); if ACBrNFSeX1.NotasFiscais.Items[i].NFSe.SituacaoNfse = ACBrNFSeXConversao.snCancelado then memoLog.Lines.Add('A Nota encontra-se Cancelada.'); if ACBrNFSeX1.NotasFiscais.Items[i].NomeArq <> '' then begin memoLog.Lines.Add('Nome do arquivo.: ' + ACBrNFSeX1.Configuracoes.Arquivos.GetPathNFSe() + '\' + ACBrNFSeX1.NotasFiscais.Items[i].NomeArq); if ACBrNFSeX1.Configuracoes.Arquivos.Salvar then memoLog.Lines.Add('==> Xml da nota salvo na pasta e com o nome informado acima.') else memoLog.Lines.Add('==> Xml da nota não salvo em disco.'); // Na propriedade XmlNfse temos o XML da NFS-e LoadXML(ACBrNFSeX1.NotasFiscais.Items[i].XmlNfse, WBXmlNotas); end; end; procedure TACBrNFSeProviderSiappa.TratarRetornoEmitir(Response: TNFSeEmiteResponse);

Envio o RPS para o servidor, o servidor retorna nota fiscal, então eu até depurei, pega no retorno correto numero da nota, utilizo do mesmo jeito que no exemplo ChecarResposta(tmRecepcionar) ACBrNFSeX1.NotasFiscais.Items[i].NFSe.Numero; retorna numero do rps ACBrNFSeX1.NotasFiscais.Items[i].NFSe.CodigoVerificacao; não vem nada e a nota também não é gerada na pasta for i := 0 to ACBrNFSeX1.NotasFiscais.Count -1 do begin Frm_Principal.CodigoVerificacao := ACBrNFSeX1.NotasFiscais.Items[i].NFSe.CodigoVerificacao; Frm_Principal.NumeroNFSE := ACBrNFSeX1.NotasFiscais.Items[i].NFSe.Numero; Frm_Principal.memoLog.Add(' '); Frm_Principal.memoLog.Add('NFS-e Numero..: ' + ACBrNFSeX1.NotasFiscais.Items[i].NFSe.Numero); Frm_Principal.memoLog.Add('Cod. Verificacao: ' + ACBrNFSeX1.NotasFiscais.Items[i].NFSe.CodigoVerificacao); Frm_Principal.memoLog.Add('Prestador....: ' + ACBrNFSeX1.NotasFiscais.Items[i].NFSe.Prestador.RazaoSocial); Frm_Principal.memoLog.Add('Tomador.....: ' + ACBrNFSeX1.NotasFiscais.Items[i].NFSe.Tomador.RazaoSocial); if ACBrNFSeX1.NotasFiscais.Items[i].NomeArq <> '' then begin Frm_Principal.XMLNFSE := ACBrNFSeX1.NotasFiscais.Items[i].NomeArq; end else begin Frm_Principal.XMLNFSE := ''; end; end; nessa rotina Sucesso fica como True, mais numero da nota fica o numero do RPS

Olá fazendo testes com a nota de Itupeva, a nota esta sendo gerada e esta retornando os dados certinho, mais o tratamento de retorno esta trazendo os dados errado, no lugar do numero da nota esta colocando numero do rps, mais olhando o xml de retorno esta correto em anexo estou enviando xml de retorno e o xml do rps 700027-lista-nfse-sinc.xml