mapivh.cpp

科思ERP部分源码及控件

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

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

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

#pragma package(smart_init)
TKSApivh *sdApivh;
//---------------------------------------------------------------------------
__fastcall TKSApivh::TKSApivh()
  :TKSMidBase()
{
}
//---------------------------------------------------------------------------
void __fastcall TKSApivh::ValidHeadValues()
{
  //发票号
      ValidApivhCode();
  //月份
      ValidApivhFmonth();
  //日期
      ValidApivhDate();
  //供应商
      ValidApivhSupply();
  //币种
      ValidApivhCurrency();
 //汇率
      ValidApivhEnrate();
  //备注
      ValidApivhDesc();
  //应付日期
      ValidApivhPDate();
  //红字
      ValidApivhRed();
  //操作员
      ValidApivhUser();
  //审核标志
      ValidApivhCheck();
  //审核人
      ValidApivhChecker();
 //审核日期
      ValidApivhCheckDate();
  //系统日期
      ValidApivhSysDate();
}
//---------------------------------------------------------------------------
void __fastcall TKSApivh::ValidApivhCode()  //发票号
{
}

//---------------------------------------------------------------------------
void __fastcall TKSApivh::ValidApivhFmonth()  //月份
{
}
//---------------------------------------------------------------------------
void __fastcall TKSApivh::ValidApivhDate()  //日期
{
}
//---------------------------------------------------------------------------
void __fastcall TKSApivh::ValidApivhSupply()  //供应商
{
}
//---------------------------------------------------------------------------
void __fastcall TKSApivh::ValidApivhCurrency()  //币种
{
}
//---------------------------------------------------------------------------
void __fastcall TKSApivh::ValidApivhEnrate()  //汇率
{
}
//---------------------------------------------------------------------------
void __fastcall TKSApivh::ValidApivhDesc()  //备注
{
}

//---------------------------------------------------------------------------
void __fastcall TKSApivh::ValidApivhPDate()  //应付日期
{
}

//---------------------------------------------------------------------------
void __fastcall TKSApivh::ValidApivhRed()  //红字
{
  double m_ApivhRed;
   m_ApivhRed=GetMasterValue("ApivhRed");
    if(m_ApivhRed!=-1 && m_ApivhRed!=1)
      throw Exception("红字标志只能取值：1-蓝字 -1-红字!");
}

//---------------------------------------------------------------------------
void __fastcall TKSApivh::ValidApivhUser()  //操作员
{
/*
   AnsiString  m_ApivhUser;
   AnsiString  b_ApivhUser;
   m_ApivhUser=GetMasterValue("ApivhUser");
   b_ApivhUser=GetMasterOldValue("ApivhUser");
    if(m_ApivhUser.IsEmpty())
      throw Exception("操作员不能为空!");
    if(m_ApivhUser.Length()>18)
      throw Exception("操作员长度不能大于18!");
    if(m_ApivhUser!=b_ApivhUser)
    {
      Query->Close();
      Query->SQL->Clear();
      Query->SQL->Add("select usercode from sduser where usercode='"+m_ApivhUser+"'");
      Query->Open();
      if(Query->RecordCount<=0)
      {
        Query->Close();
        throw Exception("操作员:"+m_ApivhUser+"未定义!");
      }
      Query->Close();
    }
  */
}
//---------------------------------------------------------------------------
void __fastcall TKSApivh::ValidApivhCheck()  //审核标志
{
   int m_ApivhCheck;
   m_ApivhCheck=GetMasterValue("ApivhCheck");
    if(m_ApivhCheck!=0 && m_ApivhCheck!=1)
       throw Exception("审核标志只能取值: 0-未审核 1-已审核!");
}

//---------------------------------------------------------------------------
void __fastcall TKSApivh::ValidApivhChecker()  //审核人
{
/*
   AnsiString  m_ApivhChecker;
   AnsiString  b_ApivhChecker;
   AnsiString  m_ApivhCheck;
   m_ApivhChecker=GetMasterValue("ApivhChecker");
   b_ApivhChecker=GetMasterOldValue("ApivhChecker");
   m_ApivhCheck=GetMasterValue("ApivhCheck");
    if(m_ApivhCheck==1)
    {
      if(m_ApivhChecker.IsEmpty())
        throw Exception("审核员编码不能为空!");
      if(m_ApivhChecker.Length()>18)
        throw Exception("审核员长度不能大于18!");
      if(m_ApivhChecker!=b_ApivhChecker)
      {
        Query->Close();
        Query->SQL->Clear();
        Query->SQL->Add("select purserCode from sdpurser where purserCheck=1 and pursercode='"+m_ApivhChecker+"'");
        Query->Open();
        if(Query->RecordCount<=0)
        {
          Query->Close();
          throw Exception("审核员:"+m_ApivhChecker+"未定义或没有审核权限!");
        }
        Query->Close();
      }
    }
    else
      b_ApivhChecker="";
 */
}
//---------------------------------------------------------------------------
void __fastcall TKSApivh::ValidApivhCheckDate()  //审核日期
{
}

//---------------------------------------------------------------------------
void __fastcall TKSApivh::ValidApivhSysDate()  //系统日期
{
}
//---------------------------------------------------------------------------
void __fastcall TKSApivh::ValidItemValues()
{
      ValidApivdCode();
      ValidApivdLine();
      ValidApivdFrom();
      ValidApivdDocType();
      ValidApivdDocCode();
      ValidApivdDocLine();
      ValidApivdGoods();
      ValidApivdUnit();
      ValidApivdQty();
      ValidApivdPrice();
      ValidApivdDRate();
      ValidApivdDAmt();
      ValidApivdTaxCode();
      ValidApivdTRate();
      ValidApivdTAmt();
      ValidApivdNAmt();
      ValidApivdAmt();
      ValidApivdCAmt();
      ValidApivdState();
      ValidApivdDesc();
      ValidApivdRAmt();
}
//---------------------------------------------------------------------------
void __fastcall TKSApivh::ValidApivdCode()
{
}
//---------------------------------------------------------------------------
void __fastcall TKSApivh::ValidApivdLine()
{
   int m_ApivdLine;
   m_ApivdLine=GetDetailValue("ApivdLine");
   AnsiString  m_ApivdCode;
   m_ApivdCode=GetDetailValue("ApivdCode");
    if(m_ApivdLine<=0)
      throw Exception("行号必须大于零");
}

//---------------------------------------------------------------------------
void __fastcall TKSApivh::ValidApivdAplt()
{
}
//---------------------------------------------------------------------------
void __fastcall TKSApivh::ValidApivdFrom()
{
   int m_ApivdFrom;
   m_ApivdFrom=GetDetailValue("ApivdFrom");
    if (m_ApivdFrom!=1 && m_ApivdFrom!=2)
        throw Exception("来源只能取值： 1-手工  2-生成!");
}
//---------------------------------------------------------------------------
void __fastcall TKSApivh::ValidApivdDocType()
{
   int m_ApivdDocType;
   m_ApivdDocType=GetDetailValue("ApivdDocType");
    if (m_ApivdDocType!=1 && m_ApivdDocType!=2)
        throw Exception("单据类型只能取值: 1-收货单  2-退货单!");
}

//---------------------------------------------------------------------------
void __fastcall TKSApivh::ValidApivdDocCode()
{

   AnsiString  m_ApivdDocCode;
   AnsiString  b_ApivdDocCode;
   int        m_ApivdFrom;
   int        m_ApivdDocType;
   m_ApivdFrom =GetDetailValue("ApivdFrom");
   m_ApivdDocType =GetDetailValue("ApivdDocType");
   m_ApivdDocCode=GetDetailValue("ApivdDocCode");
   b_ApivdDocCode=GetDetailOldValue("ApivdDocCode");
   if(m_ApivdFrom==2)
    {
      if(m_ApivdDocCode.LowerCase()!=b_ApivdDocCode.LowerCase())
      {
         if(m_ApivdDocType==1)
         {
           Query->Close();
           Query->SQL->Clear();
           Query->SQL->Add("select PrechCode from sdPrech WHERE PrechCheck=1 and PrechCode='" +m_ApivdDocCode+"'");
           Query->Open();
           if(Query->RecordCount<1)
           {
             Query->Close();
             throw Exception("收货单'"+m_ApivdDocCode+"'未定义或未审核!");
           }
         }
         else
         {
           Query->Close();
           Query->SQL->Clear();
           Query->SQL->Add("select PrethCode from sdPreth WHERE PrethCheck=1 and PrethCode='" +m_ApivdDocCode+"'");
           Query->Open();
           if(Query->RecordCount<1)
           {
             Query->Close();
             throw Exception("退货单'"+m_ApivdDocCode+"'未定义或未审核!");
           }
         }
         Query->Close();
      }
    }
}

//---------------------------------------------------------------------------
void __fastcall TKSApivh::ValidApivdDocLine()
{
}

//---------------------------------------------------------------------------
void __fastcall TKSApivh::ValidApivdGoods()
{
}

//---------------------------------------------------------------------------
void __fastcall TKSApivh::ValidApivdUnit()
{

}

//---------------------------------------------------------------------------
void __fastcall TKSApivh::ValidApivdQty()
{
  double m_ApivdQty;
   m_ApivdQty=GetDetailValue("ApivdQty");
    if(m_ApivdQty<0)
      throw Exception("数量不能小于零!");
}

//---------------------------------------------------------------------------
void __fastcall TKSApivh::ValidApivdPrice()
{
  double m_ApivdPrice;
   m_ApivdPrice=GetDetailValue("ApivdPrice");
    if(m_ApivdPrice<0)
      throw Exception("单价不能小于零!");
}

//---------------------------------------------------------------------------
void __fastcall TKSApivh::ValidApivdDRate()
{
  double m_ApivdDRate;
   m_ApivdDRate=GetDetailValue("ApivdDRate");
    if(m_ApivdDRate<0)
      throw Exception("折扣率不能小于零!");
    if(m_ApivdDRate>1 )
      throw Exception("折扣率不能大于1!");
}

//---------------------------------------------------------------------------
void __fastcall TKSApivh::ValidApivdDAmt()
{
  double m_ApivdDAmt;
   m_ApivdDAmt=GetDetailValue("ApivdDAmt");
    if(m_ApivdDAmt<0 )
      throw Exception("折扣额不能小于零!");
}

//---------------------------------------------------------------------------
void __fastcall TKSApivh::ValidApivdTaxCode()
{
}
//---------------------------------------------------------------------------
void __fastcall TKSApivh::ValidApivdTRate()
{
  double m_ApivdTRate;
   m_ApivdTRate=GetDetailValue("ApivdTRate");
    if(m_ApivdTRate<0)
      throw Exception("税率不能小于零!");
}

//---------------------------------------------------------------------------
void __fastcall TKSApivh::ValidApivdTAmt()
{
  double m_ApivdTAmt;
   m_ApivdTAmt=GetDetailValue("ApivdTAmt");
    if(m_ApivdTAmt<0)
      throw Exception("税额不能小于零!");
}

//---------------------------------------------------------------------------
void __fastcall TKSApivh::ValidApivdNAmt()
{
  double m_ApivdNAmt;
   m_ApivdNAmt=GetDetailValue("ApivdNAmt");
    if(m_ApivdNAmt<0)
      throw Exception("净额不能小于零!");
}

//---------------------------------------------------------------------------
void __fastcall TKSApivh::ValidApivdAmt()
{
  double m_ApivdAmt;
   m_ApivdAmt=GetDetailValue("ApivdAmt");
    if(m_ApivdAmt<0)
      throw Exception("总额不能小于零!");
}

//---------------------------------------------------------------------------
void __fastcall TKSApivh::ValidApivdCAmt()
{
  double m_ApivdCAmt;
   m_ApivdCAmt=GetDetailValue("ApivdCAmt");
    if(m_ApivdCAmt<0)
      throw Exception("核销金额不能小于零!");
}

//---------------------------------------------------------------------------
void __fastcall TKSApivh::ValidApivdState()
{
   int m_ApivdState;
   m_ApivdState=GetDetailValue("ApivdState");
    if(m_ApivdState!=1&&m_ApivdState!=2)
      throw Exception("状态只能为 1-状态一 2-状态二!");
}

//---------------------------------------------------------------------------
void __fastcall TKSApivh::ValidApivdDesc()
{
}

//---------------------------------------------------------------------------
void __fastcall TKSApivh::ValidApivdRAmt()
{
  double m_ApivdRAmt;
   m_ApivdRAmt=GetDetailValue("ApivdRAmt");
    if(m_ApivdRAmt<0)
      throw Exception("红冲金额不能小于零!");
}
//---------------------------------------------------------------------------
void __fastcall TKSApivh::CmdExec(AnsiString Param)
{

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