1 2 3 4 5 6 7 8 9 10 11
| Dim MonCred As New TestServiceWeb.Shlm10Balance.BalanceTotalService
Dim MyCredential = New System.Net.CredentialCache
Dim NetCred = New System.Net.NetworkCredential("Utilisateur", "MotDePasse")
MyCredential.Add(New Uri(MonCred.Url), "Basic", NetCred)
MonCred.Credentials = MyCredential
Dim Salarie As TestServiceWeb.Shlm10Balance.AccountFilter
Salarie = New TestServiceWeb.Shlm10Balance.AccountFilter
Salarie.employeeSurname = "NOMCOLLEGUE"
Dim Salaries As TestServiceWeb.Shlm10Balance.AccountFilter() = {Salarie} |
Partager