Create a New Company

[Visual Basic]

' -------------------------------------------------------------------------

' Create a DataSet to submit to SystemCompany.AddEntity()

' -------------------------------------------------------------------------

Dim systemCompanyDs As DataSet = New WebServices.DataSets.SystemCompanyDataSet()

Dim systemCompanyDr As DataRow

' Create new row in an empty DataSet with the Account structure.

systemCompanyDr = systemCompanyDs.Tables("Entity").NewRow()

systemCompanyDr("RowID") = ""

systemCompanyDr("CompanyID") = "MyCompany"

systemCompanyDr("Active") = True

systemCompanyDr("SignUpDate") = Now.Today.ToShortDateString

systemCompanyDr("DateAccountClosed") = StdLib.DATA_Type_DATETIME_DEFAULT

systemCompanyDr("ProductRowID") = 2

systemCompanyDr("ServerName") = "SqlServer"

systemCompanyDr("BusinessType") = 6

systemCompanyDr("CompanyName") = "Smith Consulting"

systemCompanyDr("FirstName") = "Dan"

systemCompanyDr("LastName") = "Smith"

systemCompanyDr("AddressLine1") = "101 Main Street"

systemCompanyDr("AddressLine2") = "Suite 2"

systemCompanyDr("City") = "New York"

systemCompanyDr("State") = "NY"

systemCompanyDr("ZipCode") = "10304"

systemCompanyDr("Country") = "US"

systemCompanyDr("EmailAddress") = "dan@smithconsulting.com"

systemCompanyDr("PhoneNbr") = "212.555.1212"

systemCompanyDr("FaxNbr") = "212.555.1213"

systemCompanyDr("CreditCardType") = "A"

systemCompanyDr("CreditCardNbr") = "1111222233334444"

systemCompanyDr("CreditCardExpiration") = "12/04"

systemCompanyDr("BillingName") = "Smith Consulting"

systemCompanyDr("BillingAddressLine1") = "101 Main Street"

systemCompanyDr("BillingAddressLine2") = "Suite 2"

systemCompanyDr("BillingCity") = "New York"

systemCompanyDr("BillingState") = "NY"

systemCompanyDr("BillingZipCode") = "10304"

systemCompanyDr("BillingCountry") = "US"

systemCompanyDr("VerificationQuestion") = "Who is JT?"

systemCompanyDr("VerificationResponse") = "cat"

' Add the new row to the DataSet.DataTable

systemCompanyDs.Tables("Entity").Rows.Add(systemCompanyDr)

' -------------------------------------------------------------------------

' Call the web service to add the company.

' -------------------------------------------------------------------------

' Instantiate and authenticate the SystemCompany web service.

Dim wsSystemCompany As New WebServices.SystemCompanyWebService()

' Set the login credentials for so we can login to the new company.

WebServices.SoapHeader.SetLoginKey(wsSystemCompany, Session("LoginKey"))

Dim returnDs As Dataset

' Add the Company.

returnDs = wsSystemCompany.AddEntity(systemCompanyDs,"Admin","abc123")

If StdLib.GetErrorNumber(returnDs) < 0 Then

       MsgBox(StdLib.GetErrorAsString(returnDs))

End If