kssalefuc.cpp

来自「科思ERP部分源码及控件」· C++ 代码 · 共 111 行

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

#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 false;
	  Query->Close();
	  try{
		  Query->Open("SELECT ParameterValue FROM sdParameter WHERE  ParameterCode='10413'","");
		  if (StrToInt(Query->FieldByName("ParameterValue")))
		  {
			  Query->Close();
			  Query->Open(
				"SELECT 1 FROM sdSgd INNER JOIN "
				"sdClient ON sdClient.ClientCode = sdSgd.SgdClientCode INNER JOIN "
				"sdSaler ON sdSaler.SalerCode = sdClient.ClientSaler "
				"WHERE (sdClient.ClientSaler='"+ g_sdUserCode +"') AND (  sdSgd.SgdGoodsCode='"+ GoodsCode +"' ) "
				,"");
			  if ( Query->RecordCount == 0 ){
				   ShowMessage("您没有权限操作物料<"+GoodsCode+">!");
				   return 0;
			  }
			  return 1;
		  }
	  }
	  catch(...)
	  {  	throw Exception("参数10413(启用物料销售员) 错误!");	}
	  Query->Close();

return -1;
}

//---------------------------------------------------------------------------
//^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^%
//
// is legit goods-user
//  return a sql filtra string;
// if clientcode nonull then 
AnsiString IsLegitCU(AnsiString ClientCode, TComResultSet *Query)
{
    AnsiString sqlFilt;

    Query->Close();
    try{
        Query->Open("SELECT ParameterValue FROM sdParameter WHERE  ParameterCode='10413'","");
        if (StrToInt(Query->FieldByName("ParameterValue")))
        {
            if ( ClientCode=="" )
            {
                sqlFilt = " ClientSaler='"+ g_sdUserCode +"' " ;
            }
            else
            {
			  Query->Close();
			  Query->Open(
                "SELECT * FROM sdClient WHERE  ClientCode = '"+ ClientCode +"' "
                "AND ClientSaler='"+ g_sdUserCode +"'", "");
			  if ( Query->RecordCount == 0 )
              {
				   ShowMessage("您没有权限使用该客户<"+ClientCode+">!");
				   return "";
			  }
                sqlFilt = ClientCode;
            }
        }
    }
    catch(...)
    {
        throw Exception("参数10413 (客户过滤错误) 错误!");
    }
    Query->Close();

return sqlFilt;
}

//---------------------------------------------------------------------------
//AnsiString s_GetParam(TComResultSet *Query, int ParamVaule )
//{
//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";
//}
//---------------------------------------------------------------------------