hmd.ec.sav

在SCO UNIX制定界面程序 可根据文件配制菜单,而不必修改源程序,非常方便

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

EXEC SQL INCLUDE sqlca;
EXEC SQL include "db_struct.h";
EXEC SQL include "wb_list.h";

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;

EXEC SQL BEGIN DECLARE SECTION;
S_wb_list	wb_lst;
EXEC SQL END DECLARE SECTION;

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;
{
EXEC SQL BEGIN DECLARE SECTION;
	long sid;
	short indi;
	S_sys_param sys;
	char action;
EXEC SQL END DECLARE SECTION;

	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)
EXEC SQL BEGIN DECLARE SECTION;
parameter char *card_no;
EXEC SQL END DECLARE SECTION;
{
EXEC SQL BEGIN DECLARE SECTION;
	char state[4];
EXEC SQL END DECLARE SECTION;

	if (do_query) return(0);

	EXEC SQL 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);
}