hmd.ec

来自「在SCO UNIX制定界面程序 可根据文件配制菜单,而不必修改源程序,非常方便」· EC 代码 · 共 95 行

/****************************************************
 *	黑名单界面输入后的处理函数
 *
 * 最后修改:	周国祥 2002/04/18
 ****************************************************/
#include <curses.h>
#include "tool.h"
$include "db_struct.h"
$include "wb_list.h"

EXEC SQL INCLUDE sqlca;
EXEC SQL WHENEVER SQLERROR CALL error_handler;
EXEC SQL WHENEVER SQLWARNING CALL warning_handler;
EXEC SQL WHENEVER NOT FOUND CALL notfound_handler;

extern S_wb_list	wb_list;
$S_wb_list	wb_lst;
extern int do_query, do_insert, do_update, do_delete;
extern WINDOW *sql_win;

extern int misc_audit(), audit(), select_sys_param();

int addtoblist(scr)
struct screen_st scr;
{
	$long sid;
	$short indi;
	$S_sys_param sys;
	$char action;
	char str[600];

	if (select_sys_param(&sys))
		return(-1);

	EXEC SQL LOCK TABLE wb_snd_tmp IN EXCLUSIVE MODE;

	if (sqlca.sqlcode) return(-1);

	EXEC SQL SELECT MAX(sid)
	INTO :sid:indi
	FROM wb_snd_tmp;

	if (indi == -1) sid = 1;
	else if (sqlca.sqlcode) return(-1);
	else sid++;

	if (do_insert) action = 'A';
	if (do_update) action = 'U';
	if (do_delete) action = 'D';

	strcpy(wb_lst.card_no,wb_list.card_no);
	strcpy(wb_lst.exp_date,wb_list.exp_date);
	strcpy(wb_lst.wb_type,wb_list.wb_type);
	strcpy(wb_lst.oper_no,wb_list.oper_no);
	strcpy(wb_lst.input_date,wb_list.input_date);
	strcpy(wb_lst.input_time,wb_list.input_time);

	EXEC SQL INSERT INTO wb_snd_tmp VALUES
	(:sys.bank_id,:sys.host_id, :sid, :wb_lst.card_no,
	:wb_lst.exp_date, :wb_lst.wb_type,:wb_lst.oper_no,:wb_lst.input_date,
	:wb_lst.input_time,:action);

	if (sqlca.sqlcode)
		return(-1);

	sprintf(str, "增加表 wb_snd_tmp: sid[%ld] card_no[%s] action[%c]",
		sid, wb_lst.card_no, action);

	return(audit(scr));
}

int check_hmd(card_no)
$parameter char *card_no;
{
	$char state[4];

	if (do_query) return(0);

	$select wb_type into :state from wb_list
	where card_no = :card_no;

	if (SQLCODE < 0) {
		beep();
		h_prompt(21, 58, "注意:查止付名单出错!!!", 0, 1);
	} else
		if (SQLCODE == 0) {
			beep();
			h_prompt(21, 56, "注意:此卡在止付名单中!!!", 0, 1);
		} else
			h_prompt(21, 56, "                        ", 0, 0);

	return(0);
}