Private Sub txtcod_arto_Enter(sender As Object, e As EventArgs) Handles txtcod_arto.Enter
    If String.IsNullOrEmpty(Me.txtcod_arto.EditValue) Then
        Exit Sub
    End If

    Dim dt As DataTable = Rutina.obtener_datos("SP_ARTICULO_DUPLICADO '" & cmbbodega.EditValue & "','" & CStr(Me.txtcod_arto.ToString) & "','" & cmblocal.EditValue & "'")
    ' dt.Columns.Add("COD_ART")
    'dt.Rows.Item("COD_ART")
    Try
        If dt.Rows.Item("COD_ART") = Me.V_TablaArticulo.GetRowCellValue(Me.V_TablaArticulo.FocusedRowHandle, "COD_ART") Then
            txtcod_arto.EditValue = "YA EXISTE ESTE ARTICULO EN ESTA BODEGA "
        End If
    Catch ex As Exception
        MsgBox(ex.Message)
    End Try

End Sub