commonunit.~pas

来自「华海成本核算辅助系统是基于用友U8企业资源管理系统开发的一套半成品成本统计分析软」· ~PAS 代码 · 共 22 行

unit CommonUnit;

interface

uses
   SysUtils ;

const
   aryDepCode : array[0..7] of string = ('00','030201','030202','030206','030204','030205','030203','03') ;
   //aryDepCode : array[0..3] of string = ('00','01','02') ;
   aryDepName : array[0..7] of string = ('全部机型','织带机','印染机','塑编机','喷水机','喷气机','印花机','其它') ;
  // aryDepName : array[0..2] of string = ('全部机型','织带机','印染机') ;
   //aryWhcode  : array[0..7] of string = ('''00''','''01''','''02''','''15''','''16''','''04'' or ' +'cWhCode =''05'' or '+ 'cWhCode =''06''');
   DEP_CODE_OTHER = '03';
type
   ECheckException = class(Exception);
   EDBException = class(Exception);

implementation

end.