Correcciones a la carga local:

- Se agregó que cuando se hace CARGA LOCAL, se ponga en CAT_VARIABLES el dia de la semana de hoy, se borra la fecha de FIN DIA, se pone la contraseña de FIN DIA en "CL" y se pone en FECHA el dia de hoy, para que la aplicacion sepa la fecha correcta y permita ingresar con el usuario guardado sin necesidad de contraseña.

B4A/B4XMainPage.bas

@@ -464,7 +464,7 @@ Sub Entrar_Click
 		reqManager.ExecuteQuery(cmd , 0, "version")
 	Else
 		Subs.iniciaActividad("Principal")
-'		B4XPages.ShowPage("Principal")
+'		B4XPages.ShowPage("Principal")a
 	End If
 End Sub
 
@@ -499,6 +499,7 @@ 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
 
@@ -512,15 +513,6 @@ 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
@@ -751,6 +743,8 @@ 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)