- Pedido sugerido

- ABordo habiitado despues de las 12:00
- Parcial de proyecto GPS

B4A/B4XMainPage.bas

@@ -464,7 +464,7 @@ Sub Entrar_Click
 		reqManager.ExecuteQuery(cmd , 0, "version")
 	Else
 		Subs.iniciaActividad("Principal")
-'		B4XPages.ShowPage("Principal")a
+'		B4XPages.ShowPage("Principal")
 	End If
 End Sub
 
@@ -499,7 +499,6 @@ Sub JobDone(Job As HttpJob)
 					Starter.FECHA_HOY = records(result.Columns.Get("FECHA"))
 					Starter.skmt.ExecNonQuery2("delete from CAT_VARIABLES where CAT_VA_DESCRIPCION = ?", Array As Object ("FECHA"))
 					Starter.skmt.ExecNonQuery2("INSERT INTO CAT_VARIABLES(CAT_VA_DESCRIPCION, CAT_VA_VALOR) VALUES (?,?)", Array As Object ("FECHA", Starter.FECHA_HOY))
-					Log("GUARDAMOS FECHA EN CAT_VARIABLES")
 				Next
 			End If
 
@@ -513,6 +512,15 @@ Sub JobDone(Job As HttpJob)
 				Next
 				paso1 = 1
 			End If
+
+			Dim result As DBResult = reqManager.HandleJob(Job)
+			If result.Tag = "fecha" Then 'query tag
+				For Each records() As Object In result.Rows
+					Starter.FECHA_HOY = records(result.Columns.Get("FECHA"))
+					Starter.skmt.ExecNonQuery2("delete from CAT_VARIABLES where CAT_VA_DESCRIPCION = ?", Array As Object ("FECHA"))
+					Starter.skmt.ExecNonQuery2("INSERT INTO CAT_VARIABLES(CAT_VA_DESCRIPCION, CAT_VA_VALOR) VALUES (?,?)", Array As Object ("FECHA",Starter.FECHA_HOY))
+				Next
+			End If
 		End If
 		Job.Release
 	End If
@@ -743,8 +751,6 @@ Private Sub b_cargaLocalOk_Click
 		kh.RD_restaura_kmt_info
 		kh.RD_restaura_promos_comp
 		ime.HideKeyboard
-		DateTime.DateFormat = "yyyyMMdd"
-		Starter.skmt.ExecNonQuery($"update USUARIOA set fecha = '${DateTime.Date(DateTime.Now)}'"$)
 		ToastMessageShow("¡¡CARGA EXITOSA!!", True)
 	Else
 		ToastMessageShow("CODIGO EQUIVOCADO", True)