- VERSION 4.10.28

- Se arregló que cuando se agregaba un apromocion, los productoa de esa promocion aparecian como vendidos!!

B4A/Subs.bas

@@ -1689,4 +1689,18 @@ Sub traeTablaProds(tipoventa As String) As String
 	If tipoventa = "ABORDO" Or tipoventa = "PREVENTA" Then tablaProds = "cat_gunaprod"
 '	LogColor($"Tipo= ${tipoventa}, tabla=${tablaProds}"$, Colors.RGB(200,136,0))
 	Return tablaProds
+End Sub
+
+'Revisa si el producto dado se encuentra en el pedido sin formar parte de una promoción.
+'Regresa verdadero o falso.
+Sub revisaProdFueraDePromo(prodId As String) As Boolean
+	Private fueraDePromo As Boolean = False
+	Private p As Cursor = Starter.skmt.ExecQuery($"select PE_CEDIS from PEDIDO where PE_PROID = '${prodId}' and PE_CEDIS in (select id_almacen from CAT_ALMACEN) and PE_CLIENTE = '${B4XPages.MainPage.cliente.la_cuenta.text}'"$)
+	Log("rowcount: " & p.RowCount)
+	If p.RowCount > 0 Then
+		p.Position = 0
+'		Log($"|${p.GetString("PE_CEDIS")}|${prodId}|"$)
+		fueraDePromo = True
+	End If
+	Return fueraDePromo
 End Sub