mapcavh.cpp

科思ERP部分源码及控件

//---------------------------------------------------------------------------

#include <vcl.h>
#pragma hdrstop
#include "mApcavh.h"

//---------------------------------------------------------------------------

#pragma package(smart_init)
TKSApcavh *sdApcavh;
//---------------------------------------------------------------------------
__fastcall TKSApcavh::TKSApcavh()
  :TKSMidBase()
{
}
//---------------------------------------------------------------------------
void __fastcall TKSApcavh::ValidHeadValues()
{
 //核销单号
      ValidApcavhCode();
  //日期
      ValidApcavhDate();
  //单据类型
      ValidApcavhDocType();
  //单据号
      ValidApcavhDocCode();
 //备注
      ValidApcavhDesc();
  //操作员
      ValidApcavhUser();
  //审核标志
      ValidApcavhCheck();
  //审核人
      ValidApcavhChecker();
  //审核日期
      ValidApcavhCheckDate();
  //系统日期
      ValidApcavhSysDate();
}
//---------------------------------------------------------------------------
void __fastcall TKSApcavh::ValidApcavhCode()  //核销单号
{
}
//---------------------------------------------------------------------------
void __fastcall TKSApcavh::ValidApcavhDate()  //日期
{
}

//---------------------------------------------------------------------------
void __fastcall TKSApcavh::ValidApcavhDocType()  //单据类型
{
   int m_ApcavhDocType;
   m_ApcavhDocType=GetMasterValue("ApcavhDocType");
   if (m_ApcavhDocType!=1 && m_ApcavhDocType!=2&& m_ApcavhDocType!=3)
      throw Exception("单据类型只能取值：1-付款单 2-预付单 3-票据!");
}

//---------------------------------------------------------------------------
void __fastcall TKSApcavh::ValidApcavhDocCode()  //单据号
{
   AnsiString  m_ApcavhDocCode;
   int m_ApcavhDocType;
   m_ApcavhDocType=GetMasterValue("ApcavhDocType");
   m_ApcavhDocCode=GetMasterValue("ApcavhDocCode");
   if(m_ApcavhDocType==1)
     {
         Query->Close();
         Query->SQL->Clear();
         Query->SQL->Add("SELECT AppbCode FROM sdAppb WHERE AppbCheck=1 and AppbCode='"+m_ApcavhDocCode+"'");
         Query->Open();
         if(Query->RecordCount<1)
         {
           Query->Close();
           throw Exception("付款单号'"+m_ApcavhDocCode+"'未定义或未审核!");
         }
         Query->Close();
     }
     if(m_ApcavhDocType==2)
     {
         Query->Close();
         Query->SQL->Clear();
         Query->SQL->Add("SELECT PrePbCode FROM sdPrePb WHERE PrePbCheck=1 and PrePbCode='"+m_ApcavhDocCode+"'");
         Query->Open();
         if(Query->RecordCount<1)
         {
           Query->Close();
           throw Exception("预付单号'"+m_ApcavhDocCode+"'未定义或未审核!");
         }
         Query->Close();
     }
     if(m_ApcavhDocType==3)
     {
         Query->Close();
         Query->SQL->Clear();
         Query->SQL->Add("SELECT ApnpCode FROM sdApnp WHERE ApnpCheck=1 and ApnpCode='"+m_ApcavhDocCode+"'");
         Query->Open();
         if(Query->RecordCount<1)
         {
           Query->Close();
           throw Exception("应付票据'"+m_ApcavhDocCode+"'未定义或未审核!");
         }
         Query->Close();
     }
}

//---------------------------------------------------------------------------
void __fastcall TKSApcavh::ValidApcavhDesc()  //备注
{
}
//---------------------------------------------------------------------------
void __fastcall TKSApcavh::ValidApcavhUser()  //操作员
{
/*
   AnsiString  m_ApcavhUser;
   AnsiString  b_ApcavhUser;
   m_ApcavhUser=GetMasterValue("ApcavhUser");
   b_ApcavhUser=GetMasterOldValue("ApcavhUser");
    if(m_ApcavhUser.IsEmpty())
      throw Exception("操作员不能为空!");
    if(m_ApcavhUser.Length()>18)
      throw Exception("操作员长度不能大于18!");
    if(m_ApcavhUser!=b_ApcavhUser)
    {
      Query->Close();
      Query->SQL->Clear();
      Query->SQL->Add("select usercode from sduser where usercode='"+m_ApcavhUser+"'");
      Query->Open();
      if(Query->RecordCount<=0)
      {
        Query->Close();
        throw Exception("操作员:"+m_ApcavhUser+"未定义!");
      }
      Query->Close();
    }
  */
}
//---------------------------------------------------------------------------
void __fastcall TKSApcavh::ValidApcavhCheck()  //审核标志
{
   int m_ApcavhCheck;
   m_ApcavhCheck=GetMasterValue("ApcavhCheck");
    if(m_ApcavhCheck!=0 && m_ApcavhCheck!=1)
       throw Exception("审核标志只能取值: 0-未审核 1-已审核!");
}

//---------------------------------------------------------------------------
void __fastcall TKSApcavh::ValidApcavhChecker()  //审核人
{
/*
   AnsiString  m_ApcavhChecker;
   int   m_ApcavhCheck;
   m_ApcavhChecker=GetMasterValue("ApcavhChecker");
   m_ApcavhCheck=GetMasterValue("ApcavhCheck");
    if(m_ApcavhCheck==1)
    {
      if(m_ApcavhChecker.IsEmpty())
        throw Exception("审核员编码不能为空!");
      if(m_ApcavhChecker.Length()>18)
        throw Exception("审核员长度不能大于18!");
        Query->Close();
        Query->SQL->Clear();
        Query->SQL->Add("select purserCode from sdpurser where purserCheck=1 and pursercode='"+m_ApcavhChecker+"'");
        Query->Open();
        if(Query->RecordCount<=0)
        {
          Query->Close();
          throw Exception("审核员:"+m_ApcavhChecker+"未定义或没有审核权限!");
        }
        Query->Close();
      }
*/
}

//---------------------------------------------------------------------------
void __fastcall TKSApcavh::ValidApcavhCheckDate()  //审核日期
{
}

//---------------------------------------------------------------------------
void __fastcall TKSApcavh::ValidApcavhSysDate()  //系统日期
{
}
//---------------------------------------------------------------------------
void __fastcall TKSApcavh::ValidItemValues()
{
      ValidApcavdCode();
      ValidApcavdLine();
      ValidApcavdDocType();
      ValidApcavdDocCode();
      ValidApcavdDocLine();
      ValidApcavdConv();
      ValidApcavdPAmt();
      ValidApcavdCAmt();
      ValidApcavdDesc();
}
//---------------------------------------------------------------------------
void __fastcall TKSApcavh::ValidApcavdCode()
{
}

//---------------------------------------------------------------------------
void __fastcall TKSApcavh::ValidApcavdLine()
{

}
//---------------------------------------------------------------------------
void __fastcall TKSApcavh::ValidApcavdDocType()
{
   int m_ApcavdDocType;
   m_ApcavdDocType=GetDetailValue("ApcavdDocType");
    if(m_ApcavdDocType!=1&& m_ApcavdDocType!=2)
      throw Exception("单据类型只能取值：1-应付发票 2-应付单!");
}

//---------------------------------------------------------------------------
void __fastcall TKSApcavh::ValidApcavdDocCode()
{
   AnsiString  m_ApcavdDocCode;
   AnsiString  b_ApcavdDocCode;
   int m_ApcavdDocType;
   m_ApcavdDocType=GetDetailValue("ApcavdDocType");
   m_ApcavdDocCode=GetDetailValue("ApcavdDocCode");
   b_ApcavdDocCode=GetDetailOldValue("ApcavdDocCode");
    if(m_ApcavdDocCode!=b_ApcavdDocCode)
    {
      if(m_ApcavdDocType==1)
      {
        Query->Close();
        Query->SQL->Clear();
        Query->SQL->Add("SELECT ApivhCode FROM sdApivh WHERE ApivhCheck=1 and ApivhCode='"+m_ApcavdDocCode+"'");
        Query->Open();
        if(Query->RecordCount<1)
        {
          Query->Close();
          throw Exception("应付发票'"+m_ApcavdDocCode+"'未定义或未审核!");
        }
        Query->Close();
      }
      else
      {
        Query->Close();
        Query->SQL->Clear();
        Query->SQL->Add("SELECT ApobCode FROM sdApob WHERE ApobCheck=1 and ApobCode='"+m_ApcavdDocCode+"'");
        Query->Open();
        if(Query->RecordCount<1)
        {
          Query->Close();
          throw Exception("应付单'"+m_ApcavdDocCode+"'未定义或未审核!");
        }
        Query->Close();
      }
    }
}
//---------------------------------------------------------------------------
void __fastcall TKSApcavh::ValidApcavdDocLine()
{
}
//---------------------------------------------------------------------------
void __fastcall TKSApcavh::ValidApcavdConv()
{
  double m_ApcavdConv;
   m_ApcavdConv=GetDetailValue("ApcavdConv");
    if(m_ApcavdConv<=0)
      throw Exception("换算系数不能小于等于零!");
}

//---------------------------------------------------------------------------
void __fastcall TKSApcavh::ValidApcavdPAmt()
{
  double m_ApcavdPAmt;
   m_ApcavdPAmt=GetDetailValue("ApcavdPAmt");
   if(m_ApcavdPAmt<=0)
      throw Exception("付款数不能小于等于零!");
}

//---------------------------------------------------------------------------
void __fastcall TKSApcavh::ValidApcavdCAmt()
{
  double m_ApcavdCAmt;
   m_ApcavdCAmt=GetDetailValue("ApcavdCAmt");
   if(m_ApcavdCAmt<=0)
      throw Exception("核销额不能小于等于零!");
}

//---------------------------------------------------------------------------
void __fastcall TKSApcavh::ValidApcavdDesc()
{

}
//---------------------------------------------------------------------------
void __fastcall TKSApcavh::CmdExec(AnsiString Param)
{

}
//---------------------------------------------------------------------------