"0211eVegolaiD resU elbatpircS-DUSgͺ 15.0.2f6347 15.0.2f6347ͺͺͺ DlgContribώDIAdem Dialog Box 1 ToSudFrameObͺDIAdem Dialog Box 1%ͺͺ'------------------------------------------------------------------------------- '-- SUD script file '-- Author: Mark Kiehl '-- Comment: MDMS code & architecture training ' ' (see the MDMS User Guide - DIADEM SCRIPT) ' ' Dialog Editor '------------------------------------------------------------------------------- Option Explicit Call LogFileWrite("Start of dialog 'MDMS_Contrib.SUD'" & vbTab & Str(Now(),"#dd ttt yyyy hh:nn:ss")) Dim sLastFolder '------------------------------------------------------------------------------- 'Dialog events and OK Cancel buttons Sub Dialog_EventInitialize(ByRef This) 'Created Event Handler Dialog.Title = "Dialog Editor example" Dim i For i = 2 to TabPageCtrl1.Pages.Count TabPageCtrl1.Pages(i).Enable = False Next btn_PrevPage.Enable = False btn_NextPage.Enable = False folderContents_Lbl.Enable = False ListBoxFolderContents.Enable = False Call ListBoxFolderContents.Items.RemoveAll() btn_Done.Enable = False ' test_year_Box.Enable = False test_year_Box.Value = -1 test_loc_country_Box.Enable = False test_loc_country_Box.Value = -1 notes_Box.Enable = False notes_Box.Text = "" ' Call btn_SelectSrcFolder.SetFocus TextSourceFolder.Text = "" TabPageCtrl1.Pages(1).Enable = True TabPageCtrl1.ActivePageIndex = 1 End Sub 'Dialog_EventInitialize() Sub Dialog_EventTerminate(ByRef This) 'Created Event Handler 'Pass the source folder back to the script.. 'This.SetArgument(SourceFolder) 'The last sub called before the dialog is closed. Call LogFileWrite("End of dialog '" & This.FileName & "'" & vbTab & Str(Now(),"#dd ttt yyyy hh:nn:ss")) End Sub Sub btn_cancel_EventClick(ByRef This) 'Created Event Handler 'Use Dialog.Cancel to abort the dialog outside of this event. Dialog.Cancel End Sub Sub btn_Done_EventClick(ByRef This) 'Created Event Handler Dialog.OK End Sub Sub btn_ResetAllForms_EventClick(ByRef This) 'Created Event Handler folderContents_Lbl.Enable = False ListBoxFolderContents.Enable = False Call ListBoxFolderContents.Items.RemoveAll() btn_Done.Enable = False 'Page1 test_year_Box.Enable = False test_year_Box.Value = -1 test_loc_country_Box.Enable = False test_loc_country_Box.Value = -1 notes_Box.Enable = False notes_Box.Text = "" TextSourceFolder.Text = "" 'Page2 'Page3 ' Call btn_SelectSrcFolder.SetFocus End Sub '------------------------------------------------------------------------------- 'Tab page control / navigation ' 'TabPageCtrl1.ActivePageIndex are numbered from 1 to TabPageCtrl1.Pages.Count Sub btn_NextPage_EventClick(ByRef This) 'Created Event Handler 'Display the next TabPage 'This button is only enabled if it has passed ChkStep1, .. ChkStep2 If TabPageCtrl1.ActivePageIndex < TabPageCtrl1.Pages.Count Then 'Enable the next tab, display the next tab, hide the previous tab, disable the next button TabPageCtrl1.Pages(TabPageCtrl1.ActivePageIndex + 1).Enable = True TabPageCtrl1.ActivePageIndex = TabPageCtrl1.ActivePageIndex + 1 TabPageCtrl1.Pages(TabPageCtrl1.ActivePageIndex - 1).Enable = False btn_NextPage.Enable = False If TabPageCtrl1.ActivePageIndex < TabPageCtrl1.Pages.Count Then btn_PrevPage.Enable = True End If Select Case TabPageCtrl1.ActivePageIndex Case 1 Call ChkStep1() Case 2 Call ChkStep2() Case 3 Call ChkStep3() End Select End Sub Sub btn_PrevPage_EventClick(ByRef This) 'Created Event Handler If TabPageCtrl1.ActivePageIndex > 1 Then 'enable the previous tab, display the previous tab, disable the next tab TabPageCtrl1.Pages(TabPageCtrl1.ActivePageIndex - 1).Enable = True TabPageCtrl1.ActivePageIndex = TabPageCtrl1.ActivePageIndex - 1 TabPageCtrl1.Pages(TabPageCtrl1.ActivePageIndex + 1).Enable = False btn_NextPage.Enable = False End If If TabPageCtrl1.ActivePageIndex = 1 Then btn_PrevPage.Enable = False Select Case TabPageCtrl1.ActivePageIndex Case 1 Call ChkStep1() Case 2 Call ChkStep2() Case 3 Call ChkStep3() End Select End Sub 'btn_PrevPage_EventClick() Function ChkStep1() 'Use this function to check the values of the controls on Tab1 'and decide if the user should be allowed to continue to Tab2 ChkStep1 = False btn_NextPage.Enable = False 'Enable btn_NextPage if the user has selected a test_year and test_loc_country option in the combo box. If (Not test_year_Box.Value < 0) AND (Not test_loc_country_Box.Value < 0) Then ChkStep1 = True If TabPageCtrl1.ActivePageIndex < TabPageCtrl1.Pages.Count Then btn_NextPage.Enable = True Call btn_NextPage.SetFocus() End If End If End Function Function ChkStep2() 'Use this function to check the values of the controls on Tab2 'and decide if the user should be allowed to continue to Tab3 ChkStep2 = False btn_NextPage.Enable = False Const myTab2Conditions = True If myTab2Conditions Then ChkStep2 = True If TabPageCtrl1.ActivePageIndex < TabPageCtrl1.Pages.Count Then btn_NextPage.Enable = True End If End If End Function Function ChkStep3() 'Use this function to check the values of the controls on Tab3 'and decide if the user should be allowed to continue (Done button enabled). ChkStep3 = False Const myTab3Conditions = True If myTab3Conditions Then ChkStep3 = True btn_Done.Enable = True End If End Function '------------------------------------------------------------------------------- 'Page 1 - Data Set Sub btn_SelectSrcFolder_EventClick(ByRef This) 'Created Event Handler 'Get a folder from the user and then populate ListBoxFolderContents with 'the filenames of the files within that folder. Dim sFolder sFolder = DataReadPath If Not IsEmpty(sLastFolder) Then If FolderExist(sLastFolder) Then sFolder = sLastFolder End If End If Select Case PathDlgShow("Select a folder",sFolder) Case "IDCancel", "IDNo", "IDNoExecute" Exit Sub Case "IDOk" Call MsgLineDisp("Scanning the contents of folder '" & OutputPath & "'..") sLastFolder = OutputPath Call LogFileWrite("The user selected path was '" & OutputPath & "'") btn_SelectSrcFolder.Enable = False test_year_box.Enable = True notes_Box.Enable = True TextSourceFolder.Text = OutputPath: Call TextSourceFolder.RefreshText If Not Right(TextSourceFolder.Text,1) = "\" Then TextSourceFolder.Text = TextSourceFolder.Text & "\" If Not bPopulateListBoxFolderContents(OutputPath) Then Call Dialog.RunInitialize() btn_SelectSrcFolder.Enable = True Exit Sub End If If Not FolderExist(TextSourceFolder.Text) Then Call LogFileWrite(vbTab & "Error - the passed folder '" & TextSourceFolder.Text & "' does not exist") btn_SelectSrcFolder.Enable = True Dialog.Cancel Exit Sub End If folderContents_Lbl.Visible = True ListBoxFolderContents.Visible = True Call test_year_Box.SetFocus btn_SelectSrcFolder.Enable = True ' 'Enable the test_year, daq_device, and notes controls.. test_year_Box.Enable = True test_loc_country_Box.Enable = True notes_Box.Enable = True notes_Box.Text = "" ' 'Randomly assign a value.. 'test_year_Box.Value = Random(test_year_box.Items.Count) 'test_loc_country_Box.Value = Random(test_loc_country_Box.Items.Count) ' Call MsgLineDisp("Ready") Call ChkStep1() End Select End Sub 'btn_SelectSrcFolder_EventClick() Function bPopulateListBoxFolderContents(ByVal sFolder) 'Populate control ListBoxFolderContents with the 'contents from sFolder. bPopulateListBoxFolderContents = False ListBoxFolderContents.Enable = False folderContents_Lbl.Enable = False Dim arrFiles, sFile arrFiles = DirListGet(sFolder,"*.*", "Date/Time", "Filenames") If IsArray(arrFiles) Then For Each sFile In arrFiles Call ListBoxFolderContents.Items.Add(sFile,ListBoxFolderContents.Items.Count+1) Next End If Call ListBoxFolderContents.Refresh() folderContents_Lbl.Enable = True ListBoxFolderContents.Enable = True bPopulateListBoxFolderContents = True If IsArray(arrFiles) Then Call Erase(arrFiles) End Function 'bPopulateListBoxFolderContents() Sub test_year_Box_EventInitialize(ByRef This) 'Created Event Handler test_year_Box.Items.RemoveAll() Dim sYear For sYear = DatePart("yyyy", Now()) to 2000 Step -1 Call test_year_box.Items.Add(sYear, test_year_box.Items.Count) Next End Sub Sub test_year_Box_EventChange(ByRef This) 'Created Event Handler Call ChkStep1() End Sub Sub test_loc_country_Box_EventInitialize(ByRef This) 'Created Event Handler 'Populate test_loc_country combo box with the values returned 'from function oGetCountriesByNameAsDic() Dim oCountriesDic, sKey Set oCountriesDic = oGetCountriesByNameAsDic() For Each sKey In oCountriesDic Call test_loc_country_Box.Items.Add(sKey,oCountriesDic(sKey)) Next 'sKey Call oCountriesDic.RemoveAll(): Set oCountriesDic = Nothing End Sub 'test_loc_country_Box_EventInitialize() Sub test_loc_country_Box_EventChange(ByRef This) 'Created Event Handler If test_loc_country_Box.Value < 0 Then Exit Sub 'Do something with the user selected country.. 'The country name selected may be accessed from: test_loc_country_Box.Text notes_Box.Text = test_loc_country_Box.Text ChkStep1() End Sub 'test_loc_country_Box_EventChange() 'Call LogFileDel() 'Dim oCountriesDic, sKey 'Set oCountriesDic = oGetCountriesByNameAsDic() 'Call LogFileWrite(oCountriesDic.Count & " country names in 'oCountriesDic'") 'For Each sKey In oCountriesDic ' Call LogFileWrite(vbTab & "'" & sKey & "'" & vbTab & oCountriesDic(sKey)) 'Next 'sKey Function oGetCountriesByNameAsDic() 'Returns a dictionary object with a list of countries by name worldwide. '(done this way in order to insure portability of this example and avoid dependency on external files). Set oGetCountriesByNameAsDic = CreateObject("Scripting.Dictionary") If Not oGetCountriesByNameAsDic.Exists("Afghanistan") Then Call oGetCountriesByNameAsDic.Add("Afghanistan",1) If Not oGetCountriesByNameAsDic.Exists("Aland Islands land Islands") Then Call oGetCountriesByNameAsDic.Add("Aland Islands land Islands",2) If Not oGetCountriesByNameAsDic.Exists("Albania") Then Call oGetCountriesByNameAsDic.Add("Albania",3) If Not oGetCountriesByNameAsDic.Exists("Algeria") Then Call oGetCountriesByNameAsDic.Add("Algeria",4) If Not oGetCountriesByNameAsDic.Exists("American Samoa") Then Call oGetCountriesByNameAsDic.Add("American Samoa",5) If Not oGetCountriesByNameAsDic.Exists("Andorra") Then Call oGetCountriesByNameAsDic.Add("Andorra",6) If Not oGetCountriesByNameAsDic.Exists("Angola") Then Call oGetCountriesByNameAsDic.Add("Angola",7) If Not oGetCountriesByNameAsDic.Exists("Anguilla") Then Call oGetCountriesByNameAsDic.Add("Anguilla",8) If Not oGetCountriesByNameAsDic.Exists("Antarctica") Then Call oGetCountriesByNameAsDic.Add("Antarctica",9) If Not oGetCountriesByNameAsDic.Exists("Antigua and Barbuda") Then Call oGetCountriesByNameAsDic.Add("Antigua and Barbuda",10) If Not oGetCountriesByNameAsDic.Exists("Argentina") Then Call oGetCountriesByNameAsDic.Add("Argentina",11) If Not oGetCountriesByNameAsDic.Exists("Armenia") Then Call oGetCountriesByNameAsDic.Add("Armenia",12) If Not oGetCountriesByNameAsDic.Exists("Aruba") Then Call oGetCountriesByNameAsDic.Add("Aruba",13) If Not oGetCountriesByNameAsDic.Exists("Australia") Then Call oGetCountriesByNameAsDic.Add("Australia",14) If Not oGetCountriesByNameAsDic.Exists("Austria") Then Call oGetCountriesByNameAsDic.Add("Austria",15) If Not oGetCountriesByNameAsDic.Exists("Azerbaijan") Then Call oGetCountriesByNameAsDic.Add("Azerbaijan",16) If Not oGetCountriesByNameAsDic.Exists("Bahamas") Then Call oGetCountriesByNameAsDic.Add("Bahamas",17) If Not oGetCountriesByNameAsDic.Exists("Bahrain") Then Call oGetCountriesByNameAsDic.Add("Bahrain",18) If Not oGetCountriesByNameAsDic.Exists("Bangladesh") Then Call oGetCountriesByNameAsDic.Add("Bangladesh",19) If Not oGetCountriesByNameAsDic.Exists("Barbados") Then Call oGetCountriesByNameAsDic.Add("Barbados",20) If Not oGetCountriesByNameAsDic.Exists("Belarus") Then Call oGetCountriesByNameAsDic.Add("Belarus",21) If Not oGetCountriesByNameAsDic.Exists("Belgium") Then Call oGetCountriesByNameAsDic.Add("Belgium",22) If Not oGetCountriesByNameAsDic.Exists("Belize") Then Call oGetCountriesByNameAsDic.Add("Belize",23) If Not oGetCountriesByNameAsDic.Exists("Benin") Then Call oGetCountriesByNameAsDic.Add("Benin",24) If Not oGetCountriesByNameAsDic.Exists("Bermuda") Then Call oGetCountriesByNameAsDic.Add("Bermuda",25) If Not oGetCountriesByNameAsDic.Exists("Bhutan") Then Call oGetCountriesByNameAsDic.Add("Bhutan",26) If Not oGetCountriesByNameAsDic.Exists("Bolivia") Then Call oGetCountriesByNameAsDic.Add("Bolivia",27) If Not oGetCountriesByNameAsDic.Exists("Bosnia and Herzegovina") Then Call oGetCountriesByNameAsDic.Add("Bosnia and Herzegovina",28) If Not oGetCountriesByNameAsDic.Exists("Botswana") Then Call oGetCountriesByNameAsDic.Add("Botswana",29) If Not oGetCountriesByNameAsDic.Exists("Bouvet Island") Then Call oGetCountriesByNameAsDic.Add("Bouvet Island",30) If Not oGetCountriesByNameAsDic.Exists("Brazil") Then Call oGetCountriesByNameAsDic.Add("Brazil",31) If Not oGetCountriesByNameAsDic.Exists("British Indian Ocean Territory") Then Call oGetCountriesByNameAsDic.Add("British Indian Ocean Territory",32) If Not oGetCountriesByNameAsDic.Exists("Brunei Darussalam") Then Call oGetCountriesByNameAsDic.Add("Brunei Darussalam",33) If Not oGetCountriesByNameAsDic.Exists("Bulgaria") Then Call oGetCountriesByNameAsDic.Add("Bulgaria",34) If Not oGetCountriesByNameAsDic.Exists("Burkina Faso") Then Call oGetCountriesByNameAsDic.Add("Burkina Faso",35) If Not oGetCountriesByNameAsDic.Exists("Burundi") Then Call oGetCountriesByNameAsDic.Add("Burundi",36) If Not oGetCountriesByNameAsDic.Exists("Cambodia") Then Call oGetCountriesByNameAsDic.Add("Cambodia",37) If Not oGetCountriesByNameAsDic.Exists("Cameroon") Then Call oGetCountriesByNameAsDic.Add("Cameroon",38) If Not oGetCountriesByNameAsDic.Exists("Canada") Then Call oGetCountriesByNameAsDic.Add("Canada",39) If Not oGetCountriesByNameAsDic.Exists("Cape Verde") Then Call oGetCountriesByNameAsDic.Add("Cape Verde",40) If Not oGetCountriesByNameAsDic.Exists("Cayman Islands") Then Call oGetCountriesByNameAsDic.Add("Cayman Islands",41) If Not oGetCountriesByNameAsDic.Exists("Central African Republic") Then Call oGetCountriesByNameAsDic.Add("Central African Republic",42) If Not oGetCountriesByNameAsDic.Exists("Chad") Then Call oGetCountriesByNameAsDic.Add("Chad",43) If Not oGetCountriesByNameAsDic.Exists("Chile") Then Call oGetCountriesByNameAsDic.Add("Chile",44) If Not oGetCountriesByNameAsDic.Exists("China") Then Call oGetCountriesByNameAsDic.Add("China",45) If Not oGetCountriesByNameAsDic.Exists("Christmas Island") Then Call oGetCountriesByNameAsDic.Add("Christmas Island",46) If Not oGetCountriesByNameAsDic.Exists("Cocos (Keeling) Islands") Then Call oGetCountriesByNameAsDic.Add("Cocos (Keeling) Islands",47) If Not oGetCountriesByNameAsDic.Exists("Colombia") Then Call oGetCountriesByNameAsDic.Add("Colombia",48) If Not oGetCountriesByNameAsDic.Exists("Comoros") Then Call oGetCountriesByNameAsDic.Add("Comoros",49) If Not oGetCountriesByNameAsDic.Exists("Congo") Then Call oGetCountriesByNameAsDic.Add("Congo",50) If Not oGetCountriesByNameAsDic.Exists("Congo, Democratic Republic of the") Then Call oGetCountriesByNameAsDic.Add("Congo, Democratic Republic of the",51) If Not oGetCountriesByNameAsDic.Exists("Cook Islands") Then Call oGetCountriesByNameAsDic.Add("Cook Islands",52) If Not oGetCountriesByNameAsDic.Exists("Costa Rica") Then Call oGetCountriesByNameAsDic.Add("Costa Rica",53) If Not oGetCountriesByNameAsDic.Exists("Cote d\'Ivoire Cte d\'Ivoire") Then Call oGetCountriesByNameAsDic.Add("Cote d\'Ivoire Cte d\'Ivoire",54) If Not oGetCountriesByNameAsDic.Exists("Croatia") Then Call oGetCountriesByNameAsDic.Add("Croatia",55) If Not oGetCountriesByNameAsDic.Exists("Cuba") Then Call oGetCountriesByNameAsDic.Add("Cuba",56) If Not oGetCountriesByNameAsDic.Exists("Cyprus") Then Call oGetCountriesByNameAsDic.Add("Cyprus",57) If Not oGetCountriesByNameAsDic.Exists("Czech Republic") Then Call oGetCountriesByNameAsDic.Add("Czech Republic",58) If Not oGetCountriesByNameAsDic.Exists("Denmark") Then Call oGetCountriesByNameAsDic.Add("Denmark",59) If Not oGetCountriesByNameAsDic.Exists("Djibouti") Then Call oGetCountriesByNameAsDic.Add("Djibouti",60) If Not oGetCountriesByNameAsDic.Exists("Dominica") Then Call oGetCountriesByNameAsDic.Add("Dominica",61) If Not oGetCountriesByNameAsDic.Exists("Dominican Republic") Then Call oGetCountriesByNameAsDic.Add("Dominican Republic",62) If Not oGetCountriesByNameAsDic.Exists("Ecuador") Then Call oGetCountriesByNameAsDic.Add("Ecuador",63) If Not oGetCountriesByNameAsDic.Exists("Egypt") Then Call oGetCountriesByNameAsDic.Add("Egypt",64) If Not oGetCountriesByNameAsDic.Exists("El Salvador") Then Call oGetCountriesByNameAsDic.Add("El Salvador",65) If Not oGetCountriesByNameAsDic.Exists("Equatorial Guinea") Then Call oGetCountriesByNameAsDic.Add("Equatorial Guinea",66) If Not oGetCountriesByNameAsDic.Exists("Eritrea") Then Call oGetCountriesByNameAsDic.Add("Eritrea",67) If Not oGetCountriesByNameAsDic.Exists("Estonia") Then Call oGetCountriesByNameAsDic.Add("Estonia",68) If Not oGetCountriesByNameAsDic.Exists("Ethiopia") Then Call oGetCountriesByNameAsDic.Add("Ethiopia",69) If Not oGetCountriesByNameAsDic.Exists("Falkland Islands (Malvinas)") Then Call oGetCountriesByNameAsDic.Add("Falkland Islands (Malvinas)",70) If Not oGetCountriesByNameAsDic.Exists("Faroe Islands") Then Call oGetCountriesByNameAsDic.Add("Faroe Islands",71) If Not oGetCountriesByNameAsDic.Exists("Fiji") Then Call oGetCountriesByNameAsDic.Add("Fiji",72) If Not oGetCountriesByNameAsDic.Exists("Finland") Then Call oGetCountriesByNameAsDic.Add("Finland",73) If Not oGetCountriesByNameAsDic.Exists("France") Then Call oGetCountriesByNameAsDic.Add("France",74) If Not oGetCountriesByNameAsDic.Exists("French Guiana") Then Call oGetCountriesByNameAsDic.Add("French Guiana",75) If Not oGetCountriesByNameAsDic.Exists("French Polynesia") Then Call oGetCountriesByNameAsDic.Add("French Polynesia",76) If Not oGetCountriesByNameAsDic.Exists("French Southern Territories") Then Call oGetCountriesByNameAsDic.Add("French Southern Territories",77) If Not oGetCountriesByNameAsDic.Exists("Gabon") Then Call oGetCountriesByNameAsDic.Add("Gabon",78) If Not oGetCountriesByNameAsDic.Exists("Gambia") Then Call oGetCountriesByNameAsDic.Add("Gambia",79) If Not oGetCountriesByNameAsDic.Exists("Georgia") Then Call oGetCountriesByNameAsDic.Add("Georgia",80) If Not oGetCountriesByNameAsDic.Exists("Germany") Then Call oGetCountriesByNameAsDic.Add("Germany",81) If Not oGetCountriesByNameAsDic.Exists("Ghana") Then Call oGetCountriesByNameAsDic.Add("Ghana",82) If Not oGetCountriesByNameAsDic.Exists("Gibraltar") Then Call oGetCountriesByNameAsDic.Add("Gibraltar",83) If Not oGetCountriesByNameAsDic.Exists("Greece") Then Call oGetCountriesByNameAsDic.Add("Greece",84) If Not oGetCountriesByNameAsDic.Exists("Greenland") Then Call oGetCountriesByNameAsDic.Add("Greenland",85) If Not oGetCountriesByNameAsDic.Exists("Grenada") Then Call oGetCountriesByNameAsDic.Add("Grenada",86) If Not oGetCountriesByNameAsDic.Exists("Guadeloupe") Then Call oGetCountriesByNameAsDic.Add("Guadeloupe",87) If Not oGetCountriesByNameAsDic.Exists("Guam") Then Call oGetCountriesByNameAsDic.Add("Guam",88) If Not oGetCountriesByNameAsDic.Exists("Guatemala") Then Call oGetCountriesByNameAsDic.Add("Guatemala",89) If Not oGetCountriesByNameAsDic.Exists("Guernsey") Then Call oGetCountriesByNameAsDic.Add("Guernsey",90) If Not oGetCountriesByNameAsDic.Exists("Guinea") Then Call oGetCountriesByNameAsDic.Add("Guinea",91) If Not oGetCountriesByNameAsDic.Exists("Guinea-Bissau") Then Call oGetCountriesByNameAsDic.Add("Guinea-Bissau",92) If Not oGetCountriesByNameAsDic.Exists("Guyana") Then Call oGetCountriesByNameAsDic.Add("Guyana",93) If Not oGetCountriesByNameAsDic.Exists("Haiti") Then Call oGetCountriesByNameAsDic.Add("Haiti",94) If Not oGetCountriesByNameAsDic.Exists("Heard Island and McDonald Islands") Then Call oGetCountriesByNameAsDic.Add("Heard Island and McDonald Islands",95) If Not oGetCountriesByNameAsDic.Exists("Holy See (Vatican City State)") Then Call oGetCountriesByNameAsDic.Add("Holy See (Vatican City State)",96) If Not oGetCountriesByNameAsDic.Exists("Honduras") Then Call oGetCountriesByNameAsDic.Add("Honduras",97) If Not oGetCountriesByNameAsDic.Exists("Hong Kong") Then Call oGetCountriesByNameAsDic.Add("Hong Kong",98) If Not oGetCountriesByNameAsDic.Exists("Hungary") Then Call oGetCountriesByNameAsDic.Add("Hungary",99) If Not oGetCountriesByNameAsDic.Exists("Iceland") Then Call oGetCountriesByNameAsDic.Add("Iceland",100) If Not oGetCountriesByNameAsDic.Exists("India") Then Call oGetCountriesByNameAsDic.Add("India",101) If Not oGetCountriesByNameAsDic.Exists("Indonesia") Then Call oGetCountriesByNameAsDic.Add("Indonesia",102) If Not oGetCountriesByNameAsDic.Exists("Iran, Islamic Republic of") Then Call oGetCountriesByNameAsDic.Add("Iran, Islamic Republic of",103) If Not oGetCountriesByNameAsDic.Exists("Iraq") Then Call oGetCountriesByNameAsDic.Add("Iraq",104) If Not oGetCountriesByNameAsDic.Exists("Ireland") Then Call oGetCountriesByNameAsDic.Add("Ireland",105) If Not oGetCountriesByNameAsDic.Exists("Isle of Man") Then Call oGetCountriesByNameAsDic.Add("Isle of Man",106) If Not oGetCountriesByNameAsDic.Exists("Israel") Then Call oGetCountriesByNameAsDic.Add("Israel",107) If Not oGetCountriesByNameAsDic.Exists("Italy") Then Call oGetCountriesByNameAsDic.Add("Italy",108) If Not oGetCountriesByNameAsDic.Exists("Jamaica") Then Call oGetCountriesByNameAsDic.Add("Jamaica",109) If Not oGetCountriesByNameAsDic.Exists("Japan") Then Call oGetCountriesByNameAsDic.Add("Japan",110) If Not oGetCountriesByNameAsDic.Exists("Jersey") Then Call oGetCountriesByNameAsDic.Add("Jersey",111) If Not oGetCountriesByNameAsDic.Exists("Jordan") Then Call oGetCountriesByNameAsDic.Add("Jordan",112) If Not oGetCountriesByNameAsDic.Exists("Kazakhstan") Then Call oGetCountriesByNameAsDic.Add("Kazakhstan",113) If Not oGetCountriesByNameAsDic.Exists("Kenya") Then Call oGetCountriesByNameAsDic.Add("Kenya",114) If Not oGetCountriesByNameAsDic.Exists("Kiribati") Then Call oGetCountriesByNameAsDic.Add("Kiribati",115) If Not oGetCountriesByNameAsDic.Exists("Korea, Democratic People\'s Republic of") Then Call oGetCountriesByNameAsDic.Add("Korea, Democratic People\'s Republic of",116) If Not oGetCountriesByNameAsDic.Exists("Korea, Republic of") Then Call oGetCountriesByNameAsDic.Add("Korea, Republic of",117) If Not oGetCountriesByNameAsDic.Exists("Kuwait") Then Call oGetCountriesByNameAsDic.Add("Kuwait",118) If Not oGetCountriesByNameAsDic.Exists("Kyrgyzstan") Then Call oGetCountriesByNameAsDic.Add("Kyrgyzstan",119) If Not oGetCountriesByNameAsDic.Exists("Lao People\'s Democratic Republic") Then Call oGetCountriesByNameAsDic.Add("Lao People\'s Democratic Republic",120) If Not oGetCountriesByNameAsDic.Exists("Latvia") Then Call oGetCountriesByNameAsDic.Add("Latvia",121) If Not oGetCountriesByNameAsDic.Exists("Lebanon") Then Call oGetCountriesByNameAsDic.Add("Lebanon",122) If Not oGetCountriesByNameAsDic.Exists("Lesotho") Then Call oGetCountriesByNameAsDic.Add("Lesotho",123) If Not oGetCountriesByNameAsDic.Exists("Liberia") Then Call oGetCountriesByNameAsDic.Add("Liberia",124) If Not oGetCountriesByNameAsDic.Exists("Libyan Arab Jamahiriya") Then Call oGetCountriesByNameAsDic.Add("Libyan Arab Jamahiriya",125) If Not oGetCountriesByNameAsDic.Exists("Liechtenstein") Then Call oGetCountriesByNameAsDic.Add("Liechtenstein",126) If Not oGetCountriesByNameAsDic.Exists("Lithuania") Then Call oGetCountriesByNameAsDic.Add("Lithuania",127) If Not oGetCountriesByNameAsDic.Exists("Luxembourg") Then Call oGetCountriesByNameAsDic.Add("Luxembourg",128) If Not oGetCountriesByNameAsDic.Exists("Macao") Then Call oGetCountriesByNameAsDic.Add("Macao",129) If Not oGetCountriesByNameAsDic.Exists("Macedonia, the former Yugoslav Republic of") Then Call oGetCountriesByNameAsDic.Add("Macedonia, the former Yugoslav Republic of",130) If Not oGetCountriesByNameAsDic.Exists("Madagascar") Then Call oGetCountriesByNameAsDic.Add("Madagascar",131) If Not oGetCountriesByNameAsDic.Exists("Malawi") Then Call oGetCountriesByNameAsDic.Add("Malawi",132) If Not oGetCountriesByNameAsDic.Exists("Malaysia") Then Call oGetCountriesByNameAsDic.Add("Malaysia",133) If Not oGetCountriesByNameAsDic.Exists("Maldives") Then Call oGetCountriesByNameAsDic.Add("Maldives",134) If Not oGetCountriesByNameAsDic.Exists("Mali") Then Call oGetCountriesByNameAsDic.Add("Mali",135) If Not oGetCountriesByNameAsDic.Exists("Malta") Then Call oGetCountriesByNameAsDic.Add("Malta",136) If Not oGetCountriesByNameAsDic.Exists("Marshall Islands") Then Call oGetCountriesByNameAsDic.Add("Marshall Islands",137) If Not oGetCountriesByNameAsDic.Exists("Martinique") Then Call oGetCountriesByNameAsDic.Add("Martinique",138) If Not oGetCountriesByNameAsDic.Exists("Mauritania") Then Call oGetCountriesByNameAsDic.Add("Mauritania",139) If Not oGetCountriesByNameAsDic.Exists("Mauritius") Then Call oGetCountriesByNameAsDic.Add("Mauritius",140) If Not oGetCountriesByNameAsDic.Exists("Mayotte") Then Call oGetCountriesByNameAsDic.Add("Mayotte",141) If Not oGetCountriesByNameAsDic.Exists("Mexico") Then Call oGetCountriesByNameAsDic.Add("Mexico",142) If Not oGetCountriesByNameAsDic.Exists("Micronesia, Federated States of") Then Call oGetCountriesByNameAsDic.Add("Micronesia, Federated States of",143) If Not oGetCountriesByNameAsDic.Exists("Moldova, Republic of") Then Call oGetCountriesByNameAsDic.Add("Moldova, Republic of",144) If Not oGetCountriesByNameAsDic.Exists("Monaco") Then Call oGetCountriesByNameAsDic.Add("Monaco",145) If Not oGetCountriesByNameAsDic.Exists("Mongolia") Then Call oGetCountriesByNameAsDic.Add("Mongolia",146) If Not oGetCountriesByNameAsDic.Exists("Montenegro") Then Call oGetCountriesByNameAsDic.Add("Montenegro",147) If Not oGetCountriesByNameAsDic.Exists("Montserrat") Then Call oGetCountriesByNameAsDic.Add("Montserrat",148) If Not oGetCountriesByNameAsDic.Exists("Morocco") Then Call oGetCountriesByNameAsDic.Add("Morocco",149) If Not oGetCountriesByNameAsDic.Exists("Mozambique") Then Call oGetCountriesByNameAsDic.Add("Mozambique",150) If Not oGetCountriesByNameAsDic.Exists("Myanmar") Then Call oGetCountriesByNameAsDic.Add("Myanmar",151) If Not oGetCountriesByNameAsDic.Exists("Namibia") Then Call oGetCountriesByNameAsDic.Add("Namibia",152) If Not oGetCountriesByNameAsDic.Exists("Nauru") Then Call oGetCountriesByNameAsDic.Add("Nauru",153) If Not oGetCountriesByNameAsDic.Exists("Nepal") Then Call oGetCountriesByNameAsDic.Add("Nepal",154) If Not oGetCountriesByNameAsDic.Exists("Netherlands") Then Call oGetCountriesByNameAsDic.Add("Netherlands",155) If Not oGetCountriesByNameAsDic.Exists("Netherlands Antilles") Then Call oGetCountriesByNameAsDic.Add("Netherlands Antilles",156) If Not oGetCountriesByNameAsDic.Exists("New Caledonia") Then Call oGetCountriesByNameAsDic.Add("New Caledonia",157) If Not oGetCountriesByNameAsDic.Exists("New Zealand") Then Call oGetCountriesByNameAsDic.Add("New Zealand",158) If Not oGetCountriesByNameAsDic.Exists("Nicaragua") Then Call oGetCountriesByNameAsDic.Add("Nicaragua",159) If Not oGetCountriesByNameAsDic.Exists("Niger") Then Call oGetCountriesByNameAsDic.Add("Niger",160) If Not oGetCountriesByNameAsDic.Exists("Nigeria") Then Call oGetCountriesByNameAsDic.Add("Nigeria",161) If Not oGetCountriesByNameAsDic.Exists("Niue") Then Call oGetCountriesByNameAsDic.Add("Niue",162) If Not oGetCountriesByNameAsDic.Exists("Norfolk Island") Then Call oGetCountriesByNameAsDic.Add("Norfolk Island",163) If Not oGetCountriesByNameAsDic.Exists("Northern Mariana Islands") Then Call oGetCountriesByNameAsDic.Add("Northern Mariana Islands",164) If Not oGetCountriesByNameAsDic.Exists("Norway") Then Call oGetCountriesByNameAsDic.Add("Norway",165) If Not oGetCountriesByNameAsDic.Exists("Oman") Then Call oGetCountriesByNameAsDic.Add("Oman",166) If Not oGetCountriesByNameAsDic.Exists("Pakistan") Then Call oGetCountriesByNameAsDic.Add("Pakistan",167) If Not oGetCountriesByNameAsDic.Exists("Palau") Then Call oGetCountriesByNameAsDic.Add("Palau",168) If Not oGetCountriesByNameAsDic.Exists("Palestinian Territory, Occupied") Then Call oGetCountriesByNameAsDic.Add("Palestinian Territory, Occupied",169) If Not oGetCountriesByNameAsDic.Exists("Panama") Then Call oGetCountriesByNameAsDic.Add("Panama",170) If Not oGetCountriesByNameAsDic.Exists("Papua New Guinea") Then Call oGetCountriesByNameAsDic.Add("Papua New Guinea",171) If Not oGetCountriesByNameAsDic.Exists("Paraguay") Then Call oGetCountriesByNameAsDic.Add("Paraguay",172) If Not oGetCountriesByNameAsDic.Exists("Peru") Then Call oGetCountriesByNameAsDic.Add("Peru",173) If Not oGetCountriesByNameAsDic.Exists("Philippines") Then Call oGetCountriesByNameAsDic.Add("Philippines",174) If Not oGetCountriesByNameAsDic.Exists("Pitcairn") Then Call oGetCountriesByNameAsDic.Add("Pitcairn",175) If Not oGetCountriesByNameAsDic.Exists("Poland") Then Call oGetCountriesByNameAsDic.Add("Poland",176) If Not oGetCountriesByNameAsDic.Exists("Portugal") Then Call oGetCountriesByNameAsDic.Add("Portugal",177) If Not oGetCountriesByNameAsDic.Exists("Puerto Rico") Then Call oGetCountriesByNameAsDic.Add("Puerto Rico",178) If Not oGetCountriesByNameAsDic.Exists("Qatar") Then Call oGetCountriesByNameAsDic.Add("Qatar",179) If Not oGetCountriesByNameAsDic.Exists("Reunion Runion") Then Call oGetCountriesByNameAsDic.Add("Reunion Runion",180) If Not oGetCountriesByNameAsDic.Exists("Romania") Then Call oGetCountriesByNameAsDic.Add("Romania",181) If Not oGetCountriesByNameAsDic.Exists("Russian Federation") Then Call oGetCountriesByNameAsDic.Add("Russian Federation",182) If Not oGetCountriesByNameAsDic.Exists("Rwanda") Then Call oGetCountriesByNameAsDic.Add("Rwanda",183) If Not oGetCountriesByNameAsDic.Exists("Saint Barthlemy") Then Call oGetCountriesByNameAsDic.Add("Saint Barthlemy",184) If Not oGetCountriesByNameAsDic.Exists("Saint Helena") Then Call oGetCountriesByNameAsDic.Add("Saint Helena",185) If Not oGetCountriesByNameAsDic.Exists("Saint Kitts and Nevis") Then Call oGetCountriesByNameAsDic.Add("Saint Kitts and Nevis",186) If Not oGetCountriesByNameAsDic.Exists("Saint Lucia") Then Call oGetCountriesByNameAsDic.Add("Saint Lucia",187) If Not oGetCountriesByNameAsDic.Exists("Saint Martin (French part)") Then Call oGetCountriesByNameAsDic.Add("Saint Martin (French part)",188) If Not oGetCountriesByNameAsDic.Exists("Saint Pierre and Miquelon") Then Call oGetCountriesByNameAsDic.Add("Saint Pierre and Miquelon",189) If Not oGetCountriesByNameAsDic.Exists("Saint Vincent and the Grenadines") Then Call oGetCountriesByNameAsDic.Add("Saint Vincent and the Grenadines",190) If Not oGetCountriesByNameAsDic.Exists("Samoa") Then Call oGetCountriesByNameAsDic.Add("Samoa",191) If Not oGetCountriesByNameAsDic.Exists("San Marino") Then Call oGetCountriesByNameAsDic.Add("San Marino",192) If Not oGetCountriesByNameAsDic.Exists("Sao Tome and Principe") Then Call oGetCountriesByNameAsDic.Add("Sao Tome and Principe",193) If Not oGetCountriesByNameAsDic.Exists("Saudi Arabia") Then Call oGetCountriesByNameAsDic.Add("Saudi Arabia",194) If Not oGetCountriesByNameAsDic.Exists("Senegal") Then Call oGetCountriesByNameAsDic.Add("Senegal",195) If Not oGetCountriesByNameAsDic.Exists("Serbia") Then Call oGetCountriesByNameAsDic.Add("Serbia",196) If Not oGetCountriesByNameAsDic.Exists("Seychelles") Then Call oGetCountriesByNameAsDic.Add("Seychelles",197) If Not oGetCountriesByNameAsDic.Exists("Sierra Leone") Then Call oGetCountriesByNameAsDic.Add("Sierra Leone",198) If Not oGetCountriesByNameAsDic.Exists("Singapore") Then Call oGetCountriesByNameAsDic.Add("Singapore",199) If Not oGetCountriesByNameAsDic.Exists("Slovakia") Then Call oGetCountriesByNameAsDic.Add("Slovakia",200) If Not oGetCountriesByNameAsDic.Exists("Slovenia") Then Call oGetCountriesByNameAsDic.Add("Slovenia",201) If Not oGetCountriesByNameAsDic.Exists("Solomon Islands") Then Call oGetCountriesByNameAsDic.Add("Solomon Islands",202) If Not oGetCountriesByNameAsDic.Exists("Somalia") Then Call oGetCountriesByNameAsDic.Add("Somalia",203) If Not oGetCountriesByNameAsDic.Exists("South Africa") Then Call oGetCountriesByNameAsDic.Add("South Africa",204) If Not oGetCountriesByNameAsDic.Exists("South Georgia and the South Sandwich Islands") Then Call oGetCountriesByNameAsDic.Add("South Georgia and the South Sandwich Islands",205) If Not oGetCountriesByNameAsDic.Exists("Spain") Then Call oGetCountriesByNameAsDic.Add("Spain",206) If Not oGetCountriesByNameAsDic.Exists("Sri Lanka") Then Call oGetCountriesByNameAsDic.Add("Sri Lanka",207) If Not oGetCountriesByNameAsDic.Exists("Sudan") Then Call oGetCountriesByNameAsDic.Add("Sudan",208) If Not oGetCountriesByNameAsDic.Exists("Suriname") Then Call oGetCountriesByNameAsDic.Add("Suriname",209) If Not oGetCountriesByNameAsDic.Exists("Svalbard and Jan Mayen") Then Call oGetCountriesByNameAsDic.Add("Svalbard and Jan Mayen",210) If Not oGetCountriesByNameAsDic.Exists("Swaziland") Then Call oGetCountriesByNameAsDic.Add("Swaziland",211) If Not oGetCountriesByNameAsDic.Exists("Sweden") Then Call oGetCountriesByNameAsDic.Add("Sweden",212) If Not oGetCountriesByNameAsDic.Exists("Switzerland") Then Call oGetCountriesByNameAsDic.Add("Switzerland",213) If Not oGetCountriesByNameAsDic.Exists("Syrian Arab Republic") Then Call oGetCountriesByNameAsDic.Add("Syrian Arab Republic",214) If Not oGetCountriesByNameAsDic.Exists("Taiwan, Province of China") Then Call oGetCountriesByNameAsDic.Add("Taiwan, Province of China",215) If Not oGetCountriesByNameAsDic.Exists("Tajikistan") Then Call oGetCountriesByNameAsDic.Add("Tajikistan",216) If Not oGetCountriesByNameAsDic.Exists("Tanzania, United Republic of") Then Call oGetCountriesByNameAsDic.Add("Tanzania, United Republic of",217) If Not oGetCountriesByNameAsDic.Exists("Thailand") Then Call oGetCountriesByNameAsDic.Add("Thailand",218) If Not oGetCountriesByNameAsDic.Exists("Timor-Leste") Then Call oGetCountriesByNameAsDic.Add("Timor-Leste",219) If Not oGetCountriesByNameAsDic.Exists("Togo") Then Call oGetCountriesByNameAsDic.Add("Togo",220) If Not oGetCountriesByNameAsDic.Exists("Tokelau") Then Call oGetCountriesByNameAsDic.Add("Tokelau",221) If Not oGetCountriesByNameAsDic.Exists("Tonga") Then Call oGetCountriesByNameAsDic.Add("Tonga",222) If Not oGetCountriesByNameAsDic.Exists("Trinidad and Tobago") Then Call oGetCountriesByNameAsDic.Add("Trinidad and Tobago",223) If Not oGetCountriesByNameAsDic.Exists("Tunisia") Then Call oGetCountriesByNameAsDic.Add("Tunisia",224) If Not oGetCountriesByNameAsDic.Exists("Turkey") Then Call oGetCountriesByNameAsDic.Add("Turkey",225) If Not oGetCountriesByNameAsDic.Exists("Turkmenistan") Then Call oGetCountriesByNameAsDic.Add("Turkmenistan",226) If Not oGetCountriesByNameAsDic.Exists("Turks and Caicos Islands") Then Call oGetCountriesByNameAsDic.Add("Turks and Caicos Islands",227) If Not oGetCountriesByNameAsDic.Exists("Tuvalu") Then Call oGetCountriesByNameAsDic.Add("Tuvalu",228) If Not oGetCountriesByNameAsDic.Exists("Uganda") Then Call oGetCountriesByNameAsDic.Add("Uganda",229) If Not oGetCountriesByNameAsDic.Exists("Ukraine") Then Call oGetCountriesByNameAsDic.Add("Ukraine",230) If Not oGetCountriesByNameAsDic.Exists("United Arab Emirates") Then Call oGetCountriesByNameAsDic.Add("United Arab Emirates",231) If Not oGetCountriesByNameAsDic.Exists("United Kingdom") Then Call oGetCountriesByNameAsDic.Add("United Kingdom",232) If Not oGetCountriesByNameAsDic.Exists("United States") Then Call oGetCountriesByNameAsDic.Add("United States",233) If Not oGetCountriesByNameAsDic.Exists("United States Minor Outlying Islands") Then Call oGetCountriesByNameAsDic.Add("United States Minor Outlying Islands",234) If Not oGetCountriesByNameAsDic.Exists("Uruguay") Then Call oGetCountriesByNameAsDic.Add("Uruguay",235) If Not oGetCountriesByNameAsDic.Exists("Uzbekistan") Then Call oGetCountriesByNameAsDic.Add("Uzbekistan",236) If Not oGetCountriesByNameAsDic.Exists("Vanuatu") Then Call oGetCountriesByNameAsDic.Add("Vanuatu",237) If Not oGetCountriesByNameAsDic.Exists("Venezuela") Then Call oGetCountriesByNameAsDic.Add("Venezuela",238) If Not oGetCountriesByNameAsDic.Exists("Viet Nam") Then Call oGetCountriesByNameAsDic.Add("Viet Nam",239) If Not oGetCountriesByNameAsDic.Exists("Virgin Islands, British") Then Call oGetCountriesByNameAsDic.Add("Virgin Islands, British",240) If Not oGetCountriesByNameAsDic.Exists("Virgin Islands, U.S.") Then Call oGetCountriesByNameAsDic.Add("Virgin Islands, U.S.",241) If Not oGetCountriesByNameAsDic.Exists("Wallis and Futuna") Then Call oGetCountriesByNameAsDic.Add("Wallis and Futuna",242) If Not oGetCountriesByNameAsDic.Exists("Western Sahara") Then Call oGetCountriesByNameAsDic.Add("Western Sahara",243) If Not oGetCountriesByNameAsDic.Exists("Yemen") Then Call oGetCountriesByNameAsDic.Add("Yemen",244) If Not oGetCountriesByNameAsDic.Exists("Zambia") Then Call oGetCountriesByNameAsDic.Add("Zambia",245) If Not oGetCountriesByNameAsDic.Exists("Zimbabwe") Then Call oGetCountriesByNameAsDic.Add("Zimbabwe",246) End Function 'oGetCountriesByNameAsDic() '------------------------------------------------------------------------------- 'Page 2 - Tab2 '------------------------------------------------------------------------------- 'Page 3 - Tab3 '------------------------------------------------------------------------------- ' General control helper functions Function iComboBoxItemValueIdx(ByVal oComboBox, ByVal sItem) 'Returns the Value index of sItem if it exists in oComboBox, 'otherwise the value -1 if sItem not found. 'Note that .Value is 0 to to oComboBox.Items.Count - 1 'and .Items are from 1 to oComboBox.Items.Count iComboBoxItemValueIdx = -1 If oComboBox Is Nothing Then Exit Function Dim i For i = 1 To oComboBox.Items.Count If oComboBox.Items.Item(i).Text = sItem Then 'Call LogFileWrite(vbTab & "i = " & i & vbTab & oComboBox.Items(i).Text) iComboBoxItemValueIdx = i-1 Exit For End If Next 'i End Function 'iComboBoxItemValueIdx() Function bInitComboBox(ByVal oComboBox, ByVal sXmlFilePath, ByVal sXpath) 'Initialize the ComboBox control oComboBox using the values in file sXmlFilePath 'specified by the xPath sXpath. bInitComboBox = False If oComboBox Is Nothing Then Exit Function If Not FileExist(sXmlFilePath) Then Call LogFileWrite(" ERROR - xml file path does not exist '" & sXmlFilePath & "'") Exit Function End If If len(sXpath) = 0 Then Exit Function Dim xmlDoc, oNode, i Set xmlDoc = CreateObject("Microsoft.XMLDOM") xmlDoc.Async = "false" If Not xmlDoc.Load(sXmlFilePath) Then Call LogFileWrite(vbTab & "ERROR - Fn bInitComboBox() was unable to load file '" & sXmlFilePath & "'") Exit Function End If If xmlDoc.selectNodes(sXpath).Length = 0 Then Exit Function i = 0 For Each oNode In xmlDoc.selectNodes(sXpath) Call oComboBox.Items.Add(SF_RemoveNonPrt(oNode.firstChild.text),i) i = i + 1 Next If oComboBox.Items.Count > 0 Then bInitComboBox = True Set xmlDoc = Nothing: Set oNode = Nothing End Function 'bInitComboBox() '------------------------------------------------------------------------------- &dqͺͺ ToBtnRteObͺbtn_Done`ͺͺͺ1ͺ1ͺͺͺͺͺͺ0.0ͺ0.0ͺͺͺͺͺDoneͺͺͺͺͺbtn_Done_EventClickͺͺͺͺbtn_ResetAllFormsͺͺͺ1ͺ1ͺͺͺͺͺͺ0.0ͺ0.0ͺͺͺͺͺ Reset formͺͺͺͺ ͺbtn_ResetAllForms_EventClickͺͺͺͺ btn_NextPageK}ͺͺͺ1ͺ1ͺͺͺͺͺͺ0.0ͺ0.0ͺͺͺͺͺNextͺͺͺͺ ͺbtn_NextPage_EventClickͺͺͺͺ btn_PrevPageAͺͺͺ1ͺ1ͺͺͺͺͺͺ0.0ͺ0.0ͺͺͺͺͺPreviousͺͺͺͺ ͺbtn_PrevPage_EventClickͺͺͺ ToTabPageCtrlͺ TabPageCtrl1 ͺͺͺ1ͺ1ͺͺͺͺͺͺ0.0ͺ0.0ͺͺͺͺͺͺͺͺͺ ToComboRtͺtest_loc_country_Boxayͺͺ test_loc_country_Box_EventChange'The country where the data was recordedͺ1ͺ1ͺ$test_loc_country_Box_EventInitializeͺͺͺͺͺ0.0ͺ0.0ͺͺͺͺͺͺ ͺhͺͺͺͺͺͺͺͺ ToEditCtrlObͺ notes_Box`Ppͺͺͺ1ͺ1ͺͺͺͺͺͺ0.0ͺ0.0ͺͺͺͺͺͺhͺ@ͺͺͺ ͺ test_year_Boxa+ͺͺtest_year_Box_EventChangeͺ1ͺ1ͺtest_year_Box_EventInitializeͺͺͺͺͺ0.0ͺ0.0ͺͺͺͺͺͺ ͺhͺͺͺͺͺͺͺͺ ToListBoxRtͺListBoxFolderContents2ͺͺͺ1ͺ1ͺͺͺͺͺͺ0.0ͺ0.0ͺͺͺͺͺͺ ͺͺh?ͺͺͺͺͺͺͺbtn_SelectSrcFolderDͺͺͺ1ͺ1ͺͺͺͺͺͺ0.0ͺ0.0ͺͺͺͺͺ Select folderͺͺͺͺ ͺbtn_SelectSrcFolder_EventClickͺͺͺToStaticCtrlRtͺtest_loc_country_Lblw[ͺͺ'The country where the data was recordedͺ1ͺ1ͺͺͺccͺccͺccͺccͺͺͺͺͺ0.0ͺ0.0ͺͺͺͺͺcͺtest_loc_countryͺͺͺhͺͺͺͺͺ notes_LblPV^ͺͺͺ1ͺ1ͺͺͺccͺccͺccͺccͺͺͺͺͺ0.0ͺ0.0ͺͺͺͺͺcͺnotesͺͺͺhͺͺͺͺͺ test_year_LblV+ͺͺͺ1ͺ1ͺͺͺccͺccͺccͺccͺͺͺͺͺ0.0ͺ0.0ͺͺͺͺͺcͺ test_yearͺͺͺhͺͺͺͺͺfolderContents_Lbl 4-ͺͺͺ1ͺ1ͺͺͺccͺccͺccͺccͺͺͺͺͺ0.0ͺ0.0ͺͺͺͺͺcͺFolder contents:ͺͺͺhͺͺͺͺͺTextSourceFolderKͺͺͺ1ͺ1ͺͺͺccͺccͺccͺccͺͺͺͺͺ0.0ͺ0.0ͺͺͺͺͺcͺTextSourceFolderͺͺͺOͺͺͺͺToTabPageViewObͺ?Xͺͺͺͺ'------------------------------------------------------------------------------- '-- SUD script file '-- Created on 09/30/2015 12:48:02 '-- Author: '-- Comment: '------------------------------------------------------------------------------- Option Explicit 'Forces the explicit declaration of all the variables in a script. 'Note: In this area area you can program auxiliary variables and functions that you can use in the entire dialog box. ͺStep1ͺDefaultͺͺͺͺͺ0.0ͺ0.0ͺ0.0ͺͺͺͺͺͺͺͺͺͺͺͺͺTab1ͺͺ1ͺ1ͺͺͺ?^ͺͺͺͺ'------------------------------------------------------------------------------- '-- SUD script file '-- Created on 09/30/2015 12:48:02 '-- Author: '-- Comment: '------------------------------------------------------------------------------- Option Explicit 'Forces the explicit declaration of all the variables in a script. 'Note: In this area area you can program auxiliary variables and functions that you can use in the entire dialog box. ͺPage2ͺDefaultͺͺͺͺͺ0.0ͺ0.0ͺ0.0ͺͺͺͺͺͺͺͺͺͺͺͺͺTab2ͺͺ1ͺ1ͺͺͺ?Xͺͺͺͺ'------------------------------------------------------------------------------- '-- SUD script file '-- Created on 09/30/2015 12:48:02 '-- Author: '-- Comment: '------------------------------------------------------------------------------- Option Explicit 'Forces the explicit declaration of all the variables in a script. 'Note: In this area area you can program auxiliary variables and functions that you can use in the entire dialog box. ͺPage3ͺDefaultͺͺͺͺͺ0.0ͺ0.0ͺ0.0ͺͺͺͺͺͺͺͺͺͺͺͺͺTab3ͺͺ1ͺ1ͺ btn_canceljͺͺͺ1ͺ1ͺͺͺͺͺͺ0.0ͺ0.0ͺͺͺͺͺCancelͺͺͺͺͺbtn_cancel_EventClickͺͺͺ ToSudViewObͺ?XͺDialog_EventInitializeͺDialog_EventTerminateͺͺ(Declarations)ͺ DlgContribͺDefaultͺͺͺͺͺ0.0ͺ0.0ͺ0.0ͺͺͺͺͺͺͺͺͺͺͺ