pt_sy_cred.ec

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

/*   pt_sy_cred   */
#include </u/ebcsav/include/sav.h>
$include sqlca;
$include sqlda;
void addspace();
void addspacef();
void mess();
char y_n();
#include </u/ebcsav/include/begin>
short i,t;
char c;
char s[7],st[21];
$ short cred_type,cr_count;
$ long cred_num;
$ char ope_num[2];
long last_num[20],issu_num[20],open_num[20],repl_num[20],canc_num[20],
  rest_num[20],recov_num[20];
FILE *pf;
move(0,23);
$ database saving;
printw("打  印  系  统  凭  证  收  付  表");
pf=fopen("/u/ebcsav/data/sav_sect.dat","r");
fseek(pf,((op.num&0x7f)-1)*34+24,0);
fread(st,10,1,pf);
fclose(pf);
st[10]='\0';
ope_num[1]='\0';
for(i=0;i<20;i++)
  {
    last_num[i]=0;
    issu_num[i]=0;
    open_num[i]=0;
    repl_num[i]=0;
    canc_num[i]=0;
    rest_num[i]=0;
    recov_num[i]=0;
  }
for(i=0;i<7;i++)
  if(op.name[i]!='\0')s[i]=op.name[i]^0xff;
  else s[i]='\0';
$ declare read_cred scroll cursor for select * into $ope_num,
  $cred_type,$cred_num from credential;
if(sqlca.sqlcode!=0)
  {
    move(20,20);
    addstr("申请");
    mess(9);
    printw("(%d), ",sqlca.sqlcode);
    mess(3);
    getch();
    return;
  }
$ open read_cred;
if(sqlca.sqlcode!=0)
  {
    move(20,20);
    addstr("打开");
    mess(9);
    printw("(%d), ",sqlca.sqlcode);
    mess(3);
    getch();
    return;
  }
while(1)
  {
    $ fetch read_cred;
    if(sqlca.sqlcode!=0) break;
    if(ope_num[0]==100&&(cred_num<300000000||cred_num>400000000)) continue;
    t=cred_type-1;
    if(cred_num<100000000) rest_num[t]++;
    else if(cred_num<200000000) open_num[t]++;
    else if(cred_num<300000000) repl_num[t]++;
    else if(cred_num<400000000) canc_num[t]++;
    else recov_num[t]++;
  }
for(t=0;t<20;t++)
  {
    cred_type=t+1;
    for(i=1;i<100;i++)
      {
        ope_num[0]=i; 
        $ select cre_count into $cr_count from cred_count
          where op_num=$ope_num and cre_type=$cred_type;
        if(sqlca.sqlcode!=0) continue;
        last_num[t]+=cr_count;
      }
    issu_num[t]=rest_num[t]+open_num[t]+repl_num[t]+canc_num[t]+
      recov_num[t]-last_num[t];
  }
move(10,20);
mess((short)60);
mess((short)4);
getch();
printf("%c%c%c%c%c%c%c%c%c%c%c%c%c\n\n\n\n",27,'[','5','i',27,'%','9',1,15,
  28,'p',27,'[');
addspacef(44);
printf("重 要 凭 证 收 付 表%c%c%c%c\n",28,'q',27,']');
addspacef(40);
printf("─────────────────────\n\n");
addspacef(20);
printf("营业部门: %-10s",st);
addspacef(20);
printf("%4d年%2d月%2d日",year,month,day);
addspacef(20);
printf("操作员: %-6s\n",s);
addspacef(14);
printf("┏━━━━━━━━━━━━━┯━━━━┯━━━━┯━━━━━━━━━━━━━━━━━━━┯━━━━┓\n");
addspacef(14);
printf("┃                          │ 昨  日 │ 今  日 │            付          出            │ 今  日 ┃\n");
addspacef(14);
printf("┃      凭  证  名  称      │        │        ├────┬────┬────┬────┤        ┃\n");
addspacef(14);
printf("┃                          │ 结  存 │ 收  入 │ 开  户 │ 换  折 │ 报  废 │ 上  交 │ 结  存 ┃\n");
for(i=0;i<15;i++)
  {
    addspacef(14);
    if(i==6) printf("┠───────┬─────┼────┼────┼────┼────┼────┼────┼────┨\n");
    else if(i==7) printf("┃   定活两便   ├─────┼────┼────┼────┼────┼────┼────┼────┨\n");
    else if(i==8) printf("┠───────┴─────┼────┼────┼────┼────┼────┼────┼────┨\n");
    else printf("┠─────────────┼────┼────┼────┼────┼────┼────┼────┨\n");
    addspacef(14);
    printf("┃  ");
    switch(i)
      {
        case 0:
          printf("人民币整存整取存单      ");
          t=0;
          break;
        case 1:
          printf("人民币零存整取存折      ");
          t=2;
          break;
        case 2:
          printf("人民币存本取息存折      ");
          t=3;
          break;
        case 3:
          printf("人民币大额存单          ");
          t=5;
          break;
        case 4:
          printf("人民币活期存折          ");
          t=1;
          break;
        case 5:
          printf("人民币通知存折          ");
          t=6;
          break;
        case 6:
          printf("  人民币    │  定额    ");
          t=4;
          break;
        case 7:
          printf("  存  单    │ 不定额   ");
          t=4;
          break;
        case 8:
          printf("外币整存整取存单        ");
          t=10;
          break;
        case 9:
          printf("外币活期存折            ");
          t=11;
          break;
        case 10:
          printf("有价证券                ");
          t=19;
          break;
        case 11:
          printf("未发行证券              ");
          t=19;
          break;
        case 12:
          printf("已兑付证券              ");
          t=19;
          break;
        case 13:
          printf("债券                    ");
          t=19;
          break;
        case 14:
          printf("有奖储蓄                ");
          t=19;
      }
    if(last_num[t]!=0) printf("│%8d",last_num[t]);
    else printf("│        ");
    if(issu_num[t]!=0) printf("│%8d",issu_num[t]);
    else printf("│        ");
    if(open_num[t]!=0) printf("│%8d",open_num[t]);
    else printf("│        ");
    if(repl_num[t]!=0) printf("│%8d",repl_num[t]);
    else printf("│        ");
    if(canc_num[t]!=0) printf("│%8d",canc_num[t]);
    else printf("│        ");
    if(recov_num[t]!=0) printf("│%8d",recov_num[t]);
    else printf("│        ");
    if(rest_num[t]!=0) printf("│%8d┃\n",rest_num[t]);
    else printf("│        ┃\n");
  }
addspacef(14);
printf("┗━━━━━━━━━━━━━┷━━━━┷━━━━┷━━━━┷━━━━┷━━━━┷━━━━┷━━━━┛\n\n");
addspacef(16);
printf("保管员:       负责人:       送交监督时间:     年  月  日   监督时间:    年  月  日   监督员:\n");
printf("%c%c%c%c%c%c%c%c%c%c",12,27,'%','9',1,20,27,'[','4','i');
$ close read_cred;
if(sqlca.sqlcode!=0)
  {
    move(23,20);
    addstr("关闭");
    mess(9);
    printw("(%d), ",sqlca.sqlcode);
    mess(3);
    getch();
  }
$ close database;

#include </u/ebcsav/include/end>
#include </u/ebcsav/include/mess>
#include </u/ebcsav/include/addspace>
#include </u/ebcsav/include/addspacef>
#include </u/ebcsav/include/y_n>