Sub Enviar_registro_Click
fs.Initialize("Firestore",True)
Dim usuarios As CollectionReference
usuarios.Initialize("","usuarios","usuarios")
If fs.isInitialized Then
Dim loc As GeoPoint
loc.Initialize ( 50.8 , 6.44 )
Dim registro_usuario As Map
registro_usuario.Initialize
registro_usuario.Put("Alias","gregorioooo")
registro_usuario.Put("Apellido","gregorio")
registro_usuario.Put("Areas","Noqui")
registro_usuario.Put("Nombre","Gimenez")
registro_usuario.Put("geo",loc)
registro_usuario.Put("mail","[email protected]")
Dim base_usuarios As Map
base_usuarios.Initialize
base_usuarios.Put("usuarios", registro_usuario)
usuarios.add(registro_usuario)
End If
End Sub