28/10/23 - Se agrega còdigo para indicar la fecha del respaldo a restaurar.

- Si se agrega un numero negativo despues de la contraseña de la carga local, se toma el respaldo de "hoy menos x dias" para restaurar.

B4A/C_NoVenta.bas

@@ -86,15 +86,18 @@ Sub GUARDA_Click
 	Else
 		motivo = "NO ESTA EL ENCARGADO"
 	End If
+	usuario = Subs.traeUsuarioDeBD
+	If B4XPages.MainPage.cliente.IsInitialized Then
+		B4XPages.MainPage.cliente.motivoNoVenta = motivo
+		Subs.bitacora(Subs.fechanormal(DateTime.Now), usuario, Subs.traeAlmacen, Subs.traeRuta, "Termina Venta", Subs.traeUsuarioDeBD, "", Subs.fechanormal(DateTime.Now), Starter.lat_gps, Starter.lon_gps, B4XPages.MainPage.cliente.precision, motivo, "")
+		Starter.enVenta = False
+	End If
 	DateTime.DateFormat = "MM/dd/yyyy"
 	sDate=DateTime.Date(DateTime.Now)
 	sTime=DateTime.Time(DateTime.Now)
 	c=Starter.skmt.ExecQuery("select CUENTA from cuentaa")
 	c.Position = 0
 	cuenta = c.GetString("CUENTA")
-	c=Starter.skmt.ExecQuery("select usuario from usuarioa")
-	c.Position = 0
-	usuario = c.GetString("USUARIO")
 	c=Starter.skmt.ExecQuery("select PE_PROID,PE_CANT FROM PEDIDO where pe_cliente in (Select CUENTA from cuentaa) ")
 	If c.RowCount>0 Then
 		For i=0 To c.RowCount -1
@@ -116,10 +119,8 @@ Sub GUARDA_Click
 			c.Close
 		End If
 	End If
-	
 	Starter.skmt.ExecNonQuery("delete from pedido_cliente where pc_cliente in (Select CUENTA from cuentaa)")
 	Starter.skmt.ExecNonQuery("delete from pedido where pe_cliente in (Select CUENTA from cuentaa)")
-	
 	Starter.skmt.ExecNonQuery2("INSERT INTO NOVENTA (NV_CLIENTE,NV_FECHA,NV_USER,NV_MOTIVO,NV_COMM,NV_LAT,NV_LON) VALUES(?,?,?,?,?,?,?) ", Array As Object (cuenta,sDate & sTime, usuario, motivo,e_comm.text,Starter.lat_gps,Starter.lon_gps))
 	Starter.skmt.ExecNonQuery("UPDATE kmt_info set gestion = 3  where CAT_CL_CODIGO In (select cuenta from cuentaa)")
 	Subs.iniciaActividad("Principal")