msivoh.cpp

科思ERP部分源码及控件

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

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

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

#pragma package(smart_init)
TKSSivoh *sdSivoh;
//---------------------------------------------------------------------------
__fastcall TKSSivoh::TKSSivoh()
  :TKSMidBase()
{
}
//---------------------------------------------------------------------------
void __fastcall TKSSivoh::ValidMasterField(int FieldNo)
{
  switch(FieldNo)
  {
    case 1:  //发票号码
      ValidSivohCode();
      break;
    case 2:  //发票日期
      ValidSivohDate();
      break;
    case 3:  //发票类型
      ValidSivohType();
      break;
    case 4:  //订单号
      ValidSivohSoCode();
      break;
    case 5:  //客户编码
      ValidSivohClient();
      break;
    case 6:  //客户名称
      ValidSivohClientName();
      break;
    case 7:  //地址
      ValidSivohAddr();
      break;
    case 8:  //开户行名称
      ValidSivohBankName();
      break;
    case 9:  //开户帐号
      ValidSivohBankNo();
      break;
    case 10:  //销售部门
      ValidSivohDept();
      break;
    case 11:  //业务员
      ValidSivohSaler();
      break;
    case 12:  //币种
      ValidSivohCurrency();
      break;
    case 13:  //汇率
      ValidSivohEnrate();
      break;
    case 14:  //税名
      ValidSivohTaxCode();
      break;
    case 15:  //税率
      ValidSivohTaxRate();
      break;
    case 16:  //备注
      ValidSivohDesc();
      break;
    case 17:  //结算方式
      ValidSivohSettleMode();
      break;
    case 18:  //收款日期
      ValidSivohArDate();
      break;
    case 19:  //财务月份
      ValidSivohFmonth();
      break;
    case 20:  //红字
      ValidSivohRed();
      break;
    case 21:  //税号
      ValidSivohTaxNo();
      break;
    case 22:  //电话
      ValidSivohTel();
      break;
    case 23:  //公司帐号
      ValidSivohCacCode();
      break;
    case 24:  //开户行名称
      ValidSivohCacBankName();
      break;
    case 25:  //金额
      ValidSivohAmt();
      break;
    case 26:  //税额
      ValidSivohTaxAmt();
      break;
    case 27:  //价税合计
      ValidSivohSumAmt();
      break;
    case 28:  //折扣
      ValidSivohZkAmt();
      break;
    case 29:  //操作员
      ValidSivohUser();
      break;
    case 30:  //审核
      ValidSivohCheck();
      break;
    case 31:  //审核员
      ValidSivohChecker();
      break;
    case 32:  //审核日期
      ValidSivohCheckDate();
      break;
    case 33:  //作废
      ValidSivohCancel();
      break;
    case 34:  //作废日期
      ValidSivohCancelDate();
      break;
    case 35:  //系统日期
      ValidSivohSysDate();
      break;
  }
}
//---------------------------------------------------------------------------
void __fastcall TKSSivoh::ValidSivohCode()  //发票号码
{
   AnsiString  m_SivohCode;
   AnsiString  b_SivohCode;
   m_SivohCode=GetMasterValue("SivohCode");
   b_SivohCode=GetMasterOldValue("SivohCode");
    if(m_SivohCode.IsEmpty())
        throw Exception("发票单单头编码不能为空!");
    if(m_SivohCode.UpperCase()!=  b_SivohCode.UpperCase())
    {
        Query->Close();
        Query->SQL->Clear();
        Query->SQL->Add("SELECT SivohCODE FROM SDSivoh WHERE SivohCODE='" +m_SivohCode+"'");
        Query->Open();
        if(Query->RecordCount>0)
        {
            Query->Close();
            throw Exception("发票单单头编码'"+m_SivohCode+"'已存在");
        }
        Query->Close();
    }
}
//---------------------------------------------------------------------------
void __fastcall TKSSivoh::ValidSivohDate()  //发票日期
{
   AnsiString  m_SivohDate;
   m_SivohDate=GetMasterValue("SivohDate");
  if(m_SivohDate.IsEmpty())
    throw Exception("开票日期不能为空！");
}
//---------------------------------------------------------------------------
void __fastcall TKSSivoh::ValidSivohType()  //发票类型
{
}
//---------------------------------------------------------------------------
void __fastcall TKSSivoh::ValidSivohSoCode()  //订单号
{
}
//---------------------------------------------------------------------------
void __fastcall TKSSivoh::ValidSivohClient()  //客户编码
{
}
//---------------------------------------------------------------------------
void __fastcall TKSSivoh::ValidSivohClientName()  //客户名称
{
  AnsiString  m_SivohClientName;
   m_SivohClientName=GetMasterValue("SivohClientName");
}
//---------------------------------------------------------------------------
void __fastcall TKSSivoh::ValidSivohAddr()  //地址
{
  AnsiString  m_SivohAddr;
   m_SivohAddr=GetMasterValue("SivohAddr");
}
//---------------------------------------------------------------------------
void __fastcall TKSSivoh::ValidSivohBankName()  //开户行名称
{
   AnsiString  m_SivohBankName;
   m_SivohBankName=GetMasterValue("SivohBankName");
  if(m_SivohBankName.IsEmpty())
     throw Exception("客户银行名称不能为空！");
}
//---------------------------------------------------------------------------
void __fastcall TKSSivoh::ValidSivohBankNo()  //开户帐号
{
   AnsiString  m_SivohBankNo;
   m_SivohBankNo=GetMasterValue("SivohBankNo");
 if(m_SivohBankNo.IsEmpty())
   throw Exception("客户开户帐号不能为空");
  Query->Close();
  Query->SQL->Clear();
  Query->SQL->Add("Select  SsdBankNo,SsdBankName from sdSsd where SsdBankNo='"+m_SivohBankNo+"'");
  Query->Open();
 if(Query->RecordCount<1)
  {
   Query->Close();
   throw Exception("客户开户帐号"+m_SivohBankNo+"不存在");
  }
  Query->Close();
}
//---------------------------------------------------------------------------
void __fastcall TKSSivoh::ValidSivohDept()  //销售部门
{
}
//---------------------------------------------------------------------------
void __fastcall TKSSivoh::ValidSivohSaler()  //业务员
{
   AnsiString  m_SivohSaler;
   m_SivohSaler=GetMasterValue("SivohSaler");
 if(m_SivohSaler.IsEmpty())
    throw Exception("销售人员代码不能为空");
}
//---------------------------------------------------------------------------
void __fastcall TKSSivoh::ValidSivohCurrency()  //币种
{
   AnsiString  m_SivohCurrency;
   m_SivohCurrency=GetMasterValue("SivohCurrency");
 if(m_SivohCurrency.IsEmpty())
   throw Exception("币种不能为空！");
}
//---------------------------------------------------------------------------
void __fastcall TKSSivoh::ValidSivohEnrate()  //汇率
{
}
//---------------------------------------------------------------------------
void __fastcall TKSSivoh::ValidSivohTaxCode()  //税名
{
}
//---------------------------------------------------------------------------
void __fastcall TKSSivoh::ValidSivohTaxRate()  //税率
{
}
//---------------------------------------------------------------------------
void __fastcall TKSSivoh::ValidSivohDesc()  //备注
{
}
//---------------------------------------------------------------------------
void __fastcall TKSSivoh::ValidSivohSettleMode()  //结算方式
{
}
//---------------------------------------------------------------------------
void __fastcall TKSSivoh::ValidSivohArDate()  //收款日期
{
}
//---------------------------------------------------------------------------
void __fastcall TKSSivoh::ValidSivohFmonth()  //财务月份
{
}
//---------------------------------------------------------------------------
void __fastcall TKSSivoh::ValidSivohRed()  //红字
{
}
//---------------------------------------------------------------------------
void __fastcall TKSSivoh::ValidSivohTaxNo()  //税号
{
   AnsiString  m_SivohTaxNo;
   AnsiString  b_SivohTaxNo;
   m_SivohTaxNo=GetMasterValue("SivohTaxNo");
   b_SivohTaxNo=GetMasterOldValue("SivohTaxNo");
 if(m_SivohTaxNo.IsEmpty())
    throw Exception("税号不能为空");
 if(m_SivohTaxNo!=b_SivohTaxNo)
  {
  Query->Close();
  Query->SQL->Clear();
  Query->SQL->Add("Select ClientName,ClientTel,ClientAddr,ClientTaxNo from sdClient where ClientCode='"+GetMasterValue("SivohClient")+"' and ClientTaxNo='"+m_SivohTaxNo+"'");
  Query->Open();
  if(Query->RecordCount<1)
  {
    Query->Close();
      throw Exception("该客户税号未定义");
   }
   Query->Close();
  }
}
//---------------------------------------------------------------------------
void __fastcall TKSSivoh::ValidSivohTel()  //电话
{
}
//---------------------------------------------------------------------------
void __fastcall TKSSivoh::ValidSivohCacCode()  //公司帐号