FoxPro/Visual FoxPro - Como trabajar con un formulario que llamé desde otro?

* Metodo o evento de un form o procedure

LOCAL lcTabla,lModifica

lcTabla = "CLIENTES"

lModifica = .t.

* Acá busco un cliente (en grid o de otra forma de modo que

* quede apuntado el registro)

DO FORM frmClientes WITH m.lcTabla,m.lModifica

*------------------------------------------------------

* Init del formulario Clientes

LPARAMETERS tcTabla,tlModifica

lcCursor = get_cursor(m.tcTabla,m.tlModifica)

IF ISNULL(m.lcCursor)

	* Proceso fallido

	RETURN .f.

ENDIF

* Crea o actualiza 3 propiedades del form

ADDPROPERTY(thisform,"tableUsed",m.tcTabla)

ADDPROPERTY(thisform,"cursorUsed",lcCursor)

ADDPROPERTY(THISFORM,"Modifica",tlModifica)

* Supongamos que la tabla original tiene los

* campos Apellido,nombres y cuit

* Y que tenemos en el form, 3 cuadros de texto relacionados

WITH this

	.txt_Apellido.ControlSource = lcCursor+".Apellido"

	.txt_nombres.ControlSource = lcCursor+".Nombres"

	.txt_Cuit.controlsource = lcCursor+".cuit"

ENDWITH

* Botón de aceptar cambios

* ( Proceso de Validación final de Datos )

IF NOT THISFORM.Modifica

        * Acá corresponde actualizar el Identificador con el número definitivo

       * y reemplazar el valor en el cursor

ENDIF

save_cursor(thisform.tableUsed , thisform.CursorUsed ,.t.)

* Destroy del Form frmclientes

* (Por si se abandonó el proceso sin grabar)

IF USED(this.CursorUsed)

	USE IN SELECT(this.CursorUsed)

ENDIF

PROCEDURE create_Cursor

LPARAMETERS tcTabla,tlModifica

*!*	tcTabla: Alias de la tabla a modificar/mostrar

*!*	tlModifica: .f. crea un registro vacío en el cursor

*!*				.t. Carga el cursor con el registro actual de la tabla

LOCAL lcCursor,lDoit,lcAlias

lcAlias = ALIAS()

lcCursor = null

lDoit = .t.

IF !EMPTY(m.tcTabla) AND USED(m.tcTabla)

	IF m.tlModifica

		SELECT (m.tcTabla)

		IF EOF()

			MESSAGEBOX("Debe señalar un registro",0,PROGRAM())

			lDoit = .f.

		ENDIF

	ENDIF

	IF m.ldoit

		lcCursor = "cur"+m.tcTabla		&& asigna un alias al cursor

		* Crea un nuevo cursor basado en la tabla (sin registros)

		SELECT *,RECNO() as tb_record, .f. as tb_delete ;

			FROM (m.tcTabla) ;

			WHERE .f. ;

			INTO CURSOR (m.lcCursor) READWRITE

		IF m.tlModifica

			* Para modificación o consulta

			SELECT (tcTabla)

			SCATTER TO laDatos

			INSERT INTO (lcCursor) FROM ARRAY laDatos

			SELECT (lcCursor)

			replace tb_record WITH RECNO(m.tcTabla)

		ELSE

			* Si es alta, crea un registro vacío

			* Acá se pueden insertar datos fijos y

			* el número probable de identificador (el definitivo se pondrá luego)

			SELECT (m.lcCursor)

			APPEND BLANK

		ENDIF

	ENDIF

ENDIF

* Repone la tabla/cursor seleccionada al inicio

IF !EMPTY(m.lcAlias) AND USED(m.lcAlias)

	SELECT (m.lcAlias)

ENDIF

RETURN m.lcCursor

PROCEDURE Save_Cursor

LPARAMETERS tcTabla,tcCursor ,tlDestroy

IF !USED(m.tcTabla) OR !USED(m.tcCursor)

	RETURN .f.

ENDIF

LOCAL lnREcord,lDelete

LOCAL ARRAY laDatos(1)

SELECT (m.tcCursor)

SET DELETED OFF

RECALL ALL

SET DELETED ON

SCAN

	lnRecord = tb_record

	lDelete = tb_delete

	SCATTER TO laDatos

	* Si lnRecord = 0, se trata de un alta.

	* Si el

	IF m.lnRecord = 0

		IF !m.lDelete

			INSERT INTO (m.tcTabla) FROM ARRAY laDatos

		ENDIF

	ELSE

		SELECT (m.tcTabla)

		GO m.lnRecord

		IF m.lDelete AND RLOCK()

			DELETE

			UNLOCK

		ELSE

			IF RLOCK()

				GATHER FROM laDatos

			ENDIF

		ENDIF

	ENDIF

	* desbloquea el registro modificado

	UNLOCK IN SELECT(m.tcTabla)

ENDSCAN

IF m.tlDestroy

	* Cierra el cursor de modificaciones

	USE IN SELECT(m.tcCursor)

ENDIF

* Provoca bajada de cache

FLUSH in SELECT(m.tcTabla)

RETURN