nt).sectia
  For i = 1 To gNrDisciplineContract
    If Not gTabelDisciplineContract(i).Sters Then
      IDisc = gTabelDisciplineContract(i).IDisc
      If IDisc > 0 Then
        If gTabelDisciplineContract(i).id = 0 Then 'disciplina nou introdusa
          rst.AddNew
          rst.Fields("Facultatea") = gCodFac
          rst.Fields("Sectia") = sectia
          rst.Fields("NrMatricol") = ToString1(txtMatrA.Text)
          rst.Fields("SemestruCrt") = gTabelDisciplineContract(i).semestru
          rst.Fields("AnUniv") = gTabelDiscipline(IDisc).AnUnivPlan
          rst.Fields("Disciplina") = gTabelDiscipline(IDisc).cod
          rst.Fields("TipDisciplina") = gTabelDiscipline(IDisc).tip
          rst.Fields("OreCurs") = gTabelDiscipline(IDisc).OreCurs
          rst.Fields("OreSem") = gTabelDiscipline(IDisc).OreSem
          rst.Fields("OreLuc") = gTabelDiscipline(IDisc).OreLuc
          rst.Fields("OrePr") = gTabelDiscipline(IDisc).OrePr
          rst.Fields("Credite") = gTabelDiscipline(IDisc).Credite
          rst.Fields("ModFinalizare") = gTabelDiscipline(IDisc).ModFinalizare
          rst.Fields("SemestruPlan") = gTabelDiscipline(IDisc).semPlan
          rst.Fields("Indrumator") = IIf(gTabelDiscipline(IDisc).codIndrum = "", "     ", gTabelDiscipline(IDisc).codIndrum)
          'pune ID-ul
          gTabelDisciplineContract(i).id = rst.Fields("ID")
          'actualizeaza
          rst.Update
        Else  'disciplina existenta: actualizeaza
          rst.MoveFirst
          rst.Find "ID = " & gTabelDisciplineContract(i).id
          If Not rst.EOF Then
            'modifica informatiile despre disciplina
            rst.Fields("AnUniv") = gTabelDiscipline(IDisc).AnUnivPlan
            rst.Fields("SemestruCrt") = gTabelDisciplineContract(i).semestru
            rst.Fields("Disciplina") = gTabelDiscipline(IDisc).cod
            rst.Fields("TipDisciplina") = gTabelDiscipline(IDisc).tip
            rst.Fields("OreCurs") = gTabelDiscipline(IDisc).OreCurs
            rst.Fields("OreSem") = gTabelDiscipline(IDisc).OreSem
            rst.Fields("OreLuc") = gTabelDiscipline(IDisc).OreLuc
            rst.Fields("OrePr") = gTabelDiscipline(IDisc).OrePr
            rst.Fields("Credite") = gTabelDiscipline(IDisc).Credite
            rst.Fields("ModFinalizare") = gTabelDiscipline(IDisc).ModFinalizare
            rst.Fields("SemestruPlan") = gTabelDiscipline(IDisc).semPlan
            rst.Fields("Indrumator") = IIf(gTabelDiscipline(IDisc).codIndrum = "", "     ", gTabelDiscipline(IDisc).codIndrum)
            rst.Update
          End If
        End If
      End If 'iDisc > 0
    End If
  Next i
  rst.Close
End Sub
Private Function DisciplinaInGrid(id As Integer) As Boolean
  Dim i As Integer
  For i = 1 To grdContract.Rows - 1
    If CInt(CitesteText(grdContract, i, 13)) = id Then
      DisciplinaInGrid = True
      Exit Function
    End If
  Next i
  DisciplinaInGrid = False
End Function
Private Sub ActualizeazaGridContract(lst As ListBox)
  'pune in grdContract disciplinele aferente semestrelor
  'selectate din lst (lstSemestru)
  Dim i As Integer
  Dim j As Integer
  Dim indS As Integer
  grdContract.Rows = 1
  For i = 0 To lst.ListCount - 1
    indS = lst.ItemData(i)
    If lst.Selected(i) Then
      'adauga la grid disciplinele din gTabelDisciplineContract pentru semestrul inds
      For j = 1 To gNrDisciplineContract
        If gTabelDisciplineContract(j).semestru = indS Then
          If gTabelDisciplineContract(j).IDisc > 0 Then
            AdaugaLinieGridContract gTabelDisciplineContract(j).IDisc, indS
          End If
        End If
      Next j
    End If
  Next i
  lblNrDisc.Caption = "Număr discipline: " & CStr(grdContract.Rows - 1)
  DoEvents
End Sub
Private Sub IncarcaGridC(lst As ListBox)
  Dim i As Integer
  Dim id As Integer
  Dim indS As Integer
  Dim IDiscContr As Integer
  
  i = lst.ListIndex
  id = lst.ItemData(i)
  indS = gTabelDiscipline(id).semPlan
  If lst.Selected(i) Then
    IDiscContr = IndiceDisciplinaInContract(id)
    If IDiscContr = 0 Then
      AdaugaLinieGridContract id, indS
    ElseIf gTabelDisciplineContract(IDiscContr).Sters Then
      AdaugaLinieGridContract id, indS
    End If
    'adauga disc la gTabelDisciplineContract
    AdaugaDisciplinaContract id, CByte(indS)
  Else
    StergeLinieGridContract id
    'sterge disc la gTabelDisciplineContract
    StergeDisciplin