mfinanceclassmgr.cpp

科思ERP部分源码及控件

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

#include "mFinanceClassMgr.h"
//---------------------------------------------------------------------------

#pragma package(smart_init)
//---------------------------------------------------------------------------
char*  __stdcall ValidFieldValue(int ClassCode,int Param)
{
  int result;
  AnsiString retstr;
  switch(ClassCode)
  {
    case 1100101:    //科目表
      sdGlkm=new TKSGlkm();
      result=sdGlkm->ValidFieldValue(Param);
      if(result!=0)
        retstr=sdGlkm->ErrorMessage;
      delete sdGlkm;
      break;
    case 1100102:    //凭证类型
      sdFvct=new TKSFvct();
      result=sdFvct->ValidFieldValue(Param);
      if(result!=0)
        retstr=sdFvct->ErrorMessage;
      delete sdFvct;
      break;
    case 1100103:    //个人所得税率
      sdInTax=new TKSInTax();
      result=sdInTax->ValidFieldValue(Param);
      if(result!=0)
        retstr=sdInTax->ErrorMessage;
      delete sdInTax;
      break;
    case 1100104:    //会计员
      sdPurser=new TKSPurser();
      result=sdPurser->ValidFieldValue(Param);
      if(result!=0)
        retstr=sdPurser->ErrorMessage;
      delete sdPurser;
      break;
    case 1100105:    //出纳员
      sdCashier=new TKSCashier();
      result=sdCashier->ValidFieldValue(Param);
      if(result!=0)
        retstr=sdCashier->ErrorMessage;
      delete sdCashier;
      break;
    case 1100106:    //帐号权限
      sdArd=new TKSArd();
      result=sdArd->ValidFieldValue(Param);
      if(result!=0)
        retstr=sdArd->ErrorMessage;
      delete sdArd;
      break;
    case 1100107:    //帐户管理
      sdCac=new TKSCac();
      result=sdCac->ValidFieldValue(Param);
      if(result!=0)
        retstr=sdCac->ErrorMessage;
      delete sdCac;
      break;
    case 1100201:    //出纳日记帐
      sdFbb=new TKSFbb();
      result=sdFbb->ValidFieldValue(Param);
      if(result!=0)
        retstr=sdFbb->ErrorMessage;
      delete sdFbb;
      break;
    case 1100202:    //银行对帐单
      sdBcs=new TKSBcs();
      result=sdBcs->ValidFieldValue(Param);
      if(result!=0)
        retstr=sdBcs->ErrorMessage;
      delete sdBcs;
      break;
    case 1100203:    //现金盘点表
      sdCts=new TKSCts();
      result=sdCts->ValidFieldValue(Param);
      if(result!=0)
        retstr=sdCts->ErrorMessage;
      delete sdCts;
      break;
    case 1100301:    //财务总帐
      sdGlb=new TKSGlb();
      result=sdGlb->ValidFieldValue(Param);
      if(result!=0)
        retstr=sdGlb->ErrorMessage;
      delete sdGlb;
      break;
    case 1100302:    //凭证维护
      sdPzh=new TKSPzh();
      result=sdPzh->ValidFieldValue(Param);
      if(result!=0)
        retstr=sdPzh->ErrorMessage;
      delete sdPzh;
      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();
}
//---------------------------------------------------------------------------