fix_canc.ec

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

                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)
                            {
                             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);
                             }
                        lx2=(long)am*(ts%t4)*ll3/30/1000;
               mlx=0;
               hlx=(long)lx2+(long)((lx2-(long)lx2)*100+0.5000001)/100.0;
                addspacef(11);
                prtf_dnum(am,13);
                addspacef(7);
                prtf_dnum(hlx,13);
                addspacef(3);
                prtf_dnum(mlx,13);
                addspacef(5);
                prtf_dnum(am,13);
                addspacef(7);
                prtf_dnum(hlx,13);
                addspacef(3);
                prtf_dnum(mlx,13);
                if(i%8==0)printf("\n");
                else
                {
                j=9-i%8;
                for(i=1;i<=j;i++)
                printf("\n");
                }
                addspacef(22);
        interes1=(long)(am+lx2)+(long)(((am+lx2)-(long)(am+lx2))*100+0.5000001)/100.0;
              /*  am=interes1-amount;*/
                am=sum-amount;
                prtf_dnum(sum,16);
                printf("(利息:");
                addspacef(2);
                prtf_dnum(am,13);
                printf(")");
                addspacef(16);
                prtf_dnum(sum,16);
                printf("(利息:");
                addspacef(2);
                prtf_dnum(am,13);
                printf(")");
                printf("\n");
                printf("%c%c%c%c%c",12,27,'[','4','i');
                        }
                  break;
           }
     }
    else
    {
       switch(t3)
           {
           case 3:
                  if(t4>ts)
                              {
                              lx=(long)amount*ts*ll3/30/1000;
                               if(t1==10)lx=(long)lx;
         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\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(16);
                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;
                       if(t1==10)am=(long)am;
                       j=ts/t4;
                       move(1,40);
                        y=yy;
                        lx=0;
                        lx1=0;
                       for(i=1;i<=j;i++)
                         {
                           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("法国法郎");
                      b