msexch.cpp

科思ERP部分源码及控件

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

#include <vcl.h>
#pragma hdrstop
#include "mSexch.h"
#include "zcomfun.h"

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

#pragma package(smart_init)
TKSSexch *sdSexch;
//---------------------------------------------------------------------------
__fastcall TKSSexch::TKSSexch()
  :TKSMidBase()
{
}
//---------------------------------------------------------------------------
void __fastcall TKSSexch::ValidMasterField(int FieldNo)
{
  switch(FieldNo)
  {
    case 1:  //换货单号
      ValidSexchCode();
      break;
    case 2:  //换货日期
      ValidSexchDate();
      break;
    case 3:  //财务月份
      ValidSexchFmonth();
      break;
    case 4:  //客户编码
      ValidSexchClient();
      break;
    case 5:  //币种
      ValidSexchCurrency();
      break;
    case 6:  //汇率

      ValidSexchEnrate();
      break;
    case 7:  //换货原因
      ValidSexchRr();
      break;
    case 8:  //操作员
      ValidSexchUser();
      break;
    case 9:  //备注
      ValidSexchDesc();
      break;
    case 10:  //审核
      ValidSexchCheck();
      break;
    case 11:  //审核人
      ValidSexchChecker();
      break;
    case 12:  //审核日期

      ValidSexchCheckDate();
      break;
    case 13:  //取消
      ValidSexchCancel();
      break;
    case 14:  //取消日期
      ValidSexchCancelDate();
      break;
  }
}
//---------------------------------------------------------------------------
void __fastcall TKSSexch::ValidSexchCode()  //换货单号
{                   /*
   AnsiString  m_SexchCode;
   AnsiString  b_SexchCode;
   m_SexchCode=ReturnNeedValue(GetMasterValue("SexchCode"),"");
   b_SexchCode=ReturnNeedValue(GetMasterOldValue("SexchCode"),"");
    if(m_SexchCode.IsEmpty())
        throw Exception("换货单编码不能为空!");
    if(m_SexchCode.UpperCase()!= b_SexchCode.UpperCase())
    {
        Query->Close();
        Query->SQL->Clear();
        Query->SQL->Add("SELECT SexchCODE FROM SDSexch WHERE SexchCODE='" +m_SexchCode+"'");
        Query->Open();
        if(Query->RecordCount>0)
        {
            Query->Close();
            throw Exception("换货单'"+m_SexchCode+"'已存在");
        }
        Query->Close();
    }                 */
}
//---------------------------------------------------------------------------
void __fastcall TKSSexch::ValidSexchDate()  //换货日期
{
   AnsiString  m_SexchDate;
   m_SexchDate=ReturnNeedValue(GetMasterValue("SexchDate"),"");
    if(m_SexchDate.IsEmpty())
      throw Exception("换货日期不能为空");
}
//---------------------------------------------------------------------------
void __fastcall TKSSexch::ValidSexchFmonth()  //财务月份
{
   AnsiString  m_SexchFmonth;
   m_SexchFmonth=ReturnNeedValue(GetMasterValue("SexchFmonth"),"");
      if(m_SexchFmonth.IsEmpty())
        throw Exception("财务月份不能为空");
}
//---------------------------------------------------------------------------
void __fastcall TKSSexch::ValidSexchClient()  //客户编码
{                           /*
   AnsiString  m_SexchClient;
   AnsiString  b_SexchClient;
   m_SexchClient=ReturnNeedValue(GetMasterValue("SexchClient"),"");
   b_SexchClient=ReturnNeedValue(GetMasterOldValue("SexchClient"),"");
    if(m_SexchClient.IsEmpty())
        throw Exception("客户编码不能为空!!!");
    if(m_SexchClient != b_SexchClient)
    {
        Query->Close();
        Query->SQL->Clear(),
        Query->SQL->Add("select ClientName from sdClient where ClientCode='"+m_SexchClient+"'");
        Query->Open();
        if(Query->RecordCount<1)
        {
            Query->Close();
            throw Exception("客户:"+ m_SexchClient+" 不存在");
        }
        Query->Close();
    }                         */
}
//---------------------------------------------------------------------------
void __fastcall TKSSexch::ValidSexchCurrency()  //币种
{                          /*
   AnsiString  m_SexchCurrency;
   AnsiString  b_SexchCurrency;
   AnsiString  m_SexchClient=ReturnNeedValue(GetMasterValue("SexchClient"),"");
   m_SexchCurrency=ReturnNeedValue(GetMasterValue("SexchCurrency"),"");
   b_SexchCurrency=ReturnNeedValue(GetMasterOldValue("SexchCurrency"),"");
    if(m_SexchCurrency.IsEmpty())
        throw Exception("换货单的交易币种不能为空!!!");
    if(m_SexchClient.IsEmpty())
      throw Exception("客户代码不能为空");
    if(m_SexchCurrency!=b_SexchCurrency)
    {
      Query->Close();
      Query->SQL->Clear();
      Query->SQL->Add("select currencycode from sdcurrency,sdssd where CurrencyCode=SsdCurrency and currencycode='"+m_SexchCurrency+"' and SsdClient='"+m_SexchClient+"'");
      Query->Open();
      if(Query->RecordCount<=0)
      {
        Query->Close();
        throw Exception("币种代码:"+m_SexchCurrency+"未定义");
      }
      Query->Close();
    }                        */
}
//---------------------------------------------------------------------------
void __fastcall TKSSexch::ValidSexchEnrate()  //汇率
{
  double m_SexchEnrate;
   m_SexchEnrate=ReturnNeedValue(GetMasterValue("SexchEnrate"),0);
   if(m_SexchEnrate<=0)
     throw Exception("汇率值非法!");

}
//---------------------------------------------------------------------------
void __fastcall TKSSexch::ValidSexchRr()  //换货原因
{                          /*
   AnsiString  m_SexchRr;
   m_SexchRr=ReturnNeedValue(GetMasterValue("SexchRr"),"");
    if(m_SexchRr.IsEmpty())
      throw Exception("换货原因不能为空！");
    {
      Query->Close();
      Query->SQL->Clear();
      Query->SQL->Add("select * from sdsexcRr where SexcrrCode='"+m_SexchRr+"'");
      Query->Open();
      if(Query->RecordCount<1)
      {
        Query->Close();
        throw Exception("换货原因未定义");
      }
      Query->Close();
    }                        */
}
//---------------------------------------------------------------------------
void __fastcall TKSSexch::ValidSexchUser()  //操作员
{
}
//---------------------------------------------------------------------------
void __fastcall TKSSexch::ValidSexchDesc()  //备注
{
}
//---------------------------------------------------------------------------
void __fastcall TKSSexch::ValidSexchCheck()  //审核
{
/*   int m_SexchCheck;
   m_SexchCheck=GetMasterValue("SexchCheck");
   int b_SexchCheck;
   b_SexchCheck=GetMasterOldValue("SexchCheck");

    if(m_SexchCheck!=0 && m_SexchCheck!=1)
      throw Exception("审核标志只能取值0-未审,1-已审");
    if(m_SexchCheck!=b_SexchCheck)
     {
      Query->Close();
      Query->SQL->Clear();
      Query->SQL->Add("Select SalerCode,SalerCheck,SalerCancel from sdSaler where SalerCode='"+GetMasterValue("SexchUser")+"'");
      Query->Open();
      if(Query->RecordCount<1)
      {
       Query->Close();
         throw Exception("您没在销售员表中定义！");
       }
       else
       {
       if(Query->FieldValues["SalerCheck"]==0)
         {
          Query->Close();
          throw Exception("您没有审核/反审核权限");
         }
      }
    }*/
}
//---------------------------------------------------------------------------
void __fastcall TKSSexch::ValidSexchChecker()  //审核人
{
/*   AnsiString  m_SexchChecker;
   AnsiString  b_SexchChecker;
   m_SexchChecker=GetMasterValue("SexchChecker");
   b_SexchChecker=GetMasterOldValue("SexchChecker");
   int m_SexchCheck=GetMasterValue("SexchCheck");
    if(m_SexchCheck==1)
    {
      if(m_SexchChecker.IsEmpty())
        throw Exception("审核人不能为空");
      {
        Query->Close();
        Query->SQL->Clear();
        Query->SQL->Add("Select SalerCode,SalerCheck,SalerCancel from sdSaler where SalerCode='"+m_SexchChecker+"'");
        Query->Open();
        if(Query->RecordCount<1)
        {
          Query->Close();
          throw Exception("您没在销售员表中定义！");
        }
        else
        {
          if(Query->FieldValues["SalerCheck"]==0)
          {
            Query->Close();
            throw Exception("您没有审核/反审核权限");
          }
        }
        Query->Close();
      }
    }*/
}
//---------------------------------------------------------------------------
void __fastcall TKSSexch::ValidSexchCheckDate()  //审核日期
{
/*   AnsiString  m_SexchCheckDate;
   m_SexchCheckDate=GetMasterValue("SexchCheckDate");
   int m_SexchCheck=GetMasterValue("SexchCheck");
    if(m_SexchCheck==1)
    {
      if(m_SexchCheckDate.IsEmpty())
        throw Exception("审核日期不能为空");
    }*/
}
//---------------------------------------------------------------------------
void __fastcall TKSSexch::ValidSexchCancel()  //取消
{
/*   int m_SexchCancel;
   m_SexchCancel=GetMasterValue("SexchCancel");
   int b_SexchCancel=GetMasterOldValue("SexchCancel");
    if(m_SexchCancel!=0 && m_SexchCancel!=1)
      throw Exception("取消标志只能取值0-正常,1-已取消");
   if(m_SexchCancel!=b_SexchCancel)
     {
      Query->Close();
      Query->SQL->Clear();
      Query->SQL->Add("Select SalerCode,SalerCheck,SalerCancel from sdSaler where SalerCode='"+GetMasterValue("SexchUser")+"'");
      Query->Open();
      if(Query->RecordCount<1)
      {
       Query->Close();
         throw Exception("您没在销售员表中定义！");
       }
       else
       {
       if(Query->FieldValues["SalerCancel"]==0)
         {
          Query->Close();
          throw Exception("您没有取消/反取消权限");
         }
     }
   }*/
}
//---------------------------------------------------------------------------
void __fastcall TKSSexch::ValidSexchCancelDate()  //取消日期
{
/*   AnsiString  m_SexchCancelDate;
   m_SexchCancelDate=GetMasterValue("SexchCancelDate");
   int m_SexchCancel=GetMasterValue("SexchCancel");
    if(m_SexchCancel==1)
    {
      if(m_SexchCancelDate.IsEmpty())
        throw Exception("取消日期不能为空");
    }*/
}
//---------------------------------------------------------------------------
void __fastcall TKSSexch::ValidDetailField(int FieldNo)
{
 switch(FieldNo)
  {
    case 1:
      ValidSexcdLine();