FoxPro/Visual FoxPro - TRAER RUBRO DE UN FORMULARIO A OTRO

ESTIMADOS TENGO UN FORMULARIO ARTICULOS, DONDE ES UN ABM ,, Y DE UN GRID TOMO EL RUBRO DEL ARTÍCULO OK.

PERO SI NO ESTÁ DADO DE ALTA ESE RUBRO , DESDE ESE FORM.ARTÍCULOS LEVANTO EL FORMULARIO RUBROS Y LO DOY DE ALTA AL RUBRO NUEVO OK.-

CUANDO VUELVO CON RETURN DEL FORMULARIO RUBRO AL FORMULARIO ARTICULOS NECESITO QUE ME TRAIGA EL RUBRO Y LO PEGUE DIRECTAMENTE AL CAMPO TXTRUBRO .

(GRABAR SI , LO GRABA Y LO PUEDO TOMAR DEL GRID) PERO QUISIERA QUE ME LO TRAIGA DIRECTAMENTE CUANDO CIERRO CON RETURN EL FORM. RUBRO.-

INTENTÉ CON VARIABLES PUBLIC PERO NO LO PUEDO SOLUCIONAR.

AGUARDO RESPUESTA
GRACIAS

Acá hay dos soluciones posibles;
1) Si el formulario rubros es modal o quieres que sea modal, puede enviar una respuesta

El formulario RUBROS puede funcionar como modal y que devuelva una respuesta, de dos maneras:
a) Configurandolo como WindowType = 1 en el diseñador de formularios
DO FORM RUBROS TO lcRubros
b) Con un parámetro en el INIT del formulario Rubros
*Init Event (Rubros.scx)
LPARAMETERS tnWindowType
this.Windowtype = EVL(m.tnWindowType,0)
*
DO FORM RUBROS WITH 1 TO lcRubros

b) Si no quieres que el formulario Rubros funcione como modal (por los inconvenientes que pueda tener), el tema es más trabajoso, aunque desde mi punto de vista mejor.

Para esto necesitas pasar, al menos, dos parámetros al formulario Rubros, por lo que debes adecuar el Init del formulario rubros:
*<Init_Rubros.scx>
LPARAMETERS toClass , tcRaiseEvent
ADDPROPERTY(Thisform,"oClass",m.toClass)
ADDPROPERTY(Thisform,"cRaiseEvent",m.tcRaiseEvent)
* Otras lineas de INIT
*</Init_Rubros.scx>

En el botón de Aceptar del formulario Rubros.scx, deberías tener un código como este

En el formulario que llama a rubros debes crear un método que reciba la respuesta: Llamémosle "Get_Rubro"

*Para llamar al formulario Rubros,
DO FORM RUBROS WITH Thisform , "Get_Rubro"
* Acá no debe ir nada más. La resolución estará totalmente en el método Get_Rubro