Tratamento Exceção Para Issintel

[leandro.rezende]

No provedor ISSIntel, a data retorna apenas a DATA, nao vem a hora junto.

 

Dentro das funcoes LERXML, é executado a funcao Leitor.rCampo(tcDatHor,'DataRecebimento'), só que como nao existe a hora, a funcao LEITOR.Rcampo da um erro de exceção, e aborta todo o processo.

 

Para corrigir o erro e manter a compatibilidade com os demais provedores, sugiro tratar com try/exception na funcao Leitor.Rcampo na Unit pcnleitor, quando verifica o tipo TCDATHOR, se cair na exceção coloca um encodetime preenchendo com a hora 00:00:00:00.