Migrate build 8.1 from old community site

LICENSE.md

@@ -0,0 +1,22 @@
+
+The MIT License (MIT)
+
+Copyright (c) 2017 Aras Corporation
+
+Permission is hereby granted, free of charge, to any person obtaining a copy
+of this software and associated documentation files (the "Software"), to deal
+in the Software without restriction, including without limitation the rights
+to use, copy, modify, merge, publish, distribute, sublicense, and/or sell
+copies of the Software, and to permit persons to whom the Software is
+furnished to do so, subject to the following conditions:
+
+The above copyright notice and this permission notice shall be included in all
+copies or substantial portions of the Software.
+
+THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR
+IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY,
+FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE
+AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER
+LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM,
+OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN THE
+SOFTWARE.

Source/ARAS SendTo.sln

@@ -0,0 +1,20 @@
+
+Microsoft Visual Studio Solution File, Format Version 9.00
+# Visual Studio 2005
+Project("{F184B08F-C81C-45F6-A57F-5ABD9991F28F}") = "ARAS SendTo", "ARAS SendTo\ARAS SendTo.vbproj", "{C81A8B15-9C2C-4F6E-BAEC-9FFF952C5F02}"
+EndProject
+Global
+	GlobalSection(SolutionConfigurationPlatforms) = preSolution
+		Debug|Any CPU = Debug|Any CPU
+		Release|Any CPU = Release|Any CPU
+	EndGlobalSection
+	GlobalSection(ProjectConfigurationPlatforms) = postSolution
+		{C81A8B15-9C2C-4F6E-BAEC-9FFF952C5F02}.Debug|Any CPU.ActiveCfg = Debug|Any CPU
+		{C81A8B15-9C2C-4F6E-BAEC-9FFF952C5F02}.Debug|Any CPU.Build.0 = Debug|Any CPU
+		{C81A8B15-9C2C-4F6E-BAEC-9FFF952C5F02}.Release|Any CPU.ActiveCfg = Release|Any CPU
+		{C81A8B15-9C2C-4F6E-BAEC-9FFF952C5F02}.Release|Any CPU.Build.0 = Release|Any CPU
+	EndGlobalSection
+	GlobalSection(SolutionProperties) = preSolution
+		HideSolutionNode = FALSE
+	EndGlobalSection
+EndGlobal

Source/ARAS SendTo/ARAS SendTo.vbproj

@@ -0,0 +1,137 @@
+<?xml version="1.0" encoding="utf-8"?>
+<Project DefaultTargets="Build" xmlns="http://schemas.microsoft.com/developer/msbuild/2003">
+  <PropertyGroup>
+    <Configuration Condition=" '$(Configuration)' == '' ">Debug</Configuration>
+    <Platform Condition=" '$(Platform)' == '' ">AnyCPU</Platform>
+    <ProductVersion>8.0.50727</ProductVersion>
+    <SchemaVersion>2.0</SchemaVersion>
+    <ProjectGuid>{C81A8B15-9C2C-4F6E-BAEC-9FFF952C5F02}</ProjectGuid>
+    <OutputType>WinExe</OutputType>
+    <StartupObject>ARAS_SendTo.My.MyApplication</StartupObject>
+    <RootNamespace>ARAS_SendTo</RootNamespace>
+    <AssemblyName>ARAS SendTo</AssemblyName>
+    <MyType>WindowsForms</MyType>
+    <ApplicationIcon>aras.ico</ApplicationIcon>
+  </PropertyGroup>
+  <PropertyGroup Condition=" '$(Configuration)|$(Platform)' == 'Debug|AnyCPU' ">
+    <DebugSymbols>true</DebugSymbols>
+    <DebugType>full</DebugType>
+    <DefineDebug>true</DefineDebug>
+    <DefineTrace>true</DefineTrace>
+    <OutputPath>bin\Debug\</OutputPath>
+    <DocumentationFile>ARAS SendTo.xml</DocumentationFile>
+    <NoWarn>42016,41999,42017,42018,42019,42032,42036,42020,42021,42022</NoWarn>
+  </PropertyGroup>
+  <PropertyGroup Condition=" '$(Configuration)|$(Platform)' == 'Release|AnyCPU' ">
+    <DebugType>pdbonly</DebugType>
+    <DefineDebug>false</DefineDebug>
+    <DefineTrace>true</DefineTrace>
+    <Optimize>true</Optimize>
+    <OutputPath>bin\Release\</OutputPath>
+    <DocumentationFile>ARAS SendTo.xml</DocumentationFile>
+    <NoWarn>42016,41999,42017,42018,42019,42032,42036,42020,42021,42022</NoWarn>
+  </PropertyGroup>
+  <ItemGroup>
+    <Reference Include="IOM, Version=8.2.0.5413, Culture=neutral, PublicKeyToken=2c179e07b0395376">
+      <SpecificVersion>False</SpecificVersion>
+      <HintPath>..\..\..\..\..\..\..\Program Files\Aras\Innovator\Innovator\Server\bin\IOM.dll</HintPath>
+    </Reference>
+    <Reference Include="System" />
+    <Reference Include="System.Data" />
+    <Reference Include="System.Deployment" />
+    <Reference Include="System.Drawing" />
+    <Reference Include="System.Windows.Forms" />
+    <Reference Include="System.Xml" />
+  </ItemGroup>
+  <ItemGroup>
+    <Import Include="Microsoft.VisualBasic" />
+    <Import Include="System" />
+    <Import Include="System.Collections" />
+    <Import Include="System.Collections.Generic" />
+    <Import Include="System.Data" />
+    <Import Include="System.Drawing" />
+    <Import Include="System.Diagnostics" />
+    <Import Include="System.Windows.Forms" />
+  </ItemGroup>
+  <ItemGroup>
+    <Compile Include="Connection.vb" />
+    <Compile Include="Dialog1.Designer.vb">
+      <DependentUpon>Dialog1.vb</DependentUpon>
+    </Compile>
+    <Compile Include="Dialog1.vb">
+      <SubType>Form</SubType>
+    </Compile>
+    <Compile Include="Form1.vb">
+      <SubType>Form</SubType>
+    </Compile>
+    <Compile Include="Form1.Designer.vb">
+      <DependentUpon>Form1.vb</DependentUpon>
+      <SubType>Form</SubType>
+    </Compile>
+    <Compile Include="Form2.Designer.vb">
+      <DependentUpon>Form2.vb</DependentUpon>
+    </Compile>
+    <Compile Include="Form2.vb">
+      <SubType>Form</SubType>
+    </Compile>
+    <Compile Include="My Project\AssemblyInfo.vb" />
+    <Compile Include="My Project\Application.Designer.vb">
+      <AutoGen>True</AutoGen>
+      <DependentUpon>Application.myapp</DependentUpon>
+    </Compile>
+    <Compile Include="My Project\Resources.Designer.vb">
+      <AutoGen>True</AutoGen>
+      <DesignTime>True</DesignTime>
+      <DependentUpon>Resources.resx</DependentUpon>
+    </Compile>
+    <Compile Include="My Project\Settings.Designer.vb">
+      <AutoGen>True</AutoGen>
+      <DependentUpon>Settings.settings</DependentUpon>
+      <DesignTimeSharedInput>True</DesignTimeSharedInput>
+    </Compile>
+    <Compile Include="Security.vb" />
+  </ItemGroup>
+  <ItemGroup>
+    <EmbeddedResource Include="Dialog1.resx">
+      <SubType>Designer</SubType>
+      <DependentUpon>Dialog1.vb</DependentUpon>
+    </EmbeddedResource>
+    <EmbeddedResource Include="Form1.resx">
+      <SubType>Designer</SubType>
+      <DependentUpon>Form1.vb</DependentUpon>
+    </EmbeddedResource>
+    <EmbeddedResource Include="Form2.resx">
+      <SubType>Designer</SubType>
+      <DependentUpon>Form2.vb</DependentUpon>
+    </EmbeddedResource>
+    <EmbeddedResource Include="My Project\Resources.resx">
+      <Generator>VbMyResourcesResXFileCodeGenerator</Generator>
+      <LastGenOutput>Resources.Designer.vb</LastGenOutput>
+      <CustomToolNamespace>My.Resources</CustomToolNamespace>
+      <SubType>Designer</SubType>
+    </EmbeddedResource>
+  </ItemGroup>
+  <ItemGroup>
+    <None Include="My Project\Application.myapp">
+      <Generator>MyApplicationCodeGenerator</Generator>
+      <LastGenOutput>Application.Designer.vb</LastGenOutput>
+    </None>
+    <None Include="My Project\Settings.settings">
+      <Generator>SettingsSingleFileGenerator</Generator>
+      <CustomToolNamespace>My</CustomToolNamespace>
+      <LastGenOutput>Settings.Designer.vb</LastGenOutput>
+    </None>
+  </ItemGroup>
+  <ItemGroup>
+    <Content Include="aras.ico" />
+    <Content Include="ProgressSmall.gif" />
+  </ItemGroup>
+  <Import Project="$(MSBuildBinPath)\Microsoft.VisualBasic.targets" />
+  <!-- To modify your build process, add your task inside one of the targets below and uncomment it. 
+       Other similar extension points exist, see Microsoft.Common.targets.
+  <Target Name="BeforeBuild">
+  </Target>
+  <Target Name="AfterBuild">
+  </Target>
+  -->
+</Project>

Source/ARAS SendTo/ARAS SendTo.vbproj.user

@@ -0,0 +1,5 @@
+<Project xmlns="http://schemas.microsoft.com/developer/msbuild/2003">
+  <PropertyGroup>
+    <ProjectView>ShowAllFiles</ProjectView>
+  </PropertyGroup>
+</Project>

Source/ARAS SendTo/Connection.vb

@@ -0,0 +1,70 @@
+Module Connection
+
+
+    Function getConnectionParameter(ByRef Server As String, ByRef Vault As String, ByRef Database As String) As Boolean
+
+        ' read connection parameters (Server, Vault, Database)
+        ' return true if parameters found, false if not
+
+        Dim Cookiepath As String
+        Dim settingsfile As String
+
+        Cookiepath = System.Environment.GetFolderPath(Environment.SpecialFolder.Cookies)
+        settingsfile = Cookiepath & "\ARASSendToSettings.txt"
+
+        Try
+            Dim sr As IO.StreamReader
+            sr = New IO.StreamReader(settingsfile)
+            Server = sr.ReadLine
+            Vault = sr.ReadLine
+            Database = sr.ReadLine
+            sr.Close()
+            Return True
+        Catch ex As Exception
+            Server = ""
+            Vault = ""
+            Database = ""
+            Return False
+        End Try
+
+    End Function
+
+    Function Connect(ByRef myConnection, ByRef myInnovator, ByVal usr, ByVal pwd, ByVal Server, ByVal Vault, ByVal Database) As Boolean
+
+        ' connect to Server and create innovator instance
+
+        Dim login_result As Aras.IOM.Item = Nothing
+
+        Try
+            myConnection = Aras.IOM.IomFactory.CreateHttpServerConnection(Server & "/Server/InnovatorServer.aspx", Database, usr, pwd)
+            login_result = myConnection.Login()
+        Catch ex As Exception
+            Form1.lblStatus.Text = "Connection failed at all, Check Settings. Code: " & login_result.getErrorCode
+            Return False
+            Exit Function
+        End Try
+
+        If login_result.isError() Then
+            myInnovator = Nothing
+            Form1.lblStatus.Text = "Connection failed, Check Settings and Login data. Code: " & login_result.getErrorCode
+            Return False
+            Exit Function
+        Else
+            myInnovator = New Aras.IOM.Innovator(myConnection)
+            Form1.lblStatus.Text = "Connection Successful"
+            Return True
+            Exit Function
+        End If
+    End Function
+
+    Function Disconnect(ByRef myconnection)
+        ' disconnect
+        Try
+            myconnection.Logout()
+            Form1.lblStatus.Text = "Disconnected"
+            Return True
+        Catch ex As Exception
+            Return False
+        End Try
+    End Function
+End Module