*________________________________________
PROCEDURE danu_ingest
PARAMETERS cas,txt1,txt2
SELECT mf
oi=CREATEOBJECT('ingest')
oi.label1.caption=txt1
oi.label2.caption=txt2
	IF cas	
		oi.label2.visible=.f.
		oi.text1.visible=.f.
	ENDIF 
oi.show(1)
RETURN
*________________________________________