msivoh.cpp

科思ERP部分源码及控件

{
   AnsiString  m_SivohCacCode;
   m_SivohCacCode=GetMasterValue("SivohCacCode");
 if(m_SivohCacCode.IsEmpty())
   throw Exception("公司开户帐号不能为空");
  Query->Close();
  Query->SQL->Clear();
  Query->SQL->Add("Select CacCode,CacBankName from sdCac where CacCode='"+m_SivohCacCode+"'");
  Query->Open();
 if(Query->RecordCount<1)
  {
   Query->Close();
   throw Exception("公司开户帐号"+m_SivohCacCode+"不存在");
  }
  Query->Close();
}
//---------------------------------------------------------------------------
void __fastcall TKSSivoh::ValidSivohCacBankName()  //开户行名称
{

}
//---------------------------------------------------------------------------
void __fastcall TKSSivoh::ValidSivohAmt()  //金额
{

}
//---------------------------------------------------------------------------
void __fastcall TKSSivoh::ValidSivohTaxAmt()  //税额
{

}
//---------------------------------------------------------------------------
void __fastcall TKSSivoh::ValidSivohSumAmt()  //价税合计
{

}
//---------------------------------------------------------------------------
void __fastcall TKSSivoh::ValidSivohZkAmt()  //折扣
{

}
//---------------------------------------------------------------------------
void __fastcall TKSSivoh::ValidSivohUser()  //操作员
{
}
//---------------------------------------------------------------------------
void __fastcall TKSSivoh::ValidSivohCheck()  //审核
{
   int m_SivohCheck;
   m_SivohCheck=GetMasterValue("SivohCheck");
   int b_SivohCheck;
   b_SivohCheck=GetMasterOldValue("SivohCheck");
 if(m_SivohCheck!=b_SivohCheck) 
  {
  Query->Close();
  Query->SQL->Clear();
  Query->SQL->Add("Select SalerCode,SalerCheck from sdSaler where SalerCode='"+GetMasterValue("SivohUser")+"'");
  Query->Open();
  if(Query->RecordCount<1)
  {
   Query->Close();
     throw Exception("您没在销售员表中定义！");
   }
   else
   {
   if(Query->FieldValues["SalerCheck"]==0)
     {
      Query->Close();
      throw Exception("您没有审核/反审核权限");
     }
  }
 }
}
//---------------------------------------------------------------------------
void __fastcall TKSSivoh::ValidSivohChecker()  //审核员
{
}
//---------------------------------------------------------------------------
void __fastcall TKSSivoh::ValidSivohCheckDate()  //审核日期
{
}
//---------------------------------------------------------------------------
void __fastcall TKSSivoh::ValidSivohCancel()  //作废
{
}
//---------------------------------------------------------------------------
void __fastcall TKSSivoh::ValidSivohCancelDate()  //作废日期
{
}
//---------------------------------------------------------------------------
void __fastcall TKSSivoh::ValidSivohSysDate()  //系统日期
{
}
//---------------------------------------------------------------------------
void __fastcall TKSSivoh::ValidDetailField(int FieldNo)
{
  switch(FieldNo)
  {
    case 1:
      ValidSivodLine();
      break;
    case 2:
      ValidSivodCode();
      break;
    case 3:
      ValidSivodGoods();
      break;
    case 5:
      ValidSivodModel();
      break;
    case 6:
      ValidSivodUnit();
      break;
    case 7:
      ValidSivodQty();
      break;
    case 8:
      ValidSivodPrice();
      break;
    case 9:
      ValidSivodTaxPrice();
      break;
    case 10:
      ValidSivodAmt();
      break;
    case 11:
      ValidSivodTaxAmt();
      break;
    case 12:
      ValidSivodSumAmt();
      break;
    case 13:
      ValidSivodZkAmt();
      break;
    case 14:
      ValidSivodLoc();
      break;
    case 15:
      ValidSivodSogCode();
      break;
    case 16:
      ValidSivodDesc();
      break;
  }
}
//---------------------------------------------------------------------------
void __fastcall TKSSivoh::ValidSivodLine()
{
   int m_SivodLine;
   m_SivodLine=GetDetailValue("SivodLine");
  if(m_SivodLine<=0)
    throw Exception("行号需大于零！");
}
//---------------------------------------------------------------------------
void __fastcall TKSSivoh::ValidSivodCode()
{
   AnsiString  m_SivodCode;
   m_SivodCode=GetDetailValue("SivodCode");
    if(m_SivodCode.IsEmpty())
       throw Exception("发票单号不能为空!");
}
//---------------------------------------------------------------------------
void __fastcall TKSSivoh::ValidSivodGoods()
{
   AnsiString  m_SivodGoods;
   m_SivodGoods=GetDetailValue("SivodGoods");
     if(m_SivodGoods.IsEmpty())
       throw Exception("货物编码不能为空");
}
//---------------------------------------------------------------------------
void __fastcall TKSSivoh::ValidSivodModel()
{
}
//---------------------------------------------------------------------------
void __fastcall TKSSivoh::ValidSivodUnit()
{
   AnsiString  m_SivodUnit;
   m_SivodUnit=GetDetailValue("SivodUnit");
   if(m_SivodUnit.IsEmpty())
      throw Exception("");
    Query->Close();
    Query->SQL->Clear();
    Query->SQL->Add("select UnitCode from sdUnit where UnitCode='"+m_SivodUnit+"'");
    Query->Open();
    if(Query->RecordCount<=0)
    {
      Query->Close();
      throw Exception("计量单位:'"+m_SivodUnit+"'不存在!");
     }
}
//---------------------------------------------------------------------------
void __fastcall TKSSivoh::ValidSivodQty()
{
  double m_SivodQty;
   m_SivodQty=GetDetailValue("SivodQty");
 if(m_SivodQty<=0)
  throw Exception("发货数量需大于零！");
}
//---------------------------------------------------------------------------
void __fastcall TKSSivoh::ValidSivodPrice()
{
}
//---------------------------------------------------------------------------
void __fastcall TKSSivoh::ValidSivodTaxPrice()
{
  double m_SivodTaxPrice;
   m_SivodTaxPrice=GetDetailValue("SivodTaxPrice");
 if(m_SivodTaxPrice<0)
  throw Exception("含税价需大于零！");
}
//---------------------------------------------------------------------------
void __fastcall TKSSivoh::ValidSivodAmt()
{
  double m_SivodAmt;
   m_SivodAmt=GetDetailValue("SivodAmt");
 if(m_SivodAmt<=0)
  throw Exception("金额需大于零！");
}
//---------------------------------------------------------------------------
void __fastcall TKSSivoh::ValidSivodTaxAmt()
{
}
//---------------------------------------------------------------------------
void __fastcall TKSSivoh::ValidSivodSumAmt()
{
}
//---------------------------------------------------------------------------
void __fastcall TKSSivoh::ValidSivodZkAmt()
{
  double m_SivodZkAmt;
   m_SivodZkAmt=GetDetailValue("SivodZkAmt");
 if(m_SivodZkAmt<0)
  throw Exception("折扣金不能小于零！");
}
//---------------------------------------------------------------------------
void __fastcall TKSSivoh::ValidSivodLoc()
{

}
//---------------------------------------------------------------------------
void __fastcall TKSSivoh::ValidSivodSogCode()
{
   AnsiString  m_SivodSogCode;
   AnsiString  b_SivodSogCode;
   m_SivodSogCode=GetDetailValue("SivodSogCode");
   b_SivodSogCode=GetDetailOldValue("SivodSogCode");
  if(m_SivodSogCode.IsEmpty())
   throw Exception("发货单号不能为空！");
  if(m_SivodSogCode!=b_SivodSogCode)
    {
       int status;
        Query->Close();
        Query->SQL->Clear();
        Query->SQL->Add("select SoghCode,SoghCheck,SoghCancel from sdSogh where SoghCode='"+m_SivodSogCode+"'" );
        Query->Open();
        if(Query->RecordCount>0)
        {
         status=Query->FieldValues["SoghCheck"];
         if(status==0)
          {
            Query->Close();
            throw Exception("单据未审核，不能引用！");
           }
         status=Query->FieldValues["SoghCancel"];
          if(status==1)
           {
            Query->Close();
            throw Exception("单据已取消，不能引用！");
          }
        }
      else
       {
       Query->Close();
       throw Exception("该引用单据不存在！");
       }
       Query->Close();
    }
}
//---------------------------------------------------------------------------
void __fastcall TKSSivoh::ValidSivodDesc()
{
}
//---------------------------------------------------------------------------
void __fastcall TKSSivoh::CmdExec(AnsiString Param)
{

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