<%@ LANGUAGE="VBSCRIPT" %> <% Set session("oRpt") = nothing Set Session("rs") = nothing c_id=request("c_id") c=request("c") p=request("p") i=request("i") d1="01" fld_month=request("m1") y1=request("y1") %> <% if d1<>"" and fld_month<>"" and y1<>"" then dmy1=d1&"-"&fld_month&"-"&y1 next_month=dateadd("m",1,dmy1) nextdate=day(next_month)&"/"&left(monthname(month(next_month)),3)&"/"&year(next_month) end if sql = "select distinct b.item_code,b.item_type,b.prod_no,b.qty,b.banner_provided from bom b,product_master p,dom_order d,customer_master c where d.p_id=p.p_id and p.prod_no=b.prod_no and d.o_date='"&dmy1&"' and p.c_id="&c_id&" and (c.c_number=p.intermediary or p.intermediary='0')" if i="R" then sql=sql &" and b.item_type='R'" end if if i="P" then sql=sql &" and b.item_type='P'" end if sql=sql &" and b.banner_provided='N'" sql=sql &" order by b.item_type,b.item_code" set rs1=conn.execute(sql) if not rs1.eof then set session("rs")=server.createobject("ADODB.RecordSet") session("rs").Fields.Append "item_name",200,50 session("rs").Fields.Append "item_code",200,50 session("rs").Fields.Append "item_type",200,50 session("rs").Fields.Append "um_des",200,18 session("rs").Fields.Append "product_name",200,50 session("rs").Fields.Append "prod_no",200,18 session("rs").Fields.Append "total_qty",5,50 session("rs").Fields.Append "mat_req",5,18 session("rs").CursorType = adOpenDynamic session("rs").open ntr=0 while not rs1.eof ntr=ntr+1 sql="select p.product_name,d.total_qty,p.batch_size,p.p_id,p.prod_no,p.o_l from product_master p,dom_order d,customer_master c where d.p_id=p.p_id and p.prod_no='"&rs1("prod_no")&"' and o_date='"&dmy1&"' and c.c_id=p.c_id and c.c_id="&c_id&" and (c.c_number=p.intermediary or p.intermediary='0')" 'response.write sql &"
" set rs_o=conn.execute(sql) if not rs_o.eof then 'response.write sql &"

" while not rs_o.eof session("rs").AddNew sql = "select distinct i.item_name,i.item_code, i.item_type, i.um_des " sql = sql & " from item_mast i where i.item_type='"&rs1("item_type")&"' and i.item_code='"&rs1("item_code")&"' " set rs_i=conn.execute(sql) if not rs_i.eof then session("rs").fields(0).value = rs_i("item_name") session("rs").fields(1).value = rs_i("item_code") if rs_i("item_type")="P" then session("rs").fields(2).value = "Packing Material" else session("rs").fields(2).value = "Raw Material" end if session("rs").fields(3).value = rs_i("um_des") end if session("rs").fields(4).value =rs_o("product_name") session("rs").fields(5).value = rs_o("prod_no") session("rs").fields(6).value = rs_o("total_qty") sql1 = "select Sum (qty) qty from trans t,product_master p,customer_master c Where doc_type in ('GRN','ISS','SAM','OP')" sql1 = sql1 & " and doc_date > = '1-jan-2002' and item_code='" & rs1("item_code") & "'" sql1=sql1 & " and item_type='" & rs1("item_type") & "'" sql1=sql1 & " and t.prod_no=p.prod_no" sql1 = sql1 & " and p.c_id=c.c_id and c.c_number=t.cust_no and p.p_id=" & rs_o("p_id") & "" set rs_q=conn.execute(sql1) If IsNull(rs_q("qty")) Then qtyava = 0 Else qtyava = cdbl(rs_q("qty")) End If reqqty = (cdbl(rs1("qty")) / cdbl(rs_o("batch_size"))) * cdbl(rs_o("total_qty")) totreqqty = (-reqqty) + qtyava session("rs").fields(7).value = totreqqty session("rs").update rs_o.movenext wend end if rs1.movenext wend else emsg= "No Record Found" response.redirect "raw_material_status_1.asp?emsg="&emsg&"" end if %> <% set session("oRs") = Server.CreateObject("ADODB.Recordset") set oRs1 = Server.CreateObject("ADODB.Recordset") set oRs2 = Server.CreateObject("ADODB.Recordset") oRs1.ActiveConnection = Conn oRs2.ActiveConnection = Conn oRs1.Open "select parameter from parameter where param_id=40" oRs2.Open "select parameter from parameter where param_id=41" reportname = request("rep") '"ADORecordset.rpt" 'Response.write "
" & reportname & "======reportname===============
" If Not IsObject (session("oApp")) Then Set session("oApp") = Server.CreateObject("CrystalRuntime.Application") End If Path = Request.ServerVariables("PATH_TRANSLATED") While (Right(Path, 1) <> "\" And Len(Path) <> 0) iLen = Len(Path) - 1 Path = Left(Path, iLen) Wend 'response.write iLen &"=========iLen===++++++++
" 'response.write path &"=========path===++++++++
" If IsObject(session("oRpt")) then Set session("oRpt") = nothing End if 'response.write path & reportname &"============++++++++
" Set session("oRpt") = session("oApp").OpenReport(path & reportname, 1) session("oRpt").MorePrintEngineErrorMessages = False session("oRpt").EnableParameterPrompting = False session("oRpt").DiscardSavedData set Database = session("oRpt").Database set Tables = Database.Tables set Table1 = Tables.Item(1) 'response.write Tabel & " XXXXXXXX " &"=========iLen===++++++++
" Table1.SetPrivateData 3, session("rs") If not oRs1.EOF Then session("oRpt").Sections.Item(1).ReportObjects.Item(1).SetText oRs1(0).Value else session("oRpt").Sections.Item(1).ReportObjects.Item(1).SetText "" end if if i="R" then session("oRpt").Sections.Item(1).ReportObjects.Item(2).SetText "Raw Material Required For Month" elseif i="P" then session("oRpt").Sections.Item(1).ReportObjects.Item(2).SetText "Packing Material Required For Month" else session("oRpt").Sections.Item(1).ReportObjects.Item(2).SetText "RM/PM Required For Month" end if If not oRs2.EOF then session("oRpt").Sections.Item(1).ReportObjects.Item(4).SetText oRs2(0).Value else session("oRpt").Sections.Item(1).ReportObjects.Item(4).SetText "" end if session("oRpt").Sections.Item(1).ReportObjects.Item(3).SetText "For The Month Of " &monthname(request("m1"))&" "&request("y1") On Error Resume Next session("oRpt").ReadRecords If Err.Number <> 0 Then Response.Write "An Error has occured on the server in attempting to access the data source" Else If IsObject(session("oPageEngine")) Then set session("oPageEngine") = nothing End If set session("oPageEngine") = session("oRpt").PageEngine End If viewer = Request.Form("Viewer") %> <% If cstr(viewer) = "ActiveX" then %> <% ElseIf cstr(viewer) = "Netscape Plug-in" then %> <% ElseIf cstr(viewer) = "Java using Browser JVM" then %> <% ElseIf cstr(viewer) = "Java using Java Plug-in" then %> <% ElseIf cstr(viewer) = "HTML Frame" then Response.Redirect("htmstart.asp") Else Response.Redirect("rptserver.asp") End If 'The above If/Then/Else structure is designed to test the value of the "viewer" varaible 'and based on that value, send down the appropriate Crystal Smart Viewer. %>