Version 4.08.30

Se agrego en el proceso de bitacora el hecho que puedan verse las suplencias y cuando se realice una venta que mande la ruta quer le corresponde. Si se esta haciendo suplencia y hace fin dia desapare el apartado de suplencia como es el edit texty y el panel.

B4A/Subs.bas

@@ -671,6 +671,20 @@ Sub traeRuta As String 'ignore
 	Return r
 End Sub
 
+'Regresa la ruta actual de la base de datos.
+Sub traeRutasSup As String 'ignore
+	Private c As Cursor
+	Private r As String
+	c=B4XPages.MainPage.skmt.ExecQuery("select CAT_CL_RUTA from kmt_info2 Where CAT_CL_CODIGO IN (SELECT CUENTA FROM CUENTAA)")
+	r = "0"
+	If c.RowCount > 0 Then
+		c.Position=0
+		r = c.GetString("CAT_CL_RUTA")
+	End If
+	c.Close
+	Return r
+End Sub
+
 Sub traeCliente As String 'ignore
 	Private c As Cursor
 	Private cl As String
@@ -1232,7 +1246,7 @@ Sub bitacora(fechab As String, usuariob As String, almacenb As String, rutab As
 	Log("bitacora")
 	Private cmd As DBCommand
 	cmd.Initialize
-	cmd.Name = "mandaBitacora3"
+	cmd.Name = "mandaBitacora3_GUNA"
 	Log("BITACORA3")
 	Private nombreCliente As String = traeNombreCliente(clienteb)
 	If eventob = "Llega a almacen" Then
@@ -1291,7 +1305,7 @@ Sub bitacoraX(fechab As String, usuariob As String, almacenb As String, rutab As
 	Private cmd As DBCommand
 	cmd.Initialize
 	If eventob <> "Termina Venta" And eventob <> "No Venta" Then
-		cmd.Name = "mandaBitacora3"
+		cmd.Name = "mandaBitacora3_GUNA"
 		Log("BITACORA3")
 		Private nombreCliente As String = traeNombreCliente(clienteb)
 		If eventob = "Llega a almacen" Then