appendininfo.cpp

物资管理系统Material Management System

// AppendInInfo.cpp : implementation file
//

#include "stdafx.h"
#include "Material_MIS.h"
#include "AppendInInfo.h"
#include "Material_MISView.h"

#ifdef _DEBUG
#define new DEBUG_NEW
#undef THIS_FILE
static char THIS_FILE[] = __FILE__;
#endif

/////////////////////////////////////////////////////////////////////////////
// CAppendInInfo dialog


CAppendInInfo::CAppendInInfo(CWnd* pParent /*=NULL*/)
	: CDialog(CAppendInInfo::IDD, pParent)
{
	//{{AFX_DATA_INIT(CAppendInInfo)
	m_sDealPerson = _T("");
	m_sMemo = _T("");
	m_sSavePerson = _T("");
	m_sStorage = _T("");
	m_sTime = COleDateTime::GetCurrentTime();
	m_sUnit = _T("");
	m_wzName=_T("");
	m_wzID=_T("");
	m_wzSpec=_T("");
	m_wzKind=_T("");
	m_wzUnit=_T("");
	m_rkNO = _T("");
	m_sMoney = _T("");
	m_sQuantity = _T("");
	//}}AFX_DATA_INIT
}


void CAppendInInfo::DoDataExchange(CDataExchange* pDX)
{
	CDialog::DoDataExchange(pDX);
	//{{AFX_DATA_MAP(CAppendInInfo)
	DDX_Text(pDX, IDC_IN_DEALPERSON, m_sDealPerson);
	DDX_Text(pDX, IDC_IN_MEMO, m_sMemo);
	DDX_Text(pDX, IDC_IN_SAVEPERSON, m_sSavePerson);
	DDX_Text(pDX, IDC_IN_STORAGE, m_sStorage);
	DDX_Text(pDX, IDC_IN_TIME, m_sTime);
	DDX_Text(pDX, IDC_IN_UNIT, m_sUnit);
	DDX_Text(pDX, IDC_IN_WZNAME, m_wzName);
	DDX_Text(pDX, IDC_IN_WZID, m_wzID);
	DDX_Text(pDX, IDC_IN_WZSPEC, m_wzSpec);
	DDX_Text(pDX, IDC_IN_WZKIND, m_wzKind);
	DDX_Text(pDX, IDC_IN_WZUNIT, m_wzUnit);
	DDX_Text(pDX, IDC_IN_RKNO, m_rkNO);
	DDX_Text(pDX, IDC_IN_MONEY, m_sMoney);
	DDX_Text(pDX, IDC_IN_QUANTITY, m_sQuantity);
	//}}AFX_DATA_MAP
}


BEGIN_MESSAGE_MAP(CAppendInInfo, CDialog)
	//{{AFX_MSG_MAP(CAppendInInfo)
	ON_CBN_SELCHANGE(IDC_IN_WZID, OnSelchangeInWzid)
	//}}AFX_MSG_MAP
END_MESSAGE_MAP()

/////////////////////////////////////////////////////////////////////////////
// CAppendInInfo message handlers

void CAppendInInfo::OnOK() 
{
	// TODO: Add extra validation here
		UpdateData(true);
	
	m_sDealPerson.TrimRight(" ");
    m_sMoney.TrimRight(" ");
	m_sQuantity.TrimRight(" ");
	m_sSavePerson.TrimRight(" ");
	m_sStorage.TrimRight(" ");
	m_sUnit.TrimRight(" ");
	m_sMemo.TrimRight(" ");

	CString sWarning="";
	if( ""==m_sQuantity ) sWarning=_T("数量");
	else if ( ""==m_sUnit ) sWarning=_T("单价");
	else if ( ""==m_sMoney ) sWarning=_T("金额");
    else if ( ""==m_sDealPerson ) sWarning=_T("经办人");
	else if ( ""==m_sSavePerson ) sWarning=_T("保管人");
	else if ( ""==m_sStorage ) sWarning=_T("仓库");

	if ( ""!=sWarning ) 
	{
	   sWarning += _T("不能为空！");
	   AfxMessageBox(sWarning, MB_ICONEXCLAMATION);
	   return;
	}
	
	double fQuantity=atof(m_sQuantity);
	if ( 0==fQuantity )  
	{
		AfxMessageBox(_T("数量请输入非零整数！"), MB_ICONEXCLAMATION);
	    return;
	}
	
	double fUnit=atof(m_sUnit);
	if(0==fUnit)
	{
		AfxMessageBox(_T("单价请输入非零数字！"), MB_ICONEXCLAMATION);
	    return;
	}
	m_sUnit.Format("%.2f", fUnit);
	
	double fMoney=atof(m_sMoney);
	if(0==fMoney)
	{
		AfxMessageBox(_T("金额请输入非零数字！"), MB_ICONEXCLAMATION);
	    return;
	}
	m_sMoney.Format("%.2f", fMoney);

	_variant_t strQuery;
	_variant_t strQuery1;
	_variant_t strQuery2;
	_variant_t strQuery3;
	_variant_t strQuery4;
	
	// 删除旧记录
	if ( !m_bAppend )
	{	

		strQuery4="update msurplus set yeaccount=yeaccount-"+m_soldaccount+",yevalue=yevalue-"\
				+m_soldvalue+" where yeid='"+m_wzID+"'and yebase='"+m_sStorage+"'";
		theApp.ADOExecute(theApp.m_pADOSet,strQuery4);
		
		strQuery = "delete from msave where rkno='"+m_rkNO+"'";
        theApp.ADOExecute(theApp.m_pADOSet, strQuery);
	}
   				
	// 产生序列号
	CString sSN;
	COleDateTime today = COleDateTime::GetCurrentTime();
	sSN = today.Format("%y%m%d%H%M%S");

    // 获得入库日期
	CString sInDate;
	sInDate = m_sTime.Format("%Y-%m-%d");
		
	// 插入记录
	strQuery = "insert msave (rkno, rkid, rkname, rkspec, rkkind, rkunit, rkaccount,rkprice,\
					rkvalue,rkdate,rkdeal_person,rksave_person,rkbase,rkmemo) values ('"+sSN+"', '"\
					+m_wzID+"','" +m_wzName+"','"+m_wzSpec+"','"+m_wzKind+"','"\
					+m_wzUnit+"',"+m_sQuantity+","+m_sUnit+","+m_sMoney+",'"\
					+sInDate+"','"+m_sDealPerson+"','"+m_sSavePerson+"','"\
					+m_sStorage+"','"+m_sMemo+"')";
					
	if ( theApp.ADOExecute(theApp.m_pADOSet, strQuery) ) 
	{
		if ( m_bAppend ) 
		{
			AfxMessageBox(_T("添加记录成功！"), MB_ICONINFORMATION);
			strQuery1="select * from msurplus where yeid='"+m_wzID+"' and yebase='"+m_sStorage+"'";
			theApp.ADOExecute(theApp.m_pADOSet, strQuery1);
			int iCount=theApp.m_pADOSet->RecordCount;
			if(0==iCount)
			{
				strQuery2 = "insert msurplus (yeid, yename, yespec, yekind, yeunit, yeaccount,\
					yevalue,yebase,yememo) values ('"+m_wzID+"','" +m_wzName+"','"+m_wzSpec+"','"+m_wzKind+"','"\
					+m_wzUnit+"',"+m_sQuantity+","+m_sMoney+",'"\
					+m_sStorage+"','"+m_sMemo+"')";
				theApp.ADOExecute(theApp.m_pADOSet,strQuery2);
			}
			else
				strQuery3="update msurplus set yeaccount=yeaccount+"+m_sQuantity+",yevalue=yevalue+"\
				+m_sMoney+" where yeid='"+m_wzID+"'and yebase='"+m_sStorage+"'";
				theApp.ADOExecute(theApp.m_pADOSet,strQuery3);

		    // 清除所有输入
			m_sQuantity=m_sUnit=m_sMoney=sInDate=m_sDealPerson=m_sSavePerson=\
				m_sStorage=m_sMemo="";
            ((CComboBox*)GetDlgItem(IDC_IN_WZID))->SetCurSel(0);
			UpdateData(false);
		}
		else 
		{
			
				strQuery3="update msurplus set yeaccount=yeaccount+"+m_sQuantity+",yevalue=yevalue+"\
				+m_sMoney+" where yeid='"+m_wzID+"'and yebase='"+m_sStorage+"'";
				theApp.ADOExecute(theApp.m_pADOSet,strQuery3);
			
			AfxMessageBox(_T("修改记录成功！"), MB_ICONINFORMATION);
		}
	}
	else 
	{
		if ( m_bAppend ) AfxMessageBox(_T("添加记录失败！"), MB_ICONEXCLAMATION);
		else AfxMessageBox(_T("修改记录失败！"), MB_ICONEXCLAMATION);
	    
	}
		
	// 刷新入库信息列表
	strQuery = "select * from msave";
	CMaterial_MISView* p = (CMaterial_MISView*)(((CMainFrame*)AfxGetMainWnd())->GetActiveView());
	p->RefreshIn(strQuery);
	
	if (!m_bAppend) CDialog::OnOK();
}

BOOL CAppendInInfo::OnInitDialog() 
{
	CDialog::OnInitDialog();
	((CEdit*)GetDlgItem(IDC_IN_QUANTITY))->SetLimitText(50);
	((CEdit*)GetDlgItem(IDC_IN_UNIT))->SetLimitText(50);
	((CEdit*)GetDlgItem(IDC_IN_MONEY))->SetLimitText(50);
	((CEdit*)GetDlgItem(IDC_IN_TIME))->SetLimitText(50);
	((CEdit*)GetDlgItem(IDC_IN_DEALPERSON))->SetLimitText(50);
	((CEdit*)GetDlgItem(IDC_IN_SAVEPERSON))->SetLimitText(50);
	((CEdit*)GetDlgItem(IDC_IN_STORAGE))->SetLimitText(50);
	((CEdit*)GetDlgItem(IDC_IN_MEMO))->SetLimitText(50);


	// TODO: Add extra initialization here
	_variant_t strQuery, Holder;
	if (m_bAppend)
	{
	    // 初始化下拉列表
		SetWindowText(_T("添加入库信息"));

		strQuery = "select * from material";
	    theApp.ADOExecute(theApp.m_pADOSet, strQuery);
	    int iCount = theApp.m_pADOSet->GetRecordCount();
		theApp.m_pADOSet->MoveFirst();
		for (int i=0; i<iCount; i++)
		{
		    Holder = theApp.m_pADOSet->GetCollect("wzid");
	        ((CComboBox*)GetDlgItem(IDC_IN_WZID))->InsertString(i, Holder.vt==VT_NULL?"":(char*)(_bstr_t)Holder);				
			if (0==i)
			{
			Holder = theApp.m_pADOSet->GetCollect("wzname");
			m_wzName = Holder.vt==VT_NULL?"":(char*)(_bstr_t)Holder;
    
			Holder = theApp.m_pADOSet->GetCollect("wzspec");
			m_wzSpec = Holder.vt==VT_NULL?"":(char*)(_bstr_t)Holder;
 
			Holder = theApp.m_pADOSet->GetCollect("wzkind");
			m_wzKind = Holder.vt==VT_NULL?"":(char*)(_bstr_t)Holder;

			Holder = theApp.m_pADOSet->GetCollect("wzunit");
			m_wzUnit = Holder.vt==VT_NULL?"":(char*)(_bstr_t)Holder;
			
		}
			theApp.m_pADOSet->MoveNext();
		}
		((CComboBox*)GetDlgItem(IDC_IN_WZID))->SetCurSel(0);
	}
	else//修改记录
	{
		SetWindowText(_T("修改物资入库信息"));
		
		m_rkOldNO=m_rkNO;
		m_soldaccount=m_sQuantity;
		m_soldvalue=m_sMoney;
		_variant_t strQuery, Holder;	
		CString NO;
		int iSel = 0;
		strQuery = "select * from msave";
	    theApp.ADOExecute(theApp.m_pADOSet, strQuery);
	    int iCount = theApp.m_pADOSet->GetRecordCount();
		theApp.m_pADOSet->MoveFirst();
		for (int i=0; i<iCount; i++)
		{
		    Holder = theApp.m_pADOSet->GetCollect("rkno");
			NO = Holder.vt==VT_NULL?"":(char*)(_bstr_t)Holder;

			Holder = theApp.m_pADOSet->GetCollect("rkid");
			m_wzID = Holder.vt==VT_NULL?"":(char*)(_bstr_t)Holder;
	        ((CComboBox*)GetDlgItem(IDC_IN_WZID))->InsertString(i, Holder.vt==VT_NULL?"":(char*)(_bstr_t)Holder);				
			if (NO==m_rkNO)
			{
			Holder = theApp.m_pADOSet->GetCollect("rkname");
			m_wzName = Holder.vt==VT_NULL?"":(char*)(_bstr_t)Holder;
    
			Holder = theApp.m_pADOSet->GetCollect("rkspec");
			m_wzSpec = Holder.vt==VT_NULL?"":(char*)(_bstr_t)Holder;
 
			Holder = theApp.m_pADOSet->GetCollect("rkkind");
			m_wzKind = Holder.vt==VT_NULL?"":(char*)(_bstr_t)Holder;

			Holder = theApp.m_pADOSet->GetCollect("rkunit");
			m_wzUnit = Holder.vt==VT_NULL?"":(char*)(_bstr_t)Holder;

			iSel=i;
			
		}
			theApp.m_pADOSet->MoveNext();
		}
		((CComboBox*)GetDlgItem(IDC_IN_WZID))->SetCurSel(iSel);
		
	}

	UpdateData(false);
	return TRUE;  // return TRUE unless you set the focus to a control
	              // EXCEPTION: OCX Property Pages should return FALSE
}



void CAppendInInfo::OnSelchangeInWzid() 
{
	// TODO: Add your control notification handler code here
	UpdateData(true);
	_variant_t strQuery, Holder;
	//
	strQuery = "select * from material where wzid='"+m_wzID+"'";
	theApp.ADOExecute(theApp.m_pADOSet, strQuery);
 
	Holder = theApp.m_pADOSet->GetCollect("wzname");
	m_wzName = Holder.vt==VT_NULL?"":(char*)(_bstr_t)Holder;


	Holder = theApp.m_pADOSet->GetCollect("wzspec");
	m_wzSpec = Holder.vt==VT_NULL?"":(char*)(_bstr_t)Holder;
   
	Holder = theApp.m_pADOSet->GetCollect("wzKind");
	m_wzKind = Holder.vt==VT_NULL?"":(char*)(_bstr_t)Holder;
  
	Holder = theApp.m_pADOSet->GetCollect("wzunit");
	m_wzUnit = Holder.vt==VT_NULL?"":(char*)(_bstr_t)Holder;
    
    UpdateData(false);
}