Rastreio dos correios

[Adhelmar Rondon]

Olá

estou enviando anexo, a rotina de rastreio para você darem uma olhada o layout foi alterado novamente, não enviei ACBrSedex.pas, porque o meu esta desuatalizado

rastrear.txt

[Daniel Simoes]

Show... obrigado pela contribuição...

@Victor H. Gonzales - Panda, pode nos ajudar com essa avaliação?

[felipevalinhos]

Não consegui utilizar o exemplo enviado, fiz algumas alterações também na procedure Rastrear.

Segue para avaliação.

rastrear.txt

[Victor H. Gonzales - Panda]

Por favor atualize seus fontes, pelo SVN do ACBr... 

Já subimos para o nosso repositório de fontes, modificações que podem corrigir algum dos itens referentes a esse tópico...

Por favor atualize seus fontes, faça testes, e se possível comente em uma nova resposta, se o problema foi resolvido...

Dúvidas, sobre o uso do SVN ?  Clique aqui e veja um vídeo

[felipevalinhos]

Acabei de atualizar, e percebi o seguinte, quando no rastreio possui origem e destino, ele primeiro gera o "LRastreio.Local" somente com a origem, pois o destino está na próxima linha, e quando vai para próxima linha, encontra o destino, assim vai ocorrer erro, pois a data vai estar nula, o destino não ficou com a origem, e vai dar erro de conversão de data, pois vai ter apenas a informação do destino.

Sugestão para corrigir, alterar conforme o modelo que passei anteriormente:

Alterar essa linha De:
LDeveCriar := Trim(LLocal) <> '';

Para:
LDeveCriar := ((Trim(LLocal) <> '') and (Pos('Origem', LLocal) = 0)) or (Pos('Destino', LLocal) <> 0);

Assim ele vai criar apenas quando o "destino" já estiver na variável LLocal ou quando não existir a "origem/destino", for apenas o "Local".

Exemplo de objeto com esse erro:
TG338926185BR

Anexo o erro que acontece com os detalhes do erro e da correção.

[Victor H. Gonzales - Panda]

Agora, felipevalinhos disse:

Acabei de atualizar, e percebi o seguinte, quando no rastreio possui origem e destino, ele primeiro gera o "LRastreio.Local" somente com a origem, pois o destino está na próxima linha, e quando vai para próxima linha, encontra o destino, assim vai ocorrer erro, pois a data vai estar nula, o destino não ficou com a origem, e vai dar erro de conversão de data, pois vai ter apenas a informação do destino.

Sugestão para corrigir, alterar conforme o modelo que passei anteriormente:

Alterar essa linha De:
LDeveCriar := Trim(LLocal) <> '';

Para:
LDeveCriar := ((Trim(LLocal) <> '') and (Pos('Origem', LLocal) = 0)) or (Pos('Destino', LLocal) <> 0);

Assim ele vai criar apenas quando o "destino" já estiver na variável LLocal ou quando não existir a "origem/destino", for apenas o "Local".

Exemplo de objeto com esse erro:
TG338926185BR

Anexo o erro que acontece com os detalhes do erro e da correção.

essa classe e webservices foi descontinuado.

a classe que será utilizada é o commit 30867, mas precisamos ajustar os pacotes de instalação primeiro