msrewh.cpp

科思ERP部分源码及控件

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

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

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

#pragma package(smart_init)
TKSSrewh *sdSrewh;
//---------------------------------------------------------------------------
__fastcall TKSSrewh::TKSSrewh()
  :TKSMidBase()
{
}
//---------------------------------------------------------------------------
void __fastcall TKSSrewh::ValidMasterField(int FieldNo)
{
  switch(FieldNo)
  {
    case 1:  //返修单号
      ValidSrewhCode();
      break;
    case 2:  //返修日期
      ValidSrewhDate();
      break;
    case 3:  //财务月份
      ValidSrewhFmonth();
      break;
    case 4:  //客户编号
      ValidSrewhClient();
      break;
    case 5:  //币种
      ValidSrewhCurrency();
      break;
    case 6:  //汇率
      ValidSrewhEnrate();
      break;
    case 7:  //返修原因
      ValidSrewhRr();
      break;
    case 8:  //操作员
      ValidSrewhUser();
      break;
    case 9:  //备注
      ValidSrewhDesc();
      break;
    case 10:  //审核
      ValidSrewhCheck();
      break;
    case 11:  //审核人
      ValidSrewhChecker();
      break;
    case 12:  //审核日期
      ValidSrewhCheckDate();
      break;
    case 13:  //取消
      ValidSrewhCancel();
      break;
    case 14:  //取消日期
      ValidSrewhCancelDate();
      break;
  }
}
//---------------------------------------------------------------------------
void __fastcall TKSSrewh::ValidSrewhCode()  //返修单号
{                            /*/
   AnsiString  m_SrewhCode;
   AnsiString  b_SrewhCode;
   m_SrewhCode=GetMasterValue("SrewhCode");
   b_SrewhCode=GetMasterOldValue("SrewhCode");
    if(m_SrewhCode.IsEmpty())
        throw Exception("返修单单头编码不能为空!");
    if(m_SrewhCode.UpperCase()!= b_SrewhCode.UpperCase())
    {
        Query->Close();
        Query->SQL->Clear();
        Query->SQL->Add("SELECT SrewhCODE FROM SDSrewh WHERE SrewhCODE='" +m_SrewhCode+"'");
        Query->Open();
        if(Query->RecordCount>0)
        {
            Query->Close();
            throw Exception("返修单单头编码'"+m_SrewhCode+"'已存在");
        }
        Query->Close();
    }                      /*/
}
//---------------------------------------------------------------------------
void __fastcall TKSSrewh::ValidSrewhDate()  //返修日期
{
   AnsiString  m_SrewhDate;
   m_SrewhDate=GetMasterValue("SrewhDate");
    if(m_SrewhDate.IsEmpty())
      throw Exception("返修日期不能为空");
}
//---------------------------------------------------------------------------
void __fastcall TKSSrewh::ValidSrewhFmonth()  //财务月份
{
   AnsiString  m_SrewhFmonth;
   m_SrewhFmonth=GetMasterValue("SrewhFmonth");
    if(m_SrewhFmonth.IsEmpty())
        throw Exception("返修单的财务月份不能为空!!!");
}
//---------------------------------------------------------------------------
void __fastcall TKSSrewh::ValidSrewhClient()  //客户编号
{                            /*/
   AnsiString  m_SrewhClient;
   AnsiString  b_SrewhClient;
   m_SrewhClient=GetMasterValue("SrewhClient");
   b_SrewhClient=GetMasterOldValue("SrewhClient");
    if(m_SrewhClient.IsEmpty())
        throw Exception("客户编码不能为空!!!");
    if(m_SrewhClient != b_SrewhClient)
    {
        Query->Close();
        Query->SQL->Clear(),
        Query->SQL->Add("select ClientName from sdClient where ClientCode='"+m_SrewhClient+"'");
        Query->Open();
        if(Query->RecordCount<1)
        {
            Query->Close();
            throw Exception("客户:"+ m_SrewhClient+" 不存在");
        }
        Query->Close();
    }                       /*/
}
//---------------------------------------------------------------------------
void __fastcall TKSSrewh::ValidSrewhCurrency()  //币种
{                          /*/
   AnsiString  m_SrewhCurrency;
   AnsiString  b_SrewhCurrency;
   AnsiString m_SrewhClient=GetMasterValue("SrewhClient");
   m_SrewhCurrency=GetMasterValue("SrewhCurrency");
   b_SrewhCurrency=GetMasterOldValue("SrewhCurrency");
    if(m_SrewhCurrency.IsEmpty())
        throw Exception("返修单的交易币种不能为空!!!");
    if(m_SrewhClient.IsEmpty())
      throw Exception("客户代码不能为空");
    if(m_SrewhCurrency!=b_SrewhCurrency)
    {
      Query->Close();
      Query->SQL->Clear();
      Query->SQL->Add("select currencycode from sdcurrency,sdssd where CurrencyCode=SsdCurrency and currencycode='"+m_SrewhCurrency+"' and SsdClient='"+m_SrewhClient+"'");
      Query->Open();
      if(Query->RecordCount<=0)
      {
        Query->Close();
        throw Exception("币种代码:"+m_SrewhCurrency+"未定义");
      }
      Query->Close();
    }                      /*/
}
//---------------------------------------------------------------------------
void __fastcall TKSSrewh::ValidSrewhEnrate()  //汇率
{
  double m_SrewhEnrate;
   m_SrewhEnrate=GetMasterValue("SrewhEnrate");
   if(m_SrewhEnrate<=0)
     throw Exception("汇率值非法!");
}
//---------------------------------------------------------------------------
void __fastcall TKSSrewh::ValidSrewhRr()  //返修原因
{                          /*/
   AnsiString  m_SrewhRr;
   AnsiString  b_SrewhRr;
   m_SrewhRr=GetMasterValue("SrewhRr");
   b_SrewhRr=GetMasterOldValue("SrewhRr");
    if(m_SrewhRr.IsEmpty())
      throw Exception("返修原因不能为空！");
   if(m_SrewhRr!=b_SrewhRr)
   {
      Query->Close();
      Query->SQL->Clear();
      Query->SQL->Add("select * from sdSrewRr where SrewrrCode='"+m_SrewhRr+"'");
      Query->Open();
      if(Query->RecordCount<1)
      {
        Query->Close();
        throw Exception("返修原因未定义");
      }
      Query->Close();
    }                      /*/
}
//---------------------------------------------------------------------------
void __fastcall TKSSrewh::ValidSrewhUser()  //操作员
{
}
//---------------------------------------------------------------------------
void __fastcall TKSSrewh::ValidSrewhDesc()  //备注
{
}
//---------------------------------------------------------------------------
void __fastcall TKSSrewh::ValidSrewhCheck()  //审核
{
/*   int m_SrewhCheck;
   m_SrewhCheck=GetMasterValue("SrewhCheck");
   int b_SrewhCheck;
   b_SrewhCheck=GetMasterOldValue("SrewhCheck");
    if(m_SrewhCheck!=0 && m_SrewhCheck!=1)
      throw Exception("审核标志只能取值0-未审,1-已审");
   if(m_SrewhCheck!=b_SrewhCheck)
     {
      Query->Close();
      Query->SQL->Clear();
      Query->SQL->Add("Select SalerCode,SalerCheck,SalerCancel from sdSaler where SalerCode='"+GetMasterValue("SrewhUser")+"'");
      Query->Open();
      if(Query->RecordCount<1)
      {
       Query->Close();
         throw Exception("您没在销售员表中定义！");
       }
       else
       {
       if(Query->FieldValues["SalerCheck"]==0)
         {
          Query->Close();
          throw Exception("您没有审核/反审核权限");
         }
    }
   }*/
}
//---------------------------------------------------------------------------
void __fastcall TKSSrewh::ValidSrewhChecker()  //审核人
{
/*   AnsiString  m_SrewhChecker;
   AnsiString  b_SrewhChecker;
   m_SrewhChecker=GetMasterValue("SrewhChecker");
   b_SrewhChecker=GetMasterOldValue("SrewhChecker");
    if(GetMasterValue("SrewhCheck")==1)
    {
      if(m_SrewhChecker.IsEmpty())
        throw Exception("审核人不能为空");
      {
        Query->Close();
        Query->SQL->Clear();
        Query->SQL->Add("Select SalerCode,SalerCheck,SalerCancel from sdSaler where SalerCode='"+m_SrewhChecker+"'");
        Query->Open();
        if(Query->RecordCount<1)
        {
          Query->Close();
          throw Exception("您没在销售员表中定义！");
        }
        else
        {
          if(Query->FieldValues["SalerCheck"]==0)
          {
            Query->Close();
            throw Exception("您没有审核/反审核权限");
          }
        }
        Query->Close();
      }
    }*/
}
//---------------------------------------------------------------------------
void __fastcall TKSSrewh::ValidSrewhCheckDate()  //审核日期
 {
/*   AnsiString  m_SrewhCheckDate;
   m_SrewhCheckDate=GetMasterValue("SrewhCheckDate");
    if(GetMasterValue("SrewhCheck")==1)
    {
      if(m_SrewhCheckDate.IsEmpty())
        throw Exception("审核日期不能为空");
    }*/
}
//---------------------------------------------------------------------------
void __fastcall TKSSrewh::ValidSrewhCancel()  //取消
{
/*   int m_SrewhCancel;
   m_SrewhCancel=GetMasterValue("SrewhCancel");
   int b_SrewhCancel;
   b_SrewhCancel=GetMasterOldValue("SrewhCancel");

    if(m_SrewhCancel!=0 && m_SrewhCancel!=1)
      throw Exception("取消标志只能取值0-正常,1-已取消");
    if(m_SrewhCancel!=b_SrewhCancel)
     {
      Query->Close();
      Query->SQL->Clear();
      Query->SQL->Add("Select SalerCode,SalerCheck,SalerCancel from sdSaler where SalerCode='"+GetMasterValue("SrewhUser")+"'");
      Query->Open();
      if(Query->RecordCount<1)
      {
       Query->Close();
         throw Exception("您没在销售员表中定义！");
       }
       else
       {
       if(Query->FieldValues["SalerCancel"]==0)
         {
          Query->Close();
          throw Exception("您没有审核/反审核权限");
         }
     }

   }*/
}
//---------------------------------------------------------------------------
void __fastcall TKSSrewh::ValidSrewhCancelDate()  //取消日期
{
/*   AnsiString  m_SrewhCancelDate;
   int  m_SrewhCancel;
   m_SrewhCancelDate=GetMasterValue("SrewhCancelDate");
   m_SrewhCancel=GetMasterValue("SrewhCancel");
    if(m_SrewhCancel==1)
    {
      if(m_SrewhCancelDate.IsEmpty())
        throw Exception("取消日期不能为空");
    }*/
}
//---------------------------------------------------------------------------
void __fastcall TKSSrewh::ValidDetailField(int FieldNo)
{
  switch(FieldNo)
  {
    case 1:
      ValidSrewdLine();
      break;