menufunc.c

sco unix 前台界面开发程序,采用UNIX中的词法分析器和语法分析器

#include <stdio.h>
#include <stdlib.h>
#include <stdarg.h>
#include "public.h"
#include "protime.h"
#include "screen.h"
#include "mymenu.h"
#include "myform.h"
#include "global.h"
#include "clitype.h"
#include "viewbox.h"

extern int SendHost();
void ErrLog(const char *fmt, ...)
{
	va_list	ap_list;
	FILE	*fp;
	char fname[30];
	va_start(ap_list, fmt);
	memset(fname,0,30);
	sprintf(fname,"../log/ErrCli.%d",GetSysTime('D'));
	fp = fopen(fname,"a+");
	if (fp != NULL) 
	{       
		fprintf(fp,"[%06d] ",GetSysTime('T'));
		vfprintf(fp, fmt, ap_list);
		fflush(fp);
		fclose(fp);
	}

	va_end(ap_list);
}

int ChkPrivil(char type)//检查用户权限
{
	if(OPRTYPE[0] != type) {
		PrintErr(stdscr, 1009);
		deleteln();
		refresh();
		return(1);
	}
	return(0);
}

/*
 增加柜员
 发送： 1001 
  		oprcode     char(4) not null,
        oprname     char(12) not null,
        oprtype     char(1) not null,
        passwd      char(6) not null,
        orgcode     char(4) not null,
        stat        char(1) not null
 返回：1001 + 结果
 0-存在 !0-失败
 */

int AddUser()
{
	char oprcode[5], oprname[13];
	char tmp[5];
	int ret = 0;
	FORM_NODE *p;
	WINDOW *win;
	if(ChkPrivil('2')) return(1);
	if((p = LoadForm("../etc/adduser.frm")) == NULL) return(0);
	win = FormWin(p);
	while(DriverForm(p) == OK ){
		if(CheckForm(p)) continue;
		memset(PACK, 0, sizeof(PACK));
		sprintf(PACK, "1001%-4s%-12s%s%-6s%-4s0",
	    	ReadField(p, 1), ReadField(p, 2), ReadField(p, 3),
	    	ReadField(p, 4), ReadField(p, 5));
	    if(ret = SendHost()) PrintErr(win, ret);
	    else {
	    	memset(tmp, 0, 5);
	    	memcpy(tmp, &PACK[4], 4);
	    	if( ret = atoi(tmp)) PrintErr(win, ret);
	    	else { 
	    		PrintMsg(win, "增加柜员成功", 'R');
	    		FreeForm(p);
	    		p = LoadForm("../etc/adduser.frm");
	    		win = FormWin(p);
	    	}
		}
	}
	FreeForm(p);
	return(ret);
}


/*
  SEND:删除柜员 1002
  		oprcode
  GET: 1002 + result
*/  
int DelUser()
{
	char oprcode[5], oprname[13];
	char tmp[5];
	int ret = 0;
	FORM_NODE *p;
	WINDOW *win;
	if(ChkPrivil('2')) return(1);
	if((p = LoadForm("../etc/deluser.frm")) == NULL) return(0);
	win = FormWin(p);
	while(DriverForm(p) == OK ){
		if(CheckForm(p)) continue;
		memset(PACK, 0, sizeof(PACK));
		sprintf(PACK, "1002%-4s", ReadField(p, 1));
	    if(ret = SendHost()) PrintErr(win, ret);
	    else {
	    	memset(tmp, 0, 5);
	    	memcpy(tmp, &PACK[4], 4);
	    	if( ret = atoi(tmp)) PrintErr(win, ret);
	    	else { 
	    		PrintMsg(win, "删除柜员成功", 'R');
	    		FreeForm(p);
	    		p = LoadForm("../etc/deluser.frm");
	    		win = FormWin(p);
	    	}
		}
	}
	FreeForm(p);
	return(ret);
}

int QryUser()
{
	int ret, i;
	char name[80], title[1024], lname[40], rname[40], tmp[5], cmd[160];
	if(ChkPrivil('2')) return(1);
	memset(PACK, 0, sizeof(PACK));
	sprintf(PACK, "1003%-8s%-4s", SYSDATE, OPRCODE);
	if(ret = SendHost()) {
		PrintErr(stdscr, ret);
		deleteln();
		refresh();
		return(-1);
	}
	memset(tmp, 0, 5);
	memcpy(tmp, &PACK[4], 4);
	if( ret = atoi(tmp)) {
		PrintErr(stdscr, ret);
		deleteln();
		refresh();
		return(-1);
	}
	memset(rname, 0, 40);
	memset(lname, 0, 40);
	sprintf(rname, "/usr/large/data/R%-4s", OPRCODE);
	sprintf(lname, "/usr/large/tmp/R%-4s", OPRCODE);
	memset(cmd,0,160);
	sprintf(cmd,"FTPclient -h %s -p %d -a -r -f %s -F %s", IP, FTPPORT, rname, lname);
	CliLog("%s|%d|命令[%s]\n",__FILE__,__LINE__,cmd);
	i=0;
	while(i++ < 3 && system(cmd) );
	if(i>=3) {
		CliLog("%s|%d|下载文件[%s]失败\n",__FILE__,__LINE__,rname);
		PrintMsg(stdscr, "下载文件失败", 'E');
		deleteln();
		refresh();
    	return(-1);	
	}
	memset(name, 0, sizeof(name));
	sprintf(name, "%s", "[查询柜员]");
	memset(title, 0, sizeof(title));
	sprintf(title, "%-6s %-12s %-8s %-4s %-4s", 
		"柜员号","姓名","类别","所号","状态");                                         
	ViewBox(2, 2, 22, 76, name, title, lname);
	return(0);
}


int ModiPass()//修改密码
{
	int ret = 0;
	FORM_NODE *p;
	WINDOW *win;
	char tmp[80];
	if((p = LoadForm("../etc/modipass.frm")) == NULL) return(0);
	win = FormWin(p);
	WriteField(p, 1, ORGCODE);
	while(DriverForm(p) == OK ) {
		if(strcmp(Trim(ReadField(p, 2)), Trim(ReadField(p, 3)))) {
			PrintMsg(win, "新密码两次输入不同", 'E'); 
			continue;	
		}	
		memset(PACK, 0, sizeof(PACK));
		sprintf(PACK, "1008%4s%-6s",OPRCODE, ReadField(p, 2));
		if(ret = SendHost()) PrintErr(win, ret);
	    else {
	    	memset(tmp, 0, 80);
	    	memcpy(tmp, &PACK[4], 4);
	    	if( ret = atoi(tmp)) PrintErr(win, ret);
	    	else { 
	    		PrintMsg(win, "密码修改成功", 'R');
	    		FreeForm(p);
	    		return(0);
	    	}
	    }	
	}
	FreeForm(p);
	return(ret);
}	
	
int UserExit()//柜员签退
{
	int ret;
	char code[5];
	memset(PACK, 0, sizeof(PACK));
	sprintf(PACK, "1005%-4s", OPRCODE);
	if(ret = SendHost()) {
		PrintErr(stdscr, ret);
		deleteln();
		refresh();
		return(1);
	}
	memset(code, 0, 5);
	memcpy(code, &PACK[4], 4);
	if( ret = atoi(code)) {
		PrintErr(stdscr, ret);
		deleteln();
		refresh();
		return(1);
	}
	EndScreen();
	CancelType();
	exit(0);
}

/*
大额转账业务要素检查
*/

int ChkHVPT(FORM_NODE *p)
{
	ST_HVPT m;
	char tmp[80];
	WINDOW *win=FormWin(p);
	memset(&m, 0, sizeof(ST_HVPT));
	strcpy(m.outbkno, 	ReadField(p, 1));
	strcpy(m.outbktype, ReadField(p, 2));
	strcpy(m.outname, 	ReadField(p, 3));
	strcpy(m.outacctno, ReadField(p, 4));
	strcpy(m.outpartno, ReadField(p, 5));
	strcpy(m.inbkno, 	ReadField(p, 6));
	strcpy(m.inbktype, 	ReadField(p, 7)); 
	strcpy(m.inname, 	ReadField(p, 8)); 
	strcpy(m.inacctno, 	ReadField(p, 9));
	strcpy(m.inpartno, 	ReadField(p, 10));
	memset(tmp, 0, 80);
	strcpy(tmp, 		ReadField(p, 11));
	m.amount = atof(tmp);
	strcpy(m.outdate, 	ReadField(p, 12)); 
	strcpy(m.indate, 	ReadField(p, 13));
	strcpy(m.use, 		ReadField(p, 14)); 
	strcpy(m.transtype, ReadField(p, 15));
	strcpy(m.billno, 	ReadField(p, 16));
	strcpy(m.transcode, ReadField(p, 17));
	
	if(IsBlank(m.outbkno)) {
		PrintMsg(win, "付款行行号不能为空", 'E');
		return(1);
	}
	
	if(atoi(m.transtype) != 51 ) {
		if(IsBlank(m.outacctno)) {
			PrintMsg(win, "当结算方式不为银行本票时，付款人账号不能为空。", 'E');
			return(1);
		}
	} 
	
	if(atoi(m.transtype) != 51 ) {
		if(IsBlank(m.outname)) {
			PrintMsg(win, "当结算方式不为银行本票时，付款人名称不能为空。", 'E');
			return(1);
		}
	}  
	
	if(IsBlank(m.inbkno)) {
		PrintMsg(win, "收款行行号不能为空", 'E');
		return(1);
	}
	
	if(IsBlank(m.inacctno)) {
		PrintMsg(win, "收款人账号不能为空", 'E');
		return(1);
	}
	
	if(IsBlank(m.inname)) {
		PrintMsg(win, "收款人名称不能为空", 'E');
		return(1);
	}
	
	if((m.inbktype[0] != '0') || (m.outbktype[0] != '0')) {
		if(IsBlank(m.billno)) {
			PrintMsg(win, "跨行交易时凭证代码不能为空", 'E');
			return(1);
		}
	}
	
	if(((m.inbktype[0] == '0' ) && (m.outbktype[0] != '0')) 
		|| ((m.inbktype[0] !='0') && (m.outbktype[0] == '0')))
		{
			PrintMsg(win, "收、付款行行号类型不一致。", 'E');
			return(1);
		} 
	
	return(0); 
}


/*
 大额转账业务
*/
int AddHVPT()
{
	int ret = 0;
	FORM_NODE *p;
	WINDOW *win;
	char tmp[80];
	if(ChkPrivil('1')) return(1);
	if((p = LoadForm("../etc/addhvpt.frm")) == NULL) return(0);
	win = FormWin(p);
	while(DriverForm(p) == OK ){
		if(CheckForm(p)) continue;
		if(ChkHVPT(p)) continue;
		
		memset(PACK, 0, sizeof(PACK));
		sprintf(PACK, "2001%-8s%-4s%-06d%-32s%-12s%s%-60s%-40s%-20s%-12s%s%-60s%-40s%-20s%-18s%-8s%-8s%-20s%-2s%-32s%-10s%-20s%-4s%s",
			SYSDATE, OPRCODE, SEQNO++, " ", 
			ReadField(p, 1), ReadField(p, 2), ReadField(p, 3),
			ReadField(p, 4), ReadField(p, 5), ReadField(p, 6),
			ReadField(p, 7), ReadField(p, 8), ReadField(p, 9),
			ReadField(p, 10), ReadField(p, 11), ReadField(p, 12),
			ReadField(p, 13), ReadField(p, 14), ReadField(p, 15),
			ReadField(p, 16), ReadField(p, 17), " ", ORGCODE, "1");
		if(ret = SendHost()) PrintErr(win, ret);
	    else {
	    	memset(tmp, 0, 80);
	    	memcpy(tmp, &PACK[4], 4);
	    	if( ret = atoi(tmp)) PrintErr(win, ret);
	    	else { 
	    		PrintMsg(win, "交易成功", 'R');
	    		FreeForm(p);
	    		p = LoadForm("../etc/addhvpt.frm");
	    		win = FormWin(p);
	    	}
	    }	
	}
	FreeForm(p);
	return(ret);
}
   

/*
 大额现金存入业务要素检查 
*/   
int ChkHVCS(FORM_NODE *p)
{
	ST_HVCS m; 
	char tmp[80];
	WINDOW *win = FormWin(p);
	memset(&m, 0, sizeof(ST_HVCS));
	strcpy(m.outname,		ReadField(p, 1));		  
	strcpy(m.outpasstype, 	ReadField(p, 2));  
	strcpy(m.outpassno,  	ReadField(p, 3)); 
	strcpy(m.inbkno,     	ReadField(p, 4)); 
	strcpy(m.inbktype,   	ReadField(p, 5));  
	strcpy(m.inname,     	ReadField(p, 6));
	strcpy(m.inacctno,   	ReadField(p, 7)); 
	strcpy(m.intype,     	ReadField(p, 8));
	strcpy(m.inpartno,   	ReadField(p, 9));
	strcpy(m.inpasstype, 	ReadField(p, 10));
	strcpy(m.inpassno,   	ReadField(p, 11));
	memset(tmp, 0, sizeof(tmp));  
	strcpy(tmp,				ReadField(p, 12)); 
	m.amount = atof(tmp);		 
	strcpy(m.indate,     	ReadField(p, 13)); 
	strcpy(m.use,        	ReadField(p, 14));
	strcpy(m.transtype,	 	ReadField(p, 15));
	strcpy(m.transcode,  	ReadField(p, 16)); 
	
	if(IsBlank(m.outname)) {
		PrintMsg(win, "缴款人名称不能为空", 'E');
		return(1);
	}    
	
	if(IsBlank(m.inbkno)) {
		PrintMsg(win, "收款行行号不能为空", 'E');
		return(1);
	}
	
	if(IsBlank(m.inacctno)) {
		PrintMsg(win, "收款人账号不能为空", 'E');
		return(1);
	}
	
	if(IsBlank(m.inname)) {
		PrintMsg(win, "收款人名称不能为空", 'E');
		return(1);
	}
	
	if((atoi(m.intype) == 2) && IsBlank(m.inpasstype)) {
		PrintMsg(win, "收款人类型为个人时，收款人证件类型不能为空。", 'E');
		return(1);
	}
	
	if((atoi(m.intype) == 2) && IsBlank(m.inpassno)) {
		PrintMsg(win, "收款人类型为个人时，收款人证件号码不能为空。", 'E');
		return(1);
	}
	
	return(0);
		
}

/*
 大额现金存入业务  
*/
int AddHVCS()
{