cmdoc.h

科思ERP部分源码及控件

//---------------------------------------------------------------------------
#ifndef CmdocH
#define CmdocH
#include "sdBaselib.h"
#include "SdEnumType.h"
#include <dbtables.hpp>
#include <db.hpp>
#include <ADODB.hpp>
#include <db.hpp>
class _EXPORT_TYPE TKSCc;
class _EXPORT_TYPE TKSRwt;
class _EXPORT_TYPE TKSEquc;
class _EXPORT_TYPE TKSMcd;
//---------------------------------------------------------------------------
//===================================================
//      (TKSCc)成本中心维护
//===================================================
class _EXPORT_TYPE TKSCc:public TKSStandard
{
private:

    AnsiString l_CcCode;
    AnsiString l_CcName;
    AnsiString l_CcDesc;
    AnsiString l_CcGlKm;
    int        l_CcKmDir;
    int        l_CcType;
    AnsiString l_CcUser;
    int        l_CcCancel;
    AnsiString l_CcCancelDate;
    AnsiString l_CcSysDate;

//backup filed
    AnsiString b_CcCode;
    AnsiString b_CcName;
    AnsiString b_CcDesc;
    AnsiString b_CcGlKm;
    int        b_CcKmDir;
    int        b_CcType;
    AnsiString b_CcUser;
    int        b_CcCancel;
    AnsiString b_CcCancelDate;
    AnsiString b_CcSysDate;

    void BackupValue();
    void EmptyValue(int Index);
    void BatchLetValue();
    void AssignValue();

	void __fastcall SetCcCode(AnsiString value);
	void __fastcall SetCcName(AnsiString value);
	void __fastcall SetCcDesc(AnsiString value);
	void __fastcall SetCcGlKm(AnsiString value);
	void __fastcall SetCcKmDir(int value);
	void __fastcall SetCcType(int value);
	void __fastcall SetCcUser(AnsiString value);
	void __fastcall SetCcCancel(int value);
	void __fastcall SetCcCancelDate(AnsiString value);

	__property AnsiString CcCode  = { read = l_CcCode, write = SetCcCode };
	__property AnsiString CcName  = { read = l_CcName, write = SetCcName };
	__property AnsiString CcDesc  = { read = l_CcDesc, write = SetCcDesc };
	__property AnsiString CcGlKm  = { read = l_CcGlKm, write = SetCcGlKm };
	__property int CcKmDir  = { read = l_CcKmDir, write = SetCcKmDir };
	__property int CcType  = { read = l_CcType, write = SetCcType };
	__property AnsiString CcUser  = { read = l_CcUser, write = SetCcUser };
	__property int CcCancel  = { read = l_CcCancel, write = SetCcCancel };
	__property AnsiString CcCancelDate  = { read = l_CcCancelDate, write = SetCcCancelDate };
	__property AnsiString CcSysDate  = { read = l_CcSysDate};

    void Assign(TKSCc *p);
public:
    TKSCc(TDataComm *DC);
    TKSCc();
    ~TKSCc();

    void RestoreValue();
    void Update();
    void Delete();
    int  Query();

    AnsiString GetFieldValue(euCc sdFieldName);
    void SetFieldValue(euCc sdFieldName, AnsiString Value);
    bool Find(AnsiString WhereStr);
};
//===================================================
//      (TKSRwt)定额工时
//===================================================
class _EXPORT_TYPE TKSRwt: public TKSStandard
{
private:

    AnsiString l_RwtGoods;   //产品编码
    AnsiString l_RwtLoc;   //货位
    AnsiString l_RwtUnit;   //计量单位
    double     l_RwtTime;   //定额工时
    AnsiString l_RwtEdate;   //生效日期
    AnsiString l_RwtIdate;   //失效日期
    AnsiString l_RwtUser;   //操作员
//backup
    AnsiString b_RwtGoods;
    AnsiString b_RwtLoc;
    AnsiString b_RwtUnit;
    double     b_RwtTime;
    AnsiString b_RwtEdate;
    AnsiString b_RwtIdate;
    AnsiString b_RwtUser;

    void __fastcall SetRwtGoods(AnsiString value);
    void __fastcall SetRwtLoc(AnsiString value);
    void __fastcall SetRwtUnit(AnsiString value);
    void __fastcall SetRwtTime(double value);
    void __fastcall SetRwtEdate(AnsiString value);
    void __fastcall SetRwtIdate(AnsiString value);
    void __fastcall SetRwtUser(AnsiString value);

    __property  AnsiString RwtGoods={read=l_RwtGoods,write=SetRwtGoods};
    __property  AnsiString RwtLoc={read=l_RwtLoc,write=SetRwtLoc};
    __property  AnsiString RwtUnit={read=l_RwtUnit,write=SetRwtUnit};
    __property  double     RwtTime={read=l_RwtTime,write=SetRwtTime};
    __property  AnsiString RwtEdate={read=l_RwtEdate,write=SetRwtEdate};
    __property  AnsiString RwtIdate={read=l_RwtIdate,write=SetRwtIdate};
    __property  AnsiString RwtUser={read=l_RwtUser,write=SetRwtUser};
    void BackupValue();
    void EmptyValue(int Index);
    void BatchLetValue();
    void AssignValue();


public:
    TKSRwt(TDataComm *DC);
    TKSRwt();
    ~TKSRwt();

    void RestoreValue();
    void Update();
    void Delete();
    void Assign(TKSRwt *p);
    int  Query();
    bool Find(AnsiString WhereStr);
    void RecordDoubuleCh();
    AnsiString GetFieldValue(euRwt sdFieldName);
    void SetFieldValue(euRwt sdFieldName, AnsiString value);
};
//===================================================
//      (TKSEquc) 约当产量系数
//===================================================
class _EXPORT_TYPE TKSEquc: public TKSStandard
{
private:
    AnsiString l_EqucGoods;   //产品编码
    AnsiString l_EqucProcess;   //工序编码
    double     l_EqucValue;   //约当系数
    AnsiString l_EqucUser;   //操作员
    AnsiString l_EqucSysDate;   //系统日期
//backup
    AnsiString b_EqucGoods;
    AnsiString b_EqucProcess;
    double     b_EqucValue;
    AnsiString b_EqucUser;
    AnsiString b_EqucSysDate;

    void __fastcall SetEqucGoods(AnsiString value);
    void __fastcall SetEqucProcess(AnsiString value);
    void __fastcall SetEqucValue(double value);
    void __fastcall SetEqucUser(AnsiString value);

    __property  AnsiString EqucGoods={read=l_EqucGoods,write=SetEqucGoods};
    __property  AnsiString EqucProcess={read=l_EqucProcess,write=SetEqucProcess};
    __property  double     EqucValue={read=l_EqucValue,write=SetEqucValue};
    __property  AnsiString EqucUser={read=l_EqucUser,write=SetEqucUser};
    __property  AnsiString EqucSysDate={read=l_EqucSysDate};
    void BackupValue();
    void EmptyValue(int Index);
    void BatchLetValue();
    void AssignValue();
 

public:
    TKSEquc(TDataComm *DC);
    TKSEquc();
    ~TKSEquc();
 
 
    void RestoreValue();
    void Update();
    void Delete();
    void Assign(TKSEquc *p);
    int  Query();
    bool Find(AnsiString WhereStr);
    void RecordDoubuleCh();
    AnsiString GetFieldValue(euEquc sdFieldName);
    void SetFieldValue(euEquc sdFieldName, AnsiString value);
};
//**************************************
//     TKSMcd    成本差异
//**************************************
//--------------------------------------------------------------
 class _EXPORT_TYPE TKSMcd: public TKSStandard
{
private:
    AnsiString l_McdFmonth;   //财务月份
    AnsiString l_McdGoods;   //物料编码
    double     l_McdBopCost;   //期初成本
    double     l_McdBopDiff;   //期初差异
    double     l_McdIopCost;   //本期收入成本
    double     l_McdIopDiff;   //本期收入差异
    double     l_McdSopCost;   //本期发出成本
    double     l_McdSopDiff;   //本期发出成本差异
    double     l_McdNopCost;   //当前成本
    double     l_McdNopDiff;   //当前差异
    double     l_McdFopCost;   //期末成本
    double     l_McdFopDiff;   //期末差异
    double     l_McdIoyCost;   //本年收入累计差异
    double     l_McdIoyDiff;   //本年收入累计差异
    double     l_McdSoyCost;   //本年发出累计成本
    double     l_McdSoyDiff;   //本年发出累计差异
    double     l_McdRdc;   //差异率
//backup
    AnsiString b_McdFmonth;
    AnsiString b_McdGoods;
    double     b_McdBopCost;
    double     b_McdBopDiff;
    double     b_McdIopCost;
    double     b_McdIopDiff;
    double     b_McdSopCost;
    double     b_McdSopDiff;
    double     b_McdNopCost;
    double     b_McdNopDiff;
    double     b_McdFopCost;
    double     b_McdFopDiff;
    double     b_McdIoyCost;
    double     b_McdIoyDiff;
    double     b_McdSoyCost;
    double     b_McdSoyDiff;
    double     b_McdRdc;

    void __fastcall SetMcdFmonth(AnsiString value);
    void __fastcall SetMcdGoods(AnsiString value);
    void __fastcall SetMcdBopCost(double value);
    void __fastcall SetMcdBopDiff(double value);
    void __fastcall SetMcdIopCost(double value);
    void __fastcall SetMcdIopDiff(double value);
    void __fastcall SetMcdSopCost(double value);
    void __fastcall SetMcdSopDiff(double value);
    void __fastcall SetMcdNopCost(double value);
    void __fastcall SetMcdNopDiff(double value);
    void __fastcall SetMcdFopCost(double value);
    void __fastcall SetMcdFopDiff(double value);
    void __fastcall SetMcdIoyCost(double value);
    void __fastcall SetMcdIoyDiff(double value);
    void __fastcall SetMcdSoyCost(double value);
    void __fastcall SetMcdSoyDiff(double value);
    void __fastcall SetMcdRdc(double value);

    __property  AnsiString McdFmonth={read=l_McdFmonth,write=SetMcdFmonth};
    __property  AnsiString McdGoods={read=l_McdGoods,write=SetMcdGoods};
    __property  double     McdBopCost={read=l_McdBopCost,write=SetMcdBopCost};
    __property  double     McdBopDiff={read=l_McdBopDiff,write=SetMcdBopDiff};
    __property  double     McdIopCost={read=l_McdIopCost,write=SetMcdIopCost};
    __property  double     McdIopDiff={read=l_McdIopDiff,write=SetMcdIopDiff};
    __property  double     McdSopCost={read=l_McdSopCost,write=SetMcdSopCost};
    __property  double     McdSopDiff={read=l_McdSopDiff,write=SetMcdSopDiff};
    __property  double     McdNopCost={read=l_McdNopCost,write=SetMcdNopCost};
    __property  double     McdNopDiff={read=l_McdNopDiff,write=SetMcdNopDiff};
    __property  double     McdFopCost={read=l_McdFopCost,write=SetMcdFopCost};
    __property  double     McdFopDiff={read=l_McdFopDiff,write=SetMcdFopDiff};
    __property  double     McdIoyCost={read=l_McdIoyCost,write=SetMcdIoyCost};
    __property  double     McdIoyDiff={read=l_McdIoyDiff,write=SetMcdIoyDiff};
    __property  double     McdSoyCost={read=l_McdSoyCost,write=SetMcdSoyCost};
    __property  double     McdSoyDiff={read=l_McdSoyDiff,write=SetMcdSoyDiff};
    __property  double     McdRdc={read=l_McdRdc,write=SetMcdRdc};
    void BackupValue();
    void EmptyValue(int Index);
    void BatchLetValue();
    void AssignValue();
 

public:
    TKSMcd(TDataComm *DC);
    TKSMcd();
    ~TKSMcd();
 
 
    void RestoreValue();
    void Update();
    void Delete();
    void Assign(TKSMcd *p);
    int  Query();
    bool Find(AnsiString WhereStr);
 
    AnsiString GetFieldValue(euMcd sdFieldName);
    void SetFieldValue(euMcd sdFieldName, AnsiString value);
};  

#endif