задача:
передаем данные полиса: тип, серию, номер и дату на сервер
получаем: ФИО и дату рождения
Проблема такова:
есть WSDL, я его скормил в Васик и получил ServiceReference1
далее:
- Код: Выделить всё
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim client = New ServiceReference1.InsurerClient()
Dim fio As ServiceReference1.InsurerFIO
Dim d As String
d = Format(Now(), "dd.mm.yyyy")
fio = client.GetInsurerFIO(Val(TextBox2.Text), TextBox3.Text, TextBox4.Text, d)
TextBox1.Text = fio.Fam() & " " & fio.Im() & " " & fio.Ot() & " " & fio.Dr() & vbCrLf & _
"КОД СМО " & fio.CodeSMO() & " ОГРН " & fio.OGRNSMO() & vbCrLf & _
"ТИП " & fio.TypePolis() & " Серия " & fio.Ser_Polis() & " Номер " & fio.Num_Polis()
End Sub
ничего не возвращается
в чем ошибка?
Извините за беспокойство.
ЗАРАБОТАЛО!!!
ошибка была в дате (mm - минуты, MM - месяц)
