Ir para conteúdo
  • Cadastre-se

dev botao

ConsultaReciboEvento2060


Joffas
Ver Solução Respondido por Italo Giurizzato Junior,
  • Este tópico foi criado há 1927 dias atrás.
  • Talvez seja melhor você criar um NOVO TÓPICO do que postar uma resposta aqui.

Recommended Posts

Bom dia saiu o novo manual do Desenvolvedor Versão 1.04.00 Dezembro de 2018, especificando como recuperar o numero do recibo sem o número do protocolo,

Até o momento eu implementei no componente a consulta do recibo do Evento R-2060, acredito não estar muito nos padrões mais já quebra um galho para quem tem mais conhecimento no componente e queira melhorar...

segue os fontes que alterei..

Metodo criado...

function TACBrReinf.ConsultaReciboEvento(const APerApur, ATipoEvento: String): Boolean;
begin
  Result := WebServices.ConsultaReciboEvento(APerApur, ATipoEvento);
end;
 

image.thumb.png.18a844f88b434c1cf7a20f0f9d79a444.png

ACBrReinf.rar

Link para o comentário
Compartilhar em outros sites

  • Consultores

Boa tarde Joffas,

O que você acha de trocarmos o tipo do parâmetro ATipoEvento de String para TTipoEvento?

Isso impede que alguém coloque o numero de um evento que não existe no Reinf.

  • Curtir 1
Consultor SAC ACBr

Italo Giurizzato Junior
Ajude o Projeto ACBr crescer - Assine o SAC

Projeto ACBr

Analista de Sistemas / e-mail: [email protected] / Fone: (16) 9-9701-5030 / Araraquara-SP

Araraquara - A era dos Trólebus

Link para o comentário
Compartilhar em outros sites

14 horas atrás, Italo Jurisato Junior disse:

Boa tarde Joffas,

O que você acha de trocarmos o tipo do parâmetro ATipoEvento de String para TTipoEvento?

Isso impede que alguém coloque o numero de um evento que não existe no Reinf.

Bom dia Italo,

Então acredito que o codigo ficou um pouco programado via "POG" pois sou novato no componente rsss....

Mas acredito que não tem problema em mudar pois fiz assim porque faço uma concatenação no parâmetros de envio para o WebService que pedem somente números exemplo:

Consultar um evento R-1000, ConsultaReciboEvento1000

R-2010, ConsultaReciboEvento2010 e assim por diante.

Ai só teria que fazer uma função para converter de R1000 => '1000'.

Link para o comentário
Compartilhar em outros sites

  • Consultores

Bom dia Joffas,

Posso ver isso, como disse usar um enumerador evita erros ao informar tipo de eventos que não existem.

  • Curtir 2
Consultor SAC ACBr

Italo Giurizzato Junior
Ajude o Projeto ACBr crescer - Assine o SAC

Projeto ACBr

Analista de Sistemas / e-mail: [email protected] / Fone: (16) 9-9701-5030 / Araraquara-SP

Araraquara - A era dos Trólebus

Link para o comentário
Compartilhar em outros sites

  • Consultores

Joffas,

Favor atualizar os fontes, veja como ficou a implementação agora desse novo método de consulta.

  • Curtir 1
Consultor SAC ACBr

Italo Giurizzato Junior
Ajude o Projeto ACBr crescer - Assine o SAC

Projeto ACBr

Analista de Sistemas / e-mail: [email protected] / Fone: (16) 9-9701-5030 / Araraquara-SP

Araraquara - A era dos Trólebus

Link para o comentário
Compartilhar em outros sites

3 horas atrás, Italo Jurisato Junior disse:

Joffas,

Favor atualizar os fontes, veja como ficou a implementação agora desse novo método de consulta.

Italo,

Ficou muito melhor so fiz uma correção no envio da inscrição do estabelecimento que tem que ir completa e estava indo com 8 digitos

Segue as duas units com as alterações

image.thumb.png.f2831763410103f57ba7e5a3c8d452d9.png

ACBrReinf.rar

Link para o comentário
Compartilhar em outros sites

  • Consultores
  • Solution

Boa tarde Joffas,

Fiz mais uma pequena alteração, favor atualizar e faça novos testes.

Caso tenha consulta para os demais eventos, acredito que agora esta fácil de acrescentar.

  • Curtir 3
Consultor SAC ACBr

Italo Giurizzato Junior
Ajude o Projeto ACBr crescer - Assine o SAC

Projeto ACBr

Analista de Sistemas / e-mail: [email protected] / Fone: (16) 9-9701-5030 / Araraquara-SP

Araraquara - A era dos Trólebus

Link para o comentário
Compartilhar em outros sites

1 hora atrás, Italo Jurisato Junior disse:

Boa tarde Joffas,

Fiz mais uma pequena alteração, favor atualizar e faça novos testes.

Caso tenha consulta para os demais eventos, acredito que agora esta fácil de acrescentar.

Fechou Italo perfeito, obrigado, esta funcionando 100%!!

Editado por Joffas
  • Curtir 3
Link para o comentário
Compartilhar em outros sites

  • Consultores

Obrigado por reportar.

Fechando. Para novas dúvidas, criar um novo tópico.

  • Curtir 2
Consultor SAC ACBr

Italo Giurizzato Junior
Ajude o Projeto ACBr crescer - Assine o SAC

Projeto ACBr

Analista de Sistemas / e-mail: [email protected] / Fone: (16) 9-9701-5030 / Araraquara-SP

Araraquara - A era dos Trólebus

Link para o comentário
Compartilhar em outros sites

  • Este tópico foi criado há 1927 dias atrás.
  • Talvez seja melhor você criar um NOVO TÓPICO do que postar uma resposta aqui.
Visitante
Este tópico está agora fechado para novas respostas
×
×
  • Criar Novo...

Informação Importante

Colocamos cookies em seu dispositivo para ajudar a tornar este site melhor. Você pode ajustar suas configurações de cookies, caso contrário, assumiremos que você está bem para continuar.