Subversion Repositories DevTools

Rev

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

Rev 6774 Rev 6775
Line 61... Line 61...
61 
        "    aa" &_
 61 
        "    aa" &_
62 
        " WHERE" &_
 62 
        " WHERE" &_
63 
        "    bs.BLAT_ID = br.BLAT_ID (+)" &_
 63 
        "    bs.BLAT_ID = br.BLAT_ID (+)" &_
64 
        "    AND br.rtag_id(+) = :RTAG_ID" &_
 64 
        "    AND br.rtag_id(+) = :RTAG_ID" &_
65 
        "    AND bs.BLAT_ID = aa.BLAT_ID (+)" &_
 65 
        "    AND bs.BLAT_ID = aa.BLAT_ID (+)" &_
66 
        "    AND (aa.BLAT_ID is NOT NULL OR br.BLAT_ID is NOT NULL OR bs.BLAT_FULL IN( 'P', 'E'))" &_
 66 
        "    AND (aa.BLAT_ID is NOT NULL OR br.BLAT_ID is NOT NULL OR bs.BLAT_MODE IN( 'P', 'E'))" &_
67 
        " ORDER BY" &_
 67 
        " ORDER BY" &_
68 
        "    upper(blat_display_name) ASC"
 68 
        "    upper(blat_display_name) ASC"
69 
 
 69 
 
70 
 
 70 
 
71 
   OraDatabase.Parameters.Add "RTAG_ID", DB_RTAG_ID, ORAPARM_INPUT, ORATYPE_NUMBER
 71 
   OraDatabase.Parameters.Add "RTAG_ID", DB_RTAG_ID, ORAPARM_INPUT, ORATYPE_NUMBER
Line 77... Line 77...
77 
      Dim btnText, btnClass, btnDisable, isaRelease, replicationMode
 77 
      Dim btnText, btnClass, btnDisable, isaRelease, replicationMode
78 
 
 78 
 
79 
      isaRelease = rsQry("inRelease") > 0
 79 
      isaRelease = rsQry("inRelease") > 0
80 
 
 80 
 
81 
      replicationMode = "Unknown"
 81 
      replicationMode = "Unknown"
82 
      If rsQry("blat_full") = "E" Then
 82 
      If rsQry("blat_mode") = "E" Then
83 
          replicationMode = "Entire Archive"
 83 
          replicationMode = "Entire Archive"
84 
      ElseIf rsQry("blat_full") = "P" Then
 84 
      ElseIf rsQry("blat_mode") = "P" Then
85 
          replicationMode = "All Projects"
 85 
          replicationMode = "All Projects"
86 
      Else
 86 
      Else
87 
        If  rsQry("inProject") > 0 Then
 87 
        If  rsQry("inProject") > 0 Then
88 
            replicationMode = "Project"
 88 
            replicationMode = "Project"
89 
        ElseIf  rsQry("inRelease") > 0 Then
 89 
        ElseIf  rsQry("inRelease") > 0 Then