diff --git a/B4A/C_Principal.bas b/B4A/C_Principal.bas
index 9dbc4bc..45eb0b3 100644
--- a/B4A/C_Principal.bas
+++ b/B4A/C_Principal.bas
@@ -2881,14 +2881,20 @@ Sub SUBIR_INFO_PEDIDO
 		If eventob <> "Termina Venta" And eventob <> "No Venta" Then
 			cmd.Name = "mandaBitacora3"
 			Log("BITACORA3")
+			Private clienteb As String = h.GetString("clienteb")
+			Private finb As String = h.GetString("finb")
 			Private nombreCliente As String =Subs. traeNombreCliente(h.GetString("clienteb"))
-			If eventob = "Llega a almacen" Then nombreCliente = "BOLETA"
+			If eventob = "Llega a almacen" Then
+				nombreCliente = "BOLETA"
+				clienteb = ""
+				finb = h.GetString("iniciob")
+			End If
 			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"
 '			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, h.GetString("clienteb"), nombreCliente, h.GetString("iniciob"), h.GetString("finb"), h.GetString("latitudb"), h.GetString("longitudb"), h.GetString("precision"), h.GetString("motivonoventa"), h.GetString("motivonovisita"), h.GetString("fechab"))
+			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"))
 			Starter.reqManager.ExecuteCommand(cmd , "mandaBitacora")
 		Else
 			Private e As Cursor = Starter.skmt.ExecQuery($"select fechab from BITACORAGPS where usuariob = '${h.GetString("usuariob")}' and almacenb = '${h.GetString("almacenb")}' and rutab = '${h.GetString("rutab")}' and clienteb = '${h.GetString("clienteb")}' and eventob = 'Inicia Venta' order by fechab desc"$)
diff --git a/B4A/KelloggsV4.b4a b/B4A/KelloggsV4.b4a
index 553cde1..840afe9 100644
--- a/B4A/KelloggsV4.b4a
+++ b/B4A/KelloggsV4.b4a
@@ -888,7 +888,7 @@ Version=12.8
 #Region  Project Attributes	
 	#ApplicationLabel: Kelloggs Venta
 	#VersionCode: 3000
-	#VersionName: 4.05.20
+	#VersionName: 4.05.22
 	#SupportedOrientations: portrait
 	#CanInstallToExternalStorage: False
 	#BridgeLogger:true
diff --git a/B4A/KelloggsV4.b4a.meta b/B4A/KelloggsV4.b4a.meta
index 389e4d7..b3eea88 100644
--- a/B4A/KelloggsV4.b4a.meta
+++ b/B4A/KelloggsV4.b4a.meta
@@ -91,6 +91,6 @@ ModuleClosedNodes6=
 ModuleClosedNodes7=
 ModuleClosedNodes8=
 ModuleClosedNodes9=
-NavigationStack=C_Principal,JobDone,1615,0,Visual Designer,cliente.bal,-100,4,kms_helperSubs,revisaImpresa,929,0,kms_helperSubs,clienteConDOE,919,0,kms_helperSubs,traeMaxClientesNuevos,910,0,Visual Designer,login.bal,-100,3,Visual Designer,principal.bal,-100,4,C_Principal,b_cuotas_Click,2739,6,Subs,bitacora,1692,0,C_Principal,connecta_Click,2058,0,C_Principal,SUBIR_INFO_PEDIDO,2862,6
+NavigationStack=kms_helperSubs,clienteConDOE,919,0,kms_helperSubs,traeMaxClientesNuevos,910,0,Visual Designer,login.bal,-100,3,Visual Designer,principal.bal,-100,4,C_Principal,b_cuotas_Click,2739,6,C_Principal,connecta_Click,2058,0,C_Cliente,Class_Globals,0,0,C_Principal,SUBIR_INFO_PEDIDO,2877,6,Subs,bitacora,1699,0,C_Cliente,Cuestionario,2165,0,C_Cliente,muestraBoton,2146,0
 SelectedBuild=0
 VisibleModules=1,28,11,3,26,23,29,12,4,13
diff --git a/B4A/Subs.bas b/B4A/Subs.bas
index ac5af00..dc0584f 100644
--- a/B4A/Subs.bas
+++ b/B4A/Subs.bas
@@ -1700,7 +1700,11 @@ Sub bitacora(fechab As String, usuariob As String, almacenb As String, rutab As
 		cmd.Name = "mandaBitacora3"
 		Log("BITACORA3")
 		Private nombreCliente As String = traeNombreCliente(clienteb)
-		If eventob = "Llega a almacen" Then nombreCliente = "BOLETA"
+		If eventob = "Llega a almacen" Then
+			nombreCliente = "BOLETA"
+			clienteb = ""
+			finb = iniciob
+		End If
 		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"