menufunc.c

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

		PrintMsg(stdscr, "下载文件失败", 'E');
		deleteln();
		refresh();
    	return(-1);	
	}
	memset(name, 0, sizeof(name));
	sprintf(name, "%s", "[查询人民币现金存入业务]");
	memset(title, 0, sizeof(title));
	sprintf(title, "%-6s %-60s %-14s %-20s %-12s %-14s %-60s %-40s %-10s %-20s %-10s %-20s %15s %-8s %-20s %-8s %-12s ", 
		"流水号", "缴款人名称", "缴款人证件类型", 
		"缴款人证件号码", "收款行行号", "收款行行号类型",
		"收款人名称", "收款人账号", "收款人类型",
		"收款人机构代码", "收款人证件类型", "收款人证件号码",
		"金额",	"收款日期", "现金来源", 
		"结算方式",	"交易类型代码"); 
	ViewBox(2, 2, 22, 76, name, title, lname);
	return(0);
}

int QryHVCD()
{
	ST_HVCD m;
	int ret, i;
	char name[80], title[1024], lname[40], rname[40], tmp[5], cmd[160];
	if(ChkPrivil('1')) return(1);
	memset(PACK, 0, sizeof(PACK));
	sprintf(PACK, "4003%-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 %-14s %-60s %-40s %-20s %-10s %-14s %-20s %-60s %-10s %-14s %-20s %15s %-8s %-20s %-8s %-12s ", 
		"流水号",  "付款行行号", "付款行行号类型",                  
		"付款人名称", "付款人账号","付款人机构代码",     
		"付款人类型","付款人证件类型", "付款人证件号码", 
		"收款人名称","收款人类型", "收款人证件类型",     
		"付款人证件号码", "金额",  "付款日期",           
		"用途","结算方式","交易类型代码");                
	ViewBox(2, 2, 22, 76, name, title, lname);
	return(0);
}

int QryOHVC()
{
	ST_OHVC m;
	int ret, i;
	char name[80], title[1024], lname[40], rname[40], tmp[5], cmd[160];
	if(ChkPrivil('1')) return(1);
	memset(PACK, 0, sizeof(PACK));
	sprintf(PACK, "4004%-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 %-14s %-60s %-40s %-14s %-20s %-20s %-12s %-14s %-60s %-40s %-14s %-20s %-20s %15s %-8s %-8s %-20s %-8s %-32s %-12s ", 
		"流水号", "付款行行号", "付款行行号类型",                               
		"付款人名称", "付款人账号", "付款人证件类型",                                                 
		"付款人证件号码", "付款人机构代码", "收款行行号",   
		"收款行行号类型", "收款人名称", "收款人账号",                                   
		"收款人证件类型", "收款人证件号码",  "收款人机构代码",                                             
		"金额", "付款日期", "收款日期",                                                       
		"用途", "结算方式", "凭证代码",
		"交易类型代码");                                             
	ViewBox(2, 2, 22, 76, name, title, lname);
	return(0);    
}                 
                  
int QryPBTO()
{
	ST_PBTO m;
	int ret, i;
	char name[80], title[1024], lname[40], rname[40], tmp[5], cmd[160];
	if(ChkPrivil('1')) return(1);
	memset(PACK, 0, sizeof(PACK));
	sprintf(PACK, "4005%-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 %-14s %-60s %-40s %-20s %-12s %-14s %-60s %-40s %-20s %-10s %-14s %-20s %15s %-8s %-8s %-20s %-8s %-32s %-12s ", 
		"流水号", "付款行行号", "付款行行号类型",
		"付款人名称", "付款人账号", "付款人机构代码",                                             
        "收款行行号", "收款行行号类型", "收款人名称",                                       
        "收款人账号", "收款人机构代码", "收款人类型",                              
        "个人证件类型", "个人证件号码",  "金额", 
		"付款日期", "收款日期", "用途",       
        "结算方式", "凭证代码", "交易类型代码");        
	
	ViewBox(2, 2, 22, 76, name, title, lname);
	return(0);
}

int QryPATO()
{
	ST_PATO m;
	int ret, i;
	char name[80], title[1024], lname[40], rname[40], tmp[5], cmd[160];
	if(ChkPrivil('1')) return(1);
	memset(PACK, 0, sizeof(PACK));
	sprintf(PACK, "4006%-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 %-14s %-60s %-40s %-20s %-10s %-14s %-20s %-12s %-14s %-60s %-40s %-20s %-10s %-14s %-20s %15s %-8s %-8s %-20s %-8s %-32s %-12s", 
		"流水号", "付款行行号", "付款行行号类型",           
		"付款人名称", "付款人账号", "付款人机构代码",                                                
		"付款人类型", "付款人证件类型","付款人证件号码",                                               
		"收款行行号", "收款行行号类型", "收款人名称",  
		"收款人账号", "收款人机构代码", "收款人类型",                                               
		"收款人证件类型",  "收款人证件号码", "金额",                                           
		"付款日期", "收款日期", "用途",          
		"结算方式", "凭证代码",	"交易类型代码");                                           
	ViewBox(2, 2, 22, 76, name, title, lname);
	return(0);
}

int ChkTotal(FORM_NODE *p)
{
	WINDOW *win = FormWin(p);
	if((OPRTYPE[0] == '1') && strcmp(SYSDATE, ReadField(p, 1))) {
		PrintMsg(win, "普通柜员日期应为当前工作日期", 'E');
		return(-1);
	}
	if((OPRTYPE[0] == '1') && !strcmp("3", ReadField(p, 2))) {
		PrintMsg(win, "普通柜员不能按全部方式轧账", 'E');
		return(-1);
	}	
	if((OPRTYPE[0] == '2') && !strcmp("1", ReadField(p, 2))) {
		PrintMsg(win, "业务主管不能按所号方式轧账", 'E');
		return(-1);
	}	
	if((OPRTYPE[0] == '2') && !strcmp("2", ReadField(p, 2))) {
		PrintMsg(win, "业务主管不能按柜员方式轧账", 'E');
		return(-1);
	}	
	return(0);
}
	
		
int Total()
{
	int ret = 0;
	FORM_NODE *p;
	WINDOW *win;
	char tmp[21];
	char hvptcnt[7], hvcscnt[7], hvcdcnt[7], ohvccnt[7], pbtocnt[7], patocnt[7];
	char hvptamt[21], hvcsamt[21], hvcdamt[21], ohvcamt[21], pbtoamt[21], patoamt[21];
	
	if((p = LoadForm("../etc/total.frm")) == NULL) return(0);
	win = FormWin(p);
	WriteField(p, 1, SYSDATE);
	while(DriverForm(p) == OK ){
		if(CheckForm(p)) continue;
		if(ChkTotal(p)) continue;
		memset(PACK, 0, sizeof(PACK));
		sprintf(PACK, "1009%s%-8s%-4s%-4s", 
			ReadField(p, 2), ReadField(p, 1), ORGCODE, OPRCODE); 
		if(ret = SendHost()) PrintErr(win, ret);
	    else {
	    	memset(tmp, 0, 21);
	    	memcpy(tmp, &PACK[4], 4);
	    	if( ret = atoi(tmp)) PrintErr(win, ret);
	    	else {
	    		memset(hvptcnt, 0, 7);
	    		memset(hvcscnt, 0, 7);
	    		memset(hvcdcnt, 0, 7);
	    		memset(ohvccnt, 0, 7);
	    		memset(pbtocnt, 0, 7);
	    		memset(patocnt, 0, 7);
	    		
	    		memset(hvptamt, 0, 21);
	    		memset(hvcsamt, 0, 21);
	    		memset(hvcdamt, 0, 21);
	    		memset(ohvcamt, 0, 21);
	    		memset(pbtoamt, 0, 21);
	    		memset(patoamt, 0, 21);
	    		
	    		memcpy(hvptcnt, &PACK[8], 6);
	    		memcpy(hvptamt, &PACK[14], 15);
	    		memset(tmp, 0 , 21);
	    		PrintAmt(tmp, atof(hvptamt), 2);
	    		WriteField(p, 3, hvptcnt);
	    		WriteField(p, 4, tmp);
	    		
	    		memcpy(hvcscnt, &PACK[29], 6);
	    		memcpy(hvcsamt, &PACK[35], 15);
	    		memset(tmp, 0 , 21);
	    		PrintAmt(tmp, atof(hvcsamt), 2);
	    		WriteField(p, 5, hvcscnt);
	    		WriteField(p, 6, tmp);
	    		
	    		memcpy(hvcdcnt, &PACK[50], 6);
	    		memcpy(hvcdamt, &PACK[56], 15);
	    		memset(tmp, 0 , 21);
	    		PrintAmt(tmp, atof(hvcdamt), 2);
	    		WriteField(p, 7, hvcdcnt);
	    		WriteField(p, 8, tmp);
	    		
	    		memcpy(ohvccnt, &PACK[71], 6);
	    		memcpy(ohvcamt, &PACK[77], 15);
	    		memset(tmp, 0 , 21);
	    		PrintAmt(tmp, atof(ohvcamt), 2);
	    		WriteField(p, 9, ohvccnt);
	    		WriteField(p, 10, tmp);
	    		
	    		memcpy(pbtocnt, &PACK[92], 6);
	    		memcpy(pbtoamt, &PACK[98], 15);
	    		memset(tmp, 0 , 21);
	    		PrintAmt(tmp, atof(pbtoamt), 2);
	    		WriteField(p, 11, pbtocnt);
	    		WriteField(p, 12, tmp);
	    		
	    		memcpy(patocnt, &PACK[113], 6);
	    		memcpy(patoamt, &PACK[119], 15);
	    		memset(tmp, 0 , 21);
	    		PrintAmt(tmp, atof(patoamt), 2);
	    		WriteField(p, 13, patocnt);
	    		WriteField(p, 14, tmp);
	    	 
	    		PrintMsg(win, "按任意键退出", 'R');
	    		FreeForm(p);
	    		return(0);
	    	}
	    }
	}
	FreeForm(p);
	return(ret);
} 
         
int DataEnd()
{
	int ret = 0;
	FORM_NODE *p;
	WINDOW *win;
	char sysdate[9], tmp[5];
	if(ChkPrivil('1')) return(1);
	if((p = LoadForm("../etc/dataend.frm")) == NULL) return(0);
	win = FormWin(p);
	WriteField(p, 1, SYSDATE);
	if(DriverForm(p) == OK ){
		memset(PACK, 0, sizeof(PACK));
		sprintf(PACK, "1010%-8s%-4s", 
			ReadField(p, 1), ORGCODE); 
		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);
	return(ret);
}                
                   
int ViewDate()
{
	int ret, i;
	char name[80], title[1024], lname[40], rname[40], tmp[5], cmd[160];
	memset(PACK, 0, sizeof(PACK));
	sprintf(PACK, "1011%-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, "%-4s  %-20s  %-8s", 
		"所号","所名","工作日期");                                         
	ViewBox(2, 2, 22, 76, name, title, lname);
	return(0);
}