Initial commit — sursa ROAIMOB

Co-Authored-By: Claude Sonnet 5 <noreply@anthropic.com>

Programe/Vechi/danu_ingest.prg

@@ -0,0 +1,14 @@
+*________________________________________
+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
+*________________________________________