Subversion Repositories DevTools

Rev

Rev 5506 | Rev 5636 | Go to most recent revision | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 5506 Rev 5590
Line 1... Line 1...
1 
<%@LANGUAGE="VBSCRIPT"%>
 1 
<%@LANGUAGE="VBSCRIPT"%>
2 
<%
 2 
<%
3 
'=====================================================
 3 
'=====================================================
4 
'|                                                   |
 4 
'|                                                   |
5 
'|			          wAddSchedule
 5 
'|                    wAddSchedule
6 
'|                                                   |
 6 
'|                                                   |
7 
'=====================================================
 7 
'=====================================================
8 
%>
 8 
%>
9 
<%
 9 
<%
10 
Option explicit
 10 
Option explicit
Line 36... Line 36...
36 
'----------------------------------------------
 36 
'----------------------------------------------
37 
%>
 37 
%>
38 
<%
 38 
<%
39 
'--------------------------------------------------------------------------------------------------------------------------
 39 
'--------------------------------------------------------------------------------------------------------------------------
40 
Function GetMachType ( ngbe_id )
 40 
Function GetMachType ( ngbe_id )
41 
	Dim rsQry, query
 41 
    Dim rsQry, query
42
42
43 
	OraDatabase.Parameters.Add "gbe_id",   ngbe_id,	ORAPARM_INPUT, ORATYPE_NUMBER
43 
    OraDatabase.Parameters.Add "gbe_id",   ngbe_id, ORAPARM_INPUT, ORATYPE_NUMBER
44
44
45 
	query = GetQuery ("GBE_MACHTYPECombo.sql")
 45 
    query = GetQuery ("GBE_MACHTYPECombo.sql")
46
46
47 
	Set rsQry = OraDatabase.DbCreateDynaset( query, ORADYN_DEFAULT )
 47 
    Set rsQry = OraDatabase.DbCreateDynaset( query, ORADYN_DEFAULT )
48 
	If (NOT rsQry.BOF) AND (NOT rsQry.EOF) Then
 48 
    If (NOT rsQry.BOF) AND (NOT rsQry.EOF) Then
49 
		GetMachType = rsQry.GetRows()
 49 
        GetMachType = rsQry.GetRows()
50 
	Else
 50 
    Else
51 
		GetMachType = NULL
 51 
        GetMachType = NULL
52
52
53 
	End If
 53 
    End If
54
54
55 
	rsQry.Close()
 55 
    rsQry.Close()
56 
	Set rsQry = Nothing
 56 
    Set rsQry = Nothing
57
57
58 
	OraDatabase.Parameters.Remove "gbe_id"
 58 
    OraDatabase.Parameters.Remove "gbe_id"
59 
End Function
 59 
End Function
60 
'--------------------------------------------------------------------------------------------------------------------------
 60 
'--------------------------------------------------------------------------------------------------------------------------
61 
Sub RenderRepeatCombo( cRepeat )
 61 
Sub RenderRepeatCombo( cRepeat )
62 
	Response.Write "<select name='repeat_combo' class='form_item'>"
62 
    Response.Write "<select name='repeat_combo' class='form_item'>"
63 
    Response.write "<option value='0'>Once Only</option>"
 63 
    Response.write "<option value='0'>Once Only</option>"
64 
    Response.write "<option value='1'>Daily</option>"
 64 
    Response.write "<option value='1'>Daily</option>"
65 
    Response.write "<option value='7'>Weekly</option>"
 65 
    Response.write "<option value='7'>Weekly</option>"
66 
	Response.Write "</select>"
66 
    Response.Write "</select>"
67 
End Sub
 67 
End Sub
68 
'--------------------------------------------------------------------------------------------------------------------------
 68 
'--------------------------------------------------------------------------------------------------------------------------
69 
%>
 69 
%>
70 
<%
 70 
<%
71 
'------------ RUN BEFORE PAGE RENDER ----------
 71 
'------------ RUN BEFORE PAGE RENDER ----------
72 
If CBool(Request("action")) Then
 72 
If CBool(Request("action")) Then
73 
 
 73 
 
74 
	If Len(Request("repeat_combo")) > 1 Then
 74 
    If Len(Request("repeat_combo")) > 1 Then
75
75
76 
		Call DisplayInfo ( "REPEAT_SCHEDULE_NOT_SELECTED", "100%" )
 76 
        Call DisplayInfo ( "REPEAT_SCHEDULE_NOT_SELECTED", "100%" )
77
77
78 
	Else
 78 
    Else
79 
		On Error Resume Next
 79 
        On Error Resume Next
80 
		OraDatabase.Parameters.Add "SCHEDULED_PAUSE",	Request("scheduled_pause"), 	ORAPARM_INPUT, ORATYPE_VARCHAR2
 80 
        OraDatabase.Parameters.Add "SCHEDULED_PAUSE",   Request("scheduled_pause"),     ORAPARM_INPUT, ORATYPE_VARCHAR2
81 
		OraDatabase.Parameters.Add "SCHEDULED_RESUME", 	Request("scheduled_resume"), 	ORAPARM_INPUT, ORATYPE_VARCHAR2
 81 
        OraDatabase.Parameters.Add "SCHEDULED_RESUME",  Request("scheduled_resume"),    ORAPARM_INPUT, ORATYPE_VARCHAR2
82 
		OraDatabase.Parameters.Add "REPEAT", 			Request("repeat_combo"), 	    ORAPARM_INPUT, ORATYPE_CHAR
 82 
        OraDatabase.Parameters.Add "REPEAT",            Request("repeat_combo"),        ORAPARM_INPUT, ORATYPE_CHAR
83 
		OraDatabase.Parameters.Add "INDEFINITE_PAUSE",	Request("indefinite_pause"), 	ORAPARM_INPUT, ORATYPE_CHAR
 83 
        OraDatabase.Parameters.Add "INDEFINITE_PAUSE",  Request("indefinite_pause"),    ORAPARM_INPUT, ORATYPE_CHAR
84
84
85 
		objEH.TryORA ( OraSession )
 85 
        objEH.TryORA ( OraSession )
86
86
87 
		OraDatabase.ExecuteSQL _
 87 
        OraDatabase.ExecuteSQL _
88 
           "BEGIN PK_BUILDAPI.Insert_Schedule_Info ( " &_
 88 
           "BEGIN PK_BUILDAPI.Insert_Schedule_Info ( " &_
89 
                "TO_DATE(:SCHEDULED_PAUSE,'DD-MM-YYYY HH24:MI:SS'), " &_
 89 
                "TO_DATE(:SCHEDULED_PAUSE,'DD-MM-YYYY HH24:MI:SS'), " &_
90 
                "TO_DATE(:SCHEDULED_RESUME,'DD-MM-YYYY HH24:MI:SS'), " &_
 90 
                "TO_DATE(:SCHEDULED_RESUME,'DD-MM-YYYY HH24:MI:SS'), " &_
91 
                ":REPEAT, " &_
 91 
                ":REPEAT, " &_
92 
                ":INDEFINITE_PAUSE );" &_
 92 
                ":INDEFINITE_PAUSE );" &_
93 
            "END;"
 93 
            "END;"
94
94
95 
		objEH.CatchORA ( OraSession )
 95 
        objEH.CatchORA ( OraSession )
96 
 
 96 
 
97 
		OraDatabase.Parameters.Remove "SCHEDULED_PAUSE"
 97 
        OraDatabase.Parameters.Remove "SCHEDULED_PAUSE"
98 
		OraDatabase.Parameters.Remove "SCHEDULED_RESUME"
 98 
        OraDatabase.Parameters.Remove "SCHEDULED_RESUME"
99 
		OraDatabase.Parameters.Remove "REPEAT"
 99 
        OraDatabase.Parameters.Remove "REPEAT"
100 
		OraDatabase.Parameters.Remove "INDEFINITE_PAUSE"
 100 
        OraDatabase.Parameters.Remove "INDEFINITE_PAUSE"
101 
 
 101 
 
102 
		If objEH.Finally Then
 102 
        If objEH.Finally Then
103 
			Call OpenInParentWindow ("admin_build_service.asp")
 103 
            Call OpenInParentWindow ("admin_build_service.asp")
104 
			Call CloseWindow()
 104 
            Call CloseWindow()
105 
		End If
 105 
        End If
106 
 
 106 
 
107 
		rsQry.Close()
 107 
        rsQry.Close()
108 
		Set rsQry = nothing
 108 
        Set rsQry = nothing
109 
	End If
 109 
    End If
110
110
111 
End If
 111 
End If
112 
 
 112 
 
113 
 
 113 
 
114 
'----------------------------------------------
 114 
'----------------------------------------------
115 
%>
 115 
%>
116 
<html>
 116 
<html>
117 
	<head>
 117 
    <head>
118 
		<title>Release Manager</title>
 118 
        <title>Release Manager</title>
119 
        <link rel="shortcut icon" href="<%=FavIcon%>"/>
 119 
        <link rel="shortcut icon" href="<%=FavIcon%>"/>
120 
		<meta http-equiv="Pragma" content="no-cache">
 120 
        <meta http-equiv="Pragma" content="no-cache">
121 
		<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
 121 
        <meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
122 
		<link href="images/release_manager_style.css" rel="stylesheet" type="text/css">
 122 
        <link href="images/release_manager_style.css" rel="stylesheet" type="text/css">
123 
			<script language="JavaScript" src="scripts/common.js"></script>
 123 
        <script language="JavaScript" src="scripts/common.js"></script>
124 
			<script language="JavaScript" src="images/ts_picker.js"></script>
 124 
        <script language="JavaScript" src="images/ts_picker.js"></script>
125 
	</head>
 125 
    </head>
126 
	<body background="images/bg_bage_0.gif" leftmargin="0" topmargin="0" onload="self.focus();">
 126 
    <body background="images/bg_bage_0.gif" leftmargin="0" topmargin="0" onload="self.focus();">
127 
		<table width="100%" border="0" cellspacing="0" cellpadding="10">
 127 
        <table width="100%" border="0" cellspacing="0" cellpadding="10">
128 
			<tr>
 - 
 
129 
				<td bgcolor="#FFFFFF" class="body_txt"><span class="body_h1"><img src="icons/i_linkarrow_black.gif" width="11" height="11" align="absmiddle">&nbsp;Add SCHEDULE</span>
 - 
 
130 
					<br>
 - 
 
131 
					Add a new SCHEDULE.
 128 
            <%
132 
				</td>
 - 
 
133 
			</tr>
 - 
 
134 
			<%
 - 
 
135 
'-- FROM START --------------------------------------------------------------------------------------------------------------
 129 
            '-- FROM START --------------------------------------------------------------------------------------------------------------
136 
objFormComponent.FormName = "run_level_schedule"
 130 
            objFormComponent.FormName = "run_level_schedule"
- 
 
 131 
            objFormComponent.FormClass = "form_tight"
137 
objFormComponent.Action = ScriptName
 132 
            objFormComponent.Action = ScriptName
138 
objFormComponent.OnSubmit = "ShowProgress();"
 133 
            objFormComponent.OnSubmit = "ShowProgress();"
139 
Call objFormComponent.FormStart()
 134 
            Call objFormComponent.FormStart()
140 
 
 - 
 
141 
%>
 - 
 
142 
			<tr>
 - 
 
143 
				<td background="images/bg_login.gif"><table width="100%" border="0" cellspacing="0" cellpadding="0">
 - 
 
144 
						<tr>
 - 
 
145 
							<td><%=ProgressBar()%></td>
 - 
 
146 
							<td align="right"><input name="btn" type="submit" class="form_btn" value="Add"> <input name="btn" type="reset" class="form_btn" value="Cancel" onclick="self.close();"></td>
 - 
 
147 
						</tr>
 - 
 
148 
					</table>
 135 
            %>
149 
				</td>
 - 
 
150 
			</tr>
 - 
 
151 
			<tr>
 136 
            <tr>
152 
				<td>
 137 
                <td>
153 
					<!-- NEW SCHEDULE ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++  -->
 138 
                    <!-- NEW SCHEDULE ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++  -->
154 
					<%Call Messenger ( sMessage , 3, "100%" )%>
 139 
                    <%Call Messenger ( sMessage , 3, "100%" )%>
155 
					<!-- MESSAGE +++++++++++++++++++++++++++++++++++++++++++++++++++ -->
 140 
                    <!-- MESSAGE +++++++++++++++++++++++++++++++++++++++++++++++++++ -->
156 
					<!--#include file="messages/_msg_inline.asp"-->
 141 
                    <!--#include file="messages/_msg_inline.asp"-->
157 
					<br>
 142 
                    <br>
158 
					<table width="50%" border="0">
 143 
                    <table width="50%" border="0">
159 
						<tr>
 144 
                        <tr>
160 
							<td nowrap class="form_iname">SCHEDULED PAUSE</td>
 145 
                            <td nowrap class="form_iname">SCHEDULED PAUSE</td>
161 
							<td class="form_item"><%=objFormComponent.TextBox ("scheduled_pause", "", "size='20' class='form_ivalue'" )%></td>
 146 
                            <td class="form_item"><%=objFormComponent.TextBox ("scheduled_pause", "", "size='20' class='form_ivalue'" )%></td>
162 
							<td class="form_item" width="1">
 147 
                            <td class="form_item" width="1">
163 
								<a href="javascript:show_calendar('document.run_level_schedule.scheduled_pause', document.run_level_schedule.scheduled_pause.value);">
 148 
                                <a href="javascript:show_calendar('document.run_level_schedule.scheduled_pause', document.run_level_schedule.scheduled_pause.value);">
164 
									<img src="images/cal.gif" width="16" height="16" border="0" alt="Click here to select the time to pause">
 149 
                                    <img src="images/cal.gif" width="16" height="16" border="0" alt="Click here to select the time to pause">
165 
								</a>
 150 
                                </a>
166 
							</td>
 151 
                            </td>
167 
						</tr>
 152 
                        </tr>
168 
						<tr>
 153 
                        <tr>
169 
							<td nowrap class="form_iname">SCHEDULED RESUME</td>
 154 
                            <td nowrap class="form_iname">SCHEDULED RESUME</td>
170 
							<td class="form_item"><%=objFormComponent.TextBox ("scheduled_resume", "", "size='20' class='form_ivalue'" )%></td>
 155 
                            <td class="form_item"><%=objFormComponent.TextBox ("scheduled_resume", "", "size='20' class='form_ivalue'" )%></td>
171 
							<td class="form_item">
 156 
                            <td class="form_item">
172 
								<a href="javascript:show_calendar('document.run_level_schedule.scheduled_resume', document.run_level_schedule.scheduled_resume.value);">
 157 
                                <a href="javascript:show_calendar('document.run_level_schedule.scheduled_resume', document.run_level_schedule.scheduled_resume.value);">
173 
									<img src="images/cal.gif" width="16" height="16" border="0" alt="Click Here to select the time to resume">
 158 
                                    <img src="images/cal.gif" width="16" height="16" border="0" alt="Click Here to select the time to resume">
174 
								</a>
 159 
                                </a>
175 
							</td>
 160 
                            </td>
176 
						</tr>
 161 
                        </tr>
177 
						<tr>
 162 
                        <tr>
178 
							<td nowrap class="form_iname">REPEAT SCHEDULED DOWNTIME</td>
 163 
                            <td nowrap class="form_iname">REPEAT SCHEDULED DOWNTIME</td>
179 
							<td colspan="2"><% Call RenderRepeatCombo("")%></td>
 164 
                            <td colspan="2"><% Call RenderRepeatCombo("")%></td>
180 
						</tr>
 - 
 
181 
						<tr>
 - 
 
182 
							<td>&nbsp;</td>
 165 
                        </tr>
183 
							<td>&nbsp;</td>
 166 
                    </table>
184 
							<td>&nbsp;</td>
 167 
                </td>
185 
						</tr>
 168 
            </tr>
186 
					</table>
 - 
 
187 
				</td>
 - 
 
188 
			</tr>
 - 
 
189 
			<%=objPMod.ComposeHiddenTags()%>
 169 
            <%=objPMod.ComposeHiddenTags()%>
190 
			<input type="hidden" name="action" value="true">
 170 
            <input type="hidden" name="action" value="true">
191 
			<%
 171 
            <%
192 
Call objFormComponent.FormEnd()
 172 
            Call objFormComponent.FormEnd()
193 
'-- FROM END ----------------------------------------------------------------------------------------------------------------
 173 
            '-- FROM END ----------------------------------------------------------------------------------------------------------------
194 
%>
 174 
            %>
- 
 
 175 
            <tr>
- 
 
 176 
                <td background="images/bg_login.gif">
- 
 
 177 
                    <table width="100%" border="0" cellspacing="0" cellpadding="0">
- 
 
 178 
                        <tr>
- 
 
 179 
                            <td><%=ProgressBar()%></td>
- 
 
 180 
                            <td align="right">
- 
 
 181 
                                <input name="btn" type="submit" class="form_btn" value="Add">
- 
 
 182 
                                <input name="btn" type="reset" class="form_btn" value="Cancel" onclick="parent.closeIFrame();"></td>
- 
 
 183 
                        </tr>
- 
 
 184 
                    </table>
- 
 
 185 
                </td>
- 
 
 186 
            </tr>
195 
		</table>
 187 
        </table>
196 
	</body>
 188 
    </body>
197 
</html>
 189 
</html>
198 
<%
 190 
<%
199 
'------------ RUN AFTER PAGE RENDER -----------
 191 
'------------ RUN AFTER PAGE RENDER -----------
200 
Set objFormCollector = Nothing
 192 
Set objFormCollector = Nothing
201 
'----------------------------------------------
 193 
'----------------------------------------------