mpayclassmgr.cpp

科思ERP部分源码及控件

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

#include "mPayClassMgr.h"
//---------------------------------------------------------------------------

#pragma package(smart_init)
//---------------------------------------------------------------------------
char*  __stdcall ValidFieldValue(int ClassCode,int Param)
{
  int result;
  AnsiString retstr;
  switch(ClassCode)
  {
    case 1190101:    //付款类别
      sdPbt=new TKSPbt();
      result=sdPbt->ValidFieldValue(Param);
      if(result!=0)
        retstr=sdPbt->ErrorMessage;
      delete sdPbt;
      break;
    case 1190102:    //应付退款原因
      sdBpr=new TKSBpr();
      result=sdBpr->ValidFieldValue(Param);
      if(result!=0)
        retstr=sdBpr->ErrorMessage;
      delete sdBpr;
      break;
    case 1190103:    //票据退回原因
      sdInr=new TKSInr();
      result=sdInr->ValidFieldValue(Param);
      if(result!=0)
        retstr=sdInr->ErrorMessage;
      delete sdInr;
      break;
    case 1190104:    //应付发票行类型
      sdAplt=new TKSAplt();
      result=sdAplt->ValidFieldValue(Param);
      if(result!=0)
        retstr=sdAplt->ErrorMessage;
      delete sdAplt;
      break;
    case 1190105:    //过期账龄区间
      sdApoAge=new TKSApoAge();
      result=sdApoAge->ValidFieldValue(Param);
      if(result!=0)
        retstr=sdApoAge->ErrorMessage;
      delete sdApoAge;
      break;
    case 1190106:    //未到期账龄区间
      sdApuAge=new TKSApuAge();
      result=sdApuAge->ValidFieldValue(Param);
      if(result!=0)
        retstr=sdApuAge->ErrorMessage;
      delete sdApuAge;
      break;
    case 1190201:    //应付发票
      sdApivh=new TKSApivh();
      result=sdApivh->ValidFieldValue(Param);
      if(result!=0)
        retstr=sdApivh->ErrorMessage;
      delete sdApivh;
      break;
    case 1190202:    //其他应付单
      sdApob=new TKSApob();
      result=sdApob->ValidFieldValue(Param);
      if(result!=0)
        retstr=sdApob->ErrorMessage;
      delete sdApob;
      break;
    case 1190203:    //应付货币总帐
      sdApcl=new TKSApcl();
      result=sdApcl->ValidFieldValue(Param);
      if(result!=0)
        retstr=sdApcl->ErrorMessage;
      delete sdApcl;
      break;
    case 1190301:    //付款单
      sdAppb=new TKSAppb();
      result=sdAppb->ValidFieldValue(Param);
      if(result!=0)
        retstr=sdAppb->ErrorMessage;
      delete sdAppb;
      break;
    case 1190302:    //预付单
      sdPrePb=new TKSPrePb();
      result=sdPrePb->ValidFieldValue(Param);
      if(result!=0)
        retstr=sdPrePb->ErrorMessage;
      delete sdPrePb;
      break;
    case 1190303:    //应付票据
      sdApnp=new TKSApnp();
      result=sdApnp->ValidFieldValue(Param);
      if(result!=0)
        retstr=sdApnp->ErrorMessage;
      delete sdApnp;
      break;
    case 1190304:    //票据付款
      sdNppm=new TKSNppm();
      result=sdNppm->ValidFieldValue(Param);
      if(result!=0)
        retstr=sdNppm->ErrorMessage;
      delete sdNppm;
      break;
    case 1190305:    //票据退回
      sdNpin=new TKSNpin();
      result=sdNpin->ValidFieldValue(Param);
      if(result!=0)
        retstr=sdNpin->ErrorMessage;
      delete sdNpin;
      break;
    case 1190306:    //应付退款单
      sdBkpb=new TKSBkpb();
      result=sdBkpb->ValidFieldValue(Param);
      if(result!=0)
        retstr=sdBkpb->ErrorMessage;
      delete sdBkpb;
      break;
    case 1190401:    //应付核销单
      sdApcavh=new TKSApcavh();
      result=sdApcavh->ValidFieldValue(Param);
      if(result!=0)
        retstr=sdApcavh->ErrorMessage;
      delete sdApcavh;
      break;
    case 1190402:    //应付红字核销单
      sdAprsh=new TKSAprsh();
      result=sdAprsh->ValidFieldValue(Param);
      if(result!=0)
        retstr=sdAprsh->ErrorMessage;
      delete sdAprsh;
      break;
    case 1190403:    //应付红字发票冲销
      sdAprih=new TKSAprih();
      result=sdAprih->ValidFieldValue(Param);
      if(result!=0)
        retstr=sdAprih->ErrorMessage;
      delete sdAprih;
      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();
}
//---------------------------------------------------------------------------