link

[mclpaltrin]

Prezados.

Gostaria de uma informação.

- Tenho menu com algumas opções que esta(menu.prg).
-Como faço para "CHAMAR" meu formulário de cadastro de cliente que esta em (incluir.prg)que seria outro (.prg)

- EM HARBOUR

Grato

[Itamar M. Lins Jr.]

Posta um pedaço do codigo "please"

Entretanto:
2 arquivos(prg)

Código: Selecionar todos

function main  //arquivo principal
@ x,y prompt 'incluir'
@ x,y prompt 'Alterar'

menu to opcao
do case
    case opcao =1
        incluir()
endcase

function incluir //arquivo secundario

[mclpaltrin]

OP= 1
SET COLOR TO G+/W+
DO WHILE .T.
CLEAR SCREEN
SET WRAP ON
@ 10,17 PROMPT " 1. CADASTRADAMENTO "
@ 11,17 PROMPT " 2. CONSULTA "
@ 12,17 PROMPT " 3. ALETERACAO "
@ 13,17 PROMPT " 4. EXCLUSAO "
@ 14,17 PROMPT " 5. RELATORIO "
@ 15,17 PROMPT " 6. FIM DO PROGRAMA "

MENU TO OP
DO CASE
CASE OP=1
// chama o programa que incluir dados
CASE OP=2
// chama o progrma que consulta
CASE OP=3
// alteracao
CASE OP=4
// exclusao
CASE OP=5
// relatorio
CASE OP=6
CLEAR SCREEN
QUIT
ENDCASE
ENDDO

[Itamar M. Lins Jr.]

Código: Selecionar todos

OP= 1
SET COLOR TO G+/W+ 
DO WHILE .T. 
CLEAR SCREEN 
SET WRAP ON 
@ 10,17 PROMPT " 1. CADASTRADAMENTO   " 
@ 11,17 PROMPT " 2. CONSULTA          " 
@ 12,17 PROMPT " 3. ALETERACAO        " 
@ 13,17 PROMPT " 4. EXCLUSAO          " 
@ 14,17 PROMPT " 5. RELATORIO         " 
@ 15,17 PROMPT " 6. FIM DO PROGRAMA   "  

MENU TO OP 
DO CASE 
 CASE OP=1
// chama o programa que incluir dados
CASE OP=2
// chama o progrma que consulta
CASE OP=3
// alteracao
CASE OP=4
//  exclusao
CASE OP=5
// relatorio
CASE OP=6
CLEAR SCREEN 
QUIT 
ENDCASE 
ENDDO

Então seguindo seu código é só colocar a função oras!!
Onde tem // incluir
Mude para:
Incluir()
e assim sucessivamente.
Se esta usando o hbmake, adicione o outro arquivo para ser linkado junto.

Saudações
Itamar M. Lins Jr.

[sygecom]

Completando, no inicio do PRG que tmb. esta a função tem que ter um FUNCTION NOMEDAFUNCAO