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;