PHP Decode

<?  Vb.Net-  (dot.net-   ) 
SMService-      ServiceReference-  
 ,     StartSession- ,       ,  
   (sessionId As Guid),         
Public Sub GetCustomers() 
Using client = New SMServiceClient 
client.Open() 
Dim sessionId = client.StartSession(Constants.UserName, Constants.Password, 
Constants.DbName, Constants.CultureName) 
Dim seqNumber = 1I 
Dim chunk = client.GetCustomers(sessionId, seqNumber) 
seqNumber += 1 
Do While chunk.Offset + chunk.Rows.Count &lt; chunk.Total 
chunk = client.GetCustomersNextChunk(sessionId, seqNumber) 
seqNumber += 1 
Loop 
client.StopSession(sessionId) 
End Using 
End Sub 
Public Sub GetSaleByDocNum() 
Using client = New SMServiceClient() 
client.Open() 
Dim sessionId = client.StartSession(Constants.UserName, Constants.Password, 
Constants.DbName, Constants.CultureName) 
Dim seqNumber = 1I 
Dim document = client.GetSaleByDocNum(sessionId, seqNumber, &quot;000000002064&quot;) 
Assert.IsFalse(document Is Nothing) 
client.StopSession(sessionId) 
End Using 
End Sub 
 
&lt;TestMethod()&gt; 
Public Sub GetSales() 
Using client = New SMServiceClient 
client.Open() 
Dim sessionId = client.StartSession(Constants.UserName, Constants.Password, 
Constants.DbName, Constants.CultureName) 
Dim seqNumber = 1I 
Dim chunk = client.GetSales(sessionId, seqNumber, #1/1/2016#, #1/1/2017#, 
&quot;000000&quot;, &quot;000001&quot;, Nothing, Nothing, &quot;2&quot;) 
seqNumber += 1 
Do While chunk.Offset + chunk.Rows.Count &lt; chunk.Total 
chunk = client.GetSalesNextChunk(sessionId, seqNumber) 
seqNumber += 1 
Loop 
client.StopSession(sessionId) 
End Using 
End Sub 
 
&lt;TestMethod()&gt; 
Public Sub MakeSaleExportedByExtCodes() 
Using client = New SMServiceClient 
Dim sessionId = client.StartSession(Constants.UserName, Constants.Password, 
Constants.DbName, Constants.CultureName) 
Dim seqNumber = 1I 
client.MakeSaleSentToOtherSystem(sessionId, seqNumber, New Guid(&quot;{9DB7B663- 
0B7C-4282-BA17-A6FAA1BFCA57}&quot;)) 
End Using 
End Sub 
 
&lt;TestMethod()&gt; 
Public Sub EditSale() 
Using client As New SMServiceClient 
client.Open() 
Dim sessionId = client.StartSession(Constants.UserName, Constants.Password, 
Constants.DbName, Constants.CultureName) 
Dim seqNumber = 1I 
Dim document = New ServiceReference1.Sale() 
With document 
.DocNumber = &quot;000000000429&quot; 
.DocDate = Date.Now.Date 
.SalesAgent = &quot;1001&quot; 
.VanAgent = &quot;1001&quot; 
.Customer = &quot;000025&quot; 
.Division = &quot;000000&quot; 
.PriceListType = &quot;01&quot; 
.TotalSum = 245 
.Comment = &quot;  &quot; 
 
.ProductsList = {New ServiceReference1.Sale.ProductRow() With {.Product = &quot;201001&quot;, 
.Quantity = 1, 
.Price = 245, 
.Discount = 0, 
.DiscountedPrice = 245, 
 
.Sum = 245}} 
End With 
Dim storedDocument = client.EditSale(sessionId, seqNumber, document) 
Assert.IsFalse(storedDocument Is Nothing) 
client.StopSession(sessionId) 
End Using 
End Sub ?>