mmrp.h

来自「一个以前收集的基于C/S架构的ERP客户端源代码」· C头文件 代码 · 共 61 行

//---------------------------------------------------------------------------
#ifndef mMrpH
#define mMrpH
#include "Midbase.h"
//---------------------------------------------------------------------------
class TKSMrp  :public TKSMidBase
{
private:
    //物料记录结构类型
    struct  GoodsRec
    {
     AnsiString Code;    //物料代码
     double ReqQty;     //需求数量
     AnsiString ReqDate; //需求日期
     short From;        //物料来源
     int LowLevel;     //低层码
     AnsiString Lowcode;
     int Lowline ;
    };
    //链式结构
    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,AnsiString ssohCode,int sline);
    void __fastcall PlanNet(AnsiString sCode,AnsiString LowCode);
    void __fastcall BalanceMrp(AnsiString Code);

    void __fastcall GenMrp(AnsiString FPlanner);

protected:
  void __fastcall ValidHeadValues();
  void __fastcall CmdExec(AnsiString Param);

public:
  __fastcall TKSMrp();

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