<%@LANGUAGE="VBSCRIPT"%> <% '===================================================== '| | '| wPasteItems | '| | '===================================================== %> <% Option explicit Response.Expires = 0 %> <% '------------ ACCESS CONTROL ------------------ %> <% '------------ VARIABLE DEFINITION ------------- Dim rsQry Dim aProducts Dim numOfRows Dim rowNum '------------ CONSTANTS DECLARATION ----------- '------------ VARIABLE INIT ------------------- parBom_id = Request("bom_id") '------------ CONDITIONS ---------------------- '---------------------------------------------- %> <% '-------------------------------------------------------------------------------------------------------------------------------- Sub PasteItems () If Request("item_id_list") = "" Then Exit Sub On Error Resume Next OraDatabase.Parameters.Add "ITEM_ID_LIST", Request("item_id_list"), ORAPARM_INPUT, ORATYPE_VARCHAR2 OraDatabase.Parameters.Add "FROM_ID", Session( enumSESSION_COPY_FROM ), ORAPARM_INPUT, ORATYPE_NUMBER objEH.TryORA ( OraSession ) Select Case Session( enumSESSION_COPY_TYPE ) Case "prod_id_list" If (Request("base_env_id") <> "") Then OraDatabase.Parameters.Add "TO_ID", Request("base_env_id"), ORAPARM_INPUT, ORATYPE_NUMBER OraDatabase.ExecuteSQL _ "BEGIN pk_Utils.Paste_Products_To_Base_Env ( :ITEM_ID_LIST, :FROM_ID, :TO_ID ); END;" ElseIf (Request("os_id") <> "") Then OraDatabase.Parameters.Add "TO_ID", Request("os_id"), ORAPARM_INPUT, ORATYPE_NUMBER OraDatabase.ExecuteSQL _ "BEGIN pk_Utils.Paste_Products ( :ITEM_ID_LIST, :FROM_ID, :TO_ID ); END;" End If Case "os_id_list" OraDatabase.Parameters.Add "TO_ID", Request("node_id"), ORAPARM_INPUT, ORATYPE_NUMBER OraDatabase.ExecuteSQL _ "BEGIN pk_Utils.Paste_Os ( :ITEM_ID_LIST, :FROM_ID, :TO_ID ); END;" Case "node_id_list" OraDatabase.Parameters.Add "TO_ID", Request("bom_id"), ORAPARM_INPUT, ORATYPE_NUMBER OraDatabase.ExecuteSQL _ "BEGIN pk_Utils.Paste_Node ( :ITEM_ID_LIST, :FROM_ID, :TO_ID ); END;" End Select objEH.CatchORA ( OraSession ) OraDatabase.Parameters.Remove "ITEM_ID_LIST" OraDatabase.Parameters.Remove "FROM_ID" OraDatabase.Parameters.Remove "TO_ID" End Sub '-------------------------------------------------------------------------------------------------------------------------- %> <% '------------ RUN BEFORE PAGE RENDER ---------- If Request("action") <> "" Then ' --- Form is Valid --- Call PasteItems() If objEH.Finally Then Call OpenInParentWindow ( Request("rfile") &"?PASTE=OK"& objPMod.ComposeURLWithout("rfile") ) Call CloseWindow() End If End If '---------------------------------------------- %> <%=objPMod.ComposeHiddenTags()%> "> ">

Clipboard Select items from the list and click Paste.

<% '-- Exit if mixing apples with pairs If Session( enumSESSION_COPY_TYPE ) = Request("copy_type") Then %> <% OraDatabase.Parameters.Add "ITEM_ID_LIST", Session( enumSESSION_COPY_ITEMS ), ORAPARM_INPUT, ORATYPE_VARCHAR2 OraDatabase.Parameters.Add "FROM_ID", Session( enumSESSION_COPY_FROM ), ORAPARM_INPUT, ORATYPE_NUMBER Select Case Session( enumSESSION_COPY_TYPE ) Case "prod_id_list" Set rsQry = OraDatabase.DbCreateDynaset( GetQuery ("PasteProductList.sql"), ORADYN_DEFAULT ) Case "os_id_list" Set rsQry = OraDatabase.DbCreateDynaset( GetQuery ("PasteOsList.sql"), ORADYN_DEFAULT ) Case "node_id_list" Set rsQry = OraDatabase.DbCreateDynaset( GetQuery ("PasteNodeList.sql"), ORADYN_DEFAULT ) End Select While (NOT rsQry.BOF) AND (NOT rsQry.EOF) %> <%rsQry.MoveNext Wend OraDatabase.Parameters.Remove "ITEM_ID_LIST" OraDatabase.Parameters.Remove "FROM_ID" rsQry.Close Set rsQry = Nothing %> <% End If %> Paste Item " checked> " align="absmiddle" border="0"><%=rsQry("item_name")%>