- VERSION 4.11.22

- Se modifico el código de cargar día para que guarde tambien en cat_gunaprod2 la informacion de las promos

B4A/C_Cliente.bas

@@ -26,7 +26,7 @@ Sub Class_Globals
 	Dim ESPACIO As Int
 	Dim BLANCO As String
 	Dim cuenta As String
-	Dim tipo_venta As String = Subs.traeTipoVentaDeBD
+	Dim tipo_venta As String
 	Dim MAC_IMPRESORA As String
 	Dim btAdmin As BluetoothAdmin
 	Dim Printer1 As EscPosPrinter
@@ -497,7 +497,19 @@ Sub B4XPage_Appear
 	dentroDeGeocerca = False
 	indicePregunta = 0
 	If TOMAR_FOTO <> 0 Then Cuestionario
+	Starter.idCliente = Subs.traeCliente
+	Log(Subs.traeCliente)
+	If Subs.traeCliente = "0" Then
+		tipo_venta = "ABORDO"
+		Log(1)
+		Log("ABORDO")
+	Else
+		tipo_venta = Subs.traeTipoVentaDeBD
+		Log(2)
+		Log(Subs.traeTipoVentaDeBD)
+	End If
 	B4XPages.MainPage.tipo_venta = tipo_venta
+	Log($"TIPO_VENTA: ${tipo_venta}"$)
 	encuentasmapa.Initialize
 	Starter.rp.CheckAndRequest(Starter.rp.PERMISSION_CAMERA)
 	Wait For B4XPage_PermissionResult (Permission As String, resultC As Boolean)
@@ -716,8 +728,8 @@ Sub B4XPage_Appear
 		End If
 	End If
 	If ALMACEN = 87 Or ALMACEN = 6 Then
-		If Subs.traemontoprod Then
-			Msgbox2Async("El cliente tiene derecho a un descuento de 150 pesos por la compra de mas de $500 en productos Productos participantes" , "Descuento disponible", "Aceptar", "", "", LoadBitmap(File.DirAssets,"alert2.png"), False)
+		If Subs.traemontoprod And Subs.traeCliente <> "0" Then
+			Msgbox2Async("El cliente tiene derecho a un descuento de 150 pesos por la compra de mas de $500 en productos participantes" , "Descuento disponible", "Aceptar", "", "", LoadBitmap(File.DirAssets,"alert2.png"), False)
 			Wait For Msgbox_Result (resultado As Int)
 			If resultado = DialogResponse.POSITIVE Then
 				Private c As Cursor = B4XPages.MainPage.skmt.ExecQuery("SELECT SUM(PE_CANT) AS PIEZAS FROM PEDIDO JOIN CAT_PROMO_ESP ON CAT_PE_ID = PE_PROID WHERE PE_CLIENTE IN (Select CUENTA FROM CUENTAA)")