Version: 5.03.22

Se agrego el plan de lealtad.

B4A/C_Cliente.bas

@@ -443,6 +443,12 @@ Sub Class_Globals
 	Private b_cancelarEnvioPDF As Button
 	Private b_envioPDF As Button
 	Private et_numeroPDF As EditText
+	Private btnPlanLealtad As Button
+	Private pnl_btns As Panel
+	Private pnlPlanLealtad As Panel
+	Private imgPlanLealtad As ImageView
+	Private btnAceptaPlanLealtad As Button
+	Private btnCancelarPlanLealtad As Button
 End Sub
 
 'You can add more parameters here.
@@ -511,11 +517,18 @@ End Sub
 'You can see the list of page related events in the B4XPagesManager object. The event name is B4XPage.
 
 Sub B4XPage_Appear
+	btnPlanLealtad.Visible = False
 	bitacora.inicioFin
 '	iniciofin
 	que_modulo = 1
 	dentroDeGeocerca = False
 	indicePregunta = 0
+	
+	pnlPlanLealtad.Top = 0
+	pnlPlanLealtad.Left = 0
+	pnlPlanLealtad.Width = Root.Width
+	pnlPlanLealtad.Height = Root.Height
+	
 	If TOMAR_FOTO <> 0 Then Cuestionario
 	Starter.idCliente = Subs.traeCliente
 '	Log(Subs.traeCliente)
@@ -748,9 +761,6 @@ Sub B4XPage_Appear
 		End If
 	End If
 	
-	
-	
-	
 	If ALMACEN = 87 Or ALMACEN = 6 Then
 		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)
@@ -1044,6 +1054,22 @@ Sub B4XPage_Appear
 		B_IMP.Enabled = False
 		b_enviarTicket.Enabled = False
 	End If
+
+	If ALMACEN = 46 Or ALMACEN = 6 Then
+		c = Starter.skmt.ExecQuery("SELECT IfNull(PL_BANDERA, 0) AS PL_BANDERA FROM PLAN_LEALTAD WHERE PL_CLIENTE IN (SELECT CUENTA FROM CUENTAA)")
+		If c.RowCount > 0 Then
+			c.Position = 0
+			If c.GetString("PL_BANDERA") = 0 Then
+				btnPlanLealtad.Visible = True
+			Else
+				btnPlanLealtad.Visible = False
+			End If
+		Else
+			btnPlanLealtad.Visible = True
+		End If
+	Else
+		btnPlanLealtad.Visible = False
+	End If
 End Sub
 
 Sub GPS_LocationChanged (Location1 As Location)
@@ -5303,8 +5329,8 @@ Private Sub b_enviarTicket_Click
 End Sub
 
 Private Sub b_enviarTicket_LongClick
-	et_numeroPDF.Text = TELEFONO.trim
-	p_transparentePDF.Visible = True
+'	et_numeroPDF.Text = TELEFONO.trim
+'	p_transparentePDF.Visible = True
 '	PDFGENERAR
 '	EnviarPDFWhatsAppNumero(et_numeroPDF.Text)
 '	Guardar_Click
@@ -5438,4 +5464,31 @@ End Sub
 
 Private Sub et_numeroPDF_TextChanged (Old As String, New As String)
 	If New.Length = 10 Then b_envioPDF.Enabled = True Else b_envioPDF.Enabled = False
+End Sub
+
+Private Sub btnPlanLealtad_Click
+	Subs.centraPanel(pnl_btns, pnlPlanLealtad.Width)
+	pnlPlanLealtad.Visible = True
+End Sub
+
+Private Sub btnCancelarPlanLealtad_Click
+	pnlPlanLealtad.Visible = False
+End Sub
+
+Private Sub btnAceptaPlanLealtad_Click
+	
+	c = Starter.skmt.ExecQuery("SELECT * FROM PLAN_LEALTAD WHERE PL_CLIENTE IN (SELECT CUENTA FROM CUENTAA)")
+	c.Position = 0
+	If c.RowCount = 0 Then
+'		Starter.skmt.ExecNonQuery($"INSERT INTO PLAN_LEALTAD (PL_BANDERA,PL_CLIENTE) VALUES (1,'${cuenta}')"$)
+		B4XPages.MainPage.skmt.ExecNonQuery($"insert into PLAN_LEALTAD (PL_BANDERA, PL_CLIENTE) values ('1','${Subs.traeCliente}')"$)
+		pnlPlanLealtad.Visible = False
+		Log("AQUI")
+		B4XPage_Appear
+	Else
+		Starter.skmt.ExecNonQuery($"UPDATE PLAN_LEALTAD SET PL_BANDERA = 1 where PL_CLIENTE IN (SELECT CUENTA FROM CUENTAA)"$)
+		pnlPlanLealtad.Visible = False
+		Log("AQUI2")
+		B4XPage_Appear
+	End If
 End Sub

B4A/Guna Vistas V3.1.b4a

@@ -256,7 +256,7 @@ Module9=C_Mapas
 NumberOfFiles=96
 NumberOfLibraries=33
 NumberOfModules=27
-Version=12.8
+Version=13.1
 @EndOfDesignText@
 #Region  Project Attributes 
 	#ApplicationLabel: Guna Preventa

B4A/Guna Vistas V3.1.b4a.meta

@@ -82,6 +82,6 @@ ModuleClosedNodes6=
 ModuleClosedNodes7=5,6,8,9,10,11
 ModuleClosedNodes8=
 ModuleClosedNodes9=
-NavigationStack=C_NoVenta,Class_Globals,0,0,C_NoVenta,GUARDA_Click,114,0,Subs,traePromo,798,0,Subs,traeMaxPromos,934,0,Subs,procesaPromocion,982,1,C_Principal,Class_Globals,0,0,Diseñador Visual,resdia.bal,-100,4,C_Principal,resdia_Click,2604,0,B4XMainPage,B4XPage_Created,174,0,C_Principal,cargar_Click,1094,6
+NavigationStack=C_NoVenta,Class_Globals,0,0,C_NoVenta,GUARDA_Click,114,0,Subs,traePromo,798,0,Subs,traeMaxPromos,934,0,Subs,procesaPromocion,982,1,C_Principal,Class_Globals,0,0,Diseñador Visual,resdia.bal,-100,4,C_Principal,resdia_Click,2604,0,B4XMainPage,B4XPage_Created,174,0,C_Principal,cargar_Click,1082,6
 SelectedBuild=0
 VisibleModules=25,2,14,26,5,10,15,11