>*================================================* >*--Object: jde_material.commandgroup1.command1 >*--Form: jde_material.scx >*--Code Updated: >*--Programmed By: >*--Modified By: >*--Purpose: >*================================================* >DO FORM FORMS\frm_polist_expand WITH Thisform >thisform.Visible = .F. > >*================================================* >*--Object: frm_polist_expand.Init >*--Form: frm_polist_expand.scx >*--Code Updated: >*--Programmed By: >*--Modified By: >*--Purpose: >*================================================* >LPARAMETERS poCaller >* Create a customer property named oCaller for this form in the form designer >Thisform.oCaller = poCaller > > >*================================================* >*--Object: frm_polist_expand.destroy >*--Form: frm_polist_expand.scx >*--Code Updated: >*--Programmed By: >*--Modified By: >*--Purpose: >*================================================* >* Make the caller visible >IF VarType(Thisform.oCaller) = "O" > * We have an object that called us > This.oCaller.Visible = .T. >ENDIF >