Criando um janela de multiplas opções para retornar o resultado em um campo
É possível também definir qual campo receberá o retorno, independente do campo que está chamando a janela de opções
Para isso, na função, inclua o seu campo
Exemplo: U_FMULTIOP(‘Titulo’,’YL’,,,”EEC_CAMPO”)
|
1 2 3 |
User Function FMULTIOP(cTitulo,cTabela,l1Elem,lTipoRet,cCampo) Return( IF( lTipoRet , .T. , MvParDef ) ) |
Substitua:
MvPar:=&(Alltrim(ReadVar()))
mvRet:=Alltrim(ReadVar())
Por:
__ReadVar := cCampo
MvPar :=&(__ReadVar)
E substitua:
If f_Opcoes(@MvPar,cTitulo,aCat,MvParDef,12,49,l1Elem)
&MvRet := mvpar
EndIf
Por:
If f_Opcoes(@MvPar,cTitulo,aCat,MvParDef,12,49,l1Elem)
&(__ReadVar) := mvpar
EndIf
Com isso, pode-se usar um gatilho em um campo para chamar a função e ao sair da tela ela preencher um outro campo