Subversion Repositories DevTools

Rev

Rev 7468 | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 7468 Rev 7568
Line 57... Line 57...
57 
 
 57 
 
58 
ElseIf (parOpr = "setInManifest") Then
 58 
ElseIf (parOpr = "setInManifest") Then
59 
    setInManifest
 59 
    setInManifest
60 
 
 60 
 
61 
ElseIf (parOpr = "clearAllInManifest") Then
 61 
ElseIf (parOpr = "clearAllInManifest") Then
62 
	clearAllInManifest
 62 
    clearAllInManifest
63 
 
 63 
 
64 
Else
 64 
Else
65 
    oJSON.data("error") = 1
 65 
    oJSON.data("error") = 1
66 
    oJSON.data("emsgSummary") = "Unknown JSON Operation"
 66 
    oJSON.data("emsgSummary") = "Unknown JSON Operation"
67 
    oJSON.data("emsgDetails") = "The Requested JSON operation is not supported: " & parOpr
 67 
    oJSON.data("emsgDetails") = "The Requested JSON operation is not supported: " & parOpr
Line 346... Line 346...
346 
'                   rtag_id
 346 
'                   rtag_id
347 
'                   pv_id
 347 
'                   pv_id
348 
'                   mfState
 348 
'                   mfState
349 
'
 349 
'
350 
Sub setInManifest
 350 
Sub setInManifest
- 
 
 351 
    Dim sComments
- 
 
 352 
    sComments = "Set: " & IIF (QStrPar("mfState") = "Y" , "Y", "N")
- 
 
 353 
 
351 
    OraDatabase.Parameters.Add "RTAG_ID",       QStrPar("rtag_id"), ORAPARM_INPUT, ORATYPE_NUMBER
 354 
    OraDatabase.Parameters.Add "RTAG_ID",       QStrPar("rtag_id"), ORAPARM_INPUT, ORATYPE_NUMBER
352 
    OraDatabase.Parameters.Add "PV_ID",         QStrPar("pv_id"), ORAPARM_INPUT, ORATYPE_NUMBER
 355 
    OraDatabase.Parameters.Add "PV_ID",         QStrPar("pv_id"), ORAPARM_INPUT, ORATYPE_NUMBER
353 
    OraDatabase.Parameters.Add "MFSTATE",       QStrPar("mfState"), ORAPARM_INPUT, ORATYPE_CHAR
 356 
    OraDatabase.Parameters.Add "MFSTATE",       QStrPar("mfState"), ORAPARM_INPUT, ORATYPE_CHAR
354 
 
 357 
 
355 
        '   Set/Reset IS_DEPLOYABLE flag
 358 
    '   Set/Reset IS_DEPLOYABLE flag
356 
        SqlQry = _
 359 
    SqlQry = _
357 
            "UPDATE RELEASE_CONTENT " &_
 360 
        "UPDATE RELEASE_CONTENT " &_
358 
            "  SET IN_MANIFEST = DECODE(:MFSTATE, 'Y', 'Y', NULL)" &_
 361 
        "  SET IN_MANIFEST = DECODE(:MFSTATE, 'Y', 'Y', NULL)" &_
359 
            "  WHERE PV_ID =  :PV_ID AND RTAG_ID = :RTAG_ID"
 362 
        "  WHERE PV_ID =  :PV_ID AND RTAG_ID = :RTAG_ID"
360 
        objEH.ErrorRedirect = FALSE
 363 
    objEH.ErrorRedirect = FALSE
- 
 
 364 
    objEH.TryORA ( OraSession )
- 
 
 365 
    On Error Resume Next
- 
 
 366 
    OraDatabase.ExecuteSQL SqlQry
- 
 
 367 
    objEH.CatchORA ( OraSession )
- 
 
 368 
 
- 
 
 369 
    If NOT objEH.LastOraFailed Then
361 
        objEH.TryORA ( OraSession )
 370 
        objEH.TryORA ( OraSession )
362 
        On Error Resume Next
 - 
 
363 
        OraDatabase.ExecuteSQL SqlQry
 371 
        OraDatabase.ExecuteSQL ("BEGIN PK_RELEASE.SET_RELEASE_MODIFIED(:RTAG_ID); END; ")
364 
        objEH.CatchORA ( OraSession )
 372 
        objEH.CatchORA ( OraSession )
365 
 
 373 
 
366 
        If NOT objEH.LastOraFailed Then
 - 
 
367 
            objEH.TryORA ( OraSession )
 - 
 
368 
            OraDatabase.ExecuteSQL ("BEGIN PK_RELEASE.SET_RELEASE_MODIFIED(:RTAG_ID); END; ")
 - 
 
369 
            objEH.CatchORA ( OraSession )
 374 
        call Log_Action ( QStrPar("pv_id"), "inManifest", sComments )
370 
        End If
 375 
    End If
371 
 
 376 
 
372 
        On Error GoTo 0
 377 
    On Error GoTo 0
373 
        result = 0
 378 
    result = 0
374 
 
 379 
 
375 
    OraDatabase.Parameters.Remove "RTAG_ID"
 380 
    OraDatabase.Parameters.Remove "RTAG_ID"
376 
    OraDatabase.Parameters.Remove "PV_ID"
 381 
    OraDatabase.Parameters.Remove "PV_ID"
377 
    OraDatabase.Parameters.Remove "MFSTATE"
 382 
    OraDatabase.Parameters.Remove "MFSTATE"
378 
 
 383 
 
Line 402... Line 407...
402 
 
 407 
 
403 
        If NOT objEH.LastOraFailed Then
 408 
        If NOT objEH.LastOraFailed Then
404 
            objEH.TryORA ( OraSession )
 409 
            objEH.TryORA ( OraSession )
405 
            OraDatabase.ExecuteSQL ("BEGIN PK_RELEASE.SET_RELEASE_MODIFIED(:RTAG_ID); END; ")
 410 
            OraDatabase.ExecuteSQL ("BEGIN PK_RELEASE.SET_RELEASE_MODIFIED(:RTAG_ID); END; ")
406 
            objEH.CatchORA ( OraSession )
 411 
            objEH.CatchORA ( OraSession )
- 
 
 412 
 
- 
 
 413 
            ' Action is not logged - yet
407 
        End If
 414 
        End If
408 
 
 415 
 
409 
        On Error GoTo 0
 416 
        On Error GoTo 0
410 
        result = 0
 417 
        result = 0
411 
 
 418