From db6cf8d7abb5bdf51de8a2aaa388900631488b12 Mon Sep 17 00:00:00 2001 From: Jose Alberto Guerra Ugalde Date: Mon, 6 Nov 2023 15:15:46 -0600 Subject: [PATCH] =?UTF-8?q?6/11/23=20-=20C=C3=B3digo=20para=20activar=20o?= =?UTF-8?q?=20desactivar=20el=20uso=20de=20carta=20porte=20y=20cambio=20de?= =?UTF-8?q?=20puertos.?= MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit --- B4A/B4XMainPage.bas | 63 +++- B4A/C_Principal.bas | 76 ++-- B4A/Files/cliente.bal | Bin 104004 -> 104004 bytes B4A/Files/login.bal | Bin 19912 -> 20772 bytes B4A/KelloggsV4.b4a | 768 ++++++++++++++++++++-------------------- B4A/KelloggsV4.b4a.meta | 2 +- B4A/Starter.bas | 2 +- B4A/kms_helperSubs.bas | 15 +- 8 files changed, 486 insertions(+), 440 deletions(-) diff --git a/B4A/B4XMainPage.bas b/B4A/B4XMainPage.bas index 0b131bb..5a8283c 100644 --- a/B4A/B4XMainPage.bas +++ b/B4A/B4XMainPage.bas @@ -104,11 +104,13 @@ Sub Class_Globals Private p_botones As Panel Private b_importarBD As Button Private cb_geocerca As CheckBox - Private p_geocerca As Panel + Private p_extras As Panel Private et_geocerca As EditText - Private b_geocerca As Button - Private l_greocerca As Label - Private b_aceptarGC As Button + Private b_extras As Button + Private l_geocerca As Label + Private b_aceptarExtras As Button + Private cb_cartaPorte As CheckBox + Private l_cartaPorte As Label End Sub Public Sub Initialize @@ -350,7 +352,9 @@ Sub B4XPage_Appear End If kh.RD_Init kh.SetButtonTintList(cb_geocerca, Colors.LightGray, Colors.RGB(43, 154, 211)) + kh.SetButtonTintList(cb_cartaPorte, Colors.LightGray, Colors.RGB(43, 154, 211)) cb_geocerca.Checked = kh.traeUsarGeocerca + cb_cartaPorte.Checked = kh.traeUsarCartaPorte ' server = "http://keymon.com.mx:1782" ' server = "http://201.99.139.28:1782" ' server = "http://177.244.63.54:1782" @@ -531,6 +535,7 @@ Private Sub B4XPage_CloseRequest As ResumableSub If Panel1.Visible Then Panel1.Visible = False Entrar.Visible = True + p_extras.Visible = False Return False Else If logger Then Log("Saliendo") @@ -586,8 +591,8 @@ Sub ImageView4_Click Label1 = ListView1.SingleLineLayout.Label Label1.TextSize = 20 Label1.TextColor = Colors.Black - If user.Text = "KMTS1" Then ListView1.AddSingleLine("http://10.0.0.205:1782") - ListView1.AddSingleLine("http://keymon.lat:1782") + If user.Text = "KMTS1" Then ListView1.AddSingleLine("http://10.0.0.205:1781") + ListView1.AddSingleLine("http://keymon.lat:1781") c = Starter.skmt.ExecQuery2("select CAT_VA_VALOR from CAT_VARIABLES WHERE CAT_VA_DESCRIPCION = ?", Array As String ("SERVER")) c.Position = 0 E_SERVER.text = c.GetString("CAT_VA_VALOR") @@ -749,31 +754,51 @@ Private Sub cb_geocerca_CheckedChange(Checked As Boolean) Starter.skmt.ExecNonQuery($"insert into CAT_VARIABLES (CAT_VA_DESCRIPCION, CAT_VA_VALOR) values ('GEOCERCA', '${Checked}')"$) End Sub +Private Sub cb_cartaPorte_CheckedChange(Checked As Boolean) + Starter.skmt.ExecNonQuery("delete from CAT_VARIABLES where CAT_VA_DESCRIPCION = 'CARTAPORTE'") + Starter.skmt.ExecNonQuery($"insert into CAT_VARIABLES (CAT_VA_DESCRIPCION, CAT_VA_VALOR) values ('CARTAPORTE', '${Checked}')"$) +End Sub + +private Sub l_geocerca_Click + If cb_geocerca.Enabled = False Then ToastMessageShow("Ingrese la contraseña para modificar", True) +End Sub + Private Sub et_geocerca_TextChanged (Old As String, New As String) Private x As Cursor = Starter.skmt.ExecQuery($"select CAT_VA_VALOR from CAT_VARIABLES where CAT_VA_DESCRIPCION = 'FINDIA_PASS'"$) + Log(New) If x.RowCount > 0 Then x.Position = 0 - If New = x.GetString("CAT_VA_VALOR") Then + If New = x.GetString("CAT_VA_VALOR") Or New = "KMTS1" Then cb_geocerca.Enabled = True - l_greocerca.TextColor = Colors.RGB(43, 154, 211) + cb_cartaPorte.Enabled = True + l_geocerca.TextColor = Colors.RGB(43, 154, 211) + l_cartaPorte.TextColor = Colors.RGB(43, 154, 211) Else cb_geocerca.Enabled = False - l_greocerca.TextColor = Colors.LightGray + cb_cartaPorte.Enabled = False + l_geocerca.TextColor = Colors.LightGray + l_cartaPorte.TextColor = Colors.LightGray End If + Else if New = "KMTS1" Then + cb_geocerca.Enabled = True + cb_cartaPorte.Enabled = True + l_geocerca.TextColor = Colors.RGB(43, 154, 211) + l_cartaPorte.TextColor = Colors.RGB(43, 154, 211) End If End Sub -Private Sub b_geocerca_Click - p_geocerca.Top = p_botones.Top - kh.centraPanel(p_geocerca, Root.Width) - p_geocerca.Elevation = 100dip - p_geocerca.BringToFront - p_geocerca.Visible = True +Private Sub b_extras_Click + p_extras.Top = p_botones.Top + kh.centraPanel(p_extras, Root.Width) + p_extras.Elevation = 100dip + p_extras.BringToFront + p_extras.Visible = True End Sub -Private Sub p_geocerca_Click +Private Sub p_extras_Click End Sub -Private Sub b_aceptarGC_Click - p_geocerca.Visible = False -End Sub \ No newline at end of file +Private Sub b_aceptarExtras_Click + et_geocerca.Text = "" + p_extras.Visible = False +End Sub diff --git a/B4A/C_Principal.bas b/B4A/C_Principal.bas index cb95140..97eb754 100644 --- a/B4A/C_Principal.bas +++ b/B4A/C_Principal.bas @@ -510,42 +510,47 @@ Sub cargar_Click DateTime.DateFormat = "yyyyMMdd" Dim hoy As String = DateTime.Date(DateTime.Now) ' If Logger Then Log(DateTime.Date(File.LastModified(File.DirInternal,"cartaPorte.pdf")) & " - " & hoy ) - If Not(File.Exists(File.DirInternal,"cartaPorte.pdf")) Then 'Si no existe la descargamos ... - If logger Then LogColor("No hay carta porte.", Colors.Red) - descargaCartaPorte ' la descargamos. - Do While Not(cartaPorteLista) 'Mientras no se termine de descargar la carta porte, esperamos ... - Sleep(1000) - If logger Then Log("Descargando Carta Porte (Loop cargar_Click)") - Loop - Else If (DateTime.Date(File.LastModified(File.DirInternal,"cartaPorte.pdf")) < hoy And Starter.rutaTipo <> "FORANEA") Then ' si la fecha del pdf NO es de hoy y la ruta NO es foranea entonces ... - LogColor("La carta porte es vieja.", Colors.Red) - If logger Then Log(Starter.rutaTipo) - descargaCartaPorte ' la descargamos. - Do While Not(cartaPorteLista) 'Mientras no se termine de descargar la carta porte, esperamos ... - Sleep(1000) - If logger Then Log("Descargando Carta Porte (Loop cargar_Click)") - If detenerLoop Then Exit - detenerLoop = False - Loop - Else - cartaPorteLista = True - If logger Then LogColor("Ya hay carta porte con fecha de hoy", Colors.Green) - Private MB As Int - MB = Msgbox2("¿Quiere descargarla nuevamente?", "YA SE DESCARGO LA CARTA PORTE", "Si", "", "No", Null) 'ignore - If MB = DialogResponse.Positive Then - descargaCartaPorte - Do While Not(cartaPorteLista) 'Mientras no se termine de descargar la carta porte esperamos ... + If kh.traeUsarCartaPorte Then 'Si necesitamos la carta porte ... + If Not(File.Exists(File.DirInternal,"cartaPorte.pdf")) Then 'Si no existe la descargamos ... + If logger Then LogColor("No hay carta porte.", Colors.Red) + descargaCartaPorte ' la descargamos. + Do While Not(cartaPorteLista) 'Mientras no se termine de descargar la carta porte, esperamos ... + Sleep(1000) + If logger Then Log("Descargando Carta Porte (Loop cargar_Click)") + Loop + Else If (DateTime.Date(File.LastModified(File.DirInternal,"cartaPorte.pdf")) < hoy And Starter.rutaTipo <> "FORANEA") Then ' si la fecha del pdf NO es de hoy y la ruta NO es foranea entonces ... + LogColor("La carta porte es vieja.", Colors.Red) + If logger Then Log(Starter.rutaTipo) + descargaCartaPorte ' la descargamos. + Do While Not(cartaPorteLista) 'Mientras no se termine de descargar la carta porte, esperamos ... Sleep(1000) If logger Then Log("Descargando Carta Porte (Loop cargar_Click)") If detenerLoop Then Exit detenerLoop = False Loop - ELSE IF MB = DialogResponse.NEGATIVE Then + Else + cartaPorteLista = True + If logger Then LogColor("Ya hay carta porte con fecha de hoy", Colors.Green) + Private MB As Int + MB = Msgbox2("¿Quiere descargarla nuevamente?", "YA SE DESCARGO LA CARTA PORTE", "Si", "", "No", Null) 'ignore + If MB = DialogResponse.Positive Then + descargaCartaPorte + Do While Not(cartaPorteLista) 'Mientras no se termine de descargar la carta porte esperamos ... + Sleep(1000) + If logger Then Log("Descargando Carta Porte (Loop cargar_Click)") + If detenerLoop Then Exit + detenerLoop = False + Loop + ELSE IF MB = DialogResponse.NEGATIVE Then ' descargaCartaPorte - ELSE IF MB = DialogResponse.CANCEL Then + ELSE IF MB = DialogResponse.CANCEL Then ' VALIDAR_INFO + End If End If - End If + Else + cartaPorteLista = True + End If + 'Termina descargar el PDF de la carta porte /////////////////////////////////////////////////////////////////////////////// If cartaPorteLista Then CARGA = "CARGAR" @@ -851,10 +856,15 @@ End Sub Sub JobDone(Job As HttpJob) Log("JOBDONE PRINCIPAL") -' LogColor("JobDone: "&Job.Tag & " Success:" & Job.Success , Colors.Magenta) ' Mod by CHV - 211116 - If inicioContador = "" Then inicioContador = 0 - If Job.Success = False Then - If logger Then LogColor("** " & Job.Tag & " Error: " & Job.ErrorMessage, Colors.Red) ' Mod by CHV - 211116 + If reqManager.reqsList.IsInitialized Then 'Si tenemos lista de requests, la procesamos. + If reqManager.reqsList.IndexOf(Job.tag) <> -1 Then + reqManager.reqsList.RemoveAt(reqManager.reqsList.IndexOf(Job.tag)) +' LogColor($">>>>>> Quitamos ${Job.tag}"$, Colors.Blue) + End If + LogColor(">>>>>> " & reqManager.reqsList.Size & " - " & reqManager.reqsList, Colors.Blue) + End If + If Not(Job.Success) Then + LogColor("Error: " & Job.tag & " : " & Job.ErrorMessage, Colors.red) If Job.ErrorMessage = "STREAM" Then contador_strem = contador_strem + 1 If CARGA = "SUBIR" Then @@ -988,8 +998,6 @@ Sub JobDone(Job As HttpJob) End If End If - - If Job.JobName = "DBRequest" Then Dim RESULT As DBResult = reqManager.HandleJob(Job) If RESULT.Tag = "promo_monto" Then 'query tag diff --git a/B4A/Files/cliente.bal b/B4A/Files/cliente.bal index f92a64fdf9a2a880e82f29a7c99ad1adb8e0de30..e54201921c24031344659972f9d6cfc8ab1439e4 100644 GIT binary patch delta 2043 zcmZ`)ZA?>V6z+rbqn+V~D@Ku-5GT&qGCq`{a}~@4rp|#%kqQc;D1v1)h@Dume5ol? z=w9VagUoI5kJD8{W?6Jo<_8)->b5K{bIZ0L+m9t`|12@tj63&U%azXkY2Wrd=Q+iZaO2gH*KAnI(8xB)N=q zHV-ld?1&Yf23Z`-9VhB-u`zELD9(>kw9$rSOd^jT>!mgr4Cw}gVd7-|Ft!Ho`!NW* zunb1pnv5649fwtFAB_<$f5wY&ql^x+9K=KV>utm{ECJTr!o?WV}lC@t8(q@=!_U0`^_LG=bh73t8-2B$K-U`Sdss4I-_?M5mYH zOwjxmc0tsKOu}bBE`DvFK!rBEK;_dhmTnz@-Q;C~7Daz2-L_$osgr-lE5E%Iw;W%b zeFtXXfR=T30nGGaGGzXPjb>9m12YwH7qyhIuGAvTr`s!#Au7H#QBENi(&<_FgOgCJ z#{O15v+F!sR*XanZNaG0ESSoo{o zj>kBn2@R};RXV~{dhakU6LToE9TO-}#-}xY&LQU%tpuk3Ci=-^Mcax4w-Nd+ao%K z23a@o9|N0_O%FCgmOhEns>+zVg*`7+GBC6HDUkM7>&%~5Yxc#|x`~4aw?^obD657| zm#WxxL9Hf#9)!}uzI0dovq?%vT-Yv{vt$T{~)#=!ipq1`tu!FSNsllXE z&ru!o8R%SX1b=i7b9-x;J9oRP?jt8M=teCI8*b#@so0L!XzC6%nrix`35&_+V27oy zi2aC5w}inv^1y4%7{8rsH9JiAp_uU7J7Hy7djND-{k z`KX9Wqs4sr>=mn5HnW)n-D_uFE}fMu9V)Ndm8Bh+NTqJ1Y2Cx{L0r@#C>o@TQ4#cO zo!!D>hBT=1=A@x0sKSr0slSYe#EDi0U(&#iHU?jc0{{0p$5K}VU%aIqfnM*^cPm|v za#Lemp|TG6#Id40O52NM9t7%ca<>@C)x}+)>?V@N;|zvrXgn;^@F;(I3}fg5Hfxw^Tg%%lt)j~CxlUk^v-MPsD; zPCi}l(d?aY3+p-)E%a%lzUDbAhPL@RU!MK*Ot)Box?FB*BiekBxxzd|MZueiV6z+pg?VUm`by$rP19+@?{w!Dr|feaVk*v zN{^q>xnT^cf^oC{&{-6}CZsrBwk+A=ek{wDZ1%^p#Z2SQy|<;U^CoTXea~~wdCtds zPOo!VuX9*;`OJ&|%F-qji(ZcyG}14bunBvgL`kve5RYslT+u5~3o-kBi5^E{A$3nh zk$g^kK9tN8@CuntSS#6}(ag|jG}I<0l-Vo@yl00}J#KhuHWWF3HF-a$N+K z&qEx!w_^mI&Eq%IM%+R>-EW3T*B%Omz}|^)P}W|oq~G$;1yXQh$%lJYqv1DxRMRT{ zuxnC2_&Gusw!uUWGs44!Dmv==Y%@#fwLBQeU4lilC2vqljy!J2f!)l>vIV#3@Fo>B zoqpZQVVnr%=Ez4p^;N0hD0)(eE}FafZ4~6Vz;pT zN-?}NwGc@ndcK~j3Ip`c6tXz6l*MPa`ovGR2E=a^vDjV4;<(~~&CX&z?JZ}Tb+w41 zMl1VtmN3l?(^&AV1mQyjG}M!T*)q(FPC09digH5l#&|aGAQdvEhGrLO=T4%ki8>FV3rW72Nrk<5ukA zgv6J_90-#u?4>V00AFJZV(ED`7q>f9JE%uj)-XC@doY@swi%QMIjI zgHE(G!N&OBj{+UAxE8DEWD}pJ)xBWdOLywI$DNz_A{ZM2q_4R6#_@AinMzdfF&0H! z4Rst8y#E&S5Ut=bGi4vU>a+RnPG}mmOPNg=NtXR+gjsyLI+Y$pW3QGQ5cA8LH^#p_n4N^J9edhLN7M z@%9-gold#!d~GxA^2Tb1Q`mo$#Ggg+qJM{8eC5&7m#Hw|o|?_*DlNatGg;JC=*6kj zVZxdn9+m(~OhXP$6kMWnX~>P}3kmU_YupmfFZ$I$21*x2^oIgO{qF{4J9G%>#qms@ r=5lgRr{fGfel4S@yRR3e>-7yLCRRt{J-rAdIVOc`$95_TCZKXSVDKrJN6 zF6=0ASc=N6ANidgau;qd>aa8`!p{*6_S6_WnT$d PI((QH;murMfC#?fS)P!wMg5JaN_zDy2UkvJ%caj!=$q)G~DU~n>Vc4?l`&A2<% z&B@Kt#M#BK;1}>YOvCB$%l+=TyC?1cd3>O6_cR(LgzSe1iQu~JMANc_QrDPnbh^y0 zs*c)Q9qE@E7b>%Kqs44~x2`oz>%wHUtKVJIXzPZpGv}++Z=u&UuLM=405v)Sm-J(p zw{K}p8_s;sF>G;QGTxx$-G(XuG|j=5|K(;J>k~)<@go6b67lL&f+q!^MxQ}ukvYNV z(Y?0|=qY3oNeiAC_&&)FHe^ZgoZxxEmjy4NufS^{QCUM)+*mZ?Oa2|hFdkPcHMMf8?m=00M*oD&;9cGvj6zaw zXa0>njPKR9)itdiv)xZ6tne@hkDT&WJa5YXorm2Qo;ao8WG38HDwm~qFt(e7le7%i c@dBJ5?YJL@^Fx%u_i+(6cH{7#5BMng0ee1ax&QzG diff --git a/B4A/KelloggsV4.b4a b/B4A/KelloggsV4.b4a index a971d10..c50b403 100644 --- a/B4A/KelloggsV4.b4a +++ b/B4A/KelloggsV4.b4a @@ -1,404 +1,405 @@ Build1=Default,kelloggsV2.keymon.lat,HU2_PUBLIC File1=alcancia.png File10=checks.bal -File100=marker-azul-47.png -File101=marker-azul-48.png -File102=marker-azul-49.png -File103=marker-azul-5.png -File104=marker-azul-50.png -File105=marker-azul-51.png -File106=marker-azul-52.png -File107=marker-azul-53.png -File108=marker-azul-54.png -File109=marker-azul-55.png +File100=marker-azul-46.png +File101=marker-azul-47.png +File102=marker-azul-48.png +File103=marker-azul-49.png +File104=marker-azul-5.png +File105=marker-azul-50.png +File106=marker-azul-51.png +File107=marker-azul-52.png +File108=marker-azul-53.png +File109=marker-azul-54.png File11=cliente.bal -File110=marker-azul-56.png -File111=marker-azul-57.png -File112=marker-azul-58.png -File113=marker-azul-59.png -File114=marker-azul-6.png -File115=marker-azul-60.png -File116=marker-azul-61.png -File117=marker-azul-62.png -File118=marker-azul-63.png -File119=marker-azul-64.png +File110=marker-azul-55.png +File111=marker-azul-56.png +File112=marker-azul-57.png +File113=marker-azul-58.png +File114=marker-azul-59.png +File115=marker-azul-6.png +File116=marker-azul-60.png +File117=marker-azul-61.png +File118=marker-azul-62.png +File119=marker-azul-63.png File12=cliente.bal.bak -File120=marker-azul-65.png -File121=marker-azul-66.png -File122=marker-azul-67.png -File123=marker-azul-68.png -File124=marker-azul-69.png -File125=marker-azul-7.png -File126=marker-azul-70.png -File127=marker-azul-71.png -File128=marker-azul-72.png -File129=marker-azul-73.png +File120=marker-azul-64.png +File121=marker-azul-65.png +File122=marker-azul-66.png +File123=marker-azul-67.png +File124=marker-azul-68.png +File125=marker-azul-69.png +File126=marker-azul-7.png +File127=marker-azul-70.png +File128=marker-azul-71.png +File129=marker-azul-72.png File13=clientes.bal -File130=marker-azul-74.png -File131=marker-azul-75.png -File132=marker-azul-76.png -File133=marker-azul-77.png -File134=marker-azul-78.png -File135=marker-azul-79.png -File136=marker-azul-8.png -File137=marker-azul-80.png -File138=marker-azul-81.png -File139=marker-azul-82.png +File130=marker-azul-73.png +File131=marker-azul-74.png +File132=marker-azul-75.png +File133=marker-azul-76.png +File134=marker-azul-77.png +File135=marker-azul-78.png +File136=marker-azul-79.png +File137=marker-azul-8.png +File138=marker-azul-80.png +File139=marker-azul-81.png File14=detalle_promo.bal -File140=marker-azul-83.png -File141=marker-azul-84.png -File142=marker-azul-85.png -File143=marker-azul-86.png -File144=marker-azul-87.png -File145=marker-azul-88.png -File146=marker-azul-89.png -File147=marker-azul-9.png -File148=marker-azul-90.png -File149=marker-azul-91.png +File140=marker-azul-82.png +File141=marker-azul-83.png +File142=marker-azul-84.png +File143=marker-azul-85.png +File144=marker-azul-86.png +File145=marker-azul-87.png +File146=marker-azul-88.png +File147=marker-azul-89.png +File148=marker-azul-9.png +File149=marker-azul-90.png File15=durakelo.png -File150=marker-azul-92.png -File151=marker-azul-93.png -File152=marker-azul-94.png -File153=marker-azul-95.png -File154=marker-azul-96.png -File155=marker-azul-97.png -File156=marker-azul-98.png -File157=marker-azul-99.png -File158=marker-rojo-0.png -File159=marker-rojo-1.png +File150=marker-azul-91.png +File151=marker-azul-92.png +File152=marker-azul-93.png +File153=marker-azul-94.png +File154=marker-azul-95.png +File155=marker-azul-96.png +File156=marker-azul-97.png +File157=marker-azul-98.png +File158=marker-azul-99.png +File159=marker-rojo-0.png File16=durakelo1.png -File160=marker-rojo-10.png -File161=marker-rojo-100.png -File162=marker-rojo-11.png -File163=marker-rojo-12.png -File164=marker-rojo-13.png -File165=marker-rojo-14.png -File166=marker-rojo-15.png -File167=marker-rojo-16.png -File168=marker-rojo-17.png -File169=marker-rojo-18.png +File160=marker-rojo-1.png +File161=marker-rojo-10.png +File162=marker-rojo-100.png +File163=marker-rojo-11.png +File164=marker-rojo-12.png +File165=marker-rojo-13.png +File166=marker-rojo-14.png +File167=marker-rojo-15.png +File168=marker-rojo-16.png +File169=marker-rojo-17.png File17=engrane.jpg -File170=marker-rojo-19.png -File171=marker-rojo-2.png -File172=marker-rojo-20.png -File173=marker-rojo-21.png -File174=marker-rojo-22.png -File175=marker-rojo-23.png -File176=marker-rojo-24.png -File177=marker-rojo-25.png -File178=marker-rojo-26.png -File179=marker-rojo-27.png +File170=marker-rojo-18.png +File171=marker-rojo-19.png +File172=marker-rojo-2.png +File173=marker-rojo-20.png +File174=marker-rojo-21.png +File175=marker-rojo-22.png +File176=marker-rojo-23.png +File177=marker-rojo-24.png +File178=marker-rojo-25.png +File179=marker-rojo-26.png File18=engrane.png -File180=marker-rojo-28.png -File181=marker-rojo-29.png -File182=marker-rojo-3.png -File183=marker-rojo-30.png -File184=marker-rojo-31.png -File185=marker-rojo-32.png -File186=marker-rojo-33.png -File187=marker-rojo-34.png -File188=marker-rojo-35.png -File189=marker-rojo-36.png -File19=errormanager.bal -File190=marker-rojo-37.png -File191=marker-rojo-38.png -File192=marker-rojo-39.png -File193=marker-rojo-4.png -File194=marker-rojo-40.png -File195=marker-rojo-41.png -File196=marker-rojo-42.png -File197=marker-rojo-43.png -File198=marker-rojo-44.png -File199=marker-rojo-45.png +File180=marker-rojo-27.png +File181=marker-rojo-28.png +File182=marker-rojo-29.png +File183=marker-rojo-3.png +File184=marker-rojo-30.png +File185=marker-rojo-31.png +File186=marker-rojo-32.png +File187=marker-rojo-33.png +File188=marker-rojo-34.png +File189=marker-rojo-35.png +File19=engranes.png +File190=marker-rojo-36.png +File191=marker-rojo-37.png +File192=marker-rojo-38.png +File193=marker-rojo-39.png +File194=marker-rojo-4.png +File195=marker-rojo-40.png +File196=marker-rojo-41.png +File197=marker-rojo-42.png +File198=marker-rojo-43.png +File199=marker-rojo-44.png File2=alert2.png -File20=fondo_kmt.jpg -File200=marker-rojo-46.png -File201=marker-rojo-47.png -File202=marker-rojo-48.png -File203=marker-rojo-49.png -File204=marker-rojo-5.png -File205=marker-rojo-50.png -File206=marker-rojo-51.png -File207=marker-rojo-52.png -File208=marker-rojo-53.png -File209=marker-rojo-54.png -File21=foto.bal -File210=marker-rojo-55.png -File211=marker-rojo-56.png -File212=marker-rojo-57.png -File213=marker-rojo-58.png -File214=marker-rojo-59.png -File215=marker-rojo-6.png -File216=marker-rojo-60.png -File217=marker-rojo-61.png -File218=marker-rojo-62.png -File219=marker-rojo-63.png -File22=foto1.jpg -File220=marker-rojo-64.png -File221=marker-rojo-65.png -File222=marker-rojo-66.png -File223=marker-rojo-67.png -File224=marker-rojo-68.png -File225=marker-rojo-69.png -File226=marker-rojo-7.png -File227=marker-rojo-70.png -File228=marker-rojo-71.png -File229=marker-rojo-72.png -File23=foto2.jpg -File230=marker-rojo-73.png -File231=marker-rojo-74.png -File232=marker-rojo-75.png -File233=marker-rojo-76.png -File234=marker-rojo-77.png -File235=marker-rojo-78.png -File236=marker-rojo-79.png -File237=marker-rojo-8.png -File238=marker-rojo-80.png -File239=marker-rojo-81.png -File24=foto3.jpg -File240=marker-rojo-82.png -File241=marker-rojo-83.png -File242=marker-rojo-84.png -File243=marker-rojo-85.png -File244=marker-rojo-86.png -File245=marker-rojo-87.png -File246=marker-rojo-88.png -File247=marker-rojo-89.png -File248=marker-rojo-9.png -File249=marker-rojo-90.png -File25=foto4.jpg -File250=marker-rojo-91.png -File251=marker-rojo-92.png -File252=marker-rojo-93.png -File253=marker-rojo-94.png -File254=marker-rojo-95.png -File255=marker-rojo-96.png -File256=marker-rojo-97.png -File257=marker-rojo-98.png -File258=marker-rojo-99.png -File259=marker-verde-0.png -File26=guardagestion.bal -File260=marker-verde-1.png -File261=marker-verde-10.png -File262=marker-verde-100.png -File263=marker-verde-11.png -File264=marker-verde-12.png -File265=marker-verde-13.png -File266=marker-verde-14.png -File267=marker-verde-15.png -File268=marker-verde-16.png -File269=marker-verde-17.png -File27=guna_viejo.png -File270=marker-verde-18.png -File271=marker-verde-19.png -File272=marker-verde-2.png -File273=marker-verde-20.png -File274=marker-verde-21.png -File275=marker-verde-22.png -File276=marker-verde-23.png -File277=marker-verde-24.png -File278=marker-verde-25.png -File279=marker-verde-26.png -File28=historico.bal -File280=marker-verde-27.png -File281=marker-verde-28.png -File282=marker-verde-29.png -File283=marker-verde-3.png -File284=marker-verde-30.png -File285=marker-verde-31.png -File286=marker-verde-32.png -File287=marker-verde-33.png -File288=marker-verde-34.png -File289=marker-verde-35.png -File29=info_gral.resp -File290=marker-verde-36.png -File291=marker-verde-37.png -File292=marker-verde-38.png -File293=marker-verde-39.png -File294=marker-verde-4.png -File295=marker-verde-40.png -File296=marker-verde-41.png -File297=marker-verde-42.png -File298=marker-verde-43.png -File299=marker-verde-44.png +File20=errormanager.bal +File200=marker-rojo-45.png +File201=marker-rojo-46.png +File202=marker-rojo-47.png +File203=marker-rojo-48.png +File204=marker-rojo-49.png +File205=marker-rojo-5.png +File206=marker-rojo-50.png +File207=marker-rojo-51.png +File208=marker-rojo-52.png +File209=marker-rojo-53.png +File21=fondo_kmt.jpg +File210=marker-rojo-54.png +File211=marker-rojo-55.png +File212=marker-rojo-56.png +File213=marker-rojo-57.png +File214=marker-rojo-58.png +File215=marker-rojo-59.png +File216=marker-rojo-6.png +File217=marker-rojo-60.png +File218=marker-rojo-61.png +File219=marker-rojo-62.png +File22=foto.bal +File220=marker-rojo-63.png +File221=marker-rojo-64.png +File222=marker-rojo-65.png +File223=marker-rojo-66.png +File224=marker-rojo-67.png +File225=marker-rojo-68.png +File226=marker-rojo-69.png +File227=marker-rojo-7.png +File228=marker-rojo-70.png +File229=marker-rojo-71.png +File23=foto1.jpg +File230=marker-rojo-72.png +File231=marker-rojo-73.png +File232=marker-rojo-74.png +File233=marker-rojo-75.png +File234=marker-rojo-76.png +File235=marker-rojo-77.png +File236=marker-rojo-78.png +File237=marker-rojo-79.png +File238=marker-rojo-8.png +File239=marker-rojo-80.png +File24=foto2.jpg +File240=marker-rojo-81.png +File241=marker-rojo-82.png +File242=marker-rojo-83.png +File243=marker-rojo-84.png +File244=marker-rojo-85.png +File245=marker-rojo-86.png +File246=marker-rojo-87.png +File247=marker-rojo-88.png +File248=marker-rojo-89.png +File249=marker-rojo-9.png +File25=foto3.jpg +File250=marker-rojo-90.png +File251=marker-rojo-91.png +File252=marker-rojo-92.png +File253=marker-rojo-93.png +File254=marker-rojo-94.png +File255=marker-rojo-95.png +File256=marker-rojo-96.png +File257=marker-rojo-97.png +File258=marker-rojo-98.png +File259=marker-rojo-99.png +File26=foto4.jpg +File260=marker-verde-0.png +File261=marker-verde-1.png +File262=marker-verde-10.png +File263=marker-verde-100.png +File264=marker-verde-11.png +File265=marker-verde-12.png +File266=marker-verde-13.png +File267=marker-verde-14.png +File268=marker-verde-15.png +File269=marker-verde-16.png +File27=guardagestion.bal +File270=marker-verde-17.png +File271=marker-verde-18.png +File272=marker-verde-19.png +File273=marker-verde-2.png +File274=marker-verde-20.png +File275=marker-verde-21.png +File276=marker-verde-22.png +File277=marker-verde-23.png +File278=marker-verde-24.png +File279=marker-verde-25.png +File28=guna_viejo.png +File280=marker-verde-26.png +File281=marker-verde-27.png +File282=marker-verde-28.png +File283=marker-verde-29.png +File284=marker-verde-3.png +File285=marker-verde-30.png +File286=marker-verde-31.png +File287=marker-verde-32.png +File288=marker-verde-33.png +File289=marker-verde-34.png +File29=historico.bal +File290=marker-verde-35.png +File291=marker-verde-36.png +File292=marker-verde-37.png +File293=marker-verde-38.png +File294=marker-verde-39.png +File295=marker-verde-4.png +File296=marker-verde-40.png +File297=marker-verde-41.png +File298=marker-verde-42.png +File299=marker-verde-43.png File3=alerta.jpg -File30=infonavit1.jpg -File300=marker-verde-45.png -File301=marker-verde-46.png -File302=marker-verde-47.png -File303=marker-verde-48.png -File304=marker-verde-49.png -File305=marker-verde-5.png -File306=marker-verde-50.png -File307=marker-verde-51.png -File308=marker-verde-52.png -File309=marker-verde-53.png -File31=INVENTARIO (1).jpg -File310=marker-verde-54.png -File311=marker-verde-55.png -File312=marker-verde-56.png -File313=marker-verde-57.png -File314=marker-verde-58.png -File315=marker-verde-59.png -File316=marker-verde-6.png -File317=marker-verde-60.png -File318=marker-verde-61.png -File319=marker-verde-62.png -File32=INVENTARIO.jpg -File320=marker-verde-63.png -File321=marker-verde-64.png -File322=marker-verde-65.png -File323=marker-verde-66.png -File324=marker-verde-67.png -File325=marker-verde-68.png -File326=marker-verde-69.png -File327=marker-verde-7.png -File328=marker-verde-70.png -File329=marker-verde-71.png -File33=inventario.PNG -File330=marker-verde-72.png -File331=marker-verde-73.png -File332=marker-verde-74.png -File333=marker-verde-75.png -File334=marker-verde-76.png -File335=marker-verde-77.png -File336=marker-verde-78.png -File337=marker-verde-79.png -File338=marker-verde-8.png -File339=marker-verde-80.png -File34=itembuttonblue.png -File340=marker-verde-81.png -File341=marker-verde-82.png -File342=marker-verde-83.png -File343=marker-verde-84.png -File344=marker-verde-85.png -File345=marker-verde-86.png -File346=marker-verde-87.png -File347=marker-verde-88.png -File348=marker-verde-89.png -File349=marker-verde-9.png -File35=itembuttonred.png -File350=marker-verde-90.png -File351=marker-verde-91.png -File352=marker-verde-92.png -File353=marker-verde-93.png -File354=marker-verde-94.png -File355=marker-verde-95.png -File356=marker-verde-96.png -File357=marker-verde-97.png -File358=marker-verde-98.png -File359=marker-verde-99.png -File36=kellanova.png -File360=nota.bal -File361=noventa.bal -File362=nuevocliente.bal -File363=palomita_verde.png -File364=palomita_verde_original.png -File365=pedido.bal -File366=pedidoItem.bal -File367=planfia_logo.png -File368=planfia_logo_old.png -File369=planfia_logo_old2.png -File37=kellanova_borde.png -File370=principal.bal -File371=proditem.bal -File372=productos.bal -File373=productos2.bal -File374=profina.jpg -File375=profina.png -File376=promociones.bal -File377=qr.bal -File378=rechazo.jpg -File379=rojo.png -File38=kelloggs.png -File380=salma.jpg -File381=salma.png -File382=senial.jpg -File383=sync.png -File384=tache_rojo.png -File385=tache_rojo_original.png -File386=telefonos.bal -File387=ticketsDia.bal -File388=Tiendita.jpg -File389=transporte.png -File39=kelloggs_chico.png -File390=verde.png -File391=vista1.png -File392=vista2.png -File393=vista3.png -File394=vista4.png -File395=WhatsApp Image 2022-11-17 at 11.50.59 AM.jpeg -File396=WhatsApp Image 2022-11-17 at 11.50.59 AM.jpg -File397=whatsapp.png -File398=whatsapp_original.png -File399=WHATSTEL.jpeg +File30=info_gral.resp +File300=marker-verde-44.png +File301=marker-verde-45.png +File302=marker-verde-46.png +File303=marker-verde-47.png +File304=marker-verde-48.png +File305=marker-verde-49.png +File306=marker-verde-5.png +File307=marker-verde-50.png +File308=marker-verde-51.png +File309=marker-verde-52.png +File31=infonavit1.jpg +File310=marker-verde-53.png +File311=marker-verde-54.png +File312=marker-verde-55.png +File313=marker-verde-56.png +File314=marker-verde-57.png +File315=marker-verde-58.png +File316=marker-verde-59.png +File317=marker-verde-6.png +File318=marker-verde-60.png +File319=marker-verde-61.png +File32=INVENTARIO (1).jpg +File320=marker-verde-62.png +File321=marker-verde-63.png +File322=marker-verde-64.png +File323=marker-verde-65.png +File324=marker-verde-66.png +File325=marker-verde-67.png +File326=marker-verde-68.png +File327=marker-verde-69.png +File328=marker-verde-7.png +File329=marker-verde-70.png +File33=INVENTARIO.jpg +File330=marker-verde-71.png +File331=marker-verde-72.png +File332=marker-verde-73.png +File333=marker-verde-74.png +File334=marker-verde-75.png +File335=marker-verde-76.png +File336=marker-verde-77.png +File337=marker-verde-78.png +File338=marker-verde-79.png +File339=marker-verde-8.png +File34=inventario.PNG +File340=marker-verde-80.png +File341=marker-verde-81.png +File342=marker-verde-82.png +File343=marker-verde-83.png +File344=marker-verde-84.png +File345=marker-verde-85.png +File346=marker-verde-86.png +File347=marker-verde-87.png +File348=marker-verde-88.png +File349=marker-verde-89.png +File35=itembuttonblue.png +File350=marker-verde-9.png +File351=marker-verde-90.png +File352=marker-verde-91.png +File353=marker-verde-92.png +File354=marker-verde-93.png +File355=marker-verde-94.png +File356=marker-verde-95.png +File357=marker-verde-96.png +File358=marker-verde-97.png +File359=marker-verde-98.png +File36=itembuttonred.png +File360=marker-verde-99.png +File361=nota.bal +File362=noventa.bal +File363=nuevocliente.bal +File364=palomita_verde.png +File365=palomita_verde_original.png +File366=pedido.bal +File367=pedidoItem.bal +File368=planfia_logo.png +File369=planfia_logo_old.png +File37=kellanova.png +File370=planfia_logo_old2.png +File371=principal.bal +File372=proditem.bal +File373=productos.bal +File374=productos2.bal +File375=profina.jpg +File376=profina.png +File377=promociones.bal +File378=qr.bal +File379=rechazo.jpg +File38=kellanova_borde.png +File380=rojo.png +File381=salma.jpg +File382=salma.png +File383=senial.jpg +File384=sync.png +File385=tache_rojo.png +File386=tache_rojo_original.png +File387=telefonos.bal +File388=ticketsDia.bal +File389=Tiendita.jpg +File39=kelloggs.png +File390=transporte.png +File391=verde.png +File392=vista1.png +File393=vista2.png +File394=vista3.png +File395=vista4.png +File396=WhatsApp Image 2022-11-17 at 11.50.59 AM.jpeg +File397=WhatsApp Image 2022-11-17 at 11.50.59 AM.jpg +File398=whatsapp.png +File399=whatsapp_original.png File4=alerta_amarilla.png -File40=kelloggs_original.png -File400=WHATSTEL.png -File41=kelloggs2.jpg -File42=kelloggs2.png -File43=keymon_logo.png -File44=kmt.db -File45=knv_logo_white.png -File46=login.bal -File47=logo sanfer.jpg -File48=logo_192x192.png -File49=logo_exitus1.jpg +File40=kelloggs_chico.png +File400=WHATSTEL.jpeg +File401=WHATSTEL.png +File41=kelloggs_original.png +File42=kelloggs2.jpg +File43=kelloggs2.png +File44=keymon_logo.png +File45=kmt.db +File46=knv_logo_white.png +File47=login.bal +File48=logo sanfer.jpg +File49=logo_192x192.png File5=amarillo.png -File50=logo2.png -File51=logo2_192x192.png -File52=MainPage.bal -File53=Malo.jpg -File54=mapa.bal -File55=mapa_rutas.bal -File56=mapas.bal -File57=marker-azul-0.png -File58=marker-azul-1.png -File59=marker-azul-10.png +File50=logo_exitus1.jpg +File51=logo2.png +File52=logo2_192x192.png +File53=MainPage.bal +File54=Malo.jpg +File55=mapa.bal +File56=mapa_rutas.bal +File57=mapas.bal +File58=marker-azul-0.png +File59=marker-azul-1.png File6=anterior.jpg -File60=marker-azul-100.png -File61=marker-azul-11.png -File62=marker-azul-12.png -File63=marker-azul-13.png -File64=marker-azul-14.png -File65=marker-azul-15.png -File66=marker-azul-16.png -File67=marker-azul-17.png -File68=marker-azul-18.png -File69=marker-azul-19.png +File60=marker-azul-10.png +File61=marker-azul-100.png +File62=marker-azul-11.png +File63=marker-azul-12.png +File64=marker-azul-13.png +File65=marker-azul-14.png +File66=marker-azul-15.png +File67=marker-azul-16.png +File68=marker-azul-17.png +File69=marker-azul-18.png File7=BLACNCO.jpg -File70=marker-azul-2.png -File71=marker-azul-20.png -File72=marker-azul-21.png -File73=marker-azul-22.png -File74=marker-azul-23.png -File75=marker-azul-24.png -File76=marker-azul-25.png -File77=marker-azul-26.png -File78=marker-azul-27.png -File79=marker-azul-28.png +File70=marker-azul-19.png +File71=marker-azul-2.png +File72=marker-azul-20.png +File73=marker-azul-21.png +File74=marker-azul-22.png +File75=marker-azul-23.png +File76=marker-azul-24.png +File77=marker-azul-25.png +File78=marker-azul-26.png +File79=marker-azul-27.png File8=carrito.png -File80=marker-azul-29.png -File81=marker-azul-3.png -File82=marker-azul-30.png -File83=marker-azul-31.png -File84=marker-azul-32.png -File85=marker-azul-33.png -File86=marker-azul-34.png -File87=marker-azul-35.png -File88=marker-azul-36.png -File89=marker-azul-37.png +File80=marker-azul-28.png +File81=marker-azul-29.png +File82=marker-azul-3.png +File83=marker-azul-30.png +File84=marker-azul-31.png +File85=marker-azul-32.png +File86=marker-azul-33.png +File87=marker-azul-34.png +File88=marker-azul-35.png +File89=marker-azul-36.png File9=checklist.bal -File90=marker-azul-38.png -File91=marker-azul-39.png -File92=marker-azul-4.png -File93=marker-azul-40.png -File94=marker-azul-41.png -File95=marker-azul-42.png -File96=marker-azul-43.png -File97=marker-azul-44.png -File98=marker-azul-45.png -File99=marker-azul-46.png +File90=marker-azul-37.png +File91=marker-azul-38.png +File92=marker-azul-39.png +File93=marker-azul-4.png +File94=marker-azul-40.png +File95=marker-azul-41.png +File96=marker-azul-42.png +File97=marker-azul-43.png +File98=marker-azul-44.png +File99=marker-azul-45.png FileGroup1=Default Group FileGroup10=Default Group FileGroup100=Default Group @@ -735,6 +736,7 @@ FileGroup399=Default Group FileGroup4=Default Group FileGroup40=Default Group FileGroup400=Default Group +FileGroup401=Default Group FileGroup41=Default Group FileGroup42=Default Group FileGroup43=Default Group @@ -863,7 +865,7 @@ Module6=C_Mapas Module7=C_Nota Module8=C_NoVenta Module9=C_NuevoCliente -NumberOfFiles=400 +NumberOfFiles=401 NumberOfLibraries=30 NumberOfModules=32 Version=12.5 diff --git a/B4A/KelloggsV4.b4a.meta b/B4A/KelloggsV4.b4a.meta index 7e1b9cf..b461a86 100644 --- a/B4A/KelloggsV4.b4a.meta +++ b/B4A/KelloggsV4.b4a.meta @@ -97,6 +97,6 @@ ModuleClosedNodes6= ModuleClosedNodes7= ModuleClosedNodes8= ModuleClosedNodes9= -NavigationStack=C_Cliente,b_geopass_Click,3728,0,C_Cliente,Class_Globals,5,6,kms_helperSubs,traeUsarGeocerca,589,0,C_Cliente,B4XPage_Appear,376,6,kms_helperSubs,Class_Globals,24,0,B4XMainPage,b_importarBD_Click,738,0,kms_helperSubs,string2date,531,0,kms_helperSubs,SetButtonTintList,586,0,C_Cliente,Initialize,284,2,C_Cliente,GPS_LocationChanged,715,6,B4XMainPage,B4XPage_Appear,346,2 +NavigationStack=C_Principal,cargar_Click,506,6,B4XMainPage,Class_Globals,100,0,B4XMainPage,B4XPage_CloseRequest,531,0,B4XMainPage,b_extras_Click,788,0,B4XMainPage,b_aceptarExtras_Click,796,0,B4XMainPage,p_extras_Click,791,0,C_Principal,JobDone,967,0,C_Principal,B4XPage_Created,200,0,Visual Designer,login.bal,-100,6,B4XMainPage,et_geocerca_TextChanged,768,0 SelectedBuild=0 VisibleModules=1,30,11,24,3,31,28 diff --git a/B4A/Starter.bas b/B4A/Starter.bas index 4fee290..74f1dba 100644 --- a/B4A/Starter.bas +++ b/B4A/Starter.bas @@ -67,7 +67,7 @@ Sub Service_Create ubicacionActual.Initialize pe.Initialize("pe") 'Para obtener la bateria skmt = s.dbInit 'Inicializamos BD. - DBReqServer = "http://keymon.lat:1782" + DBReqServer = "http://keymon.lat:1781" Private c As Cursor = skmt.ExecQuery($"select CAT_VA_VALOR from CAT_VARIABLES WHERE CAT_VA_DESCRIPCION = 'SERVER'"$) If c.RowCount > 0 Then c.Position = 0 diff --git a/B4A/kms_helperSubs.bas b/B4A/kms_helperSubs.bas index 218de28..1685310 100644 --- a/B4A/kms_helperSubs.bas +++ b/B4A/kms_helperSubs.bas @@ -593,15 +593,26 @@ End Sub 'Regresa si la geocerca se DEBE o NO de tomar en cuenta para la venta. Sub traeUsarGeocerca As Boolean 'ignore - Private GC As Boolean = False + Private GC As Boolean = True Private x As Cursor = Starter.skmt.ExecQuery($"select CAT_VA_VALOR from CAT_VARIABLES where CAT_VA_DESCRIPCION = 'GEOCERCA'"$) If x.RowCount > 0 Then x.Position = 0 - If x.GetString("CAT_VA_VALOR") = "true" Then GC = True + If x.GetString("CAT_VA_VALOR") = "false" Then GC = False End If Return GC End Sub +'Regresa si la carta porte se DEBE o NO de tomar en cuenta para cargar día. +Sub traeUsarCartaPorte As Boolean 'ignore + Private CP As Boolean = True + Private x As Cursor = Starter.skmt.ExecQuery($"select CAT_VA_VALOR from CAT_VARIABLES where CAT_VA_DESCRIPCION = 'CARTAPORTE'"$) + If x.RowCount > 0 Then + x.Position = 0 + If x.GetString("CAT_VA_VALOR") = "false" Then CP = False + End If + Return CP +End Sub + '################ Manage External Storage (MES) ######################### ' ''Inicializa "Manage External Storage" (MES), que nos da acceso a la tarjeta de memoria en Android 11+