dphsacti.pc

小灵通机卡分离模块的设计.建立在数据库服务器

	PrintStatus("yqd dphsacti1110");
	PrintStatus(gcretstr);
		return -1;
	}
PrintStatus("yqdWO SWFJASLJFASJDFJ");
   return 0;
}


/*
* 函数说明：生成sr_accept_log信息
* 输入参数：
* 输出参数：
* 返 回 值：
*/

int intoSr_accept_logProc()

{
	EXEC SQL BEGIN DECLARE SECTION;


	EXEC SQL END DECLARE SECTION;
	/*初始化变量*/
	strcpy(gcsrv_type,"0");/*0正式受理单，1修正单*/

	/*删除旧记录*/
	EXEC SQL DELETE FROM sr_accept_log WHERE produce_id = :gcmainproduce_id AND produce_no = :gcmainproduce_no AND (accept_state = '10' OR accept_state = '00');
	if (sqlca.sqlcode < 0)
	{
		strcpy(gcretstr,"删除sr_accept_log出错");
		return -1;
	}

	EXEC SQL SELECT cust_type,cust_name,cert_no,cert_type,cust_kind INTO :gccust_type,:gccust_name,:gccert_no,:gccert_type,:gccust_kind 
	FROM dc_sim_precust 
	WHERE cust_id = :gccust_id;
  if (sqlca.sqlcode != 0)
  {
    strcat(gcretstr,"检索dc_sim_precust出错");
#ifdef	YYDEBUG
    DebugLog("%s",gcretstr);
    fclose(tracefp);
		CopyTr(gcfilename,gcyyerrlog);
#endif
    exceptExit(-1,gcretstr);
  }


  		
	PrintStatus("yqd插入sr_accept_log数据");
		PrintStatus("gcmainproduce_id");
	PrintStatus(gcmainproduce_id);
	PrintStatus("gcmainproduce_no");
	PrintStatus(gcmainproduce_no);
	PrintStatus("gcaccept_state");
	PrintStatus(gcaccept_state);
	
	PrintStatus("gcmainorder_id");
	PrintStatus(gcmainorder_id);

	PrintStatus("gcmainaccept_id");
	PrintStatus(gcmainaccept_id);
	
	PrintStatus("gcGenCustid");
	PrintStatus(gcGenCustid);

	PrintStatus("gccust_code");
	PrintStatus(gccust_code);

	PrintStatus("gcmainproduct_id");
	PrintStatus(gcmainproduct_id);


	PrintStatus("gccust_name");
	PrintStatus(gccust_name);
	
	PrintStatus("gccust_type");
	PrintStatus(gccust_type);

	PrintStatus("gcsrv_code");
	PrintStatus(gcsrv_code);
	
		PrintStatus("gcsub_srv");
		PrintStatus(gcsub_srv);
		
	PrintStatus("gcaccept_lan");
	PrintStatus(gcaccept_lan);

	PrintStatus("gcvest_lan");
	PrintStatus(gcvest_lan);
	
	PrintStatus("gcexch_code");
	PrintStatus(gcexch_code);

	PrintStatus("gcdepart_code");
	PrintStatus(gcdepart_code);

	PrintStatus("gcoper_code");
	PrintStatus(gcoper_code);

	PrintStatus("gcterminal_ip");
	PrintStatus(gcterminal_ip);
	
	PrintStatus("gcterm_code");
	PrintStatus(gcterm_code);

	PrintStatus("gcsrv_type");
	PrintStatus(gcsrv_type);


	PrintStatus("gccert_no");
	PrintStatus(gccert_no);

	PrintStatus("gccert_type");
	PrintStatus(gccert_type);

	PrintStatus("gccust_kind");
PrintStatus(gccust_kind);

	trim(gccert_no);
	trim(gcGenCustid);
	trim(gccust_name);
	trim(gccust_type);
	trim(gcsub_srv);
	trim(gcaccept_lan);
	trim(gcvest_lan);
	trim(gccert_type);
	trim(gccust_kind);
	trim(gccert_no);
	EXEC SQL INSERT INTO sr_accept_log(
	produce_id,produce_no,accept_state,
	order_id,accept_id,owncust_id,owncust_code,product_id,
	cust_name,cust_type,srv_code,sub_srv,accept_lan,vest_lan,
	unit_type,unit_code,exch_code,
	depart_code,depart_type,oper_code,terminal_ip,term_code,atime,
	srv_type,cert_no,cert_type,cust_kind)
	VALUES(:gcmainproduce_id,:gcmainproduce_no,:gcaccept_state,
	:gcmainorder_id,:gcmainaccept_id,:gcGenCustid,:gccust_code,:gcmainproduct_id,
	:gccust_name,:gccust_type,:gcsrv_code,:gcsub_srv,:gcaccept_lan,:gcvest_lan,
	'1','001',:gcexch_code,
	:gcdepart_code,'01',:gcoper_code,'','',sysdate,
	:gcsrv_type,:gccert_no,:gccert_type,:gccust_kind);
	if (sqlca.sqlcode < 0)
	{
		strcpy(gcretstr,"插入sr_accept_log出错");
	 sprintf(gcretstr,"yqd:%d,%s",sqlca.sqlcode,sqlca.sqlerrm.sqlerrmc);
	PrintStatus("yqd 13021255");
	PrintStatus(gcretstr);

		return -1;
	}
	return 0;

	
}

/*
* 函数说明：生成pdn_servcontrol信息
* 输入参数：
* 输出参数：
* 返 回 值：
*/

int intoPdn_servcontrolProc()

{
	EXEC SQL BEGIN DECLARE SECTION;

	EXEC SQL END DECLARE SECTION;
		strcpy(gcsrv_type,"0");
		strcpy(gcdisp_flag,"0");		/*显示标志,在客户中心中是否显示*/
		strcpy(gcaccept_state,"00");
		if (gitimes == 2)
		{
			/*删除旧记录*/
			EXEC SQL DELETE FROM pdn_servcontrol WHERE produce_id = :gcmainproduce_id AND produce_no = :gcmainproduce_no AND (accept_state = '10' OR accept_state = '00');
			if (sqlca.sqlcode < 0)
			{
				strcpy(gcretstr,"删除pdn_servcontrol出错");
				
				return -1;
			}
		}
		EXEC SQL INSERT INTO pdn_servcontrol(produce_id,produce_no,order_id,accept_id,product_id,srv_code,sub_srv,accept_state,disp_flag,srv_type,atime)
		VALUES(:gcmainproduce_id,:gcmainproduce_no,:gcmainorder_id,:gcmainaccept_id,:gcmainproduct_id,:gcsrv_code,:gcsub_srv,:gcaccept_state,:gcdisp_flag,:gcsrv_type,sysdate);
		if (sqlca.sqlcode != 0)
		{
			strcpy(gcretstr,"插入pdn_servcontrol出错");
	 sprintf(gcretstr,"yqd:%d,%s",sqlca.sqlcode,sqlca.sqlerrm.sqlerrmc);
	PrintStatus("yqd dphsacti1255");
	PrintStatus(gcretstr);

			return -1;
		}

	return 0;
}


/*
* 函数说明：生成pdn_relate信息
* 输入参数：
* 输出参数：
* 返 回 值：
*/

int intoPdn_relateProc()

{
	EXEC SQL BEGIN DECLARE SECTION;


	EXEC SQL END DECLARE SECTION;


	return 0;
}


/*
* 函数说明：生成pdn_prepay信息
* 输入参数：
* 输出参数：
* 返 回 值：
*/

int intoPdn_prepayProc()

{
	EXEC SQL BEGIN DECLARE SECTION;
	char lch3[PREPAY_FIELD][PREPAY_LENGTH] = {0};
	char lcsub[3] = {0};
	int  lisub=0;
	int  j=0;
	int  k=0;
	EXEC SQL END DECLARE SECTION;

	return 0;
}


/*
* 函数说明：生成pdn_foregift信息
* 输入参数：
* 输出参数：
* 返 回 值：
*/

int intoPdn_foregiftProc()

{
	EXEC SQL BEGIN DECLARE SECTION;

	char lch6[FOREGIFT_FIELD][FOREGIFT_LENGTH] = {0};
	char lcsub[3] = {0};
	char lcsrowid[5] = {0};
	char lccrowid[5] = {0};
	int  lisub=0;
	int  j=0;
	int  k=0;
	EXEC SQL END DECLARE SECTION;
	return 0;
}

/*
* 函数说明：生成p_orderdis信息
* 输入参数：
* 输出参数：
* 返 回 值：
*/

int intop_orderdis()
{
	EXEC SQL BEGIN DECLARE SECTION;
	int lcsubject_id=0;
	int lccontent_id=0;
	char lcvalidfee_flag[2]={0};
	char lcfeeitem_code[5]={0};
	char lcdis_mode[2]={0};
	char lcpresent_code[11]={0};
	int lcdis_var=0;
	char lctime_flage[2]={0};
	char lctime_unit[3]={0};
	int lccontent_time=0;
	int lcgroup_no=0;
	char lcuse_scope[2]={0};
	char lcetime[20]={0};
	int RetCode;
	EXEC SQL END DECLARE SECTION;
	
	
  		EXEC SQL DECLARE curdc_sim_predisc CURSOR  FOR SELECT 
  		 subject_id,content_id,validfee_flag,
	 		 feeitem_code,dis_mode,present_code,dis_var,time_flag,
	 		 time_unit,content_time,group_no,
	     use_scope,etime
			FROM dc_sim_predisc
			WHERE product_id  = :gcoldproduct_id;


			EXEC SQL OPEN curdc_sim_predisc;
	 				if (sqlca.sqlcode < 0)
					{
					strcpy(gcretstr,"打开游标出错");
				
					return -1;
					}
			
			while (1)
			{
			    EXEC SQL FETCH curdc_sim_predisc INTO :lcsubject_id,:lccontent_id,:lcvalidfee_flag,
	 				:lcfeeitem_code,:lcdis_mode,:lcpresent_code,:lcdis_var,:lctime_flage,
	 				:lctime_unit,:lccontent_time,:lcgroup_no,
	 				:lcuse_scope,:lcetime;
	      	RetCode = checkError("dc_sim_predisc",LINK_SELECT);
	      	
	      	if ( RetCode == DATAERROR )
	      	{
	      		EXEC SQL close curdc_sim_predisc;
	      		return -1 ;
					}
					if ( ( RetCode==DATANOTFOUND )||( getCurRecRowNum() > MAX_ROW_NUM ) )
					{
							break;
					}
					
					trim(lcvalidfee_flag);
					trim(lcfeeitem_code);
					trim(lcdis_mode);
					trim(lcpresent_code);
  				trim(lctime_flage);
					trim(lctime_unit);
					trim(lcuse_scope);
					trim(lcetime);
					EXEC SQL INSERT INTO p_orderdis(
	 				produce_id,produce_no,subject_id,content_id,validfee_flag,
	 				feeitem_code,dis_mode,present_code,dis_var,time_flag,
	 				time_unit,content_time,atime,stime,group_no,
	 				use_scope,etime)
	 				VALUES(:gcmainproduce_id,:gcmainproduce_no,:lcsubject_id,:lccontent_id,:lcvalidfee_flag,
	 				:lcfeeitem_code,:lcdis_mode,:lcpresent_code,:lcdis_var,:lctime_flage,
	 				:lctime_unit,:lccontent_time,sysdate,sysdate,:lcgroup_no,
	 				:lcuse_scope,:lcetime
	 				);
	 				if (sqlca.sqlcode < 0)
					{
					strcpy(gcretstr,"插入p_orderdis出错");
				
					return -1;
					}

				}
  			EXEC SQL CLOSE curdc_sim_predisc;
				return 0;
		
}
/*
* 函数说明：生成Pdn_prepay信息
* 输入参数：
* 输出参数：
* 返 回 值：
*/

int intoPdn_prepay(){
	EXEC SQL BEGIN DECLARE SECTION;
	char lcitem_code[41]={0};
	char lcitem_value[256]={0};
	int  RetCode=0;
	char lcaccountid[11]={0};
	char lcprod_class[3]={0};
	EXEC SQL END DECLARE SECTION;
	
  		EXEC SQL DECLARE curPdn_prod_prop CURSOR  FOR SELECT 
			item_code,item_value,prod_class
			FROM Pdn_prod_prop
			WHERE product_id  = :gcmainproduct_id AND produce_type='1';
	
	EXEC SQL OPEN curPdn_prod_prop;
	if (sqlca.sqlcode < 0)
	{
	strcpy(gcretstr,"打开游标出错");
	return -1;
	}
			
	while (1)
	{
			    EXEC SQL FETCH curPdn_prod_prop INTO :lcitem_code,:lcitem_value,:lcprod_class;
	      	RetCode = checkError("Pdn_prod_prop",LINK_SELECT);
	      	
	      	if ( RetCode == DATAERROR )
	      	{
	      		EXEC SQL close curPdn_prod_prop;
	      		return -1 ;
					}
					if ( ( RetCode==DATANOTFOUND )||( getCurRecRowNum() > MAX_ROW_NUM ) )
					{
							break;
					}
					trim(lcitem_code);
					trim(lcitem_value);
					
					if(strcmp(lcitem_code,"prepay_info")==0)
					{
					
				   	sprintf(lcaccountid,"%d",GenAccountidProc());
				  	trim(lcaccountid);
				  	if (strcmp(lcaccountid,"-1") == 0)
 					 	{
				    	strcpy(gcretstr,"生成预付费帐号出错");
    				  return -1;
  					}
						
						EXEC SQL INSERT INTO pdn_prepay(
						produce_id,produce_type,account_id,pwd,cust_id,
						card_no,bala_mode,mmaxconsume,dmaxconsume,rent_flag,
						rent_type,rent_money,awoke_sum,allow_money,
						allow_time,discount_type,fetch_flag,fetch_money,pay_mode,
						bank_receipt,stime,comments
						)
						SELECT 	
						:gcmainproduce_id,1,:lcaccountid,pwd,cust_id,
						card_no,bala_mode,mmaxconsume,dmaxconsume,rent_flag,
						rent_type,rent_money,awoke_sum,allow_money,
						allow_time,discount_type,fetch_flag,fetch_money,pay_mode,
						bank_receipt,sysdate,comments
						FROM dc_sim_prepay
						WHERE account_id =:lcitem_value;
					if (sqlca.sqlcode < 0)
					{
					strcpy(gcretstr,"插入pdn_prepay出错");
				
					return -1;
					}
			
						
						EXEC SQL UPDATE pdn_prod_prop 
						SET item_value=:lcaccountid
						WHERE produce_id =:gcmainproduce_id 
						 AND produce_type=1
						 AND prod_class=:lcprod_class
						 AND item_code =:lcitem_code;
	 				if (sqlca.sqlcode < 0)
					{
					strcpy(gcretstr,"更新pdn_prod_prop出错");
					return -1;
					}
			}
		 
	}
	EXEC SQL close curPdn_prod_prop;
	return 0;
}