Adhelmar Rondon
-
Total de ítens
242 -
Registro em
-
Última visita
-
Days Won
1
Tipo de Conteúdo
Blocks
Notes ACBrLibNFe
Fóruns
Downloads
Calendário
Posts postados por Adhelmar Rondon
-
-
10 minutos atrás, Millennium Tecnologia disse:
Preciso de Um DEV Com Experiência e ágil na Linguagem > HMG-IDE 3.0.35, na linguagem xBase, usa o compilador Harbour, e tem por padrão o banco de dados DBF
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
-
1 minuto atrás, Antonio Paulo Mangili disse:
@Adhelmar Rondon bom dia. só uma duvida. voce customiza??? ou seja desenvolve somente o que queremos??
obrigado pelo contato
Sim isso mesmo e os fontes do projeto fica com você
-
Em 23/05/2023 at 16:44, Antonio Paulo Mangili disse:
Boa tarde a todos.
Sou programador em Delphi, mas não desenvolvo sistema para celular Android. Tenho um amigo que tem um café, e ele precisa de um sistema muito simples, que tire o pedido no celular e envie a cozinha. ele não precisa fechar caixa, abrir caixa, emitir comanda de cobrança, nada. somente digitar o pedido da mesa e enviar para a cozinha. anexei aqui um esboço do projeto. se alguém se interessar em desenvolver, preciso de valores.
No aguardo e muito obrigado
Segue meu contato (11)93710-4384 - Adhelmar Rondon Junior
-
26 minutos atrás, Diego Foliene disse:
Bom dia.
Mais uma vez, muito obrigado pela contribuição!
Fiz alguns testes com ela e no meu entendimento está tudo correto. Por isso, a mesma foi enviada ao SVN na Rev-29194.
Por favor, queira atualizar seus fontes, reinstalar o ACBr para realizar novos testes e reportar qualquer problema.
Muito obrigado, fico agradecido
-
1
-
-
26 minutos atrás, Diego Foliene disse:
Opa! Pode sim! Muito obrigado pela contribuição!
A TK entrou em nosso backlog para ser analisada e desenvolvida, com sua contribuição o processo será ainda mais rápido.
Segue anexo o fonte ACBrSedex, para ser analisado retorno das informações do rastreio
-
2
-
-
1 hora atrás, Diego Foliene disse:
Bom dia.
Obrigado por reportar. Fiz um teste com o programa exemplo do ACBrSedex e realmente o resultado está vindo diferente. Foi criada a #TK-3833 para análise da situação e parecer do consultor responsável.
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
-
1
-
-
5 minutos atrás, Diego Foliene disse:
Bom dia.
Obrigado por reportar. Fiz um teste com o programa exemplo do ACBrSedex e realmente o resultado está vindo diferente. Foi criada a #TK-3833 para análise da situação e parecer do consultor responsável.
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
-
1
-
-
podem fechar o post
-
Em 21/03/2023 at 22:00, Renato Rubinho disse:
Boa noite,
Cola o print do programa de exemplo com o retorno do envio.
Aparentemente este provedor devolve as mensagens na lista de erros, no campo descrição.
procedure TACBrNFSeProviderABRASFv1.ProcessarMensagemErros(RootNode: TACBrXmlNode; Response: TNFSeWebserviceResponse; const AListTag, AMessageTag: string); . . . for I := Low(ANodeArray) to High(ANodeArray) do begin Mensagem := ObterConteudoTag(ANodeArray[I].Childrens.FindAnyNs('Mensagem'), tcStr); if Mensagem <> '' then begin AErro := Response.Erros.New; AErro.Codigo := ObterConteudoTag(ANodeArray[I].Childrens.FindAnyNs('Codigo'), tcStr); AErro.Descricao := ACBrStr(Mensagem); AErro.Correcao := ACBrStr(ObterConteudoTag(ANodeArray[I].Childrens.FindAnyNs('Correcao'), tcStr)); end; end;
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
-
1
-
-
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?
-
20 minutos atrás, Renato Rubinho disse:
Na minha opinião é melhor sempre mostrar todos os erros para o usuário corrigir de uma vez, claro que neste caso a descrição é a mesma, mas veja que o código veio diferente, deve ser uma falha do provedor.
É um comportamento do Windows, não teria muito o que fazer no componente, mas você pode ver de talvez enviar e consultar utilizando threads do seu lado se for tão demorado assim.
Se for assíncrono, não tem jeito, tem que consultar o lote após o envio.
Consulta o lote após o envio, mais percebi que servidor de homologação deles as vezes da problema
-
2
-
-
12 horas atrás, Renato Rubinho disse:
Boa noite,
Cola o print do programa de exemplo com o retorno do envio.
Aparentemente este provedor devolve as mensagens na lista de erros, no campo descrição.
procedure TACBrNFSeProviderABRASFv1.ProcessarMensagemErros(RootNode: TACBrXmlNode; Response: TNFSeWebserviceResponse; const AListTag, AMessageTag: string); . . . for I := Low(ANodeArray) to High(ANodeArray) do begin Mensagem := ObterConteudoTag(ANodeArray[I].Childrens.FindAnyNs('Mensagem'), tcStr); if Mensagem <> '' then begin AErro := Response.Erros.New; AErro.Codigo := ObterConteudoTag(ANodeArray[I].Childrens.FindAnyNs('Codigo'), tcStr); AErro.Descricao := ACBrStr(Mensagem); AErro.Correcao := ACBrStr(ObterConteudoTag(ANodeArray[I].Childrens.FindAnyNs('Correcao'), tcStr)); end; end;
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
-
2 horas atrás, Renato Rubinho disse:
Não tem como.
O link é um acesso ao documento emitido pelo provedor.
Acesse o link recebido para ver como ele é disponibilizado.
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
-
1
-
-
17 minutos atrás, Renato Rubinho disse:
Abra o XML que você anexou no primeiro post que vai ficar mais claro.
Este provedor não devolve o XML da NFSe, somente essas poucas informações que constam no XML.
O componente não gera XML da NFSe, o provedor que tem que devolver.
Alguns provedores não devolvem o XML, como é o caso deste, com isso, não tem XML para o componente.
Veja que ele disponibiliza o link para o PDF do DANFSe, você pega esse link e abre ou armazena para seu cliente emitir quando quiser.
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
-
9 horas atrás, Renato Rubinho disse:
Não existe XML da NFSe neste provedor.
Como não tem XML de NFSe, os dados da NFSe não serão preenchidos.
Como você viu na procedure TratarRetornoEmitir, as propriedades preenchidas são outras, conforme o trecho que destaquei no post anterior.
O programa de exemplo serve para demonstrar um cenário geral de todos os provedores.
Alguns provedores devolvem os dados da NFSe, outros não, por isso esses dados estão em branco neste provedor.
Debugue novamente o programa de exemplo e veja o trecho que destaquei na ChecarResposta para entender os campos alimentados.
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
Desenvolvedor linguagem X Base
em Classificados
Postado
É teve uma época que eu iria migrar um projeto clipper para o Harbour, mais acabei não fazendo