PC Toledo

Estou com seuinte problema: ERROR BASE/1005 MESSAGE NOT FOUND: GET:_CTABCONTROL ocorreu nao sei se foi por coincidencia mais foi quando comecei a usar WWTOOLS.LIB mais voltei para GTWVW.LIB mais continuou a mesma coisa so acontece em uma funcao que criei a muito tempo e funcionava beleza vou postar ela para que poder me ajudar ja pode vela anecipadamente agradeco pela forca.

Helio Beltrao Jr.
helio@hrbinfo.com.br

*************************
* TIPO DE IMPRESSAO ARQUIVOS OU IMPRESSORA
*************************

FUNCTION imp_arq(marq,mporta,op,linha,comp,mens,msenha_lib)
******************

LOCAL tela,lci,cci,lba,cba,mnome_arq,mporta_imp,mimp_tipo,mtipo_imp

mnome_arq := marq
CLEAR GETS
op_tela(10,02,19,78,memp_resa+SPACE(50)+' Configuracao de IMPRESSAO - Arquivo: '+ALLTRIM(mnome_arq),'*')

lci := cci := 0
lba := 09
cba := 70
IF op = NIL
op := 'S'
ENDIF
IF mporta = NIL
mporta := 'R'
ENDIF
marq := ALLTRIM(cfg->dir_cfg)+marq+SPACE(50-LEN(ALLTRIM(cfg->dir_cfg)+marq))
WHILE .T.
mensagem('Escolha a configuracao ou <ESC> p/abandonar')
mimp_tipo := 2
IF mporta = 'R'
mporta_imp := cfg->prt_rel
mtipo_imp := cfg->imp_rel
ELSEIF mporta = 'T'
mporta_imp := cfg->prt_ped
mtipo_imp := cfg->impped
ELSEIF mporta = 'D'
mporta_imp := cfg->prt_dup
mtipo_imp := cfg->imp_rel
ELSEIF mporta = 'B'
mporta_imp := cfg->prt_bol
mtipo_imp := cfg->impped
ELSEIF mporta = 'N'
mporta_imp := cfg->prt_nota
mtipo_imp := 'M'
ELSEIF mporta = 'K'
mporta_imp := set->port_emb
mtipo_imp := cfg->impped
ELSE
mporta_imp := 'LPT1'
mtipo_imp := 'M'
ENDIF
setcor(1)
@ lci+4,cci TO lci+4,cba
DEVPOS(lci+5,cci+1);DEVOUT('Impressora [J]ato [M]atriz [D]osprint:')
DEVPOS(lci+6,cci+1);DEVOUT('Nome do Arquivo de impressao.........:')
DEVPOS(lci+7,cci+1);DEVOUT('Porta Impressora.....................:')
DEVPOS(lci+8,cci+1);DEVOUT('Diminuir Espacos entre Linhas [s/N]..:')
botao1(lci+1,cci+02,lci+3,cci+15)
botao1(lci+1,cci+17,lci+3,cci+30)
botao1(lci+1,cci+32,lci+3,cci+45)
botao1(lci+1,cci+47,lci+3,cci+60)
@ lci+2,cci+03 PROMPT ' IMPRESSORA '
@ lci+2,cci+18 PROMPT ' CONSULTA ' //+marq
@ lci+2,cci+33 PROMPT ' ARQUIVO ' //+marq
@ lci+2,cci+48 PROMPT ' DOSPRINT ' //+marq
SET INTEN ON
MENU TO mimp_tipo
IF LASTKEY() = 27
EXIT
ENDIF
IF mimp_tipo < 4
@ lci+5,cci+40 GET mtipo_imp PICTURE '@!' VALID mtipo_imp $ 'M,J' .AND. IF(EMPTY(mtipo_imp),.F.,.T.) WHEN mimp_tipo <> 2
READ
IF LASTKEY() = 27
LOOP
ENDIF
IF mimp_tipo = 1 .AND. ! EMPTY(mens)
IF ! aut_sen('Senha de autorizacao '+mens,msenha_lib)
LOOP
ENDIF
ENDIF
IF mimp_tipo = 3
IF ! ver_nivel('IMP_ARQ','IMPRESSAO PARA ARQUIVO','17',nivel_acess)
LOOP
ENDIF
mporta := 'PRN '
@ lci+06,cci+40 GET marq PICT '@S20!' VALID IF(EMPTY(marq),.F.,.T.)
READ
IF LASTKEY() = 27
LOOP
ENDIF
ENDIF
setcor(3)
DEVPOS(lci+06,cci+40);DEVOUT(marq)
setcor(1)
@ lci+7,cci+40 GET mporta_imp PICT '@!' WHEN mimp_tipo = 1 VALID mporta_imp $ 'LPT1,LPT2,LPT3,LPT4,LPT5,COM1,COM2,COM3,COM4,PRN ' .AND. IF(EMPTY(mporta_imp),.F.,.T.)
//@ lci+8,cci+40 GET comp PICT '@!' WHEN comp <> NIL VALID comp $ 'S,N'
READ
IF LASTKEY() = 27
LOOP
ENDIF
ELSE
mtipo_imp := 'D'
marq := ALLTRIM(cfg->set_data)+'HRB.REL'
ENDIF
op := op_simnao('S','Confirma Impressao/Consulta [S/n]:')
IF op = 'S'
wvw_lclosewindow()
mensagem('Espere o final da impressao !!!')
SET DEVI TO PRINT
IF mimp_tipo = 1
SET PRINT TO (mporta_imp)
IF comp <> NIL .AND. comp = 'S'
imprt(mtipo_imp,'P8')
ENDIF
ELSE
SET PRINT ON
SET PRINT TO (marq)
ENDIF
RETURN .T.
ELSE
LOOP
ENDIF
ENDDO
wvw_lclosewindow()
RETURN .F.
*************************** f i m *******************************************

Sobre recompilar.

Na empresa que trabalho somos em três programadores, todos trabalhando no mesmo projeto. Por medida de segurança, procuramos pelo menos 1 vez por dia, deletar todos os .OBJ e todos os .C e recompilamos o programa inteiro.

Na épocas dos 386 e dos 486 isso era um problema, pois demorava muito, mas hoje não, recompilar o programa inteiro é num tapa, é tempo de tomar um cafezinho na cozinha.

:)Pos