dem_canc.ec

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

              printf("%c%c%c%c%c%c%c%c%c",27,'[','5','i',27,'%','9',1,20);
                                   printf("\n      凭证号: ");
                                   prtf_inum(cr_num,7);
                                   printf("\n");
                                   addspacef(30);
                                   printf("%4d      %2d      %2d      %2d时%2d分\n\n\n\n\n\n\n\n\n\n",
                                           year,month,day,ti/100,ti%100);
                                   addspacef(11);
                                   printf("%-8s    ",nam);
                                   prtf_inum(s_num[0],2);
                                   printf("-");
                                   prtf_inum(a_num,9);
                                   printf("  ");
              prtf_dnum(amoun,14);
              prtf_dnum(aal,14);
              prtf_dnum(inte,14);
              bal=amoun+inte;
              prtf_dnum(bal,14);
                                   printf("\n\n");
                                   addspacef(21);
                                   printf("%d-%2d-%2d            ",year,month,day);
                                   printf("                      ");
                                   printf("       %d             ",b_num);
                                   printf(" %-6s\n\f",st);
              printf("%c%c%c%c",27,'[','4','i');
              move(20,20);
              addspace(30);
              move(20,20);
              mess((short)43);
              mess((short)4);
              getch();
              printf("%c%c%c%c%c%c%c%c%c",27,'[','5','i',27,'%','9',1,24);
              if((l_num[0]>=11&&l_num[0]<=20)||
                 (l_num[0]>=31&&l_num[0]<=40))
              {
                printf("%c9%c%c",'%',1,20);
                for(i=1;i<4;i++)printf("\n");
                printf("%c9%c%c",'%',1,24);
                for(i=1;i<l_num[0]%10;i++)printf("\n");
                if(l_num[0]%10==0)
                for(i=1;i<10;i++)printf("\n");
              }
              if((l_num[0]>1&&l_num[0]<=10)||
                 (l_num[0]>=21&&l_num[0]<=30)||
                 (l_num[0]>=41&&l_num[0]<=51))
              {
                printf("%c9%c%c",'%',1,20);
                for(i=1;i<19;i++)printf("\n");
                printf("%c9%c%c",'%',1,24);
                for(i=1;i<l_num[0]%10;i++)printf("\n");
                if(l_num[0]%10==0)
                for(i=1;i<10;i++)printf("\n");
              }
                       printf("%4d.%2d.%2d   销户",year,month,day);
                                   printf("(-)");
                                   prtf_dnum(amoun,15);
                                   prtf_dnum(aal,15);
                                   printf(" %-6s\f\n",st);
              printf("%c9%c%c",'%',1,20);

              move(20,20);
              addspace(50);
              move(20,20);
              mess((short)44);
              mess((short)4);
              getch();
              printf("%c%c%c%c%c%c%c%c%c",27,'[','5','i',27,'%','9',1,20);
              addspacef(10);
              printf("\n%-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",nam);
              addspacef(10);
              prtf_inum((long)s_num[0],2);
              putchar('-');
              prtf_inum(a_num,9);
              addspacef(10);
              printf("%-6s",st);
              addspacef(8);
              printf("%-8s",nam);
              addspacef(10);
              prtf_inum((long)s_num[0],2);
              putchar('-');
              prtf_inum(a_num,9);
              addspacef(10);
              printf("%-6s\n",st);
              addspacef(16);
              switch(toupper(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(8);
              printf("活期销户");
              addspacef(19);
              printf("%3d",b_num);
              addspacef(8);
              switch(toupper(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(8);
              printf("活期销户");
              addspacef(19);
              printf("%3d\n\n",b_num);
              addspacef(13);
              prtf_dnum(amoun,13);
              addspacef(7);
              prtf_dnum(inte,13);
              addspacef(21);
              prtf_dnum(amoun,13);
              addspacef(7);
              prtf_dnum(inte,13);
              printf("\n\n\n\n\n\n\n\n");
              addspacef(30);
              prtf_dnum(amoun+inte,16);
              addspacef(38);
              prtf_dnum(amoun+inte,16);
              printf("\n");
              printf("%c%c%c%c%c",12,27,'[','4','i');
              amoun+=inte;
                if(cred_type==12)
                  {
                    switch(toupper(cu_type[0]))
                      {
                        case 'C':
                        case 'F':
                        case 'M':
                        case 'P':
                        case 'U':
                          amoun-=(long)amoun;
                          break;
                        case 'J':
                          amoun-=(((long)(amoun/1000.0))*1000.0);
                          break;
                        case 'H':
                          amoun-=(((long)(amoun/10.0))*10.0);
                      }
                    if(amoun>0.005)
                      {
                        i=toupper(cu_type[0])-64;
                        x=get_rmb(i,amoun,&y);
                        move(20,20);
                        addspace(50);
                        move(20,20);
                        mess((short)58);
                        mess((short)4);
                        getch();
                        printf("%c%c%c%c%c%c%c%c%c\n\n\n\n\n",27,'[','5','i',
                          27,'%','9',1,20);
                        addspacef(20);
                        printf("%-8s",nam);
                        addspacef(40);
                        printf("%4d年%2d月%2d日\n\n",year,month,day);
                        addspacef(20);
                        prtf_inum((long)s_num[0],2);
                        putchar('-');
                        prtf_inum(a_num,9);
                        printf("\n\n\n");
                        addspacef(10);
                        switch(toupper(cu_type[0]))
                          {
                            case 'U':
                              printf("US＄");
                              break;
                            case 'J':
                              printf("Jap￥");
                              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,9);
                        addspacef(18);
                        printf("%10.4f",y*100);
                        addspacef(16);
                        prtf_dnum(x,9);
                        printf("\n%c%c%c%c%c",12,27,'[','4','i');
                        bal=x;
                        cu_type[0]=toupper(cu_type[0]);
                        $ insert into f_blot
                          values
                          (0,$ope_num,$s_num,$a_num,$nam,$s_type,$cu_type,
                          $te,$cr_num,"X",$amoun,$bal,0.0);
                      }
                  }

              move(20,20);
              addspace(30);
              move(20,20);
              mess(23);
          }
       break;
/*更新记录结束*/
      }
   if(p==1)
     {
      $ rollback work;
     }
   else
     {
      $ commit work;
     }
    p=0;
    move(20,46);
    mess(15);
    c=y_n('Y','N','N');
    if(c=='N') break;
    move(20,20);
    addspace(56);
    move(3,24);
    addspace(40);
  }
$ 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>
#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/readch>
#include </u/ebcsav/include/readdv>
#include </u/ebcsav/include/readst>
#include </u/ebcsav/include/ac_num>
#include </u/ebcsav/include/num_time>
#include </u/ebcsav/include/fv_date>
#include </u/ebcsav/include/delay>
double get_rmb(k,amount,exch)
short k;
double amount,*exch;
{
$double hl;
$short sy;
double lx=0;
long i;
sy=k;
$ select sy,hl into $sy,$hl from exch_rate where sy=$sy;
lx=amount*hl;
i=lx;
lx=i+(long)((lx-i)*100.0+0.500000001)/100.0;
*exch=hl;
return(lx);
}

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;