1  'Right Justify
      Caption         =   "Numar studenti:"
      BeginProperty Font 
         Name            =   "Arial"
         Size            =   8.25
         Charset         =   238
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   195
      Left            =   2640
      TabIndex        =   39
      Top             =   3660
      Width           =   2055
   End
   Begin VB.Label lblDisc 
      Caption         =   "Disciplina din contract"
      BeginProperty Font 
         Name            =   "Arial"
         Size            =   8.25
         Charset         =   238
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   195
      Left            =   120
      TabIndex        =   37
      Top             =   3660
      Width           =   2055
   End
   Begin VB.Label lblSortGrid 
      Caption         =   "Ordonează după"
      BeginProperty Font 
         Name            =   "Arial"
         Size            =   8.25
         Charset         =   238
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   195
      Left            =   9720
      TabIndex        =   35
      Top             =   3300
      Width           =   915
   End
   Begin VB.Label lblSemCrt 
      Caption         =   "Sem. crt."
      BeginProperty Font 
         Name            =   "Arial"
         Size            =   8.25
         Charset         =   238
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   195
      Left            =   2460
      TabIndex        =   3
      Top             =   1320
      Width           =   855
   End
   Begin VB.Label lblSemestru 
      Caption         =   "Semestrul"
      BeginProperty Font 
         Name            =   "Arial"
         Size            =   8.25
         Charset         =   238
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   195
      Left            =   120
      TabIndex        =   1
      Top             =   1320
      Width           =   975
   End
   Begin VB.Label lblNote 
      Caption         =   "Note obținute"
      BeginProperty Font 
         Name            =   "Arial"
         Size            =   8.25
         Charset         =   238
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   195
      Left            =   4740
      TabIndex        =   5
      Top             =   1320
      Width           =   1335
   End
   Begin VB.Label lblNrDisc 
      Alignment       =   1  'Right Justify
      Caption         =   "Număr note: "
      BeginProperty Font 
         Name            =   "Arial"
         Size            =   8.25
         Charset         =   238
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   195
      Left            =   7200
      TabIndex        =   6
      Top             =   1320
      Width           =   2415
   End
   Begin VB.Label lblContext 
      BeginProperty Font 
         Name            =   "Arial"
         Size            =   8.25
         Charset         =   238
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   1275
      Left            =   120
      TabIndex        =   0
      Top             =   0
      Width           =   6375
   End
End
Attribute VB_Name = "frmNoteDisciplina"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit
Public flagModif As Boolean
Public lEditareGrid As EditareGrid
Dim IndNota As Integer
Dim indDisc As Integer
Dim semCrt As Integer
Dim umple As Boolean
Private Sub ActualizeazaGridNote()
  'pune in grdNote notele aferente disciplinei selectate
  'din lstDisc
  Dim i As Integer
  Dim j As Integer
  Dim indS As Integer
  grdNote.Rows = 1
  umple = True
  For i = 1 To gNrNoteDisciplina
    If Not gTabelNoteDisciplina(i).Sters Then
      AdaugaLinieGr