mpurchaseclassmgr.cpp

科思ERP部分源码及控件

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

#include "mPurchaseClassMgr.h"
//---------------------------------------------------------------------------

#pragma package(smart_init)
//---------------------------------------------------------------------------
char*  __stdcall ValidFieldValue(int ClassCode,int Param)
{
  int result;
  AnsiString retstr;
  switch(ClassCode)
  {
    case 1040101:    //供应商类型
      sdPtype=new TKSPtype();
      result=sdPtype->ValidFieldValue(Param);
      if(result!=0)
        retstr=sdPtype->ErrorMessage;
      delete sdPtype;
      break;
    case 1040102:    //采购方式
      sdPmode=new TKSPmode();
      result=sdPmode->ValidFieldValue(Param);
      if(result!=0)
        retstr=sdPmode->ErrorMessage;
      delete sdPmode;
      break;
    case 1040103:    //采购员资料
      sdBuyer=new TKSBuyer();
      result=sdBuyer->ValidFieldValue(Param);
      if(result!=0)
        retstr=sdBuyer->ErrorMessage;
      delete sdBuyer;
      break;
    case 1040104:    //供应商资料
      sdSupply=new TKSSupply();
      result=sdSupply->ValidFieldValue(Param);
      if(result!=0)
        retstr=sdSupply->ErrorMessage;
      delete sdSupply;
      break;
    case 1040105:    //供应商交货地点
      sdPsite=new TKSPsite();
      result=sdPsite->ValidFieldValue(Param);
      if(result!=0)
        retstr=sdPsite->ErrorMessage;
      delete sdPsite;
      break;
    case 1040106:    //供应商结算方式
      sdPsd=new TKSPsd();
      result=sdPsd->ValidFieldValue(Param);
      if(result!=0)
         retstr=sdPsd->ErrorMessage;
      delete sdPsd;
      break;
    case 1040108:    //供应商物品资料
      sdPgd=new TKSPgd();
      result=sdPgd->ValidFieldValue(Param);
      if(result!=0)
        retstr=sdPgd->ErrorMessage;
      delete sdPgd;
      break;
    case 1040109:    //供应商货物报价单
      sdPquote=new TKSPquote();
      result=sdPquote->ValidFieldValue(Param);
      if(result!=0)
        retstr=sdPquote->ErrorMessage;
      delete sdPquote;
      break;
    case 1040111:    //请购单取消原因
      sdRpoCr=new TKSRpoCr();
      result=sdRpoCr->ValidFieldValue(Param);
      if(result!=0)
        retstr=sdRpoCr->ErrorMessage;
      delete sdRpoCr;
      break;
    case 1040112:    //信誉等级
      sdCredit=new TKSCredit();
      result=sdCredit->ValidFieldValue(Param);
      if(result!=0)
        retstr=sdCredit->ErrorMessage;
      delete sdCredit;
      break;
    case 1040113:    //采购退货原因
      sdPretRr=new TKSPretRr();
      result=sdPretRr->ValidFieldValue(Param);
      if(result!=0)
        retstr=sdPretRr->ErrorMessage;
      delete sdPretRr;
      break;
    case 1040202:    //请购单
      sdRpoh=new TKSRpoh();
      result=sdRpoh->ValidFieldValue(Param);
      if(result!=0)
        retstr=sdRpoh->ErrorMessage;
      delete sdRpoh;
      break;
    case 1040301:    //采购单
      sdPoh=new TKSPoh();
      result=sdPoh->ValidFieldValue(Param);
      if(result!=0)
        retstr=sdPoh->ErrorMessage;
      delete sdPoh;
      break;
    case 1040308:    //采购费用分摊
      sdPbeh=new TKSPbeh();
      result=sdPbeh->ValidFieldValue(Param);
      if(result!=0)
        retstr=sdPbeh->ErrorMessage;
      delete sdPbeh;
      break;
    case 1040309:    //供应商催货函
      sdUlh=new TKSUlh();
      result=sdUlh->ValidFieldValue(Param);
      if(result!=0)
        retstr=sdUlh->ErrorMessage;
      delete sdUlh;
      break;
    case 1040401:    //采购收货单（按订单）
      sdPrech_P_I=new TKSPrech_P_I();
      result=sdPrech_P_I->ValidFieldValue(Param);
      if(result!=0)
        retstr=sdPrech_P_I->ErrorMessage;
      delete sdPrech_P_I;
      break;
    case 1040403:    //货物在途登记
      sdZth=new TKSZth();
      result=sdZth->ValidFieldValue(Param);
      if(result!=0)
        retstr=sdZth->ErrorMessage;
      delete sdZth;
      break;
    case 1040405:    //采购收货（非计划）
      sdPrech_N_I=new TKSPrech_N_I();
      result=sdPrech_N_I->ValidFieldValue(Param);
      if(result!=0)
        retstr=sdPrech_N_I->ErrorMessage;
      delete sdPrech_N_I;
      break;
    case 1040406:    //采购退货
      sdPreth=new TKSPreth();
      result=sdPreth->ValidFieldValue(Param);
      if(result!=0)
        retstr=sdPreth->ErrorMessage;
      delete sdPreth;
      break;
    case 1040412:    //采购发票
      sdPivoh=new TKSPivoh();
      result=sdPivoh->ValidFieldValue(Param);
      if(result!=0)
        retstr=sdPivoh->ErrorMessage;
      delete sdPivoh;
      break;
    case 1040502:    //采购计划
      sdBplan=new TKSBplan();
      result=sdBplan->ValidFieldValue(Param);
      if(result!=0)
        retstr=sdBplan->ErrorMessage;
      delete sdBplan;
      break;
    case 1040505:    //采购计划周期
      sdPeriod=new TKSPeriod();
      result=sdPeriod->ValidFieldValue(Param);
      if(result!=0)
        retstr=sdPeriod->ErrorMessage;
      delete sdPeriod;
      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();
}
//---------------------------------------------------------------------------