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