From d8d8daabc584f861ab3724bc3376be47ac5264e9 Mon Sep 17 00:00:00 2001
From: hmalik144 <h.malik144@gmail.com>
Date: Thu, 22 Aug 2019 15:29:52 +1000
Subject: [PATCH] Create OnBoardingMacro.vb

---
 OnBoardingMacro.vb | 96 ++++++++++++++++++++++++++++++++++++++++++++++
 1 file changed, 96 insertions(+)
 create mode 100644 OnBoardingMacro.vb

diff --git a/OnBoardingMacro.vb b/OnBoardingMacro.vb
new file mode 100644
index 0000000..7925022
--- /dev/null
+++ b/OnBoardingMacro.vb
@@ -0,0 +1,96 @@
+Private Sub Cancel_Click()
+    startDialog.hide
+End Sub
+Private Sub cityDropDown_DropButtonClick()
+    cityDropDown.AddItem "SYD"
+    cityDropDown.AddItem "MEL"
+    cityDropDown.AddItem "BNE"
+    cityDropDown.AddItem "ADL"
+End Sub
+
+Private Sub equipmentDropDown_DropButtonClick()
+    equipmentDropDown.AddItem "Microsoft Surface Pro 4"
+    equipmentDropDown.AddItem "Microsoft Surface Pro 6"
+    equipmentDropDown.AddItem "HP Elitebook 820"
+    equipmentDropDown.AddItem "Apple iPhone 6s"
+    equipmentDropDown.AddItem "Apple iPhone 6s Plus"
+    equipmentDropDown.AddItem "Apple iPhone 8"
+    equipmentDropDown.AddItem "Apple iPhone 8 Plus"
+End Sub
+
+
+
+Private Sub Submit_Click()
+    'Field 1'
+    Dim fullNameString As Range
+    Set fullNameString = ActiveDocument.Bookmarks("fullName").Range
+    
+    'If fullNameString.Text = "" Then
+    fullNameString.Text = Me.nameTextBox.Value
+    'Else
+    'fullNameString.Delete
+    'fullNameString.Text = Me.nameTextBox.Value
+    'End If
+    
+    
+    'Field 2'
+    Dim cityString As Range
+    Set cityString = ActiveDocument.Bookmarks("city").Range
+    
+    Dim selectedCity As String
+    selectedCity = Me.cityDropDown.Value
+    
+    cityString.Text = selectedCity
+    
+    'Field 3'
+    Dim equipmentString As Range
+    Set equipmentString = ActiveDocument.Bookmarks("itEquipment").Range
+    
+    Dim selectedEquipment As String
+    selectedEquipment = Me.equipmentDropDown.Value
+    
+    equipmentString.Text = selectedEquipment
+    
+    'Field 4'
+    Dim assetString As Range
+    Set assetString = ActiveDocument.Bookmarks("assetNumber").Range
+    'conditions'
+    assetString.Text = Me.assetTextBox.Value
+    
+     Select Case equipmentString
+        Case "Microsoft Surface Pro 4"
+        assetString.Text = selectedCity & "-L-" & Me.assetTextBox.Value
+
+        Case "Microsoft Surface Pro 6"
+        assetString.Text = selectedCity & "-L-" & Me.assetTextBox.Value
+        
+        Case "HP Elitebook 820"
+        assetString.Text = selectedCity & "-L-" & Me.assetTextBox.Value
+        
+        Case "Apple iPhone 6s"
+        assetString.Text = Me.assetTextBox.Value
+        
+        Case "Apple iPhone 6s Plus"
+        assetString.Text = Me.assetTextBox.Value
+
+        Case "Apple iPhone 8"
+        assetString.Text = Me.assetTextBox.Value
+
+        Case "Apple iPhone 8 Plus"
+        assetString.Text = Me.assetTextBox.Value
+
+    End Select
+    
+    'field 5'
+    Dim serialString As Range
+    Set serialString = ActiveDocument.Bookmarks("serialNumber").Range
+    serialString.Text = Me.serialTextBox.Value
+    
+    'field 6'
+    Dim dateString As Range
+    Set dateString = ActiveDocument.Bookmarks("dateAccepted").Range
+    dateString.Text = Date
+    
+    startDialog.hide
+    
+End Sub