/******** 別表16(1)（定額法による償却額の計算） **********/
/********** (copyright © 2009 TenFeet Co. Ltd.) **********/
function calcBP(){
   xx = new Array(7,9,10,13,14,15,16,21,22,23,24,27,28,29,
         30,32,33,34,35,36,37,38,39,40,41,42,43,44,46,47);
   yy = new Array(9,22,35,48,61);
   for (i=0; i<yy.length; i++) {
      var ctcnt=0;
      for (c=yy[i]; c<yy[i]+4; c++) {
         var c7=CellValue("1601",7,c);
         var c8=CellValue("1601",8,c);
         SetCellValue("1601",9,c,c7-c8);

         var ct=CellString("1601",3,c);
         if (ct=="(当期除却)"){
            SetCellString("1601",13,c,"");
            SetCellString("1601",16,c,"");
            ctcnt=ctcnt+1;}
         else {
            var c10=CellValue("1601",10,c);
            var c11=CellValue("1601",11,c);
            var c12=CellValue("1601",12,c);
            SetCellValue("1601",13,c,c10-c11-c12);
            var c13=CellValue("1601",13,c);
            var c14=CellValue("1601",14,c);
            var c15=CellValue("1601",15,c);
            SetCellValue("1601",16,c,c13+c14+c15);
         }
         var c16=CellValue("1601",16,c);
         var c18=CellValue("1601",18,c);
         var c21=CellValue("1601",21,c);
         var c22=CellValue("1601",22,c);
         if (ct=="(当期除却)"){
            SetCellValue("1601",23,c,c21+c22);}
         else {
            if (c21+c22>c16-c18){
               SetCellValue("1601",23,c,c16-c18);
            } else {
               SetCellValue("1601",23,c,c21+c22);
            }
         }
         var c27=CellValue("1601",27,c);
         var c28=CellValue("1601",28,c);
         SetCellValue("1601",29,c,c27+c28);

         var c30=CellValue("1601",30,c);
         var c32=CellValue("1601",32,c);
         var c33=CellValue("1601",33,c);
         SetCellValue("1601",34,c,c30+c32+c33);

         var c37=CellValue("1601",37,c);
         var c38=CellValue("1601",38,c);
         var c39=CellValue("1601",39,c);
         var c40=CellValue("1601",40,c);
         SetCellValue("1601",41,c,c37+c38-c39-c40);
      }
      var ft=CellString("1601",1,yy[i]+4);
      if (ft=="合計" | ft=="頁合計" | ft=="頁計") {
         for (j=0; j<xx.length; j++){
            var t1=CellValue("1601",xx[j],yy[i]+0);
            var t2=CellValue("1601",xx[j],yy[i]+1);
            var t3=CellValue("1601",xx[j],yy[i]+2);
            var t4=CellValue("1601",xx[j],yy[i]+3);
            SetCellValue("1601",xx[j],yy[i]+4,t1+t2+t3+t4);
            if (xx[j]==10 | xx[j]==13 | xx[j]==16){
               if (ctcnt>0) {SetCellString("1601",xx[j],yy[i]+4,"");}
            }
         }
      }
   }
}