3/4/2010Option Compare Database
Private Sub PartTreeView_NodeCheck(ByVal Node As Object)
Debug.Print "Node Check"
End Sub
Private Sub PartTreeView_NodeClick(ByVal Node As Object)
Debug.Print Node.Key
Node.Bold = True
End Sub
Public Sub LoadPartTree(ByRef myTree As Control, byPass As Boolean, Optional Root As Boolean, Optional UO As Long)
'DoCmd.Hourglass True
Dim myNode As Node
Dim i As Long
Dim db As DAO.Database
Dim rec As DAO.Recordset
Dim qry As DAO.QueryDef
Dim qryParts As DAO.QueryDef
Dim rst As DAO.Recordset
Set db = CurrentDb()
If Not byPass Then
Set qry = db.QueryDefs("qryParts")
Else
Set qry = db.QueryDefs("qryGetMyPartUsedOn")
qry.Parameters("p") = UO
End If
Set rec = qry.OpenRecordset
If Root Then
If Not rec.EOF Then
With myTree.Nodes
.Clear
.Add , , "Root", rec("Product ID")
myTree.Checkboxes = False
End With
End If
Else
If Root Then
With myTree.Nodes
.Clear
.Add , , "Root", "T" & CStr(UO)
End With
End If
End If
Do While Not rec.EOF
With myTree.Nodes
i = i + 1
If IsNull(rec("UO")) Then
.Add "Root", tvwChild, "T" & CStr(rec("ID")), rec("Part Number")
Call LoadPartTree(myTree, True, False, rec("ID"))
Else
.Add "T" & UO, tvwChild, "T" & CStr(rec("ID")), rec("Part Number")
Call LoadPartTree(myTree, True, False, rec("ID"))
End If
End With
rec.MoveNext
Loop
DoCmd.Hourglass False
End Sub
Private Sub cmdAddPartTree_Click()
Dim myTree As Control
Set myTree = Me.Controls("PartTreeView")
Dim myNode As Node
Call LoadPartTree(myTree, False, True)
Dim myNodes As Nodes
Set myNodes = myTree.Nodes
For Each myNode In myNodes
myNode.Sorted = True
Next
End Sub
Private Sub Form_Open(Cancel As Integer)
Dim myTree As Control
Set myTree = Me.Controls("PartTreeView")
Dim myNode As Node
Call LoadPartTree(myTree, False, True)
Dim myNodes As Nodes
Set myNodes = myTree.Nodes
For Each myNode In myNodes
myNode.Sorted = True
Next
End Sub
Private Sub PartTreeView_Click()
Dim myTree As Control
Dim myNode As Node
Set myTree = Me.Controls("PartTreeView")
Debug.Print "Test"
End Sub
Private Sub PartTreeView_NodeCheck(ByVal Node As Object)
Debug.Print Node.Name
End Sub
Private Sub PartTreeView_NodeClick(ByVal Node As Object)
DoCmd.Hourglass True
txtNodeID.Value = Right(Node.Key, Len(Node.Key) - 1)
txtNodeName = Node.Text
Me.Requery
DoCmd.Hourglass False
End Sub 2/24/2010
The general rule is that If an employer buys things on the employee's behalf that are not totally for a bona fide business purpose as defined below, it is taxable. Any insurance purchased by an employer for an employer is taxable consumption; the same as it would be if the employee purchased it directly.
HR25 has a provision (below) making proxy buying taxable - proxy buying is having employers buying goods and services that would otherwise be taxable for their employees so as to avoid the payment of tax. For example, all health insurance, life insurance and other such fringe benefits bought on behalf of the employee by the employer are taxable under the FairTax. In the case of proxy buying the tax would have to be paid by the employer. As you said Ron, they are actually personal consumption and should be taxable.
So what will happen is that employers will pay workers more and workers will buy the insurance they want directly. This will go along way to helping reduce the cost of health care eventually getting rid of the "so-called" cadilllac policies. People will no longer over-consume health insurance.
In order to be a nontaxable business purchase, the purchase has to satisfy definition (1) below.
The airline ticket has to be for a business purpose -- going to a potential customer to give a demonstration or meeting with existing clients in order to be purchased tax free. Sending the employee on a vacation as a reward for work would be taxable as the employee is getting the benefit.
If the employer leases a car for his employees, a portion of that would be taxable. The ratio of personal mileage to business mileage would determine what percent of the consumption is taxable.
Bottomline: Just because a business buys something, that doesn't make it nontaxable. It has to be for a bona fide business purpose: to produce, provide, render or sell taxable property or services.
Karen Walby, Ph.D.
Research Director
2/22/2010The great painting of George Washington that was destroyed in Germany and the example that the French used to exemplify the great system that a constitutional Republic as America is, were the exact opposite of what Communalism (Communism) theory presented. Germany and the Soviet Union chose Communism, and failed. In fact, every society that chooses this social ordering fails and have throughout time.
Embedded in the theory of Communism is the need of an Income Tax because of the three things it accomplishes:
- Fund the Government
- Create the power of Economic Engineering (forcing economic “behaviors”)
- Create SOCIAL ENGINEERING (the creation of specific social classes)
The Flat tax is still and INCOME TAX, and therefore a product of Communism….period. End of story. Nobody that I run into can defend this argument. The only reason it is chosen over the other system of taxation that exists today is for one or both of the reasons (2 and 3) above.
A truly free people have choice. The Excise tax and tariffs worked for some time in the U.S. because everything we needed was here in our lands and our exports greatly outweighed our imports. I heard some arguments at CPAC last weekend in support of this type of taxation. The realization of this is that with the free trade markets as they exist today, high tariffs would only cause less exports and since we are the 2nd largest exporter, this would devastate our economy. 1/30/2010
To begin using your site, click Create a Post under Admin Links to the right.
What is a Blog?
A Blog is a site designed to help you share information. Blogs can be used as news sites, journals, diaries, team sites, and more. It is your place on the World Wide Web.
Blogs are typically displayed in reverse chronological order (newest entries first), and consist of frequent short postings. With this Blog, it is also possible for your site visitors to comment on your postings.
In business, Blogs can be used as a team communication tool. Keep team members in touch by providing a central place for links, relevant news, and even gossip.
|
|
|
|