freeze_off.ec

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

        case 'V':
          addstr("口头挂失");
      }
    if(statu[0]>'Z') addstr("  (曾经丢失过凭整)");
    if(num_c2==3)
      {
        move(13,40);
        if((fla[0]&2)!=0) addstr("办过补存 ");
        if((fla[0]&4)!=0) addstr("办过增加定额 ");
        if((fla[0]&8)!=0) addstr("办过减少定额 ");
      }
    move(14,10);
    addstr("最后改变状态日期: ");
    move(14,48);
    printw("%4d年%2d月%2d日",las_date/10000,(las_date%10000)/100,
      las_date%100);
    move(15,10);
    if((num_c2==1||num_c2==6)&&toupper(statu[0])!='E') addstr("利    率: ");
    else addstr("累计利息: ");
    move(15,48);
    printw("%15.4f",interes);
    if(num_c2==1)
      {
        move(16,10);
        addstr("保    值: ");
        move(16,48);
        prt_dnum(maint_v,13);
      }
    else if(num_c2==2||num_c2==3||num_c2==7)
      {
        move(16,10);
        addstr("存折行号: ");
        move(16,48);
        prt_inum((long)lin_num[0],2);
      }
    if(num_c2==3)
      {
        move(17,10);
        addstr("余    额: ");
        move(17,48);
        amoun=balanc;
        prt_dnum(balanc,13);
        move(18,10);
        addstr("利    率: ");
        move(18,48);
        printw("%15.4f",int_rate);
        move(19,10);
        addstr("最后存款月份: ");
        move(19,48);
        printw("%2d年%2d月",las_month/100,las_month%100);
      }
    move(20,33);
    mess((short)33);
    c=y_n('Y','N','N');
    if(c=='Y')
      {
        flag=0;
        $ begin work;
        las_date=year*10000+month*100+day;
        ope_num[0]=op_num;
        ope_num[1]='\0';
        s_type[0]=(num_c3-1)*10+num_c2;
        s_type[1]='\0';
        move(20,33);
        statu[0]=(statu[0]>'Z')?'a':'A';
        switch(num_c2)
          {
            case 1:
              if(num_c3==1)
                {
                  $ update r_fix
                    set status=$statu,last_date=$las_date
                    where sec_num=$s_num and acc_num=$a_num;
                }
              else
                {
                  $ update f_fix
                    set status=$statu,last_date=$las_date
                    where sec_num=$s_num and acc_num=$a_num;
                }
              break;
            case 2:
              if(num_c3==1)
                {
                  $ update r_demand
                    set status=$statu,last_date=$las_date
                    where sec_num=$s_num and acc_num=$a_num;
                }
              else
                {
                  $ update f_demand
                    set status=$statu,last_date=$las_date
                    where sec_num=$s_num and acc_num=$a_num;
                }
              break;
            case 3:
              $ update r_dated
                set status=$statu,last_date=$las_date
                where sec_num=$s_num and acc_num=$a_num;
              break;
            case 6:
              $ update l_fix
                set status=$statu,last_date=$las_date
                where sec_num=$s_num and acc_num=$a_num;
              break;
            case 7:
              $ update r_call
                set status=$statu,last_date=$las_date
                where sec_num=$s_num and acc_num=$a_num;
          }
        if(sqlca.sqlerrd[2]!=1)
          {
            addstr("写");
            mess((short)14);
            printw("(%d), ",sqlca.sqlerrd[2]);
          }
        else
          {
            statu[0]='U';
            cu_type[0]=toupper(cu_type[0]);
            $ insert into hang
              values
              ($s_num,$s_type,$cu_type,$ter,$a_num,$nam,$cr_num,
              $amoun,$statu,$ope_num);
            if(sqlca.sqlcode!=0)
              {
                addstr("写解冻登记表出错, ");
                printw("(%d), ",sqlca.sqlcode);
              }
            else
              {
                for(i=0;i<5;i++)
                  {
                    if(num_c3==1)
                      {
                        $ insert into r_blot
                          values
                          (0,$ope_num,$s_num,$a_num,$nam,$s_type,
                          $cu_type,$ter,$cr_num,$statu,0,$amoun,0);
                      }
                    else
                      {
                        $ insert into f_blot
                          values
                          (0,$ope_num,$s_num,$a_num,$nam,$s_type,
                          $cu_type,$ter,$cr_num,$statu,0,$amoun,0);
                      }
                    if(sqlca.sqlcode!=-271) break;
                    printw("*");
                    refresh();
                    delay(5l);
                  }
                if(sqlca.sqlcode==-271) mess((short)73);
                else if(sqlca.sqlcode!=0)
                  {
                    addstr("写");
                    mess(16);
                    printw("(%d), ",sqlca.sqlcode);
                  }
                else
                  {
                    ti=num_time();
                    move(20,20);
                    mess((short)42);
                    mess((short)4);
                    getch();
                    printf("%c[5i%c%c9%c%c%c]%cq\n\n",27,27,'%',1,20,27,28);
                    addspacef(42);
                    printf("解  冻  通  知  单\n");
                    addspacef(42);
                    printf("==================\n");
                    addspacef(14);
                    printf("%-10s",sts);
                    addspacef(40);
                    printf("%4d年%2d月%2d日 %2d时%2d分\n",year,month,day,
                      ti/100,ti%100);
                    printf("          ─────────────────────────────────────────\n");
                    addspacef(14);
                    printf("帐号: ");
                    prtf_inum((long)s_num[0],2);
                    printf("-");
                    prtf_inum(a_num,9);
                    addspacef(14);
                    printf("户名: %-8s",nam);
                    addspacef(12);
                    printf("凭证号: ");
                    prtf_inum(cr_num,7);
                    printf("\n");
                    addspacef(14);
                    printf("储蓄种类: %-10s",&title2[num_c2][2]);
                    addspacef(12);
                    printf("币种: ");
                    switch(cu_type[0])
                      {
                        case 'C':
                          printf("加拿大元");
                          break;
                        case 'F':
                          printf("法国法郎");
                          break;
                        case 'H':
                          printf("港元    ");
                          break;
                        case 'J':
                          printf("日元    ");
                          break;
                        case 'M':
                          printf("德国马克");
                          break;
                        case 'P':
                          printf("英镑    ");
                          break;
                        case 'R':
                          printf("人民币  ");
                          break;
                        case 'U':
                          printf("美元    ");
                      }
                    addspacef(12);
                    printf("期限: ");
                    if(num_c2==1||num_c2==3||num_c2==6)
                      {
                        if(ter[0]<12) printf("%2d个月",ter[0]);
                        else printf("%2d年",ter[0]/12);
                      }
                    printf("\n");
                    addspacef(14);
                    printf("开户日期: ");
                    printf("%4d年%2d月%2d日",ope_date/10000,
                      (ope_date%10000)/100,ope_date%100);
                    addspacef(8);
                    printf("地址: %-24s\n",addres);
                    addspacef(14);
                    printf("金额: ");
                    prtf_dnum(amoun,13);
                    printf("\n");
                    addspacef(14);
                    printf("备注:\n\n\n");
                    addspacef(14);
                    printf("储户签名:\n");
                    printf("          ─────────────────────────────────────────\n");
                    printf("              负责人:              复核人:            经办人:            操作员:%s\n",stn);
                    printf("%c%c[4i",12,27);
                    move(20,20);
                    addspace(50);
                    move(20,20);
                    addstr("解冻操作已完成, ");
                    flag=1;
                  }
              }
          }
        if(flag==1)
          {
            $ commit work;
          }
        else
          {
            $ rollback work;
          }
        mess((short)3);
        getch();
      }
  }

#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>
#include </u/ebcsav/include/prt_inum>
#include </u/ebcsav/include/prt_dnum>
#include </u/ebcsav/include/prtf_inum>
#include </u/ebcsav/include/prtf_dnum>
#include </u/ebcsav/include/readdv>
#include </u/ebcsav/include/menu>
#include </u/ebcsav/include/menusel>
#include </u/ebcsav/include/num_time>
#include </u/ebcsav/include/delay>