cmhdl.h

科思ERP部分源码及控件

//---------------------------------------------------------------------------
#ifndef CmhdlH
#define CmhdlH
#include <dbtables.hpp>
#include "sdBaselib.h"
#include "SdEnumType.h"
#include <dbtables.hpp>
#include <db.hpp>
class _EXPORT_TYPE TKSCd;
class _EXPORT_TYPE TKSAdjCod;
class _EXPORT_TYPE TKSAdjCoh;
class _EXPORT_TYPE TKSScmbd;
class _EXPORT_TYPE TKSScmbh;

//=============================================
//		(TKSCd)成本初始化
//=============================================
class _EXPORT_TYPE TKSCd : public TKSStandard
{
private:
        AnsiString l_CdFmonth;
        AnsiString l_CdGoods;
        AnsiString l_CdGoodsName;
        AnsiString l_CdPmpcCode;
        double     l_CdBopPrice;
        double     l_CdBopQty;
        double     l_CdBopAmt;
        int        l_CdInitFlg;

        AnsiString b_CdFmonth;
        AnsiString b_CdGoods;
        AnsiString b_CdGoodsName;
        AnsiString b_CdPmpcCode;
        double     b_CdBopPrice;
        double     b_CdBopQty;
        double     b_CdBopAmt;
        int        b_CdInitFlg;

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

        void __fastcall SetCdFmonth(AnsiString value);
        void __fastcall SetCdGoods(AnsiString value);
        void __fastcall SetCdBopPrice(double value);
        void __fastcall SetCdBopAmt(double value);
        void __fastcall SetCdInitFlg(int value);

        __property AnsiString CdFmonth={read=l_CdFmonth,write=SetCdFmonth};
        __property AnsiString CdGoods={read=l_CdGoods,write=SetCdGoods};
        __property AnsiString CdGoodsName={read=l_CdGoodsName};
        __property AnsiString CdPmpcCode={read=l_CdPmpcCode};
        __property double CdBopPrice={read=l_CdBopPrice,write=SetCdBopPrice};
        __property double CdBopQty={read=l_CdBopQty};
        __property double CdBopAmt={read=l_CdBopAmt,write=SetCdBopAmt};
        __property int    CdInitFlg={read=l_CdInitFlg,write=SetCdInitFlg};

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

       void RestoreValue();
       void Update();
       void Delete();
       void Assign(TKSCd *p);
       int  Query();
       bool Find(AnsiString WhereStr);
       AnsiString GetFieldValue(euCd sdFieldName);
       void SetFieldValue(euCd sdFieldName, AnsiString Value);
};

//=============================================
//		(TKSAdjCod)入库调整单明细
//=============================================
class _EXPORT_TYPE TKSAdjCod: public TKSDetail
{
private:
    AnsiString l_AdjCodCode;   //调整单号
    int        l_AdjCodLine;   //行号
    AnsiString l_AdjCodGoods;   //物料编码
    double     l_AdjCodAmt;   //调整金额
    AnsiString l_AdjCodBatch;   //批号
    AnsiString l_AdjCodDesc;   //备注
//backup
    AnsiString b_AdjCodCode;
    int        b_AdjCodLine;
    AnsiString b_AdjCodGoods;
    double     b_AdjCodAmt;
    AnsiString b_AdjCodBatch;
    AnsiString b_AdjCodDesc;

    void __fastcall SetAdjCodCode(AnsiString value);
    void __fastcall SetAdjCodLine(int value);
    void __fastcall SetAdjCodGoods(AnsiString value);
    void __fastcall SetAdjCodAmt(double value);
    void __fastcall SetAdjCodBatch(AnsiString value);
    void __fastcall SetAdjCodDesc(AnsiString value);

    __property  AnsiString AdjCodCode={read=l_AdjCodCode,write=SetAdjCodCode};
    __property  int        AdjCodLine={read=l_AdjCodLine,write=SetAdjCodLine};
    __property  AnsiString AdjCodGoods={read=l_AdjCodGoods,write=SetAdjCodGoods};
    __property  double     AdjCodAmt={read=l_AdjCodAmt,write=SetAdjCodAmt};
    __property  AnsiString AdjCodBatch={read=l_AdjCodBatch,write=SetAdjCodBatch};
    __property  AnsiString AdjCodDesc={read=l_AdjCodDesc,write=SetAdjCodDesc};

public:
    TKSAdjCod(TDataComm *DC);
    TKSAdjCod();
    ~TKSAdjCod();
    TKSAdjCoh *sdParent;

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

    void Update();
    void Delete();
    void Assign(TKSAdjCod *p);
    int  Query();
    bool Find(AnsiString WhereStr);

    AnsiString GetFieldValue(euAdjCod sdFieldName);
    AnsiString GetOldFieldValue(euAdjCod sdFieldName);
    void SetFieldValue(euAdjCod sdFieldName, AnsiString value);
};

//=============================================
//		(TKSAdjCoh)  入库调整单单头
//=============================================
class _EXPORT_TYPE TKSAdjCoh: public TKSHead
{
private:
    TKSAdjCod*l_sdAdjCod;
    TKSAdjCod*b_sdAdjCod;
    AnsiString l_AdjCohCode;   //调整单号
    AnsiString l_AdjCohDate;   //调整日期
    AnsiString l_AdjCohFmonth;   //月份
    AnsiString l_AdjCohPosType;   //收发类型
    AnsiString l_AdjCohDesc;   //调整原因
    AnsiString l_AdjCohKeeper;   //仓管员
    AnsiString l_AdjCohUser;   //操作员
    int        l_AdjCohCheck;   //审核标志
    AnsiString l_AdjCohChecker;   //审核人
    AnsiString l_AdjCohCheckDate;   //审核日期
    int        l_AdjCohPost;   //记帐
    AnsiString l_AdjCohPoster;   //记帐人
    AnsiString l_AdjCohPostDate;   //记帐日期
    AnsiString l_AdjCohSysDate;   //系统日期
//backup
    AnsiString b_AdjCohCode;
    AnsiString b_AdjCohDate;
    AnsiString b_AdjCohFmonth;
    AnsiString b_AdjCohPosType;
    AnsiString b_AdjCohDesc;
    AnsiString b_AdjCohKeeper;
    AnsiString b_AdjCohUser;
    int        b_AdjCohCheck;
    AnsiString b_AdjCohChecker;
    AnsiString b_AdjCohCheckDate;
    int        b_AdjCohPost;
    AnsiString b_AdjCohPoster;
    AnsiString b_AdjCohPostDate;
    AnsiString b_AdjCohSysDate;

    void __fastcall SetAdjCohCode(AnsiString value);
    void __fastcall SetAdjCohDate(AnsiString value);
    void __fastcall SetAdjCohFmonth(AnsiString value);
    void __fastcall SetAdjCohPosType(AnsiString value);
    void __fastcall SetAdjCohDesc(AnsiString value);
    void __fastcall SetAdjCohKeeper(AnsiString value);
    void __fastcall SetAdjCohUser(AnsiString value);
    void __fastcall SetAdjCohCheck(int value);
    void __fastcall SetAdjCohChecker(AnsiString value);
    void __fastcall SetAdjCohCheckDate(AnsiString value);
    void __fastcall SetAdjCohPost(int value);
    void __fastcall SetAdjCohPoster(AnsiString value);
    void __fastcall SetAdjCohPostDate(AnsiString value);

    __property  AnsiString AdjCohCode={read=l_AdjCohCode,write=SetAdjCohCode};
    __property  AnsiString AdjCohDate={read=l_AdjCohDate,write=SetAdjCohDate};
    __property  AnsiString AdjCohFmonth={read=l_AdjCohFmonth,write=SetAdjCohFmonth};
    __property  AnsiString AdjCohPosType={read=l_AdjCohPosType,write=SetAdjCohPosType};
    __property  AnsiString AdjCohDesc={read=l_AdjCohDesc,write=SetAdjCohDesc};
    __property  AnsiString AdjCohKeeper={read=l_AdjCohKeeper,write=SetAdjCohKeeper};
    __property  AnsiString AdjCohUser={read=l_AdjCohUser,write=SetAdjCohUser};
    __property  int        AdjCohCheck={read=l_AdjCohCheck,write=SetAdjCohCheck};
    __property  AnsiString AdjCohChecker={read=l_AdjCohChecker,write=SetAdjCohChecker};
    __property  AnsiString AdjCohCheckDate={read=l_AdjCohCheckDate,write=SetAdjCohCheckDate};
    __property  int        AdjCohPost={read=l_AdjCohPost,write=SetAdjCohPost};
    __property  AnsiString AdjCohPoster={read=l_AdjCohPoster,write=SetAdjCohPoster};
    __property  AnsiString AdjCohPostDate={read=l_AdjCohPostDate,write=SetAdjCohPostDate};
    __property  AnsiString AdjCohSysDate={read=l_AdjCohSysDate};


private:
    void BackupValue();
    void EmptyValue(int Index);
    void BatchLetValue();
    void AssignValue();
    int __fastcall GetItemCount();
    int __fastcall GetCurItemNo();
    char __fastcall GetCurItemStatus();
    AnsiString __fastcall GetItemBookMark();

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

    void RestoreValue();
    void RestoreItem();
    void Update();
    void Delete();
    void AddItem();
    void InsertItem();
    void EditItem();
    void NewDetail();
    void DeleteDetail();
    void DeleteItem();
    void RemoveItem();
    void ClearItem();
    void CancelItem();
    void AddToObject();
    bool LocateItemByIndex(int Index);
    bool LocateItemByKey(AnsiString Key);
    void Assign(TKSAdjCoh *p);
    int  Query();
    bool Find(AnsiString WhereStr);
    void Check(int IsCheck);

    AnsiString GetFieldValue(euAdjCoh sdFieldName);
    void SetFieldValue(euAdjCoh sdFieldName, AnsiString value);

    AnsiString GetItemValue(euAdjCod FieldName);
    void SetItemValue(euAdjCod FieldName, AnsiString value);
    __property int ItemCount  = { read = GetItemCount };
    __property int CurItemNo  = { read = GetCurItemNo };
    __property int  CurItemStatus  = { read = GetCurItemStatus };
    __property AnsiString ItemBookMark  = { read = GetItemBookMark };
};

//**************************************
//     TKSScmbd      标准成本更改明细
//**************************************
//--------------------------------------------------------------
 class _EXPORT_TYPE TKSScmbd: public TKSDetail
{
private:
    AnsiString l_ScmbdCode;   //更改单号
    AnsiString l_ScmbdGoods;   //物料编码
    int        l_ScmbdLine;   //行号
    double     l_ScmbdOCost;   //老成本
    double     l_ScmbdNCost;   //新成本
    AnsiString l_ScmbdDesc;   //备注
//backup
    AnsiString b_ScmbdCode;
    AnsiString b_ScmbdGoods;
    int        b_ScmbdLine;
    double     b_ScmbdOCost;
    double     b_ScmbdNCost;
    AnsiString b_ScmbdDesc;

    void __fastcall SetScmbdCode(AnsiString value);
    void __fastcall SetScmbdGoods(AnsiString value);
    void __fastcall SetScmbdLine(int value);
    void __fastcall SetScmbdOCost(double value);
    void __fastcall SetScmbdNCost(double value);
    void __fastcall SetScmbdDesc(AnsiString value);

    __property  AnsiString ScmbdCode={read=l_ScmbdCode,write=SetScmbdCode};
    __property  AnsiString ScmbdGoods={read=l_ScmbdGoods,write=SetScmbdGoods};
    __property  int        ScmbdLine={read=l_ScmbdLine,write=SetScmbdLine};
    __property  double     ScmbdOCost={read=l_ScmbdOCost,write=SetScmbdOCost};
    __property  double     ScmbdNCost={read=l_ScmbdNCost,write=SetScmbdNCost};
    __property  AnsiString ScmbdDesc={read=l_ScmbdDesc,write=SetScmbdDesc};

public:
    TKSScmbd(TDataComm *DC);
    TKSScmbd();
    ~TKSScmbd();
    TKSScmbh *sdParent;

    void BackupValue();
    void RestoreValue();
    void EmptyValue(int Index);
    void BatchLetValue();
    void AssignValue();
 
    void Update();
    void Delete();
    void Assign(TKSScmbd *p);
    int  Query();
    bool Find(AnsiString WhereStr);
 
    AnsiString GetFieldValue(euScmbd sdFieldName);
    AnsiString GetOldFieldValue(euScmbd sdFieldName);
    void SetFieldValue(euScmbd sdFieldName, AnsiString value);
};

//**************************************
//     TKSScmbh 标准成本更改单头
//**************************************
//--------------------------------------------------------------
 class _EXPORT_TYPE TKSScmbh: public TKSHead
{
private:

    TKSScmbd*l_sdScmbd;
    TKSScmbd*b_sdScmbd;
    AnsiString l_ScmbhCode;   //更改单号
    AnsiString l_ScmbhDate;   //更改日期
    AnsiString l_ScmbhFmonth;   //更改月份
    int        l_ScmbhCheck;   //审核
    AnsiString l_ScmbhChecker;   //审核人
    AnsiString l_ScmbhCheckDate;   //审核日期
    AnsiString l_ScmbhUser;   //操作员
    AnsiString l_ScmbhDesc;   //更改原因
    AnsiString l_ScmbhSysDate;   //系统日期
//backup
    AnsiString b_ScmbhCode;
    AnsiString b_ScmbhDate;
    AnsiString b_ScmbhFmonth;
    int        b_ScmbhCheck;
    AnsiString b_ScmbhChecker;
    AnsiString b_ScmbhCheckDate;
    AnsiString b_ScmbhUser;
    AnsiString b_ScmbhDesc;
    AnsiString b_ScmbhSysDate;

    void __fastcall SetScmbhCode(AnsiString value);
    void __fastcall SetScmbhDate(AnsiString value);
    void __fastcall SetScmbhFmonth(AnsiString value);
    void __fastcall SetScmbhCheck(int value);
    void __fastcall SetScmbhChecker(AnsiString value);
    void __fastcall SetScmbhCheckDate(AnsiString value);
    void __fastcall SetScmbhUser(AnsiString value);
    void __fastcall SetScmbhDesc(AnsiString value);

    __property  AnsiString ScmbhCode={read=l_ScmbhCode,write=SetScmbhCode};
    __property  AnsiString ScmbhDate={read=l_ScmbhDate,write=SetScmbhDate};
    __property  AnsiString ScmbhFmonth={read=l_ScmbhFmonth,write=SetScmbhFmonth};
    __property  int        ScmbhCheck={read=l_ScmbhCheck,write=SetScmbhCheck};
    __property  AnsiString ScmbhChecker={read=l_ScmbhChecker,write=SetScmbhChecker};
    __property  AnsiString ScmbhCheckDate={read=l_ScmbhCheckDate,write=SetScmbhCheckDate};
    __property  AnsiString ScmbhUser={read=l_ScmbhUser,write=SetScmbhUser};
    __property  AnsiString ScmbhDesc={read=l_ScmbhDesc,write=SetScmbhDesc};
    __property  AnsiString ScmbhSysDate={read=l_ScmbhSysDate};


private:
    void BackupValue();
    void EmptyValue(int Index);
    void BatchLetValue();
    void AssignValue();
    int __fastcall GetItemCount();
    int __fastcall GetCurItemNo();
    char __fastcall GetCurItemStatus();
    AnsiString __fastcall GetItemBookMark();

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

    void RestoreValue();
    void RestoreItem();
    void Update();
    void Delete();
    void AddItem();
    void InsertItem();
    void EditItem();
    void NewDetail();
    void DeleteDetail();
    void DeleteItem();
    void RemoveItem();
    void ClearItem();
    void CancelItem();
    void AddToObject();
    bool LocateItemByIndex(int Index);
    bool LocateItemByKey(AnsiString Key);
    void Assign(TKSScmbh *p);
    int  Query();
    bool Find(AnsiString WhereStr);
    void Check(int IsCheck);

    AnsiString GetFieldValue(euScmbh sdFieldName);
    void SetFieldValue(euScmbh sdFieldName, AnsiString value);
 
    AnsiString GetItemValue(euScmbd FieldName);
    void SetItemValue(euScmbd FieldName, AnsiString value);
    __property int ItemCount  = { read = GetItemCount };
    __property int CurItemNo  = { read = GetCurItemNo };
    __property int  CurItemStatus  = { read = GetCurItemStatus };
    __property AnsiString ItemBookMark  = { read = GetItemBookMark };
};




#endif