- Correccion en el codigo del B_IMP2 y el pedido sugerido!!

B4A/C_Principal.bas

@@ -2523,6 +2523,7 @@ Sub B_PROXIMA_Click
 	b = Starter.skmt.ExecQuery("Select count(*) as CUANTOS from pedido where pe_cliente = 0 and pe_tipo = 'ABORDO' " )
 	b.Position = 0
 	If horaentrada Then
+		Log(b.GetString("CUANTOS"))
 		If b.GetString("CUANTOS") > 0 Then
 '			If horaentrada Then
 				Starter.skmt.ExecNonQuery("delete from CUENTAA")
@@ -2531,7 +2532,9 @@ Sub B_PROXIMA_Click
 				B4XPages.ShowPage("Productos")
 '			End If
 		Else If b.GetString("CUANTOS") = 0 Then
+			Log(777)
 			e = Starter.skmt.ExecQuery("SELECT * FROM PEDIDO_SUGERIDO")
+			Log(e.RowCount)
 			If e.RowCount > 0 Then
 				Msgbox2Async("Tienes un pedido sugerido, ¿Deseas aceptarlo?","Atención", "Si", "", "No",LoadBitmap(File.DirAssets,"alert2.png"),False)
 				Wait For Msgbox_Result (result As Int)
@@ -2558,7 +2561,7 @@ Sub B_PROXIMA_Click
 						B4XPages.ShowPage("Productos")
 '					End If
 				End If
-			Else If c.RowCount = 0 Then
+			Else
 '				If horaentrada Then
 					Starter.skmt.ExecNonQuery("delete from CUENTAA")
 					Starter.skmt.ExecNonQuery2("INSERT INTO CUENTAA VALUES (?)", Array As Object("0"))
@@ -2605,8 +2608,10 @@ Sub horaentrada As Boolean
 	Log("lasDoce: " & DateUtils.TicksToString(lasDoce))
 	If DateTime.Now < lasDoce Then
 		ToastMessageShow($"No puedes entrar al ABORDO antes de las ${Subs.horaNormal(lasDoce)}"$, True)
+		Log("False")
 		Return False
 	Else
+		Log("true")
 		Return True
 	End If
 End Sub