mmps.h

科思ERP部分源码及控件

//---------------------------------------------------------------------------
#ifndef mMpsH
#define mMpsH
#include "custommidbase.h"
//---------------------------------------------------------------------------
class TsdMrp  :public TsdCustomMidBase
{
private:
    //物料记录结构类型
    struct  GoodsRec
    {
     AnsiString Code;    //物料代码
     double ReqQty;     //需求数量
     AnsiString ReqDate; //需求日期
     short From;        //物料来源
     int LowLevel;     //低层码
    };
    //链式结构
    struct LinkRec
    {
     struct GoodsRec * Rec;
     struct LinkRec * Next;
    };

    AnsiString CurDate;
    AnsiString CurFmonth;
    AnsiString EndDate;
    int PlanLen;

    AnsiString Planner; //计划员
    bool IsSupply;      //是否要更新物料供应
    bool bBalance;      //是否要平衡计划
    
    void __fastcall PlanValidate();
    void __fastcall DeCodeParam(AnsiString sParam);
    void __fastcall BufferInit(struct LinkRec **BufferHead);
    void __fastcall LinkAddRec(struct GoodsRec Rec,struct LinkRec **LinkHead);
    void __fastcall BufferToQueue(int LevelCode,struct LinkRec **BufferHead,struct LinkRec **QueueHead);
    void __fastcall DestroyLink(struct LinkRec * Head);
    void __fastcall ClearMrp();
    void __fastcall PlanIn();
    void __fastcall PlanGross(AnsiString sCode,AnsiString sDate,double dQty);
    void __fastcall PlanNet(AnsiString sCode);
    void __fastcall BalanceMrp(AnsiString Code);

    void __fastcall GenMrp(AnsiString FPlanner);

protected:
  void __fastcall ValidMasterField(int FieldNo);
  void __fastcall CmdExec(AnsiString Param);

public:
  __fastcall TsdMrp();

};
//---------------------------------------------------------------------------
extern TsdMrp *sdMrp;
#endif