mapob.cpp

科思ERP部分源码及控件

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

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

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

#pragma package(smart_init)
TKSApob *sdApob;
//---------------------------------------------------------------------------
__fastcall TKSApob::TKSApob()
  :TKSMidBase()
{
}
//---------------------------------------------------------------------------
void __fastcall TKSApob::ValidHeadValues()
{
//应付单号
      ValidApobCode();
  //月份
      ValidApobFmonth();
 //日期
      ValidApobDate();
 //供应商
      ValidApobSupply();
  //币种
      ValidApobCurrency();
  //汇率
      ValidApobEnrate();
  //金额
      ValidApobAmt();
  //核销金额
      ValidApobCAmt();
  //红冲金额
      ValidApobRAmt();
  //应付日期
      ValidApobPDate();
  //红字
      ValidApobRed();
  //操作员
      ValidApobUser();
  //审核标志
      ValidApobCheck();
 //审核人
      ValidApobChecker();
  //审核日期
      ValidApobCheckDate();
  //备注
      ValidApobDesc();
  //原应付单号
      ValidApobOCode();
 //状态
      ValidApobState();
  //系统日期
      ValidApobSysDate();
}
//---------------------------------------------------------------------------
void __fastcall TKSApob::ValidApobCode()  //应付单号
{
}

//---------------------------------------------------------------------------
void __fastcall TKSApob::ValidApobFmonth()  //月份
{
}
//---------------------------------------------------------------------------
void __fastcall TKSApob::ValidApobDate()  //日期
{
}

//---------------------------------------------------------------------------
void __fastcall TKSApob::ValidApobSupply()  //供应商
{
}
//---------------------------------------------------------------------------
void __fastcall TKSApob::ValidApobCurrency()  //币种
{
}
//---------------------------------------------------------------------------
void __fastcall TKSApob::ValidApobEnrate()  //汇率
{
}

//---------------------------------------------------------------------------
void __fastcall TKSApob::ValidApobAmt()  //金额
{
  double m_ApobAmt;
   m_ApobAmt=GetMasterValue("ApobAmt");
    if(m_ApobAmt<0)
      throw Exception("金额不能小于零!");
}

//---------------------------------------------------------------------------
void __fastcall TKSApob::ValidApobCAmt()  //核销金额
{
  double m_ApobCAmt;
   m_ApobCAmt=GetMasterValue("ApobCAmt");
    if(m_ApobCAmt<0)
      throw Exception("核销金额不能小于零!");
}

//---------------------------------------------------------------------------
void __fastcall TKSApob::ValidApobRAmt()  //红冲金额
{
  double m_ApobRAmt;
   m_ApobRAmt=GetMasterValue("ApobRAmt");
    if(m_ApobRAmt<0)
      throw Exception("红冲金额不能小于零!");
}

//---------------------------------------------------------------------------
void __fastcall TKSApob::ValidApobPDate()  //应付日期
{
   AnsiString  m_ApobPDate;
   AnsiString  m_ApobDate;
   m_ApobPDate=GetMasterValue("ApobPDate");
   m_ApobDate=GetMasterValue("ApobDate");
    if(StrToDate(m_ApobDate)>StrToDate(m_ApobPDate))
      throw Exception("应付日期不能早于票据日期");
}
//---------------------------------------------------------------------------
void __fastcall TKSApob::ValidApobRed()  //红字
{
  double m_ApobRed;
   m_ApobRed=GetMasterValue("ApobRed");
    if(m_ApobRed!=-1 && m_ApobRed!=1)
       throw Exception("红字标志只能取值: 1-蓝字 -1-红字!");
}

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

//---------------------------------------------------------------------------
void __fastcall TKSApob::ValidApobChecker()  //审核人
{
/*
   AnsiString  m_ApobChecker;
   int  m_ApobCheck;
   m_ApobChecker=GetMasterValue("ApobChecker");
   m_ApobCheck=GetMasterValue("ApobCheck");
    if(m_ApobCheck==1)
    {
      if(m_ApobChecker.IsEmpty())
        throw Exception("审核员编码不能为空!");
      if(m_ApobChecker.Length()>18)
        throw Exception("审核员长度不能大于18!");
        Query->Close();
        Query->SQL->Clear();
        Query->SQL->Add("select purserCode from sdpurser where purserCheck=1 and pursercode='"+m_ApobChecker+"'");
        Query->Open();
        if(Query->RecordCount<=0)
        {
          Query->Close();
          throw Exception("审核员:"+m_ApobChecker+"未定义或没有审核权限!");
        }
        Query->Close();
      }
 */
}
//---------------------------------------------------------------------------
void __fastcall TKSApob::ValidApobCheckDate()  //审核日期
{
}
//---------------------------------------------------------------------------
void __fastcall TKSApob::ValidApobDesc()  //备注
{
}

//---------------------------------------------------------------------------
void __fastcall TKSApob::ValidApobOCode()  //原应付单号
{
   AnsiString  m_ApobOCode;
   int   m_ApobRed;
   AnsiString m_ApobSupply;
   m_ApobSupply=GetMasterValue("ApobSupply");
   m_ApobOCode=GetMasterValue("ApobOCode");
   m_ApobRed=GetMasterValue("ApobRed");
    if(m_ApobRed==-1)
    {
      Query->Close();
      Query->SQL->Clear();
      AnsiString Sql="SELECT ApobCODE FROM SDApob WHERE ApobCODE='" +m_ApobOCode+"'";
      Sql+=" and ApobCheck=1 and ApobSupply='"+ m_ApobSupply+"'";
      Query->SQL->Add(Sql);
      Query->Open();
      if(Query->RecordCount<1)
      {
        Query->Close();
        throw Exception("应付单号'"+m_ApobOCode+"'未定义、未审核或不是蓝字应付单!");
      }
      Query->Close();
    }

}

//---------------------------------------------------------------------------
void __fastcall TKSApob::ValidApobState()  //状态
{
   int m_ApobState;
   m_ApobState=GetMasterValue("ApobState");
    if(m_ApobState!=1&&m_ApobState!=2)
      throw Exception("状态只能为 1-状态一 2-状态二!");
}

//---------------------------------------------------------------------------
void __fastcall TKSApob::ValidApobSysDate()  //系统日期
{
}
//---------------------------------------------------------------------------
void __fastcall TKSApob::CmdExec(AnsiString Param)
{

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