prt_state.ec

这是一个使用 informix esql/c 技术开发的银行程序的部分代码。

/*  打印余额表  */
#include </u/ebcsav/include/sav.h>
$include sqlca;
$include sqlda;
void type_op();
char edit_op();
void addspace();
void addspacef();
char y_n();
void mess();
char readch();
char readdv();
char readst();
void prtf_dnum();
FILE *pf_l;
#include </u/ebcsav/include/begin>
FILE *fp;
char sec[11],st[8];
double bac[25],bad[25],amound[25],amounc[25];
short uro[25],urc[25],ur[25],voud[25],vouc[25],i,n,h,j,urh,urf,te1[25],sa1[25];
double ba1[8],ba2[8],ba3[8],ba4[8],ba5[8],ba6[8],ba7[8];
short voux[25],ur1[8],ur2[8],ur3[8],ur4[8],ur5[8],ur6[8],ur7[8];
char *title[25]={" 整 存 整 取  "," 保 值 储 蓄  "," 活       期  ",
                 " 零 存 整 取  "," 定 活 两 便  "," 存 本 取 息  ",
                 " 大 额 储 蓄  "," 通 知 存 款  "," 业 务 合 计  ",
                 "  │一年以下息",
                 "利│一年以上息","  │保值利息  ","息│活期利息  ",
                 "  │利息合计  "," 有 奖 储 蓄  ","  国  库  券  ",
                 " 债 券 储 蓄  ","业 务 备 用 金","  暂  收  款  ",
                 "  暂  付  款  "," 应 付 利 息  "," 往 来 收 支  ",
                 " 营 业 收 支  "," 库 存 现 金  ","   合    计   "};
char *titl[16]={"  │一│户数","  │月│余额","  │三│户数","定│月│余额",
                "  │六│户数","  │月│余额","  │一│户数","  │年│余额",
                "期│两│户数","  │年│余额","  │小│户数","  │计│余额",
                "      │户数","      │余额","      │户数","      │余额"};
$ char cu[7]={'U','J','H','M','P','F','C'};
$ char opa[2],se[2],sta[2],sav[2],te[2],c_type[2],t1[2],t2[2],t3[2],t4[2];
$ double amoud,amouc,amou;
$ long urh1,urf1,usr,vod,voc,usrc,usro,uruh1,t_urh1,uruf1,t_urf1;
$ database saving;
sec[10]='\0';
opa[0]=op_num;
opa[1]='\0';
se[0]=op.num&0x7f;
se[1]='\0';
sta[1]='\0';
sa1[1]='\0';
sav[1]='\0';
te[1]='\0';
t1[0]=3;
t2[0]=6;
t3[0]=12;
t4[0]=24;
t1[1]='\0';
t2[1]='\0';
t3[1]='\0';
t4[1]='\0';
c_type[1]='\0';
fp=fopen("/u/ebcsav/data/sav_sect.dat","r");
fseek(fp,((op.num&0x7f)-1)*34+24,0);
fread(sec,10,1,fp);
fclose(fp);
for(n=0;n<7;n++)
if(op.name[n]!='\0')st[n]=op.name[n]^0xff;
else st[n]='\0';
n=op.type;
/*人民币余额表*/
if((op.type&0x1)==1)
{
for(i=0;i<25;i++)
{
 bac[i]=bad[i]=amound[i]=amounc[i]=0.0;
 ur[i]=uro[i]=urc[i]=voud[i]=vouc[i]=voux[i]=0;
}
sav[0]=1;
$ select sum(debi_amoun),sum(cred_amoun),sum(today_bala),sum(open_user),
    sum(canc_user),sum(today_user),sum(debi_vouch),sum(cred_vouch)
  into $amoud,$amouc,$amou,$usro,$usrc,$usr,$vod,$voc from r_dai
  where sav_type=$sav and ( term=$t1 or term=$t2 or term=$t3 or term=$t4 );
  if(sqlca.sqlcode!=0)
    { move(20,20);
      printw("sum error");
      getch();
    }
  uro[0]=usro;
  urc[0]=usrc;
  ur[0]=usr;
  amound[0]=amoud;
  amounc[0]=amouc;
  bac[0]=amou;
  voud[0]=vod;
  vouc[0]=voc;
  voux[0]=voud[0]+vouc[0];
sav[0]=1;
t1[0]=36;
t2[0]=60;
$ select sum(debi_amoun),sum(cred_amoun),sum(today_bala),sum(open_user),
    sum(canc_user),sum(today_user),sum(debi_vouch),sum(cred_vouch)
  into $amoud,$amouc,$amou,$usro,$usrc,$usr,$vod,$voc from r_dai
  where sav_type=$sav and ( term=$t1 or term=$t2 );
  if(sqlca.sqlcode!=0)
    { move(20,20);
      printw("sum error");
      getch();
    }
  uro[1]=usro;
  urc[1]=usrc;
  ur[1]=usr;
  amound[1]=amoud;
  amounc[1]=amouc;
  bac[1]=amou;
  voud[1]=vod;
  vouc[1]=voc;
  voux[1]=voud[1]+vouc[1];
$ declare blot scroll cursor for select sav_type,term,debi_amoun,cred_amoun,
  today_bala,open_user,canc_user,today_user,debi_vouch,cred_vouch from r_dai;
$ open blot;
for(i=2;i<25;i++)
{
  $ fetch blot into $sav,$te,$amoud,$amouc,$amou,$usro,$usrc,$usr,$vod,$voc;
  if(sqlca.sqlcode!=0)
    { move(20,20);
      printw("fetch error");
      getch();
      break;
    }
  if(sav[0]==1)
   {i--;
    continue;
   }
  if(sav[0]==3&&te[0]!=100)
   {i--;
    continue;
   }
  if(sav[0]==4&&te[0]!=100)
   {i--;
    continue;
   }
  if(sav[0]==6&&te[0]!=100)
   {i--;
    continue;
   }
  uro[i]=usro;
  urc[i]=usrc;
  ur[i]=usr;
  amound[i]=amoud;
  amounc[i]=amouc;
  if((i>8&&i<14)||(i==23))bad[i]=amou;
  else if(i==24)bac[i]=bad[i]=amou;
  else bac[i]=amou;
  te1[i]=te[0];
  sa1[i]=sav[0];
  voud[i]=vod;
  vouc[i]=voc;
  voux[i]=voud[i]+vouc[i];
}
$ close blot;
move(12,22);
mess(60);
mess(4);
getch();
move(12,22);
addspace(40);
move(12,22);
mess(65);
refresh();
if((pf_l=fopen("/dev/lp0","w"))==0)
{
printw("打印机正在工作,任意键返回");
getch();
return;
}
fprintf(pf_l,"\n\n\n\n%d",0);
addspacef(64);
fprintf(pf_l,"e%d%d人 民 币 营 业 日 报 表e%d%d\n",2,2,1,1);
addspacef(59);
fprintf(pf_l,"────────────────────────────\n\n\n\n");
addspacef(30);
fprintf(pf_l,"人民币");
addspacef(19);
fprintf(pf_l,"营业部门 : %-11s",sec);
addspacef(19);
fprintf(pf_l,"%4d年%2d月%2d日",year,month,day);
addspacef(19);
fprintf(pf_l,"  操作员 : %-7s\n",st);
addspacef(22);
fprintf(pf_l,"┏━━━━━━━┯━━━━━━━━━━━━━━━━━┯━━━━━━━━━━━━━━━━━┯━━━━━━━━━━━┯━━━━━━━━┓\n");
addspacef(22);
fprintf(pf_l,"┃              │    本    日    发    生    额    │     本     日     余     额      │      户      数      │  传 票  张 数  ┃\n");
addspacef(22);
fprintf(pf_l,"┃   科    目   ├────────┬────────┼────────┬────────┼───┬───┬───┼──┬──┬──┨\n");
addspacef(22);
fprintf(pf_l,"┃              │    借    方    │    贷    方    │    借    方    │    贷    方    │ 开户 │ 销户 │总户数│借方│贷方│合计┃\n");
addspacef(22);
fprintf(pf_l,"┠───────┼────────┼────────┼────────┼────────┼───┼───┼───┼──┼──┼──┨\n");
for(i=0;i<25;i++)
{
addspacef(22);
fprintf(pf_l,"┃%14s│",title[i]);
prtf_dnum(amound[i],16);
fprintf(pf_l,"│");
prtf_dnum(amounc[i],16);
fprintf(pf_l,"│");
prtf_dnum(bad[i],16);
fprintf(pf_l,"│");
prtf_dnum(bac[i],16);
fprintf(pf_l,"│%5d │%5d │%5d │%3d │%3d │%3d ┃\n",uro[i],urc[i],ur[i],voud[i],vouc[i],voux[i]);
if(i!=24)
if(i==8)
 {
   addspacef(22);
   fprintf(pf_l,"┠─┬─────┼────────┼────────┼────────┼────────┼───┼───┼───┼──┼──┼──┨\n");
 }
else if(i>8&&i<13)
 {
   addspacef(22);
   fprintf(pf_l,"┃  ├─────┼────────┼────────┼────────┼────────┼───┼───┼───┼──┼──┼──┨\n");
 }
else if(i==13)
 {
   addspacef(22);
   fprintf(pf_l,"┠─┴─────┼────────┼────────┼────────┼────────┼───┼───┼───┼──┼──┼──┨\n");
 }
else
 {
   addspacef(22);
   fprintf(pf_l,"┠───────┼────────┼────────┼────────┼────────┼───┼───┼───┼──┼──┼──┨\n");
 }
}
sav[0]=100;
te[0]=100;
$ select hang_up,lift_hang,today_hang,freeze,unfreeze,today_free into
         $urh1,$uruh1,$t_urh1,$urf1,$uruf1,$t_urf1 from r_dai
         where sav_type=$sav and term=$te;
addspacef(22);
fprintf(pf_l,"┣━━━━━━━┿━━━━━━━━┿━━━━━━━━┿━━━━━━━━┿━━━━━━━━┿━━━┷━━━┷━━━┿━━┷━━┷━━┫\n");
addspacef(22);
fprintf(pf_l,"┃              │ 挂  失  户  数 │%14d  │ 解  挂  户  数 │%14d  │   挂   失   总   数  │%14d  │\n",urh1,uruh1,t_urh1);   
addspacef(22);
fprintf(pf_l,"┃ 特 殊 处 理  ├────────┼────────┼────────┼────────┼───────────┼────────┨\n");
addspacef(22);
fprintf(pf_l,"┃              │ 冻  结  户  数 │%14d  │ 解  冻  户  数 │%14d  │   冻   结   总   数  │%14d  │\n",urf1,uruf1,t_urf1);   
addspacef(22);
fprintf(pf_l,"┗━━━━━━━┷━━━━━━━━┷━━━━━━━━┷━━━━━━━━┷━━━━━━━━┷━━━━━━━━━━━┷━━━━━━━━┛\n");
addspacef(22);
fprintf(pf_l,"          经  理 :                      事  后 :                        复  核 :                       制  表:%d\n",2);
fclose(pf_l);
}
#include </u/ebcsav/include/end>
#include </u/ebcsav/include/mess>
#include </u/ebcsav/include/type_op>
#include </u/ebcsav/include/edit_op>
#include </u/ebcsav/include/addspace>
#include </u/ebcsav/include/faddspacef>
#include </u/ebcsav/include/y_n>
#include </u/ebcsav/include/readch>
#include </u/ebcsav/include/readdv>
#include </u/ebcsav/include/readst>
#include </u/ebcsav/include/fprtf_dnum>