<%@ LANGUAGE="VBSCRIPT" %> <% Set session("oRpt") = nothing Set Session("rs") = nothing c_id=request("c") d1="01" fld_month=request("m1") y1=request("y1") %> <% if d1<>"" and fld_month<>"" and y1<>"" then dmy1=d1&"-"&fld_month&"-"&y1 end if sql="select c.c_id,c.c_name,c.c_number,p.product_name,p.prod_no,o.total_log,o.log_add,o.total_qty,o.o_id from customer_master c,product_master p,dom_order o " sql=sql & " where c.c_id=p.c_id and p.p_id=o.p_id and o.o_date='"&dmy1&"'" Response.write sql& " ------------
----" set rs1=conn.execute(sql) if not rs1.eof then set session("rs")=server.createobject("ADODB.RecordSet") session("rs").Fields.Append "c_name",200,50 session("rs").Fields.Append "c_number",200,50 session("rs").Fields.Append "product_name",200,50 session("rs").Fields.Append "prod_no",200,50 session("rs").Fields.Append "o_id",5,18 session("rs").Fields.Append "total_qty",5,18 session("rs").Fields.Append "total_log",5,18 session("rs").Fields.Append "log_add",5,18 session("rs").Fields.Append "pack_type",200,8 session("rs").Fields.Append "um_des",200,18 session("rs").Fields.Append "act_qty",5,18 session("rs").Fields.Append "a_unit",5,18 session("rs").Fields.Append "a_unit1",5,18 session("rs").CursorType = adOpenDynamic session("rs").open ntr=0 while not rs1.eof ntr=ntr+1 set rs_o=conn.execute("select * from dom_order_details where o_id="&rs1("o_id")&"") if not rs_o.eof then while not rs_o.eof session("rs").AddNew session("rs").fields(0).value = rs1("c_name") session("rs").fields(1).value = rs1("c_number") session("rs").fields(2).value = rs1("PRODUCT_NAME") session("rs").fields(3).value = rs1("prod_no") session("rs").fields(4).value = rs1("o_id") session("rs").fields(5).value =rs1("total_qty") if not isnull(rs1("total_log")) then session("rs").fields(6).value = rs1("total_log") else session("rs").fields(6).value = 0 end if session("rs").fields(7).value = rs1("log_add") if rs_o("pck_cd")="A/P" then pack_type="A/P" um_des=rs_o("a_unit")&"X"&rs_o("a_unit1") else set rs_p=conn.execute("select * from pack where pck_cd='"&rs_o("pck_cd")&"'") if not rs_p.eof then pack_type=rs_p("pack_type") um_des=rs_p("um_des") end if end if session("rs").fields(8).value = pack_type session("rs").fields(9).value = um_des session("rs").fields(10).value = rs_o("act_qty") session("rs").fields(11).value = rs_o("a_unit") session("rs").fields(12).value = rs_o("a_unit1") session("rs").update rs_o.movenext wend end if rs1.movenext wend else emsg= "No Record Found" response.redirect "order_details_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 & oRs2(0).Value else session("oRpt").Sections.Item(1).ReportObjects.Item(1).SetText "asdf" end if 'If not oRs2.EOF then 'session("oRpt").Sections.Item(1).ReportObjects.Item(2).SetText "Order Report" 'else 'session("oRpt").Sections.Item(1).ReportObjects.Item(2).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. %>