ultima sin encuestas

B4A/C_Cliente.bas

@@ -386,8 +386,15 @@ End Sub
 
 Sub gest_Click
 '	If la_cuenta.Text <> "0" Then
-''		1=1 ----> si no esta en el historico que se descargue del web ver si esta contestada de manera local
-'		c2 = Starter.skmt.ExecQuery2("SELECT HE_CLIE FROM HIST_ENCUESTA3 WHERE HE_TIPO = ? AND HE_CLIE IN (SELECT CUENTA FROM CUENTAA) ",Array As String("K001"))
+'			Dim queenc As String 
+'		'		1=1 ----> si no esta en el historico que se descargue del web ver si esta contestada de manera local
+'		If B4XPages.MainPage.principal.ALMACEN = "6" Then queenc = "1"
+'		If B4XPages.MainPage.principal.ALMACEN = "1" Then queenc = "2"
+'		If B4XPages.MainPage.principal.ALMACEN = "2" Then queenc = "3"
+'		If B4XPages.MainPage.principal.ALMACEN = "3" Then queenc = "4"
+'		If B4XPages.MainPage.principal.ALMACEN = "4" Then queenc = "5"
+'		If B4XPages.MainPage.principal.ALMACEN = "5" Then queenc = "6"
+'		c2 = Starter.skmt.ExecQuery2("SELECT HE_CLIE FROM HIST_ENCUESTA3 WHERE HE_TIPO = ? AND HE_CLIE IN (SELECT CUENTA FROM CUENTAA) ",Array As String(queenc))
 '		If c2.RowCount = 0 Then
 ''			2=2 ----> si no esta en el historico local mostrar encuesta
 '			c = Starter.skmt.ExecQuery("SELECT DISTINCT HE_CLIE FROM HIST_ENCUESTA4 WHERE HE_CLIE IN(SELECT CUENTA FROM CUENTAA)")
@@ -442,6 +449,7 @@ Sub gest_Click
 '		If Subs.traeCliente = 0 Then Starter.tipov = "ABORDO"
 '		B4XPages.ShowPage("Productos")
 '	End If
+
 	Starter.tipov = "PREVENTA"
 	B4XPages.ShowPage("Productos")
 '	StartActivity(colonia2)
@@ -1177,10 +1185,17 @@ End Sub
 
 Sub B_VENTA_Click
 '	If la_cuenta.Text <> "0" Then
-''		1=1 ----> si no esta en el historico que se descargue del web ver si esta contestada de manera local
-'		c2 = Starter.skmt.ExecQuery2("SELECT HE_CLIE FROM HIST_ENCUESTA3 WHERE HE_TIPO = ? AND HE_CLIE IN (SELECT CUENTA FROM CUENTAA) ",Array As String("K001"))
+'		Dim queenc As String 
+'		'		1=1 ----> si no esta en el historico que se descargue del web ver si esta contestada de manera local
+'		If B4XPages.MainPage.principal.ALMACEN = "6" Then queenc = "1"
+'		If B4XPages.MainPage.principal.ALMACEN = "1" Then queenc = "2"
+'		If B4XPages.MainPage.principal.ALMACEN = "2" Then queenc = "3"
+'		If B4XPages.MainPage.principal.ALMACEN = "3" Then queenc = "4"
+'		If B4XPages.MainPage.principal.ALMACEN = "4" Then queenc = "5"
+'		If B4XPages.MainPage.principal.ALMACEN = "5" Then queenc = "6"
+'		c2 = Starter.skmt.ExecQuery2("SELECT HE_CLIE FROM HIST_ENCUESTA3 WHERE HE_TIPO = ? AND HE_CLIE IN (SELECT CUENTA FROM CUENTAA) ",Array As String(queenc))
 '		If c2.RowCount = 0 Then
-''			2=2 ----> si no esta en el historico local mostrar encuesta
+'			'			2=2 ----> si no esta en el historico local mostrar encuesta
 '			c = Starter.skmt.ExecQuery("SELECT DISTINCT HE_CLIE FROM HIST_ENCUESTA4 WHERE HE_CLIE IN(SELECT CUENTA FROM CUENTAA)")
 '			If c.RowCount = 0  Then
 '				b_factura.Visible = False
@@ -1234,7 +1249,7 @@ Sub B_VENTA_Click
 '	End If
 	
 	Starter.tipov = "VENTA"
-	'StartActivity(colonia2)
+'	StartActivity(colonia2)
 	B4XPages.ShowPage("Productos")
 	cuestionario
 End Sub

B4A/C_Nota.bas

@@ -144,8 +144,12 @@ Sub B4XPage_Appear
 		'DESCUENTO =  "MAS"
 		'Else
 		b_desc.Visible = False
-		
-		'End If
+'		Log("revisaRMIs=" & Subs.revisaRMIs(Subs.traeCliente) & " Cant=" & L_CANT.text)
+		Log(1)
+		If Subs.revisaRMIs(Subs.traeCliente) = False Then
+			Log(2)
+			B4XPage_Appear
+		End If
 	End If
 	'la_no_ird.Text = c.GetString("PR_CF_SALDO_ACORT")
 		

B4A/C_Principal.bas

@@ -452,6 +452,7 @@ Sub trabajar_Click
 			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")))
+				Starter.skmt.ExecNonQuery2("Update CAT_GUNAPROD2 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"))
@@ -1243,8 +1244,8 @@ Sub JobDone(Job As HttpJob)
 			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))
+					Dim HE_IDGRUPO As String = records(RESULT.Columns.Get("HE_IDGRUPO"))
+					skmt.ExecNonQuery2("INSERT INTO HIST_ENCUESTA3(HE_CLIE, HE_TIPO ) VALUES (?,?)", Array As Object (HE_CLIENTE, HE_IDGRUPO))
 				Next
 				' ToastMessageShow(" Historico Clientes Promociones Actualizado." , True)
 			End If

B4A/C_Productos.bas

@@ -832,6 +832,7 @@ Sub b_terminar1_Click
 	Subs.agrupador
 	lv_prodsPedido.Clear
 	list_prodsPedido.Initialize
+	Subs.revisaRMIs(Subs.traeCliente)
 	Private c_prods As Cursor=Starter.skmt.ExecQuery("select PE_PRONOMBRE,PE_COSTO_TOT, ifnull(PE_COSTOU, 0) as PE_COSTOU, PE_CANT, PE_FOLIO, PE_CEDIS, PE_PROID, PE_TIPO FROM PEDIDO WHERE PE_CLIENTE IN (Select CUENTA from cuentaa) order by PE_TIPO desc, PE_CEDIS, PE_COSTO_TOT, PE_PRONOMBRE")
 '	Log(c_prods.RowCount)
 	If c_prods.RowCount > 0 Then
@@ -1068,7 +1069,7 @@ Private Sub lv_prodsPedido_ItemLongClick (Position As Int, Value As Object)
 			c=Starter.skmt.ExecQuery("select USUARIO from usuarioa")
 			c.Position = 0
 			usuario = c.GetString("USUARIO")
-			c=Starter.skmt.ExecQuery("select sum(pe_costo_tot) as TOTAL_CLIE, SUM(PE_CANT) AS CANT_CLIE, count(*) as CUANTOS FROM PEDIDO WHERE PE_CLIENTE IN (Select CUENTA from cuentaa)")
+			c=Starter.skmt.ExecQuery("select sum(pe_cant) as TOTAL_CLIE, SUM(PE_CANT) AS CANT_CLIE, count(*) as CUANTOS FROM PEDIDO WHERE PE_CLIENTE IN (Select CUENTA from cuentaa)")
 			c.Position = 0
 			If c.GetString("CUANTOS") > 0 Then
 				Log($"==============   TOTAL = ${c.GetString("TOTAL_CLIE")}"$)
@@ -1083,6 +1084,9 @@ Private Sub lv_prodsPedido_ItemLongClick (Position As Int, Value As Object)
 				Starter.skmt.ExecNonQuery("delete from pedido_cliente where PC_CLIENTE In (select cuenta from cuentaa)")
 				Starter.skmt.ExecNonQuery("UPDATE kmt_info set gestion = 0 where CAT_CL_CODIGO In (select cuenta from cuentaa)")
 			End If
+			Log("xxx")
+			Subs.revisaRMIs(Subs.traeCliente)
+			
 			b_terminar1_Click
 		End If
 	Else

B4A/Durakelo.b4a.meta

@@ -70,6 +70,6 @@ ModuleClosedNodes6=
 ModuleClosedNodes7=
 ModuleClosedNodes8=
 ModuleClosedNodes9=
-NavigationStack=Main,Activity_Create,32,0
+NavigationStack=C_Principal,trabajar_Click,448,0,C_Principal,B4XPage_Appear,432,0,C_Cliente,B_INV_Click,1157,0,C_Principal,Class_Globals,0,0,B4XMainPage,B4XPage_Created,151,0,C_Principal,cargar_Click,926,0,C_Principal,JobDone,1237,0,C_Cliente,Class_Globals,0,0,C_Cliente,B_VENTA_Click,1244,6,C_Cliente,gest_Click,446,0
 SelectedBuild=0
 VisibleModules=1,2,3,4,5,6,7,8,9,10