fix_pay.ec

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

                  }
                addspacef(8);
                printf("双整部提");
                addspacef(8);
                if(te<12) printf("%1d月",te);
                else printf("%1d年",te/12);
                addspacef(8);
                printf("%3d",b_n);
                addspacef(8);
                switch(toupper(cu_t))
                  {
                    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(8);
                printf("双整部提");
                addspacef(8);
                if(te<12) printf("%1d月",te);
                else printf("%1d年",te/12);
                addspacef(8);
                printf("%3d\n\n",b_n);
                addspacef(11);
                prtf_dnum(amount,13);
                addspacef(7);
                prtf_dnum(interes1,13);
                addspacef(3);
                prtf_dnum(mlx,13);
                addspacef(5);
                prtf_dnum(amount,13);
                addspacef(7);
                prtf_dnum(interes1,13);
                addspacef(3);
                prtf_dnum(mlx,13);
                printf("\n\n\n\n\n\n\n\n");
                addspacef(28);
        interes1=(long)(interes1+amount)+(long)(((interes1+amount)-(long)(interes1+amount))*100+0.5000001)/100.0;
                prtf_dnum(sum,16);
                addspacef(38);
                prtf_dnum(sum,16);
                printf("\n");
                printf("%c%c%c%c%c",12,27,'[','4','i');



                        }
                  break;
           case 8:
                  if(t4>ts)
                              {
                              lx=(long)amount*ts*ll3/30/1000;
         mlx=0;
        interes1=(long)(lx+lx2)+(long)(((lx+lx2)-(long)(lx+lx2))*100+0.5000001)/100.0;
              /* hlx=(long)lx2+(long)((lx2-(long)lx2)*100+0.5000001)/100.0;*/
                printf("%c%c%c%c\n\n",27,'[','5','i');
                addspacef(8);
                printf("%-10s",ss);
                addspacef(10);
                printf("%4d年%2d月%2d日 %2d时%2d分",year%100,month,day,
                  ti/100,ti%100);
                addspacef(11);
                printf("%-10s",ss);
                addspacef(10);
                printf("%4d年%2d月%2d日 %2d时%2d分\n",year%100,month,day,
                  ti/100,ti%100);
                addspacef(14);
                printf("%-8s",na);
                addspacef(10);
                prtf_inum(s_n,2);
                putchar('-');
                prtf_inum(a_n,9);
                addspacef(10);
                printf("%-6s",st);
                addspacef(8);
                printf("%-8s",na);
                addspacef(10);
                prtf_inum(s_n,2);
                putchar('-');
                prtf_inum(a_n,9);
                addspacef(10);
                printf("%-6s\n",st);
                addspacef(14);
                switch(toupper(cu_t))
                  {
                    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(8);
                printf("双整部提");
                addspacef(8);
                if(te<12) printf("%1d月",te);
                else printf("%1d年",te/12);
                addspacef(8);
                printf("%3d",b_n);
                addspacef(8);
                switch(toupper(cu_t))
                  {
                    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(8);
                printf("双整部提");
                addspacef(8);
                if(te<12) printf("%1d月",te);
                else printf("%1d年",te/12);
                addspacef(8);
                printf("%3d\n\n",b_n);
                addspacef(11);
                prtf_dnum(amount,13);
                addspacef(7);
                prtf_dnum(interes1,13);
                addspacef(3);
                prtf_dnum(mlx,13);
                addspacef(5);
                prtf_dnum(amount,13);
                addspacef(7);
                prtf_dnum(interes1,13);
                addspacef(3);
                prtf_dnum(mlx,13);
                printf("\n\n\n\n\n\n\n\n");
                addspacef(28);
        interes1=(long)(interes1+amount)+(long)(((interes1+amount)-(long)(interes1+amount))*100+0.5000001)/100.0;
                prtf_dnum(sum,16);
                addspacef(38);
                prtf_dnum(sum,16);
                printf("\n");
                printf("%c%c%c%c%c",12,27,'[','4','i');



                              }
                  else {
                       am=amount;
                       j=ts/t4;
                        y=yy;
                        lx=0;
                        lx1=0;
                       for(i=1;i<=j;i++)
                         {
                        if(t4>=1080)
                       {if(t4==1080) y=y+3;
                        else y=y+5;
                         m=mm;
                        $ select bl,sy,sm,sd,wy,wm,wd into $bl,$sy,$sm,$sd,$wy,$wm,$wd from maint_rate where y=$y and m=$m;
                        if(t4==1080){
                                 if(sy!=0&&sm!=0&&sd!=0)
                                                {
                                   if(sy<yy||sy==yy&&sm<mm||sy==yy&&sm==mm&&sd<=dd)
                                                   {
                                             ts1=t4;  
                                                    }    
                                    else
                                             ts1=(y-sy)*360+(m-sm)*30+dd-sd; 
                                                }
                                     else
                                            ts1=0;
                                           } 
                                 else    {
                                 if(wy!=0&&wm!=0&&wd!=0)
                                                {
                                   if(wy<yy||wy==yy&&wm<mm||wy==yy&&wm==mm&&wd<=dd)
                                                   {
                                             ts1=t4;  
                                                    }    
                                    else
                                             ts1=(y-wy)*360+(m-wm)*30+dd-sd; 
                                                }
                                     else
                                            ts1=0;
                                           } 
                    lx1+=(long)am*bl/10000*ts1;
                    lx4=(long)am*bl/10000*ts1;
                    if(t4==1080)yy+=3;
                    else 
                       yy+=5;
                        }
                 else
                    {
                     lx1=0;
                     lx4=0;
                     }
                           if((i%8)==1)
                            {
                             if(i>1){
                             printf("%c%c%c%c%c",12,27,'[','4','i');
                             move(20,20);
                             addspace(50);
                             move(20,20);
                             mess((short)44);
                             mess((short)4);
                             getch();
                                    }
                printf("%c%c%c%c\n\n\n",27,'[','5','i');
                addspacef(8);
                printf("%-10s",ss);
                addspacef(10);
                printf("%4d年%2d月%2d日 %2d时%2d分",year%100,month,day,
                  ti/100,ti%100);
                addspacef(11);
                printf("%-10s",ss);
                addspacef(10);
                printf("%4d年%2d月%2d日 %2d时%2d分\n",year%100,month,day,
                  ti/100,ti%100);
                addspacef(14);
                printf("%-8s",na);
                addspacef(10);
                prtf_inum(s_n,2);
                putchar('-');
                prtf_inum(a_n,9);
                addspacef(10);
                printf("%-6s",st);
                addspacef(8);
                printf("%-8s",na);
                addspacef(10);
                prtf_inum(s_n,2);
                putchar('-');
                prtf_inum(a_n,9);
                addspacef(10);
                printf("%-6s\n",st);
                addspacef(14);
                switch(toupper(cu_t))
                  {
                    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(8);
                printf("双整部提");
                addspacef(8);
                if(te<12) printf("%1d月",te);
                else printf("%1d年",te/12);
                addspacef(8);
                printf("%3d",b_n);
                addspacef(8);
                switch(toupper(cu_t))
                  {
                    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(8);
                printf("双整部提");
                addspacef(8);
                if(te<12) printf("%1d月",te);
                else printf("%1d年",te/12);
                addspacef(8);
                printf("%3d\n\n",b_n);
                             }
                          lx3=(long)am*t4*ll1/30/1000;
                          lx+=(long)am*t4*ll1/30/1000;
        mlx=(long)lx4+(long)((lx4-(long)lx4)*100+0.5000001)/100.0;
        interes1=(long)lx3+(long)((lx3-(long)lx3)*100+0.5000001)/100.0;
                addspacef(11);
                prtf_dnum(am,13);
                addspacef(2);
                prtf_inum(i,2);
                addspacef(3);
                prtf_dnum(interes1,13);
                addspacef(3);
                prtf_dnum(mlx,13);
                addspacef(5);
                prtf_dnum(am,13);
                addspacef(2);
                prtf_inum(i,2);
                addspacef(3);
                prtf_dnum(interes1,13);
                addspacef(3);
                prtf_dnum(mlx,13);
                printf("\n");
                          am+=mlx+interes1;
 k1=k;
 $ open rea1;
 if(sqlca.sqlcode !=0)
  { 
   printw("** %d 错误 1: 打开利率表出错 **",sqlca.sqlcode);
   getch();
   return;
   }
$fetch first rea1;
dat3=0;
dd=dat%100;
yy=dat/10000;
mm=(dat%10000)/100+t4/30;
if((mm%12)!=0)
dat=(yy+mm/12)*10000+(mm%12)*100+dd;
else
if((mm/12)>0)
dat=(yy+mm/12-1)*10000+1200+dd;
else
dat=yy*10000+1200+dd;
do{
   if(dat1<=dat&&dat1>=dat3)
               {
                dat3=dat1;
                ll1=rat;
               }
   $fetch next rea1;
  }while(sqlca.sqlcode!=SQLNOTFOUND);
$close rea1;
                          }
                           if((i%8)==1)