encuestas, tickets, arreglo de carga día, preventa de V-ESPECIAL se hace venta

4_01_18_2
2026-04-20 12:49:25 +00:00 · 2024-01-18 16:37:42 -06:00
parent 745adb86ca
commit bb11a55157
7 changed files with 543 additions and 59 deletions
--- a/B4A/C_Principal.bas
+++ b/B4A/C_Principal.bas
@@ -193,6 +193,9 @@ Private Sub B4XPage_Created (Root1 As B4XView)
 	b.Position=0
 	Cuantos = b.GetString("CUANTOS")
 	d=skmt.ExecQuery("select count(*) as TOTAL_VISITAR from kmt_info where gestion = 0")
+	If d.RowCount >0 Then
+		
+	
 	D.Position=0
 	b.Close
 	e=skmt.ExecQuery("select count(*) as POR_VISITAR from kmt_info")
@@ -236,7 +239,7 @@ Private Sub B4XPage_Created (Root1 As B4XView)
 		l_ctast.Text = d.GetString("TOTAL_VISITAR")
 		l_porvisitar.Text = e.GetString("POR_VISITAR")
 	End If
-
+	End If
 	c = skmt.ExecQuery2("select count(CAT_VA_DESCRIPCION) as HoraIngreso from cat_variables where CAT_VA_DESCRIPCION = ? ", Array As String("HoraIngreso"))
 	c.Position = 0
 	DateTime.TimeFormat = "HHmmss"
@@ -285,6 +288,7 @@ Sub B4XPage_Appear
 	reqManager.Initialize(Me, SERVER)
 	Log(SERVER)
 	
+	
 	If PASO = 2 Then
 		Dim result As Int
 		result = Msgbox2("El proceso de enviar información no a terminado, Continuar", "", "Si", "", "No", LoadBitmap(File.DirAssets, "alert2.png"))
@@ -361,7 +365,15 @@ Sub B4XPage_Appear
 	ALMACEN = C.GetString("ID_ALMACEN")
 	C.Close
 	'ALMACEN = 1
-
+	d=skmt.ExecQuery("select count(*) as TOTAL_VISITAR from kmt_info where gestion = 0")
+	If d.RowCount >0 Then
+		e=skmt.ExecQuery("select count(*) as POR_VISITAR from kmt_info")
+		e.Position=0
+	If e.RowCount >0 Then
+		
+		
+	
+		D.Position=0
 	b=skmt.ExecQuery("Select count(*) as CUANTOS from pedido_cliente where pc_cliente <> 0")
 	b.Position=0
 	Cuantos = b.GetString("CUANTOS")
@@ -390,8 +402,8 @@ Sub B4XPage_Appear
 		L_CUANTOST.Text = l_cuantosc.Text + l_cuantosn.Text

 	End If
-
-
+		End If
+	End If
 	c=Starter.skmt.ExecQuery("select usuario from usuarioa")
 	c.Position = 0
 	usuario = c.GetString("USUARIO")
@@ -429,16 +441,50 @@ End Sub
 'End Sub

 Sub trabajar_Click
-	'CallSubDelayed(gestion,"gestion")
-	c=skmt.ExecQuery2("select CAT_VA_VALOR from CAT_VARIABLES WHERE CAT_VA_DESCRIPCION = ?", Array As String ("MARCAS"))
+	c=skmt.ExecQuery2("select CAT_VA_VALOR from CAT_VARIABLES WHERE CAT_VA_DESCRIPCION = ?", Array As String ("PERFIL"))
 	c.Position =0
-	MARCASQ = c.GetString("CAT_VA_VALOR")
+	PERFIL = c.GetString("CAT_VA_VALOR")
 	c.Close
-	skmt.ExecNonQuery("delete from CAT_GUNAPROD WHERE CAT_GP_CLASIF NOT IN (" & MARCASQ &")" )
-	skmt.ExecNonQuery("delete from CAT_GUNAPROD2 WHERE CAT_GP_ID IN (SELECT CAT_DP_ID FROM CAT_DETALLES_PAQ WHERE CAT_DP_IDPROD NOT IN (SELECT CAT_GP_ID FROM CAT_GUNAPROD2) and CAT_DP_TIPO = 0)")
+	Log(PERFIL&"-------------------------")
+	If PERFIL = "V-MINI" Then
+		c= Starter.skmt.ExecQuery("SELECT CAT_GP_PRECIO1, CAT_GP_ID FROM CAT_PRECIOS")
+		If c.RowCount > 0 Then
+			For i = 0 To c.RowCount -1 
+				c.Position = i				
+				Starter.skmt.ExecNonQuery2("Update CAT_GUNAPROD SET CAT_GP_PRECIO = ? WHERE CAT_GP_ID = ?",Array As String(c.GetString("CAT_GP_PRECIO1"),c.GetString("CAT_GP_ID")))
+			Next
+			'CallSubDelayed(gestion,"gestion")
+			c=skmt.ExecQuery2("select CAT_VA_VALOR from CAT_VARIABLES WHERE CAT_VA_DESCRIPCION = ?", Array As String ("MARCAS"))
+			c.Position =0
+			MARCASQ = c.GetString("CAT_VA_VALOR")
+			c.Close
+			skmt.ExecNonQuery("delete from CAT_GUNAPROD WHERE CAT_GP_CLASIF NOT IN (" & MARCASQ &")" )
+'	skmt.ExecNonQuery("delete from CAT_GUNAPROD2 WHERE CAT_GP_ID IN (SELECT CAT_DP_ID FROM CAT_DETALLES_PAQ WHERE CAT_DP_IDPROD NOT IN (SELECT CAT_GP_ID FROM CAT_GUNAPROD2) and CAT_DP_TIPO = 0)")
 	
 '	StartActivity(colonia)
-	B4XPages.ShowPage("Clientes")
+			B4XPages.ShowPage("Clientes")
+		End If
+	Else
+		c= Starter.skmt.ExecQuery("SELECT CAT_GP_PRECIO, CAT_GP_ID FROM CAT_PRECIOS")
+		If c.RowCount > 0 Then
+			For i = 0 To c.RowCount -1
+				c.Position = i
+				Starter.skmt.ExecNonQuery2("Update CAT_GUNAPROD SET CAT_GP_PRECIO = ? WHERE CAT_GP_ID = ?",Array As String(c.GetString("CAT_GP_PRECIO"),c.GetString("CAT_GP_ID")))
+			Next
+			'CallSubDelayed(gestion,"gestion")
+			c=skmt.ExecQuery2("select CAT_VA_VALOR from CAT_VARIABLES WHERE CAT_VA_DESCRIPCION = ?", Array As String ("MARCAS"))
+			c.Position =0
+			MARCASQ = c.GetString("CAT_VA_VALOR")
+			c.Close
+			skmt.ExecNonQuery("delete from CAT_GUNAPROD WHERE CAT_GP_CLASIF NOT IN (" & MARCASQ &")" )
+'	skmt.ExecNonQuery("delete from CAT_GUNAPROD2 WHERE CAT_GP_ID IN (SELECT CAT_DP_ID FROM CAT_DETALLES_PAQ WHERE CAT_DP_IDPROD NOT IN (SELECT CAT_GP_ID FROM CAT_GUNAPROD2) and CAT_DP_TIPO = 0)")
+	
+'	StartActivity(colonia)
+			B4XPages.ShowPage("Clientes")
+		End If
+		
+	End If
+	
 	
 End Sub

@@ -574,6 +620,21 @@ Sub Subir_Click
 			c.Close
 		End If
 	
+		c=skmt.ExecQuery("SELECT * FROM HIST_ENCUESTA")
+		If c.RowCount>0 Then
+			For i=0 To c.RowCount -1
+				c.Position=i
+			 
+				Dim cmd As DBCommand
+				cmd.Initialize
+				cmd.Name = "INSERT_ENCUESTA_K001DUR"
+				cmd.Parameters = Array As Object(C.GetString("HE_CLIE"),C.GetString("HE_RES"),C.GetString("HE_FECHA"),"K001",ALMACEN,l_ruta.text,"1", C.GetString("TIPO"))
+				reqManager.ExecuteQuery(cmd , 0,"INS_K001")
+
+			Next
+			c.Close
+		End If
+	
 		c=skmt.ExecQuery("SELECT  HE_CLIE, HE_RES, HE_FECHA, HE_TIPO FROM HIST_ENCUESTA")
 		'	S_CP.Text = "Envio Encuesta"
 		'	PB2.Progress = 1
@@ -770,6 +831,8 @@ Sub Subir_Click
 '		End If
 '		c.Close
 		' DROP
+		
+		

 		t1.Initialize("T1", 20000) ' 1000 = 1 second
 		t1.Enabled = True
@@ -860,6 +923,11 @@ Sub cargar_Click
 	cmd.Name = "select_codigo_exhibidor"
 	'cmd.Parameters = Array As Object(ALMACEN)
 	reqManager.ExecuteQuery(cmd , 0, "catalogo_exhibidor")
+	
+	cmd.Initialize
+	cmd.Name = "SELECT_HISTENCUESTA_DUR"
+	cmd.Parameters = Array As Object(ALMACEN, e_ruta.Text)
+	reqManager.ExecuteQuery(cmd , 0, "hist_encuesta")

 	cmd.Initialize
 	cmd.Name = "select_cat_gunaprod_DUR"
@@ -1167,6 +1235,18 @@ Sub JobDone(Job As HttpJob)
 				' ToastMessageShow(" Historico Clientes Promociones Actualizado." , True)
 			End If
 		End If
+		
+		If Job.JobName = "DBRequest" Then
+			Dim RESULT As DBResult = reqManager.HandleJob(Job)
+			If RESULT.Tag = "hist_encuesta" Then 'query tag
+				For Each records() As Object In RESULT.Rows
+					Dim HE_CLIENTE As String = records(RESULT.Columns.Get("HE_CLIENTE"))
+					Dim HE_TIPO As String = records(RESULT.Columns.Get("HE_TIPO"))
+					skmt.ExecNonQuery2("INSERT INTO HIST_ENCUESTA3(HE_CLIE, HE_TIPO ) VALUES (?,?)", Array As Object (HE_CLIENTE, HE_TIPO))
+				Next
+				' ToastMessageShow(" Historico Clientes Promociones Actualizado." , True)
+			End If
+		End If

 		If Job.JobName = "DBRequest" Then
 			Dim RESULT As DBResult = reqManager.HandleJob(Job)
@@ -1933,7 +2013,7 @@ Sub e_ruta_EnterPressed
 			skmt.ExecNonQuery("delete from kmt_info")
 			skmt.ExecNonQuery("delete from cat_gunaprod")
 			skmt.ExecNonQuery("delete from cat_gunaprod2")
-		
+			skmt.ExecNonQuery("delete from LISTA_PRECIOS")
 			skmt.ExecNonQuery("delete from CAT_DETALLES_PAQ")
 			skmt.ExecNonQuery("delete from HIST_VENTAS")
 			skmt.ExecNonQuery("delete from HIST_VERIFICACION")