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 
				 
 
		 
 
		 
 
		 
						
					 
 
		 
 
		 
 
		 
 
		