fix_reopen.ec

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

                                   prtf_dnum(amoun,14);
                                   printf("      ");
                                   if(pas!=0)printf("   密      ");
                                        else printf("           ");
                                        if(ter[0]<12)
                                          printf("%1d月",ter[0]);
                                        else 
                                          printf("%1d年",ter[0]/12);
                                        printf("    %5.3f",interes*1.2);
                                   printf("\n\n");
                                   addspacef(15);
                                   printf("%d-%2d-%2d       ",year,month,day);
                                   printf("   %d-%2d-%2d  ",year,month, day);
                                        printf("      %4d-%2d-%2d  ",year1,
                                          month1,day);
                                   printf("          %d    ",b_num);
                                   printf("     %-6s\f\n",st);
                                   printf("");

                                    move(20,20);
                                    mess((short)43);
                                    mess((short)4);
                                    getch();
                                    if(toupper(cu_type[0])=='R')
                                      {
                                        printf("%c%c%c%c%c%c%c%c\n\n\n\n",
                                          27,'[','5','i',28,'q',27,']');
                                   addspacef(19);
                                   printf("%-8s",nam);
                                   addspacef(25);
                                   prtf_inum(s_num[0],2);
                                   printf("-");
                                   prtf_inum(a_num,9);
                                   printf("\n");
                                        printf("%c%c\n\n",28,'p');

                                        addspacef(16);
                                        prtf_upper(amoun,toupper(cu_type[0]));
                                        printf("\n");
                                        addspacef(16);
                                        printf("RMB￥");
                                        prtf_dnum(amoun,13);
                                        printf("%c%c\n\n\n\n",28,'q');
                                   printf("       %4d-%2d-%2d",year,month,day);
                                   prtf_dnum(amoun,14);
                                        if(ter[0]<12)
                                          printf("     %1d月",ter[0]);
                                        else 
                                          printf("     %1d年",ter[0]/12);
                                        printf("  %5.3f",interes*1.2);
                                        printf("   %4d-%2d-%2d  ",year,month,day);
                                        printf("%4d-%2d-%2d",year1,
                                          month1,day);
                                        prtf_dnum(amoun*interes*ter[0]*0.001,
                                          13);
                                   printf(" %-6s\f\n",st);
                                        printf("%c%c%c%c", 27,'[','4','i');


                      }
                    else
                      {
                        printf("%c%c%c%c%c%c%c%c\n",
                          27,'[','5','i',27,']',28,'p');
                        printf("      ┏━━━━┓\n");
                        printf("      ┃");
                        switch(toupper(cu_type[0]))
                          {
                            case 'U':
                              printf("%-8s","  美    元  ");
                              break;
                            case 'J':
                              printf("%-8s","  日    元  ");
                              break;
                            case 'H':
                              printf("%-8s","  港    元  ");
                              break;
                            case 'M':
                              printf("%-8s","德国马克");
                              break;
                            case 'P':
                              printf("%-8s","  英    镑  ");
                              break;
                            case 'F':
                              printf("%-8s","法国法郎");
                              break;
                            case 'C':
                              printf("%-8s","加拿大元");
                          }
                        printf("┃\n");
                        printf("      ┗━━━━┛\n");
                        printf("%c%c\n",28,'q');
                        addspacef(83);
                        printf("%4d-%2d-%2d\n\n\n\n",year,month,day);
                        printf("%c%c                  %-8s%c%c",
                          27,'[',nam,27,']');
                        addspacef(36);
                        prtf_inum((long)s_num[0],2);
                        putchar('-');
                        prtf_inum(a_num,9);
                        addspacef(18);
                        switch(toupper(cu_type[0]))
                          {
                            case 'U':
                              printf("US＄");
                              break;
                            case 'J':
                              printf("JP￥");
                              break;
                            case 'H':
                              printf("HK＄");
                              break;
                            case 'M':
                              printf("DＭ");
                              break;
                            case 'P':
                              printf("￡");
                              break;
                            case 'F':
                              printf("FＦ");
                              break;
                            case 'C':
                              printf("Can＄");
                          }
                        printf("\n\n%c%c",27,'[');
                        addspacef(32);
                        prtf_upper(amoun,toupper(cu_type[0]));
                        printf("%c%c\n\n\n",27,']');
                        addspacef(70);
                        switch(toupper(cu_type[0]))
                          {
                            case 'U':
                              printf("US＄");
                              break;
                            case 'J':
                              printf("JP￥");
                              break;
                            case 'H':
                              printf("HK＄");
                              break;
                            case 'M':
                              printf("DＭ");
                              break;
                            case 'P':
                              printf("￡");
                              break;
                            case 'F':
                              printf("FＦ");
                              break;
                            case 'C':
                              printf("Can＄");
                          }
                        prtf_dnum(amoun,13);
                        printf("\n\n\n");
                        addspacef(20);
                        if(ter[0]<12) printf("%1d月",ter[0]);
                        else printf("%1d年",ter[0]/12);
                        if(pas!=0) printf("(密)");
                        else addspacef(4);
                        if(cu_type[0]>'Z') printf("(转)");
                        else addspacef(4);
                        addspacef(26);
                        printf("%6.4f\n\n\n",interes*1.2);
                        addspacef(23);
                        printf("%4d-%2d-%2d\n",year1,month1,day);
                        printf("%c%c%c%c%c%c%c%c%c%c",12,
                          27,'%','9',1,20,27,'[','4','i');
                      }
                    flag=1;
                    move(20,20);
                    addspace(40);
                    move(20,20);
                    addstr("重新开户已完成, ");
                  }
              }
          }
      }
    if(flag==1)
      {
        $ commit work;
      }
    else
      {
        $ rollback work;
      }
    mess((short)3);
    getch();
  }
$ close database;
endwin();

#include </u/ebcsav/include/end>

double get_rate(k,dat)
long k,dat;
{
$double rat;
$long k1,dat1;
double ll2;
int dat2;
long tz[16]={15,30,60,90,120,150,180,210,240,270,300,330,360,720,1080,0};
short year,month,day;
long i,yy,mm,mm1,dd,t1,ts,m1,m2,m3,yer,da2;
num_date(&year,&month,&day);
yy=dat/10000;
mm=(dat%10000)/100;
dd=dat%100;
t1=k/100;
if(day>=dd)
ts=(year-yy)*360+(month-mm)*30+day-dd;
else
   {
                       if(month==1){yer=year-1;
                                   mm1=12;
                                   }
                       else{  mm1=month-1;
                              yer=year;
                            }
                       m1=yer%400;
                       m2=yer%100;
                       m3=yer%4;
                       if(mm1==1||mm1==3||mm1==5||mm1==7||mm1==8||mm1==10||mm1==12) da2=31;
                       else if(mm1!=2) da2=30;
                            else if(m1==0||m2!=0&&m3==0) da2=29;
                                 else da2=28;      
        ts=(yer-yy)*360+(mm1-mm)*30+da2+day-dd;
   }
if(t1==1807){
             if(ts<15)k=180200;
             else
              {
             i=0;
                    do{
                      i++;
                      }while(ts>=tz[i]&&i<15);
                      k=t1*100+i;
              }
            }
k1=k;
$ declare read3 scroll cursor for select ll,rq into $rat,$dat1 from inter_rate where syh=$k1;
    if(sqlca.sqlcode!=0)
      {
        move(21,20);
        addstr("申请");
        mess((short)9);
        printw("(%d), ",sqlca.sqlcode);
        mess((short)3);
        getch();
        return;
      }
 $ open read3;
 if(sqlca.sqlcode !=0)
  { 
   printw("** %d 错误 1: 打开利率表出错 **",sqlca.sqlcode);
   getch();
   return;
   }
$fetch first read3;
dat2=0;
do{
   if(dat1<=dat&&dat1>=dat2)
               {
                dat2=dat1;
                ll2=rat;
               } 
   $fetch next read3;
  }while(sqlca.sqlcode!=SQLNOTFOUND);
$close read3;
return(ll2);
}

double get_inte(k,dat,amount,maint)
long k,dat;
double amount,*maint;
{
$double rat,dat1,bl;
$long k1;
$int y,m,sy,sm,sd,wy,wm,wd;
char c3;
double ll1,ll2,ll3;
double lx=0,am,lx1=0,lx2=0,lx3=0,lx4=0;
short year,month,day;
long tzbz,yy,mm,mm1,dd,zx,t1,t2,t3,t4,dat2,dat3,dat4,ts,ts1,m1,m2,m3,yer,da2;
long i,j,lz[3]={360,1080,1800},dq[6]={90,180,360,720,1080,1800},
    de[5]={30,90,180,270,360},
    tz[16]={15,30,60,90,120,150,180,210,240,270,300,330,360,720,1080,0};
num_date(&year,&month,&day);
yy=dat/10000;
/*t1=amount;
amount=t1;*/
mm=(dat%10000)/100;
dd=dat%100;
t1=k/100;
if(day>=dd)
ts=(year-yy)*360+(month-mm)*30+day-dd;
else
   {
                       if(month==1){yer=year-1;
                                   mm1=12;
                                   }
                       else{  mm1=month-1;
                              yer=year;
                            }
                       m1=yer%400;
                       m2=yer%100;
                       m3=yer%4;
                       if(mm1==1||mm1==3||mm1==5||mm1==7||mm1==8||mm1==10||mm1==12) da2=31;
                       else if(mm1!=2) da2=30;
                            else if(m1==0||m2!=0&&m3==0) da2=29;
                                 else da2=28;      
        ts=(yer-yy)*360+(mm1-mm)*30+da2+day-dd;
   }
tzbz=0;
if(t1==1807){
             if(ts<tz[0])
              {
               tzbz=1;
               k=180200;
              }
             else
              {
             i=0;
                    do{
                      i++;
                      }while(ts>=tz[i]&&i<15);
                      k=t1*100+i;
              }
            }
t1=k/10000;
t2=k%10000;
t3=t2/100;
t4=t2%100*30;
if(t1>32&&t1!=50){
        t1-=32;
        t3=3;
        k-=320000;
         }
if(t1==50){
          t1=18;
          t3=8;
        k-=320000;
          }
k1=k;
$ declare read1 scroll cursor for select ll,rq into $rat,$dat1 from inter_rate where syh=$k1;
    if(sqlca.sqlcode!=0)
      {
        move(21,20);
        addstr("申请");
        mess((short)9);
        printw("(%d), ",sqlca.sqlcode);
        mess((short)3);
        getch();
        return;
      }
 $ open read1;
 if(sqlca.sqlcode !=0)
  { 
   printw("** %d 错误 1: 打开利率表出错 **",sqlca.sqlcode);
   getch();
   return;
   }
$fetch first read1;
dat2=0;
dat3=0;
do{
   if(dat1>=dat2)
               {
                dat2=dat1;
                ll2=rat;
               } 
   if(dat1<=dat&&dat1>=dat3)
               {
                dat3=dat1;
                ll1=rat;
               }
   $fetch next read1;
  }while(sqlca.sqlcode!=SQLNOTFOUND);
$close read1;
if(t1==18)
k1=t1*10000+200;
else k1=t1*10000+1200;
$ declare read2 scroll cursor for select ll,rq into $rat,$dat1 from inter_rate where syh=$k1;
    if(sqlca.sqlcode!=0)
      {
        move(21,20);
        addstr("申请");
        mess((short)9);
        printw("(%d), ",sqlca.sqlcode);
        mess((short)3);
        getch();
        return;
      }
 $ open read2;
 if(sqlca.sqlcode !=0)
  { 
   printw("** %d 错误 2: 打开利率表出错 **",sqlca.sqlcode);
   getch();
   return;
   }
$fetch first read2;
dat4=0;
do{
   if(dat1>=dat4)
               {
                dat4=dat1;
                ll3=rat;
               } 
   $fetch next read2;
  }while(sqlca.sqlcode!=SQLNOTFOUND);
$close read2;
   if(t1==18)