Eu Particularmente sempre uso a VISUAL2.CH em cada .PRG , mas acredito que naum seja isso a causa do erro......mas igual tente colocar o .CH e vc se permanece o erro......Abaixo segue um exemplo de como uso....
Código: Selecionar todos
*************
FUNC RELESTCO
*************
LOCAL nButton := 2
LOCAL nOpcao := 0
PARA CATEGORIA,TIPO
PUBLIC vTIPO:=SPACE(1)
SETCURSOR( 1 )
vCOMCAT=SPACE(1)
IF CATEGORIA="S"
vCOMCAT="S"
ENDIF
vSTATUS=1 // TITULO ABERTO
vCLIENTE=SPACE(35)
xdata=date()
xtip=space(1)
xdata1=date()
xCOD=0
aCONSULTA := savenv( 01, 00, 24, 79 )
Clrted() // limpa tela
aWin := Win( 05, 10, 19, 69, "RELATORIO DE ENTRADA SINTETICO",WT_VERDE2BRANCO,WD_VERDE2BRANCO)
SETCOLOR( "N/*W,N*/W, , , N*/W" )
@ 07,32 to 15,67
aBTN:=NewButton()
aBTN2:=NewButton()
Addbutton(aBTN, 08,12 ,18,"&Geral ", "GERAL dos PRODUTOS escolha esta opcao")
Addbutton(aBTN, 11,12 ,18,"&Categorias", "Por CATEGORIA de ESTOQUE escolha esta opcao")
Addbutton(aBTN, 14,12 ,18,"&Fornecedor", "Por FORNECEDOR escolha esta opcao")
Addbutton(aBTN, 17,12 ,18,"&Sair ", "Pasa SAIR do Quadro pressione Enter desta opcao")
Addbutton(aBTN2, 17,31 ,18," &Video ","Para Visualizar em VIDEO")
Addbutton(aBTN2, 17,12 ,18,"&Sair ","Pasa SAIR do Quadro pressione Enter desta opcao")
Addbutton(aBTN2, 17,50 ,18,"&Impressora","Para Imprimir em IMPRESSORA")
ShowButton ( aBTN , 2 )
ShowButton ( aBTN2 , 2 )
VCODCLI=0
@ 08,34 say "Informe Data Inicial:"
@ 09,34 say "Informe Data Final..:"
DO WHILE .T.
SETCOLOR( "N/W,N/W" )
@ 08,55 SAY"" GET XDATA when DwnMsg( "Informe o Periodo Inicial" )
@ 09,55 SAY"" GET xDATA1 when DwnMsg( "Informe o Periodo Final" )
READ
IF LASTKEY()==27
CLOSE DATA
RstEnv (aCONSULTA)
RETURN
ENDIF
vPESQFOR=SPACE(1)
vPESQCAT=SPACE(1)
vPESQPRO=SPACE(1)
opcao=ProcButton( aBTN , 2 )
***********************************************
if opcao==2
vPESQCAT="S"
@ 11,34 SAY 'Categoria.:' COLOR( "N/*W,N*/W, , , N*/W" )
xCATEGOR=SPACE(20)
@ 11,45 SAY "" get xCATEGOR PICT "@!"
READ
@ 11,46 SAY LEFT(xCATEGOR,20)
ENDIF
***********************************************
if opcao==3
vPESQFOR="S"
@ 11,34 SAY 'Fornecedor:' COLOR( "N/*W,N*/W, , , N*/W" )
xFORNECE=SPACE(20)
@ 11,45 SAY "" get xFORNECE PICT "@!"
READ
@ 11,46 SAY LEFT(xFORNECE,20)
ENDIF
***********************************************
if opcao==4
exit
endif
IF TIPO="P" // PESQUISA COM CATEGORIA
vPESQPRO="S"
@ 12,15 SAY 'Nome do Produto.:'
ENDIF
SELECT 3
USE DADOS\PRO alias PRO shared NEW
SET index to DADOS\PRO1,DADOS\PRO7
IF vPESQPRO="S"
xPRODUTO=SPACE(35)
@ 12,32 SAY "" get xPRODUTO PICT "@!"
READ
ENDIF
SETBUTTON ( aBTN , 01 , .F. )
SETBUTTON ( aBTN , 02 , .F. )
SETBUTTON ( aBTN , 03 , .F. )
SETBUTTON ( aBTN , 04 , .F. )
ShowButton ( aBTN , 2 )
opcaoO=ProcButton( aBTN2, 2 )
***********************************************
if opcaoO==2
***********************************************
exit
endif
***********************************************
if opcaoO==1
***********************************************
xTIP="T"
RELESTCO11() // CHAMA A FUNCA PARA VISUALIZAR
ENDIF
***********************************************
if opcaoO==3
***********************************************
xTIP="I"
RELESTCO11() // CHAMA A IMPRESAO PARA IMPRIMIR
ENDIF
SETBUTTON ( aBTN , 01 , .T. )
SETBUTTON ( aBTN , 02 , .T. )
SETBUTTON ( aBTN , 03 , .T. )
SETBUTTON ( aBTN , 04 , .T. )
ShowButton ( aBTN , 2 )
ENDDO
RstEnv (aCONSULTA)
DBCLOSEALL()
RETURN
Abraços.....
esta incluindo corretamente a LIB da Visual Lib...esta incluindo o VISUAL2.CH no inicio do seu .PRG