mpoh.cpp

科思ERP部分源码及控件

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

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

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

#pragma package(smart_init)
TKSPoh *sdPoh;
//---------------------------------------------------------------------------
__fastcall TKSPoh::TKSPoh()
  :TKSMidBase()
{
}
//---------------------------------------------------------------------------
void __fastcall TKSPoh::ValidHeadValues()
{
   AnsiString  m_PohContract;
   AnsiString  b_PohContract;
   m_PohContract=GetMasterValue("PohContract");
   b_PohContract=GetMasterOldValue("PohContract");
    if(m_PohContract.LowerCase().Length()>18)
      throw Exception("合同编号长度不能大于18");
    b_PohContract.LowerCase() = m_PohContract.LowerCase();

   AnsiString  m_PohDate;
   m_PohDate=GetMasterValue("PohDate");
    if(m_PohDate.LowerCase().IsEmpty())
      throw Exception("操作日期不能为空");

   AnsiString  m_PohDesc;
   AnsiString  b_PohDesc;
   m_PohDesc=GetMasterValue("PohDesc");
   b_PohDesc=GetMasterOldValue("PohDesc");
    if(m_PohDesc.LowerCase().Length()>40)
      throw Exception("备注长度不能大于40");
    b_PohDesc.LowerCase() = m_PohDesc.LowerCase();

  double m_PohAmt;
  double b_PohAmt;
   m_PohAmt=GetMasterValue("PohAmt");
   b_PohAmt=GetMasterOldValue("PohAmt");
    b_PohAmt = m_PohAmt;

   int m_PohPayTerm;
   int b_PohPayTerm;
   m_PohPayTerm=GetMasterValue("PohPayTerm");
   b_PohPayTerm=GetMasterOldValue("PohPayTerm");
    if(m_PohPayTerm<0)
      throw Exception("付款期限不能小于零");
    b_PohPayTerm = m_PohPayTerm;

  double m_PohPrePayAmt;
  double b_PohPrePayAmt;
   m_PohPrePayAmt=GetMasterValue("PohPrePayAmt");
   b_PohPrePayAmt=GetMasterOldValue("PohPrePayAmt");
    if(m_PohPrePayAmt<0)
      throw Exception("预付定金不能小于零");
    b_PohPrePayAmt = m_PohPrePayAmt;

   int m_PohCheck;
   m_PohCheck=GetMasterValue("PohCheck");
  if(m_PohCheck!=0 && m_PohCheck!=1)
    throw Exception("审核标志只能取值:0-未审1-已审");

   AnsiString  m_PohCheckDate;
   AnsiString  b_PohCheckDate;
   m_PohCheckDate=GetMasterValue("PohCheckDate");

   m_PohCheck=GetMasterValue("PohCheck");
   if(m_PohCheck==1)
   {
    if(m_PohCheckDate.LowerCase().IsEmpty())
      throw Exception("审核日期不能为空");
   }

   int m_PohCancel;
   m_PohCancel=GetMasterValue("PohCancel");
    if(m_PohCancel!=0 && m_PohCancel!=1)
      throw Exception("取消标志只能取值0-正常1-取消");

   AnsiString  m_PohCancelDate;
   AnsiString  b_PohCancelDate;
   m_PohCancelDate=GetMasterValue("PohCancelDate");

   m_PohCancel=GetMasterValue("PohCancel");
   if(m_PohCancel==1)
   {
    if(m_PohCancelDate.LowerCase().IsEmpty())
      throw Exception("取消日期不能为空");
   }

  double m_PohCarriage;
  double b_PohCarriage;
   m_PohCarriage=GetMasterValue("PohCarriage");
   b_PohCarriage=GetMasterOldValue("PohCarriage");
    if(m_PohCarriage<0)
      throw Exception("运输费用不能小于零");
    b_PohCarriage = m_PohCarriage;

   int m_PohStop;
   m_PohStop=GetMasterValue("PohStop");
    if(m_PohStop!=0 && m_PohStop!=1)
      throw Exception("中止标志只能取值0-正常1-中止");

   int m_PohClose;
   m_PohClose=GetMasterValue("PohClose");
  if(m_PohClose!=0 && m_PohClose!=1)
    throw Exception("结清标志只能取值0-未结清1-已结清");



}
//------------------------------------------------------------------------------
void __fastcall TKSPoh::ValidItemValues()
{
   int m_PodLine;
   int b_PodLine;
   m_PodLine=GetDetailValue("PodLine");
   b_PodLine=GetDetailOldValue("PodLine");
    if(m_PodLine<=0)
      throw Exception("行号必须大于零");
   /* if(m_PodLine!=b_PodLine)
      if(FindKey(AnsiString(m_PodLine)))          //???????????????????
        throw Exception("行号已存在");   */
    b_PodLine = m_PodLine;

   AnsiString  m_PodCode;
   AnsiString  b_PodCode;
   m_PodCode=GetDetailValue("PodCode");
   b_PodCode=GetDetailOldValue("PodCode");
    b_PodCode.LowerCase() = m_PodCode.LowerCase();
    //b_PodCode=sdParent->GetFieldValue(fiPohCode);
  double m_PodQty;
  double b_PodQty;
   m_PodQty=GetDetailValue("PodQty");
   b_PodQty=GetDetailOldValue("PodQty");
   AnsiString  m_PodGoods;
   m_PodGoods=GetDetailValue("PodGoods");
    if(m_PodGoods.IsEmpty())
      throw Exception("采购物料不能为空");
    if(m_PodQty<=0)
      throw Exception("采购数量不能小于等于零");
    b_PodQty = m_PodQty;

  double m_PodPrice;
  double b_PodPrice;
   m_PodPrice=GetDetailValue("PodPrice");
   b_PodPrice=GetDetailOldValue("PodPrice");

   m_PodGoods=GetDetailValue("PodGoods");

   m_PodQty=GetDetailValue("PodQty");
   double  m_PodAmt;
   m_PodAmt=GetDetailValue("PodAmt");
    if(m_PodGoods.IsEmpty())
      throw Exception("采购物料不能为空");
    if(m_PodQty<=0)
       throw Exception("采购单行的数量不能小于或等于零.");
    if(m_PodPrice<0)
       throw Exception("采购单行的单价不能小于零.");
    b_PodPrice = m_PodPrice;
   // m_PodAmt=DataCarry(m_PodQty*b_PodPrice,2,0);

   int m_PodType;
   int b_PodType;
   m_PodType=GetDetailValue("PodType");
   b_PodType=GetDetailOldValue("PodType");
    if(m_PodType!=1 && m_PodType!=2)
      throw Exception("采购单行类型只能取值1-手工录入2-系统生成");
    b_PodType = m_PodType;

   int m_PodFrom;
   int b_PodFrom;
   m_PodFrom=GetDetailValue("PodFrom");
   b_PodFrom=GetDetailOldValue("PodFrom");
    if(m_PodFrom!=1 && m_PodFrom!=2 && m_PodFrom!=3)
      throw Exception("需求来源只能取值1-常规需求 2-MRP需求 3-库存需求");
    b_PodFrom = m_PodFrom;


   AnsiString  m_PodSendDate;
   m_PodSendDate=GetDetailValue("PodSendDate");
    if(m_PodSendDate.LowerCase().IsEmpty())
      throw Exception("发货日期不能为空");

   AnsiString  m_PodRecDate;
   m_PodRecDate=GetDetailValue("PodRecDate");


   m_PodSendDate=GetDetailValue("PodSendDate");
    if(m_PodSendDate.IsEmpty())
      throw Exception("发货日期不能为空");
    if(m_PodRecDate.LowerCase().IsEmpty())
      throw Exception("交货日期不能为空");

   AnsiString  m_PodDesc;
   AnsiString  b_PodDesc;
   m_PodDesc=GetDetailValue("PodDesc");
   b_PodDesc=GetDetailOldValue("PodDesc");
    if(m_PodDesc.LowerCase().Length()>100)
      throw Exception("备注长度不能大于100");
    b_PodDesc.LowerCase() = m_PodDesc.LowerCase();

   int m_PodStatus;
   int b_PodStatus;
   m_PodStatus=GetDetailValue("PodStatus");
   b_PodStatus=GetDetailOldValue("PodStatus");
    //备用
    if(m_PodStatus!=1 && m_PodStatus!=2 && m_PodStatus!=3 && m_PodStatus!=4 )
      throw Exception("行状态只能取值1-待审核 2-已确认 3-已下达 4-已关闭");
    b_PodStatus = m_PodStatus;

   int m_PodClose;
   m_PodClose=GetDetailValue("PodClose");
  if(m_PodClose!=0 && m_PodClose!=1)
    throw Exception("结清标志只能取值0-未结清 1-已结清");

}
//---------------------------------------------------------------------------
void __fastcall TKSPoh::CmdExec(AnsiString Param)
{

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