mrpoh.cpp

科思ERP部分源码及控件

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

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

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

#pragma package(smart_init)
TKSRpoh *sdRpoh;
//---------------------------------------------------------------------------
__fastcall TKSRpoh::TKSRpoh()
  :TKSMidBase()
{
}
//---------------------------------------------------------------------------
void __fastcall TKSRpoh::ValidHeadValues()
{

   AnsiString  m_RpohDate;
   m_RpohDate=GetMasterValue("RpohDate");
    if(m_RpohDate.LowerCase().IsEmpty())
      throw Exception("请购日期不能为空");

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

   AnsiString  m_RpohCheckDate;
   AnsiString  b_RpohCheckDate;
   m_RpohCheckDate=GetMasterValue("RpohCheckDate");

   m_RpohCheck=GetMasterValue("RpohCheck");
    if(m_RpohCheck==1)
    {
      if(m_RpohCheckDate.LowerCase().IsEmpty())
        throw Exception("审核日期不能为空");
    }

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

   AnsiString  m_RpohCancelDate;
   AnsiString  b_RpohCancelDate;
   m_RpohCancelDate=GetMasterValue("RpohCancelDate");

   m_RpohCancel=GetMasterValue("RpohCancel");
    if(m_RpohCancel==1)
    {
      if(m_RpohCancelDate.LowerCase().IsEmpty())
        throw Exception("取消日期不能为空");
    }

   AnsiString  m_RpohSysDate;
   m_RpohSysDate=GetMasterValue("RpohSysDate");

   int m_RpohClose;
   m_RpohClose=GetMasterValue("RpohClose");
    if(m_RpohClose!=0 && m_RpohClose!=1)
      throw Exception("结清标志只能取值0-未结清 1-已结清");
}
//---------------------------------------------------------------------------
void __fastcall TKSRpoh::ValidItemValues()
{

   int m_RpodLine;
   int b_RpodLine;
   m_RpodLine=GetDetailValue("RpodLine");
   b_RpodLine=GetDetailOldValue("RpodLine");
    if(m_RpodLine<=0)
      throw Exception("行号必须大于零");
    b_RpodLine = m_RpodLine;

   AnsiString  m_RpodCode;
   AnsiString  b_RpodCode;
   m_RpodCode=GetDetailValue("RpodCode");
   b_RpodCode=GetDetailOldValue("RpodCode");
    b_RpodCode.LowerCase() = m_RpodCode.LowerCase();

   int m_RpodFrom;
   int b_RpodFrom;
   m_RpodFrom=GetDetailValue("RpodFrom");
   b_RpodFrom=GetDetailOldValue("RpodFrom");
    if(m_RpodFrom!=1 && m_RpodFrom!=2 && m_RpodFrom!=3)
       throw Exception("请购需求来源只能取值1-手工录入2-MRP计算 3-库存需求");
    b_RpodFrom =   m_RpodFrom;

  double m_RpodQty;
  double b_RpodQty;
   m_RpodQty=GetDetailValue("RpodQty");
   b_RpodQty=GetDetailOldValue("RpodQty");
  double m_RpodPrice;
  double m_RpodAmt;
  m_RpodPrice= GetDetailValue("RpodPrice");
  m_RpodAmt  = GetDetailValue("RpodAmt");
    if(m_RpodQty<=0)
       throw Exception("请购数量必须大于零");
    if(m_RpodPrice<0)
      throw Exception("请购单价不能小于零");
    b_RpodQty = m_RpodQty;
   // m_RpodAmt=DataCarry(m_RpodPrice*m_RpodQty,2,0);

  double b_RpodPrice;
   m_RpodPrice=GetDetailValue("RpodPrice");
   b_RpodPrice=GetDetailOldValue("RpodPrice");

   m_RpodQty=GetDetailValue("RpodQty");

   m_RpodAmt=GetDetailValue("RpodAmt");
    if(m_RpodPrice<0)
       throw Exception("请购单价不能小于零");
    if(m_RpodQty<=0)
      throw Exception("请购数量不能小于零");
    b_RpodPrice = m_RpodPrice;
    //m_RpodAmt=DataCarry(m_RpodQty*m_RpodPrice,2,0);

  double b_RpodAmt;
   m_RpodAmt=GetDetailValue("RpodAmt");
   b_RpodAmt=GetDetailOldValue("RpodAmt");
    b_RpodAmt = m_RpodAmt;

   int m_RpodStatus;
   int b_RpodStatus;
   m_RpodStatus=GetDetailValue("RpodStatus");
   b_RpodStatus=GetDetailOldValue("RpodStatus");
    if(m_RpodStatus!=1 && m_RpodStatus!=2 && m_RpodStatus!=3)
      throw Exception("行状态只能取值1-生成 2-手工 3-完毕");
    b_RpodStatus =   m_RpodStatus;

  double m_RpodPQty;
  double b_RpodPQty;
   m_RpodPQty=GetDetailValue("RpodPQty");
   b_RpodPQty=GetDetailOldValue("RpodPQty");
    if(m_RpodPQty<0)
       throw Exception("生成采购数量不能小于零");
    b_RpodPQty = m_RpodPQty;

   AnsiString  m_RpodReqDate;
   m_RpodReqDate=GetDetailValue("RpodReqDate");
    if(m_RpodReqDate.LowerCase().IsEmpty())
      throw Exception("需求日期不能为空");

   AnsiString  m_RpodRecDate;
   m_RpodRecDate=GetDetailValue("RpodRecDate");
    if(m_RpodRecDate.LowerCase().IsEmpty())
      throw Exception("交货日期不能为空");

   AnsiString  m_RpodDesc;
   AnsiString  b_RpodDesc;
   m_RpodDesc=GetDetailValue("RpodDesc");
   b_RpodDesc=GetDetailOldValue("RpodDesc");
    if(m_RpodDesc.LowerCase().Length()>40)
      throw Exception("备注长度不能大于40");
    b_RpodDesc.LowerCase() =   m_RpodDesc.LowerCase();

   int m_RpodClose;
   m_RpodClose=GetDetailValue("RpodClose");
    if(m_RpodClose!=0 && m_RpodClose!=1)
      throw Exception("结清标志只能取值0-正常1-结清");

   AnsiString  m_RpodCloseDate;
   AnsiString  b_RpodCloseDate;
   m_RpodCloseDate=GetDetailValue("RpodCloseDate");

   m_RpodClose=GetDetailValue("RpodClose");
    if(m_RpodClose==1)
    {
      if(m_RpodCloseDate.LowerCase().IsEmpty())
        throw Exception("结清日期不能为空");
    }
}
//---------------------------------------------------------------------------
void __fastcall TKSRpoh::CmdExec(AnsiString Param)
{

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