Skip to content

Commit 1473bae

Browse files
author
david_webb6
committed
inventory adjust 32 bit
1 parent bc9cf58 commit 1473bae

11 files changed

+1235
-0
lines changed

‎qbdt/vb.NET/qbXML/InventoryAdjust.zip

27.7 KB
Binary file not shown.

‎qbdt/vb.NET/qbXML/InventoryAdjust/AssemblyInfo.vb

Lines changed: 33 additions & 0 deletions
Original file line numberDiff line numberDiff line change
@@ -0,0 +1,33 @@
1+
Imports System.Reflection
2+
Imports System.Runtime.CompilerServices
3+
Imports System.Runtime.InteropServices
4+
5+
' General Information about an assembly is controlled through the following
6+
' set of attributes. Change these attribute values to modify the information
7+
' associated with an assembly.
8+
9+
10+
' TODO: Review the values of the assembly attributes
11+
12+
13+
<Assembly: AssemblyTitle("InventoryAdjustProj")>
14+
<Assembly: AssemblyDescription("")>
15+
<Assembly: AssemblyCompany("Intuit")>
16+
<Assembly: AssemblyProduct("")>
17+
<Assembly: AssemblyCopyright("")>
18+
<Assembly: AssemblyTrademark("")>
19+
<Assembly: AssemblyCulture("")>
20+
21+
' Version information for an assembly consists of the following four values:
22+
23+
' Major version
24+
' Minor Version
25+
' Build Number
26+
' Revision
27+
28+
' You can specify all the values or you can default the Build and Revision Numbers
29+
' by using the '*' as shown below:
30+
31+
<Assembly: AssemblyVersion("1.0.*")>
32+
33+

‎qbdt/vb.NET/qbXML/InventoryAdjust/InventoryAdjust.Designer.vb

Lines changed: 452 additions & 0 deletions
Some generated files are not rendered by default. Learn more about customizing how changed files appear on GitHub.

‎qbdt/vb.NET/qbXML/InventoryAdjust/InventoryAdjust.exe

36 KB
Binary file not shown.

‎qbdt/vb.NET/qbXML/InventoryAdjust/InventoryAdjust.resX

Lines changed: 128 additions & 0 deletions
Original file line numberDiff line numberDiff line change
@@ -0,0 +1,128 @@
1+
<?xml version="1.0" encoding="utf-8"?>
2+
<root>
3+
<!--
4+
Microsoft ResX Schema
5+
6+
Version 2.0
7+
8+
The primary goals of this format is to allow a simple XML format
9+
that is mostly human readable. The generation and parsing of the
10+
various data types are done through the TypeConverter classes
11+
associated with the data types.
12+
13+
Example:
14+
15+
... ado.net/XML headers & schema ...
16+
<resheader name="resmimetype">text/microsoft-resx</resheader>
17+
<resheader name="version">2.0</resheader>
18+
<resheader name="reader">System.Resources.ResXResourceReader, System.Windows.Forms, ...</resheader>
19+
<resheader name="writer">System.Resources.ResXResourceWriter, System.Windows.Forms, ...</resheader>
20+
<data name="Name1"><value>this is my long string</value><comment>this is a comment</comment></data>
21+
<data name="Color1" type="System.Drawing.Color, System.Drawing">Blue</data>
22+
<data name="Bitmap1" mimetype="application/x-microsoft.net.object.binary.base64">
23+
<value>[base64 mime encoded serialized .NET Framework object]</value>
24+
</data>
25+
<data name="Icon1" type="System.Drawing.Icon, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
26+
<value>[base64 mime encoded string representing a byte array form of the .NET Framework object]</value>
27+
<comment>This is a comment</comment>
28+
</data>
29+
30+
There are any number of "resheader" rows that contain simple
31+
name/value pairs.
32+
33+
Each data row contains a name, and value. The row also contains a
34+
type or mimetype. Type corresponds to a .NET class that support
35+
text/value conversion through the TypeConverter architecture.
36+
Classes that don't support this are serialized and stored with the
37+
mimetype set.
38+
39+
The mimetype is used for serialized objects, and tells the
40+
ResXResourceReader how to depersist the object. This is currently not
41+
extensible. For a given mimetype the value must be set accordingly:
42+
43+
Note - application/x-microsoft.net.object.binary.base64 is the format
44+
that the ResXResourceWriter will generate, however the reader can
45+
read any of the formats listed below.
46+
47+
mimetype: application/x-microsoft.net.object.binary.base64
48+
value : The object must be serialized with
49+
: System.Runtime.Serialization.Formatters.Binary.BinaryFormatter
50+
: and then encoded with base64 encoding.
51+
52+
mimetype: application/x-microsoft.net.object.soap.base64
53+
value : The object must be serialized with
54+
: System.Runtime.Serialization.Formatters.Soap.SoapFormatter
55+
: and then encoded with base64 encoding.
56+
57+
mimetype: application/x-microsoft.net.object.bytearray.base64
58+
value : The object must be serialized into a byte array
59+
: using a System.ComponentModel.TypeConverter
60+
: and then encoded with base64 encoding.
61+
-->
62+
<xsd:schema id="root" xmlns="" xmlns:xsd="http://www.w3.org/2001/XMLSchema" xmlns:msdata="urn:schemas-microsoft-com:xml-msdata">
63+
<xsd:import namespace="http://www.w3.org/XML/1998/namespace" />
64+
<xsd:element name="root" msdata:IsDataSet="true">
65+
<xsd:complexType>
66+
<xsd:choice maxOccurs="unbounded">
67+
<xsd:element name="metadata">
68+
<xsd:complexType>
69+
<xsd:sequence>
70+
<xsd:element name="value" type="xsd:string" minOccurs="0" />
71+
</xsd:sequence>
72+
<xsd:attribute name="name" use="required" type="xsd:string" />
73+
<xsd:attribute name="type" type="xsd:string" />
74+
<xsd:attribute name="mimetype" type="xsd:string" />
75+
<xsd:attribute ref="xml:space" />
76+
</xsd:complexType>
77+
</xsd:element>
78+
<xsd:element name="assembly">
79+
<xsd:complexType>
80+
<xsd:attribute name="alias" type="xsd:string" />
81+
<xsd:attribute name="name" type="xsd:string" />
82+
</xsd:complexType>
83+
</xsd:element>
84+
<xsd:element name="data">
85+
<xsd:complexType>
86+
<xsd:sequence>
87+
<xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
88+
<xsd:element name="comment" type="xsd:string" minOccurs="0" msdata:Ordinal="2" />
89+
</xsd:sequence>
90+
<xsd:attribute name="name" type="xsd:string" use="required" msdata:Ordinal="1" />
91+
<xsd:attribute name="type" type="xsd:string" msdata:Ordinal="3" />
92+
<xsd:attribute name="mimetype" type="xsd:string" msdata:Ordinal="4" />
93+
<xsd:attribute ref="xml:space" />
94+
</xsd:complexType>
95+
</xsd:element>
96+
<xsd:element name="resheader">
97+
<xsd:complexType>
98+
<xsd:sequence>
99+
<xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
100+
</xsd:sequence>
101+
<xsd:attribute name="name" type="xsd:string" use="required" />
102+
</xsd:complexType>
103+
</xsd:element>
104+
</xsd:choice>
105+
</xsd:complexType>
106+
</xsd:element>
107+
</xsd:schema>
108+
<resheader name="resmimetype">
109+
<value>text/microsoft-resx</value>
110+
</resheader>
111+
<resheader name="version">
112+
<value>2.0</value>
113+
</resheader>
114+
<resheader name="reader">
115+
<value>System.Resources.ResXResourceReader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
116+
</resheader>
117+
<resheader name="writer">
118+
<value>System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
119+
</resheader>
120+
<metadata name="ToolTip1.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
121+
<value>17, 17</value>
122+
</metadata>
123+
<data name="WarningMsg.Text" xml:space="preserve">
124+
<value>The QuickBooks company file must be open in single-user mode. (This is also true in the user interface: you cannot adjust the inventory while the company file is open in multi-user mode.)
125+
The inventory adjustment form must be closed in the QuickBooks user interface.
126+
</value>
127+
</data>
128+
</root>

‎qbdt/vb.NET/qbXML/InventoryAdjust/InventoryAdjust.vb

Lines changed: 115 additions & 0 deletions
Original file line numberDiff line numberDiff line change
@@ -0,0 +1,115 @@
1+
Option Strict Off
2+
Option Explicit On
3+
Friend Class InventoryAdjust
4+
Inherits System.Windows.Forms.Form
5+
Private Sub AddBtn_Click(ByVal eventSender As System.Object, ByVal eventArgs As System.EventArgs) Handles AddBtn.Click
6+
Dim item As String
7+
Dim bQuantity As Boolean
8+
Dim bRelative As Boolean
9+
Dim li As System.Windows.Forms.ListViewItem
10+
bQuantity = QuantityOption.Checked
11+
item = ItemList.Text
12+
If (bQuantity) Then
13+
li = LineItems.Items.Add(item, item, "")
14+
If li.SubItems.Count > 1 Then
15+
li.SubItems(1).Text = "Quantity"
16+
Else
17+
li.SubItems.Insert(1, New System.Windows.Forms.ListViewItem.ListViewSubItem(Nothing, "Quantity"))
18+
End If
19+
bRelative = DiffCheck.CheckState
20+
If bRelative Then
21+
If li.SubItems.Count > 2 Then
22+
li.SubItems(2).Text = "Relative"
23+
Else
24+
li.SubItems.Insert(2, New System.Windows.Forms.ListViewItem.ListViewSubItem(Nothing, "Relative"))
25+
End If
26+
Else
27+
If li.SubItems.Count > 2 Then
28+
li.SubItems(2).Text = "Absolute"
29+
Else
30+
li.SubItems.Insert(2, New System.Windows.Forms.ListViewItem.ListViewSubItem(Nothing, "Absolute"))
31+
End If
32+
End If
33+
If li.SubItems.Count > 3 Then
34+
li.SubItems(3).Text = QuantityAdjust.Text
35+
Else
36+
li.SubItems.Insert(3, New System.Windows.Forms.ListViewItem.ListViewSubItem(Nothing, QuantityAdjust.Text))
37+
End If
38+
Else
39+
li = LineItems.Items.Add(item, item, "")
40+
If li.SubItems.Count > 1 Then
41+
li.SubItems(1).Text = "Value"
42+
Else
43+
li.SubItems.Insert(1, New System.Windows.Forms.ListViewItem.ListViewSubItem(Nothing, "Value"))
44+
End If
45+
If li.SubItems.Count > 2 Then
46+
li.SubItems(2).Text = ValueAdjust.Text
47+
Else
48+
li.SubItems.Insert(2, New System.Windows.Forms.ListViewItem.ListViewSubItem(Nothing, ValueAdjust.Text))
49+
End If
50+
If li.SubItems.Count > 3 Then
51+
li.SubItems(3).Text = QuantityAdjust.Text
52+
Else
53+
li.SubItems.Insert(3, New System.Windows.Forms.ListViewItem.ListViewSubItem(Nothing, QuantityAdjust.Text))
54+
End If
55+
End If
56+
End Sub
57+
58+
Private Sub ClassList_DropDown(ByVal eventSender As System.Object, ByVal eventArgs As System.EventArgs) Handles ClassList.DropDown
59+
fillClassList(ClassList)
60+
End Sub
61+
62+
Private Sub CustomerList_DropDown(ByVal eventSender As System.Object, ByVal eventArgs As System.EventArgs) Handles CustomerList.DropDown
63+
fillCustomerList(CustomerList)
64+
End Sub
65+
66+
Private Sub InventoryAdjust_Load(ByVal eventSender As System.Object, ByVal eventArgs As System.EventArgs) Handles MyBase.Load
67+
If qbConnect Then
68+
WarningMsg.Visible = False
69+
If ClassesEnabled() Then
70+
ClassList.Enabled = True
71+
ClassLabel.Enabled = True
72+
End If
73+
fillAccountList(AccountList)
74+
fillItemList(ItemList)
75+
Else
76+
WarningMsg.Visible = True
77+
AccountList.Enabled = False
78+
CustomerList.Enabled = False
79+
ClassList.Enabled = False
80+
Memo.Enabled = False
81+
SendBtn.Enabled = False
82+
AddBtn.Enabled = False
83+
End If
84+
End Sub
85+
86+
Private Sub QuantityOption_CheckedChanged(ByVal eventSender As System.Object, ByVal eventArgs As System.EventArgs) Handles QuantityOption.CheckedChanged
87+
If eventSender.Checked Then
88+
ValueLabel.Visible = False
89+
ValueAdjust.Visible = False
90+
DiffCheck.Visible = True
91+
End If
92+
End Sub
93+
94+
Private Sub SendBtn_Click(ByVal eventSender As System.Object, ByVal eventArgs As System.EventArgs) Handles SendBtn.Click
95+
Dim acct As String
96+
Dim cust As String
97+
Dim class_Renamed As String
98+
Dim thememo As String
99+
Dim resp As String
100+
acct = AccountList.Text
101+
cust = CustomerList.Text
102+
class_Renamed = ClassList.Text
103+
thememo = Memo.Text
104+
resp = AdjustInventory(acct, cust, class_Renamed, thememo, LineItems)
105+
MsgBox(resp)
106+
End Sub
107+
108+
Private Sub ValueOption_CheckedChanged(ByVal eventSender As System.Object, ByVal eventArgs As System.EventArgs) Handles ValueOption.CheckedChanged
109+
If eventSender.Checked Then
110+
DiffCheck.Visible = False
111+
ValueLabel.Visible = True
112+
ValueAdjust.Visible = True
113+
End If
114+
End Sub
115+
End Class

‎qbdt/vb.NET/qbXML/InventoryAdjust/InventoryAdjustProj.sln

Lines changed: 22 additions & 0 deletions
Original file line numberDiff line numberDiff line change
@@ -0,0 +1,22 @@
1+
2+
Microsoft Visual Studio Solution File, Format Version 12.00
3+
# Visual Studio 14
4+
VisualStudioVersion = 14.0.25420.1
5+
MinimumVisualStudioVersion = 10.0.40219.1
6+
Project("{F184B08F-C81C-45F6-A57F-5ABD9991F28F}") = "InventoryAdjustProj", "InventoryAdjustProj.vbproj", "{A4760CD9-4DBA-4FF0-996C-698690CB214B}"
7+
EndProject
8+
Global
9+
GlobalSection(SolutionConfigurationPlatforms) = preSolution
10+
Debug|Any CPU = Debug|Any CPU
11+
Release|Any CPU = Release|Any CPU
12+
EndGlobalSection
13+
GlobalSection(ProjectConfigurationPlatforms) = postSolution
14+
{A4760CD9-4DBA-4FF0-996C-698690CB214B}.Debug|Any CPU.ActiveCfg = Debug|Any CPU
15+
{A4760CD9-4DBA-4FF0-996C-698690CB214B}.Debug|Any CPU.Build.0 = Debug|Any CPU
16+
{A4760CD9-4DBA-4FF0-996C-698690CB214B}.Release|Any CPU.ActiveCfg = Release|Any CPU
17+
{A4760CD9-4DBA-4FF0-996C-698690CB214B}.Release|Any CPU.Build.0 = Release|Any CPU
18+
EndGlobalSection
19+
GlobalSection(SolutionProperties) = preSolution
20+
HideSolutionNode = FALSE
21+
EndGlobalSection
22+
EndGlobal

0 commit comments

Comments
 (0)