Sub btnSave_Clicked(Target As String, SubTarget As String)
page.PauseDelayed(500)
'I get all data from inputs(edittexts)
Dim etSurname As ABMInput = page.Component("etSurname")
Dim etName As ABMInput = page.Component("etName")
Dim etMail As ABMInput = page.Component("etMail")
Dim comboSex As ABMCombo = page.Component("comboSex")
Dim etPhone As ABMInput = page.Component("etPhone")
Dim etPhoneEme As ABMInput = page.Component("etPhoneEme")
Dim etTown As ABMInput = page.Component("etTown")
Dim etPostal As ABMInput = page.Component("etPostal")
Dim etStreet As ABMInput = page.Component("etStreet")
Dim etNumber As ABMInput = page.Component("etNumber")
'i create update statement in order to update the correct columns
Dim Update As Supabase_DatabaseUpdate = Main.xSupabase.Database.UpdateData
Update.From("users")
Update.SelectData
Update.Update(CreateMap("surname":etSurname.Text.Trim,"name":etName.Text.Trim,"email":etMail.Text.Trim, "sex": comboSex.GetActiveItemId, _
"town":etTown.Text.Trim,"postal":etPostal.Text.Trim,"street":etStreet.Text.Trim, _
"number":etNumber.Text.Trim,"phone":etPhone.Text.Trim,"phone_eme":etPhoneEme.Text.Trim))
Update.Eq(CreateMap("id":Main.userData.id))
Wait For (Update.Execute) Complete (Result As SupabaseDatabaseResult)
If Result.Error.Success Then
For Each Row As Map In Result.Rows
'If everything with supabase update was ok, I update the "userData" type. (userData is a type where i store all user data in order to access them from all pages)
Main.userData.surname = Row.Get("surname")
Main.userData.name = Row.Get("name")
Main.userData.email = Row.Get("email")
Main.userData.sex = Row.Get("sex")
Main.userData.town = Row.Get("town")
Main.userData.postal = Row.Get("postal")
Main.userData.street = Row.Get("street")
Main.userData.number = Row.Get("number")
Main.userData.phone = Row.Get("phone")
Main.userData.phone_eme = Row.Get("phone_eme")
Next
page.ShowToast("updateUser","toastgreen","Profile updated!",2000,False)
Else
page.ShowToast("updateUser","toastorange",Result.Error.ErrorMessage,2000,False)
End If
page.Resume
End Sub
