FUNCTION
SeleccionaPARAMETERS
m._Tabla, m._CampoBusq, m._Filt1, m._Filt2, m._Filt3, m._Filt4 SET CLASSLIB TO C:\AZUCAR\CLASES\CAMPOS.VCXoBusq =
CREATEOBJECT("FormBsq", m._Tabla, m._CampoBusq, m._Filt1, m._Filt2, m._Filt3, m._Filt4)oBusq.
visible = .t. READ EVENTS m.Retorna = oBusq.RetornaoBusq =
NULLRELEASE
oBusqRETURN
m.Retorna
>oBusq.visible = .t.
>READ EVENTS
Cuando una clase form se muestra con Show() nunca se debe liberar desde dentro del mismo con Release, sino con Hide (), justamente para luego poder seguir usando el objeto desde donde se llamó. Y en QueryUnload debe ir NODEFAULT y Hide por lo mismo.
El objeto lo debe liberar quien lo llama con objeto. Release ()
¿los forms son de nivel superior o se muestran en la ventana principal?
Dir.Raiz\ ==> Normalmente aquí está el PJX/PJT y el PRG principal (llamémoslo MAIN.PRG)
\forms ==> Todos los forms (SCX/SCT)
\clases ==> Todas las librerías de clases (VCX/VCT)
\prgs ==> Todos los PRG
\include ==> Todos los archivos ".H" o también llamados "archivos INCLUDE"
\config ==> El CONFIG.FPW
\datos ==> Todos los datos (DBF, CDX, DBC, etc)
\reports ==> Todos los rpeortes (FRX/FRT)
\labels ==> Todos los archivos de etiquetas, si usás (LBX/LBT)
SCREEN=OFF
RESOURCE=OFF
SET PATH TO forms;clases;prgs;include;datos;reports;labels