PC Toledo

pessoal, estou com um problema com o set key.
preciso da seguinte situacao.
eu precisava passar parametros tipo assim

produto.prg
set key to cadgrupo(Mcod,Mretorno,Mdbf)

qdo eu faco isso e vou no modulo de grupo.
aparece a procname() de retorno.
nao entendo.
alguem pode me ajudar??

Cleber,

Set Key To não aceita parâmetros, por esse motivo quando quero fazer algo assim declaro as variaveis como publicas, atribuo o devido valor a elas e só depois faço a chamada através de Set Key To.

Exemplo:

Function Cad_cli()
Local cNom, cEnd, cBai, cCid, cEst, cCep
Public nCod

nCod := 0000
cNom := Space(35)
cEnd := Space(35)
cBai := Space(30)
cCid := Space(30)
cEst := Space(02)
cCep := Space(09)

Set Key -1 To Pqs_Cli

@ 05,10 Say "Código ...:" Get nCod Pict "9999" Color("w/b")
@ 06,10 Say ...
@ 07,10 Say ...
@ 08,10 Say ...

Etc...


Function Pqs_cli

If !Empty(nCod)
Set Key -1 To
...
...
...

Set Key -1 To Pqs_Cli
Return()
Else
Return()
Endif


Não sei de ficou claro mas é assim que faço.

Abraço,

acontece que a minha funcao cadgrupo fica em outro prg. fora do de produtos.
eu precisaria fechar a area corrente dos dbfs ativos no produto.prg e abrir os dbfs referentes ao grupo.prg e depois fechar as areas do grupo.prg e abrir novamento a area do produto.prg, pq no meu modulo de grupo eu faco o cadastro o grupo, dentro do modulo de produtos.
acho q eh isso.

Cleber,

Não tem problema por estar em outro prg, vc abre pega os dados que precisa (código do produto, etc...), guarda o número do registro com recnum(), fecha o dbf de produtos, abre o de grupos e após o uso fecha grupos e abre novamente produtos e reposiciona usando o número do registro armazenado anteriormente.

Obs: Váriaveis tipo PUBLIC tem visão global ou seja dentro de todo o programa.

Abraço,

beleza obrigado vou testar