mpivoh.cpp

科思ERP部分源码及控件

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

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

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

#pragma package(smart_init)
TKSPivoh *sdPivoh;
//---------------------------------------------------------------------------
__fastcall TKSPivoh::TKSPivoh()
  :TKSMidBase()
{
}
//---------------------------------------------------------------------------
void __fastcall TKSPivoh::ValidHeadValues()
{
   AnsiString  m_PivohDate;
   m_PivohDate=GetMasterValue("PivohDate");
    if(m_PivohDate.LowerCase().IsEmpty())
      throw Exception("操作日期不能为空");

   int m_PivohType;
   int b_PivohType;
   m_PivohType=GetMasterValue("PivohType");
   b_PivohType=GetMasterOldValue("PivohType");
   if(m_PivohType<1 || m_PivohType >2)
      throw Exception("发票类型只能为1-普通发票，2-增值税发票");
    b_PivohType = m_PivohType;

   AnsiString  m_PivohContract;
   AnsiString  b_PivohContract;
   m_PivohContract=GetMasterValue("PivohContract");
   b_PivohContract=GetMasterOldValue("PivohContract");
    if(m_PivohContract.LowerCase().Length()>18)
      throw Exception("合同编号长度不能大于18");
    b_PivohContract.LowerCase() = m_PivohContract.LowerCase();

   AnsiString  m_PivohAddr;
   AnsiString  b_PivohAddr;
   m_PivohAddr=GetMasterValue("PivohAddr");
   b_PivohAddr=GetMasterOldValue("PivohAddr");
    b_PivohAddr.LowerCase() = m_PivohAddr.LowerCase();

  double m_PivohTaxRate;
  double b_PivohTaxRate;
   m_PivohTaxRate=GetMasterValue("PivohTaxRate");
   b_PivohTaxRate=GetMasterOldValue("PivohTaxRate");
    b_PivohTaxRate = m_PivohTaxRate;

   AnsiString  m_PivohDesc;
   AnsiString  b_PivohDesc;
   m_PivohDesc=GetMasterValue("PivohDesc");
   b_PivohDesc=GetMasterOldValue("PivohDesc");
    b_PivohDesc.LowerCase() = m_PivohDesc.LowerCase();
   AnsiString  m_PivohApDate;
   m_PivohApDate=GetMasterValue("PivohApDate");
    if(m_PivohApDate.LowerCase().IsEmpty())
      throw Exception("付款日期不能为空");

   int m_PivohRed;
   int b_PivohRed;
   m_PivohRed=GetMasterValue("PivohRed");
   b_PivohRed=GetMasterOldValue("PivohRed");
    b_PivohRed = m_PivohRed;

   AnsiString  m_PivohTaxNo;
   AnsiString  b_PivohTaxNo;
   m_PivohTaxNo=GetMasterValue("PivohTaxNo");
   b_PivohTaxNo=GetMasterOldValue("PivohTaxNo");
    b_PivohTaxNo.LowerCase() = m_PivohTaxNo.LowerCase();

   AnsiString  m_PivohTel;
   AnsiString  b_PivohTel;
   m_PivohTel=GetMasterValue("PivohTel");
   b_PivohTel=GetMasterOldValue("PivohTel");
    b_PivohTel.LowerCase() = m_PivohTel.LowerCase();

   AnsiString  m_PivohCacBankName;
   AnsiString  b_PivohCacBankName;
   m_PivohCacBankName=GetMasterValue("PivohCacBankName");
   b_PivohCacBankName=GetMasterOldValue("PivohCacBankName");
    b_PivohCacBankName.LowerCase() = m_PivohCacBankName.LowerCase();


  double m_PivohAmt;
  double b_PivohAmt;
   m_PivohAmt=GetMasterValue("PivohAmt");
   b_PivohAmt=GetMasterOldValue("PivohAmt");
    b_PivohAmt = m_PivohAmt;

  double m_PivohTaxAmt;
  double b_PivohTaxAmt;
   m_PivohTaxAmt=GetMasterValue("PivohTaxAmt");
   b_PivohTaxAmt=GetMasterOldValue("PivohTaxAmt");
    if(m_PivohTaxAmt<0)
      throw Exception("税额不能小于零");
    b_PivohTaxAmt = m_PivohTaxAmt;

  double m_PivohSumAmt;
  double b_PivohSumAmt;
   m_PivohSumAmt=GetMasterValue("PivohSumAmt");
   b_PivohSumAmt=GetMasterOldValue("PivohSumAmt");
    b_PivohSumAmt = m_PivohSumAmt;

  double m_PivohZkAmt;
  double b_PivohZkAmt;
   m_PivohZkAmt=GetMasterValue("PivohZkAmt");
   b_PivohZkAmt=GetMasterOldValue("PivohZkAmt");
    b_PivohZkAmt = m_PivohZkAmt;


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

   AnsiString  m_PivohCheckDate;
   AnsiString  b_PivohCheckDate;
   m_PivohCheckDate=GetMasterValue("PivohCheckDate");

   m_PivohCheck=GetMasterValue("PivohCheck");
    if(m_PivohCheck==1)
    {
      if(m_PivohCheckDate.LowerCase().IsEmpty())
        throw Exception("审核日期不能为空");
    }
    else
      b_PivohCheckDate.LowerCase()="";

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

   AnsiString  m_PivohCancelDate;
   AnsiString  b_PivohCancelDate;
   m_PivohCancelDate=GetMasterValue("PivohCancelDate");

   m_PivohCancel=GetMasterValue("PivohCancel");
    if(m_PivohCancel==1)
    {
      if(m_PivohCancelDate.LowerCase().IsEmpty())
        throw Exception("取消日期不能为空");
    }

  AnsiString  m_PivohSysDate;
   m_PivohSysDate=GetMasterValue("PivohSysDate");

}
   //---------------------------------------------------------------------------
void __fastcall TKSPivoh::ValidItemValues()
{

   AnsiString  m_PivodCode;
   AnsiString  b_PivodCode;
   m_PivodCode=GetDetailValue("PivodCode");
   b_PivodCode=GetDetailOldValue("PivodCode");
    b_PivodCode.LowerCase() = m_PivodCode.LowerCase();

  double m_PivodQty;
  double b_PivodQty;
   m_PivodQty=GetDetailValue("PivodQty");
   b_PivodQty=GetDetailOldValue("PivodQty");
    if(m_PivodQty<=0)
      throw Exception("数量不能小等于零");
    b_PivodQty = m_PivodQty;

  double m_PivodPrice;
  double b_PivodPrice;
  double m_PivodAmt;
   m_PivodAmt=GetDetailValue("PivodAmt");
   m_PivodQty=GetDetailValue("PivodQty");
   m_PivodPrice=GetDetailValue("PivodPrice");
   b_PivodPrice=GetDetailOldValue("PivodPrice");
    if(m_PivodQty<0)
       throw Exception("行数量不能小于零.");
    if(m_PivodPrice<0)
       throw Exception("行单价不能小于零.");
    b_PivodPrice = m_PivodPrice;
   // m_PivodAmt=DataCarry(m_PivodQty*b_PivodPrice,2,0);

  double m_PivodTaxPrice;
  double b_PivodTaxPrice;
   m_PivodTaxPrice=GetDetailValue("PivodTaxPrice");
   b_PivodTaxPrice=GetDetailOldValue("PivodTaxPrice");
    b_PivodTaxPrice = m_PivodTaxPrice;

  double b_PivodAmt;
   m_PivodAmt=GetDetailValue("PivodAmt");
   b_PivodAmt=GetDetailOldValue("PivodAmt");
    if(m_PivodAmt<0)
      throw Exception("行金额不能小于零");
    b_PivodAmt = m_PivodAmt;


  double m_PivodTaxAmt;
  double b_PivodTaxAmt;
   m_PivodTaxAmt=GetDetailValue("PivodTaxAmt");
   b_PivodTaxAmt=GetDetailOldValue("PivodTaxAmt");
    if(m_PivodTaxAmt<0)
      throw Exception("税额不能小于零");
    b_PivodTaxAmt = m_PivodTaxAmt;

  double m_PivodSumAmt;
  double b_PivodSumAmt;
   m_PivodSumAmt=GetDetailValue("PivodSumAmt");
   b_PivodSumAmt=GetDetailOldValue("PivodSumAmt");
    b_PivodSumAmt = m_PivodSumAmt;

  double m_PivodZkAmt;
  double b_PivodZkAmt;
   m_PivodZkAmt=GetDetailValue("PivodZkAmt");
   b_PivodZkAmt=GetDetailOldValue("PivodZkAmt");
    if(m_PivodZkAmt<0)
      throw Exception("折扣额不能小于零");
    b_PivodZkAmt = m_PivodZkAmt;

  AnsiString  m_PivodPoCode;
   m_PivodPoCode=GetDetailValue("PivodPoCode");



  AnsiString  m_PivodDesc;
   m_PivodDesc=GetDetailValue("PivodDesc");

}

//---------------------------------------------------------------------------
void __fastcall TKSPivoh::CmdExec(AnsiString Param)
{

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