You can not select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
24 lines
861 B
24 lines
861 B
Public Class clsMobile
|
|
|
|
Public Sub Transfer_Patientenstamm()
|
|
Dim db As New clsDB
|
|
Dim myhttp As New DPMHttpClient.DPMhttpClient
|
|
db.Get_Tabledata("kunden", "", "SELECT NRPRIVAT AS ID, CAST(NRPRIVAT AS varchar(10)) + ' - ' + NAME + ' ' + VORNAME + ', ' + ORT + ', ' + isnull(CONVERT(varchar, GEBDAT, 104),'') AS Pat FROM dbo.PRIVAT", "", False)
|
|
For Each r As DataRow In db.dsDaten.Tables(0).Rows
|
|
Dim data As New mobilemodels.Patient
|
|
data.ID = r.Item(0)
|
|
Try
|
|
r.Item(1) = r.Item(1).ToString.Replace("'", "''")
|
|
data.Pat = r.Item(1)
|
|
data.Transferdate = Now
|
|
data.TransferDirection = 1
|
|
myhttp.CallService("/api/patient", "", "POST", data)
|
|
Catch
|
|
End Try
|
|
|
|
Next
|
|
|
|
End Sub
|
|
|
|
End Class
|