14 lines
307 B
Plaintext
14 lines
307 B
Plaintext
*________________________________________
|
|
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
|
|
*________________________________________ |