mbasedocclassmgr.cpp

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

//---------------------------------------------------------------------------
#pragma hdrstop

#include "mBasedocClassMgr.h"
//---------------------------------------------------------------------------

#pragma package(smart_init)
//---------------------------------------------------------------------------
char*  __stdcall ValidFieldValue(int ClassCode,int Param)
{
  int result;
  AnsiString retstr;
  switch(ClassCode)
  {
    case 1030101:    //公司基本资料
      sdCompany=new TKSCompany();
      result=sdCompany->ValidFieldValue(Param);
      if(result!=0)
        retstr=sdCompany->ErrorMessage;
      delete sdCompany;
      break;
    case 1030102:    //税务类型
      sdTax=new TKSTax();
      result=sdTax->ValidFieldValue(Param);
      if(result!=0)
        retstr=sdTax->ErrorMessage;
      delete sdTax;
      break;
    case 1030103:    //币种维护
      sdCurrency=new TKSCurrency();
      result=sdCurrency->ValidFieldValue(Param);
      if(result!=0)
        retstr=sdCurrency->ErrorMessage;
      delete sdCurrency;
      break;
    case 1030104:    //财务月份
      sdFc=new TKSFc();
      result=sdFc->ValidFieldValue(Param);
      if(result!=0)
        retstr=sdFc->ErrorMessage;
      delete sdFc;
      break;
    case 1030105:    //短语手册
      sdNoteBook=new TKSNoteBook();
      result=sdNoteBook->ValidFieldValue(Param);
      if(result!=0)
        retstr=sdNoteBook->ErrorMessage;
      delete sdNoteBook;
      break;
    case 1030106:    //每月汇率
      sdRate=new TKSRate();
      result=sdRate->ValidFieldValue(Param);
      if(result!=0)
        retstr=sdRate->ErrorMessage;
      delete sdRate;
      break;
    case 1030108:    //财务年度
      sdFy=new TKSFy();
      result=sdFy->ValidFieldValue(Param);
      if(result!=0)
        retstr=sdFy->ErrorMessage;
      delete sdFy;
      break;
    case 1030201:    //付款方式
      sdPayMode=new TKSPayMode();
      result=sdPayMode->ValidFieldValue(Param);
      if(result!=0)
        retstr=sdPayMode->ErrorMessage;
      delete sdPayMode;
      break;
    case 1030202:    //结算方式
      sdSettleMode=new TKSSettleMode();
      result=sdSettleMode->ValidFieldValue(Param);
      if(result!=0)
        retstr=sdSettleMode->ErrorMessage;
      delete sdSettleMode;
      break;
    case 1030203:    //计量单位
      sdUnit=new TKSUnit();
      result=sdUnit->ValidFieldValue(Param);
      if(result!=0)
        retstr=sdUnit->ErrorMessage;
      delete sdUnit;
      break;
    case 1030204:    //运输方式
      sdTransMode=new TKSTransMode();
      result=sdTransMode->ValidFieldValue(Param);
      if(result!=0)
        retstr=sdTransMode->ErrorMessage;
      delete sdTransMode;
      break;
    case 1030205:    //部门资料
      sdDept=new TKSDept();
      result=sdDept->ValidFieldValue(Param);
      if(result!=0)
        retstr=sdDept->ErrorMessage;
      delete sdDept;
      break;
    case 1030206:    //地区编码
      sdArea=new TKSArea();
      result=sdArea->ValidFieldValue(Param);
      if(result!=0)
        retstr=sdArea->ErrorMessage;
      delete sdArea;
      break;
    case 1030207:    //行业资料
      sdTrade=new TKSTrade();
      result=sdTrade->ValidFieldValue(Param);
      if(result!=0)
        retstr=sdTrade->ErrorMessage;
      delete sdTrade;
      break;
    case 1030208:    //费用资料
      sdExpense=new TKSExpense();
      result=sdExpense->ValidFieldValue(Param);
      if(result!=0)
        retstr=sdExpense->ErrorMessage;
      delete sdExpense;
      break;
    case 1030209:    //交货方式
      sdDeliver=new TKSDeliver();
      result=sdDeliver->ValidFieldValue(Param);
      if(result!=0)
        retstr=sdDeliver->ErrorMessage;
      delete sdDeliver;
      break;
    default:
      break;
  }
  return retstr.c_str();
}
//---------------------------------------------------------------------------
char* __stdcall CommandExecute(int ClassCode,int Param)
{
  int result;
  AnsiString retstr;
  switch(ClassCode)
  {
    default:
      break;
  }
  return retstr.c_str();
}
//---------------------------------------------------------------------------