emhdl.cpp

邮 电 公 司 erp源码

//---------------------------------------------------------------------------
#include <vcl.h>
#pragma hdrstop
#define _YW_SDERP_DLL
#include "Emhdl.h"

//---------------------------------------------------------------------------
#pragma package(smart_init)
//**************************************
//     TsdFadn   设备增加
//**************************************
//--------------------------------------------------------------
void __fastcall TsdFadn:: SetFadnCode(AnsiString value)
{
    if(value.IsEmpty())
       throw Exception("设备编码不能为空");
    if(value.Length()>18)
        throw Exception("设备编码长度不能大于18");
    if(value!=m_FadnCode)
    {
      m_Query->Close();
      m_Query->SQL->Clear();
      m_Query->SQL->Add("SELECT Fadncode FROM SDFadn WHERE fadncode='" +value+"'");
      m_Query->Open();
      if(m_Query->RecordCount>0)
      {
        m_Query->Close();
        throw Exception("设备编码 '" +value+"' 已存在");
      }
      m_Query->Close();
    }
    m_FadnCode=value;
}
void __fastcall TsdFadn:: SetFadnName(AnsiString value)
{
    if (value.IsEmpty())
       throw Exception("设备名称不能为空");
    if(value.Length()>20)
        throw Exception("设备名称长度不能大于20");
    m_FadnName=value;
}
void __fastcall TsdFadn:: SetFadnDesc(AnsiString value)
{
    if(value.Length()>40)
        throw Exception("备注长度不能大于40");
    m_FadnDesc=value;
}
void __fastcall TsdFadn:: SetFadnFat(AnsiString value)
{
    if (value.IsEmpty())
       throw Exception("设备类型编码不能为空");
    if(value.Length()>18)
      throw Exception("设备类型编码长度不能超过18");
    if (value!=m_FadnFat)
    {
      m_Query->Close();
      m_Query->SQL->Clear();
      m_Query->SQL->Add("SELECT fatcode FROM sdFat where fatcode='"+value+"'");
      m_Query->Open();
      if(m_Query->RecordCount<1 )
      {
        m_Query->Close();
        throw Exception("设备类型编码'" +value+"'未定义");
      }
      m_Query->Close();
    }
    m_FadnFat=value;
}
void __fastcall TsdFadn:: SetFadnUnit(AnsiString value)
{
    if (value.IsEmpty())
       throw Exception("计量单位编码不能为空");
    if(value.Length()>18)
      throw Exception("计量单位编码长度不能超过18");
    if (value!=m_FadnUnit)
    {
      m_Query->Close();
      m_Query->SQL->Clear();
      m_Query->SQL->Add("SELECT unitcode FROM sdunit where unitcode='"+value+"'");
      m_Query->Open();
      if(m_Query->RecordCount<1 )
      {
        m_Query->Close();
        throw Exception("计量单位编码'" +value+"'未定义");
      }
      m_Query->Close();
    }
    m_FadnUnit=value;
}
void __fastcall TsdFadn:: SetFadnDate(AnsiString value)
{
    if (value.IsEmpty())
       throw Exception("入帐日期不能为空");
    if(value.Length()>10)
      throw Exception("入帐日期长度不能超过10");
    m_FadnDate=Validate(value);
}
void __fastcall TsdFadn:: SetFadnFmonth(AnsiString value)
{
    if (value.IsEmpty())
      throw Exception("财务月份不能为空");
    if(value.Length()>6)
      throw Exception("财务月份长度不能超过6");
       m_FadnFmonth=value;
}
void __fastcall TsdFadn:: SetFadnFaUse(AnsiString value)
{
    if (value.IsEmpty())
      throw Exception("使用状态编码不能为空");
    if(value.Length()>18)
      throw Exception("使用状态编码长度不能超过18");
    if (value!=m_FadnFaUse)
    {
      m_Query->Close();
      m_Query->SQL->Clear();
      m_Query->SQL->Add("SELECT fausecode FROM sdfause where fausecode='"+value+"'");
      m_Query->Open();
      if(m_Query->RecordCount<1 )
      {
        m_Query->Close();
        throw Exception("使用状态编码'" +value+"'未定义");
      }
      m_Query->Close();
    }
    m_FadnFaUse=value;
}
void __fastcall TsdFadn:: SetFadnAddr(AnsiString value)
{
    if(value.Length()>40)
      throw Exception("存放地点长度不能超过40");
    m_FadnAddr=value;
}
void __fastcall TsdFadn:: SetFadnEuse(int    value)
{
    if(value!=1&&value!=2)
      throw Exception("济济用途只能取: 1 -经营用固定资产, 2-非经营用固定资产");
    m_FadnEuse=value;
}
void __fastcall TsdFadn:: SetFadnFav(AnsiString value)
{
    if(value.Length()>18)
      throw Exception("变动方式长度不能超过18");
    m_FadnFav=value;
}
void __fastcall TsdFadn:: SetFadnModel(AnsiString value)
{
    if(value.Length()>18)
      throw Exception("规格型号长度不能超过18");
       m_FadnModel=value;
}
void __fastcall TsdFadn:: SetFadnSupply(AnsiString value)
{
    if(value.Length()>18)
      throw Exception("供应商编码长度不能超过18");
    if (value!=m_FadnSupply)
    {
      m_Query->Close();
      m_Query->SQL->Clear();
      m_Query->SQL->Add("SELECT supplycode FROM sdsupply where  SupplyCancel=0 and supplycode='"+value+"'");
      m_Query->Open();
      if(m_Query->RecordCount<1 )
      {
        m_Query->Close();
        throw Exception("供应商编码'" +value+"'未定义或已停用");
      }
      m_Query->Close();
    }
    m_FadnSupply=value;
}
void __fastcall TsdFadn:: SetFadnFactory(AnsiString value)
{
    if(value.Length()>40)
      throw Exception("制造商长度不能超过40");
    m_FadnFactory=value;
}
void __fastcall TsdFadn:: SetFadnArea(AnsiString value)
{
    if(value.Length()>40)
      throw Exception("产地长度不能超过40");
    m_FadnArea=value;
}
void __fastcall TsdFadn:: SetFadnOfDate(AnsiString value)
{
    AnsiString TempDate;
    if (value.IsEmpty())
       throw Exception("出产日期不能为空");
    if(value.Length()>10)
      throw Exception("出产日期长度不能超过10");
    TempDate=Validate(value);
    if(TempDate> m_FadnDate)
      throw Exception("出产日期长度不能大于入帐日期。");
    m_FadnOfDate=Validate(value);
}
void __fastcall TsdFadn:: SetFadnDept(AnsiString value)
{
    if (value.IsEmpty())
      throw Exception("所属部门编码不能为空");
    if(value.Length()>18)
      throw Exception("所属部门编码长度不能超过18");
    if (value!=m_FadnDept)
    {
      m_Query->Close();
      m_Query->SQL->Clear();
      m_Query->SQL->Add("SELECT deptcode FROM sddept where deptcode='"+value+"'");
      m_Query->Open();
      if(m_Query->RecordCount<1 )
      {
        m_Query->Close();
        throw Exception("所属部门编码'" +value+"'未定义");
      }
      m_Query->Close();
    }
    m_FadnDept=value;
}
void __fastcall TsdFadn:: SetFadnCurrency(AnsiString value)
{
    if(value.Length()>18)
      throw Exception("币种代码长度不能超过18");
    if (value!=m_FadnCurrency)
    {
      m_Query->Close();
      m_Query->SQL->Clear();
      m_Query->SQL->Add("SELECT currencycode FROM sdcurrency where currencycode='"+value+"'");
      m_Query->Open();
      if(m_Query->RecordCount<1 )
      {
        m_Query->Close();
        throw Exception("币种代码'" +value+"'未定义");
      }
      m_Query->Close();
    }
    m_FadnCurrency=value;
}
void __fastcall TsdFadn:: SetFadnERate(double  value)
{
    if(value<=0)
     throw Exception("汇率不能小于等于零");
    m_FadnERate=value;
}
void __fastcall TsdFadn:: SetFadnOVal(double  value)
{
    if(value<0)
       throw Exception("本币原值不能小于零");
    m_FadnOVal=value;
}
void __fastcall TsdFadn:: SetFadnWbOVal(double  value)
{
    if(value<0)
       throw Exception("外币原值不能小于零");
    m_FadnWbOVal=value;
}
void __fastcall TsdFadn:: SetFadnPVal(double  value)
{
    if(value<0)
      throw Exception("最初原值不能小于零");
    if(m_FadnOVal>value)
      throw Exception("本币原值不能大于最初原值");
    m_FadnPVal=value;
}
void __fastcall TsdFadn:: SetFadnEVal(double  value)
{
    if(value<0)
     throw Exception("预计残值不能小于零");
    m_FadnEVal=value;
}
void __fastcall TsdFadn:: SetFadnCVal(double  value)
{
    if(value<0)
      throw Exception("预计清理费用不能小于零");
    m_FadnCVal=value;
}
void __fastcall TsdFadn:: SetFadnDVal(double  value)
{
    if(value<0)
       throw Exception("累计折旧不能小于零");
    if(value>m_FadnPVal-m_FadnEVal)
       throw Exception("累计折旧不能大于最初原值减预计净残值");
/*  if(value!=m_FadnPVal-m_FadnOVal)
       throw Exception("累计折旧不能不等于最初原值减本币原值");
*/   m_FadnDVal=value;
}
void __fastcall TsdFadn:: SetFadnBVal(double  value)
{
    if(value<0)
      throw Exception("入帐前累计折旧不能小于零");
    if(value>m_FadnDVal)
       throw Exception("入帐前累计折旧不能大于累计折旧");
    m_FadnBVal=value;
}
void __fastcall TsdFadn:: SetFadnTWork(double  value)
{
    if(value<0)
     throw Exception("总工作量不能小于零");
    m_FadnTWork=value;
}
void __fastcall TsdFadn:: SetFadnAWork(double  value)
{
    if(value<0)
     throw Exception("累计工作量不能小于零");
    m_FadnAWork=value;
}
void __fastcall TsdFadn:: SetFadnBWork(double  value)
{
    if(value<0)
       throw Exception("入帐前累计工作量不能小于零");
    m_FadnBWork=value;
}
void __fastcall TsdFadn:: SetFadnPeriod(int    value)
{
    if(value<0)
     throw Exception("使用期限不能小于零");
    m_FadnPeriod=value;
}
void __fastcall TsdFadn:: SetFadnAPeriod(int    value)
{
    if(value<0)
     throw Exception("累计使用期限不能小于零。");
    m_FadnAPeriod=value;
}
void __fastcall TsdFadn:: SetFadnBPeriod(int    value)
{
    if(value<0)
     throw Exception("入帐前累计使用期限不能小于零。");
    m_FadnBPeriod=value;
}
void __fastcall TsdFadn:: SetFadnFadm(AnsiString value)
{
    if (value.IsEmpty())
      throw Exception("折旧方法编码不能为空!");
    if(value.Length()>18)
      throw Exception("折旧方法编码长度不能超过18。");
    if (value!=m_FadnFadm)
    {
      m_Query->Close();
      m_Query->SQL->Clear();
      m_Query->SQL->Add("SELECT fadmcode FROM sdfadm where fadmcode='"+value+"'");
      m_Query->Open();
      if(m_Query->RecordCount<1 )
      {
        m_Query->Close();
        throw Exception("折旧方法编码'"+value+"'未定义");
      }
      m_Query->Close();
    }
    if(value=="101")
    {
     if(m_FadnAWork>m_FadnTWork)
       throw Exception("累计工作量不能大于总工作量");
     if(m_FadnBWork>m_FadnAWork)
       throw Exception("入帐前累计工作量不能大于累计工作量");
    }
    else
    {
     if(m_FadnPeriod<=2)
       throw Exception("使用期限不能小于等于'2'");
     if(m_FadnAPeriod>m_FadnPeriod)
       throw Exception("累计使用期限不能大于使用期限");
     if(m_FadnBPeriod>m_FadnAPeriod)
       throw Exception("入帐前累计使用期限不能大于累计使用期限");
    }
    m_FadnFadm=value;
}
void __fastcall TsdFadn:: SetFadnUDate(AnsiString value)
{
    AnsiString TempDate;
    if (value.IsEmpty())
       throw Exception("使用日期不能为空");
    if(value.Length()>18)
      throw Exception("使用日期长度不能超过18");
    TempDate=Validate(value);
    if(m_FadnOfDate>TempDate)
      throw Exception("出产日期不能大于使用日期");
    m_FadnUDate=Validate(value);
}
void __fastcall TsdFadn:: SetFadnAddType(AnsiString value)
{
    if (value.IsEmpty())
       throw Exception("增加方式不能为空");
    if(value.Length()>18)
      throw Exception("增加方式长度不能超过18");
    if (value!=m_FadnAddType)
    {
      m_Query->Close();
      m_Query->SQL->Clear();
      m_Query->SQL->Add("SELECT favcode FROM sdfav where favcode='"+value+"'");
      m_Query->Open();
      if(m_Query->RecordCount<1 )