act(1 To rst.RecordCount)
    rst.MoveFirst
    Do While Not rst.EOF
      'indicele disciplinei din gTabelDiscipline
      IDisc = IndiceDisciplina(rst.Fields("Sectia"), _
                               rst.Fields("AnUniv"), _
                               rst.Fields("Disciplina"), _
                               rst.Fields("SemestruPlan"), _
                               Format$(rst.Fields("Indrumator")))
      'disciplina nu exista: se incarca
      If IDisc = 0 Then
        IncarcaTabelDisciplineAltAnUniv gSectie, rst.Fields("AnUniv")
        IDisc = IndiceDisciplina(rst.Fields("Sectia"), _
                                 rst.Fields("AnUniv"), _
                                 rst.Fields("Disciplina"), _
                                 rst.Fields("SemestruPlan"), _
                                 Format$(rst.Fields("Indrumator")))
      End If
      gNrDisciplineContract = gNrDisciplineContract + 1
      gTabelDisciplineContract(gNrDisciplineContract).id = rst.Fields("ID")
      gTabelDisciplineContract(gNrDisciplineContract).IDisc = IDisc
      gTabelDisciplineContract(gNrDisciplineContract).semestru = rst.Fields("SemestruCrt")
      gTabelDisciplineContract(gNrDisciplineContract).Sters = False
      rst.MoveNext
    Loop
  End If
  rst.Close
End Sub

Private Sub chkToateDiscOblig_Click()
  Dim i As Integer
  Dim id As Integer
  If chkToateDiscOblig.value = vbChecked Then
    'lstDisc.Enabled = False
    For i = 0 To lstDisc.ListCount - 1
      id = lstDisc.ItemData(i)
      If gTabelDiscipline(id).tip = 1 Or _
         gTabelDiscipline(id).tip = 3 Then
        If Not DisciplinaObligatorieMarcata(i) Then
          lstDisc.Selected(i) = True
          'IncarcaGridC lstDisc
        End If
      End If
    Next i
    'lstDisc.Enabled = True
  End If
End Sub

Private Sub cmdIncarcaDiscOblig_Click()
  Dim i As Integer
  cmdSalveaza.Enabled = False
  cmdInchide.Enabled = False
  For i = 0 To lstSemestru.ListCount - 1
    lstSemestru.Selected(i) = False
  Next i
  For i = 0 To lstSemestru.ListCount - 1
    lstSemestru.Selected(i) = True
    chkToateDiscOblig.value = vbChecked
    lstSemestru.Selected(i) = False
  Next i
  cmdSalveaza.Enabled = True
  cmdInchide.Enabled = True
  lstSemestru.SetFocus
  lstSemestru.ListIndex = 0
End Sub

Private Sub cmdInchide_Click()
  Dim rasp As Integer
  If flagModif Then
    rasp = MsgBoxT("Datele au fost modificate." & vbCrLf & _
               "Doriți să le salvați?", _
               vbYesNoCancel, _
               "Inchidere fereastra contracte")
    Select Case rasp
      Case vbYes
        SalveazaDateContract
      Case vbCancel
        Exit Sub
    End Select
  End If
  Unload Me
End Sub
Private Sub cmdSalveaza_Click()
  If Not flagModif Then
    If MsgBoxT("Datele NU au fost modificate." & vbCrLf & _
               "Doriți totuși să le salvați?", _
               vbYesNo, _
               "Salvare contracte") <> vbYes Then
      Exit Sub
    End If
  End If
  SalveazaDateContract
  flagModif = False
End Sub
Private Sub Form_Activate()
  lstSemestru.ListIndex = 0
End Sub
Private Sub Form_Load()
  Dim i As Integer
 
  flagModif = False
End Sub
Private Sub Form_Resize()
  ConfigureazaForma Me
End Sub

Private Sub grdContract_Click()
  Dim id As Integer
  Dim i As Integer
  If grdContract.row > 0 Then
    id = CInt(CitesteText(grdContract, grdContract.row, 13))
    For i = 0 To lstDisc.ListCount - 1
      If lstDisc.ItemData(i) = id Then
        lstDisc.ListIndex = i
        lstDisc.TopIndex = i
        Exit Sub
      End If
    Next i
    For i = 0 To lstAlteDisc.ListCount - 1
      If lstAlteDisc.ItemData(i) = id Then
        lstAlteDisc.ListIndex = i
        lstAlteDisc.TopIndex = i
        Exit Sub
      End If
    Next i
  End If
End Sub

Private Sub grdContract_Compare(ByVal Row1 As Long, ByVal Row