From e72dabb069efa152cc8875dddd20a4ea8a5cbe57 Mon Sep 17 00:00:00 2001 From: Jose Alberto Guerra Ugalde Date: Tue, 28 Jan 2025 20:19:46 -0600 Subject: [PATCH] =?UTF-8?q?-VERSION=205.01.27=20-=20Se=20corrigio=20que=20?= =?UTF-8?q?cuando=20revisaba=20si=20el=20cliente=20ya=20haba=20cntestado?= =?UTF-8?q?=20la=20encuesta,=20en=20lugar=20de=20revisar=20HIST=5FENCUESTA?= =?UTF-8?q?3,=20estaba=20revisando=20HIST=5FENCUESTA=20y=20por=20eso=20sie?= =?UTF-8?q?mrpe=20manbdaba=20la=20encuesta.=20-=20Se=20agreg=C3=B3=20que?= =?UTF-8?q?=20se=20descarguen=20las=20rutas=20para=20las=20encuestas=20(CA?= =?UTF-8?q?T=5FENCUESTA=5FPREGUNTA/CAT=5FEP=5FRUTAS),=20para=20que=20solo?= =?UTF-8?q?=20muestra=20las=20encuestas=20en=20las=20rutas=20especificadas?= =?UTF-8?q?=20y=20se=20modific=C3=B3=20el=20query=20que=20trae=20los=20dat?= =?UTF-8?q?os=20(antes=20se=20traian=20las=20preguntas=20con=20un=20like?= =?UTF-8?q?=20'%x%'=20y=20mosraba=20la=20encuesta=20en=20rutas=20que=20no?= =?UTF-8?q?=20debia)?= MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit --- .gitattributes | 16 ++++++++++++++++ B4A/B4XMainPage.bas | 1 + B4A/C_Cliente.bas | 36 +++++++++++++++++++++++++++++------- B4A/C_Principal.bas | 23 +++++++---------------- B4A/C_Productos.bas | 2 +- B4A/Durakelo.b4a | 28 ++++++++++++++-------------- B4A/Durakelo.b4a.meta | 8 ++++---- B4A/Files/principal.bal | Bin 55616 -> 54141 bytes B4A/Subs.bas | 2 ++ 9 files changed, 74 insertions(+), 42 deletions(-) create mode 100644 .gitattributes diff --git a/.gitattributes b/.gitattributes new file mode 100644 index 0000000..a3f49d9 --- /dev/null +++ b/.gitattributes @@ -0,0 +1,16 @@ +# Auto detect text files and perform LF normalization +* text=auto + +# linguist-language +*.b4a linguist-language=B4X +*.b4i linguist-language=B4X +*.b4j linguist-language=B4X +*.b4r linguist-language=B4X +*.bas linguist-language=B4X + +# linguist-detectable +*.b4a linguist-detectable=true +*.b4i linguist-detectable=true +*.b4j linguist-detectable=true +*.b4r linguist-detectable=true +*.bas linguist-detectable=true \ No newline at end of file diff --git a/B4A/B4XMainPage.bas b/B4A/B4XMainPage.bas index 9317199..a8fd8de 100644 --- a/B4A/B4XMainPage.bas +++ b/B4A/B4XMainPage.bas @@ -167,6 +167,7 @@ Private Sub B4XPage_Created (Root1 As B4XView) Starter.skmt.ExecNonQuery("CREATE TABLE IF NOT EXISTS CAT_CLASF_PROD (CAT_CP_ID TEXT, CAT_CP_NOMPROD TEXT)") Starter.skmt.ExecNonQuery("CREATE TABLE IF NOT EXISTS BANDERA_RMI (BR_BANDERA INT)") Subs.agregaColumna("CAT_ENCUESTA_PREGUNTA", "CAT_EP_IDGRUPO", "TEXT") + Subs.agregaColumna("CAT_ENCUESTA_PREGUNTA", "CAT_EP_RUTAS", "TEXT") Subs.agregaColumna("HIST_ENCUESTA", "HE_LAT", "TEXT") Subs.agregaColumna("HIST_ENCUESTA", "HE_LON", "TEXT") c=Starter.skmt.ExecQuery2("select count(*) as CUANTOS from CAT_VARIABLES WHERE CAT_VA_DESCRIPCION = ?", Array As String ("SERVER")) diff --git a/B4A/C_Cliente.bas b/B4A/C_Cliente.bas index b6c5aad..c72aa91 100644 --- a/B4A/C_Cliente.bas +++ b/B4A/C_Cliente.bas @@ -413,7 +413,7 @@ End Sub Sub gest_Click Log("GEST CLIC") -' Log($"${cuest.encuestaIniciada} - ${cuest.clienteConCuestionario(Subs.traeCliente)}"$) + Log($"${cuest.encuestaIniciada} - ${cuest.clienteConCuestionario(Subs.traeCliente)}"$) ' If Not(cuest.encuestaIniciada) And Not(cuest.clienteConCuestionario(Subs.traeCliente)) Then ' cuest.agregaPregunta("1", "¿Se puede acceder al negocio o está enrejado?", Array As String("No, está enrejado o no se tiene acceso", "Si se pude acceder")) ' Return False @@ -1248,10 +1248,13 @@ End Sub Sub B_VENTA_Click ' Log($"${cuest.encuestaIniciada} - ${cuest.clienteConCuestionario(Subs.traeCliente)}"$) - If Not(cuest.encuestaIniciada) And Not(cuest.clienteConCuestionario(Subs.traeCliente)) Then - cuest.agregaPregunta("1", "¿Se puede acceder al negocio o está enrejado?", Array As String("No, está enrejado o no se tiene acceso", "Si se pude acceder")) - Return False - End If +' If Not(cuest.encuestaIniciada) And Not(cuest.clienteConCuestionario(Subs.traeCliente)) Then +' cuest.agregaPregunta("1", "¿Se puede acceder al negocio o está enrejado?", Array As String("No, está enrejado o no se tiene acceso", "Si se pude acceder")) +' Return False +' End If + + + ' If la_cuenta.Text <> "0" Then ' Dim queenc As String ' ' 1=1 ----> si no esta en el historico que se descargue del web ver si esta contestada de manera local @@ -1844,6 +1847,24 @@ End Sub Sub Cuestionario Log("########################################################") Log("Entramos a Cuestionario") + Private gruposPermitidos As String = "" + Private gr As ResultSet = Starter.skmt.ExecQuery($"select distinct cat_ep_idgrupo, cat_ep_rutas from cat_encuesta_pregunta"$) 'Traemos el grupo y lista de rutas permitidas para la encuesta + Do While gr.NextRow + Private lasRutas() As String = Regex.Split(",", gr.GetString("CAT_EP_RUTAS")) ' Generamos lista de rutas y por cada una de ellas revisamos si es permitida y si SI, agregamos el grupo a una otra lista. + For i = 0 To lasRutas.Length - 1 + If lasRutas(i) = Subs.traeRuta Then + gruposPermitidos = $"${gruposPermitidos},"${gr.GetString("CAT_EP_IDGRUPO")}""$ + End If + Next + Loop + If gruposPermitidos.StartsWith(",") Then gruposPermitidos = gruposPermitidos.SubString(1) ' Si la lista de grupos inicia con ",", la quitamos. +' Log("--------------------------------") +' Log(gruposPermitidos) +' Log("--------------------------------") + Log(gr.GetString("CAT_EP_RUTAS")) +' Private enc As Cursor = Starter.skmt.ExecQuery($"SELECT CAT_EP_ID, CAT_EP_IDTIPOPREGUNTA, CAT_CE_DESCRIPCION, CAT_EP_PREGUNTA, CAT_EP_RES1_PRED, CAT_EP_RES2_PRED, CAT_EP_RES3_PRED, CAT_EP_ORDEN_PREGUNTA FROM CAT_ENCUESTA_PREGUNTA where CAT_EP_IDGRUPO in(${gruposPermitidos}) ORDER BY CAT_CE_DESCRIPCION, CAST(CAT_EP_ORDEN_PREGUNTA AS DECIMAL)"$) +' Log(enc.RowCount) + gr.Close Private logger As Boolean = True b_encuesta_continuar.Visible = False et_encuesta.Visible = False @@ -1855,14 +1876,15 @@ Sub Cuestionario CUANTOS = 0 If logger Then Log($"Tomar_Foto = ${TOMAR_FOTO}"$) If TOMAR_FOTO = 0 Then - s = Starter.skmt.ExecQuery("select COUNT(*) AS CUANTOS from HIST_ENCUESTA where HE_CLIE In (Select cuenta from cuentaa)") + s = Starter.skmt.ExecQuery("select COUNT(*) AS CUANTOS from HIST_ENCUESTA3 where HE_CLIE In (Select cuenta from cuentaa)") s.Position= 0 CUANTOS = s.GetString("CUANTOS") Private CUANTOS2 As Int = 0 End If If logger Then Log(CUANTOS & "|" & CUANTOS2) If CUANTOS = 0 And CUANTOS2 = 0 Then - Private enc As Cursor = Starter.skmt.ExecQuery("SELECT CAT_EP_ID, CAT_EP_IDTIPOPREGUNTA, CAT_CE_DESCRIPCION, CAT_EP_PREGUNTA, CAT_EP_RES1_PRED, CAT_EP_RES2_PRED, CAT_EP_RES3_PRED, CAT_EP_ORDEN_PREGUNTA FROM CAT_ENCUESTA_PREGUNTA ORDER BY CAT_CE_DESCRIPCION, CAST(CAT_EP_ORDEN_PREGUNTA AS DECIMAL)") +' Private enc As Cursor = Starter.skmt.ExecQuery("SELECT CAT_EP_ID, CAT_EP_IDTIPOPREGUNTA, CAT_CE_DESCRIPCION, CAT_EP_PREGUNTA, CAT_EP_RES1_PRED, CAT_EP_RES2_PRED, CAT_EP_RES3_PRED, CAT_EP_ORDEN_PREGUNTA FROM CAT_ENCUESTA_PREGUNTA ORDER BY CAT_CE_DESCRIPCION, CAST(CAT_EP_ORDEN_PREGUNTA AS DECIMAL)") + Private enc As Cursor = Starter.skmt.ExecQuery($"SELECT CAT_EP_ID, CAT_EP_IDTIPOPREGUNTA, CAT_CE_DESCRIPCION, CAT_EP_PREGUNTA, CAT_EP_RES1_PRED, CAT_EP_RES2_PRED, CAT_EP_RES3_PRED, CAT_EP_ORDEN_PREGUNTA FROM CAT_ENCUESTA_PREGUNTA where CAT_EP_IDGRUPO in(${gruposPermitidos}) ORDER BY CAT_CE_DESCRIPCION, CAST(CAT_EP_ORDEN_PREGUNTA AS DECIMAL)"$) If enc.RowCount > 0 Then enc.position = 0 If logger Then Log($"CAT_EP_ID=${enc.GetString("CAT_EP_ID")}"$) diff --git a/B4A/C_Principal.bas b/B4A/C_Principal.bas index cd6a0e5..a054854 100644 --- a/B4A/C_Principal.bas +++ b/B4A/C_Principal.bas @@ -162,7 +162,6 @@ Sub Class_Globals Private l_montoColgateResumen As Label Private l_nes_humedos As Label Private l_nes_secos As Label - Private l_conagra As Label End Sub Sub initialize @@ -873,6 +872,7 @@ Sub cargar_Click skmt.ExecNonQuery("delete from HIST_EXIBIDORES") skmt.ExecNonQuery("delete from CAT_EXHIBIDORES") skmt.ExecNonQuery("delete from CAT_ENCUESTA_PREGUNTA") + skmt.ExecNonQuery("delete from HIST_ENCUESTA3") c=skmt.ExecQuery("select usuario from usuarioa") c.Position = 0 @@ -1026,8 +1026,8 @@ Sub cargar_Click reqManager.ExecuteQuery(cmd , 0, "sucursal") cmd.Initialize - cmd.Name = "select_cat_encuesta_p_DUR" - cmd.Parameters = Array As Object( ALMACEN,e_ruta.text ) + cmd.Name = "select_cat_encuesta2_p_DUR" + cmd.Parameters = Array As Object( ALMACEN ) reqManager.ExecuteQuery(cmd , 0, "carga_encuesta") ' c=skmt.ExecQuery("select HIST_VI_CREDITO, HIST_VI_PRODUCTO,HIST_VI_VISITADOR, HIST_VI_RESULTADO, HIST_VI_CODIGO, HIST_VI_PARENTESCO, HIST_VI_COMENTARIO, HIST_VI_DTEVISITA, HIST_VI_LONGITUD, HIST_VI_LATITUD, hist_vi_imagen, hist_vi_dprom, hist_vi_mprom from HIST_VISITAS") @@ -1091,7 +1091,7 @@ Sub JobDone(Job As HttpJob) End If End If Else - LogColor("JobDone: '" & reqManager.HandleJob(Job).tag & "' - Registros: " & reqManager.HandleJob(Job).Rows.Size, Colors.Green) 'Mod por CHV - 211027 + LogColor("JobDone: '" & reqManager.HandleJob(Job).tag & "' - Registros: " & reqManager.HandleJob(Job).Rows.Size, Colors.Magenta) 'Mod por CHV - 211027 If Job.JobName = "DBRequest" Then Dim RESULT As DBResult = reqManager.HandleJob(Job) If reqManager.reqsList.IsInitialized Then 'Si tenemos lista de requests, la procesamos. @@ -1240,7 +1240,7 @@ 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 @@ -1666,7 +1666,8 @@ Sub JobDone(Job As HttpJob) Dim CAT_EP_RES2_PRED As String = records(RESULT.COLUMNS.GET("CAT_EP_RES2_PRED")) Dim CAT_EP_RES3_PRED As String = records(RESULT.COLUMNS.GET("CAT_EP_RES3_PRED")) Dim CAT_EP_ORDEN_PREGUNTA As String = records(RESULT.COLUMNS.GET("CAT_EP_ORDEN_PREGUNTA")) - skmt.ExecNonQuery2("INSERT INTO CAT_ENCUESTA_PREGUNTA (CAT_EP_ID ,CAT_EP_IDTIPOPREGUNTA ,CAT_CE_DESCRIPCION ,CAT_EP_PREGUNTA ,CAT_EP_RES1_PRED ,CAT_EP_RES2_PRED ,CAT_EP_RES3_PRED ,CAT_EP_ORDEN_PREGUNTA,CAT_EP_IDGRUPO) VALUES (?,?,?,?,?,?,?,?,?)", Array As Object (CAT_EP_ID,CAT_EP_IDTIPOPREGUNTA,CAT_CE_DESCRIPCION,CAT_EP_PREGUNTA,CAT_EP_RES1_PRED,CAT_EP_RES2_PRED,CAT_EP_RES3_PRED,CAT_EP_ORDEN_PREGUNTA,CAT_EP_IDGRUPO)) + Dim CAT_EP_RUTAS As String = records(RESULT.COLUMNS.GET("CAT_EP_RUTAS")) + skmt.ExecNonQuery2("INSERT INTO CAT_ENCUESTA_PREGUNTA (CAT_EP_ID ,CAT_EP_IDTIPOPREGUNTA ,CAT_CE_DESCRIPCION ,CAT_EP_PREGUNTA ,CAT_EP_RES1_PRED ,CAT_EP_RES2_PRED ,CAT_EP_RES3_PRED ,CAT_EP_ORDEN_PREGUNTA,CAT_EP_IDGRUPO,CAT_EP_RUTAS) VALUES (?,?,?,?,?,?,?,?,?,?)", Array As Object (CAT_EP_ID,CAT_EP_IDTIPOPREGUNTA,CAT_CE_DESCRIPCION,CAT_EP_PREGUNTA,CAT_EP_RES1_PRED,CAT_EP_RES2_PRED,CAT_EP_RES3_PRED,CAT_EP_ORDEN_PREGUNTA,CAT_EP_IDGRUPO,CAT_EP_RUTAS)) Next End If End If @@ -2387,16 +2388,6 @@ Sub Resumen_Click Loop l_nes_secos.Text = NumberFormat2(cRes3, 1, 2, 2, True) - - Private r9 As ResultSet = Starter.skmt.ExecQuery($"SELECT CAT_GP_CLASIF, PEDIDO.* FROM PEDIDO JOIN CAT_GUNAPROD WHERE CAT_GP_CLASIF LIKE '%CONAGRA%' AND PE_PROID = CAT_GP_ID"$) - Private cRes4 As String = 0 - Do While r9.NextRow - cRes4 = cRes4 + r9.GetString("PE_COSTO_TOT") - Loop - l_conagra.Text = NumberFormat2(cRes4, 1, 2, 2, True) - - - b=skmt.ExecQuery("Select count(*) as CUANTOS from pedido_cliente where pc_cliente <> 0") b.Position=0 Cuantos = b.GetString("CUANTOS") diff --git a/B4A/C_Productos.bas b/B4A/C_Productos.bas index 58b000c..f45a250 100644 --- a/B4A/C_Productos.bas +++ b/B4A/C_Productos.bas @@ -1342,7 +1342,7 @@ Sub LlenaProdsLL(p As ResultSet, extra As String) Else Log("NO HAY RESULTSET") ' Dim p As ResultSet = Starter.skmt.ExecQuery($"select CAT_GP_ID, CAT_GP_NOMBRE, CAT_GP_ALMACEN, CAT_GP_PRECIO, CAT_GP_TIPOPROD from ${Subs.traeTablaProds(Starter.tipov)} where CAT_GP_PRECIO > 0 And CAT_GP_CLASIF <> 'PROMOS' order by CAT_GP_NOMBRE"$) - Dim p As ResultSet = Starter.skmt.ExecQuery($"Select distinct ${Subs.traeTablaProds(Starter.tipov)}.CAT_GP_ID, CAT_GP_NOMBRE, CAT_GP_ALMACEN, CAT_GP_PRECIO, CAT_GP_TIPOPROD, LISTA_PRECIOS.CAT_GP_ID as precioAlt, CAT_GP_CLASIF from ${Subs.traeTablaProds(Starter.tipov)} left join LISTA_PRECIOS on LISTA_PRECIOS.CAT_GP_ID = ${Subs.traeTablaProds(Starter.tipov)}.CAT_GP_ID where CAT_GP_PRECIO > 0 And CAT_GP_CLASIF <> 'PROMOS' order by CAT_GP_CLASIF, CAT_GP_NOMBRE"$) + Dim p As ResultSet = Starter.skmt.ExecQuery($"Select distinct ${Subs.traeTablaProds(Starter.tipov)}.CAT_GP_ID, CAT_GP_NOMBRE, CAT_GP_ALMACEN, CAT_GP_PRECIO, CAT_GP_TIPOPROD, LISTA_PRECIOS.CAT_GP_ID as precioAlt from ${Subs.traeTablaProds(Starter.tipov)} left join LISTA_PRECIOS on LISTA_PRECIOS.CAT_GP_ID = ${Subs.traeTablaProds(Starter.tipov)}.CAT_GP_ID where CAT_GP_PRECIO > 0 And CAT_GP_CLASIF <> 'PROMOS' order by CAT_GP_NOMBRE"$) Log("|" & Starter.tipov & "|") Log($"Select distinct ${Subs.traeTablaProds(Starter.tipov)}.CAT_GP_ID, CAT_GP_NOMBRE, CAT_GP_ALMACEN, CAT_GP_PRECIO, CAT_GP_TIPOPROD, LISTA_PRECIOS.CAT_GP_ID as precioAlt from ${Subs.traeTablaProds(Starter.tipov)} left join LISTA_PRECIOS on LISTA_PRECIOS.CAT_GP_ID = ${Subs.traeTablaProds(Starter.tipov)}.CAT_GP_ID where CAT_GP_PRECIO > 0 And CAT_GP_CLASIF <> 'PROMOS' order by CAT_GP_NOMBRE"$) End If diff --git a/B4A/Durakelo.b4a b/B4A/Durakelo.b4a index 1b07f0f..9bc1efe 100644 --- a/B4A/Durakelo.b4a +++ b/B4A/Durakelo.b4a @@ -572,20 +572,20 @@ File611=celltitle.bal File612=Cliente.bal File613=Clientes.bal File614=colgate.png -File615=conagra.jpg -File616=detalle_promo.bal -File617=durakelo.png -File618=durakelo_192x192.png -File619=durakelo1.png +File615=detalle_promo.bal +File616=durakelo.png +File617=durakelo_192x192.png +File618=durakelo1.png +File619=encuesta.bal File62=117marker-verde.png -File620=encuesta.bal -File621=engrane.jpg -File622=engrane3.png -File623=espera.gif -File624=fondo_kmt.jpg -File625=foto.bal -File626=guardagestion.bal -File627=guna_viejo.png +File620=engrane.jpg +File621=engrane3.png +File622=espera.gif +File623=fondo_kmt.jpg +File624=foto.bal +File625=guardagestion.bal +File626=guna_viejo.png +File627=historico.bal File628=infonavit1.jpg File629=itembuttonblue.png File63=118.png @@ -1404,7 +1404,7 @@ Version=12.8 #Region Project Attributes #ApplicationLabel: Durakelo #VersionCode: 1 - #VersionName: 4.09.06 + #VersionName: 5.01.27 'SupportedOrientations possible values: unspecified, landscape or portrait. #SupportedOrientations: portrait #CanInstallToExternalStorage: False diff --git a/B4A/Durakelo.b4a.meta b/B4A/Durakelo.b4a.meta index 4c3f0d9..9d19baf 100644 --- a/B4A/Durakelo.b4a.meta +++ b/B4A/Durakelo.b4a.meta @@ -50,7 +50,7 @@ ModuleBreakpoints8= ModuleBreakpoints9= ModuleClosedNodes0= ModuleClosedNodes1= -ModuleClosedNodes10= +ModuleClosedNodes10=1 ModuleClosedNodes11=7,35,36,41,42 ModuleClosedNodes12= ModuleClosedNodes13= @@ -60,7 +60,7 @@ ModuleClosedNodes16= ModuleClosedNodes17= ModuleClosedNodes18= ModuleClosedNodes19= -ModuleClosedNodes2=2 +ModuleClosedNodes2=2,5 ModuleClosedNodes20= ModuleClosedNodes21= ModuleClosedNodes22=1 @@ -73,6 +73,6 @@ ModuleClosedNodes6= ModuleClosedNodes7= ModuleClosedNodes8= ModuleClosedNodes9= -NavigationStack=B4XMainPage,Class_Globals,94,0,C_Productos,Class_Globals,0,0,C_Productos,B4XPage_Appear,265,0,C_Productos,Busca_TextChanged,1299,0,C_Productos,LlenaProdsLL,1338,1,Diseñador Visual,principal.bal,-100,6,B4XMainPage,Initialize,101,0,C_Principal,Class_Globals,158,0,C_Principal,Resumen_Click,2384,2,C_Cliente,Class_Globals,0,0,C_Cliente,gest_Click,407,0 +NavigationStack=B4XMainPage,B4XPage_Created,163,0,Main,Activity_Create,30,0,Main,Process_Globals,21,0,Main,Globals,23,0,C_Principal,Subir_Click,632,0,C_Cliente,gest_Click,481,0,C_Principal,cargar_Click,896,6,C_Principal,JobDone,1248,4,C_Cliente,Class_Globals,0,0,C_Cliente,Cuestionario,1857,6 SelectedBuild=0 -VisibleModules=2,10,4,19,5,6,8,9,11,24 +VisibleModules=2,10,4,19,6,8,9,11,24,23 diff --git a/B4A/Files/principal.bal b/B4A/Files/principal.bal index 6c6a6215e781b623d1c47951d306130235ab0278..cc3279be2875075803663b7a11bce5d38d8906d3 100644 GIT binary patch delta 1926 zcmZwHYfwyK7zgn4Zfb;fmBy`@&>*EG7F)Yf z3Z4d@&d>K9`wZ|*@GS6buoXN9JQq9D)yab#9UJ70YUJhOX zUMWd--`i)xg;n4z@M`cH@LKRX@OtnDaJJ8U{yDyhBy9xef^FbDa6Whwcr$nl+xsuu z%HGDcook0;rT@xgr!w()7kD>#4|p$lA9z1lxwrS82iOO>4sjg@+Y5N&4IN>7cY2iV z{T>v8kAaUv{sj0W_!Qf~)t##cS2wQAjaiwttPPp5`8MhtWRzzHl?gFfZqr)~@}B-8 zt>3q{KY#jgP;g0o6lZzl=m`(THi*|$NLFlFa_6yiy;)@i0M9rpP_uF zx+!}Nj1=_Xrjc@+ZDObzic&*S{|jBNanif$P_jNWQ}lg3l~m@?*H#N2Ee#Pd6#Q%|opU+Ga2n8P1k81F5LK zj2ddS=k#%D&k1llM7(cRyl>S=b=CGqPO7fcR&=e`R{VVI5Tn!`@#xvnXf?h5iIZ-+ zwRD?XOMh;3h%suKM^AdJ9Q;fODrwN7tqofA{qu62Nl?Y!f$GVd_~d6%=cY>((HKe= z*=$JcaCj!FD9z?>*gRcGQV%$(W2U_eX0;0zHDvi;h`S(?`6R4V^+GR96mczruDo)J z@ybH_^)gY}oYK=Tubm=A2^vy5-bYOTo(%OBp()=d=Dd@Y_b YUdK^!OPDTA&>2fl`jD)rrj|{A0iwurr2qf` delta 2264 zcmZwIZA?>F7y#gVE{bU_y@*7FZdtbwwX;$|%7=UkREnUKjj=BsR_xGR*}2fqLP;8Y*4Esz$K!0> z>y$m>zaq0j)BJndL~L+4J+8JwNKZV)4$GGlk1<~wK3$6ODnc&LD%X*Q3gSxQDqzE_VGP#A`Nd6zeW5u@jJxt z5^pBnLi`?aGx1hI@I_beBn{h$TZp$4yNKT>ZYAD9ypz}+HNO8{(Hs15h<6ivi1!eC ziQ9?y5`RGaA@N7teE<0te2k%fe*4h-F*-0hi9aDeKzxw+5HYW<*7=mUi@5MGxj907 z6#W^-=NQL`kE4~M;M6T{P)~^y_*C^5#NB9hStp545r2u6Fp@D+;f&6%=f~R20hZF&*LS7!w&jh zfV2SvJRi%09RnTk*JTa-dgUrx28%8_@Ooi%KR&aub71u6h|3uabsE?T@cPYo?eW`Q z7*UH}Q;YIrOqt&z_+!mW;FGoR^-V4G$WCzINP*;j1Dw5~hwr=AL1%vtoC&7FHS3|{tUiyI=7sfAG3EY>pky<`bYg?;}6&dadG diff --git a/B4A/Subs.bas b/B4A/Subs.bas index 7f4baca..d0ba15c 100644 --- a/B4A/Subs.bas +++ b/B4A/Subs.bas @@ -980,9 +980,11 @@ Sub traeMaxPromos(pm As Map) As Int ' End If If thisLog Then LogColor("==== HISTORICO:"&pm.Get("historico"), Colors.Red) If thisLog Then Log(pm) + Log(maxPromos) If pm.Get("historico") = "1" Then maxPromos.Add(pm.Get("maxRecurrente")) 'Si hay historico, agregamos maxRecurrente maxPromos.Add(pm.Get("maxPromos")) 'Agregamos maxPromos maxPromos.Add(pm.Get("maxXcliente")) 'Agregamos maxXcliente + Log(maxPromos) If hccp.RowCount > 0 Then 'Agregamos promos HCCP hccp.Position = 0 maxPromos.Add(hccp.GetString("HCCP_CANT"))