outputauditing.cpp

用VC+SQL实现的物流管理系统 “RxMediaPlayer” 文件夹中存放《物流综合管理系统》中《媒体播放平台》源程序 “数据库设置”文件夹中存放《物流综合管理系统》辅助工具《数据库设置》源程

// OutPutAuditing.cpp: implementation of the COutPutAuditing class.
//
//////////////////////////////////////////////////////////////////////

#include "stdafx.h"
#include "MyProject.h"
#include "OutPutAuditing.h"

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

//////////////////////////////////////////////////////////////////////
// Construction/Destruction
//////////////////////////////////////////////////////////////////////

COutPutAuditing::COutPutAuditing()
{

}

COutPutAuditing::~COutPutAuditing()
{

}

void COutPutAuditing::Init()
{
	CString sSQL;
	this->SetWindowText("出库审核");
	RxRecordset rst;
	
	//初始化表格
	sSQL.Format("SELECT b.条形码,b.名称,b.规格,b.产地,b.计量单位, a.出库数量,a.出库单价  FROM 出库明细表 a inner join 商品信息表 b  on a.商品条型码=b.条形码");
	m_Grid.SetDataBase(sSQL,adCmdText);
	m_Grid.DeleteAllItems();

	//初始化文本框
	sSQL.Format("SELECT a.出库票号, a.出库日期,e.全称 AS 客户名称, c.姓名 AS 经手人,d.用户名 AS 操作员 FROM 出库记录表  a INNER JOIN 销售记录表  b ON a.销售票号 = b.销售票号 INNER JOIN 员工信息表 c ON a.经手人 = c.编号 INNER JOIN 操作员信息表 d ON  a.操作员 = d.操作员编号 INNER JOIN 往来单位信息表  e ON b.客户编号 = e.编号 WHERE a.审核否=0");
	rst.Open(sSQL,adCmdText);
	m_EdtNoteID.Initialize(this->GetParent());
	m_EdtNoteID.SetRecordset(rst);
	m_EdtNoteID.SetSelectField("出库票号");

}

void COutPutAuditing::OnButfind()
{
	CString sSQL,sNoteID;
	m_EdtNoteID.GetWindowText(sNoteID);
	sSQL.Format("SELECT b.条形码,b.名称,b.规格,b.产地,b.计量单位, a.出库数量,a.出库单价  FROM 出库明细表 a inner join 商品信息表 b  on a.商品条型码=b.条形码  WHERE 出库票号='%s'",sNoteID);
	RxRecordset rst;
	rst.Open(sSQL,adCmdText);
	m_Grid.AddCellValue(rst);
	if(m_Grid.GetItemCount()>0)
		this->m_ButCheck.EnableWindow(true);


}

void COutPutAuditing::OnButcheck()
{
	if(MessageBox("确定审核通过吗？","系统提示",MB_OKCANCEL|MB_ICONQUESTION)!=1)
		return;
	CString sNumber,sCode,sStore,sSQL;
	CString sID;
	RxRecordset rst;
	this->m_EdtNoteID.GetWindowText(sID);
	sSQL.Format("SELECT * FROM 出库记录表 a INNER JOIN 销售记录表 b ON a.销售票号=b.销售票号  WHERE  a.出库票号='%s'",sID);
	rst.Open(sSQL,adCmdText);
	sStore=rst.GetFieldValue("出货仓库");
	for(int i=0;i<m_Grid.GetItemCount();i++)
	{
		sCode=m_Grid.GetItemText(i,0);
		sNumber=m_Grid.GetItemText(i,5);
		//修改库存
		sSQL.Format("SELECT * FROM 库存信息表 WHERE 商品条形码='%s' AND 仓库编号=%s",sCode,sStore);
		rst.Open(sSQL,adCmdText);
		if(rst.GetRecordCount()<1)
			sSQL.Format("INSERT INTO 库存信息表  VALUES('%s','%s',%d,0,0,10,100)",sCode,sStore,0-atoi(sNumber));
		else
			sSQL.Format("UPDATE 库存信息表  SET 库存数量=库存数量-%s  WHERE 商品条形码='%s' AND 仓库编号=%s", sNumber,sCode,sStore);
		rst.Open(sSQL,adCmdText);
	}
	//更新出库信息表
	sSQL.Format("UPDATE 出库记录表 SET 审核否=1 WHERE 出库票号='%s'",sID);
	rst.Open(sSQL,adCmdText);
	//记录审核信息
	CString sMan,sOPID;
	this->m_EdtMan.GetWindowText(sMan);
	sMan=ado.FieldToOtherField("员工信息表","姓名",sMan,"编号",1);
	sOPID=ado.FieldToOtherField("操作员信息表","用户名",OP,"操作员编号",1);
	sSQL.Format("INSERT INTO 出库审核表 VALUES('%s',1,%s,%s)",sID,sMan,sOPID);
	rst.Open(sSQL,adCmdText);	
	MessageBox("审核成功！","系统提示",MB_OK|MB_ICONINFORMATION);
	this->m_ButCheck.EnableWindow(false);
	//刷新文本框
	sSQL.Format("SELECT a.出库票号, a.出库日期,e.全称 AS 客户名称, c.姓名 AS 经手人,d.用户名 AS 操作员 FROM 出库记录表  a INNER JOIN 销售记录表  b ON a.销售票号 = b.销售票号 INNER JOIN 员工信息表 c ON a.经手人 = c.编号 INNER JOIN 操作员信息表 d ON  a.操作员 = d.操作员编号 INNER JOIN 往来单位信息表  e ON b.客户编号 = e.编号 WHERE a.审核否=0");
	rst.Open(sSQL,adCmdText);
	m_EdtNoteID.SetRecordset(rst);
	m_EdtNoteID.IsShowing=true;
	m_EdtNoteID.SetWindowText("");
	m_EdtNoteID.IsShowing=false;

	m_EdtNoteID.SetFocus();
}

void COutPutAuditing::OnButdiscard()
{
	if(MessageBox("确定审核作废吗？","系统提示",MB_OKCANCEL|MB_ICONQUESTION)!=1)
		return;
	RxRecordset rst;
	CString sID,sMan,sOPID,sSQL;
	m_EdtNoteID.GetWindowText(sID);
	m_EdtMan.GetWindowText(sMan);
	sMan=ado.FieldToOtherField("员工信息表","姓名",sMan,"编号",1);
	sOPID=ado.FieldToOtherField("操作员信息表","用户名",OP,"操作员编号",1);
	//记录审核信息
	sSQL.Format("INSERT INTO 出库审核表 VALUES('%s',0,%s,%s)",sID,sMan,sOPID);
	rst.Open(sSQL,adCmdText);	

	//删除销售信息
	CString sSellID;
	sSellID=ado.FieldToOtherField("出库记录表","出库票号",sID,"销售票号",1);
	sSQL.Format("DELETE 销售记录表 WHERE 销售票号='%s'",sSellID);
	rst.Open(sSQL,adCmdText);	
	
	//删除出库信息
	sSQL.Format("DELETE 出库记录表 WHERE 出库票号='%s'",sID);
	rst.Open(sSQL,adCmdText);	
	
	m_Grid.DeleteAllItems();
	this->m_EdtNoteID.SetFocus();

}