Hola señores:
Hoy vengo con otra consulta que me parece que debe ser muy simple de resolver para los ya avanzados, sin embargo, para poder seguir adelante en este mundo nuevo que cada vez me gusta mas recurro a ustedes con la siguiente consulta:
Resulta que ya he seleccionado las diferentes opciones de mis pantallas o formularios, hasta llegar a la ultima en la cual realizo el procedimiento de guardar los datos recolectados de los anteriores formularios, ahora lo que necesito es volver a mi formulario principal para que el usuario pueda iniciar con un nuevo proceso.
Probe con el llamado al modulo principal por medio de StartActivity("Personal") y si regresa a este, sin embargo, si se preciosa el boton o flecha de atras del aparato, me regresa a la pantalla o formulario que estaba en memoria, osea, el ultimo.
Espero ser claro en lo que requiero..
Hoy vengo con otra consulta que me parece que debe ser muy simple de resolver para los ya avanzados, sin embargo, para poder seguir adelante en este mundo nuevo que cada vez me gusta mas recurro a ustedes con la siguiente consulta:
Resulta que ya he seleccionado las diferentes opciones de mis pantallas o formularios, hasta llegar a la ultima en la cual realizo el procedimiento de guardar los datos recolectados de los anteriores formularios, ahora lo que necesito es volver a mi formulario principal para que el usuario pueda iniciar con un nuevo proceso.
Probe con el llamado al modulo principal por medio de StartActivity("Personal") y si regresa a este, sin embargo, si se preciosa el boton o flecha de atras del aparato, me regresa a la pantalla o formulario que estaba en memoria, osea, el ultimo.
Espero ser claro en lo que requiero..
Final de proceso y regresar al modulo principal:
Sub ImgPedir_Click
If XCLV5.Size=0 Then
MsgboxAsync("Lista de pédido vacia","Atención")
Return
End If
If Main.IDNOrden=0 Then
Wait For (CnSql3.NuevaOrden) Complete (Nuevo As Object)
Main.IDNOrden=Nuevo
End If
Dim ListaInfo As List
ListaInfo.Initialize
For h = 0 To XCLV5.Size-1
Dim Reginfo As Clases
Reginfo.Initialize
Reginfo.NumOrden=Main.IDNOrden
Reginfo.IdSalon=Main.IdSalon
Reginfo.IdMesa=Main.IDMesa
Reginfo.IdUsuario=Main.IDMesero
Dim X1 As B4XView=XCLV5.GetPanel(h)
Dim X2 As B4XView=X1.GetView(0).GetView(2)'Cantidad
Dim X3 As B4XView=X1.GetView(0).GetView(5)'Codigo de articulo
Reginfo.CodArticulo=X3.Text
Reginfo.CantLinea=X2.Text
ListaInfo.Add(Reginfo)
Next
Wait For (CnSql3.RegistrarOrden(ListaInfo)) Complete (Result As Boolean)
If Result Then
MsgboxAsync("Listo revice","Atención")
XCLV5.Clear
StartActivity("Personal")
End If
End Sub