marivh.cpp

科思ERP部分源码及控件

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

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

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

#pragma package(smart_init)
TKSArivh *sdArivh;
//---------------------------------------------------------------------------
__fastcall TKSArivh::TKSArivh()
  :TKSMidBase()
{
}
//---------------------------------------------------------------------------
void __fastcall TKSArivh::ValidHeadValues()
{
  //应收发票号
      ValidArivhCode();
  //月份
      ValidArivhFmonth();
  //日期
      ValidArivhDate();
  //客户
      ValidArivhClient();
  //币种
      ValidArivhCurrency();
  //汇率
      ValidArivhEnrate();
  //红字
      ValidArivhRed();
  //备注
      ValidArivhDesc();
 //应收日期
      ValidArivhRDate();
 //操作员
      ValidArivhUser();
 //审核标志
      ValidArivhCheck();
 //审核人
      ValidArivhChecker();
  //审核日期
      ValidArivhCheckDate();
  //系统日期
      ValidArivhSysDate();
}
//---------------------------------------------------------------------------
void __fastcall TKSArivh::ValidArivhCode()  //应收发票号
{
}

//---------------------------------------------------------------------------
void __fastcall TKSArivh::ValidArivhFmonth()  //月份
{
}

//---------------------------------------------------------------------------
void __fastcall TKSArivh::ValidArivhDate()  //日期
{
}

//---------------------------------------------------------------------------
void __fastcall TKSArivh::ValidArivhClient()  //客户
{
}

//---------------------------------------------------------------------------
void __fastcall TKSArivh::ValidArivhCurrency()  //币种
{

}

//---------------------------------------------------------------------------
void __fastcall TKSArivh::ValidArivhEnrate()  //汇率
{
   double m_ArivhEnrate;
   AnsiString  m_ArivhCurrency;
   m_ArivhCurrency=GetMasterValue("ArivhCurrency");
   m_ArivhEnrate=GetMasterValue("ArivhEnrate");
    if(m_ArivhEnrate<=0 )
       throw Exception("汇率必须大于零");
}
//---------------------------------------------------------------------------
void __fastcall TKSArivh::ValidArivhRed()  //红字
{
}
//---------------------------------------------------------------------------
void __fastcall TKSArivh::ValidArivhDesc()  //备注
{
}
//---------------------------------------------------------------------------
void __fastcall TKSArivh::ValidArivhRDate()  //应收日期
{
}

//---------------------------------------------------------------------------
void __fastcall TKSArivh::ValidArivhUser()  //操作员
{
}

//---------------------------------------------------------------------------
void __fastcall TKSArivh::ValidArivhCheck()  //审核标志
{
}
//---------------------------------------------------------------------------
void __fastcall TKSArivh::ValidArivhChecker()  //审核人
{
/*
   AnsiString  m_ArivhChecker;
   int  m_ArivhCheck;
   m_ArivhChecker=GetMasterValue("ArivhChecker");
   m_ArivhCheck=GetMasterValue("ArivhCheck");
    if(m_ArivhCheck == 1)
    {
      if(m_ArivhChecker.IsEmpty())
        throw Exception("审核员不能为空");
      if(m_ArivhChecker.Length()>18)
        throw Exception("审核员代码长度不能大于18");
      Query->Close();
      Query->SQL->Clear();
      Query->SQL->Add("select PurserCode from sdPurser where PurserCode='"+m_ArivhChecker+"' and PurserCheck=1");
      Query->Open();
      if(Query->RecordCount<=0)
      {
        Query->Close();
        throw Exception("审核员'"+m_ArivhChecker+"'未定义或没有审核权限");
      }
      Query->Close();
    }
*/
}

//---------------------------------------------------------------------------
void __fastcall TKSArivh::ValidArivhCheckDate()  //审核日期
{
}
//---------------------------------------------------------------------------
void __fastcall TKSArivh::ValidArivhSysDate()  //系统日期
{
}
//---------------------------------------------------------------------------
void __fastcall TKSArivh::ValidItemValues()
{
      ValidArivdCode();
      ValidArivdLine();
      ValidArivdArlt();
      ValidArivdDocType();
      ValidArivdDocCode();
      ValidArivdDocLine();
      ValidArivdGoods();
      ValidArivdUnit();
      ValidArivdQty();
      ValidArivdPrice();
      ValidArivdTaxCode();
      ValidArivdTRate();
      ValidArivdTAmt();
      ValidArivdNAmt();
      ValidArivdAmt();
      ValidArivdDRate();
      ValidArivdDAmt();
      ValidArivdCAmt();
      ValidArivdRAmt();
      ValidArivdFrom();
      ValidArivdState();
      ValidArivdDesc();
      ValidArivdPzCode();
      ValidArivdBAmt();
}
//---------------------------------------------------------------------------
void __fastcall TKSArivh::ValidArivdCode()
{
}
//---------------------------------------------------------------------------
void __fastcall TKSArivh::ValidArivdLine()
{
   int m_ArivdLine;
   int b_ArivdLine;
   AnsiString m_ArivdCode;
   m_ArivdCode=GetDetailValue("ArivdCode");
   m_ArivdLine=GetDetailValue("ArivdLine");
   b_ArivdLine=GetDetailOldValue("ArivdLine");
    if(m_ArivdLine < 1)
     throw Exception("行号必须大于0");
}

//---------------------------------------------------------------------------
void __fastcall TKSArivh::ValidArivdArlt()
{
}

//---------------------------------------------------------------------------
void __fastcall TKSArivh::ValidArivdDocType()
{
   int m_ArivdDocType;
   m_ArivdDocType=GetDetailValue("ArivdDocType");
    if(m_ArivdDocType<0 || m_ArivdDocType>3)
     throw Exception("行生成来源只能为：0-不生成，1-来源发货单，2-来源退货单，3-来源应收发票");
}

//---------------------------------------------------------------------------
void __fastcall TKSArivh::ValidArivdDocCode()
{
}
//---------------------------------------------------------------------------
void __fastcall TKSArivh::ValidArivdDocLine()
{
}
//---------------------------------------------------------------------------
void __fastcall TKSArivh::ValidArivdGoods()
{
}

//---------------------------------------------------------------------------
void __fastcall TKSArivh::ValidArivdUnit()
{
   AnsiString  m_ArivdUnit;
   m_ArivdUnit=GetDetailValue("ArivdUnit");
   AnsiString  m_ArivdGoods;
   m_ArivdGoods=GetDetailValue("ArivdGoods");
    if(!m_ArivdGoods.IsEmpty() && m_ArivdUnit.IsEmpty())
     throw Exception("请输入物料的计量单位");
}

//---------------------------------------------------------------------------
void __fastcall TKSArivh::ValidArivdQty()
{
  double m_ArivdQty;
   m_ArivdQty=GetDetailValue("ArivdQty");
    if(m_ArivdQty<0)
     throw Exception("数量不能小于0");
}

//---------------------------------------------------------------------------
void __fastcall TKSArivh::ValidArivdPrice()
{
  double m_ArivdPrice;
   m_ArivdPrice=GetDetailValue("ArivdPrice");
    if(m_ArivdPrice<0)
     throw Exception("单价不能小于0");
}

//---------------------------------------------------------------------------
void __fastcall TKSArivh::ValidArivdTaxCode()
{
}

//---------------------------------------------------------------------------
void __fastcall TKSArivh::ValidArivdTRate()
{
  double m_ArivdTRate;
   m_ArivdTRate=GetDetailValue("ArivdTRate");
    if(m_ArivdTRate<0)
     throw Exception("税率不能小于0");
}

//---------------------------------------------------------------------------
void __fastcall TKSArivh::ValidArivdTAmt()
{
  double m_ArivdTAmt;
   m_ArivdTAmt=GetDetailValue("ArivdTAmt");
    if(m_ArivdTAmt<0)
     throw Exception("税额不能小于0");
}
//---------------------------------------------------------------------------
void __fastcall TKSArivh::ValidArivdNAmt()
{
  double m_ArivdNAmt;
   m_ArivdNAmt=GetDetailValue("ArivdNAmt");
    if(m_ArivdNAmt<0)
     throw Exception("净额不能小于0");
}
//---------------------------------------------------------------------------
void __fastcall TKSArivh::ValidArivdAmt()
{
  double m_ArivdAmt;
   m_ArivdAmt=GetDetailValue("ArivdAmt");
    if(m_ArivdAmt<=0)
     throw Exception("发票行金额必须大于0");
}
//---------------------------------------------------------------------------
void __fastcall TKSArivh::ValidArivdDRate()
{
  double m_ArivdDRate;
   m_ArivdDRate=GetDetailValue("ArivdDRate");
    if(m_ArivdDRate<0)
     throw Exception("折扣率不能小于0");
}
//---------------------------------------------------------------------------
void __fastcall TKSArivh::ValidArivdDAmt()
{
  double m_ArivdDAmt;
   m_ArivdDAmt=GetDetailValue("ArivdDAmt");
    if(m_ArivdDAmt<0)
     throw Exception("折扣额不能小于0");
}
//---------------------------------------------------------------------------
void __fastcall TKSArivh::ValidArivdCAmt()
{
}
//---------------------------------------------------------------------------
void __fastcall TKSArivh::ValidArivdRAmt()
{
}
//---------------------------------------------------------------------------
void __fastcall TKSArivh::ValidArivdFrom()
{
}
//---------------------------------------------------------------------------
void __fastcall TKSArivh::ValidArivdState()
{
}

//---------------------------------------------------------------------------
void __fastcall TKSArivh::ValidArivdDesc()
{
}
//---------------------------------------------------------------------------
void __fastcall TKSArivh::ValidArivdPzCode()
{
}
//---------------------------------------------------------------------------
void __fastcall TKSArivh::ValidArivdBAmt()
{
}
//---------------------------------------------------------------------------
void __fastcall TKSArivh::CmdExec(AnsiString Param)
{

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