HOME>고객페이지>주문별 생산진행현황
<%If Session("User_Id")&"" = "" then%>
     
  
<%else%> <% 'Db sql Injection Check private function DBconStr(strString) dim tempString tempString = strString if isnull(tempString) then DBconvertString = "" exit function end if dim strBeforeConvert strBeforeConvert = Trim(replace(tempString,"'","''")) DBconStr = strBeforeConvert end Function 'Db sql Injection Check type int private function DBconInt(strString) dim tempString tempString = strString if isnull(tempString) Or tempString ="" then DBconvertString = "" exit function end if dim strBeforeConvert strBeforeConvert = Trim(replace(tempString,"'","''")) DBconInt = CInt(strBeforeConvert) end Function '** Paging 기법 구현 Dim pagesize '- 한 페이지에 출력할 레코드 수 Dim TotalPage '- 전체 페이지 수 Dim Page '- 현재 페이지 인덱스 Dim StartPage '- 현재 페이지 인덱스에서 시작 페이지 Dim ppi '- 리스트 아래 보여줄 페이지 인덱스 개수 Dim SearchCount '- 전체 검색건수 '**** Step1. Setup : 한 페이지에 출력할 레코드수( PageSize ), 리스트 아래 보여줄 페이지 인덱수의 개수( ppi ) Default 값 설정 pagesize = Request("pagesize") ppi = 10 If Len(pagesize) = 0 Then pagesize = 10 Else pagesize = Cint(pagesize) End If '**** Step2. Setup : 현재 페이지 인덱스에서 현재 페이지 인덱스와 시작페이지의 Default 값 설정 if Request("Page") = "" Then Page = 1 else Page = Request("Page") end if if Request("StartPage") = "" then StartPage = 1 else StartPage = Request("StartPage") end if Page = clng(Page) StartPage = clng(StartPage) '검색에 필요하 값 셋팅 User_Prod = Session("User_Prod")' 유저 업체 코드 prod_type = DBconStr(Request("prod_type"))' 제작 구분 car_comp = DBconStr(Request("car_comp"))' 자동차 회사 코드 car_type = DBconStr(Request("car_type"))' 자동차 종류 코드 fyear = DBconStr(Request("fyear")) fmonth = DBconStr(Request("fmonth")) fday = DBconStr(Request("fday")) If fmonth&"" <> "" then If fmonth < 10 Then fmonth = "0"&fmonth End If End If If fday&"" <> "" then If fday < 10 Then fday = "0"&fday End if End if FromDate = fyear&fmonth&fday tyear = DBconStr(Request("tyear")) tmonth = DBconStr(Request("tmonth")) tday = DBconStr(Request("tday")) If tmonth&"" <> "" then If tmonth < 10 Then tmonth = "0"&tmonth End If End If If tday&"" <> "" then If tday < 10 Then tday = "0"&tday End if End if ToDate = tyear&tmonth&tmonth&tday '### 검색한 파라미터 Where 절에 넣기 Dim SQL, whereSQL, orderSQL , SearchSQL SQL = " SELECT count(a.prjno) as Count "'-- 프로젝트No SQL = SQL & " FROM s_prjno a, "'--> 업체번호가 있는 테이브 SQL = SQL & " s_moldno b," SQL = SQL & " r_partcomp2 c," SQL = SQL & " r_part d," SQL = SQL & " s_out s" SQL = SQL & " WHERE a.comp = '"&car_comp&"'"' -- 자동차업체 SQL = SQL & " AND a.car = '"&car_type& "' "' -- 차종 SQL = SQL & " AND a.moldgb = '"&prod_type&"'"'-- 제작구분 SQL = SQL & " AND a.orddt BETWEEN '"&FromDate&"' AND '"&ToDate&"' "'-- 수주기간 SQL = SQL & " AND a.prod = '"&User_Prod&"'"' -- 업체번호 SQL = SQL & " AND a.prjno = b.prjno" SQL = SQL & " AND a.comp *= c.prod" SQL = SQL & " AND a.partno *= c.partno" SQL = SQL & " AND a.compno *= c.compno" SQL = SQL & " AND c.maincd = '003'" SQL = SQL & " AND a.comp *= d.prod" SQL = SQL & " AND a.partno *= d.partno" SQL = SQL & " AND a.prjno *= s.prjno" SQL = SQL & " AND b.moldno *= s.moldno" Set Rs = Server.CreateObject("ADODB.RecordSet") Set Rs = Dbcon.Execute(SQL) SearchCount = Rs(0) TotalPage = int((SearchCount-1)/pagesize) +1 '카운팅작업' Rs.close() Set rs = Nothing %>
<% Set Rs_Prod = Server.CreateObject("ADODB.RecordSet") SQL = "Select code, name " SQL = SQL & " From c_code" SQL = SQL & " Where class= '29'" SQL = SQL & " Order By srt " 'response.write sql 'response.end Rs_Prod.Open SQL, dbcon, 1 %> <% Set Rs_comp = Server.CreateObject("ADODB.RecordSet") SQL = " SELECT DISTINCT b.prod, b.nm" SQL = SQL & " FROM c_car a , c_prod b , s_prjno c" SQL = SQL & " Where a.comp = b.prod" SQL = SQL & " AND c.comp = a.comp AND c.prod = '"&User_Prod&"'" SQL = SQL & " ORDER BY b.nm" 'response.write sql 'response.end Rs_comp.Open SQL, dbcon, 1 %> <% Set Rs_car = Server.CreateObject("ADODB.RecordSet") SQL = " Select distinct a.car, a.nm " SQL = SQL & " from c_car a , s_prjno b" SQL = SQL & " where b.car = a.car AND a.comp = '"&car_comp&"'" SQL = SQL & " AND b.prod = '"&User_Prod&"'" 'response.write sql 'response.end Rs_car.Open SQL, dbcon, 1 %>
   
   
 
<% '공정 리스트 출력 부분 Set Rs = Server.CreateObject("ADODB.RecordSet") SQL = " SELECT TOP " & pagesize & " a.prjno, "'-- 프로젝트No SQL = SQL & " b.moldno, "'-- 금형번호 SQL = SQL & " a.delidt, "'-- 납기일자 SQL = SQL & " dbo.uf_codenm('29', a.moldgb) as moldpart, "'-- 제작구분 SQL = SQL & " dbo.uf_carnm(a.car) as cartype, "'-- 차종 SQL = SQL & " d.partnm, "'-- 품명 SQL = SQL & " dbo.uf_moldset2nm(c.maincd, c.subcd) as moldproc, "'-- 공정 SQL = SQL & " s.outdt "'-- 출고일자 SQL = SQL & " FROM s_prjno a, "'--> 업체번호가 있는 테이브 SQL = SQL & " s_moldno b," SQL = SQL & " r_partcomp2 c," SQL = SQL & " r_part d," SQL = SQL & " s_out s" SQL = SQL & " WHERE a.comp = '"&car_comp&"'"' -- 자동차업체 SQL = SQL & " AND a.car = '"&car_type& "' "' -- 차종 SQL = SQL & " AND a.moldgb = '"&prod_type&"'"'-- 제작구분 SQL = SQL & " AND a.orddt BETWEEN '"&FromDate&"' AND '"&ToDate&"' "'-- 수주기간 SQL = SQL & " AND a.prod = '"&User_Prod&"'"' -- 업체번호 SQL = SQL & " AND a.prjno = b.prjno" SQL = SQL & " AND a.comp *= c.prod" SQL = SQL & " AND a.partno *= c.partno" SQL = SQL & " AND a.compno *= c.compno" SQL = SQL & " AND c.maincd = '003'" SQL = SQL & " AND a.comp *= d.prod" SQL = SQL & " AND a.partno *= d.partno" SQL = SQL & " AND a.prjno *= s.prjno" SQL = SQL & " AND b.moldno *= s.moldno" SQL = SQL & " AND a.prjno not in " SQL = SQL & " (SELECT TOP " & ((Page - 1) * pagesize) & "a.prjno "'-- 프로젝트No SQL = SQL & " FROM s_prjno a, "'--> 업체번호가 있는 테이브 SQL = SQL & " s_moldno b," SQL = SQL & " r_partcomp2 c," SQL = SQL & " r_part d," SQL = SQL & " s_out s" SQL = SQL & " WHERE a.comp = '"&car_comp&"'"' -- 자동차업체 SQL = SQL & " AND a.car = '"&car_type& "' "' -- 차종 SQL = SQL & " AND a.moldgb = '"&prod_type&"'"'-- 제작구분 SQL = SQL & " AND a.orddt BETWEEN '"&FromDate&"' AND '"&ToDate&"' "'-- 수주기간 SQL = SQL & " AND a.prod = '"&User_Prod&"'"' -- 업체번호 SQL = SQL & " AND a.prjno = b.prjno" SQL = SQL & " AND a.comp *= c.prod" SQL = SQL & " AND a.partno *= c.partno" SQL = SQL & " AND a.compno *= c.compno" SQL = SQL & " AND c.maincd = '003'" SQL = SQL & " AND a.comp *= d.prod" SQL = SQL & " AND a.partno *= d.partno" SQL = SQL & " AND a.prjno *= s.prjno" SQL = SQL & " AND b.moldno *= s.moldno )" 'response.write sql 'response.end Rs.Open SQL, dbcon, 1 If Rs.Eof Or Rs.Bof then %>
조건에 해당하는 정보가 없습니다.
<%Else Do Until Rs.Eof Or Rs.bof moldpart = Rs("moldpart") cartype = Rs("cartype") partnm = Rs("partnm") moldproc = Rs("moldproc") outdt = Rs("outdt") delidt = Rs("delidt") If moldpart&"" = "" Then moldpart = "-" End If If cartype&"" = "" Then cartype = "-" End If If partnm&"" = "" Then partnm = "-" End If If moldproc&"" = "" Then moldproc = "-" End If If outdt&"" = "" Then outdt = "-" End If If delidt&"" = "" Then delidt = "-" End if %>
');" OnMouseOver="this.style.color='#FF6600';" OnMouseOut="this.style.color='#6a6a6a';" Style="Cursor:Hand"><%=Rs("moldno")%> <%=moldpart%> <%=cartype%> ');" OnMouseOver="this.style.color='#FF6600';" OnMouseOut="this.style.color='#6a6a6a';" Style="Cursor:Hand"><%=partnm%> <%=moldproc%> <%=delidt%> <%=outdt%>
" style="margin:15px 0px 15px 0px;display:none;" width="625" align="center">
');">
<% '공정 진행현황 출력 부분 Set Rs_sub = Server.CreateObject("ADODB.RecordSet") sub_SQL = " SELECT b.seq, "'-- 순번 sub_SQL = sub_SQL & " d.engnm, "'-- 진행업무 sub_SQL = sub_SQL & " b.editto, "'-- 계획일자 sub_SQL = sub_SQL & " b.realto, "'-- 완료일자 sub_SQL = sub_SQL & " c.content "' -- 진행정보 sub_SQL = sub_SQL & " FROM s_schedule a," sub_SQL = sub_SQL & " s_schedule2 b," sub_SQL = sub_SQL & " s_moldno c," sub_SQL = sub_SQL & " s_task d" sub_SQL = sub_SQL & " WHERE a.moldno = '"&Rs("moldno")&"' "'-- 금형번호 sub_SQL = sub_SQL & " AND a.verno = (SELECT MAX(verno)" sub_SQL = sub_SQL & " FROM s_schedule" sub_SQL = sub_SQL & " WHERE schno = a.schno" sub_SQL = sub_SQL & " AND moldno = a.moldno)" sub_SQL = sub_SQL & " AND b.schno = a.schno" sub_SQL = sub_SQL & " AND c.moldno = a.moldno" sub_SQL = sub_SQL & " AND b.task *= d.task" 'response.write sub_sql Rs_sub.Open sub_SQL, dbcon, 1 If Rs_sub.eof Or Rs_sub.bof Then %> <%Else Do Until Rs_sub.Eof Or Rs_sub.bof %> <% TotalMemo = TotalMemo & Rs_sub("content")&"
" Rs_sub.MoveNext Loop End If If TotalMemo&"" = "" Then TotalMemo = "간략한 메모가 없습니다." End if %>
진행현황이 없습니다.
<%=Rs_sub("seq")%> <%=Rs_sub("editto")%> <%=Rs_sub("engnm")%> <%=Rs_sub("realto")%>
<%=TotalMemo%>
<% Rs.MoveNext Loop End if%>
<% 'response.write TotalPage IF StartPage > ppi Then Response.Write " " Else Response.Write " " End If IF Page > 1 Then Response.Write "  " Else Response.Write "  " End IF For j=1 To ppi IF StartPage+j-1 > TotalPage Then Exit For End IF IF j <> 1 Then Response.Write " / " End IF IF StartPage+j-1 = Page Then Response.Write "" & StartPage+j-1 & "" Else Response.Write "" & StartPage+j-1 & " / " End IF Next If TotalPage = 0 Then response.write "1" End if IF Page < TotalPage Then Response.Write "    " Else Response.Write "  " End If IF StartPage + ppi - 1 < TotalPage Then Response.Write " " Else Response.Write " " End IF %>
<%End if%>