- Se regresaron cambios de correciones a carga local y encuestas que se habian borrado por error

B4A/C_Principal.bas

@@ -289,6 +289,7 @@ End Sub
 'You can see the list of page related events in the B4XPagesManager object. The event name is B4XPage.
 
 Sub B4XPage_Appear
+'	Log(Subs.traeDiaSemana)
 	StartBluetooth
 '	If Not(kh.CheckNotificationAccess) Then
 '		Msgbox2Async($"Se necesita acceso a las notificaciones, haga clic en "Aceptar" y en la siguiente pantalla permita el acceso a la aplicación "${Application.LabelName}"."$, "Permisos necesarios", "Aceptar", "", "", Null, True)
@@ -1038,14 +1039,12 @@ Sub JobDone(Job As HttpJob)
 				For Each records() As Object In RESULT.Rows
 					Dim ID_PRODUCTO As String = records(RESULT.Columns.Get("ID_PRODUCTO"))
 					Dim CANTIDAD As String = records(RESULT.Columns.Get("PROMEDIO"))
-				
 					c = Starter.skmt.ExecQuery2("SELECT * FROM CAT_GUNAPROD WHERE CAT_GP_ID = ?",Array As String(ID_PRODUCTO))
 					If c.RowCount > 0 Then
 						c.Position = 0 
 						Subs.actualizaProducto(ALMACEN, c.GetString("CAT_GP_PRECIO"),CANTIDAD, c.GetString("CAT_GP_NOMBRE"), ID_PRODUCTO,"0",Subs.traeFecha,usuario,e_ruta.Text,c.GetString("CAT_GP_PRECIO"),"ABORDO")
 					End If
 '					Starter.skmt.ExecNonQuery2("INSERT INTO PEDIDO(PE_TIPO, PE_RUTA, PE_CEDIS, PE_CANT,PE_PROID,PE_CLIENTE, PE_USUARIO) VALUES (?,?,?,?,?,?,?)", Array As Object ("ABORDO", e_ruta.Text, ALMACEN, CANTIDAD, ID_PRODUCTO, "0", usuario))
-				
 				Next
 			End If
 		End If
@@ -2482,7 +2481,7 @@ Sub B_PROXIMA_Click
 		Starter.tipov = "ABORDO"
 		B4XPages.ShowPage("Productos")
 	Else
-		
+
 	End If
 End Sub