pt_state_m.ec

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

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);
switch(toupper(c_type[0]))
  {
    case 'U':
              fprintf(pf_l,"美  元");
              break;
    case 'J':
              fprintf(pf_l,"日  元");
              break;
    case 'H':
              fprintf(pf_l,"港  元");
              break;
  }
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<16;i++)
{
addspacef(22);
fprintf(pf_l,"┃%14s│",title1[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!=15)
if(i==2)
 {
   addspacef(22);
   fprintf(pf_l,"┠─┬─────┼────────┼────────┼────────┼────────┼───┼───┼───┼──┼──┼──┨\n");
 }
else if(i>2&&i<5)
 {
   addspacef(22);
   fprintf(pf_l,"┃  ├─────┼────────┼────────┼────────┼────────┼───┼───┼───┼──┼──┼──┨\n");
 }
else if(i==5)
 {
   addspacef(22);
   fprintf(pf_l,"┠─┴─────┼────────┼────────┼────────┼────────┼───┼───┼───┼──┼──┼──┨\n");
 }
else
 {
   addspacef(22);
   fprintf(pf_l,"┠───────┼────────┼────────┼────────┼────────┼───┼───┼───┼──┼──┼──┨\n");
 }
}
sav[0]=120;
te[0]=100;
$ select hang_up,lift_hang,today_hang,freeze,unfreeze,today_free into
         $urh1,$uruh1,$t_urh1,$urf1,$uruf1,$t_urf1 from f_dai
         where sav_type=$sav and term=$te and cur_type=$c_type;
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);
fprintf(pf_l,"\n\n\n\n\n\n\n\n\n\n\n");
fclose(pf_l);
}
/*人民币月报表附表*/
if(((op.type&0x1)==1)&&(num_c3==5))
{
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;
}
for(i=0;i<25;i++)
{
 sav[0]=s2a[i];
 te[0]=t2e[i];
 if(sav[0]==2||sav[0]==5||sav[0]==7)
  {
   $ select sav_type,term,debi_amoun,cred_amoun,today_bala,open_user,canc_user,
     today_user,debi_vouch,cred_vouch into $sav,$te,$amoud,$amouc,$amou,$usro,
     $usrc,$usr,$vod,$voc from r_month where sav_type=$sav;
  }
 else
  {
   $ select sav_type,term,debi_amoun,cred_amoun,today_bala,open_user,canc_user,
     today_user,debi_vouch,cred_vouch into $sav,$te,$amoud,$amouc,$amou,$usro,
     $usrc,$usr,$vod,$voc from r_month where sav_type=$sav and term=$te;
  }
  uro[i]=usro;
  urc[i]=usrc;
  ur[i]=usr;
  amound[i]=amoud;
  amounc[i]=amouc;
  bac[i]=amou;
  te1[i]=te[0];
  sa1[i]=sav[0];
  voud[i]=vod;
  vouc[i]=voc;
  voux[i]=voud[i]+vouc[i];
}
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)
/*if((pf_l=fopen("/u/ebcsav/tmp/r_state","w"))==0)*/
{
printw("打印机正在工作,任意键返回");
getch();
return;
}
fprintf(pf_l,"\n\n\n\n\n\n\n%d",0);
addspacef(57);
fprintf(pf_l,"e%d%d人 民 币 营 业 月 报 表 附 表e%d%d\n",2,2,1,1);
addspacef(53);
fprintf(pf_l,"─────────────────────────────────\n\n\n\n");
addspacef(28);
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,"┃%10s│",title2[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==6||i==15||i==22)
 {
   addspacef(22);
   fprintf(pf_l,"┠─┴───┼────────┼────────┼────────┼────────┼───┼───┼───┼──┼──┼──┨\n");
 }
else if(i==7||i==16)
 {
   addspacef(22);
   fprintf(pf_l,"┠─┬───┼────────┼────────┼────────┼────────┼───┼───┼───┼──┼──┼──┨\n");
 }
else if(i==11)
 {
   addspacef(22);
   fprintf(pf_l,"┠─┼───┼────────┼────────┼────────┼────────┼───┼───┼───┼──┼──┼──┨\n");
 }
else if(i==23)
 {
   addspacef(22);
   fprintf(pf_l,"┠─────┼────────┼────────┼────────┼────────┼───┼───┼───┼──┼──┼──┨\n");
 }
else
 {
   addspacef(22);
   fprintf(pf_l,"┃  ├───┼────────┼────────┼────────┼────────┼───┼───┼───┼──┼──┼──┨\n");
 }
}
addspacef(22);
fprintf(pf_l,"┗━━━━━┷━━━━━━━━┷━━━━━━━━┷━━━━━━━━┷━━━━━━━━┷━━━━━━━━━━━┷━━━━━━━━┛\n");
addspacef(22);
fprintf(pf_l,"          经  理 :                      事  后 :                        复  核 :                       制  表:%d\n",2);
fprintf(pf_l,"\n\n\n\n\n\n\n\n\n\n\n");
fclose(pf_l);
}
/*打印外币月报表附表*/
if(((op.type&0x2)==2)&&(num_c3==6))
{
for(i=0;i<24;i++)
{
 bac[i]=bad[i]=amound[i]=amounc[i]=0.0;
 ur[i]=uro[i]=urc[i]=voud[i]=vouc[i]=voux[i]=0;
}
$ declare blot12 scroll cursor for select sav_type,term,debi_amoun,cred_amoun,
  today_bala,open_user,canc_user,today_user,debi_vouch,cred_vouch from f_dai
  where cur_type='U';
$ open blot12;
for(i=0;i<8;i++)
{
  $ fetch blot12 into $sav,$te,$amoud,$amouc,$amou,$usro,$usrc,$usr,$vod,$voc;
  if(sqlca.sqlcode!=0)
    { move(20,20);
      printw("fetch blot1 error");
      getch();
      break;
    }
  uro[i]=usro;
  urc[i]=usrc;
  ur[i]=usr;
  amound[i]=amoud;
  amounc[i]=amouc;
  bac[i]=amou;
  te1[i]=te[0];
  sa1[i]=sav[0];
  voud[i]=vod;
  vouc[i]=voc;
  voux[i]=voud[i]+vouc[i];
/*  move(20,20);
  printw("i=%d sav=%d te=%d bac=%13.2f bad=%13.2f",i,sav[0],te[0],bad[i],bac[i]); 
  getch();*/
}
$close blot12;
$ declare blot13 scroll cursor for select sav_type,term,debi_amoun,cred_amoun,
  today_bala,open_user,canc_user,today_user,debi_vouch,cred_vouch from f_dai
  where cur_type='J';
$ open blot13;
for(i=8;i<16;i++)
{
  $ fetch blot13 into $sav,$te,$amoud,$amouc,$amou,$usro,$usrc,$usr,$vod,$voc;
  if(sqlca.sqlcode!=0)
    { move(20,20);
      printw("fetch blot2 error");
      getch();
      break;
    }
  uro[i]=usro;
  urc[i]=usrc;
  ur[i]=usr;
  amound[i]=amoud;
  amounc[i]=amouc;
  bac[i]=amou;
  te1[i]=te[0];
  sa1[i]=sav[0];
  voud[i]=vod;
  vouc[i]=voc;
  voux[i]=voud[i]+vouc[i];
  /*move(20,20);
  printw("i=%d sav=%d te=%d bac=%13.2f bad=%13.2f",i,sav[0],te[0],bad[i],bac[i]); 
  getch();*/
}
$close blot13;
$ declare blot14 scroll cursor for select sav_type,term,debi_amoun,cred_amoun,
  today_bala,open_user,canc_user,today_user,debi_vouch,cred_vouch from f_dai
  where cur_type='H';
$ open blot14;
for(i=16;i<24;i++)
{
  $ fetch blot14 into $sav,$te,$amoud,$amouc,$amou,$usro,$usrc,$usr,$vod,$voc;
  if(sqlca.sqlcode!=0)
    { move(20,20);
      printw("fetch blot3 error");
      getch();
      break;
    }
  uro[i]=usro;
  urc[i]=usrc;
  ur[i]=usr;
  amound[i]=amoud;
  amounc[i]=amouc;
  bac[i]=amou;
  te1[i]=te[0];
  sa1[i]=sav[0];
  voud[i]=vod;
  vouc[i]=voc;
  voux[i]=voud[i]+vouc[i];
  /*move(20,20);
  printw("i=%d sav=%d te=%d bac=%13.2f bad=%13.2f",i,sav[0],te[0],bad[i],bac[i]); 
  getch();*/
}
$close blot14;
move(12,22);
addspace(40);
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)
/*if((pf_l=fopen("/u/ebcsav/tmp/f_state","w"))==0)*/
{
printw("打印机正在工作,任意键返回");
getch();
return;
}
fprintf(pf_l,"\n\n\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<24;i++)
  {
    addspacef(22);
    fprintf(pf_l,"┃%12s│",titl[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==5||i==13||i==21)
     {
       addspacef(22);
       fprintf(pf_l,"┃  ├─┴──┼────────┼────────┼────────┼────────┼───┼───┼───┼──┼──┼──┨\n");
     }
    else if(i==6||i==14||i==22)
     {
       addspacef(22);
       fprintf(pf_l,"┃  ├────┼────────┼────────┼────────┼────────┼───┼───┼───┼──┼──┼──┨\n");
     }
    else if(i==7||i==15)
     {
       addspacef(22);
       fprintf(pf_l,"┠─┼─┬──┼────────┼────────┼────────┼────────┼───┼───┼───┼──┼──┼──┨\n");
     }
    else if(i==23)
     {
       addspacef(22);
       fprintf(pf_l,"┗━┷━━━━┷━━━━━━━━┷━━━━━━━━┷━━━━━━━━┷━━━━━━━━┷━━━┷━━━┷━━━┷━━┷━━┷━━┛\n");
     }
    else
     {
       addspacef(22);
       fprintf(pf_l,"┃  │  ├──┼────────┼────────┼────────┼────────┼───┼───┼───┼──┼──┼──┨\n");
     }
  }
addspacef(22);
fprintf(pf_l,"          经  理 :                      事  后 :                        复  核 :                       制  表:%d\n",2);
fprintf(pf_l,"\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n");
fclose(pf_l);
}
}




$ close database;
#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>
#include </u/ebcsav/include/menu>
#include </u/ebcsav/include/menusel>