N SEL,PCODE,TEXT,KORRJN,DEV
	;
	%%Get(TEXT.Value,TEXT)
	K TAB
	S TAB(EINLESUNG)=$J(EINLESUNG,3,0)_"  "_$E(TEXT,1,100)
	%%SetChoice(INVSTART.EINLESUNG,TAB)
	;
	S TEXT=$$ANSIASCI^%UML($TR(TEXT,$C(13),$C(10)))
	%%Get(PCODE.Value,PCODE)
	S PCODE=$$ASCIANSI^%UML(PCODE)
	K SEL
	%%GetSel(DEV,SEL)
	S DEV=$O(SEL(""))
	I DEV="" D I^%msgbox("Kein Drucker ausgewählt","Fehler") %%NotOK Q
	;
	%%Get(CHKORRDRU.Value,KORRDRU)
	S KORRDRU=$S(+KORRDRU:"J",1:"N")
	%%Get(CHFEHLDRU.Value,FEHLDRU)
	S FEHLDRU=$S(+FEHLDRU:"J",1:"N")
	%%Get(CHEINLDRU.Value,EINLDRU)
	S EINLDRU=$S(+EINLDRU:"J",1:"N")
	;
	%%Set(Button1.Active,0)
	s erg=db.dbex("s P0=$$HINT^BMIMDEA("""_FIRMA_""","""_FIL_""","""_EINLESUNG_""","""_TEXT_""","""_PCODE_""","""_EINLDRU_""","""_FEHLDRU_""","""_KORRDRU_""","""_DEV_""",1)")
	%%Set(Button1.Active,1)
	I erg'="" D I^%msgbox(erg,"Fehler") 
	%%Return