『 지금의 나는... 』
1 지금 내가 하고 있는 일의 목표는 분명한가?
2 지금 내가 하고 있는 일에 가치가 부여되고 있고 일의 성과를 추출하고 있는가?
3 지금 나는 다양한 성격의 사람과 대화를 잘 할 수 있는가? 또, 협상의 기술이 있는가?
4 지금 나는 프레젠테이션 스킬이 우수한가?
5 지금 나는 기획문서를 쉽고 빠르게 작성할 수 있는가?
6 지금 나는 시간관리를 하고 있는가?
7 지금 나는 변화와 개선점을 파악할 수 있고 제시할 수 있는가?
* 내 아들,딸과 아내가 그리고 내 부모님과 하나님이 나의 성공을 간절히 바라고 있다.

임시

분류없음 : 2009/05/11 12:44

<object RUNAT="server" PROGID="ADODB.Connection" id="con"></object>
<object RUNAT="server" PROGID="ADODB.Recordset" id="ExtraRs"></object>
<object RUNAT="server" PROGID="ADODB.Recordset" id="PayRs"></object>
<% Option Explicit %>
<!--#include virtual ="/workhour/common/asp/sessioncheck.asp"-->
<!--#include virtual ="/workhour/common/asp/dbcon.asp"-->
<!--#include virtual ="/workhour/common/asp/common.asp"-->
<!--#include virtual ="/workhour/common/inc/YearReport.inc"-->
<%
  Dim CUserID, oldtitle, ReportTitle
  Dim i
  CUserID = session("user_id")

  Dim gotopage, pagesize
  gotopage = Request("gotopage")
  If gotopage = "" Then
      gotopage = 1
  End If
  pagesize = 30

  Dim selViewCols, GroupBy, Year1, Year2
  Dim moncnt, mon1, mon2, mon3, mon4, mon5, mon6, mon7, mon8, mon9, mon10, mon11, mon12, mons(12)
  Dim extcnt, ext0, ext50, ext150, ext200, ext250, ext300, ext350, ext400,extsum
  Dim OTTime, HourlyPay
 
  selViewCols = Trim(request("selViewCols"))
  GroupBy = Trim(request("GroupBy"))
  Year1 = Trim(request("Year1"))
  If Year1 <> "" Then
    Year2 = CStr(cint(Year1) + 1)
  End If
 
  If session("Influence") <> "HR Master" then
    OTTime = 1
    HourlyPay = 0
  Else
    OTTime = inStr(1,selViewCols,"OTTime")
    HourlyPay = inStr(1,selViewCols,"HourlyPay")
  End If
  mon1 =   inStr(1,selViewCols,"mon1")
  mon2 =   inStr(1,selViewCols,"mon2")
  mon3 =   inStr(1,selViewCols,"mon3")
  mon4 =   inStr(1,selViewCols,"mon4")
  mon5 =   inStr(1,selViewCols,"mon5")
  mon6 =   inStr(1,selViewCols,"mon6")
  mon7 =   inStr(1,selViewCols,"mon7")
  mon8 =   inStr(1,selViewCols,"mon8")
  mon9 =   inStr(1,selViewCols,"mon9")
  mon10 =  inStr(1,selViewCols,"mon10")
  mon11 =  inStr(1,selViewCols,"mon11")
  mon12 =  inStr(1,selViewCols,"mon12")
  ext0 =   inStr(1,selViewCols,"Extra0")
  ext50 =  inStr(1,selViewCols,"Extra50")
  ext150 = inStr(1,selViewCols,"Extra150")
  ext200 = inStr(1,selViewCols,"Extra200")
  ext250 = inStr(1,selViewCols,"Extra250")
  ext300 = inStr(1,selViewCols,"Extra300")
  ext350 = inStr(1,selViewCols,"Extra350")
  ext400 = inStr(1,selViewCols,"Extra400")
  extsum = inStr(1,selViewCols,"ExtraSum")
  extcnt = 0
  If ext0 > 0 Then
    extcnt = extcnt + 1
  End If
  If ext50 > 0 Then
    extcnt = extcnt + 1
  End If
  If ext150 > 0 Then
    extcnt = extcnt + 1
  End If
  If ext200 > 0 Then
    extcnt = extcnt + 1
  End If
  If ext250 > 0 Then
    extcnt = extcnt + 1
  End If
  If ext300 > 0 Then
    extcnt = extcnt + 1
  End If
  If ext350 > 0 Then
    extcnt = extcnt + 1
  End If
  If ext400 > 0 Then
    extcnt = extcnt + 1
  End If
  If extsum > 0 Then
    extcnt = extcnt + 1
  End If

  ReportTitle = setTitle()  ' html table의 타이틀

'  response.write request("selViewCols")
  Dim ExtraSql, PaySql, SQLQuery1, SQLGroup
  Dim strCols,tmpCol


  '보기열 처리
  ExtraSql = ""
  ExtraSql = ExtraSql & "SELECT " & GroupBy & " RsTitle , SYear, SMon "
  ExtraSql = ExtraSql & getExtItem()
  ExtraSql = ExtraSql & " FROM         Tb_OT_Summery "

  PaySql = ""
  PaySql = PaySql & "SELECT " & GroupBy & " RsTitle , SYear, SMon "
  PaySql = PaySql & getPayItem()
  PaySql = PaySql & " FROM         Tb_OT_Summery "

  '합계
  SQLGroup = ""
  SQLGroup = SQLGroup & " Group By  " & GroupBy & ", SYear, Smon "
  SQLGroup = SQLGroup & " Order By  " & GroupBy & ", SYear, Smon "

  '조건절 처리
  SQLQuery1 = ""
  if session("Influence") = "HR Master" then
      SQLQuery1 = SQLQuery1 & " Where  (SYear = '" & Year1 & "' OR SYear = '" & Year2 & "')  "
    SQLQuery1 = SQLQuery1 & " And " & getWhere()
  Else
    SQLQuery1 = SQLQuery1 & " WHERE (Order_Group in (" & session("OrderGroup") & ")) "
      SQLQuery1 = SQLQuery1 & " And (SYear = '" & Year1 & "' OR SYear = '" & Year2 & "')  "
    SQLQuery1 = SQLQuery1 & " And " & getWhere()
  End if

  IF Trim(request("selViewCols")) <> "" Then
    ExtraSql = ExtraSql & SQLQuery1 & SQLGroup
    PaySql   = PaySql   & SQLQuery1 & SQLGroup
  End If

%>
<html>
 <head>
  <meta http-equiv="content-type" content="text/html; charset=euc-kr">
  <title>LINDE OT관리시스템</title>
  <link href="/workhour/css/style.css" rel="stylesheet" media="screen,print" type="text/css" />
    <link href="/workhour/css/style.css" rel="stylesheet" media="screen,print" type="text/css" />
    <script src="/workhour/common/js/service.js" type="text/javascript"></script>
    <script src="/workhour/common/js/popcal2.js" type="text/javascript"></script>
    <script src="/workhour/common/js/util.js" type="text/javascript"></script>
    <script language="JavaScript">
    <!--
      //-- selectField  :  조회 기준 선텍 레이어
      //-- ReportField  :  레포트 레이어
      function optSelecRecord(opt){
        if(opt == "date"){
          searchTab1.style.display = 'none';
          searchTab2.style.display = 'block';
        }else{
          var params = "";

          if(opt == "name"){
            SearchName(params);
          }
          if(opt == "dept"){
            SearchDept(params);
          }

          searchTab1.style.display = 'block';
          searchTab2.style.display = 'none';
        }
      }

      function moveSelOptions(sObjName,tObjName){
        var sObj = document.getElementById(sObjName);
        var tObj = document.getElementById(tObjName);
        var tmpsel = document.createElement("select");

        for (var i = (sObj.length-1) ; i >-1 ; i--){
          var tmpobj = sObj.options[i];

          if (tmpobj.selected == true){
            tmpsel.appendChild(tmpobj);
          }
        }

        for (var i = (tmpsel.length-1) ; i >-1 ; i--){
          tObj.appendChild(tmpsel.options[i]);
        }
        tmpsel.removeNode();

        sObj.selectedIndex = -1;
        tObj.selectedIndex = -1;
      }

      function selLeft(sObjName,tObjName){
        var sObj = document.getElementById(sObjName);
        var tObj = document.getElementById(tObjName);
        var tmpsel = document.createElement("select");

        for (var i = (sObj.length-1) ; i >-1 ; i--){
          var tmpobj = sObj.options[i];

          if (tmpobj.selected == true){
            tmpsel.appendChild(tmpobj);
          }
        }

        for (var i = (tmpsel.length-1) ; i >-1 ; i--){
          if (tObj.length > 0){
            var insert = false;
            for(j=0;j<tObj.length;j++){
              if (parseInt(tObj.options[j].idx,10) > parseInt(tmpsel.options[i].idx,10)){
                tObj.insertBefore(tmpsel.options[i],tObj.options[j])
                insert = true;
                break;
              }
            }

            if (insert == false){
              tObj.appendChild(tmpsel.options[i]);
            }
          }else{
            tObj.appendChild(tmpsel.options[i]);
          }
        }

        tmpsel.removeNode();
        sObj.selectedIndex = -1;
        tObj.selectedIndex = -1;
      }

      /*=========================================================================
     //   콤보 박스 모든 항복 복사
     ==========================================================================*/
      function copyAllOptions(sObjName,tObjName){
        var sObj = document.getElementById(sObjName);
        var tObj = document.getElementById(tObjName);

        for (var i = 0; i < sObj.length ; i++){
          var selOp = sObj.options[i];
          var optionEl = document.createElement("option");

          optionEl.value = selOp.value;
          optionEl.idx = selOp.idx;
          optionEl.innerText = selOp.innerText;

          tObj.appendChild(optionEl);
        }

        sObj.selectedIndex = -1;
        tObj.selectedIndex = -1;

      }
      /*=========================================================================
     //   콤보 박스 선택된 항복 복사
     ==========================================================================*/
      function copySelOptions(sObjName,tObjName){
        var sObj = document.getElementById(sObjName);
        var tObj = document.getElementById(tObjName);

        for (var i = 0; i < sObj.length ; i++){
          var selOp = sObj.options[i];

          if (selOp.selected == true){
            var append = true;

            for(var j=0;j<tObj.length;j++){
              if (tObj.options[j].value == selOp.value){
                append = false;
                break;
              }
            }
            if (append){
              var optionEl = document.createElement("option");

              optionEl.value = selOp.value;
              optionEl.idx = selOp.idx;
              optionEl.innerText = selOp.innerText;

              tObj.appendChild(optionEl);
            }
          }
        }

        sObj.selectedIndex = -1;
        tObj.selectedIndex = -1;
      }

      function deleteOptions(ObjName){
        var Obj = document.getElementById(ObjName);

        for (var i = (Obj.length-1) ; i >-1 ; i--){
          var tmpobj = Obj.options[i];

          if (tmpobj.selected == true){
            Obj.removeChild(tmpobj);
          }
        }

        Obj.selectedIndex = -1;
      }

      function deleteDifferentOptions(sObjName,tObjName){
        var sObj = document.getElementById(sObjName);
        var tObj = document.getElementById(tObjName);

        for (var i = (tObj.length-1); i > -1 ; i--){
          var del = true;
          var selOp = tObj.options[i];

          for(var j=0;j<sObj.length;j++){
            if (sObj.options[j].value == selOp.value){
              del = false;
              break;
            }
          }
          if(del)
            tObj.removeChild(selOp);
        }

        sObj.selectedIndex = -1;
        tObj.selectedIndex = -1;
      }

      function goProcess(step){
        switch (step){
          case 2:
            if (document.all["selViewCols"].length == 0){
              alert("조회할 항목을 지정하세요.");
              return;
            }
            selectField.style.display = 'none';
            sortSelect.style.display = 'block';
            break;
        }
      }

      /*=========================================================================
     //   조회대상 조회 : 이름
     ==========================================================================*/
     function SearchName(params){
      new ajax.xhr.Request("SearchName","/workhour/common/query/search_name.asp", params, Callback, "POST");
     }

      /*=========================================================================
     //   조회대상 조회 : 부서별
     ==========================================================================*/
     function SearchDept(params){
      new ajax.xhr.Request("SearchDept","/workhour/common/query/search_dept.asp", params, Callback, "POST");
     }

     /*=========================================================================
     //   결과리턴
     ==========================================================================*/
     function Callback(req, svcid){
      if (req.readyState == 4){
       if (req.status == 200){
        //성명별
        if (svcid == "SearchName"){
         var xmlRet = req.responseText;

         var xmlTeam1 = document.getElementById("xmlName");
         xmlTeam1.loadXML(xmlRet);

         var xmlRow = xmlTeam1.getElementsByTagName("ROW");

         if (xmlRow.length == 0){
          InitCombo(document.getElementById("searchList"),null);
         }
         else{
          InitCombo(document.getElementById("searchList"),null);
          BindCombo(document.getElementById("searchList"), xmlRow, '');
         }
        }

        //부서별
        if (svcid == "SearchDept"){
         var xmlRet = req.responseText;

         var xmlTeam1 = document.getElementById("xmlDept");
         xmlTeam1.loadXML(xmlRet);

         var xmlRow = xmlTeam1.getElementsByTagName("ROW");

         if (xmlRow.length == 0){
          InitCombo(document.getElementById("searchList"),null);
         }
         else{
          InitCombo(document.getElementById("searchList"),null);
          BindCombo(document.getElementById("searchList"), xmlRow, '');
         }
        }
       }
       else{
        alert("error:"+req.status);
       }
      }
     }
     
     function selectAllOptions(ObjNm){
       var Obj = document.all[ObjNm];
       for (var i = 0; i< Obj.length; i++){
         Obj.options[i].selected = true;
       }
     }

     function goReport(){
       selectAllOptions("selViewCols");
      
       document.forms[0].submit();
     }

   function ExcelDownLoad(){
   
     var selViewCols = "<%=Trim(selViewCols)%>";
        var GroupBy = "<%=Trim(GroupBy)%>";
        var Year1 = "<%=Trim(Year1)%>";
        var Year2 = "<%=Trim(Year2)%>";
       
        var param = "" ;
       
        param += "selViewCols=" + selViewCols;
        param += "&GroupBy="+GroupBy;
        param += "&Year1=" + Year1;
        param += "&Year2=" + Year2;
       
     OpenDownLoadPage("otmng_4_7_Excel.asp?" + param);
   }
  // -->
  </script>
 </head>

 <body bgcolor="white" >
  <form name="nform" method="post" action="otmng_4_7.asp">
  <table border="0" cellpadding="0" cellspacing="0" width="766">
      <tr>
        <td width="30"><img src="/workhour/img/blank.gif" /></td>
        <td align="left" valign="top" width="736">
       <table width="100%">
       <tr>
        <td height="40" valign="middle"><img src="/workhour/img/title_2_4.gif"></td>
       </tr>
         <tr>
           <td align="center">
             <p>
                  <a href="otmng_4.asp">
                    <img src="/workhour/img/btn_s_user.gif" border="0" alt="시용자정의">
                  </a>
<%if session("Influence") = "HR Master" then %>
                  <a href="otmng_4_6.asp">
                    <img src="/workhour/img/btn_s_pay.gif" border="0" alt="급여반영자료">
                  </a>
<%end if%>
                  <a href="otmng_4_7.asp">
                    <img src="/workhour/img/btn_s_year.gif" border="0" alt="년간합계비교">
                  </a>
<%if session("Influence") = "HR Master" then %>
                  <a href="otmng_4_8.asp">
                    <img src="/workhour/img/btn_s_hr.gif" border="0" alt="HR">
                  </a>
<%end if%>
                </p>
           </td>
         </tr>
            <tr>
              <td height="20" align="right" bgcolor="white" >
                <a href="#" onclick="ExcelDownLoad();">Excel내려받기</a>&nbsp;
              </td>
            </tr>
            <tr>
              <td height="25" align="center">
             
             
                <!-- 조회 기준 선택 ------------------------------------------------------------------------->
             <div id=selectField style="<%If extcnt = 0 Then%>display:block<%Else%>display:none<%End If%>">
                <table border="0" cellpadding="0" cellspacing="0" width="570">
                  <tr>
                    <td>
                      <table  border="0" cellpadding="0" cellspacing="0" width="570" bgcolor="#F7F7F7" background="/workhour/img/otmng_4_bg.gif">
                        <tr>
                          <td align="center" colspan="3" height="54">
                            <p><img src="/workhour/img/otmng_4_ti1.gif" border="0"></p>
                          </td>
                        </tr>
                        <tr>
                          <td align="center" colspan="3" height="54">
                            조회기준 <select name="GroupBy" size="1" class="sel" style="width:90;" >
                              <option value="KName" selected>이름별
                              <option value="Location" <%IF Groupby = "Location" Then%>selected<%End if%>>지역별
                              <option value="Division" <%IF Groupby = "Division" Then%>selected<%End if%>>부문별
                              <option value="Department" <%IF Groupby = "Department" Then%>selected<%End if%>>부서별
                              <option value="Team" <%IF Groupby = "Team" Then%>selected<%End if%>>팀별
                            </select>
                            &nbsp;&nbsp;&nbsp;비교 년도
                            <select name="Year1" size="1" class="sel" style="width:90;">
<%if session("Influence") = "HR Master" then%>
                              <option value="2007" >2007/2008
<%End if%>                             
                              <option value="2008" selected>2008/2009
                            </select>
                          </td>
                        </tr>
                        <tr>
                          <th align="center" height="25">
                            <p>[열목록]</p>
                          </th>
                          <th width="50" align="center" height="25">
                            <p>&nbsp;</p>
                          </th>
                          <th align="center" height="25">
                            <p>[선택된 목록]</p>
                          </th>
                        </tr>
                        <tr>
                          <td align="center" valign="top">
                            <p align="center">
                              <select id="viewCols" name="viewCols" style="width:230;height:140;" multiple class="intxt_textarea1">
                                <option value="mon1" idx="1">1월</option>
                                <option value="mon2" idx="2">2월</option>
                                <option value="mon3" idx="3">3월</option>
                                <option value="mon4" idx="4">4월</option>
                                <option value="mon5" idx="5">5월</option>
                                <option value="mon6" idx="6">6월</option>
                                <option value="mon7" idx="7">7월</option>
                                <option value="mon8" idx="8">8월</option>
                                <option value="mon9" idx="9">9월</option>
                                <option value="mon10" idx="10">10월</option>
                                <option value="mon11" idx="11">11월</option>
                                <option value="mon12" idx="12">12월</option>
                                <!--<option value="Extra0" idx="8">0%</option>--->
                                <option value="Extra50" idx="13">50%</option>
                                <option value="Extra150" idx="14">150%</option>
                                <option value="Extra200" idx="15">200%</option>
                                <option value="Extra250" idx="16">250%</option>
                                <option value="Extra300" idx="17">300%</option>
                                <option value="Extra350" idx="18">350%</option>
                                <option value="Extra400" idx="19">400%</option>
                                <option value="ExtraSum" idx="20">할증합계</option>
<%if session("Influence") = "HR Master" then%>
                                <option value="OTTime" idx="21">OT시간</option>
                                <option value="HourlyPay" idx="22">시급</option>
<%end if%>
                              </select>
                            </p>
                          </td>
                          <td width="50" align="center" valign="middle">
                            <p>
                              <a href="#" onclick="moveSelOptions('viewCols','selViewCols')">
                                <img src="/workhour/img/arrow_big.gif" border="0">
                              </a>
                              <br><br>
                              <a href="#" onclick="selLeft('selViewCols','viewCols')">
                                <img src="/workhour/img/arrow_big2.gif" border="0"></a>
                              </p>
                          </td>
                          <td align="center" valign="top">
                            <p align="center">
                              <select id="selViewCols" name="selViewCols" style="width:230;height:140;" multiple class="intxt_textarea1">
                              </select>
                            </p>
                          </td>
                        </tr>
                        <tr>
                          <td align="center" valign="top" height="10" colspan="3">
                            <p><img src="/workhour/img/otmng_4_bot.gif" border="0"></p>
                          </td>
                        </tr>
                      </table>
                    </td>
                  </tr>
                  <tr>
                    <td>
                       <p>&nbsp;</p>
                    </td>
                  </tr>
                  <tr>
                    <td align="center">
                      <p>
                          <a href="#" onclick="goReport();">
                            <img src="/workhour/img/btn_report.gif" border="0" alt="레포트조회">
                          </a>
                      </p>
                    </td>
                  </tr>
                </table>
                </div>
                <!-- 조회 기준 선택 끝 ------------------------------------------------------------------>


              </td>
            </tr>
       <tr>
        <td>
        
        
                <!-- 레포트 영역 --------------------------------------------------------------------------->
                <div align="left" style="width:736;height:380;overflow-y:scroll;overflow-x:scroll;<%If extcnt <> 0 Then%>display:block<%Else%>display:none<%End If%>">
<table border="0" cellpadding="0" cellspacing="0" width="100%">
  <tr>
    <td width="50" height="100%">
      <table border="0" cellspacing="1" bgcolor="#CCCCCC" width="100%" height="100%" style="table-layout:fixed">
        <tr>
           <th width="50" height="100%" align="center" bgcolor="#D7E8F9"><span id="years">년도</span></th>
        </tr>
      </table>   
    </td>
    <td height="100%">
      <table border="0" cellspacing="1" bgcolor="#CCCCCC" width="100%" height="100%" style="table-layout:fixed">
        <tr height="100%">
          <th width="110" height="100%" align="center" bgcolor="#D7E8F9"><span id="RecodeTitle">
<%IF Groupby = "KName" Then%>이름<%End if%>
<%IF Groupby = "Location" Then%>지역<%End if%>
<%IF Groupby = "Division" Then%>부문<%End if%>
<%IF Groupby = "Department" Then%>부서<%End if%>
<%IF Groupby = "Team" Then%>팀<%End if%>
          </span></th>
        </tr>
      </table>   
    </td>
    <%
      moncnt = 0
      If mon1 > 0 Then
        moncnt = moncnt + 1
        mons(moncnt) = "01"
    %>
    <td>
      <table id="Title1" border="0" cellspacing="1" bgcolor="#CCCCCC" width="100%" style="table-layout:fixed">
        <tr>
          <th width="100%" height="20" colspan="<%=extcnt%>" align="center" bgcolor="#D7E8F9"><p>
          1월</p></th>
        </tr>
        <tr>
          <%=ReportTitle%>
        </tr>
      </table>
    </td>
    <%End If%>
    <%
      If mon2 > 0 Then
        moncnt = moncnt + 1
        mons(moncnt) = "02"
    %>
    <td>
      <table id="Title2" border="0" cellspacing="1" bgcolor="#CCCCCC" width="100%" style="table-layout:fixed">
        <tr>
          <th width="100%" height="20" colspan="<%=extcnt%>" align="center" bgcolor="#D7E8F9"><p>
          2월</p></th>
        </tr>
        <tr>
          <%=ReportTitle%>
        </tr>
      </table>   
    </td>
    <%End If%>
    <%
      If mon3 > 0 Then
        moncnt = moncnt + 1
        mons(moncnt) = "03"
    %>
    <td>
      <table id="Title3" border="0" cellspacing="1" bgcolor="#CCCCCC" width="100%" style="table-layout:fixed">
        <tr>
          <th width="100%" height="20" colspan="<%=extcnt%>" align="center" bgcolor="#D7E8F9"><p>
          3월</p></th>
        </tr>
        <tr>
          <%=ReportTitle%>
        </tr>
      </table>   
    </td>
    <%End If%>
    <%
      If mon4 > 0 Then
        moncnt = moncnt + 1
        mons(moncnt) = "04"
    %>
    <td>
      <table id="Title4" border="0" cellspacing="1" bgcolor="#CCCCCC" width="100%" style="table-layout:fixed">
        <tr>
          <th width="100%" height="20" colspan="<%=extcnt%>" align="center" bgcolor="#D7E8F9"><p>
          4월</p></th>
        </tr>
        <tr>
          <%=ReportTitle%>
        </tr>
      </table>   
    </td>
    <%End If%>
    <%
      If mon5 > 0 Then
        moncnt = moncnt + 1
        mons(moncnt) = "05"
    %>
    <td>
      <table id="Title5" border="0" cellspacing="1" bgcolor="#CCCCCC" width="100%" style="table-layout:fixed">
        <tr>
          <th width="100%" height="20" colspan="<%=extcnt%>" align="center" bgcolor="#D7E8F9"><p>
          5월</p></th>
        </tr>
        <tr>
          <%=ReportTitle%>
        </tr>
      </table>   
    </td>
    <%End If%>
    <%
      If mon6 > 0 Then
        moncnt = moncnt + 1
        mons(moncnt) = "06"
    %>
    <td>
      <table id="Title6" border="0" cellspacing="1" bgcolor="#CCCCCC" width="100%" style="table-layout:fixed">
        <tr>
          <th width="100%" height="20" colspan="<%=extcnt%>" align="center" bgcolor="#D7E8F9"><p>
          6월</p></th>
        </tr>
        <tr>
          <%=ReportTitle%>
        </tr>
      </table>   
    </td>
    <%End If%>
    <%
      If mon7 > 0 Then
        moncnt = moncnt + 1
        mons(moncnt) = "07"
    %>
    <td>
      <table id="Title7" border="0" cellspacing="1" bgcolor="#CCCCCC" width="100%" style="table-layout:fixed">
        <tr>
          <th width="100%" height="20" colspan="<%=extcnt%>" align="center" bgcolor="#D7E8F9"><p>
          7월</p></th>
        </tr>
        <tr>
          <%=ReportTitle%>
        </tr>
      </table>   
    </td>
    <%End If%>
    <%
      If mon8 > 0 Then
        moncnt = moncnt + 1
        mons(moncnt) = "08"
    %>
    <td>
      <table id="Title8" border="0" cellspacing="1" bgcolor="#CCCCCC" width="100%" style="table-layout:fixed">
        <tr>
          <th width="100%" height="20" colspan="<%=extcnt%>" align="center" bgcolor="#D7E8F9"><p>
          8월</p></th>
        </tr>
        <tr>
          <%=ReportTitle%>
        </tr>
      </table>   
    </td>
    <%End If%>
    <%
      If mon9 > 0 Then
        moncnt = moncnt + 1
        mons(moncnt) = "09"
    %>
    <td>
      <table id="Title9" border="0" cellspacing="1" bgcolor="#CCCCCC" width="100%" style="table-layout:fixed">
        <tr>
          <th width="100%" height="20" colspan="<%=extcnt%>" align="center" bgcolor="#D7E8F9"><p>
          9월</p></th>
        </tr>
        <tr>
          <%=ReportTitle%>
        </tr>
      </table>   
    </td>
    <%End If%>
    <%
      If mon10 > 0 Then
        moncnt = moncnt + 1
        mons(moncnt) = "10"
    %>
    <td>
      <table id="Title10" border="0" cellspacing="1" bgcolor="#CCCCCC" width="100%" style="table-layout:fixed">
        <tr>
          <th width="100%" height="20" colspan="<%=extcnt%>" align="center" bgcolor="#D7E8F9"><p>
          10월</p></th>
        </tr>
        <tr>
          <%=ReportTitle%>
        </tr>
      </table>   
    </td>
    <%End If%>
    <%
      If mon11 > 0 Then
        moncnt = moncnt + 1
        mons(moncnt) = "11"
    %>
    <td>
      <table id="Title11" border="0" cellspacing="1" bgcolor="#CCCCCC" width="100%" style="table-layout:fixed">
        <tr>
          <th width="100%" height="20" colspan="<%=extcnt%>" align="center" bgcolor="#D7E8F9"><p>
          11월</p></th>
        </tr>
        <tr>
          <%=ReportTitle%>
        </tr>
      </table>   
    </td>
    <%End If%>
    <%
      If mon12 > 0 Then
        moncnt = moncnt + 1
        mons(moncnt) = "12"
    %>
    <td>
      <table id="Title12" border="0" cellspacing="1" bgcolor="#CCCCCC" width="100%" style="table-layout:fixed">
        <tr>
          <th width="100%" height="20" colspan="<%=extcnt%>" align="center" bgcolor="#D7E8F9"><p>
          12월</p></th>
        </tr>
        <tr>
          <%=ReportTitle%>
        </tr>
      </table>   
    </td>
    <%End If%>
  </tr>
 
<%

 

'  response.write ExtraSql & "<br><br>"
'  response.write PaySql & "<br><br>"
'  response.end

on error resume next

  If extcnt <> 0  Then

    ExtraRs.Open ExtraSql, con, adOpenKeyset, adLockReadOnly, adCmdText
    If HourlyPay > 0 Then
      PayRs.Open PaySql, con, adOpenKeyset, adLockReadOnly, adCmdText
    End If

    i = 0

    Do Until ExtraRs.Eof

      i = i + 1
 
      If oldtitle <> ExtraRs("RsTitle") Then
        oldtitle = Trim(ExtraRs("RsTitle"))
      End If
%>
<!-- 레포트 한 항복 출력 ---------------------------------------------------------------------------> 
  <tr>
    <td width="50">
      <%=RowHead()%>
    </td>
<%
      Dim monsLoop

      For monsLoop = 1 to moncnt
%>
    <td>
      <table border="0" cellspacing="1" bgcolor="#CCCCCC" width="100%" style="table-layout:fixed">     
        <%=ExtraRow(oldtitle, Year1, mons(monsLoop))%>
        <%If HourlyPay > 0 Then%>
          <%=PayRow(oldtitle, Year1, mons(monsLoop))%>
        <%End If%>
        <%=ExtraRow(oldtitle, Year2, mons(monsLoop))%>
        <%If HourlyPay > 0 Then%>
          <%=PayRow(oldtitle, Year2, mons(monsLoop))%>
        <%End If%>
      </table>   
    </td>
<%
      Next
%>
  </tr>
<!-- 레포트 한 항복 출력 끝 -------------------------------------------------------------------------> 
<%
    loop

    ExtraRs.close
    PayRs.close
    con.close 
 
  End if
 
 
'  if Err.Number <> 0 Then
'    Response.Write "에러 상세 설명<BR> "
'    Response.Write Err.Number & " - 에러 번호<BR>"
'    Response.Write Err.Description & " - 에러 메시지<BR>"
'    Response.Write Err.Source & " - 에러 출처<BR>"
'    Response.Write Err.NativeError & " - DB 에러번호<BR>"
'    Response.Write Err.HelpFile & " - 에러 파일<BR>"
'    Response.Write Err.HelpContext & " - 에러 Context<BR>"
'    response.write " i = " & i
'  End If
%>

</table>


        </div>
        </td>
       </tr>
            <tr>
              <td height="30" align="center" valign="bottom">
              </td>
            </tr>
      </table>
     </td>
      </tr>
  </table>
  </form>
 </body>

</html>

저작자 표시
크리에이티브 커먼즈 라이선스
Creative Commons License
Posted by 된장