V.- 4_09_03 Se agregaron opciones de suplencia, se muestran las rutas correctamente independientes a cada cliente.

B4A/B4XMainPage.bas

@@ -547,7 +547,7 @@ Sub JobDone(Job As HttpJob)
 					Dim cmd As DBCommand
 					cmd.Initialize
 					cmd.Name = "delete_geoPass_GUNA"
-					Log(Subs.traeAlmacen&", "& Subs.traeRuta)
+'					Log(Subs.traeAlmacen&", "& Subs.traeRuta)
 					cmd.Parameters = Array As Object( almacendes,rutades)
 					reqManager.ExecuteCommand(cmd , "traeGeoPass")
 					

B4A/C_Cliente.bas

@@ -4770,7 +4770,7 @@ Private Sub b_Inicio_Fin_venta_Click
 	motivoNoVenta = ""
 	motivoNoVisita = ""
 	If b_Inicio_Fin_venta.Text = "TERMINAR VENTA" Then
-		Subs.bitacora(Subs.fechanormal(DateTime.Now), Subs.traeUsuarioDeBD, Subs.traeAlmacen, Subs.traeRuta, "Termina Venta", Subs.traeCliente, "", Subs.fechanormal(DateTime.Now), B4XPages.MainPage.lat_gps, B4XPages.MainPage.lon_gps, precision, motivoNoVenta, motivoNoVisita)
+		Subs.bitacora(Subs.fechanormal(DateTime.Now), Subs.traeUsuarioDeBD, Subs.traeAlmacen, Subs.traeRutaBitacora, "Termina Venta", Subs.traeCliente, "", Subs.fechanormal(DateTime.Now), B4XPages.MainPage.lat_gps, B4XPages.MainPage.lon_gps, precision, motivoNoVenta, motivoNoVisita)
 		Starter.enVenta = False
 '		LogColor($">>>>>> TERMINA VENTA: ${Starter.enVenta} - ${Subs.traeCliente}"$, Colors.red)
 		B4XPages.ShowPageAndRemovePreviousPages("Principal")
@@ -4783,7 +4783,8 @@ Private Sub b_Inicio_Fin_venta_Click
 		If contadorIniciarVenta = 1 And IniVenNO = False Then
 			IniVenNO = True
 			Starter.VarX = 1
-			Subs.bitacora(Subs.fechanormal(DateTime.Now), Subs.traeUsuarioDeBD, Subs.traeAlmacen, Subs.traeRuta, "Inicia Venta", Subs.traeCliente, Subs.fechanormal(DateTime.Now), "", B4XPages.MainPage.lat_gps, B4XPages.MainPage.lon_gps, precision, motivoNoVenta, "")
+			
+			Subs.bitacora(Subs.fechanormal(DateTime.Now), Subs.traeUsuarioDeBD, Subs.traeAlmacen, Subs.traeRutaBitacora, "Inicia Venta", Subs.traeCliente, Subs.fechanormal(DateTime.Now), "", B4XPages.MainPage.lat_gps, B4XPages.MainPage.lon_gps, precision, motivoNoVenta, "")
 			Starter.enVenta = True
 '			LogColor($">>>>>> INICIA VENTA: ${Starter.enVenta} - ${Subs.traeCliente}"$, Colors.red)
 		Else If contadorIniciarVenta > 1 Then

B4A/C_Principal.bas

@@ -8,7 +8,7 @@ Sub Class_Globals
 	Private Root As B4XView 'ignore
 	Private xui As XUI 'ignore
 	Dim conectado As String
-	Dim t1 As Timer
+	Dim t1, t2 As Timer
 	Dim sb As StringBuilder
 	Dim PHONE As Phone
 	Dim g As GPS
@@ -576,12 +576,13 @@ Sub Subir_Click
 				clienteb = ""
 				finb = h.GetString("iniciob")
 			End If
-			Private VarXRu As String = ("R:"&e_ruta.Text & " R:" & E_RUTA2.Text)
+'			Private VarXRu As String = ("R:"&e_ruta.Text & " R:" & E_RUTA2.Text)
-			LogColor("----------->" & VarXRu, Colors.Red)
+'			LogColor("----------->" & VarXRu, Colors.Red)
 			If eventob = "Salida almacen" Then nombreCliente = "CHECKLIST"
 			If eventob = "Fin Día" Then nombreCliente = "FIN DIA"
 			If eventob = "Carga día" Then nombreCliente = "CARGA DIA"
-			If eventob = "Suplencia" Then nombreCliente = VarXRu
+			If eventob = "Carga día suplencia" Then nombreCliente = Subs.traeRutasSup
+'			If eventob = "Suplencia" Then nombreCliente = VarXRu
 '			Log($"'${almacenb}', '${usuariob}', '${rutab}', '${eventob}', '${clienteb}', '${nombreCliente}','${ iniciob}', '${finb}','${ latitudb}','${ longitudb}', '${precision}', '${motivonoventa}', '${motivonovisita}', '${fechab}'"$)
 '			TMP_ALMACEN, TMP_USUARIO, TMP_RUTA, TMP_EVENTO, TMP_ID_CLIENTE, TMP_NOMBRE_CLIENTE, TMP_INICIO, TMP_FINAL, TMP_LATITUD, TMP_LONGITUD, TMP_PRESICION, TMP_MOTIVO_NO_VENTA, TMP_MOTIVO_NO_VISITA, TMP_FECHA_SINC, TMP_FECHA_MOVIL
 			cmd.Parameters = Array As Object(h.GetString("almacenb"), h.GetString("usuariob"), h.GetString("rutab"), eventob, clienteb, nombreCliente, h.GetString("iniciob"), finb, h.GetString("latitudb"), h.GetString("longitudb"), h.GetString("precision"), h.GetString("motivonoventa"), h.GetString("motivonovisita"), h.GetString("fechab"))
@@ -794,7 +795,11 @@ Sub Subir_Click
 End Sub
 
 Sub cargar_Click
+	If E_RUTA2.Visible = True Then
+		Rut_Rep = e_ruta.Text & " " & E_RUTA2.Text 		
+		Else
 		Rut_Rep = e_ruta.Text
+	End If
 	Log(Rut_Rep)
 	B4XPages.MainPage.skmt.ExecNonQuery2("UPDATE GPS SET HABILITADO = (?)",Array As Object(0))
 	B4XPages.MainPage.skmt.ExecNonQuery2("DELETE FROM CAT_VARIABLES WHERE CAT_VA_DESCRIPCION = ?",Array As String("CARGA_DIA"))
@@ -1170,7 +1175,7 @@ Sub JobDone(Job As HttpJob)
 					Dim CAT_CL_MTOCOMPRA As String = records(RESULT.Columns.Get("CAT_CL_MTOCOMPRA"))
 					Dim CAT_CL_NUM_SERIEFISICO As String = records(RESULT.Columns.Get("CAT_CL_NUM_SERIEFISICO"))
 					B4XPages.MainPage.skmt.ExecNonQuery2("INSERT INTO kmt_info2(CAT_CL_CODIGO,CAT_CL_RUTA,CAT_CL_NOMBRE,CAT_CL_ATIENDE1,CAT_CL_ATIENTE2,CAT_CL_TELEFONO,CAT_CL_EMAIL,CAT_CL_CALLE,CAT_CL_NOEXT,CAT_CL_NOINT,CAT_CL_CALLE1,CAT_CL_CALLE2,CAT_CL_COLONIA,CAT_CL_MUNI,CAT_CL_EDO,CAT_CL_CP,CAT_CL_LONG,CAT_CL_LAT,CAT_CL_MTOCOMPRA,CAT_CL_NUM_SERIEFISICO, gestion) VALUES (?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,0)", Array As Object (CAT_CL_CODIGO,E_RUTA2.Text,CAT_CL_NOMBRE,CAT_CL_ATIENDE1,CAT_CL_ATIENTE2,CAT_CL_TELEFONO,CAT_CL_EMAIL,CAT_CL_CALLE,CAT_CL_NOEXT,CAT_CL_NOINT,CAT_CL_CALLE1,CAT_CL_CALLE2,CAT_CL_COLONIA,CAT_CL_MUNI,CAT_CL_EDO,CAT_CL_CP,CAT_CL_LONG,CAT_CL_LAT,CAT_CL_MTOCOMPRA,CAT_CL_NUM_SERIEFISICO))
-					Subs.bitacora(Subs.fechanormal(DateTime.Now),usuario,Subs.traeAlmacen, e_ruta.Text, "Suplencia", "",Subs.fechanormal(DateTime.Now),Subs.fechanormal(DateTime.Now),B4XPages.MainPage.lat_gps,B4XPages.MainPage.lon_gps,"2","","")
+'					Subs.bitacora(Subs.fechanormal(DateTime.Now),usuario,Subs.traeAlmacen, e_ruta.Text, "Suplencia", "",Subs.fechanormal(DateTime.Now),Subs.fechanormal(DateTime.Now),B4XPages.MainPage.lat_gps,B4XPages.MainPage.lon_gps,"2","","")
 					B4XPages.MainPage.skmt.ExecNonQuery2("INSERT INTO HIST_STAY_STORE(HSS_CODIGO,  HSS_IN , HSS_OUT , HSS_TOT) VALUES (?,0,0,0)", Array As Object (CAT_CL_CODIGO))
 				Next
 				Listo1 = 1
@@ -1942,11 +1947,7 @@ Sub b_mapa_Click
 	B4XPages.GetPage("Mapas")
 End Sub
 
-Sub e_ruta_EnterPressed
+Sub t2_tick
-	
-	If e_ruta.Text = "FIN DIA" Then
-		RES =  Msgbox2("Seguro que desa hacer el cierre todos los datos se borraran?","Cierre", "Si", "", "No",LoadBitmap(File.DirAssets,"alert2.png"))  'ignore
-		If RES = DialogResponse.POSITIVE Then
 	e_ruta.Text = ""
 	B4XPages.MainPage.skmt.ExecNonQuery("delete from pedido_cliente")
 	B4XPages.MainPage.skmt.ExecNonQuery("delete from pedido")
@@ -1976,9 +1977,29 @@ Sub e_ruta_EnterPressed
 	B4XPages.MainPage.skmt.ExecNonQuery("DELETE FROM BITACORAGPS")
 	B4XPages.MainPage.skmt.ExecNonQuery2("UPDATE GPS SET HABILITADO = (?)",Array As Object(0))
 	B4XPage_Appear
-			Subs.bitacora(Subs.fechanormal(DateTime.Now),usuario,Subs.traeAlmacen, Rut_Rep,"Fin Día", "",Subs.fechanormal(DateTime.Now),Subs.fechanormal(DateTime.Now),B4XPages.MainPage.lat_gps,B4XPages.MainPage.lon_gps,"2","","")
 	E_RUTA2.Visible = False
+	E_RUTA2.Text = ""
 	Panel11.Visible = False
+	
+'	If PB2.Progress = 0 Then
+'		S_CP.Text = "ENVIAR DATOS (K-1)"
+'	End If
+'	img2.Visible=False
+	t2.Enabled = False
+End Sub
+
+Sub e_ruta_EnterPressed
+	If e_ruta.Text = "FIN DIA" Then
+		
+		RES =  Msgbox2("Seguro que desa hacer el cierre todos los datos se borraran?","Cierre", "Si", "", "No",LoadBitmap(File.DirAssets,"alert2.png"))  'ignore
+		
+		If RES = DialogResponse.POSITIVE Then
+		
+			Subs.bitacora(Subs.fechanormal(DateTime.Now),usuario,Subs.traeAlmacen, Subs.traeRuta,"Fin Día", "",Subs.fechanormal(DateTime.Now),Subs.fechanormal(DateTime.Now),B4XPages.MainPage.lat_gps,B4XPages.MainPage.lon_gps,"2","","")
+			
+			t2.Initialize("T2", 1000) ' 1000 = 1 second
+			t2.Enabled = True
+			
 		End If
 	End If
 	
@@ -1991,6 +2012,7 @@ Sub e_ruta_EnterPressed
 		Resumen.Visible= False
 	End If
 	If e_ruta.Text = "SUPLENCIA" Then
+		e_ruta.Text = ""
 		E_RUTA2.Visible = True
 		Panel11.Visible = True
 	End If
@@ -2096,7 +2118,13 @@ Sub B_OK_PAS_Click
 		img2.Visible=False
 		Subs.panelVisible(p_principal, 0, 0)
 		B4XPages.MainPage.skmt.ExecNonQuery2("INSERT INTO CAT_VARIABLES(CAT_VA_DESCRIPCION, CAT_VA_VALOR) VALUES (?,?)", Array As Object ("CARGA_DIA",1))
+		
+		If E_RUTA2.Visible = True Then
+			Subs.bitacora(Subs.fechanormal(DateTime.Now),usuario,Subs.traeAlmacen, Subs.traeRuta,"Carga día suplencia", "",Subs.fechanormal(DateTime.Now),Subs.fechanormal(DateTime.Now),B4XPages.MainPage.lat_gps,B4XPages.MainPage.lon_gps,"2","","")
+		Else
 			Subs.bitacora(Subs.fechanormal(DateTime.Now),usuario,Subs.traeAlmacen, Subs.traeRuta,"Carga día", "",Subs.fechanormal(DateTime.Now),Subs.fechanormal(DateTime.Now),B4XPages.MainPage.lat_gps,B4XPages.MainPage.lon_gps,"2","","")
+		End If
+		
 	Else if CARGA = "CARGAR" And (S_CP.Text <> "LISTO" Or S_CC.Text <> "LISTO" Or S_CH.Text <> "LISTO") Then
 		RES =  Msgbox2("Seguro que desa abortar el proceso","Cierre", "Si", "", "No",LoadBitmap(File.DirAssets,"alert2.png")) 'ignore
 		If RES = DialogResponse.POSITIVE Then

B4A/Guna Vistas V3.1.b4a.meta

@@ -76,6 +76,6 @@ ModuleClosedNodes6=8,9,10
 ModuleClosedNodes7=
 ModuleClosedNodes8=
 ModuleClosedNodes9=
-NavigationStack=C_Principal,cargar_Click,971,0,C_Principal,e_ruta_EnterPressed,1986,4,C_Principal,JobDone,1166,0,C_Principal,Subir_Click,573,0,C_Principal,B_OK_PAS_Click,2092,0,Subs,traeProdNombre,653,0,Subs,traeRutasSup,668,0,C_Cliente,guardadoventa,2043,0,C_NoVenta,GUARDA_Click,125,0,Subs,traeRuta,667,0
+NavigationStack=B4XMainPage,JobDone,543,0,C_Principal,cargar_Click,1057,0,C_Principal,b_mapa_Click,1943,0,C_Principal,t2_tick,1982,0,C_Principal,e_ruta_EnterPressed,1987,1,Subs,bitacora,1263,0,Diseñador Visual,principal.bal,-100,2,Subs,vendidoPromoEsp,1251,0,C_Principal,Class_Globals,0,0,C_Principal,Subir_Click,571,4
 SelectedBuild=0
-VisibleModules=23,2,24,13,14,4,6,9,12,5,10
+VisibleModules=23,2,24,13,14,4,6,9,12,5

B4A/Subs.bas

@@ -671,11 +671,10 @@ Sub traeRuta As String 'ignore
 	Return r
 End Sub
 
-'Regresa la ruta actual de la base de datos.
+Sub traeRutaBitacora As String 'ignore
-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)")
+	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
@@ -685,6 +684,28 @@ Sub traeRutasSup As String 'ignore
 	Return r
 End Sub
 
+'Regresa la ruta actual de la base de datos.
+Sub traeRutasSup As String
+	Dim c As Cursor
+	Dim rutas As String
+	rutas = ""
+    
+	c = B4XPages.MainPage.skmt.ExecQuery("SELECT CAT_CL_RUTA FROM kmt_info2")
+    
+	If c.RowCount > 0 Then
+		For i = 0 To c.RowCount - 1
+			c.Position = i
+			rutas = rutas & c.GetString("CAT_CL_RUTA") & ", "
+		Next
+		If rutas.Length > 0 Then rutas = rutas.SubString2(0, rutas.Length - 2)
+	End If
+    
+	c.Close
+	Return rutas
+End Sub
+
+
+
 Sub traeCliente As String 'ignore
 	Private c As Cursor
 	Private cl As String
@@ -1247,6 +1268,7 @@ Sub bitacora(fechab As String, usuariob As String, almacenb As String, rutab As
 	Private cmd As DBCommand
 	cmd.Initialize
 	cmd.Name = "mandaBitacora3_GUNA"
+	
 	Log("BITACORA3")
 	Private nombreCliente As String = traeNombreCliente(clienteb)
 	If eventob = "Llega a almacen" Then
@@ -1257,6 +1279,8 @@ Sub bitacora(fechab As String, usuariob As String, almacenb As String, rutab As
 	If eventob = "Salida almacen" Then nombreCliente = "CHECKLIST"
 	If eventob = "Fin Día" Then nombreCliente = "FIN DIA"
 	If eventob = "Carga día" Then nombreCliente = "CARGA DIA"
+'	If eventob = "Suplencia" Then nombreCliente = traeRutasSup
+	If eventob = "Carga día suplencia" Then nombreCliente = traeRutasSup
 	If eventob <> "Termina Venta" And eventob <> "No Venta" Then
 		B4XPages.MainPage.skmt.ExecNonQuery($"INSERT INTO BITACORAGPS (fechab, usuariob , almacenb , rutab , eventob , clienteb , iniciob , finb , latitudb, longitudb , precision , motivonoventa , motivonovisita) VALUES ('${fechab}' ,'${usuariob}' , '${almacenb}' , '${rutab}' , '${eventob}' , '${clienteb}' , '${iniciob}' , '${finb}' , '${latitudb}' , '${longitudb}' , '${precision}' , '${motivonoventa}' , '${motivonovisita}')"$)
 		Log($"'${almacenb}', '${usuariob}', '${rutab}', '${eventob}', '${clienteb}', '${nombreCliente}','${ iniciob}', '${finb}','${ latitudb}','${ longitudb}', '${precision}', '${motivonoventa}', '${motivonovisita}', '${fechab}'"$)
@@ -1298,50 +1322,50 @@ Sub bitacora(fechab As String, usuariob As String, almacenb As String, rutab As
 End Sub
 
 'En geocerca si mete la contraseña poner 0 en precision gps y si esta dentro de los 50 mts poner 1 y 2 para eventos que no lo ocupen
-'Mandar fecha de sync(sysdate)
+''Mandar fecha de sync(sysdate)
-Sub bitacoraX(fechab As String, usuariob As String, almacenb As String, rutab As String, eventob As String, clienteb As String, iniciob As String, finb As String, latitudb As String, longitudb As String, precision As String, motivonoventa As String, motivonovisita As String )
+'Sub bitacoraX(fechab As String, usuariob As String, almacenb As String, rutab As String, eventob As String, clienteb As String, iniciob As String, finb As String, latitudb As String, longitudb As String, precision As String, motivonoventa As String, motivonovisita As String )
-	Log("bitacora")
+'	Log("bitacora")
-	B4XPages.MainPage.skmt.ExecNonQuery($"INSERT INTO BITACORAGPS (fechab, usuariob , almacenb , rutab , eventob , clienteb , iniciob , finb , latitudb, longitudb , precision , motivonoventa , motivonovisita) VALUES ('${fechab}' ,'${usuariob}' , '${almacenb}' , '${rutab}' , '${eventob}' , '${clienteb}' , '${iniciob}' , '${finb}' , '${latitudb}' , '${longitudb}' , '${precision}' , '${motivonoventa}' , '${motivonovisita}')"$)
+'	B4XPages.MainPage.skmt.ExecNonQuery($"INSERT INTO BITACORAGPS (fechab, usuariob , almacenb , rutab , eventob , clienteb , iniciob , finb , latitudb, longitudb , precision , motivonoventa , motivonovisita) VALUES ('${fechab}' ,'${usuariob}' , '${almacenb}' , '${rutab}' , '${eventob}' , '${clienteb}' , '${iniciob}' , '${finb}' , '${latitudb}' , '${longitudb}' , '${precision}' , '${motivonoventa}' , '${motivonovisita}')"$)
-	Private cmd As DBCommand
+'	Private cmd As DBCommand
-	cmd.Initialize
+'	cmd.Initialize
-	If eventob <> "Termina Venta" And eventob <> "No Venta" Then
+'	If eventob <> "Termina Venta" And eventob <> "No Venta" Then
-		cmd.Name = "mandaBitacora3_GUNA"
+'		cmd.Name = "mandaBitacora3_GUNA"
-		Log("BITACORA3")
+'		Log("BITACORA3")
-		Private nombreCliente As String = traeNombreCliente(clienteb)
+'		Private nombreCliente As String = traeNombreCliente(clienteb)
-		If eventob = "Llega a almacen" Then
+'		If eventob = "Llega a almacen" Then
-			nombreCliente = "BOLETA"
+'			nombreCliente = "BOLETA"
-			clienteb = ""
+'			clienteb = ""
-			finb = iniciob
+'			finb = iniciob
-		End If
+'		End If
-		If eventob = "Salida almacen" Then nombreCliente = "CHECKLIST"
+'		If eventob = "Salida almacen" Then nombreCliente = "CHECKLIST"
-		If eventob = "Fin Día" Then nombreCliente = "FIN DIA"
+'		If eventob = "Fin Día" Then nombreCliente = "FIN DIA"
-		If eventob = "Carga día" Then nombreCliente = "CARGA DIA"
+'		If eventob = "Carga día" Then nombreCliente = "CARGA DIA"
-		Log($"'${almacenb}', '${usuariob}', '${rutab}', '${eventob}', '${clienteb}', '${nombreCliente}','${ iniciob}', '${finb}','${ latitudb}','${ longitudb}', '${precision}', '${motivonoventa}', '${motivonovisita}', '${fechab}'"$)
+'		Log($"'${almacenb}', '${usuariob}', '${rutab}', '${eventob}', '${clienteb}', '${nombreCliente}','${ iniciob}', '${finb}','${ latitudb}','${ longitudb}', '${precision}', '${motivonoventa}', '${motivonovisita}', '${fechab}'"$)
-'		TMP_ALMACEN, TMP_USUARIO, TMP_RUTA, TMP_EVENTO, TMP_ID_CLIENTE, TMP_NOMBRE_CLIENTE, TMP_INICIO, TMP_FINAL, TMP_LATITUD, TMP_LONGITUD, TMP_PRESICION, TMP_MOTIVO_NO_VENTA, TMP_MOTIVO_NO_VISITA, TMP_FECHA_SINC, TMP_FECHA_MOVIL
+''		TMP_ALMACEN, TMP_USUARIO, TMP_RUTA, TMP_EVENTO, TMP_ID_CLIENTE, TMP_NOMBRE_CLIENTE, TMP_INICIO, TMP_FINAL, TMP_LATITUD, TMP_LONGITUD, TMP_PRESICION, TMP_MOTIVO_NO_VENTA, TMP_MOTIVO_NO_VISITA, TMP_FECHA_SINC, TMP_FECHA_MOVIL
-		cmd.Parameters = Array As Object(almacenb, usuariob, rutab, eventob, clienteb, nombreCliente, iniciob, finb, latitudb, longitudb, precision, motivonoventa, motivonovisita, fechab)
+'		cmd.Parameters = Array As Object(almacenb, usuariob, rutab, eventob, clienteb, nombreCliente, iniciob, finb, latitudb, longitudb, precision, motivonoventa, motivonovisita, fechab)
-		Starter.reqManager.ExecuteCommand(cmd , "mandaBitacora")
+'		Starter.reqManager.ExecuteCommand(cmd , "mandaBitacora")
-	Else
+'	Else
-		Private e As Cursor = B4XPages.MainPage.skmt.ExecQuery($"select fechab from BITACORAGPS where usuariob = '${usuariob}' and almacenb = '${almacenb}' and rutab = '${rutab}' and clienteb = '${clienteb}' and eventob = 'Inicia Venta' order by fechab desc"$)
+'		Private e As Cursor = B4XPages.MainPage.skmt.ExecQuery($"select fechab from BITACORAGPS where usuariob = '${usuariob}' and almacenb = '${almacenb}' and rutab = '${rutab}' and clienteb = '${clienteb}' and eventob = 'Inicia Venta' order by fechab desc"$)
-		If e.RowCount > 0 Then
+'		If e.RowCount > 0 Then
-			e.Position = 0
+'			e.Position = 0
-			Log("ACTUALIZA BITACORA")
+'			Log("ACTUALIZA BITACORA")
-			If eventob = "Termina Venta" Then
+'			If eventob = "Termina Venta" Then
-				cmd.Name = "actualizaSalidaBitacora"
+'				cmd.Name = "actualizaSalidaBitacora"
-'				TMP_FINAL = to_date((?),'YYYY/MM/DD HH24:MI:ss') where TMP_RUTA = (?) and tmp_almacen = (?) and tmp_usuario = (?) and tmp_id_cliente = (?) and tmp_evento = (?) and tmp_fecha_movil = to_date((?),'YYYY/MM/DD HH24:MI:ss');
+''				TMP_FINAL = to_date((?),'YYYY/MM/DD HH24:MI:ss') where TMP_RUTA = (?) and tmp_almacen = (?) and tmp_usuario = (?) and tmp_id_cliente = (?) and tmp_evento = (?) and tmp_fecha_movil = to_date((?),'YYYY/MM/DD HH24:MI:ss');
-				cmd.Parameters = Array As Object(finb, rutab, almacenb, usuariob, clienteb, "Inicia Venta", e.GetString("fechab"))
+'				cmd.Parameters = Array As Object(finb, rutab, almacenb, usuariob, clienteb, "Inicia Venta", e.GetString("fechab"))
-				Log($"${finb}, ${rutab}, ${almacenb}, ${usuariob}, ${clienteb}, 'Inicia Venta', ${e.GetString("fechab")}, "$)
+'				Log($"${finb}, ${rutab}, ${almacenb}, ${usuariob}, ${clienteb}, 'Inicia Venta', ${e.GetString("fechab")}, "$)
-				Starter.reqManager.ExecuteCommand(cmd , "mandaBitacora")
+'				Starter.reqManager.ExecuteCommand(cmd , "mandaBitacora")
-			else if  eventob = "No Venta" Then
+'			else if  eventob = "No Venta" Then
-				cmd.Name = "actualizaNoVentaBitacora"
+'				cmd.Name = "actualizaNoVentaBitacora"
-'				TMP_FINAL = to_date((?),'YYYY/MM/DD HH24:MI:ss') where TMP_RUTA = (?) and tmp_almacen = (?) and tmp_usuario = (?) and tmp_id_cliente = (?) and tmp_evento = (?) and tmp_fecha_movil = to_date((?),'YYYY/MM/DD HH24:MI:ss');
+''				TMP_FINAL = to_date((?),'YYYY/MM/DD HH24:MI:ss') where TMP_RUTA = (?) and tmp_almacen = (?) and tmp_usuario = (?) and tmp_id_cliente = (?) and tmp_evento = (?) and tmp_fecha_movil = to_date((?),'YYYY/MM/DD HH24:MI:ss');
-				cmd.Parameters = Array As Object(finb, motivonoventa, motivonovisita, rutab, almacenb, usuariob, clienteb, "Inicia Venta", e.GetString("fechab"))
+'				cmd.Parameters = Array As Object(finb, motivonoventa, motivonovisita, rutab, almacenb, usuariob, clienteb, "Inicia Venta", e.GetString("fechab"))
-				Log($"${finb}, ${rutab}, ${almacenb}, ${usuariob}, ${clienteb}, 'Inicia Venta', ${e.GetString("fechab")}, "$)
+'				Log($"${finb}, ${rutab}, ${almacenb}, ${usuariob}, ${clienteb}, 'Inicia Venta', ${e.GetString("fechab")}, "$)
-				Starter.reqManager.ExecuteCommand(cmd , "mandaBitacora")
+'				Starter.reqManager.ExecuteCommand(cmd , "mandaBitacora")
-			End If
+'			End If
-		End If
+'		End If
-	End If
+'	End If
-	Log("Mandamos bitacora")
+'	Log("Mandamos bitacora")
-End Sub
+'End Sub
 
 'Regresa el nombre del cliente del id dado.
 Sub traeNombreCliente(id As String) As String