30/11/23 - Cambios en mensaje de "enviando" y cambio de ruta, usuario y almacen

- Se agregó un gif animado al mensaje de "Enviando".
- Se modificó el código que guarda el nuevo usuario, almacen y ruta cuando se hace clic largo.

B4A/B4XMainPage.bas

@@ -80,6 +80,7 @@ Sub Class_Globals
 	Private l_vProds2 As Label
 	Private l_vPedidos2 As Label
 	Private l_vNoVenta2 As Label
+	Private i_progress As B4XGifView
 End Sub
 
 Public Sub Initialize
@@ -90,6 +91,7 @@ End Sub
 Sub B4XPage_Created (Root1 As B4XView)
 	Root = Root1
 	Root.LoadLayout("MainPage")
+	i_progress.SetGif(File.DirAssets, "progress.gif")
 	l_version.Text = Application.VersionName
 	p_principal.Width = Root.Width : p_principal.Height = Root.Height
 	Subs.centraPanel(p_datos, Root.Width)
@@ -246,7 +248,7 @@ End Sub
 Sub b_enviar_Click
 	Dim resultado = Msgbox2("Se va a enviar la venta de la BD", "AVISO", "Continuar", "Cancelar", "", Null) 'ignore
 	If resultado = DialogResponse.POSITIVE Then
-		B4XPages.MainPage.l_progressDialog.Text = " Enviando información ..."
+		B4XPages.MainPage.l_progressDialog.Text = " Enviando información"
 		B4XPages.MainPage.p_progressDialog.Top = l_pedidos2.Top
 		B4XPages.MainPage.p_progressDialog.Visible = True
 		B4XPages.MainPage.p_progressDialog.BringToFront
@@ -258,8 +260,9 @@ Sub b_enviar_Click
 		else if empresa.ToUpperCase = "INTMEX" Then
 			envioIntmex
 		End If
+'		Sleep(5000)
 	End If
-	ToastMessageShow("Se enviaran los datos, este proceso podria tardar hasta un minuto, gracias "& ruta , True)
+	ToastMessageShow($"Se enviaran los datos, este proceso podria tardar hasta un minuto."$ , True)
 End Sub
 
 Sub JobDone(Job As HttpJob)
@@ -411,27 +414,36 @@ Sub l_clienteNoNumerico_LongClick
 	p_clientes.Visible = True
 End Sub
 
+'Cambiamos la ruta actual por la especificado.
 Sub b_guardaRuta_Click
 	If et_nuevaRuta.Text <> "" Then
-		skmt.ExecNonQuery($"update pedido set pe_ruta = '${et_nuevaRuta.Text}' where pe_ruta = '${ruta}'"$)
+		skmt.ExecNonQuery($"update PEDIDO set PE_RUTA = '${et_nuevaRuta.Text}' where PE_RUTA = '${ruta}'"$)
+		skmt.ExecNonQuery($"update PEDIDO_CLIENTE set PC_RUTA = '${et_nuevaRuta.Text}' where PC_RUTA = '${ruta}'"$)
 		l_ruta2.Text = et_nuevaRuta.text
 	End If
 	p_editaRuta.Visible = False
 End Sub
 
+'Cambiamos el almacen actual por el especificado.
 Sub b_guardaAlmacen_Click
 	If et_nuevoAlmacen.Text <> "" Then
 		skmt.ExecNonQuery($"delete from cat_almacen"$)
 		skmt.ExecNonQuery($"insert into cat_almacen (id_almacen) values ('${et_nuevoAlmacen.Text}')"$)
+		skmt.ExecNonQuery($"update PEDIDO set PE_CEDIS = '${et_nuevoAlmacen.Text}' where PE_CEDIS = '${l_almacen2.text}'"$)
+		skmt.ExecNonQuery($"update PEDIDO_CLIENTE set PC_ALMACEN = '${et_nuevoAlmacen.Text}' where PC_ALMACEN = '${l_almacen2.text}'"$)
 		l_almacen2.Text = et_nuevoAlmacen.text
 	End If
 	p_editaAlmacen.Visible = False
 End Sub
 
+'Cambiamos el usuario actual por el especificado.
 Private Sub b_guardaUsuario_Click
 '	skmt.ExecNonQuery($"delete from usuarioa"$)
 	If et_nuevoUsuario.Text <> "" Then
 		skmt.ExecNonQuery($"update usuarioa set usuario = '${et_nuevoUsuario.Text}'"$)
+		skmt.ExecNonQuery($"update NOVENTA set NV_USER = '${et_nuevoUsuario.Text}' where NV_USER = '${l_usuario2.text}'"$)
+		skmt.ExecNonQuery($"update PEDIDO set PE_USUARIO = '${et_nuevoUsuario.Text}' where PE_USUARIO = '${l_usuario2.text}'"$)
+		skmt.ExecNonQuery($"update PEDIDO_CLIENTE set PC_USER = '${et_nuevoUsuario.Text}' where PC_USER = '${l_usuario2.text}'"$)
 		l_usuario2.Text = et_nuevoUsuario.text
 	End If
 	p_editaUsuario.Visible = False
@@ -997,6 +1009,8 @@ Sub envioGuna 'ignore
 	x.Close
 End Sub
 
+'Valida la venta contra web.
+'Revisa que la NOVENTA, la cantidad de pedidos y los productos de PEDIDO sean los mismos en web y locales. 
 Sub valida(identificador As String)
 	Log("Validamos " & identificador)
 	If empresa.ToUpperCase = "GUNA" Then