Malaysia: Building a dynamic form

[Blog bot]

Источник: http://axmas.blogspot.com/2012/11/bu...amic-form.html
==============



class CustGroupDynamic
{
}


public static void main(Args _args)
{
DictTable dictTable;
Form form;
FormBuildDesign design;
FormBuildDataSource ds;
FormBuildActionPaneControl actionPane;
FormBuildActionPaneTabControl actionPaneTab;
FormBuildButtonGroupControl btngrp1;
FormBuildButtonGroupControl btngrp2;
FormBuildCommandButtonControl cmdNew;
FormBuildCommandButtonControl cmdDel;
FormBuildMenuButtonControl mbPosting;
FormBuildFunctionButtonControl mibPosting;
FormBuildFunctionButtonControl mibForecast;
FormBuildGridControl grid;
FormBuildGroupControl grpBody;
Args args;
FormRun formRun;
#Task
dictTable = new DictTable(tableNum(CustGroup));
form = new Form();
form.name("CustGroupDynamic");
ds = form.addDataSource(dictTable.name());
ds.table(dictTable.id());
design = form.addDesign('Design');
design.caption("Customer groups");
design.style(FormStyle::SimpleList);
design.titleDatasource(ds.id());
actionPane = design.addControl(
FormControlType::ActionPane, 'ActionPane');
actionPane.style(ActionPaneStyle::Strip);
actionPaneTab = actionPane.addControl(FormControlType::ActionPaneTab, 'ActionPaneTab');
btngrp1 = actionPaneTab.addControl(FormControlType::ButtonGroup, 'NewDeleteGroup');
btngrp2 = actionPaneTab.addControl(FormControlType::ButtonGroup, 'ButtonGroup');
cmdNew = btngrp1.addControl(FormControlType::CommandButton, 'NewButton');
cmdNew.buttonDisplay(FormButtonDisplay::TextAndImageLeft);
cmdNew.normalImage('11045');
cmdNew.imageLocation(SysImageLocation::EmbeddedResource);
cmdNew.primary(NoYes::Yes);
cmdNew.command(#taskNew);
cmdDel = btngrp1.addControl(FormControlType::CommandButton, 'NewButton');
cmdDel.text("Delete");
cmdDel.buttonDisplay(FormButtonDisplay::TextAndImageLeft);
cmdDel.normalImage('10121');
cmdDel.imageLocation(SysImageLocation::EmbeddedResource);
cmdDel.saveRecord(NoYes::Yes);
cmdDel.primary(NoYes::Yes);
cmdDel.command(#taskDeleteRecord);
mbPosting = btngrp2.addControl(FormControlType::MenuButton, 'MenuButtonPosting');
mbPosting.helpText("Set up related data for the group.");
mbPosting.text("Setup");
mibPosting = mbPosting.addControl(FormControlType::MenuFunctionButton, 'Posting');
mibPosting.text('Item posting');
mibPosting.saveRecord(NoYes::No);
mibPosting.dataSource(ds.id());
mibPosting.menuItemName(menuitemDisplayStr(InventPosting));
mibForecast = btngrp2.addControl(FormControlType::MenuFunctionButton, 'SalesForecast');
mibForecast.text('Forecast');
mibForecast.saveRecord(NoYes::No);
mibForecast.menuItemName(menuitemDisplayStr(ForecastSalesGroup));
grpBody = design.addControl(FormControlType::Group, 'Body');
grpBody.heightMode(FormHeight::ColumnHeight);
grpBody.columnspace(0);
grpBody.style(GroupStyle::BorderlessGridContainer);
grid = grpBody.addControl(FormControlType::Grid, "Grid");
grid.dataSource(ds.name());
grid.widthMode(FormWidth::ColumnWidth);
grid.heightMode(FormHeight::ColumnHeight);
grid.addDataField(ds.id(), fieldNum(CustGroup,CustGroup));
grid.addDataField(ds.id(), fieldNum(CustGroup,Name));
grid.addDataField(ds.id(), fieldNum(CustGroup,PaymTermId));
grid.addDataField(ds.id(), fieldnum(CustGroup,ClearingPeriod));
grid.addDataField(ds.id(), fieldNum(CustGroup,BankCustPaymIdTable));
grid.addDataField(ds.id(), fieldNum(CustGroup,TaxGroupId));
args = new Args();
args.object(form);
formRun = classFactory.formRunClass(args);
formRun.init();
formRun.run();
formRun.detach();
}



Источник: http://axmas.blogspot.com/2012/11/bu...amic-form.html