Using cmd As New OracleCommand
            With cmd
                .Connection = connection.get_connection
                .CommandType = CommandType.StoredProcedure
                .CommandText = "axp_package.get_contract_smetacodes"
                Dim OP_contractid As New OracleParameter
                With OP_contractid
                    .Direction = ParameterDirection.Input
                    .OracleDbType = OracleDbType.Int32
                    .Value = Me.ContractId
                    .Scale = 38
                End With
                Dim OP_cur As New OracleParameter
                With OP_cur
                    .Direction = ParameterDirection.Output
                    .OracleDbType = OracleDbType.RefCursor
                End With
                .Parameters.AddRange({OP_cur, OP_contractid})
                Me.ContractSmetaCodes.Clear()
                Try
                    Me.ContractSmetaCodes.Load(.ExecuteReader)
                    Me.DGV_SmetaCodes.DataSource = Me.ContractSmetaCodes
                    Me.ContractSmetaCodes.Columns(2).ReadOnly = True
                    Me.ContractSmetaCodes.Columns(3).ReadOnly = True
                    Me.DGV_SmetaCodes.Columns(0).Visible = False
                    Me.DGV_SmetaCodes.Columns(1).Visible = False
                    Dim DelButton As New DataGridViewButtonColumn
                    DelButton.Text = "Удалить"
                    ' DelButton.Name = "DelButton"
                    DelButton.HeaderText = ""
                    '  DelButton.DisplayIndex = Me.DGV_SmetaCodes.Columns.Count
                    DelButton.UseColumnTextForButtonValue = True

                    Me.DGV_SmetaCodes.Columns.Insert(Me.DGV_SmetaCodes.Columns.Count, DelButton)
                    ' Me.DGV_SmetaCodes.Columns.Add(New DataGridViewTextBoxColumn())
                    '   Me.Text = DelButton.Index.ToString
                Catch ex As OracleException
                    MessageBox.Show("Невозможно загрузить коды сметы для договора №" & row(2).ToString & " от " & _
                                                    CDate(row(3).ToString).ToString("dd.MM.yyyy") & " с " & row(8).ToString & _
                                                                                    vbCr & ex.Message & vbCr & ex.Number, "", _
                                                                                     MessageBoxButtons.OK, MessageBoxIcon.Error)
                Finally
                    For Each par As OracleParameter In .Parameters
                        par.Dispose()
                    Next
                End Try
            End With
        End Using