mreceiveclassmgr.cpp

科思ERP部分源码及控件

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

#include "mReceiveClassMgr.h"
//---------------------------------------------------------------------------

#pragma package(smart_init)
//---------------------------------------------------------------------------
char*  __stdcall ValidFieldValue(int ClassCode,int Param)
{
  int result;
  AnsiString retstr;
  switch(ClassCode)
  {
    case 1180101:    //收款类别
      sdRbt=new TKSRbt();
      result=sdRbt->ValidFieldValue(Param);
      if(result!=0)
        retstr=sdRbt->ErrorMessage;
      delete sdRbt;
      break;
    case 1180102:    //应收发票行类型
      sdArlt=new TKSArlt();
      result=sdArlt->ValidFieldValue(Param);
      if(result!=0)
        retstr=sdArlt->ErrorMessage;
      delete sdArlt;
      break;
    case 1180103:    //票据类型
      sdCant=new TKSCant();
      result=sdCant->ValidFieldValue(Param);
      if(result!=0)
        retstr=sdCant->ErrorMessage;
      delete sdCant;
      break;
    case 1180104:    //坏帐原因
      sdArBdr=new TKSArBdr();
      result=sdArBdr->ValidFieldValue(Param);
      if(result!=0)
        retstr=sdArBdr->ErrorMessage;
      delete sdArBdr;
      break;
    case 1180105:    //退款原因
      sdRfr=new TKSRfr();
      result=sdRfr->ValidFieldValue(Param);
      if(result!=0)
        retstr=sdRfr->ErrorMessage;
      delete sdRfr;
      break;
    case 1180106:    //贴现原因
      sdDcr=new TKSDcr();
      result=sdDcr->ValidFieldValue(Param);
      if(result!=0)
        retstr=sdDcr->ErrorMessage;
      delete sdDcr;
      break;
    case 1180107:    //背书原因
      sdEdsr=new TKSEdsr();
      result=sdEdsr->ValidFieldValue(Param);
      if(result!=0)
        retstr=sdEdsr->ErrorMessage;
      delete sdEdsr;
      break;
    case 1180108:    //退回原因
      sdOutr=new TKSOutr();
      result=sdOutr->ValidFieldValue(Param);
      if(result!=0)
        retstr=sdOutr->ErrorMessage;
      delete sdOutr;
      break;
    case 1180109:    //过期账龄区间
      sdAroAge=new TKSAroAge();
      result=sdAroAge->ValidFieldValue(Param);
      if(result!=0)
        retstr=sdAroAge->ErrorMessage;
      delete sdAroAge;
      break;
    case 1180110:    //未到期账龄区间
      sdAruAge=new TKSAruAge();
      result=sdAruAge->ValidFieldValue(Param);
      if(result!=0)
        retstr=sdAruAge->ErrorMessage;
      delete sdAruAge;
      break;
    case 1180111:    //应收货币明细账
      sdArcl=new TKSArcl();
      result=sdArcl->ValidFieldValue(Param);
      if(result!=0)
        retstr=sdArcl->ErrorMessage;
      delete sdArcl;
      break;
    case 1180201:    //应收发票单头
      sdArivh=new TKSArivh();
      result=sdArivh->ValidFieldValue(Param);
      if(result!=0)
        retstr=sdArivh->ErrorMessage;
      delete sdArivh;
      break;
    case 1180202:    //其他应收单
      sdArob=new TKSArob();
      result=sdArob->ValidFieldValue(Param);
      if(result!=0)
        retstr=sdArob->ErrorMessage;
      delete sdArob;
      break;
    case 1180301:    //收款单
      sdArrb=new TKSArrb();
      result=sdArrb->ValidFieldValue(Param);
      if(result!=0)
        retstr=sdArrb->ErrorMessage;
      delete sdArrb;
      break;
    case 1180302:    //预收单
      sdPreRb=new TKSPreRb();
      result=sdPreRb->ValidFieldValue(Param);
      if(result!=0)
        retstr=sdPreRb->ErrorMessage;
      delete sdPreRb;
      break;
    case 1180303:    //应收票据
      sdArnr=new TKSArnr();
      result=sdArnr->ValidFieldValue(Param);
      if(result!=0)
        retstr=sdArnr->ErrorMessage;
      delete sdArnr;
      break;
    case 1180304:    //票据收款
      sdNrrm=new TKSNrrm();
      result=sdNrrm->ValidFieldValue(Param);
      if(result!=0)
        retstr=sdNrrm->ErrorMessage;
      delete sdNrrm;
      break;
    case 1180305:    //票据贴现
      sdNrdc=new TKSNrdc();
      result=sdNrdc->ValidFieldValue(Param);
      if(result!=0)
        retstr=sdNrdc->ErrorMessage;
      delete sdNrdc;
      break;
    case 1180306:    //票据背书
      sdNrEds=new TKSNrEds();
      result=sdNrEds->ValidFieldValue(Param);
      if(result!=0)
        retstr=sdNrEds->ErrorMessage;
      delete sdNrEds;
      break;
    case 1180307:    //票据退回
      sdNrOut=new TKSNrOut();
      result=sdNrOut->ValidFieldValue(Param);
      if(result!=0)
        retstr=sdNrOut->ErrorMessage;
      delete sdNrOut;
      break;
    case 1180308:    //退款单
      sdRefund=new TKSRefund();
      result=sdRefund->ValidFieldValue(Param);
      if(result!=0)
        retstr=sdRefund->ErrorMessage;
      delete sdRefund;
      break;
    case 1180401:    //应收核销单单头
      sdArcavh=new TKSArcavh();
      result=sdArcavh->ValidFieldValue(Param);
      if(result!=0)
        retstr=sdArcavh->ErrorMessage;
      delete sdArcavh;
      break;
    case 1180402:    //红字核销单单头
      sdArrsh=new TKSArrsh();
      result=sdArrsh->ValidFieldValue(Param);
      if(result!=0)
        retstr=sdArrsh->ErrorMessage;
      delete sdArrsh;
      break;
    case 1180403:    //红字应收单核销
      sdArrsh=new TKSArrsh();
      result=sdArrsh->ValidFieldValue(Param);
      if(result!=0)
        retstr=sdArrsh->ErrorMessage;
      delete sdArrsh;
      break;
    case 1180404:    //红字发票核销单单头
      sdArrih=new TKSArrih();
      result=sdArrih->ValidFieldValue(Param);
      if(result!=0)
        retstr=sdArrih->ErrorMessage;
      delete sdArrih;
      break;
    case 1180501:    //坏账损失
      sdBdl=new TKSBdl();
      result=sdBdl->ValidFieldValue(Param);
      if(result!=0)
        retstr=sdBdl->ErrorMessage;
      delete sdBdl;
      break;
    case 1180502:    //坏账收回
      sdBdrg=new TKSBdrg();
      result=sdBdrg->ValidFieldValue(Param);
      if(result!=0)
        retstr=sdBdrg->ErrorMessage;
      delete sdBdrg;
      break;
    case 1180503:    //坏账准备记提
      sdBdpd=new TKSBdpd();
      result=sdBdpd->ValidFieldValue(Param);
      if(result!=0)
        retstr=sdBdpd->ErrorMessage;
      delete sdBdpd;
      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();
}
//---------------------------------------------------------------------------