BOM页自定义排序的实现

    这是关于Teamcenter Enterprise的开发文章，Teamcenter Enterprise是优秀的PLM软件。原属于UGS，先被Siemens收购。它的功能之强大非一半国内软件可比。

一、编写met文件定义用于排序的属性
    具体过程是定义一个名为assmInstallNo的属性用来存放零部件的安装号。并把该属性附加到相关窗体和类。

代码如下：
/
//Attributes
/
define attribute assmInstallNo;
store assmInstallNo as string(10);
display assmInstallNo as "安装号";
//.TXT assmInstallNo
//.安装号

attach assmInstallNo to AssmStrc;
attach assmInstallNo to DAtcGetI usage is output;
attach assmInstallNo to DAtcCre;
attach assmInstallNo to DAtcUpd;

attach assmInstallNo to AsRevRev;
attach assmInstallNo to DArrGetI usage is output;
attach assmInstallNo to DPvvCre;
attach assmInstallNo to DSrrUpd;

attach assmInstallNo to DPesGetI usage is output;
attach assmInstallNo to DPesCre;
attach assmInstallNo to DPesUpd; 

attach class message ExpandRelationWithCtxt to PERevRev in server shvsvr;

二、编写mth文件用于实现按assmInstallNo属性排序功能
    具体过程是直接对系统单层Bom的查询结果进行排序。注意这里只能影响到BS的排序结果，对采用CS的情况无效。排序算法我用了插入算法。若要实现多关键字排序可以在这个框架的基础上发挥一下。

message PERevRev:ExpandRelationWithCtxt
(
           input : string className ,
                   ObjectPtr object ,
                   string relationship ,
                   ObjectPtr genContextObj ,
                   integer scope ,
                   NULL ObjectPtr dialogObject : :
          output : SetOfObjects * otherSideObjSet ,
                   SetOfObjects * relObjSet ,
                   integer * mfail ) code
{
 MODNAME("PERevRev:ExpandRelationWithCtxt");
 status dstat = OKAY;
 
 SetOfObjects setObjs = NULL;
 SetOfObjects setRels = NULL;
 int    size = 0, i, j;
 ObjectPtr  oItem1 = NULL, oItem2 = NULL;
 string   pStr1=NULL, pStr2 = NULL;

 *mfail = USC_OKAY;
 
 dstat = ExpandRelationWithCtxtAtParent(PERevRevClass, className, object, relationship,
  genContextObj, scope, dialogObject, otherSideObjSet, relObjSet, mfail);
 //Sorting by assmInstallNo
 if(size = low_set_size(*otherSideObjSet)<=1) goto EXIT;
 
 setObjs = low_set_create(size);
 setRels = low_set_create(size);

 for(j=0; j<low_set_size(*relObjSet); j++)
 {
  oItem1 = low_set_get(*relObjSet, j);
  GetAtt(oItem1, assmInstallNoAttr, &pStr1);
  for(i=0; i<low_set_size(setRels); i++)
  {
   oItem2 = low_set_get(setRels, i);
   GetAtt(oItem2, assmInstallNoAttr, &pStr2);
   nlsStrTrimLeadWhiteSpace(pStr1);
   nlsStrTrimTrailWhiteSpace (pStr1);
   nlsStrTrimLeadWhiteSpace(pStr2);
   nlsStrTrimTrailWhiteSpace (pStr2);
   if(low_atoul(pStr1) > low_atoul(pStr2) )
   {
    continue;
   }
   else
   {
    break;
   }
  }
  low_set_insrt(setRels, i, oItem1);
  oItem1 = low_set_get(*otherSideObjSet, j);
  low_set_insrt(setObjs, i, oItem1);
 }

 for(j=low_set_size(*otherSideObjSet)-1; j>=0; j--)
 {
  low_set_remove(*otherSideObjSet, j);
  low_set_remove(*relObjSet, j);
 }

 *otherSideObjSet = setObjs;
 *relObjSet = setRels;
 
 uiShowExternalString("###");
 uiShowExternalString(GetTimeStamp());
 for(j=0; j<low_set_size(*relObjSet); j++)
 {
  oItem1 = low_set_get(*relObjSet, j);
  GetAtt(oItem1, assmInstallNoAttr, &pStr1);
  uiShowExternalString(pStr1);
 }
 uiShowExternalString(GetTimeStamp());

CLEANUP:
EXIT:
 CheckDstatAndReturn;
}
;

三、修改BS配置把系统的默认排序关闭
    默认情况下，系统是按照DisplayName来对Part进行排序的，所以必须先行关闭否则看不到排序效果的。

    具体做法是：搜索所有xml中的inSortPreference，把true改成false。注意只要修改与bom相关的配置就行。

版权所有：2005-2007 上海欧俊信息技术有限公司 和 郭宇