摘要：
使用FormLetter取Logo图,下面方法是某报表中display方法 display Bitmap dispCompanyLogo() { return FormLetter::companyLogo(); } display Bitmap dispCompanyName() { Image tempImage = ne... 阅读全文
摘要：
public static server PwC_Import readexcel(filenameopen _file) { #Excel #AviFiles SysExcelApplication excelApp = SysExcelApplication::construct(); SysOperationPro... 阅读全文
摘要：
领料或退料过账，主要是用两个Class来完成 ProdJournalCheckPost ProdJournalCheckPostBOM：：newJournalCheckPost(); 过账步骤： 在ProdJournalTable建立领料日志，插入相关数据与生成凭证编号 在ProdJournalBom插入领料日志行，与主表关联 使用上述两过账类： jour... 阅读全文
摘要：
static Qty ConvertUnit(InventTable _inventTable,Qty _qtyFrom,UnitID _unitTo) { qty qtyTo; ; setprefix("Unit Conversion"); if (_inventTable.inventTableModuleInvent()... 阅读全文
摘要：
使用自定义窗体做为Lookup窗体，其实非常简单：关键地方有两处： CloseSelect方法 this.performFormLookup(formRun); 步骤： 新建一个窗体作为lookup窗体，将Frame设为Border; 添加一个数据源，这个数据源即是lookup内容; 覆盖窗体方法CloseSelect写上: (此处我们将Unit表作为Loo... 阅读全文
摘要：
static str num2eng(real _num) { str ret, sign, sCents = ''; int tThousand, i; str sThousand[8]; //---------------------------------------------------------- ... 阅读全文
摘要：
static FormWindowControl showBitmap(FormWindowControl _control, Bitmap _bitmap, int _width=0, int _height=0) { real ratio; Image _image; ... 阅读全文
摘要：
此方法是在Class SysSetupFormRun中 RUN() curEXT用于获取当前公司账号; public void run() { super(); this.design().colorScheme(2); switch (curEXT()) { case '011' : ... 阅读全文
摘要：
void startupPost() { int counter; int maxUserSessions = 1; int maxAdminSessions = 4; int num = 0; int maxSessions = Info::l... 阅读全文
摘要：
两种方法： 第一： 查询userGroupList表 select userGroupList where userGroupList.userId == currentUserId && userGroupList.groupId == 'Admin' 第二： 执行EventSecurity::construct(curuserid()).isUserAdmin() ... 阅读全文
摘要：
1.在FORM数据源下，覆盖方法displayOption(); 2.覆盖数据源的Write()方法:在Super之后写入 GridColours_ds.clearDisplayOption(gridColours); 处出关键地方是:affectedElementsByControl()方法。 public void displayOption(Common _record, Form... 阅读全文
摘要：
SysQuery::findOrCreateRange(qbds, fieldnum(InventJournalTrans, JournalId)).value(inventJournalTable.JournalId); ueryBuildDataSource = SysQuery::findOrCreateDataSource(_query, tablenum(InventPackagin... 阅读全文
摘要：
Object callerForm = args.caller(); ; if (callerForm && formHasMethod(callerForm,identifierstr(interCompanyRefreshCache))) { callerForm.interCompanyRefr... 阅读全文
摘要：
使用Spliter控件： 首先声明 SysFormSplitter formSplitter; 添加一个Group 设置FrameType为Edged 3D,宽度2，覆盖方法 MouseUp; MouseMove; MouseDown; 三方法中写入代码： super(_x,_y,_butt... 阅读全文
摘要：
DateStartWk(today()); DateEndWk(today()) 阅读全文