6.02.20

Se agrega opcion para deshabilitar descuentos
Se modifica para que en mayoreo no les de el codigo de credito
Se cambia el querie del conecta_click

B4A/B4XMainPage.bas

@@ -237,6 +237,7 @@ Private Sub B4XPage_Created (Root1 As B4XView)
 	Subs.agregaColumna("HIST_ENCUESTA", "HE_FOTO", "BLOB")
 	Subs.agregaColumna("kmt_info3", "foto", "BLOB")
 	Subs.agregaColumna("PEDIDO", "PE_RECALCULO", "TEXT")
+	Subs.agregaColumna("PEDIDO", "PE_DESC", "TEXT")
 	Subs.agregaColumna("PEDIDO", "PE_RECALCULADO", "TEXT")
 	Subs.agregaColumna("CODIGOS_CREDITO", "CLIENTE", "TEXT")
 	Subs.agregaColumna("PEDIDO", "PE_RECCEDIS", "TEXT")

B4A/C_Cliente.bas

@@ -1404,7 +1404,7 @@ End Sub
 ' Recalcula y pone en PEDIDO si el producto cumple lascondiciones para tener descuento
 Sub recalculoXcant
 '	Private c As Cursor = B4XPages.MainPage.skmt.ExecQuery2("SELECT* FROM PEDIDO JOIN CAT_PROMOS_DESCUENTOS ON CAT_PD_PRODUCTO = PE_PROID WHERE PE_CLIENTE IN (Select CUENTA FROM CUENTAA) AND PE_CEDIS = ? AND PE_CANT >= CAT_PD_RANGO AND CAT_PD_RANGO2 <= PE_CANT", Array As String(Subs.traeAlmacen))
-	Private c As Cursor = B4XPages.MainPage.skmt.ExecQuery2("SELECT * FROM PEDIDO WHERE PE_CLIENTE IN (Select CUENTA FROM CUENTAA) AND PE_CEDIS = ? ", Array As String(Subs.traeAlmacen))
+	Private c As Cursor = B4XPages.MainPage.skmt.ExecQuery2("SELECT * FROM PEDIDO WHERE PE_CLIENTE IN (Select CUENTA FROM CUENTAA) AND PE_CEDIS = ? AND PE_DESC = '0' ", Array As String(Subs.traeAlmacen))
 	If c.RowCount > 0 Then
 		For promespdes = 0 To c.RowCount -1
 			c.Position = promespdes
@@ -1421,7 +1421,7 @@ Sub recalculoXcant
 						Log(NumberFormat2(((c.GetString("PE_COSTOU") * rangosel.GetString("CAT_PD_DESCUENTO"))/100),0,2,2,False))
 						Log(rangosel.GetString("CAT_PD_DESCUENTO"))
 						Private recalculototal As Float =c.GetString("PE_CANT") * recalculo
-						skmt.ExecNonQuery2("UPDATE PEDIDO set PE_RECALCULO = ?, PE_RECALCULOTOT = ?, PE_RECCEDIS = ?, PE_RECCANT = PE_CANT WHERE PE_PROID = ? AND PE_CLIENTE IN (SELECT CUENTA FROM CUENTAA) AND PE_CEDIS = ? and PE_FOLIO = ? ",Array As String(NumberFormat2(recalculo,0,2,2,False) ,NumberFormat2(recalculototal,0,2,2,False),  rangosel.GetString("CAT_PD_COD_PROMO"),c.GetString("PE_PROID"), Subs.traeAlmacen, c.GetString("PE_FOLIO")))
+						skmt.ExecNonQuery2("UPDATE PEDIDO set PE_RECALCULO = ?, PE_RECALCULOTOT = ?, PE_RECCEDIS = ?, PE_RECCANT = PE_CANT WHERE PE_PROID = ? AND PE_CLIENTE IN (SELECT CUENTA FROM CUENTAA) AND PE_CEDIS = ? and PE_FOLIO = ? AND IFNULL(PE_DESC,0) = 0",Array As String(NumberFormat2(recalculo,0,2,2,False) ,NumberFormat2(recalculototal,0,2,2,False),  rangosel.GetString("CAT_PD_COD_PROMO"),c.GetString("PE_PROID"), Subs.traeAlmacen, c.GetString("PE_FOLIO")))
 					End If
 				Next
 			Else ' No cumple el rango ...
@@ -1446,13 +1446,18 @@ Sub recalculoXcant
 						End If
 					Next
 				Else
-					skmt.ExecNonQuery2("UPDATE PEDIDO set PE_RECALCULO = NULL, PE_RECALCULOTOT = NULL, PE_RECCEDIS = NULL, PE_RECCANT = NULL WHERE PE_PROID = ? AND PE_CLIENTE IN (SELECT CUENTA FROM CUENTAA) AND PE_CEDIS = ? AND PE_FOLIO = ?",Array As String(c.GetString("PE_PROID"), Subs.traeAlmacen, c.GetString("PE_FOLIO")))
+					skmt.ExecNonQuery2("UPDATE PEDIDO set PE_RECALCULO = NULL, PE_RECALCULOTOT = NULL, PE_RECCEDIS = NULL, PE_RECCANT = NULL WHERE PE_PROID = ? AND PE_CLIENTE IN (SELECT CUENTA FROM CUENTAA) AND PE_CEDIS = ? AND PE_FOLIO = ? AND IFNULL(PE_DESC,0) = 0",Array As String(c.GetString("PE_PROID"), Subs.traeAlmacen, c.GetString("PE_FOLIO")))
 				End If
 				rangosel2.Close
 			End If
 			rangosel.Close
 		Next
 	End If
+	
+	Private c As Cursor = B4XPages.MainPage.skmt.ExecQuery2("SELECT * FROM PEDIDO WHERE PE_CLIENTE IN (Select CUENTA FROM CUENTAA) AND PE_CEDIS = ? AND PE_DESC = '1' ", Array As String(Subs.traeAlmacen))
+	If c.RowCount > 0 Then
+		skmt.ExecNonQuery2("UPDATE PEDIDO set PE_RECALCULO = NULL, PE_RECALCULOTOT = NULL, PE_RECCEDIS = NULL, PE_RECCANT = NULL WHERE PE_CLIENTE IN (SELECT CUENTA FROM CUENTAA) AND PE_CEDIS = ? AND PE_DESC = '1'",Array As String(Subs.traeAlmacen))
+	End If
 	skmt.ExecNonQuery2("UPDATE PEDIDO set PE_RECALCULO = NULL, PE_RECALCULOTOT = NULL, PE_RECCEDIS = NULL, PE_RECCANT = NULL WHERE PE_CLIENTE IN (SELECT CUENTA FROM CUENTAA) AND PE_CEDIS <> ?",Array As String(Subs.traeAlmacen))
 End Sub
 
@@ -3168,10 +3173,10 @@ Sub B_IMP_Click
 		Else
 			Impresion
 		End If
-	Else If ALMACEN = 88 Then
+	Else If ALMACEN = 88 Or ALMACEN = 94 Then
 		
 		Impresion4
-	Else If ALMACEN = 81 Or ALMACEN = 102 Or ALMACEN = 94 Then
+	Else If ALMACEN = 81 Or ALMACEN = 102 Then
 		
 		c=B4XPages.MainPage.skmt.ExecQuery("select IFNULL(CAT_CL_BCREDITO,0) AS CAT_CL_BCREDITO, CAT_CL_LIMITECREDITO, IFNULL(CONFIRMADO,0) AS CONFIRMADO from kmt_info3 where CAT_CL_CODIGO In (Select cuenta from cuentaa)")
 		c.Position = 0
@@ -3235,7 +3240,7 @@ End Sub
 Sub Impresion4
 	Dim pedinow As Cursor = skmt.ExecQuery("select * FROM PEDIDO WHERE PE_CLIENTE IN (Select CUENTA from cuentaa) AND PE_FUTURO = '0' ")
 	If pedinow.RowCount > 0 Then
-		Mandap
+		Mandapedido
 	
 	c=skmt.ExecQuery("select USUARIO from usuarioa")
 	c.Position=0
@@ -3534,7 +3539,7 @@ Sub Impresion4
 	End If
 End Sub
 
-Sub Mandap
+Sub Mandapedido
 '	PEDIDO
 	c=B4XPages.MainPage.skmt.ExecQuery2("SELECT PE_CEDIS,PE_COSTO_TOT,PE_COSTOU,PE_CANT,PE_PRONOMBRE,PE_PROID,PE_CLIENTE,PE_FECHA,PE_USUARIO, PE_COSTO_SIN, PE_RUTA, PE_DESC, PE_FOLIO FROM PEDIDO WHERE (PE_RECALCULO = ? or PE_RECALCULO = ? or PE_RECALCULO IS NULL)",Array As String("","null"))
 	Dim d As Cursor=B4XPages.MainPage.skmt.ExecQuery("SELECT COUNT(*) as CUANTOS_PEDIDO FROM PEDIDO")

B4A/C_Principal.bas

@@ -587,7 +587,7 @@ End Sub
 
 Sub recalculoXcant
 '	Private c As Cursor = B4XPages.MainPage.skmt.ExecQuery2("SELECT* FROM PEDIDO JOIN CAT_PROMOS_DESCUENTOS ON CAT_PD_PRODUCTO = PE_PROID WHERE PE_CLIENTE IN (Select CUENTA FROM CUENTAA) AND PE_CEDIS = ? AND PE_CANT >= CAT_PD_RANGO AND CAT_PD_RANGO2 <= PE_CANT", Array As String(Subs.traeAlmacen))
-	Private c As Cursor = B4XPages.MainPage.skmt.ExecQuery2("SELECT * FROM PEDIDO WHERE PE_CEDIS = ? and PE_RECCEDIS IS NOT NULL AND PE_RECALCULADO IS NULL ", Array As String(Subs.traeAlmacen))
+	Private c As Cursor = B4XPages.MainPage.skmt.ExecQuery2("SELECT * FROM PEDIDO WHERE PE_CEDIS = ? and PE_RECCEDIS IS NOT NULL AND PE_RECALCULADO IS NULL AND PE_DESC = '0'", Array As String(Subs.traeAlmacen))
 	If c.RowCount > 0 Then
 		For promespdes = 0 To c.RowCount -1
 			c.Position = promespdes
@@ -1629,7 +1629,7 @@ Sub JobDone(Job As HttpJob)
 				If n = "OKActivo"  Then
 					Dim cmd As DBCommand
 					cmd.Initialize
-					cmd.Name = "select_ruta_GV2_70_15"
+					cmd.Name = "select_ruta_GV2_70_16"
 					cmd.Parameters = Array As Object(ALMACEN,e_ruta.text, usuario)
 					B4XPages.MainPage.reqManager.ExecuteQuery(cmd , 0, "ruta")
 					'Log("Usuario guardado en BD es 'Valido'")

B4A/C_Productos.bas

@@ -108,6 +108,8 @@ Sub Class_Globals
 	
 	Dim preciodev As Double
 	Dim nombredev As String
+	
+	Private cb_descuento As CheckBox
 End Sub
 
 'You can add more parameters here.
@@ -751,6 +753,8 @@ Sub b_prodMenos_Click
 	Dim lProdX As B4XView = pnl.GetView(1)
 '	Dim panelcajas As B4XView = pnl.GetView(3)
 	Dim panelpiezas As B4XView = pnl.GetView(2)
+	Dim cb_des As CheckBox = pnl.GetView(4)
+	Dim aplicades As String
 '	Log($"precio|stock:${laCant.tag}"$)
 	If laCant.Text = "" Then laCant.Text = 0
 '	Log("lacant.text="&laCant.text)
@@ -775,13 +779,22 @@ Sub b_prodMenos_Click
 '	Else
 '		totalcajasmaspiezas = laCant.Text
 '	End If
+
+	If cb_des.Checked Then
+		Log(" descuento igual a True")
+		aplicades = "1"
+	Else
+		Log("descuento igual a false")
+		aplicades = "0"
+	End If
+
 	LogColor("prodsMap="&prodsMap, Colors.blue)
 '	(Subs.traeAlmacen, p1.Get("precio"), p1.Get("cant"), pn, p, clienteId, Subs.traeFecha, Subs.traeUsuarioDeBD, rutaUsuario, 0, B4XPages.MainPage.tipo_venta)
 	Log($"${Subs.traeAlmacen}, ${precio}, ${laCant.text}, ${Subs.traeProdNombre(id)}, ${id}, ${clienteId}"$)
 	If B4XPages.MainPage.tipo_venta = "PREVENTA_FUTURA" Then
-		Subs.actualizaProducto(Subs.traeAlmacen, precio, laCant.Text, Subs.traeProdNombre(id), id, clienteId, Subs.traeFecha, Subs.traeUsuarioDeBD, rutaUsuario, 0, B4XPages.MainPage.tipo_venta,0,1)
+		Subs.actualizaProducto(Subs.traeAlmacen, precio, laCant.Text, Subs.traeProdNombre(id), id, clienteId, Subs.traeFecha, Subs.traeUsuarioDeBD, rutaUsuario, 0, B4XPages.MainPage.tipo_venta,0,1,aplicades)
 	Else
-		Subs.actualizaProducto(Subs.traeAlmacen, precio, laCant.Text, Subs.traeProdNombre(id), id, clienteId, Subs.traeFecha, Subs.traeUsuarioDeBD, rutaUsuario, 0, B4XPages.MainPage.tipo_venta,0,0)
+		Subs.actualizaProducto(Subs.traeAlmacen, precio, laCant.Text, Subs.traeProdNombre(id), id, clienteId, Subs.traeFecha, Subs.traeUsuarioDeBD, rutaUsuario, 0, B4XPages.MainPage.tipo_venta,0,0,aplicades)
 	End If
 	cuentaProds
 	LogColor("prodsMap="&prodsMap, Colors.blue)
@@ -895,7 +908,8 @@ Sub b_prodMas_Click
 	Dim panelpiezas As B4XView = pnl.GetView(2)
 '	Dim laCant2 As B4XView = pnl.GetView(3).GetView(2)
 	Dim lProdX As B4XView = pnl.GetView(1)
-
+	Dim cb_des As CheckBox = pnl.GetView(4)
+	Dim aplicades As String
 '	Private tmpMap As Map = clv_prods_ll.GetValue(index).As(Map)
 	Private precio As String=clv_prods_ll.GetValue(index).As(Map).Get("precio")
 	Private inv As String=clv_prods_ll.GetValue(index).As(Map).Get("almacen")
@@ -938,6 +952,14 @@ Sub b_prodMas_Click
 '		panelcajas.Visible = True
 '	End If
 
+	If cb_des.Checked Then
+		Log(" descuento igual a True")
+		aplicades = "1"
+	Else
+		Log("descuento igual a false")
+		aplicades = "0"
+	End If
+
 	LogColor(laCant.Text,Colors.Red)
 '	If laCant2.IsInitialized Then
 '		totalcajasmaspiezas = laCant.Text + laCant2.Text
@@ -946,9 +968,10 @@ Sub b_prodMas_Click
 '	End If
 	Log(B4XPages.MainPage.tipo_venta)
 	If B4XPages.MainPage.tipo_venta = "PREVENTA_FUTURA" Then
-		Subs.actualizaProducto(Subs.traeAlmacen, precio, laCant.Text, Subs.traeProdNombre(id), id, clienteId, Subs.traeFecha, Subs.traeUsuarioDeBD, rutaUsuario, 0, B4XPages.MainPage.tipo_venta,0,1)
+		
+		Subs.actualizaProducto(Subs.traeAlmacen, precio, laCant.Text, Subs.traeProdNombre(id), id, clienteId, Subs.traeFecha, Subs.traeUsuarioDeBD, rutaUsuario, 0, B4XPages.MainPage.tipo_venta,0,1,aplicades)
 	Else
-		Subs.actualizaProducto(Subs.traeAlmacen, precio, laCant.Text, Subs.traeProdNombre(id), id, clienteId, Subs.traeFecha, Subs.traeUsuarioDeBD, rutaUsuario, 0, B4XPages.MainPage.tipo_venta,0,0)
+		Subs.actualizaProducto(Subs.traeAlmacen, precio, laCant.Text, Subs.traeProdNombre(id), id, clienteId, Subs.traeFecha, Subs.traeUsuarioDeBD, rutaUsuario, 0, B4XPages.MainPage.tipo_venta,0,0,aplicades)
 	End If
 '		Subs.actualizaProducto( Subs.traeAlmacen, precio, laCant.Text, Subs.traeProdNombre(id), id, clienteId, Subs.traeFecha, Subs.traeUsuarioDeBD, rutaUsuario, 0, B4XPages.MainPage.tipo_venta,0)
 	cuentaProds
@@ -1020,6 +1043,8 @@ Private Sub et_pCant_TextChanged (Old As String, New As String)
 		Dim laCant As B4XView = pnl.GetView(2).GetView(2)
 '		Dim laCant2 As B4XView = pnl.GetView(3).GetView(2)
 		Dim lProdX As B4XView = pnl.GetView(1)
+		Dim cb_des As CheckBox = pnl.GetView(4)
+		Dim aplicades As String
 		Private id As String=clv_prods_ll.GetValue(index).As(Map).Get("id")
 		Private precio As String=clv_prods_ll.GetValue(index).As(Map).Get("precio")
 		Private inv As String=clv_prods_ll.GetValue(index).As(Map).Get("almacen")
@@ -1046,6 +1071,15 @@ Private Sub et_pCant_TextChanged (Old As String, New As String)
 '			
 '			panelcajas.Visible = True
 '		End If
+
+		If cb_des.Checked Then
+			Log(" descuento igual a True")
+			aplicades = "1"
+		Else
+			Log("descuento igual a false")
+			aplicades = "0"
+		End If
+
 		
 '		If laCant2.IsInitialized Then
 '			totalcajasmaspiezas = laCant.Text + laCant2.Text
@@ -1055,9 +1089,9 @@ Private Sub et_pCant_TextChanged (Old As String, New As String)
 		If Not(Old = "0" And New = "") And laCant.Text <> Null And laCant.Text <> "" And etCantHasFocus Then
 			Log("actualizamos producto")
 			If B4XPages.MainPage.tipo_venta = "PREVENTA_FUTURA" Then
-				Subs.actualizaProducto(Subs.traeAlmacen, precio, laCant.Text, Subs.traeProdNombre(id), id, clienteId, Subs.traeFecha, Subs.traeUsuarioDeBD, rutaUsuario, 0, B4XPages.MainPage.tipo_venta,0,1)
+				Subs.actualizaProducto(Subs.traeAlmacen, precio, laCant.Text, Subs.traeProdNombre(id), id, clienteId, Subs.traeFecha, Subs.traeUsuarioDeBD, rutaUsuario, 0, B4XPages.MainPage.tipo_venta,0,1,aplicades)
 			Else
-				Subs.actualizaProducto(Subs.traeAlmacen, precio, laCant.Text, Subs.traeProdNombre(id), id, clienteId, Subs.traeFecha, Subs.traeUsuarioDeBD, rutaUsuario, 0, B4XPages.MainPage.tipo_venta,0,0)
+				Subs.actualizaProducto(Subs.traeAlmacen, precio, laCant.Text, Subs.traeProdNombre(id), id, clienteId, Subs.traeFecha, Subs.traeUsuarioDeBD, rutaUsuario, 0, B4XPages.MainPage.tipo_venta,0,0,aplicades)
 			End If
 '				Subs.actualizaProducto(Subs.traeAlmacen, precio, laCant.Text, Subs.traeProdNombre(id), id, clienteId, Subs.traeFecha, Subs.traeUsuarioDeBD, rutaUsuario, 0, B4XPages.MainPage.tipo_venta,0)
 			cuentaProds
@@ -1652,6 +1686,19 @@ Private Sub clv_prods_ll_VisibleRangeChanged (FirstIndex As Int, LastIndex As In
 				If clv_prods_ll.GetValue(i).As(Map).Get("cant") <> Null And clv_prods_ll.GetValue(i).As(Map).Get("cant") > 0 Then
 					p_prods.Color=0xFFE2EEFF
 					
+					Dim descped As Cursor = Starter.skmt.ExecQuery($"SELECT IFNULL(PE_DESC,0) AS PE_DESC FROM PEDIDO WHERE PE_PROID = '${listaProds.get(i).As(Map).Get("id")}' AND PE_CLIENTE IN (SELECT CUENTA FROM CUENTAA)"$)
+					Log(listaProds.get(i).As(Map).Get("id"))
+					If descped.RowCount > 0 Then
+						descped.Position = 0
+						If descped.GetString("PE_DESC") = 1 Then
+							cb_descuento.Checked = True
+						Else
+							cb_descuento.Checked = False
+						End If
+						Log("true")
+							
+					End If
+					cb_descuento.Tag = listaProds.get(i).As(Map).Get("id")
 
 					
 					
@@ -1664,8 +1711,15 @@ Private Sub clv_prods_ll_VisibleRangeChanged (FirstIndex As Int, LastIndex As In
 						b_prodMenos.Enabled = False
 					End If
 				Else
+					
+					cb_descuento.Visible = False
+
 					If clv_prods_ll.GetValue(i).As(Map).Get("prioridad") = "PRIORITARIO" Then
 						p_prods.Color = Colors.RGB(255, 212, 163) 'naranja
+						cb_descuento.Visible = True
+						cb_descuento.Tag = listaProds.get(i).As(Map).Get("id")
+'						cb_descuento.Checked = False
+'						LogColor(listaProds.get(i).As(Map).Get("id"),Colors.red)
 						
 					Else If clv_prods_ll.GetValue(i).As(Map).Get("prioridad") = "COMPLEMENTARIO" Then
 						p_prods.Color = Colors.RGB(177, 200, 249)'azul
@@ -1882,8 +1936,11 @@ Sub LlenaProdsLL(p As ResultSet)
 '		listaProds.Add(tempMap)
 '	Loop
 
-	Dim coloressaldo As Cursor=B4XPages.MainPage.skmt.ExecQuery("select IFNULL(CAT_CL_CLASIFICADOR2,0) AS CAT_CL_CLASIFICADOR2 from kmt_info3 where CAT_CL_CODIGO In (Select cuenta from cuentaa)")
-	coloressaldo.Position = 0
+	
+	
+
+	Dim coloressaldo2 As Cursor=B4XPages.MainPage.skmt.ExecQuery("select IFNULL(CAT_CL_CLASIFICADOR2,0) AS CAT_CL_CLASIFICADOR2 from kmt_info3 where CAT_CL_CODIGO In (Select cuenta from cuentaa)")
+	coloressaldo2.Position = 0
 
 	Do While p.NextRow
 		Private cant As Int = 0
@@ -1891,7 +1948,7 @@ Sub LlenaProdsLL(p As ResultSet)
 			Log(p.GetString("CAT_GP_ID"))
 			cant = cantsMap.Get(p.GetString("CAT_GP_ID"))
 		End If
-		If coloressaldo.GetString("CAT_CL_CLASIFICADOR2") = "LP222_D" Then
+		If coloressaldo2.GetString("CAT_CL_CLASIFICADOR2") = "LP222_D" Then
 			If p.GetString("CAT_GP_ID") <> "GUN141" And p.GetString("CAT_GP_ID") <> "GUN142" Then
 '			Log(p.GetString("CAT_GP_NOMBRE"))
 				' ¡Importante! Crear un NUEVO mapa en cada iteración.
@@ -1948,7 +2005,7 @@ Sub LlenaProdsLL(p As ResultSet)
 	For pr0=0 To listaProdsConCant.Size - 1 'Agregamos los productos con cantidad previa.
 		Private Pnl As B4XView = xui.CreatePanel("")
 '		Pnl.SetLayoutAnimated(0, 0, 0, clv_prods_ll.AsView.Width, 300dip)
-		Pnl.SetLayoutAnimated(0, 0, 0, clv_prods_ll.AsView.Width, 65dip)
+		Pnl.SetLayoutAnimated(0, 0, 0, clv_prods_ll.AsView.Width, 130dip)''aqui se mueve el tamaño del item
 		clv_prods_ll.Add(Pnl, listaProdsConCant.Get(pr0))
 		listaHints.Add(listaProdsConCant.get(pr0).As(Map).Get("prod"))
 		cont = cont + 1
@@ -1958,9 +2015,7 @@ Sub LlenaProdsLL(p As ResultSet)
 	For pr=0 To listaProds.Size-1
 		If listaProdsConCantIndex.IndexOf(pr) = -1 Then
 			Private Pnl As B4XView = xui.CreatePanel("")
-			Pnl.SetLayoutAnimated(0, 0, 0, clv_prods_ll.AsView.Width, 65dip)
-			
-			
+			Pnl.SetLayoutAnimated(0, 0, 0, clv_prods_ll.AsView.Width, 130dip) ''aqui se mueve el tamaño del item		
 			listaHints.Add(listaProds.get(pr).As(Map).Get("prod"))
 			clv_prods_ll.Add(Pnl, listaProds.Get(pr))
 '			
@@ -2404,9 +2459,9 @@ Private Sub b_devmenos_Click
 		l_cantdev.Text = NumberFormat2((l_cantdev.Text - 1),0,0,0, False)
 		If B4XPages.MainPage.tipo_venta = "PREVENTA_FUTURA" Then
 '			Subs.actualizaProducto(Subs.traeAlmacen, precio, laCant.Text, Subs.traeProdNombre(id), id, clienteId, Subs.traeFecha, Subs.traeUsuarioDeBD, rutaUsuario, 0, B4XPages.MainPage.tipo_venta,0,1)
-			Subs.actualizaProducto( "DUR", (preciodev * -1), l_cantdev.Text, nombredev, dev2.GetString("CAT_GP_ID"), clienteId, Subs.traeFecha, Subs.traeUsuarioDeBD, rutaUsuario, 0, B4XPages.MainPage.tipo_venta,1,1)
+			Subs.actualizaProducto( "DUR", (preciodev * -1), l_cantdev.Text, nombredev, dev2.GetString("CAT_GP_ID"), clienteId, Subs.traeFecha, Subs.traeUsuarioDeBD, rutaUsuario, 0, B4XPages.MainPage.tipo_venta,1,1,1)
 		Else
-			Subs.actualizaProducto( "DUR", (preciodev * -1), l_cantdev.Text, nombredev, dev2.GetString("CAT_GP_ID"), clienteId, Subs.traeFecha, Subs.traeUsuarioDeBD, rutaUsuario, 0, B4XPages.MainPage.tipo_venta,1,0)
+			Subs.actualizaProducto( "DUR", (preciodev * -1), l_cantdev.Text, nombredev, dev2.GetString("CAT_GP_ID"), clienteId, Subs.traeFecha, Subs.traeUsuarioDeBD, rutaUsuario, 0, B4XPages.MainPage.tipo_venta,1,0,1)
 '			Subs.actualizaProducto(Subs.traeAlmacen, precio, laCant.Text, Subs.traeProdNombre(id), id, clienteId, Subs.traeFecha, Subs.traeUsuarioDeBD, rutaUsuario, 0, B4XPages.MainPage.tipo_venta,0,0)
 		End If
 	End If
@@ -2429,9 +2484,9 @@ Private Sub b_devmas_Click
 			
 			If B4XPages.MainPage.tipo_venta = "PREVENTA_FUTURA" Then
 '			Subs.actualizaProducto(Subs.traeAlmacen, precio, laCant.Text, Subs.traeProdNombre(id), id, clienteId, Subs.traeFecha, Subs.traeUsuarioDeBD, rutaUsuario, 0, B4XPages.MainPage.tipo_venta,0,1)
-				Subs.actualizaProducto( "DUR", (preciodev * -1), l_cantdev.Text, nombredev, dev2.GetString("CAT_GP_ID"), clienteId, Subs.traeFecha, Subs.traeUsuarioDeBD, rutaUsuario, 0, B4XPages.MainPage.tipo_venta,1,1)
+				Subs.actualizaProducto( "DUR", (preciodev * -1), l_cantdev.Text, nombredev, dev2.GetString("CAT_GP_ID"), clienteId, Subs.traeFecha, Subs.traeUsuarioDeBD, rutaUsuario, 0, B4XPages.MainPage.tipo_venta,1,1,1)
 			Else
-				Subs.actualizaProducto( "DUR", (preciodev * -1), l_cantdev.Text, nombredev, dev2.GetString("CAT_GP_ID"), clienteId, Subs.traeFecha, Subs.traeUsuarioDeBD, rutaUsuario, 0, B4XPages.MainPage.tipo_venta,1,0)
+				Subs.actualizaProducto( "DUR", (preciodev * -1), l_cantdev.Text, nombredev, dev2.GetString("CAT_GP_ID"), clienteId, Subs.traeFecha, Subs.traeUsuarioDeBD, rutaUsuario, 0, B4XPages.MainPage.tipo_venta,1,0,1)
 '				Subs.actualizaProducto( "DUR", (preciodev * -1), l_cantdev.Text, nombredev, dev2.GetString("CAT_GP_ID"), clienteId, Subs.traeFecha, Subs.traeUsuarioDeBD, rutaUsuario, 0, B4XPages.MainPage.tipo_venta,1)
 '			Subs.actualizaProducto(Subs.traeAlmacen, precio, laCant.Text, Subs.traeProdNombre(id), id, clienteId, Subs.traeFecha, Subs.traeUsuarioDeBD, rutaUsuario, 0, B4XPages.MainPage.tipo_venta,0,0)
 			End If
@@ -2452,4 +2507,14 @@ End Sub
 
 Private Sub p_devo_Click
 	
+End Sub
+
+Private Sub cb_descuento_CheckedChange(Checked As Boolean)
+	Log(Sender.As(CheckBox).Tag)
+	If Sender.As(CheckBox).Checked Then
+		B4XPages.MainPage.skmt.ExecNonQuery($"UPDATE pedido SET PE_DESC = 1 WHERE PE_CLIENTE In (select cuenta from cuentaa) AND PE_PROID = '${Sender.As(CheckBox).Tag}' AND PE_CEDIS = '${Subs.traeAlmacen}'"$)
+	Else
+		B4XPages.MainPage.skmt.ExecNonQuery($"UPDATE pedido SET PE_DESC = 0 WHERE PE_CLIENTE In (select cuenta from cuentaa) AND PE_PROID = '${Sender.As(CheckBox).Tag}' AND PE_CEDIS = '${Subs.traeAlmacen}'"$)
+	End If
+	
 End Sub

B4A/C_Promos.bas

@@ -982,18 +982,18 @@ Private Sub b_terminar1_Click
 		Private pn As String = Subs.traeProdNombre(prodsIds.Get(t))
 		If prodsCants.Get(t) > 0 Then 
 			If B4XPages.MainPage.tipo_venta = "PREVENTA_FUTURA" Then
-				Subs.guardaProductoSinGestion(estaPromo, prodsPrecios.Get(t), prodsCants.Get(t), pn, prodsIds.Get(t), Subs.traeCliente, Subs.traeFecha, Subs.traeUsuarioDeBD, Subs.traeRuta, 0, B4XPages.MainPage.tipo_venta, 1)
+				Subs.guardaProductoSinGestion(estaPromo, prodsPrecios.Get(t), prodsCants.Get(t), pn, prodsIds.Get(t), Subs.traeCliente, Subs.traeFecha, Subs.traeUsuarioDeBD, Subs.traeRuta, 0, B4XPages.MainPage.tipo_venta, 1,1)
 			Else
-				Subs.guardaProductoSinGestion(estaPromo, prodsPrecios.Get(t), prodsCants.Get(t), pn, prodsIds.Get(t), Subs.traeCliente, Subs.traeFecha, Subs.traeUsuarioDeBD, Subs.traeRuta, 0, B4XPages.MainPage.tipo_venta,0)
+				Subs.guardaProductoSinGestion(estaPromo, prodsPrecios.Get(t), prodsCants.Get(t), pn, prodsIds.Get(t), Subs.traeCliente, Subs.traeFecha, Subs.traeUsuarioDeBD, Subs.traeRuta, 0, B4XPages.MainPage.tipo_venta,0,1)
 			End If
 		End If
 	Next
 	For t = 0 To prodsIds2.Size - 1 'Guardamos los productos variables de la promocion en pedido.
 		Private pn As String = Subs.traeProdNombre(prodsIds2.Get(t))
 		If B4XPages.MainPage.tipo_venta = "PREVENTA_FUTURA" Then
-			Subs.guardaProductoSinGestion(estaPromo, prodsPrecios2.Get(t), prodsCants2.Get(t), pn, prodsIds2.Get(t), Subs.traeCliente, Subs.traeFecha, Subs.traeUsuarioDeBD, Subs.traeRuta, 0, B4XPages.MainPage.tipo_venta,1)
+			Subs.guardaProductoSinGestion(estaPromo, prodsPrecios2.Get(t), prodsCants2.Get(t), pn, prodsIds2.Get(t), Subs.traeCliente, Subs.traeFecha, Subs.traeUsuarioDeBD, Subs.traeRuta, 0, B4XPages.MainPage.tipo_venta,1,1)
 		Else
-			Subs.guardaProductoSinGestion(estaPromo, prodsPrecios2.Get(t), prodsCants2.Get(t), pn, prodsIds2.Get(t), Subs.traeCliente, Subs.traeFecha, Subs.traeUsuarioDeBD, Subs.traeRuta, 0, B4XPages.MainPage.tipo_venta,0)
+			Subs.guardaProductoSinGestion(estaPromo, prodsPrecios2.Get(t), prodsCants2.Get(t), pn, prodsIds2.Get(t), Subs.traeCliente, Subs.traeFecha, Subs.traeUsuarioDeBD, Subs.traeRuta, 0, B4XPages.MainPage.tipo_venta,0,1)
 		End If
 	Next
 '	Log(B4XPages.MainPage.productos.prodsMap)
@@ -1020,17 +1020,17 @@ Private Sub b_continuar_Click
 	For t = 0 To prodsIds.Size - 1 'Guardamos los productos fijos de la promocion en pedido.
 		Private pn As String = Subs.traeProdNombre(prodsIds.Get(t))
 		If B4XPages.MainPage.tipo_venta = "PREVENTA_FUTURA" Then
-			Subs.guardaProductoSinGestion(estaPromo, prodsPrecios.Get(t), prodsCants.Get(t), pn, prodsIds.Get(t), Subs.traeCliente, Subs.traeFecha, Subs.traeUsuarioDeBD, Subs.traeRuta, 0, B4XPages.MainPage.tipo_venta,1)
+			Subs.guardaProductoSinGestion(estaPromo, prodsPrecios.Get(t), prodsCants.Get(t), pn, prodsIds.Get(t), Subs.traeCliente, Subs.traeFecha, Subs.traeUsuarioDeBD, Subs.traeRuta, 0, B4XPages.MainPage.tipo_venta,1,1)
 		Else
-			Subs.guardaProductoSinGestion(estaPromo, prodsPrecios.Get(t), prodsCants.Get(t), pn, prodsIds.Get(t), Subs.traeCliente, Subs.traeFecha, Subs.traeUsuarioDeBD, Subs.traeRuta, 0, B4XPages.MainPage.tipo_venta,0)
+			Subs.guardaProductoSinGestion(estaPromo, prodsPrecios.Get(t), prodsCants.Get(t), pn, prodsIds.Get(t), Subs.traeCliente, Subs.traeFecha, Subs.traeUsuarioDeBD, Subs.traeRuta, 0, B4XPages.MainPage.tipo_venta,0,1)
 		End If
 	Next
 	For t = 0 To prodsIds2.Size - 1 'Guardamos los productos variables de la promocion en pedido.
 		Private pn As String = Subs.traeProdNombre(prodsIds2.Get(t))
 		If B4XPages.MainPage.tipo_venta = "PREVENTA_FUTURA" Then
-			Subs.guardaProductoSinGestion(estaPromo, prodsPrecios2.Get(t), prodsCants2.Get(t), pn, prodsIds2.Get(t), Subs.traeCliente, Subs.traeFecha, Subs.traeUsuarioDeBD, Subs.traeRuta, 0, B4XPages.MainPage.tipo_venta,1)
+			Subs.guardaProductoSinGestion(estaPromo, prodsPrecios2.Get(t), prodsCants2.Get(t), pn, prodsIds2.Get(t), Subs.traeCliente, Subs.traeFecha, Subs.traeUsuarioDeBD, Subs.traeRuta, 0, B4XPages.MainPage.tipo_venta,1,1)
 		Else
-			Subs.guardaProductoSinGestion(estaPromo, prodsPrecios2.Get(t), prodsCants2.Get(t), pn, prodsIds2.Get(t), Subs.traeCliente, Subs.traeFecha, Subs.traeUsuarioDeBD, Subs.traeRuta, 0, B4XPages.MainPage.tipo_venta,0)
+			Subs.guardaProductoSinGestion(estaPromo, prodsPrecios2.Get(t), prodsCants2.Get(t), pn, prodsIds2.Get(t), Subs.traeCliente, Subs.traeFecha, Subs.traeUsuarioDeBD, Subs.traeRuta, 0, B4XPages.MainPage.tipo_venta,0,1)
 		End If
 	Next
 '	Log(B4XPages.MainPage.productos.prodsMap)

B4A/Guna Vistas V3.1.b4a

@@ -305,7 +305,7 @@ Version=12.8
 #Region  Project Attributes 
 	#ApplicationLabel: Guna Preventa
 	#VersionCode: 1
-	#VersionName: 6.02.19
+	#VersionName: 6.02.20
 	'SupportedOrientations possible values: unspecified, landscape or portrait.
 	#SupportedOrientations: portrait
 	#CanInstallToExternalStorage: False

B4A/Guna Vistas V3.1.b4a.meta

@@ -26,7 +26,7 @@ ModuleBookmarks30=
 ModuleBookmarks31=
 ModuleBookmarks32=
 ModuleBookmarks4=
-ModuleBookmarks5=7786
+ModuleBookmarks5=7791
 ModuleBookmarks6=
 ModuleBookmarks7=
 ModuleBookmarks8=
@@ -97,6 +97,6 @@ ModuleClosedNodes6=
 ModuleClosedNodes7=
 ModuleClosedNodes8=6,8,9,10,11
 ModuleClosedNodes9=
-NavigationStack=Diseñador Visual,Vista_todoslosclientes.bal,-100,6,V_Tclientes,Guardar_Click,146,6,C_Principal,cargar_Click,1442,0,C_Principal,connecta_Click,2915,0,C_Principal,JobDone,1625,0,C_Principal,Subir_Click,829,0,C_Cliente,B4XPage_Appear,659,0,Diseñador Visual,cliente.bal,-100,2,C_Cliente,Mandap,3563,0,Main,Activity_Resume,45,0
+NavigationStack=C_Productos,b_devmenos_Click,2458,0,C_Productos,b_devmas_Click,2480,0,Subs,actualizaProducto,1793,0,Subs,guardaProductoSinGestion,1832,0,C_Promos,b_terminar1_Click,989,0,C_Promos,b_continuar_Click,1026,0,C_Cliente,recalculoXcant,1441,4,C_Principal,Class_Globals,14,0,C_Cliente,B_IMP_Click,3169,0,C_Cliente,Impresion4,3236,0,C_Principal,JobDone,1625,0
 SelectedBuild=0
-VisibleModules=29,2,18,30,5,15,19,21,4,1,32
+VisibleModules=29,2,18,30,5,15,19,21,4,1

B4A/Objects/AndroidManifest.xml

@@ -3,7 +3,7 @@
 	xmlns:android="http://schemas.android.com/apk/res/android"
 	package="gunav2.keymon.com.mx"
 	android:versionCode="1"
-	android:versionName="6.02.19"
+	android:versionName="6.02.20"
 	android:installLocation="internalOnly">
 	
 	<uses-sdk android:minSdkVersion="5" android:targetSdkVersion="30"/>