cambio de RMI y promocion variable v_4_01_17_3

B4A/C_Cliente.bas

@@ -132,6 +132,17 @@ Sub Class_Globals
 	Private Label26 As Label
 	Dim impresoraConectada As Boolean = False
 	Dim printer As TextWriter
+	Private b_guadaenc As Button
+	Private cb_pregunta8 As B4XComboBox
+	Private rb_p7si As RadioButton
+	Private rb_p7no As RadioButton
+	Private et_pregunta6 As EditText
+	Private et_pregunta5 As EditText
+	Private et_pregunta4 As EditText
+	Private et_pregunta3 As EditText
+	Private et_pregunta2 As EditText
+	Private cb_pregunta1 As B4XComboBox
+	Private Label1 As Label
 End Sub
 
 Sub initialize
@@ -184,6 +195,7 @@ Private Sub B4XPage_Created (Root1 As B4XView)
 	Panel1.Top = La_nombre.Top + La_nombre.Height + 5 : Panel1.left = 0
 	Panel9.Top = La_nombre.Top + La_nombre.Height + 5 : Panel9.left = 0
 	Panel10.Top = La_nombre.Top + La_nombre.Height + 5 : Panel10.left = 0
+	
 End Sub
 
 Sub B4XPage_Appear
@@ -319,6 +331,16 @@ Sub ListView1_ItemLongClick (Position As Int, Value As Object)
 End Sub
 
 Sub gest_Click
+''	1=1 ----> si no esta en el historico que se descargue del web ver si esta contestada de manera local
+'	If 1 = 1 Then
+'		'2=2 ----> si no esta en el historico local mostrar encuesta
+'		c = Starter.skmt.ExecQuery2("SELECT DISTINCT HE_CLIE FROM HIST_ENCUESTA WHERE HE_CLIE IN(SELECT CUENTA FROM CUENTAA) ",Array As String())
+'		If  Then
+'			
+'		End If
+'	Else
+'		
+''	End If
 	Starter.tipov = "PREVENTA"
 	B4XPages.ShowPage("Productos")
 	' StartActivity(colonia2)
@@ -1246,4 +1268,12 @@ Sub b_chk_e_Click
 	Starter.tipov = "VENTA"
 	'TOMAR_FOTO = 1
 	cuestionario
+End Sub
+
+Private Sub cb_pregunta1_SelectedIndexChanged (Index As Int)
+	
+End Sub
+
+Private Sub cb_pregunta8_SelectedIndexChanged (Index As Int)
+	
 End Sub