kssalefuc.cpp

来自「一个以前收集的基于C/S架构的ERP客户端源代码」· C++ 代码 · 共 63 行

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

#include <vcl.h>
#pragma hdrstop

#include "KSSaleFuc.h"
#include "AncBillBase.h"
#include "QueryBaseForm.h"
#include "StdBaseForm.h"

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

#pragma package(smart_init)

//^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^%

// is legit goods user
int IsLegitGU(AnsiString GoodsCode, TComResultSet *Query)                                                                          
{
	if ( GoodsCode=="" ) return -1;
	  Query->Close();
	  try{
		  Query->Open("SELECT ParameterValue FROM sdParameter WHERE  ParameterCode='10413'","");
		  if (StrToInt(Query->FieldByName("ParameterValue")))
		  {
			  Query->Close();	
			  Query->Open("SELECT GoodsSaler, GoodsCode FROM sdGoods WHERE "
				  "sdGoods.GoodsSaler='"+ g_sdUserCode +"' AND sdGoods.GoodsCode='"+GoodsCode+"'","");
			  if ( Query->RecordCount == 0 ){
				   ShowMessage("当前用户没有权限操作该物料!");
				   return 0;
			  }
			  return 1;
		  }
	  }
	  catch(...)
	  {  	throw Exception("参数10413(启用物料销售员) 错误!");	}
	  Query->Close();

return -1; 
}

//---------------------------------------------------------------------------
//AnsiString s_GetParam(int ParamVaule, TComResultSet *Query)
//{
//AnsiString sParamVaule;
//	sParamVaule = IntToStr(ParamVaule);
//	  Query->Close();
//	  try{
//		  Query->Open("SELECT ParameterValue FROM sdParameter WHERE  ParameterCode='"+sParamVaule+"'","");
//		  return Query->FieldByName("ParameterValue")
//
//	  }
//	  catch(...)
//	  {  	
//		ShowMessage( "使用参数"+sParamVaule+"错误!");	
//	  }
//	  Query->Close();
//
//	return "Error";
//}