mprech_n_i.cpp

科思ERP部分源码及控件

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

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

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

#pragma package(smart_init)
TKSPrech_N_I *sdPrech_N_I;
//---------------------------------------------------------------------------
__fastcall TKSPrech_N_I::TKSPrech_N_I()
  :TKSMidBase()
{
}
//---------------------------------------------------------------------------
void __fastcall TKSPrech_N_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().IsEmpty())
//      throw Exception("货运单号不能为空");
    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_N_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_PrecdPo;
   m_PrecdPo="";

   int m_PrecdPodLine;
   m_PrecdPodLine=0;



  double m_PrecdQty;
  double b_PrecdQty;
   m_PrecdQty=GetDetailValue("PrecdQty");
   b_PrecdQty=GetDetailOldValue("PrecdQty");
    double FPodQty,FPodRQty;
    if(m_PrecdQty<=0)
      throw Exception("收货数量必须大于零");

   double m_PrecdPrice;
   m_PrecdPrice=GetDetailValue("PrecdPrice");
    if(m_PrecdPrice<=0)
     throw Exception("收货单价必须大于零");

   double m_PrecdAmt;
   m_PrecdAmt=GetDetailValue("PrecdAmt");
   //这里计算税

  double m_PrecdTAmt;
   m_PrecdTAmt=GetDetailValue("PrecdTAmt");
    if(m_PrecdTAmt<0)
      throw Exception("税额不能小于零");

  double m_PrecdKAmt;
   m_PrecdKAmt=GetDetailValue("PrecdKAmt");
    if(m_PrecdKAmt<0)
      throw Exception("折扣不能小于零");

  double m_PrecdRAmt;
   m_PrecdRAmt=GetDetailValue("PrecdRAmt");
    if(m_PrecdRAmt<0)
      throw Exception("折让不能小于零");

  double m_PrecdOAmt;
   m_PrecdOAmt=GetDetailValue("PrecdOAmt");
    if(m_PrecdOAmt<0)
      throw Exception("其他费用不能小于零");

  double  m_PrecdDQty;
   m_PrecdDQty=GetDetailValue("PrecdDQty");

   m_PrecdQty=GetDetailValue("PrecdQty");
  if(m_PrecdDQty < m_PrecdQty)
   throw Exception("送货数量不能少于收货数量");
    if(m_PrecdDQty<0)
      throw Exception("送货数量不能小于零");


   AnsiString  m_PrecdCDate;
   AnsiString  b_PrecdCDate;
   m_PrecdCDate=GetDetailValue("PrecdCDate");
   b_PrecdCDate=GetDetailOldValue("PrecdCDate");
    if(m_PrecdCDate.LowerCase().IsEmpty())
      b_PrecdCDate.LowerCase()="";

   AnsiString  m_PrecdRDate;
   AnsiString  b_PrecdRDate;
   m_PrecdRDate=GetDetailValue("PrecdRDate");
   b_PrecdRDate=GetDetailOldValue("PrecdRDate");
    if(m_PrecdRDate.LowerCase().IsEmpty())
      b_PrecdRDate.LowerCase()="";
 //   else

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

   AnsiString  m_PrecdCloseDate;
   AnsiString  b_PrecdCloseDate;
   m_PrecdCloseDate=GetDetailValue("PrecdCloseDate");
   b_PrecdCloseDate=GetDetailOldValue("PrecdCloseDate");
    if(m_PrecdCloseDate.LowerCase().IsEmpty()==false)
    {}
    else
      b_PrecdCloseDate.LowerCase()="";
}
//-----------------------------------------------------------------------------
void __fastcall TKSPrech_N_I::CmdExec(AnsiString Param)
{

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