msreth.cpp

科思ERP部分源码及控件

   m_SrethSettleMode=ReturnNeedValue(GetMasterValue("SrethSettleMode"),"");
   b_SrethSettleMode=ReturnNeedValue(GetMasterOldValue("SrethSettleMode"),"");
  if(m_SrethSettleMode.IsEmpty())
    throw Exception("结算方式不能为空！");
   if(m_SrethSettleMode!=b_SrethSettleMode)
  {
    Query->Close();
    Query->SQL->Clear();
    Query->SQL->Add("select settlemodecode from sdsettlemode where settlemodecode='"+m_SrethSettleMode+"'");
    Query->Open();
    if(Query->RecordCount<1)
    {
      Query->Close();
      throw Exception("结算方式不存在");
    }
    Query->Close();
  }
}
//---------------------------------------------------------------------------
void __fastcall TKSSreth::ValidSrethTransMode()  //运输方式
{
   AnsiString  m_SrethTransMode;
   AnsiString  b_SrethTransMode;
   m_SrethTransMode=ReturnNeedValue(GetMasterValue("SrethTransMode"),"");
   b_SrethTransMode=ReturnNeedValue(GetMasterOldValue("SrethTransMode"),"");
  if(m_SrethTransMode.IsEmpty())
    throw Exception("运输方式不能为空！");
   if(m_SrethTransMode!=b_SrethTransMode)
  {
    Query->Close();
    Query->SQL->Clear();
    Query->SQL->Add("select * from sdTransMode where TransModeCode='"+m_SrethTransMode+"'");
    Query->Open();
    if(Query->RecordCount<1)
    {
      Query->Close();
      throw Exception("运输方式不存在");
    }
    Query->Close();
  }
}
//---------------------------------------------------------------------------
void __fastcall TKSSreth::ValidSrethRr()  //退货原因
{                        /*/
   AnsiString  m_SrethRr;
   AnsiString  b_SrethRr;
   m_SrethRr=ReturnNeedValue(GetMasterValue("SrethRr"),"");
   b_SrethRr=ReturnNeedValue(GetMasterOldValue("SrethRr"),"");
  if(m_SrethRr.IsEmpty())
    throw Exception("退货原因代码不能为空");
  if(m_SrethRr.Length()>18)
    throw Exception("退货原因代码长度不能大于18");
  if(m_SrethRr!=b_SrethRr)
   {
    Query->Close();
    Query->SQL->Clear();
    Query->SQL->Add("select SretRrCode from SdSretRr where SretRrcode='"+m_SrethRr+"'");
    Query->Open();
    if(Query->RecordCount<=0)
    {
      Query->Close();
      throw Exception("退货原因代码:"+m_SrethRr+"未定义");
    }
    Query->Close();
  }                         /*/
}
//---------------------------------------------------------------------------
void __fastcall TKSSreth::ValidSrethSaler()  //业务员
{                          /*/
   AnsiString  m_SrethSaler;
   AnsiString  b_SrethSaler;
   m_SrethSaler=ReturnNeedValue(GetMasterValue("SrethSaler"),"");
   b_SrethSaler=ReturnNeedValue(GetMasterOldValue("SrethSaler"),"");
    if(m_SrethSaler.IsEmpty())
      throw Exception("业务员代码不能为空");
    if(m_SrethSaler!=b_SrethSaler)
    {
      Query->Close();
      Query->SQL->Clear();
      Query->SQL->Add("select salercode from sdSaler where SalerCode='"+m_SrethSaler+"'");
      Query->Open();
      if(Query->RecordCount<1)
      {
        Query->Close();
        throw Exception("业务员不存在");
      }
      Query->Close();
    }                         /*/
}
//---------------------------------------------------------------------------
void __fastcall TKSSreth::ValidSrethUser()  //操作员
{
}
//---------------------------------------------------------------------------
void __fastcall TKSSreth::ValidSrethDesc()  //备注
{
}
//---------------------------------------------------------------------------
void __fastcall TKSSreth::ValidSrethCheck()  //审核
{
/*   int m_SrethCheck;
   m_SrethCheck=GetMasterValue("SrethCheck");
   int b_SrethCheck;
   b_SrethCheck=GetMasterOldValue("SrethCheck");
 if(m_SrethCheck!=0 && m_SrethCheck!=1)
      throw Exception("审核工业标志只能取值:0-未审,1-已审");
   if(m_SrethCheck!=b_SrethCheck)
     {
      Query->Close();
      Query->SQL->Clear();
      Query->SQL->Add("Select SalerCode,SalerCheck,SalerCancel from sdSaler where SalerCode='"+GetMasterValue("SrethUser")+"'");
      Query->Open();
      if(Query->RecordCount<1)
      {
       Query->Close();
         throw Exception("您没在销售员表中定义！");
       }
       else
       {
       if(Query->FieldValues["SalerCheck"]==0)
         {
          Query->Close();
          throw Exception("您没有审核/反审核权限");
         }
    }
    }*/
}
//---------------------------------------------------------------------------
void __fastcall TKSSreth::ValidSrethChecker()  //审核人
{
/*   AnsiString  m_SrethChecker;
   AnsiString  b_SrethChecker;
   AnsiString m_SrethCheck=GetMasterValue("SrethCheck");
   m_SrethChecker=GetMasterValue("SrethChecker");
   b_SrethChecker=GetMasterOldValue("SrethChecker");
    if(m_SrethCheck==1)
    {
      if(m_SrethChecker.IsEmpty())
        throw Exception("审核人不能为空");
      if(m_SrethChecker!=b_SrethChecker)
      {
        Query->Close();
        Query->SQL->Clear();
        Query->SQL->Add("select salercode from sdsaler where salercode='"+m_SrethChecker+"' and salercheck=1");
        Query->Open();
        if(Query->RecordCount<=0)
        {
          Query->Close();
          throw Exception("审核人代码:"+m_SrethChecker+"无审核权限");
        }
        Query->Close();
      }
    }*/

}
//---------------------------------------------------------------------------
void __fastcall TKSSreth::ValidSrethCheckDate()  //审核日期
{
/*   AnsiString  m_SrethCheckDate;
   AnsiString  b_SrethCheckDate;
   int m_SrethCheck=GetMasterValue("SrethCheck");
   m_SrethCheckDate=GetMasterValue("SrethCheckDate");
   b_SrethCheckDate=GetMasterOldValue("SrethCheckDate");
    if(m_SrethCheck==1)
    {
      if(m_SrethCheckDate.IsEmpty())
        throw Exception("审核日期不能为空");
    }*/
}
//---------------------------------------------------------------------------
void __fastcall TKSSreth::ValidSrethClose()  //结清
{
/*   int m_SrethClose;
   m_SrethClose=GetMasterValue("SrethClose");
   int b_SrethClose;
   b_SrethClose=GetMasterOldValue("SrethClose");
  if(m_SrethClose!=b_SrethClose)
  {
    Query->Close();
    Query->SQL->Clear();
    Query->SQL->Add("Select SalerCode,SalerCheck,SalerClose from sdSaler where SalerCode='"+GetMasterValue("SrethUser")+"'");
    Query->Open();
    if(Query->RecordCount<1)
    {
      Query->Close();
      throw Exception("您没在销售员表中定义！");
    }
    else
    {
      if(Query->FieldValues["SalerClose"]==0)
      {
        Query->Close();
        throw Exception("您没有结清/反结清权限");
      }
      Query->Close();
    }
  }*/
}
//---------------------------------------------------------------------------
void __fastcall TKSSreth::ValidSrethCancel()  //取消
{
 /*  int m_SrethCancel;
   m_SrethCancel=GetMasterValue("SrethCancel");
   int b_SrethCancel;
   b_SrethCancel=GetMasterOldValue("SrethCancel");
    if(m_SrethCancel!=0 && m_SrethCancel!=1)
      throw Exception("取消标志只能取值:0-正常,1-单据被取消");
   if(m_SrethCancel!=b_SrethCancel)
     {
      Query->Close();
      Query->SQL->Clear();
      Query->SQL->Add("Select SalerCode,SalerCheck,SalerCancel from sdSaler where SalerCode='"+GetMasterValue("SrethUser")+"'");
      Query->Open();
      if(Query->RecordCount<1)
      {
       Query->Close();
         throw Exception("您没在销售员表中定义！");
       }
       else
       {
       if(Query->FieldValues["SalerCancel"]==0)
         {
          Query->Close();
          throw Exception("您没有取消/反取消权限");
         }
    }
  }*/
}
//---------------------------------------------------------------------------
void __fastcall TKSSreth::ValidSrethCancelDate()  //取消日期
{
/*   AnsiString  m_SrethCancelDate;
   AnsiString  b_SrethCancelDate;
   AnsiString  m_SrethCancel=GetMasterValue("SrethCancel");
   m_SrethCancelDate=GetMasterValue("SrethCancelDate");
   b_SrethCancelDate=GetMasterOldValue("SrethCancelDate");
  if(m_SrethCancel==1)
  {
    if(m_SrethCancelDate.IsEmpty())
      throw Exception("取消日期不能为空");
  }*/
}
//---------------------------------------------------------------------------
void __fastcall TKSSreth::ValidDetailField(int FieldNo)
{
 switch(FieldNo)
  {
    case 1:
      ValidSretdLine();
      break;
    case 2:
      ValidSretdCode();
      break;
    case 3:
      ValidSretdSogCode();
      break;
    case 4:
      ValidSretdSogdLine();
      break;
    case 5:
      ValidSretdGoods();
      break;
    case 6:
      ValidSretdUnit();
      break;
    case 7:
      ValidSretdConv();
      break;
    case 8:
      ValidSretdQty();
      break;
    case 9:
      ValidSretdPrice();
      break;
    case 10:
      ValidSretdAmt();
      break;
    case 11:
      ValidSretdTaxAmt();
      break;
    case 12:
      ValidSretdLoc();
      break;
    case 13:
      ValidSretdExes();
      break;
    case 14:
      ValidSretdDesc();
      break;
    case 15:
      ValidSretdBatch();
      break;
    case 16:
      ValidSretdState();
      break;
    case 17:
      ValidSretdClose();
      break;
    case 18:
      ValidSretdCloseDate();
      break;
  }
}
//---------------------------------------------------------------------------
void __fastcall TKSSreth::ValidSretdLine()
{
   int m_SretdLine;
   m_SretdLine=ReturnNeedValue(GetDetailValue("SretdLine"),0);
    if(m_SretdLine<=0)
      throw Exception("行号不能小于零！");
}
//---------------------------------------------------------------------------
void __fastcall TKSSreth::ValidSretdCode()
{
   AnsiString  m_SretdCode;
   m_SretdCode=ReturnNeedValue(GetDetailValue("SretdCode"),"");
    if(m_SretdCode.IsEmpty())
       throw Exception("退货单单号不能为空!!!");
}