msaleclassmgr.cpp

科思ERP部分源码及控件

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

#include "mSaleClassMgr.h"
//---------------------------------------------------------------------------

#pragma package(smart_init)
//---------------------------------------------------------------------------
char*  __stdcall ValidFieldValue(int ClassCode,int Param)
{
  int result;
  AnsiString retstr;
  switch(ClassCode)
  {
    case 1050101:    //销售类型
      sdSmode=new TKSSmode();
      result=sdSmode->ValidFieldValue(Param);
      if(result!=0)
        retstr=sdSmode->ErrorMessage;
      delete sdSmode;
      break;
    case 1050102:    //客户资料
      sdClient=new TKSClient();
      result=sdClient->ValidFieldValue(Param);
      if(result!=0)
        retstr=sdClient->ErrorMessage;
      delete sdClient;
      break;
    case 1050103:    //销售员资料
      sdSaler=new TKSSaler();
      result=sdSaler->ValidFieldValue(Param);
      if(result!=0)
        retstr=sdSaler->ErrorMessage;
      delete sdSaler;
      break;
    case 1050104:    //客户交货地点
      sdSsite=new TKSSsite();
      result=sdSsite->ValidFieldValue(Param);
      if(result!=0)
        retstr=sdSsite->ErrorMessage;
      delete sdSsite;
      break;
    case 1050105:    //客户结算资料
      sdSsd=new TKSSsd();
      result=sdSsd->ValidFieldValue(Param);
      if(result!=0)
        retstr=sdSsd->ErrorMessage;
      delete sdSsd;
      break;
    case 1050106:    //客户商品代码管理
      sdSgd=new TKSSgd();
      result=sdSgd->ValidFieldValue(Param);
      if(result!=0)
        retstr=sdSgd->ErrorMessage;
      delete sdSgd;
      break;
    case 1050107:    //产品报价单
      sdSquote=new TKSSquote();
      result=sdSquote->ValidFieldValue(Param);
      if(result!=0)
        retstr=sdSquote->ErrorMessage;
      delete sdSquote;
      break;
    case 1050108:    //销售价格类型
      sdSpt=new TKSSpt();
      result=sdSpt->ValidFieldValue(Param);
      if(result!=0)
        retstr=sdSpt->ErrorMessage;
      delete sdSpt;
      break;
    case 1050109:    //客户类型
      sdStype=new TKSStype();
      result=sdStype->ValidFieldValue(Param);
      if(result!=0)
        retstr=sdStype->ErrorMessage;
      delete sdStype;
      break;
    case 1050110:    //订单取消原因
      sdSoCr=new TKSSoCr();
      result=sdSoCr->ValidFieldValue(Param);
      if(result!=0)
        retstr=sdSoCr->ErrorMessage;
      delete sdSoCr;
      break;
    case 1050111:    //销售退回原因
      sdSretRr=new TKSSretRr();
      result=sdSretRr->ValidFieldValue(Param);
      if(result!=0)
        retstr=sdSretRr->ErrorMessage;
      delete sdSretRr;
      break;
    case 1050112:    //返修原因
      sdSrewRr=new TKSSrewRr();
      result=sdSrewRr->ValidFieldValue(Param);
      if(result!=0)
        retstr=sdSrewRr->ErrorMessage;
      delete sdSrewRr;
      break;
    case 1050113:    //换货原因
      sdSexcRr=new TKSSexcRr();
      result=sdSexcRr->ValidFieldValue(Param);
      if(result!=0)
        retstr=sdSexcRr->ErrorMessage;
      delete sdSexcRr;
      break;
    case 1050201:    //业务销售计划
      sdSsp=new TKSSsp();
      result=sdSsp->ValidFieldValue(Param);
      if(result!=0)
        retstr=sdSsp->ErrorMessage;
      delete sdSsp;
      break;
    case 1050202:    //物料销售计划
      sdGsp=new TKSGsp();
      result=sdGsp->ValidFieldValue(Param);
      if(result!=0)
        retstr=sdGsp->ErrorMessage;
      delete sdGsp;
      break;
    case 1050301:    //销售订单
      sdSoh=new TKSSoh();
      result=sdSoh->ValidFieldValue(Param);
      if(result!=0)
        retstr=sdSoh->ErrorMessage;
      delete sdSoh;
      break;
/*    case 1050306:    //销售发票
      sdSivoh=new TKSSivoh();
      result=sdSivoh->ValidFieldValue(Param);
      if(result!=0)
        retstr=sdSivoh->ErrorMessage;
      delete sdSivoh;
      break;*/
    case 1050402:    //发货单
      sdSogh=new TKSSogh();
      result=sdSogh->ValidFieldValue(Param);
      if(result!=0)
        retstr=sdSogh->ErrorMessage;
      delete sdSogh;
      break;
    case 1050409:    //发货单
      sdSogh_n=new TKSSogh_N();
      result=sdSogh_n->ValidFieldValue(Param);
      if(result!=0)
        retstr=sdSogh_n->ErrorMessage;
      delete sdSogh_n;
      break;
    case 1050406:    //返修单
      sdSrewh=new TKSSrewh();
      result=sdSrewh->ValidFieldValue(Param);
      if(result!=0)
        retstr=sdSrewh->ErrorMessage;
      delete sdSrewh;
      break;
    case 1050407:    //换货单
      sdSexch=new TKSSexch();
      result=sdSexch->ValidFieldValue(Param);
      if(result!=0)
        retstr=sdSexch->ErrorMessage;
      delete sdSexch;
      break;
    case 1050408:    //销售退货单
      sdSreth=new TKSSreth();
      result=sdSreth->ValidFieldValue(Param);
      if(result!=0)
        retstr=sdSreth->ErrorMessage;
      delete sdSreth;
      break;
    case 1050504:    //销售折让
      sdSzrh=new TKSSzrh();
      result=sdSzrh->ValidFieldValue(Param);
      if(result!=0)
        retstr=sdSzrh->ErrorMessage;
      delete sdSzrh;
      break;
    default:
      break;
  }
  return retstr.c_str();
}
//---------------------------------------------------------------------------
char* __stdcall CommandExecute(int ClassCode,AnsiString Param)
{
  int result;
  AnsiString retstr;
  switch(ClassCode)
  {
    default:
      break;
  }
  return retstr.c_str();
}
//---------------------------------------------------------------------------