Formular per Code öffnen

static void openFormThroughCode_0(Args _args)
{
    menuFunction menuFunction;
    args args;
    CustTable custTable = CustTable::find('1101');
   
    args = new args();
    args.record(CustTable);
    args.formViewOption(FormViewOption::Grid);
   
    menuFunction::runClient(identifierStr(custTable), MenuItemType::Display, false, args);
}

static void openFormThroughCode_I(Args _args)
{
    FormRun formRun;
    args args = new args();
    args.name(formstr(CustTable));
    args.formViewOption(FormViewOption::Grid);
   
    formRun = classFactory.formRunClass(args);
    formRun.run();
    formRun.wait();
}

static void openFormThroughCode_II(Args _args)
{
    FormRun formRun;
    args args = new args();
    CustTable custTable = custTable::find('250000');
    args.name(formstr(CustTable));
    args.formViewOption(FormViewOption::Grid);
   
    args.record(custTable);
   
    formRun = classFactory.formRunClass(args);
    formRun.run();
    formRun.wait();
}

static void openFormThroughCode_III(Args _args)
{
    SysInfoAction_Formrun SysInfoAction_Formrun;
   
    SysInfoAction_Formrun = SysInfoAction_Formrun::newFormname(formStr(CustTable));
    SysInfoAction_Formrun.run();
}

static void openFormThroughCode_IV(Args _args)
{
    SysInfoAction_Formrun SysInfoAction_Formrun;
    CustTable custTable = custTable::find('250000');
   
    SysInfoAction_Formrun = SysInfoAction_Formrun::newFormname(formStr(CustTable));
    SysInfoAction_Formrun.parmCallerBuffer(custTable);
    SysInfoAction_Formrun.run();
}

static void openFormThroughCode_V(Args _args)
{
    SysInfoAction_FormrunQuery SysInfoAction_FormrunQuery;
    Query query;
   
    query = new query();
    query.addDataSource(tableNum(CustGroup));
   
    SysQuery::findOrCreateRange(    query.dataSourceTable(tableNum(CustGroup)),
                                    fieldNum(CustGroup, CustGroup)).value('D-INL');
   
    SysInfoAction_FormrunQuery = SysInfoAction_FormrunQuery::newFormnameQuery(formStr(CustGroup), query);
    SysInfoAction_FormrunQuery.run();
}

static void openFormThroughCode_VI(Args _args)
{
    SysInfoAction_Formrun SysInfoAction_Formrun;
    CustTable custTable = custTable::find('250000');
   
    SysInfoAction_Formrun = SysInfoAction_Formrun::newFormname(formStr(CustTable));
    SysInfoAction_Formrun.parmCallerBuffer(custTable);
    SysInfoAction_Formrun.parmControlname(identifierStr(GridGroup)); // Trick, um im der Rasteransicht zu starten. Das Control GridGroup ist ein Element, in dieser Ansicht
    SysInfoAction_Formrun.run();
}

static void openFormThroughCode_VII(Args _args)
{
    SysInfoAction_MenuFunction SysInfoAction_MenuFunction;
   
    SysInfoAction_MenuFunction = SysInfoAction_MenuFunction::newMenuItem(menuItemDisplayStr(CustTable), MenuItemType::Display);
    SysInfoAction_MenuFunction.run();
}

static void openFormThroughCode_VIII(Args _args)
{
    SysInfoAction_MenuFunction SysInfoAction_MenuFunction;
    CustTable custTable = custTable::find('250000');
   
    SysInfoAction_MenuFunction = SysInfoAction_MenuFunction::newMenuItem(menuItemDisplayStr(CustTable), MenuItemType::Display);
    SysInfoAction_MenuFunction.parmCallerBuffer(custTable);
    SysInfoAction_MenuFunction.run();
}