9. November 2012 09:42
9. November 2012 11:22
9. November 2012 11:52
Khenas hat geschrieben:Wollte das mit so Lösen
- Code:
CASE Parameterzeichenfolge OF
'R50085' :
Report50085.RUN;
'C50085' :
Codeunit50085.RUN;
END;
Ist das so realisertbar?
Tahir
9. November 2012 12:41
12. November 2012 09:46
ParameterString := '';
ObjektCodeTxt := '';
ObjektCode := 0;
IF ("Parameter String" <> '') AND (STRLEN("Parameter String") <= 7) THEN BEGIN
ParameterString := COPYSTR("Parameter String",1,1);
ObjektCodeTxt := COPYSTR("Parameter String",2);
EVALUATE(ObjektCode,ObjektCodeTxt);
CASE ParameterString OF
'C' :
BEGIN
CODEUNIT.RUN(ObjektCode);
END;
'R' :
BEGIN
REPORT.RUN(ObjektCode);
END;
END;
END;