Cuando hago una llamada a un formulario para recoger una clave de una tabla auxiliar, en esa función tengo que asignar el valor de la clave ajena al objeto Get que llama. Por ejemplo, tengo el siguiente botón:
Code: Select all
REDEFINE BUTTON aGet[ 16 ] ID 116 OF oDlg ;
ACTION FpSeleccion( bCO:CoFormaPag, aGet[ 15 ], oDlg, , )
aGet[16]:cTooltip := 'Seleccionar forma de pago'
Code: Select all
FUNCTION FpSeleccion( cFormapag, oGet1, oParent, nMove, oGet2, oGet3 )
...
ACTIVATE DIALOG oDlg CENTERED ;
ON PAINT oDlg:Move( aPoint[ 1 ], aPoint[ 2 ],,, .T. )
IF lOK
cFormapag := FP->FpPago
IF oGet1 != NIL
oGet1:cText( FP->FpPago )
ENDIF
IF oGet2 != NIL
oGet2:cText( FP->FpCuenta )
ENDIF
IF oGet3 != NIL
oGet3:cText( FP->FpCatIngr )
ENDIF
ENDIF
Saludos,
José Luis