apmhdl.h

科思ERP部分源码及控件

    AnsiString b_ApridCode;
    int        b_ApridLine;
    AnsiString b_ApridApiCode;
    int        b_ApridApiLine;
    AnsiString b_ApridCavCode;
    int        b_ApridCavLine;
    double     b_ApridAmt;
    AnsiString b_ApridDesc;

    void __fastcall SetApridCode(AnsiString value);
    void __fastcall SetApridLine(int value);
    void __fastcall SetApridApiCode(AnsiString value);
    void __fastcall SetApridApiLine(int value);
    void __fastcall SetApridCavCode(AnsiString value);
    void __fastcall SetApridCavLine(int value);
    void __fastcall SetApridAmt(double value);
    void __fastcall SetApridDesc(AnsiString value);

    __property  AnsiString ApridCode={read=m_ApridCode,write=SetApridCode};
    __property  int        ApridLine={read=m_ApridLine,write=SetApridLine};
    __property  AnsiString ApridApiCode={read=m_ApridApiCode,write=SetApridApiCode};
    __property  int        ApridApiLine={read=m_ApridApiLine,write=SetApridApiLine};
    __property  AnsiString ApridCavCode={read=m_ApridCavCode,write=SetApridCavCode};
    __property  int        ApridCavLine={read=m_ApridCavLine,write=SetApridCavLine};
    __property  double     ApridAmt={read=m_ApridAmt,write=SetApridAmt};
    __property  AnsiString ApridDesc={read=m_ApridDesc,write=SetApridDesc};

public:
    TsdAprid(TDataComm *DC);
    TsdAprid();
    ~TsdAprid();
    TsdAprih *sdParent;

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

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

    AnsiString GetFieldValue(euAprid sdFieldName);
    AnsiString GetOldFieldValue(euAprid sdFieldName);
    void SetFieldValue(euAprid sdFieldName, AnsiString value);
};
//**************************************
//     TsdAprih  应付红字发票冲销单头
//**************************************
class _EXPORT_TYPE TsdAprih: public TsdHead
{
private:

    TsdAprid*m_sdAprid;
    TsdAprid*b_sdAprid;
    AnsiString m_AprihCode;   //红字发票冲销单号
    AnsiString m_AprihDate;   //日期
    AnsiString m_AprihUser;   //操作员
    int        m_AprihCheck;   //审核标志
    AnsiString m_AprihChecker;   //审核人
    AnsiString m_AprihCheckDate;   //审核日期
    AnsiString m_AprihDesc;   //备注
    AnsiString m_AprihSysDate;   //系统日期
//backup
    AnsiString b_AprihCode;
    AnsiString b_AprihDate;
    AnsiString b_AprihUser;
    int        b_AprihCheck;
    AnsiString b_AprihChecker;
    AnsiString b_AprihCheckDate;
    AnsiString b_AprihDesc;
    AnsiString b_AprihSysDate;

    void __fastcall SetAprihCode(AnsiString value);
    void __fastcall SetAprihDate(AnsiString value);
    void __fastcall SetAprihUser(AnsiString value);
    void __fastcall SetAprihCheck(int value);
    void __fastcall SetAprihChecker(AnsiString value);
    void __fastcall SetAprihCheckDate(AnsiString value);
    void __fastcall SetAprihDesc(AnsiString value);
    void __fastcall SetAprihSysDate(AnsiString value);

    __property  AnsiString AprihCode={read=m_AprihCode,write=SetAprihCode};
    __property  AnsiString AprihDate={read=m_AprihDate,write=SetAprihDate};
    __property  AnsiString AprihUser={read=m_AprihUser,write=SetAprihUser};
    __property  int        AprihCheck={read=m_AprihCheck,write=SetAprihCheck};
    __property  AnsiString AprihChecker={read=m_AprihChecker,write=SetAprihChecker};
    __property  AnsiString AprihCheckDate={read=m_AprihCheckDate,write=SetAprihCheckDate};
    __property  AnsiString AprihDesc={read=m_AprihDesc,write=SetAprihDesc};
    __property  AnsiString AprihSysDate={read=m_AprihSysDate,write=SetAprihSysDate};


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

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

    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(TsdAprih *p);
    int  Query();
    bool Find(AnsiString WhereStr);
    void Check(int IsCheck);

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

    AnsiString GetItemValue(euAprid FieldName);
    void SetItemValue(euAprid FieldName, AnsiString value);
    __property int ItemCount  = { read = GetItemCount };
    __property int CurItemNo  = { read = GetCurItemNo };
    __property int  CurItemStatus  = { read = GetCurItemStatus };
    __property AnsiString ItemBookMark  = { read = GetItemBookMark };
};
//**************************************
//     TsdArsapd  应收冲应付单头
//**************************************
class _EXPORT_TYPE TsdArsapd: public TsdDetail
{
private:

    AnsiString m_ArsapdCode;   //单号
    int        m_ArsapdLine;   //行号
    int        m_ArsapdArType;   //应收类型
    AnsiString m_ArsapdArCode;   //应收单号
    int        m_ArsapdArLine;   //应收行号
    AnsiString m_ArsapdArCurrency;   //应收币种
    double     m_ArsapdArAmt;   //应收金额
    int        m_ArsapdApType;   //应付类型
    AnsiString m_ArsapdApCode;   //应付单号
    int        m_ArsapdApLine;   //应付行号
    AnsiString m_ArsapdApCurrency;   //应付币种
    double     m_ArsapdApAmt;   //应付金额
    double     m_ArsapdConv;   //换算系数
    AnsiString m_ArsapdDesc;   //备注
//backup
    AnsiString b_ArsapdCode;
    int        b_ArsapdLine;
    int        b_ArsapdArType;
    AnsiString b_ArsapdArCode;
    int        b_ArsapdArLine;
    AnsiString b_ArsapdArCurrency;
    double     b_ArsapdArAmt;
    int        b_ArsapdApType;
    AnsiString b_ArsapdApCode;
    int        b_ArsapdApLine;
    AnsiString b_ArsapdApCurrency;
    double     b_ArsapdApAmt;
    double     b_ArsapdConv;
    AnsiString b_ArsapdDesc;

    void __fastcall SetArsapdCode(AnsiString value);
    void __fastcall SetArsapdLine(int value);
    void __fastcall SetArsapdArType(int value);
    void __fastcall SetArsapdArCode(AnsiString value);
    void __fastcall SetArsapdArLine(int value);
    void __fastcall SetArsapdArCurrency(AnsiString value);
    void __fastcall SetArsapdArAmt(double value);
    void __fastcall SetArsapdApType(int value);
    void __fastcall SetArsapdApCode(AnsiString value);
    void __fastcall SetArsapdApLine(int value);
    void __fastcall SetArsapdApCurrency(AnsiString value);
    void __fastcall SetArsapdApAmt(double value);
    void __fastcall SetArsapdConv(double value);
    void __fastcall SetArsapdDesc(AnsiString value);

    __property  AnsiString ArsapdCode={read=m_ArsapdCode,write=SetArsapdCode};
    __property  int        ArsapdLine={read=m_ArsapdLine,write=SetArsapdLine};
    __property  int        ArsapdArType={read=m_ArsapdArType,write=SetArsapdArType};
    __property  AnsiString ArsapdArCode={read=m_ArsapdArCode,write=SetArsapdArCode};
    __property  int        ArsapdArLine={read=m_ArsapdArLine,write=SetArsapdArLine};
    __property  AnsiString ArsapdArCurrency={read=m_ArsapdArCurrency,write=SetArsapdArCurrency};
    __property  double     ArsapdArAmt={read=m_ArsapdArAmt,write=SetArsapdArAmt};
    __property  int        ArsapdApType={read=m_ArsapdApType,write=SetArsapdApType};
    __property  AnsiString ArsapdApCode={read=m_ArsapdApCode,write=SetArsapdApCode};
    __property  int        ArsapdApLine={read=m_ArsapdApLine,write=SetArsapdApLine};
    __property  AnsiString ArsapdApCurrency={read=m_ArsapdApCurrency,write=SetArsapdApCurrency};
    __property  double     ArsapdApAmt={read=m_ArsapdApAmt,write=SetArsapdApAmt};
    __property  double     ArsapdConv={read=m_ArsapdConv,write=SetArsapdConv};
    __property  AnsiString ArsapdDesc={read=m_ArsapdDesc,write=SetArsapdDesc};

public:
    TsdArsapd(TDataComm *DC);
    TsdArsapd();
    ~TsdArsapd();
    TsdArsaph *sdParent;

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

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

    AnsiString GetFieldValue(euArsapd sdFieldName);
    AnsiString GetOldFieldValue(euArsapd sdFieldName);
    void SetFieldValue(euArsapd sdFieldName, AnsiString value);
};
//**************************************
//     TsdArsaph  应收冲应付单头
//**************************************
class _EXPORT_TYPE TsdArsaph: public TsdHead
{
private:

    TsdArsapd*m_sdArsapd;
    TsdArsapd*b_sdArsapd;
    AnsiString m_ArsaphCode;   //单号
    AnsiString m_ArsaphDate;   //日期
    AnsiString m_ArsaphUser;   //操作员
    int        m_ArsaphCheck;   //审核标志
    AnsiString m_ArsaphChecker;   //审核人
    AnsiString m_ArsaphCheckDate;   //审核日期
    AnsiString m_ArsaphSysDate;   //系统日期
//backup
    AnsiString b_ArsaphCode;
    AnsiString b_ArsaphDate;
    AnsiString b_ArsaphUser;
    int        b_ArsaphCheck;
    AnsiString b_ArsaphChecker;
    AnsiString b_ArsaphCheckDate;
    AnsiString b_ArsaphSysDate;

    void __fastcall SetArsaphCode(AnsiString value);
    void __fastcall SetArsaphDate(AnsiString value);
    void __fastcall SetArsaphUser(AnsiString value);
    void __fastcall SetArsaphCheck(int value);
    void __fastcall SetArsaphChecker(AnsiString value);
    void __fastcall SetArsaphCheckDate(AnsiString value);
    void __fastcall SetArsaphSysDate(AnsiString value);

    __property  AnsiString ArsaphCode={read=m_ArsaphCode,write=SetArsaphCode};
    __property  AnsiString ArsaphDate={read=m_ArsaphDate,write=SetArsaphDate};
    __property  AnsiString ArsaphUser={read=m_ArsaphUser,write=SetArsaphUser};
    __property  int        ArsaphCheck={read=m_ArsaphCheck,write=SetArsaphCheck};
    __property  AnsiString ArsaphChecker={read=m_ArsaphChecker,write=SetArsaphChecker};
    __property  AnsiString ArsaphCheckDate={read=m_ArsaphCheckDate,write=SetArsaphCheckDate};
    __property  AnsiString ArsaphSysDate={read=m_ArsaphSysDate,write=SetArsaphSysDate};


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

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

    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(TsdArsaph *p);
    int  Query();
    bool Find(AnsiString WhereStr);
    void Check(int IsCheck);
    AnsiString GetFieldValue(euArsaph sdFieldName);
    void SetFieldValue(euArsaph sdFieldName, AnsiString value);

    AnsiString GetItemValue(euArsapd FieldName);
    void SetItemValue(euArsapd FieldName, AnsiString value);
    __property int ItemCount  = { read = GetItemCount };
    __property int CurItemNo  = { read = GetCurItemNo };
    __property int  CurItemStatus  = { read = GetCurItemStatus };
    __property AnsiString ItemBookMark  = { read = GetItemBookMark };
};
//**************************************
//     TsdApcl 应付货币总帐
//**************************************
//--------------------------------------------------------------
class _EXPORT_TYPE TsdApcl: public TsdStandard
{
private:

    AnsiString m_ApclFmonth;   //月份
    AnsiString m_ApclSupply;   //供应商
    AnsiString m_ApclCurrency;   //币种
    double     m_ApclBoyAmt;   //年初