Janio!
Você deve usar somente as funções dentro do erro.prg, ou seja, você pode apagar aquela parte em que eu provoco um erro e deixar a parte que tem a variáveis de controle de cores e de formatação de moldura, e ai sim, você poderia compilar o erro.prg junto com com os outros .prg do seu sistemas.
Voce deve colocar as linhas abaixo no início do seu sistema:
Código: Selecionar todos
#include "common.ch"
// vari veis para a função dbox()
drvcara=CHR(178); mold="ÚÄ¿³ÙÄÀ³ÃÄ´" // moldura para criar os boxs
drvmenucen=.f.
drvcorpad="W+/RB" ; drvcorbox="W+/B" // cores default
drvcormsg="W+/N*" ; drvcorenf="W+/R"
drvcorget="W+/BG" ; drvcortel="W+/B"
drvcorhlp="GR+/G" ; drvcortna="GR/N"
drvtitpad="GR+/RB" ; drvtitbox="GR+/B" // cores dos titulos default
drvtitmsg="GR+/N*" ; drvtitenf="GR+/R"
drvtitget="GR+/BG" ; drvtittel="GR+/B"
drvtithlp="W+/G" ; drvtittna="W/N"
... ai você pode limpar o arquivo erro.prg e deixar somente as seguinte funções/procedures ERRORSYS() e ERROMSG()
O importânte são essas duas funções e as variáveis que citei acima.
Na função ERROMSG() você pode incluir rotinas para que seja gerado um arquivo DBF e nele seja gravado todos os erros ocorridos no sistema, assim o operador fica desobrigado de anotar todos os erros, já que quase nunca eles anotam.
Hoje já faço isso e também é enviado um email para mim com os erros, assim eu preciso estar me deslocando até o cliente para verificar os erros, eles veem até mim. Economisa tempo e dinheiro.
Sobre o clip5.3 voce deve usar a GASP53PM.LIB, que foi desenvolvida para a versão 5.3 do clipper.
O GASDOS pode ser baixado na página da GAS Informática. (
www.gasinf.com.br )
Espero ter ajudado.