- VERSION 4.11.20

- Se modificó el codigo de carga local (proyecto recuperacion) para que por default restaure el respaldo del día ANTERIOR

B4A/B4XMainPage.bas

@@ -755,6 +755,10 @@ Private Sub b_cargaLocalOk_Click
 		p_cargaLocal.Visible = False
 '		Log(et_cargaLocal.Text.Length > pass1.Length)
 
+		Log(et_cargaLocal.text)
+		If et_cargaLocal.Text.Length = pass1.Length Then et_cargaLocal.text = et_cargaLocal.text & "-1"
+		Log(et_cargaLocal.text)
+
 		' RD_fechaRestauracion - Si esta en blanco, la fecha de restauracion es HOY, si no, es la especificada en "ticks".
 		kh.RD_fechaRestauracion = ""
 
@@ -780,11 +784,12 @@ Private Sub b_cargaLocalOk_Click
 		Msgbox($"Se va a restaurar el respaldo de la fecha: ${fechaRes}"$, "AVISO")
 
 		kh.revisaRkmtAttached
-		kh.RD_restaura_cat_gunaprod
 		kh.RD_restaura_cat_variables
+		kh.RD_restaura_cat_gunaprod
 		kh.RD_restaura_cat_gunaprod2
 		kh.RD_restaura_cat_detalle_paq
 		kh.RD_restaura_promos_comp
+		Sleep(500)
 		kh.RD_restaura_kmt_info
 
 		ime.HideKeyboard

B4A/C_Cliente.bas

@@ -656,8 +656,9 @@ Sub B4XPage_Appear
 '		If Logger Then Log(mPromoEspecial.Get("esValida"))
 		If Subs.traeUltimaActividadBD = "Productos" Then 'Venimos de "Productos"
 			If logger Then Log("Venimos de Productos")
-			If l_total.Text <> Null And mPromoEspecial.Get("montoPromo") <> Null And l_total.Text > ((mPromoEspecial.Get("montoPromo") *  (100 - mPromoEspecial.Get("rangoPromo")))/100) And _
+			If l_total.Text <> Null And mPromoEspecial.Get("montoPromo") <> Null And _
-			l_total.Text <= mPromoEspecial.Get("montoPromo") Then 'El monto de la venta esta dentro del rango para la promo.
+				l_total.Text > ((mPromoEspecial.Get("montoPromo") *  (100 - mPromoEspecial.Get("rangoPromo")))/100) And _  'El total es el porcentaje de rango MENOR al total de la venta
+				l_total.Text <= mPromoEspecial.Get("montoPromo") Then 'El monto de la venta esta dentro del rango para la promo.
 				If logger Then Log("Promo dentro del rango")
 				Msgbox($"Si la venta sobrepasa los $${mPromoEspecial.Get("montoPromo")} se activa la promoción '${mPromoEspecial.Get("descrPromo")}'"$, "CASI EN RANGO DE PROMO ESPECIAL") 'ignore
 			Else

B4A/C_Principal.bas

@@ -2262,6 +2262,10 @@ Sub e_ruta_EnterPressed
 	End If
 End Sub
 
+Sub kh_corriBatch
+	Log("respaldo corrido!!")
+End Sub
+
 Sub inv_Click
 	img2.Visible =True
 	EJECUTANDO = 1

B4A/KelloggsV4.b4a.meta

@@ -63,7 +63,7 @@ ModuleBreakpoints9=
 ModuleClosedNodes0=
 ModuleClosedNodes1=
 ModuleClosedNodes10=
-ModuleClosedNodes11=3,25
+ModuleClosedNodes11=
 ModuleClosedNodes12=3,5,6,7,8,9
 ModuleClosedNodes13=1,5
 ModuleClosedNodes14=
@@ -76,7 +76,7 @@ ModuleClosedNodes2=
 ModuleClosedNodes20=
 ModuleClosedNodes21=
 ModuleClosedNodes22=
-ModuleClosedNodes23=1,5,8,11,19
+ModuleClosedNodes23=1,3,5,6,7,8,9,11,12,13,14,15,17,18,19,21,22,24,25,26,27,28,29,30,31,32,33,35
 ModuleClosedNodes24=
 ModuleClosedNodes25=
 ModuleClosedNodes26=
@@ -91,6 +91,6 @@ ModuleClosedNodes6=
 ModuleClosedNodes7=
 ModuleClosedNodes8=
 ModuleClosedNodes9=
-NavigationStack=Subs,generaGUID_EnExterno,1891,0,Main,Globals,28,0,Main,Process_Globals,26,0,Main,Activity_Create,34,0,B4XMainPage,b_cargaLocalOk_Click,740,6,B4XMainPage,B4XPage_Created,361,0,kms_helperSubs,revisaSiExisteRespaldo,92,0,kms_helperSubs,RD_copiaRespaldoDiario,529,6,kms_helperSubs,RD_respaldoBatch,526,0,C_Principal,B4XPage_Appear,514,3
+NavigationStack=C_Cliente,gest_Click,866,0,C_Principal,B_PROXIMA_Click,2696,0,C_Cliente,B_VENTA_Click,2170,0,C_Cliente,B_IMP_INVBAK_Click,3230,0,Subs,traeTablaProds,1624,0,Visual Designer,checklist.bal,-100,3,Subs,guardaCambiosDeProducto,1607,0,Subs,traeFechaDeBD,1620,0,C_Principal,JobDone,2052,0,B4XMainPage,B4XPage_Created,169,0,B4XMainPage,b_cargaLocalOk_Click,752,6
 SelectedBuild=0
 VisibleModules=1,28,11,3,29,12,4,13,23,7

B4A/kms_helperSubs.bas

@@ -193,20 +193,21 @@ End Sub
 'RD - Copia la tabla CAT_GUNAPROD de rkmt.db al celular.
 Sub RD_restaura_cat_gunaprod
 	Private inicio As String = DateTime.Now
-'	Log("Restaurando CAT_GUNAPROD ...")
+	Log("Restaurando CAT_GUNAPROD ...")
-'	Log($"FECHA RESTAURACION: ${RD_fechaRestauracion}"$)
+	Log($"FECHA RESTAURACION: ${RD_fechaRestauracion}"$)
 	fechaRestauracion = RD_fechaRestauracionSQL(RD_fechaRestauracion)
 	Private lasCols As String = getTableColumnListName(rkmt, "CAT_GUNAPROD")
 	Log(">>>>>>>>   fechaRestauracion GP: " & fechaRestauracion)
 	lasCols = lasCols.Replace(", FECHA", "") 'Quitamos la imagen del respaldo.
 	Private c As Cursor = rkmt.ExecQuery($"select distinct fecha from CAT_GUNAPROD ${fechaRestauracion} order by fecha desc"$) '  where fecha <> '${fechaHoy}'   'Traemos la ultima fecha antes de hoy.
-'	Log(c.RowCount)
+	Log($"select distinct fecha from CAT_GUNAPROD ${fechaRestauracion} order by fecha desc"$)
+	Log(c.RowCount)
 	If c.RowCount > 0 Then
 		c.Position = 0
 '		Log(c.GetString("FECHA"))
 		skmt.ExecNonQuery("delete from CAT_GUNAPROD")
 		skmt.ExecNonQuery($"insert into CAT_GUNAPROD (${lasCols}) select ${lasCols} from rkmt1.CAT_GUNAPROD where fecha = '${c.GetString("FECHA")}'"$)
-'		Log($"insert into CAT_GUNAPROD (${lasCols}) select ${lasCols} from rkmt1.CAT_GUNAPROD where fecha = '${c.GetString("FECHA")}'"$)
+		Log($"insert into CAT_GUNAPROD (${lasCols}) select ${lasCols} from rkmt1.CAT_GUNAPROD where fecha = '${c.GetString("FECHA")}'"$)
 	Else
 		If fechaRestauracion.Length > 0 Then
 			ToastMessageShow($"No hay respaldo GP para la fecha ${fechaRestauracion.SubString(fechaRestauracion.Length - 10)}"$, True)
@@ -467,7 +468,7 @@ Sub RD_restaura_promos_comp
 		End If
 	End If
 	c.Close
-	Log("R-KMT: " & ((DateTime.Now - inicio)/1000) & " segs")
+	Log("R-PC: " & ((DateTime.Now - inicio)/1000) & " segs")
 End Sub
 
 'RD - Copia la tabla cat_rmi a rkmt.db en la tarjeta del celular.