Código: Selecionar todos
***********<SELECIONAR TIPO DE PESqUISA>*************
FUNCTION PESQTOD(V1,V2,V3)
if v3="VFORN"
PESQFOR(vforn)
elseif v3="VPROD"
PESQPROD(vprod)
endifNo seu TBROWSE (nem vou perder tempo dando exemplos com DBEDIT), quando o usuário pressinou F2 e tem na tela todos os registros de forncedores, o usuário navegaria e localizaria o fornecedor que quer incluir (a questão de localizar, você deve ter visto um exemplo de TBROWSE com busca a medida que o usuário digita), quando o usuário dá um ENTER, por exemplo, o seu TBROWSE sairia da função PESQFOR() mas antes faria um KEYBOARD STRZERO(CÓDIGO_DO_FORNECEDOR,3,0) para passar ao seu GET ativo o código do fornecedor.
O mesmo você deveria fazer com a pesquisa de produto. Mas veja bem, que não precisaria fazer OUTRO TBROWSE ao meu ver, simplesmente você faria um TBROWSE que funcionasse para os dois. Mas acho que isto é complicar muito pra você. Acho que a sua maior dificuldade está na inteiração GET/TBROWSE. E como eu disse: utilize o KEYBOARD logo antes de sair do TBROWSE para que o sistema digite automaticamente (digamos assim) o código para cada GET que o usuário utilizou o F2.
Leia atentamente, Eder o meu texto. Não seja tão aprezado ! Você não está entendendo o conteúdo das minhas mensagens. Como eu ja te disse, tem dúvidas, faça ordenadamente mas baseando-se no que eu ou algum colega está te dizendo. Isto facilita as coisas, isto é, utilize os recursos de edição com "citação" (tipo: Pablo escreveu e ponha o texto ao que eu me refiro). Ok ?

