dpconst.pas

文件包含程序源原文件

unit dpconst;

interface

uses
  Windows, SysUtils, Classes, Graphics, Controls, StdCtrls, ComCtrls,
  Menus, Math, Ex2NmEdt;

const
  DEMO_CUSTMER            =  990101999; // 僨儌梡偺屭媞僐乕僪
  //屭媞僐乕僪
  MATUE                   =  921021001; // 姅幃夛幮徏峕揝岺強
  PURASUSEIKO             =  921202002; // 僾儔僗僙僀僐乕姅幃夛幮
  SANDEN_KOKI             =  930105003; // 僒儞僨儞姅幃夛幮
  HONDA_SUZUKA            =  930301004; // 杮揷媄尋岺嬈姅幃夛幮 楅幁惢嶌強
  TATEMATU                =  930401005; // 棫徏儌乕儖僪岺嬈姅幃夛幮
  FUJISEIKI_HONSYA        =  930701006; // 晄擇惛婡姅幃夛幮 杮幮岺応
  MATUSITA_HIKONE_KATA    =  931023007; // 徏壓揹岺姅幃夛幮 旻崻岺応 嬥宆壽
  TOMIKUBO                =  940331008; // 桳尷夛幮 晉孍惛婡
  HEIWATOKEI              =  941028009; // 姅幃夛幮 暯榓帪寁惢嶌強
  FUJISEIKI_MATSUYAMA     =  950201010; // 晄擇惛婡姅幃夛幮 徏嶳岺応
  MATUSITA_HIKONE_SETSUBI =  961001011; // 徏壓揹岺姅幃夛幮 旻崻岺応 愝旛惢憿壽
  HIRASAWA_HONSYA         =  970225012; // 僸儔僒儚婡岺 杮幮岺応
  HITECHIZUMI             =  970424013; // 僴僀僥僢僋榓愹
  FUJISEIKI_FTC           =  980824014; // 晄擇惛婡姅幃夛幮 FTC
  AOYAMA                  =  980919015; // 惵嶳惢嶌強
  FUJISEIKI_TOKYO         =  990122016; // 晄擇惛婡姅幃夛幮 搶嫗塩嬈強
  SII_DIEENG              =  990601017; // SII僟僀僄儞僕僯傾儕儞僌
  NAKANISHI_OSAKA         = 1000401018; // 戝嶃拞惣嬥懏 18
  NAKANISHI_NABARI        = 1000501019; // 拞惣嬥懏柤挘 19
  TOKAIGOKIN              = 1000206020; // 搶奀崌嬥 20
  YAZAKIBUHIN             = 1020510021; // 栴嶈晹昳
  MIR                     =  103012022; // MIR
  //拞崙屭媞僐乕僪
  HAIER                   = 1030707023; // HAIER
  SENENKISHA              = 1040712024; // 愮墢婦幵柾嬶(qianyuan)
  HIP                     = 1040720026; // HI-P

type

  // 2003擭6寧26擔捛壛丂懡崙岅懳墳梡儊僢僙乕僕峔憿懱

  TMultiLingal = Record
    GroupNo, //僌儖乕僾俶倧
    MessageNo:Integer;// 儊僢僙乕僕俶倧
    MessageStr:array[0..127]of Char;
  end;
  PMultiLingal=^TMultiLingal;


    // 僨乕僞儀乕僗僼傿乕儖僪偺峔憿懱
    TTableFieldDef = Record
      FieldName:String;
      UpdateIndex:Integer;
    end;

    // 僇儗儞僟乕
    PCompanyCalendar = ^TCompanyCalendar;
    TCompanyCalendar = Record
      TARGET_DATE:TDateTime; // 擔晅
      ATTR:Integer;          // 懏惈丂捠忢偼1 =媥擔
    end;

    PSigenCalendar = ^TSigenCalendar;
    TSigenCalendar = Record
      REC_ID:LongInt;
      TARGET_DATE:TDateTime; // 擔晅
      SIGEN_CD,              // 帒尮喊霓
      GROUP_CD:LongInt;      // 帒尮皋侔踢
    end;

    //娐嫬愝掕儗僐乕僪
    TEnvironment = Record

      REC_ID:LongInt;
      CUSTMER_CODE:LongInt; //1)
      SEIBAN_FORMAT:SmallInt;//2) 1->晄擇惛婡巇條
      SEIBAN_KETA:SmallInt;
      JIKAN_TANI_SETTEI:SmallInt; //4) 0->暘扨埵丂1->帪娫扨埵
      KAISYU_ST_ZAN:SmallInt;//5) 姰椆慜夞廂俽俿巆 妱崌丂%
      ST_INPUTTYPE:SmallInt; //6) 0->帪娫寁偺傒 1->抜庢傝丄桳恖丄柍恖擖椡
      JISEKI_TENYO:SmallInt; //7) 1->僐僺乕帪幚愌傪俽俿偵揮梡
      SEIHIN_ID:SmallInt;    //8) 1->惢昳斣崋傪SEIHIN_ID偵揮壔
      KOTEI_AUTO_GEN:SmallInt;//9) 擔曬峏怴帪岺掱偺帺摦嶌惉乮杮揷媄尋僆僾僔儑儞)
      CHARGE_TYPE:SmallInt;  //10) 巊梡偡傞僠儍乕僕僞僀僾
                            //    0->晹彁暿尨壙儀乕僗  1->嶌嬈幰丒婡夿暿  2->岺掱暿
                            //   10->晹彁暿攧壙儀乕僗 11->嶌嬈幰丒婡夿暿 12->岺掱暿*/

      MAN_KADO:SmallInt;     //11) 恖偺壱摥帪娫偺棉太倌
      MACHINE_KADO:SmallInt; //12) 婡夿偺壱摥帪娫偺棉ㄌ