mprech_p_i.cpp

科思ERP部分源码及控件

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

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

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

#pragma package(smart_init)
TKSPrech_P_I *sdPrech_P_I;
//---------------------------------------------------------------------------
__fastcall TKSPrech_P_I::TKSPrech_P_I()
  :TKSMidBase()
{
}
//---------------------------------------------------------------------------
void __fastcall TKSPrech_P_I::ValidHeadValues()
{
   AnsiString  m_PrechFmonth;
   AnsiString  b_PrechFmonth;
   m_PrechFmonth=GetMasterValue("PrechFmonth");
   b_PrechFmonth=GetMasterOldValue("PrechFmonth");
    if(m_PrechFmonth.LowerCase().IsEmpty())
      throw Exception("财务月份不能为空");
    b_PrechFmonth =   m_PrechFmonth;

   AnsiString  m_PrechDate;
   m_PrechDate=GetMasterValue("PrechDate");
    if(m_PrechDate.LowerCase().IsEmpty())
      throw Exception("收货日期不能为空");

   AnsiString  m_PrechType;
   AnsiString  b_PrechType;
   m_PrechType=GetMasterValue("PrechType");
   b_PrechType=GetMasterOldValue("PrechType");
    b_PrechType.LowerCase()="P";

   AnsiString  m_PrechTransCode;
   m_PrechTransCode=GetMasterValue("PrechTransCode");
    if(m_PrechTransCode.LowerCase().Length()>18)
      throw Exception("货运单号长度不能大于18");

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

   AnsiString  m_PrechCheckDate;
   AnsiString  b_PrechCheckDate;
   m_PrechCheckDate=GetMasterValue("PrechCheckDate");

   m_PrechCheck=GetMasterValue("PrechCheck");
    if(m_PrechCheck==1)
    {
      if(m_PrechCheckDate.LowerCase().IsEmpty())
        throw Exception("审核日期不能为空");
    }

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

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

   AnsiString  m_PrechCancelDate;
   AnsiString  b_PrechCancelDate;
   m_PrechCancelDate=GetMasterValue("PrechCancelDate");

   m_PrechCancel=GetMasterValue("PrechCancel");
    if(m_PrechCancel==1)
    {
      if(m_PrechCancelDate.LowerCase().IsEmpty())
        throw Exception("取消日期不能为空");
    }

  AnsiString  m_PrechDesc;
   m_PrechDesc=GetMasterValue("PrechDesc");
}
//---------------------------------------------------------------------------
void __fastcall TKSPrech_P_I::ValidItemValues()
{

   int m_PrecdLine;
   int b_PrecdLine;
   m_PrecdLine=GetDetailValue("PrecdLine");
   b_PrecdLine=GetDetailOldValue("PrecdLine");
    if(m_PrecdLine<1)
      throw Exception("收货单行号不能小于1");

   AnsiString  m_PrecdCode;
   m_PrecdCode=GetDetailValue("PrecdCode");

   AnsiString  m_PrecdGoods;
   AnsiString  b_PrecdGoods;
   m_PrecdGoods=GetDetailValue("PrecdGoods");
   b_PrecdGoods=GetDetailOldValue("PrecdGoods");

  AnsiString  m_PrecdUnit;
   AnsiString  b_PrecdUnit;
   m_PrecdUnit=GetDetailValue("PrecdUnit");
   b_PrecdUnit=GetDetailOldValue("PrecdUnit");

 double m_PrecdConv;
  double b_PrecdConv;
   m_PrecdConv=GetDetailValue("PrecdConv");
   b_PrecdConv=GetDetailOldValue("PrecdConv");

  double m_PrecdPrice;
   m_PrecdPrice=GetDetailValue("PrecdPrice");
  double m_PrecdDQty;

  m_PrecdDQty=GetDetailValue("PrecdDQty");
  double m_PrecdQty;
  m_PrecdQty=GetDetailValue("PrecdQty");
  if(m_PrecdDQty < m_PrecdQty)
   throw Exception("送货数量不能少于收货数量");
}
//-----------------------------------------------------------------------------
void __fastcall TKSPrech_P_I::CmdExec(AnsiString Param)
{

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