invdef.pas

文件包含程序源原文件

unit InvDef;

interface

uses
  Windows, SysUtils, Classes, Controls, ComCtrls, Messages, Dialogs, Forms;

type
  TIniFileData = record
    AliasName: string;
    UserName:  string;
    PassWord:  string;
    OutPrice: string;
    InPrice:  string;
    isExcelPrint: boolean;
    PaperNo:      string;
    isCheckQty:   boolean;
    isTuneQty:    boolean;
    matstkid:     string;
    otherstkid:   string;
    listdate:     array[0..1] of string[10];
    warningdays:  integer;
    is_bomcheck:  Boolean;
    LangType:     Integer;
  end;

  PYMAccInfo = ^TYMAccInfo;
  TYMAccInfo = record
    rec_id: LongInt;
    kind:   Byte;
    stk_id: array[0..4] of Char;
    account_year:  array[0..3] of Char;
    account_month: array[0..1] of Char;
    account_empid: Double;
    input_date:    TDateTime;
    cancel_empid:  Double;
    cancel_date:   TDateTime;
    visible:       Byte;
    ITEM:     TListItem;
  end;

  PInvAgeInfo = ^TInvAgeInfo;
  TInvAgeInfo = record
    mat_rec_id:  LongInt;
    guage_id:    Integer;
    curr_qty:    Double;
    curr_amount: Double;
    Month1:      Double;
    Month2:      Double;
    Month3:      Double;
    Month4:      Double;
    Month5:      Double;
    Month6:      Double;
    Month7:      Double;
    Month8:      Double;
    Month9:      Double;
    Month10:      Double;
    Month11:      Double;
    Month12:      Double;
    Month13:      Double;
    Month14:      Double;
    Month15:      Double;
    Month16:      Double;
    Month17:      Double;
    Month18:      Double;
    Month19:      Double;
    Month20:      Double;
    Month21:      Double;
    Month22:      Double;
    Month23:      Double;
    Month24:      Double;
    Month_mass24: Double;
    ITME:        TListItem;
  end;

  PInvCurrQty = ^TInvCurrQryInfo;
  TInvCurrQryInfo = record
    stk_id: array[0..4] of Char;      //--  stk_id
    mat_rid:    LongInt;              //--  material_rec_id
    guage_id:   Integer;              //-- guage_id
    quantity:   Double;
    totla_price: Double;
    order_rid:  LongInt;
    order_no:   LongInt;
  end;

  PClassInfo = ^TClassInfo;
  TClassInfo = record
    sMainKey:    string;
    sClassIndex: integer;
    sCode:       string;
    sName:       string;
    sMemo:       string;
    FCurrItem:   TListItem;
  end;

  PGuageInfo = ^TGuageInfo;
  TGuageInfo = record
    mat_rec_id: Longint;
    mat_code:   array[0..30] of char;
    mat_name:   array[0..100] of char;
    guage_id: integer;
    guage_name: array[0..100] of char;
    safety:       integer;
    max_stkqty:   integer;
    fixed_buyqty: integer;
    buy_days:     integer;
    weight_pcs:   Double;
    Item:  TListItem;
  end;

  PBomCheckInfo = ^TBomCheckInfo;
  TBomCheckInfo = record
    rec_id:    LongInt;
    mold_id:   LongInt;
    part_id:   LongInt;
    shizai_rec_id: LongInt;
    Material:      array[0..100] of char;
    standard:      array[0..100] of char;
    quantity:      double;
    require_date:  TDatetime;
    Notes:         array[0..60] of char;
    item:          TListItem;
  end;

  PMRPInfo = ^TMRPInfo;
  TMRPInfo = record
    mat_rec_id:      LongInt;
    guage_id:        integer;
    cacu_order_date: TDatetime;
    require_date:    TDatetime;
    need_quantity:   Double;
    item:            TListItem;
  end;
  
  PPaperParams = ^TPaperParams;
  TPaperParams = record
    defines:  string;
    params1:  string;
    params2:  string;
    snote:    string;
    month:    string;
    flag:     integer;
    keylength: integer;
    item:      TListItem;
  end;

  PSEIHIN    = ^TSEIHIN;             //-- seihin
  PSHIGEN    = ^TSHIGEN;             //-- shigen
  PSHIZAI    = ^TSHIZAI;             //-- shizai
  PINVENTORY = ^TINVENTORY;          //-- inventory_sheet
  PBALANCE   = ^TBALANCE;            //-- balance
  POrdDelivery = ^TOrdDeliveryList;  //-- ordered deliveried

  //-- seihin
  TSEIHIN = record
    REC_ID:    LongInt;              //-- rec_id
    SEIHIN_NO: array[0..20] of Char; //-- seihin_no
    SEIHIN_NM: array[0..40] of Char; //-- seihin_nm
  end;

  //-- shigen
  TSHIGEN = record
    REC_ID:   LongInt;              //-- rec_id
    SIGEN_CD: Integer;              //-- sigen_cd
    SIGEN_NM: array[0..40] of Char; //-- sigen_name
    DEPART_CD: Integer;             //-- department_cd
    ITEM:      TListItem;
  end;

  //-- shizai
  TSHIZAI = record
    REC_ID:    LongInt;              //--  REC_ID
    SHIZAI_CD: array[0..20] of Char; //--  shizai_CODE
    SHIZAI_NM: array[0..100] of Char; //--  shizai_NAME
    UNT_PRICE: Double;               //--  UNIT_PRICE
    MAKER_CD:  Integer;              //--  MAKER_CD
    MAKER_NM:  array[0..40] of Char; //--  MAKER_NM
    SHIIRE_CD: Integer;              //--  SIIRE_CD
    SHIIRE_NM: array[0..40] of Char; //--  SHIIRE_NM
    UNT_TYPE:  Integer;              //--  UNIT_TYPE
    STANDARD:  array[0..100] of Char; //--  STANDARD
    HIYO_ID:   Integer;              //--  HIYO_ID
    SHIZAI_KUBUN_ID: Integer;        //-- shizai type code
    SAFE_QTY: Double;                //-- safe stock qty
    ITEM:      TListItem;
  end;

  PSHIZAIKUBUN = ^TSHIZAIKUBUN;  //-- 物料分类
  TSHIZAIKUBUN = record
    rec_id:       integer;
    shizai_kubun: string;
    name:         string;
    code:         integer;
    ITEM:         TListItem;
  end;

  //-- inventory_sheet
  TINVENTORY = record
    REC_ID:     LongInt;              //--  rec_id
    STK_ID:     array[0..4] of Char; //--  stk_id
    KIND:       Byte;                 //--  kind
    DATE:       TDateTime;            //--  date
    MAT_RID:    LongInt;              //--  material_rec_id
    MAT_NM:     array[0..100] of Char; //--  material_name
    GUAGE_ID:   Integer;              //-- guage_id
    SUP_CD:     Integer;              //--  supplier_code
    MAK_CD:     Integer;              //--  maker_code
    MAK_PRICE:  Double;               //--  MAKER PRICE
    QUANTITY:   Double;               //--  quantity
    UNT_PRICE:  Double;               //--  unit_price
    TTL_PRICE:  Double;               //--  total_price
    USE_GUAGE:  array[0..100] of char; //--  use guage
    USE_QUANTITY: Double;             //--  use quantity
    USE_AMOUNT:   Double;             //--  use amount
    ODR_RID:    LongInt;              //--  order_rec_id
    PAT_RID:    LongInt;              //--  parts_rec_id
    SEQUAL_NO:  array[0..60] of Char;
    HAT_RID:    LongInt;              //--  order_serial
    HAT_CODE:   array[0..30] of Char;
    PAPERNO:       array[0..30] of Char;
    ISS_PAPERNO:   array[0..30] of Char;
    INOUT_ID:      array[0..30] of Char;
    RECIEVE_EMPID: array[0..30] of Char;
    INPUT_EMPID:   array[0..30] of Char;
    INVOICE_NO:    array[0..30] of Char;
    IS_ACCOUNT:    Byte;
    IS_CLOSE:    Byte;
    NOTE:          array[0..60] of Char; //--  note
    ITEM:          TListItem;
  end;

  TBALANCE = record                  //--
    DATE:     TDateTime;             //--
    STK_ID:   string;
    CODE:     LongInt;               //--
    NAME:     array[0..100] of Char;  //--
    GUAGE_ID: Integer;
    GUAGE_NAME: array[0..100] of Char;
    U_PRICE:  Double;                //--
    QUANTITY: Double;                //--
    T_PRICE:  Double;                //--
    IS_SAFETY: integer;              //--
    PCS:       Double;
    Item:      TListItem;
  end;

  //-- added by mike 2004      //-- 定义人员/进出库类别
  PEmpInOut = ^TEmpInOut;
  TEmpInOut = record
    rec_id:   string;
    group_cd: integer;
    code:     string;
    name:     string;
    depmemo:  string;
    ITEM:     TListItem;
  end;

  TOrdDeliveryList = record
    rec_id:     integer;
    mat_rec_id: integer;
    mat_code:   string;
    mat_name:   string;
    mat_standard: string;
    sup_code:     integer;
    sup_name:     string;
    mak_code:     integer;
    Qty:          double;
    Price:        double;
    Total_Amount: double;
    order_rec_id: integer;
    order_code:   string;
    order_name:   string;
    parts_rec_id: integer;
    parts_code:   string;
    parts_name:   string;
    order_no:     integer;
    delivery_date: TDatetime;
    item:         TListItem;
  end;

  PUnDeliveryOnTime = ^TUnDeliveyOnTime;
  TUnDeliveyOnTime = record
    rec_id:            LongInt;
    hatchu_id:         LongInt;
    seihin_rec_id:     LongInt;
    buhin_rec_id:      LongInt;
    hiyo_kubun_rec_id: LongInt;
    shizai_rec_id:     LongInt;
    shizai_meisho:     array[0..100] of char;
    kikaku:            array[0..100] of char;
    width:             Double;
    length:            Double;
    height:            Double;
    unyo_rec_id:       LongInt;
    hatchu_sha:        Integer;
    irai_sha:          Integer;
    tks_shitei:        TDatetime;
    knr_shitei:          TDatetime;
    chakushu_bi:         TDatetime;
    kanryo_bi:           TDatetime;
    suryo:               Double;
    weight:              Double;
    mak_price:           Double;
    tanka:               Double;
    kingaku:             Double;
    ko_status:           Integer;
    try_kai:             Integer;
    hatchu_saki:         LongInt;
    maker:               LongInt;
    biko1:               array[0..60] of char;
    biko2:               array[0..100] of char;
    deliveried_suryo:    Double;
    deliveried_kingaku:  Double;
    un_deliveried_suryo: Double;
    un_deliveried_weight: Double;
    hatchu_code:         array[0..30] of char;
    sequal_no:           array[0..60] of char;
    Item:                TListItem;
  end;

  PAllReadyInOrder = ^TAllReadyInOrder;
  TAllReadyInOrder = record
    stk_id:          array[0..4] of char;
    order_no:        LongInt;
    order_rec_id:    LongInt;
    parts_rec_id:    LongInt;
    material_rec_id: LongInt;
    material_name:   array[0..100] of char;
    guage_id:        Integer;
    guage_name:      array[0..100] of char;
    unit_price:      Double;