cheveguerra/Android_durakelo
1
0
Fork 0
mirror of https://github.com/KeymonSoft/Android_durakelo.git synced 2026-04-17 19:37:03 +00:00
Code Issues Packages Projects Releases Wiki Activity
Files
main
Android_durakelo/durakelo.b4a

1670 lines
52 KiB
Plaintext
Raw Permalink Blame History

Build1=Default,durakelo.keymon.com.mx
File1=alcancia.png
File10=detalle_promo.bal
File100=marker-azul-21.png
File101=marker-azul-22.png
File102=marker-azul-23.png
File103=marker-azul-24.png
File104=marker-azul-25.png
File105=marker-azul-26.png
File106=marker-azul-27.png
File107=marker-azul-28.png
File108=marker-azul-29.png
File109=marker-azul-3.png
File11=durakelo.png
File110=marker-azul-30.png
File111=marker-azul-31.png
File112=marker-azul-32.png
File113=marker-azul-33.png
File114=marker-azul-34.png
File115=marker-azul-35.png
File116=marker-azul-36.png
File117=marker-azul-37.png
File118=marker-azul-38.png
File119=marker-azul-39.png
File12=durakelo_192x192.png
File120=marker-azul-4.png
File121=marker-azul-40.png
File122=marker-azul-41.png
File123=marker-azul-42.png
File124=marker-azul-43.png
File125=marker-azul-44.png
File126=marker-azul-45.png
File127=marker-azul-46.png
File128=marker-azul-47.png
File129=marker-azul-48.png
File13=durakelo1.png
File130=marker-azul-49.png
File131=marker-azul-5.png
File132=marker-azul-50.png
File133=marker-azul-51.png
File134=marker-azul-52.png
File135=marker-azul-53.png
File136=marker-azul-54.png
File137=marker-azul-55.png
File138=marker-azul-56.png
File139=marker-azul-57.png
File14=engrane.jpg
File140=marker-azul-58.png
File141=marker-azul-59.png
File142=marker-azul-6.png
File143=marker-azul-60.png
File144=marker-azul-61.png
File145=marker-azul-62.png
File146=marker-azul-63.png
File147=marker-azul-64.png
File148=marker-azul-65.png
File149=marker-azul-66.png
File15=engrane3.png
File150=marker-azul-67.png
File151=marker-azul-68.png
File152=marker-azul-69.png
File153=marker-azul-7.png
File154=marker-azul-70.png
File155=marker-azul-71.png
File156=marker-azul-72.png
File157=marker-azul-73.png
File158=marker-azul-74.png
File159=marker-azul-75.png
File16=espera.gif
File160=marker-azul-76.png
File161=marker-azul-77.png
File162=marker-azul-78.png
File163=marker-azul-79.png
File164=marker-azul-8.png
File165=marker-azul-80.png
File166=marker-azul-81.png
File167=marker-azul-82.png
File168=marker-azul-83.png
File169=marker-azul-84.png
File17=fila.bal
File170=marker-azul-85.png
File171=marker-azul-86.png
File172=marker-azul-87.png
File173=marker-azul-88.png
File174=marker-azul-89.png
File175=marker-azul-9.png
File176=marker-azul-90.png
File177=marker-azul-91.png
File178=marker-azul-92.png
File179=marker-azul-93.png
File18=fondo_kmt.jpg
File180=marker-azul-94.png
File181=marker-azul-95.png
File182=marker-azul-96.png
File183=marker-azul-97.png
File184=marker-azul-98.png
File185=marker-azul-99.png
File186=marker-rojo-0.png
File187=marker-rojo-1.png
File188=marker-rojo-10.png
File189=marker-rojo-100.png
File19=foto.bal
File190=marker-rojo-101.png
File191=marker-rojo-102.png
File192=marker-rojo-103.png
File193=marker-rojo-104.png
File194=marker-rojo-105.png
File195=marker-rojo-106.png
File196=marker-rojo-107.png
File197=marker-rojo-108.png
File198=marker-rojo-109.png
File199=marker-rojo-11.png
File2=alert2.png
File20=guardagestion.bal
File200=marker-rojo-110.png
File201=marker-rojo-111.png
File202=marker-rojo-112.png
File203=marker-rojo-113.png
File204=marker-rojo-114.png
File205=marker-rojo-115.png
File206=marker-rojo-116.png
File207=marker-rojo-117.png
File208=marker-rojo-118.png
File209=marker-rojo-119.png
File21=guna_viejo.png
File210=marker-rojo-12.png
File211=marker-rojo-120.png
File212=marker-rojo-121.png
File213=marker-rojo-122.png
File214=marker-rojo-123.png
File215=marker-rojo-124.png
File216=marker-rojo-125.png
File217=marker-rojo-126.png
File218=marker-rojo-127.png
File219=marker-rojo-128.png
File22=info_gral.bal
File220=marker-rojo-129.png
File221=marker-rojo-13.png
File222=marker-rojo-130.png
File223=marker-rojo-131.png
File224=marker-rojo-132.png
File225=marker-rojo-133.png
File226=marker-rojo-134.png
File227=marker-rojo-135.png
File228=marker-rojo-136.png
File229=marker-rojo-137.png
File23=infonavit1.jpg
File230=marker-rojo-138.png
File231=marker-rojo-139.png
File232=marker-rojo-14.png
File233=marker-rojo-140.png
File234=marker-rojo-141.png
File235=marker-rojo-142.png
File236=marker-rojo-143.png
File237=marker-rojo-144.png
File238=marker-rojo-145.png
File239=marker-rojo-146.png
File24=itembuttonblue.png
File240=marker-rojo-147.png
File241=marker-rojo-148.png
File242=marker-rojo-149.png
File243=marker-rojo-15.png
File244=marker-rojo-150.png
File245=marker-rojo-16.png
File246=marker-rojo-17.png
File247=marker-rojo-18.png
File248=marker-rojo-19.png
File249=marker-rojo-20.png
File25=k.png
File250=marker-rojo-21.png
File251=marker-rojo-22.png
File252=marker-rojo-23.png
File253=marker-rojo-24.png
File254=marker-rojo-25.png
File255=marker-rojo-26.png
File256=marker-rojo-27.png
File257=marker-rojo-28.png
File258=marker-rojo-29.png
File259=marker-rojo-3.png
File26=kelloggs.png
File260=marker-rojo-30.png
File261=marker-rojo-31.png
File262=marker-rojo-32.png
File263=marker-rojo-33.png
File264=marker-rojo-34.png
File265=marker-rojo-35.png
File266=marker-rojo-36.png
File267=marker-rojo-37.png
File268=marker-rojo-38.png
File269=marker-rojo-39.png
File27=keymon_logo.png
File270=marker-rojo-4.png
File271=marker-rojo-40.png
File272=marker-rojo-41.png
File273=marker-rojo-42.png
File274=marker-rojo-43.png
File275=marker-rojo-44.png
File276=marker-rojo-45.png
File277=marker-rojo-46.png
File278=marker-rojo-47.png
File279=marker-rojo-48.png
File28=kmt.db
File280=marker-rojo-49.png
File281=marker-rojo-5.png
File282=marker-rojo-50.png
File283=marker-rojo-51.png
File284=marker-rojo-52.png
File285=marker-rojo-53.png
File286=marker-rojo-54.png
File287=marker-rojo-55.png
File288=marker-rojo-56.png
File289=marker-rojo-57.png
File29=login.bal
File290=marker-rojo-58.png
File291=marker-rojo-59.png
File292=marker-rojo-6.png
File293=marker-rojo-60.png
File294=marker-rojo-61.png
File295=marker-rojo-62.png
File296=marker-rojo-63.png
File297=marker-rojo-64.png
File298=marker-rojo-65.png
File299=marker-rojo-66.png
File3=alerta.jpg
File30=logo sanfer.jpg
File300=marker-rojo-67.png
File301=marker-rojo-68.png
File302=marker-rojo-69.png
File303=marker-rojo-7.png
File304=marker-rojo-70.png
File305=marker-rojo-71.png
File306=marker-rojo-72.png
File307=marker-rojo-73.png
File308=marker-rojo-74.png
File309=marker-rojo-75.png
File31=logo_exitus1.jpg
File310=marker-rojo-76.png
File311=marker-rojo-77.png
File312=marker-rojo-78.png
File313=marker-rojo-79.png
File314=marker-rojo-8.png
File315=marker-rojo-80.png
File316=marker-rojo-81.png
File317=marker-rojo-82.png
File318=marker-rojo-83.png
File319=marker-rojo-84.png
File32=Malo.jpg
File320=marker-rojo-85.png
File321=marker-rojo-86.png
File322=marker-rojo-87.png
File323=marker-rojo-88.png
File324=marker-rojo-89.png
File325=marker-rojo-9.png
File326=marker-rojo-90.png
File327=marker-rojo-91.png
File328=marker-rojo-92.png
File329=marker-rojo-93.png
File33=mapa.bal
File330=marker-rojo-94.png
File331=marker-rojo-95.png
File332=marker-rojo-96.png
File333=marker-rojo-97.png
File334=marker-rojo-98.png
File335=marker-rojo-99.png
File336=marker-verde-0.png
File337=marker-verde-1.png
File338=marker-verde-10.png
File339=marker-verde-100.png
File34=mapa_rutas.bal
File340=marker-verde-101.png
File341=marker-verde-102.png
File342=marker-verde-103.png
File343=marker-verde-104.png
File344=marker-verde-105.png
File345=marker-verde-106.png
File346=marker-verde-107.png
File347=marker-verde-108.png
File348=marker-verde-109.png
File349=marker-verde-11.png
File35=marker-azul-0.png
File350=marker-verde-110.png
File351=marker-verde-111.png
File352=marker-verde-112.png
File353=marker-verde-113.png
File354=marker-verde-114.png
File355=marker-verde-115.png
File356=marker-verde-116.png
File357=marker-verde-117.png
File358=marker-verde-118.png
File359=marker-verde-119.png
File36=marker-azul-1.png
File360=marker-verde-12.png
File361=marker-verde-120.png
File362=marker-verde-121.png
File363=marker-verde-122.png
File364=marker-verde-123.png
File365=marker-verde-124.png
File366=marker-verde-125.png
File367=marker-verde-126.png
File368=marker-verde-127.png
File369=marker-verde-128.png
File37=marker-azul-10.png
File370=marker-verde-129.png
File371=marker-verde-13.png
File372=marker-verde-130.png
File373=marker-verde-131.png
File374=marker-verde-132.png
File375=marker-verde-133.png
File376=marker-verde-134.png
File377=marker-verde-135.png
File378=marker-verde-136.png
File379=marker-verde-137.png
File38=marker-azul-100.png
File380=marker-verde-138.png
File381=marker-verde-139.png
File382=marker-verde-14.png
File383=marker-verde-140.png
File384=marker-verde-141.png
File385=marker-verde-142.png
File386=marker-verde-143.png
File387=marker-verde-144.png
File388=marker-verde-145.png
File389=marker-verde-146.png
File39=marker-azul-101.png
File390=marker-verde-147.png
File391=marker-verde-148.png
File392=marker-verde-149.png
File393=marker-verde-15.png
File394=marker-verde-150.png
File395=marker-verde-16.png
File396=marker-verde-17.png
File397=marker-verde-18.png
File398=marker-verde-19.png
File399=marker-verde-2.png
File4=alerta_amarilla.png
File40=marker-azul-102.png
File400=marker-verde-20.png
File401=marker-verde-21.png
File402=marker-verde-22.png
File403=marker-verde-23.png
File404=marker-verde-24.png
File405=marker-verde-25.png
File406=marker-verde-26.png
File407=marker-verde-27.png
File408=marker-verde-28.png
File409=marker-verde-29.png
File41=marker-azul-103.png
File410=marker-verde-3.png
File411=marker-verde-30.png
File412=marker-verde-31.png
File413=marker-verde-32.png
File414=marker-verde-33.png
File415=marker-verde-34.png
File416=marker-verde-35.png
File417=marker-verde-36.png
File418=marker-verde-37.png
File419=marker-verde-38.png
File42=marker-azul-104.png
File420=marker-verde-39.png
File421=marker-verde-4.png
File422=marker-verde-40.png
File423=marker-verde-41.png
File424=marker-verde-42.png
File425=marker-verde-43.png
File426=marker-verde-44.png
File427=marker-verde-45.png
File428=marker-verde-46.png
File429=marker-verde-47.png
File43=marker-azul-105.png
File430=marker-verde-48.png
File431=marker-verde-49.png
File432=marker-verde-5.png
File433=marker-verde-50.png
File434=marker-verde-51.png
File435=marker-verde-52.png
File436=marker-verde-53.png
File437=marker-verde-54.png
File438=marker-verde-55.png
File439=marker-verde-56.png
File44=marker-azul-106.png
File440=marker-verde-57.png
File441=marker-verde-58.png
File442=marker-verde-59.png
File443=marker-verde-6.png
File444=marker-verde-60.png
File445=marker-verde-61.png
File446=marker-verde-62.png
File447=marker-verde-63.png
File448=marker-verde-64.png
File449=marker-verde-65.png
File45=marker-azul-107.png
File450=marker-verde-66.png
File451=marker-verde-67.png
File452=marker-verde-68.png
File453=marker-verde-69.png
File454=marker-verde-7.png
File455=marker-verde-70.png
File456=marker-verde-71.png
File457=marker-verde-72.png
File458=marker-verde-73.png
File459=marker-verde-74.png
File46=marker-azul-108.png
File460=marker-verde-75.png
File461=marker-verde-76.png
File462=marker-verde-77.png
File463=marker-verde-78.png
File464=marker-verde-79.png
File465=marker-verde-8.png
File466=marker-verde-80.png
File467=marker-verde-81.png
File468=marker-verde-82.png
File469=marker-verde-83.png
File47=marker-azul-109.png
File470=marker-verde-84.png
File471=marker-verde-85.png
File472=marker-verde-86.png
File473=marker-verde-87.png
File474=marker-verde-88.png
File475=marker-verde-89.png
File476=marker-verde-9.png
File477=marker-verde-90.png
File478=marker-verde-91.png
File479=marker-verde-92.png
File48=marker-azul-11.png
File480=marker-verde-93.png
File481=marker-verde-94.png
File482=marker-verde-95.png
File483=marker-verde-96.png
File484=marker-verde-97.png
File485=marker-verde-98.png
File486=marker-verde-99.png
File487=nopago.bal
File488=nuevocliente.bal
File489=palomita_verde.png
File49=marker-azul-110.png
File490=pedido.bal
File491=planfia_logo.png
File492=planfia_logo_old.png
File493=planfia_logo_old2.png
File494=productos.bal
File495=qr.bal
File496=rechazo.jpg
File497=rojo.png
File498=salma.jpg
File499=salma.png
File5=amarillo.png
File50=marker-azul-111.png
File500=seleccion.bal
File501=senial.jpg
File502=sync.png
File503=tache_rojo.png
File504=tarjeta.bal
File505=telefonos.bal
File506=Tiendita.jpg
File507=unilever.jpg
File508=verde.png
File51=marker-azul-112.png
File52=marker-azul-113.png
File53=marker-azul-114.png
File54=marker-azul-115.png
File55=marker-azul-116.png
File56=marker-azul-117.png
File57=marker-azul-118.png
File58=marker-azul-119.png
File59=marker-azul-12.png
File6=anterior.jpg
File60=marker-azul-120.png
File61=marker-azul-121.png
File62=marker-azul-122.png
File63=marker-azul-123.png
File64=marker-azul-124.png
File65=marker-azul-125.png
File66=marker-azul-126.png
File67=marker-azul-127.png
File68=marker-azul-128.png
File69=marker-azul-129.png
File7=buscar.bal
File70=marker-azul-13.png
File71=marker-azul-130.png
File72=marker-azul-131.png
File73=marker-azul-132.png
File74=marker-azul-133.png
File75=marker-azul-134.png
File76=marker-azul-135.png
File77=marker-azul-136.png
File78=marker-azul-137.png
File79=marker-azul-138.png
File8=carrito.png
File80=marker-azul-139.png
File81=marker-azul-14.png
File82=marker-azul-140.png
File83=marker-azul-141.png
File84=marker-azul-142.png
File85=marker-azul-143.png
File86=marker-azul-144.png
File87=marker-azul-145.png
File88=marker-azul-146.png
File89=marker-azul-147.png
File9=celltitle.bal
File90=marker-azul-148.png
File91=marker-azul-149.png
File92=marker-azul-15.png
File93=marker-azul-150.png
File94=marker-azul-16.png
File95=marker-azul-17.png
File96=marker-azul-18.png
File97=marker-azul-19.png
File98=marker-azul-2.png
File99=marker-azul-20.png
FileGroup1=Default Group
FileGroup10=Default Group
FileGroup100=Default Group
FileGroup101=Default Group
FileGroup102=Default Group
FileGroup103=Default Group
FileGroup104=Default Group
FileGroup105=Default Group
FileGroup106=Default Group
FileGroup107=Default Group
FileGroup108=Default Group
FileGroup109=Default Group
FileGroup11=Default Group
FileGroup110=Default Group
FileGroup111=Default Group
FileGroup112=Default Group
FileGroup113=Default Group
FileGroup114=Default Group
FileGroup115=Default Group
FileGroup116=Default Group
FileGroup117=Default Group
FileGroup118=Default Group
FileGroup119=Default Group
FileGroup12=Default Group
FileGroup120=Default Group
FileGroup121=Default Group
FileGroup122=Default Group
FileGroup123=Default Group
FileGroup124=Default Group
FileGroup125=Default Group
FileGroup126=Default Group
FileGroup127=Default Group
FileGroup128=Default Group
FileGroup129=Default Group
FileGroup13=Default Group
FileGroup130=Default Group
FileGroup131=Default Group
FileGroup132=Default Group
FileGroup133=Default Group
FileGroup134=Default Group
FileGroup135=Default Group
FileGroup136=Default Group
FileGroup137=Default Group
FileGroup138=Default Group
FileGroup139=Default Group
FileGroup14=Default Group
FileGroup140=Default Group
FileGroup141=Default Group
FileGroup142=Default Group
FileGroup143=Default Group
FileGroup144=Default Group
FileGroup145=Default Group
FileGroup146=Default Group
FileGroup147=Default Group
FileGroup148=Default Group
FileGroup149=Default Group
FileGroup15=Default Group
FileGroup150=Default Group
FileGroup151=Default Group
FileGroup152=Default Group
FileGroup153=Default Group
FileGroup154=Default Group
FileGroup155=Default Group
FileGroup156=Default Group
FileGroup157=Default Group
FileGroup158=Default Group
FileGroup159=Default Group
FileGroup16=Default Group
FileGroup160=Default Group
FileGroup161=Default Group
FileGroup162=Default Group
FileGroup163=Default Group
FileGroup164=Default Group
FileGroup165=Default Group
FileGroup166=Default Group
FileGroup167=Default Group
FileGroup168=Default Group
FileGroup169=Default Group
FileGroup17=Default Group
FileGroup170=Default Group
FileGroup171=Default Group
FileGroup172=Default Group
FileGroup173=Default Group
FileGroup174=Default Group
FileGroup175=Default Group
FileGroup176=Default Group
FileGroup177=Default Group
FileGroup178=Default Group
FileGroup179=Default Group
FileGroup18=Default Group
FileGroup180=Default Group
FileGroup181=Default Group
FileGroup182=Default Group
FileGroup183=Default Group
FileGroup184=Default Group
FileGroup185=Default Group
FileGroup186=Default Group
FileGroup187=Default Group
FileGroup188=Default Group
FileGroup189=Default Group
FileGroup19=Default Group
FileGroup190=Default Group
FileGroup191=Default Group
FileGroup192=Default Group
FileGroup193=Default Group
FileGroup194=Default Group
FileGroup195=Default Group
FileGroup196=Default Group
FileGroup197=Default Group
FileGroup198=Default Group
FileGroup199=Default Group
FileGroup2=Default Group
FileGroup20=Default Group
FileGroup200=Default Group
FileGroup201=Default Group
FileGroup202=Default Group
FileGroup203=Default Group
FileGroup204=Default Group
FileGroup205=Default Group
FileGroup206=Default Group
FileGroup207=Default Group
FileGroup208=Default Group
FileGroup209=Default Group
FileGroup21=Default Group
FileGroup210=Default Group
FileGroup211=Default Group
FileGroup212=Default Group
FileGroup213=Default Group
FileGroup214=Default Group
FileGroup215=Default Group
FileGroup216=Default Group
FileGroup217=Default Group
FileGroup218=Default Group
FileGroup219=Default Group
FileGroup22=Default Group
FileGroup220=Default Group
FileGroup221=Default Group
FileGroup222=Default Group
FileGroup223=Default Group
FileGroup224=Default Group
FileGroup225=Default Group
FileGroup226=Default Group
FileGroup227=Default Group
FileGroup228=Default Group
FileGroup229=Default Group
FileGroup23=Default Group
FileGroup230=Default Group
FileGroup231=Default Group
FileGroup232=Default Group
FileGroup233=Default Group
FileGroup234=Default Group
FileGroup235=Default Group
FileGroup236=Default Group
FileGroup237=Default Group
FileGroup238=Default Group
FileGroup239=Default Group
FileGroup24=Default Group
FileGroup240=Default Group
FileGroup241=Default Group
FileGroup242=Default Group
FileGroup243=Default Group
FileGroup244=Default Group
FileGroup245=Default Group
FileGroup246=Default Group
FileGroup247=Default Group
FileGroup248=Default Group
FileGroup249=Default Group
FileGroup25=Default Group
FileGroup250=Default Group
FileGroup251=Default Group
FileGroup252=Default Group
FileGroup253=Default Group
FileGroup254=Default Group
FileGroup255=Default Group
FileGroup256=Default Group
FileGroup257=Default Group
FileGroup258=Default Group
FileGroup259=Default Group
FileGroup26=Default Group
FileGroup260=Default Group
FileGroup261=Default Group
FileGroup262=Default Group
FileGroup263=Default Group
FileGroup264=Default Group
FileGroup265=Default Group
FileGroup266=Default Group
FileGroup267=Default Group
FileGroup268=Default Group
FileGroup269=Default Group
FileGroup27=Default Group
FileGroup270=Default Group
FileGroup271=Default Group
FileGroup272=Default Group
FileGroup273=Default Group
FileGroup274=Default Group
FileGroup275=Default Group
FileGroup276=Default Group
FileGroup277=Default Group
FileGroup278=Default Group
FileGroup279=Default Group
FileGroup28=Default Group
FileGroup280=Default Group
FileGroup281=Default Group
FileGroup282=Default Group
FileGroup283=Default Group
FileGroup284=Default Group
FileGroup285=Default Group
FileGroup286=Default Group
FileGroup287=Default Group
FileGroup288=Default Group
FileGroup289=Default Group
FileGroup29=Default Group
FileGroup290=Default Group
FileGroup291=Default Group
FileGroup292=Default Group
FileGroup293=Default Group
FileGroup294=Default Group
FileGroup295=Default Group
FileGroup296=Default Group
FileGroup297=Default Group
FileGroup298=Default Group
FileGroup299=Default Group
FileGroup3=Default Group
FileGroup30=Default Group
FileGroup300=Default Group
FileGroup301=Default Group
FileGroup302=Default Group
FileGroup303=Default Group
FileGroup304=Default Group
FileGroup305=Default Group
FileGroup306=Default Group
FileGroup307=Default Group
FileGroup308=Default Group
FileGroup309=Default Group
FileGroup31=Default Group
FileGroup310=Default Group
FileGroup311=Default Group
FileGroup312=Default Group
FileGroup313=Default Group
FileGroup314=Default Group
FileGroup315=Default Group
FileGroup316=Default Group
FileGroup317=Default Group
FileGroup318=Default Group
FileGroup319=Default Group
FileGroup32=Default Group
FileGroup320=Default Group
FileGroup321=Default Group
FileGroup322=Default Group
FileGroup323=Default Group
FileGroup324=Default Group
FileGroup325=Default Group
FileGroup326=Default Group
FileGroup327=Default Group
FileGroup328=Default Group
FileGroup329=Default Group
FileGroup33=Default Group
FileGroup330=Default Group
FileGroup331=Default Group
FileGroup332=Default Group
FileGroup333=Default Group
FileGroup334=Default Group
FileGroup335=Default Group
FileGroup336=Default Group
FileGroup337=Default Group
FileGroup338=Default Group
FileGroup339=Default Group
FileGroup34=Default Group
FileGroup340=Default Group
FileGroup341=Default Group
FileGroup342=Default Group
FileGroup343=Default Group
FileGroup344=Default Group
FileGroup345=Default Group
FileGroup346=Default Group
FileGroup347=Default Group
FileGroup348=Default Group
FileGroup349=Default Group
FileGroup35=Default Group
FileGroup350=Default Group
FileGroup351=Default Group
FileGroup352=Default Group
FileGroup353=Default Group
FileGroup354=Default Group
FileGroup355=Default Group
FileGroup356=Default Group
FileGroup357=Default Group
FileGroup358=Default Group
FileGroup359=Default Group
FileGroup36=Default Group
FileGroup360=Default Group
FileGroup361=Default Group
FileGroup362=Default Group
FileGroup363=Default Group
FileGroup364=Default Group
FileGroup365=Default Group
FileGroup366=Default Group
FileGroup367=Default Group
FileGroup368=Default Group
FileGroup369=Default Group
FileGroup37=Default Group
FileGroup370=Default Group
FileGroup371=Default Group
FileGroup372=Default Group
FileGroup373=Default Group
FileGroup374=Default Group
FileGroup375=Default Group
FileGroup376=Default Group
FileGroup377=Default Group
FileGroup378=Default Group
FileGroup379=Default Group
FileGroup38=Default Group
FileGroup380=Default Group
FileGroup381=Default Group
FileGroup382=Default Group
FileGroup383=Default Group
FileGroup384=Default Group
FileGroup385=Default Group
FileGroup386=Default Group
FileGroup387=Default Group
FileGroup388=Default Group
FileGroup389=Default Group
FileGroup39=Default Group
FileGroup390=Default Group
FileGroup391=Default Group
FileGroup392=Default Group
FileGroup393=Default Group
FileGroup394=Default Group
FileGroup395=Default Group
FileGroup396=Default Group
FileGroup397=Default Group
FileGroup398=Default Group
FileGroup399=Default Group
FileGroup4=Default Group
FileGroup40=Default Group
FileGroup400=Default Group
FileGroup401=Default Group
FileGroup402=Default Group
FileGroup403=Default Group
FileGroup404=Default Group
FileGroup405=Default Group
FileGroup406=Default Group
FileGroup407=Default Group
FileGroup408=Default Group
FileGroup409=Default Group
FileGroup41=Default Group
FileGroup410=Default Group
FileGroup411=Default Group
FileGroup412=Default Group
FileGroup413=Default Group
FileGroup414=Default Group
FileGroup415=Default Group
FileGroup416=Default Group
FileGroup417=Default Group
FileGroup418=Default Group
FileGroup419=Default Group
FileGroup42=Default Group
FileGroup420=Default Group
FileGroup421=Default Group
FileGroup422=Default Group
FileGroup423=Default Group
FileGroup424=Default Group
FileGroup425=Default Group
FileGroup426=Default Group
FileGroup427=Default Group
FileGroup428=Default Group
FileGroup429=Default Group
FileGroup43=Default Group
FileGroup430=Default Group
FileGroup431=Default Group
FileGroup432=Default Group
FileGroup433=Default Group
FileGroup434=Default Group
FileGroup435=Default Group
FileGroup436=Default Group
FileGroup437=Default Group
FileGroup438=Default Group
FileGroup439=Default Group
FileGroup44=Default Group
FileGroup440=Default Group
FileGroup441=Default Group
FileGroup442=Default Group
FileGroup443=Default Group
FileGroup444=Default Group
FileGroup445=Default Group
FileGroup446=Default Group
FileGroup447=Default Group
FileGroup448=Default Group
FileGroup449=Default Group
FileGroup45=Default Group
FileGroup450=Default Group
FileGroup451=Default Group
FileGroup452=Default Group
FileGroup453=Default Group
FileGroup454=Default Group
FileGroup455=Default Group
FileGroup456=Default Group
FileGroup457=Default Group
FileGroup458=Default Group
FileGroup459=Default Group
FileGroup46=Default Group
FileGroup460=Default Group
FileGroup461=Default Group
FileGroup462=Default Group
FileGroup463=Default Group
FileGroup464=Default Group
FileGroup465=Default Group
FileGroup466=Default Group
FileGroup467=Default Group
FileGroup468=Default Group
FileGroup469=Default Group
FileGroup47=Default Group
FileGroup470=Default Group
FileGroup471=Default Group
FileGroup472=Default Group
FileGroup473=Default Group
FileGroup474=Default Group
FileGroup475=Default Group
FileGroup476=Default Group
FileGroup477=Default Group
FileGroup478=Default Group
FileGroup479=Default Group
FileGroup48=Default Group
FileGroup480=Default Group
FileGroup481=Default Group
FileGroup482=Default Group
FileGroup483=Default Group
FileGroup484=Default Group
FileGroup485=Default Group
FileGroup486=Default Group
FileGroup487=Default Group
FileGroup488=Default Group
FileGroup489=Default Group
FileGroup49=Default Group
FileGroup490=Default Group
FileGroup491=Default Group
FileGroup492=Default Group
FileGroup493=Default Group
FileGroup494=Default Group
FileGroup495=Default Group
FileGroup496=Default Group
FileGroup497=Default Group
FileGroup498=Default Group
FileGroup499=Default Group
FileGroup5=Default Group
FileGroup50=Default Group
FileGroup500=Default Group
FileGroup501=Default Group
FileGroup502=Default Group
FileGroup503=Default Group
FileGroup504=Default Group
FileGroup505=Default Group
FileGroup506=Default Group
FileGroup507=Default Group
FileGroup508=Default Group
FileGroup51=Default Group
FileGroup52=Default Group
FileGroup53=Default Group
FileGroup54=Default Group
FileGroup55=Default Group
FileGroup56=Default Group
FileGroup57=Default Group
FileGroup58=Default Group
FileGroup59=Default Group
FileGroup6=Default Group
FileGroup60=Default Group
FileGroup61=Default Group
FileGroup62=Default Group
FileGroup63=Default Group
FileGroup64=Default Group
FileGroup65=Default Group
FileGroup66=Default Group
FileGroup67=Default Group
FileGroup68=Default Group
FileGroup69=Default Group
FileGroup7=Default Group
FileGroup70=Default Group
FileGroup71=Default Group
FileGroup72=Default Group
FileGroup73=Default Group
FileGroup74=Default Group
FileGroup75=Default Group
FileGroup76=Default Group
FileGroup77=Default Group
FileGroup78=Default Group
FileGroup79=Default Group
FileGroup8=Default Group
FileGroup80=Default Group
FileGroup81=Default Group
FileGroup82=Default Group
FileGroup83=Default Group
FileGroup84=Default Group
FileGroup85=Default Group
FileGroup86=Default Group
FileGroup87=Default Group
FileGroup88=Default Group
FileGroup89=Default Group
FileGroup9=Default Group
FileGroup90=Default Group
FileGroup91=Default Group
FileGroup92=Default Group
FileGroup93=Default Group
FileGroup94=Default Group
FileGroup95=Default Group
FileGroup96=Default Group
FileGroup97=Default Group
FileGroup98=Default Group
FileGroup99=Default Group
Group=Default Group
Library1=baqrcode
Library10=fusedlocationprovider
Library11=gifdecoder
Library12=googlemaps
Library13=googlemapsextras
Library14=gps
Library15=javaobject
Library16=json
Library17=okhttputils2
Library18=phone
Library19=randomaccessfile
Library2=batteryprogressview
Library20=reflection
Library21=rspopupmenu
Library22=runtimepermissions
Library23=serial
Library24=sql
Library25=stringutils
Library26=togglelibrary
Library27=xcustomlistview
Library28=xui
Library29=zxing_scanner
Library3=bitmapcreator
Library30=ime
Library4=byteconverter
Library5=camera
Library6=compressstrings
Library7=core
Library8=firebaseanalytics
Library9=firebasenotifications
ManifestCode='This code will be applied to the manifest file during compilation.~\n~'You do not need to modify it in most cases.~\n~'See this link for for more information: http://www.basic4ppc.com/forum/showthread.php?p=78136~\n~AddManifestText(~\n~<uses-sdk android:minSdkVersion="4" android:targetSdkVersion="23"/>~\n~<supports-screens android:largeScreens="true" ~\n~ android:normalScreens="true" ~\n~ android:smallScreens="true" ~\n~ android:anyDensity="true"/>)~\n~SetApplicationAttribute(android:icon, "@drawable/icon")~\n~SetApplicationAttribute(android:label, "$LABEL$")~\n~AddApplicationText(<activity android:name="com.google.zxing.client.android.CaptureActivity"~\n~android:screenOrientation="landscape" ~\n~android:configChanges="orientation|keyboardHidden"~\n~android:theme="@android:style/Theme.NoTitleBar.Fullscreen"~\n~android:windowSoftInputMode="stateAlwaysHidden">~\n~</activity>)~\n~AddApplicationText(~\n~<meta-data~\n~ android:name="com.google.android.geo.API_KEY"~\n~ android:value="AIzaSyBlBnx3O-DncOSv3oFIp-12wgujOYYcl-U"/>~\n~ <meta-data android:name="com.google.android.gms.version"~\n~ android:value="@integer/google_play_services_version" />~\n~)~\n~ 'End of default text.~\n~SetApplicationAttribute(android:usesCleartextTraffic, "true")~\n~ AddManifestText(~\n~<uses-permission~\n~ android:name="android.permission.ACCESS_FINE_LOCATION"~\n~ android:maxSdkVersion="23" />~\n~)~\n~ AddManifestText(~\n~<uses-permission~\n~ android:name="android.permission.WRITE_EXTERNAL_STORAGE"~\n~ android:maxSdkVersion="23" />~\n~)~\n~AddManifestText(~\n~<uses-permission~\n~ android:name="android.permission.READ_PHONE_STATE"~\n~ android:maxSdkVersion="19" />~\n~)~\n~AddManifestText(~\n~<uses-permission~\n~ android:name="android.permission.READ_PRIVILEGED_PHONE_STATE"~\n~ android:maxSdkVersion="19" />~\n~) 'in order to access the device non-resettable identifiers such as IMEI and serial number.~\n~AddManifestText(<uses-permission~\n~ android:name="android.permission.BLUETOOTH_ADMIN" />)~\n~'/////////////// FLP y FBMessageing MOD Inicia /////////////////////~\n~CreateResourceFromFile(Macro, FirebaseAnalytics.GooglePlayBase)~\n~CreateResourceFromFile(Macro, FirebaseAnalytics.Firebase)~\n~CreateResourceFromFile(Macro, FirebaseAnalytics.FirebaseAnalytics)~\n~CreateResourceFromFile(Macro, FirebaseNotifications.FirebaseNotifications)~\n~'CreateResourceFromFile(Macro, FirebaseAnalytics.Crashlytics)~\n~SetServiceAttribute(Tracker, android:foregroundServiceType, "location")~\n~'/////////////// FLP y FBMessageing MOD Termina /////////////////////~\n~'Set activity to Landscape~\n~SetActivityAttribute(colonia2, android:screenOrientation, "landscape")
Module1=BatteryUtilities
Module10=FirebaseMessaging
Module11=foto
Module12=gestion
Module13=Historico
Module14=MAPA_RUTAS
Module15=mapas
Module16=nopago
Module17=nuevocliente
Module18=pedidos
Module19=QR_MODULE
Module2=BUSCAR
Module20=seleccion
Module21=Starter
Module22=tarjeta
Module23=telefonos
Module24=Tracker
Module3=CameraExClass
Module4=colonia
Module5=colonia2
Module6=DBRequestManager
Module7=detalle_promo
Module8=EscPosPrinter
Module9=fila
NumberOfFiles=508
NumberOfLibraries=30
NumberOfModules=24
Version=12.5
@EndOfDesignText@
#Region Project Attributes
#ApplicationLabel: Durakelo-Venta
#VersionCode: 1
#VersionName: 3.12.12
'SupportedOrientations possible values: unspecified, landscape or portrait.
#SupportedOrientations: portrait
#CanInstallToExternalStorage: False
#BridgeLogger: true
#AdditionalJar: com.android.support:support-v4
#AdditionalJar: com.google.android.gms:play-services-location
'###########################################################################################################
'###################### PULL #############################################################
'Ctrl + click ide://run?file=%WINDIR%\System32\cmd.exe&Args=/c&Args=git&Args=pull
'###########################################################################################################
'###################### PUSH #############################################################
'Ctrl + click ide://run?file=%WINDIR%\System32\WindowsPowerShell\v1.0\powershell.exe&Args=github&Args=..\..\
'###########################################################################################################
'###################### PUSH TORTOISE GIT #########################################################
'Ctrl + click ide://run?file=%WINDIR%\System32\WindowsPowerShell\v1.0\powershell.exe&Args=TortoiseGitProc&Args=/command:commit&Args=/path:"./../"&Args=/closeonend:2
'###########################################################################################################
#End Region
#Region Activity Attributes
#FullScreen: False
#IncludeTitle: True
#End Region
#Region Service Attributes
#End Region
Sub Process_Globals
'These global variables will be declared once when the application starts.
'These variables can be accessed from all modules.
Dim v As String = 20210906
Dim reqManager As DBRequestManager
Dim ruta As String
Dim tipov As String
Dim mac_impresora As String
Dim lat_gps, lon_gps As String
Dim skmt As SQL
Dim batt As Int
Dim usuario As String
Dim server As String
Dim montoActual, clientesTotal, clientesVenta, clientesVisitados,almacen, rutaPreventa As String
Dim ultimaActualizacionGPS As String = 235959
Dim Logger As Boolean
End Sub
Sub Globals
'These global variables will be redeclared each time the activity is created.
'These variables can only be accessed from this module.
Dim skmt As SQL
Dim user As EditText
Dim pass As EditText
Dim c As Cursor
Dim existe As String
Dim paso1 As String
Dim IMEI As String
' Dim g As GPS
Dim server As String
Dim alterno As String
Private b_menu As Button
Dim PopupMenu As RSPopupMenu
Dim cmd As DBCommand
Private PDF As Button
Private IMEN As EditText
Private Entrar As Button
Private Panel1 As Panel
Private ImageView4 As ImageView
Private E_SERVER As EditText
Private B_SERVER As Button
Private B_FECHA As Button
Private CUANTOS As String
Private ListView1 As ListView
Private B_IMPRESORA As Button
Private p_login As Panel
Private l_version As Label
End Sub
Sub Activity_Create(FirstTime As Boolean)
' copiaDB
Logger = True
ruta = File.DirInternal
' If(FirstTime) Then
' g.Initialize("GPS")
' End If
' se crea o no el archivo de la base de ddatos de kmt
'NOTAS SI SE MODIFICA LA ESTRUCTURA SE QUITA EL IF Y SE VA DIRECTO A LA SENTENCIA FILE.COPY PARA QUE
'TOME LA NUEVA ESTRUCTURA ES MUY IMPORTANTE TENER EL IF DE LO CONTRARIO SOLO LO ESCRIBE UNA VEZ Y LO BORRA
'SI SE REGRESA A ESTE ACTIVIDAD.
' Starter.rp.CheckAndRequest(Starter.rp.PERMISSION_WRITE_EXTERNAL_STORAGE)
' Wait For Activity_PermissionResult (Permission As String, Result As Boolean)
If File.Exists(ruta, "kmt.db") = False Then
File.Copy(File.DirAssets, "kmt.db", ruta, "kmt.db")
If Logger Then Log("No existe kmt, copiamos kmt.db")
End If
If File.Size(ruta, "kmt.db") = 0 Then
File.Copy(File.DirAssets, "kmt.db", ruta, "kmt.db")
If Logger Then Log("kmt en 0, copiamos kmt.db")
End If
skmt.Initialize(ruta,"kmt.db", True)
guardaAppInfo(skmt)
'c=skmt.ExecQuery2("select COUNT(*) AS CUANTOS from CAT_CODIGOS where CAT_CO_PONDERACION =1 AND CAT_CO_ACCION = ?", Array As String("SERVER"))
'c.Position =0
'If c.GetString("CUANTOS") = 0 Then
'skmt.ExecNonQuery2("INSERT INTO CAT_CODIGOS (CAT_CO_PONDERACION, CAT_CO_ACCION, CAT_CO_RESULTADO, CAT_CO_CONFIGURACION) VALUES (?,?,?,?)", Array As Object ("1","1","SERVER","http://masternoc.mx:1783"))
'skmt.ExecNonQuery2("INSERT INTO CAT_CODIGOS (CAT_CO_PONDERACION, CAT_CO_ACCION, CAT_CO_RESULTADO, CAT_CO_CONFIGURACION) VALUES (?,?,?,?)", Array As Object ("0","2","SERVER","http://masternoc1.mx:1783"))
'End If
'c.Close
'c=skmt.ExecQuery2("select CAT_CO_CONFIGURACION from CAT_CODIGOS where CAT_CO_PONDERACION =1 AND CAT_CO_ACCION = ?", Array As String("SERVER"))
'c.Position =0
'server = c.GetString("CAT_CO_CONFIGURACION")
'c.Close
server = Starter.DBReqServer
'server = "http://10.0.0.205:1782"
Dim sDate,sTime As String
DateTime.DateFormat = "yyyyMMdd"
sDate=DateTime.Date(DateTime.Now)
skmt.ExecNonQuery("DROP TABLE IF EXISTS PEDIDO3")
' skmt.ExecNonQuery("DROP VIEW TOTAL_MARCAS")
skmt.ExecNonQuery("CREATE VIEW IF NOT EXISTS CATALOGO AS Select CAT_GP_CLASIF, CAT_GP_ID FROM CAT_GUNAPROD UNION Select CAT_GP_CLASIF, CAT_GP_ID FROM CAT_GUNAPROD2 GROUP BY CAT_GP_CLASIF, CAT_GP_ID")
skmt.ExecNonQuery("create view IF NOT EXISTS total_marcas AS Select cat_gp_clasif, sum(pe_costo_tot) As total from CATALOGO, pedido where pe_proid = cat_gp_id And pe_cliente <> 0 group by cat_gp_clasif")
skmt.ExecNonQuery("CREATE TABLE IF NOT EXISTS CAT_EXHIBIDORES (CAT_EX_ID TEXT, CAT_EX_TIPO TEXT, CAT_EX_VALOR TEXT)")
skmt.ExecNonQuery("CREATE TABLE PEDIDO3 (PE_PRECIO2 TEXT,PE_TIPO TEXT,PE_FOLIO NUMERIC,PE_DESC NUMERIC,PE_COSTO_SIN TEXT,PE_RUTA TEXT,PE_CEDIS TEXT,PE_COSTO_TOT NUMERIC,PE_COSTOU NUMERIC,PE_CANT NUMERIC,PE_PRONOMBRE TEXT,PE_PROID TEXT,PE_CLIENTE TEXT,PE_FECHA TEXT,PE_USUARIO TEXT)")
skmt.ExecNonQuery("CREATE TABLE IF NOT EXISTS RUTA_GPS(FECHA INTEGER, LAT TEXT, LON TEXT)")
If sDate = "20190523" Then
skmt.ExecNonQuery2("delete from CAT_VARIABLES where CAT_VA_DESCRIPCION = ?", Array As Object ("SERVER"))
skmt.ExecNonQuery2("INSERT INTO CAT_VARIABLES(CAT_VA_DESCRIPCION, CAT_VA_VALOR) VALUES (?,?)", Array As Object ("SERVER",server))
End If
skmt.ExecNonQuery("CREATE TABLE IF NOT EXISTS HIST_ENCUESTA (HE_CLIE TEXT, HE_RES TEXT, HE_FECHA TEXT, HE_TIPO TEXT)")
skmt.ExecNonQuery("CREATE TABLE IF NOT EXISTS HIST_ENCUESTA2 (HE_CLIE TEXT, HE_RES TEXT, HE_FECHA TEXT, HE_TIPO TEXT, HE_PRECIO TEXT)")
skmt.ExecNonQuery("CREATE TABLE IF NOT EXISTS CAT_ENCUESTA_PREGUNTA (CAT_EP_ID TEXT,CAT_EP_IDTIPOPREGUNTA TEXT,CAT_CE_DESCRIPCION TEXT,CAT_EP_PREGUNTA TEXT,CAT_EP_RES1_PRED TEXT,CAT_EP_RES2_PRED TEXT,CAT_EP_RES3_PRED TEXT,CAT_EP_ORDEN_PREGUNTA TEXT)")
skmt.ExecNonQuery("CREATE TABLE IF NOT EXISTS CAT_ENCUESTA_PREGUNTA5P (CAT_EP_ID TEXT,CAT_EP_IDTIPOPREGUNTA TEXT,CAT_CE_DESCRIPCION TEXT,CAT_EP_PREGUNTA TEXT,CAT_EP_RES1_PRED TEXT,CAT_EP_RES2_PRED TEXT,CAT_EP_RES3_PRED TEXT,CAT_EP_ORDEN_PREGUNTA TEXT)")
c=skmt.ExecQuery2("select count(*) as CUANTOS from CAT_VARIABLES WHERE CAT_VA_DESCRIPCION = ?", Array As String ("SERVER"))
c.Position =0
If c.GetString("CUANTOS") = 0 Then
skmt.ExecNonQuery2("INSERT INTO CAT_VARIABLES(CAT_VA_DESCRIPCION, CAT_VA_VALOR) VALUES (?,?)", Array As Object ("SERVER",server))
Else
c=skmt.ExecQuery2("select CAT_VA_VALOR from CAT_VARIABLES WHERE CAT_VA_DESCRIPCION = ?", Array As String ("SERVER"))
c.Position =0
server = c.GetString("CAT_VA_VALOR")
End If
If FirstTime Then
reqManager.Initialize(Me, server)
Log(server)
End If
Activity.LoadLayout("login")
Dim P As PhoneId
'user.Text = P.GetDeviceId
Starter.rp.CheckAndRequest(Starter.rp.PERMISSION_READ_PHONE_STATE)
Wait For Activity_PermissionResult (Permission As String, Result As Boolean)
If Result Then
Dim P As PhoneId
'user.Text = P.GetDeviceId
IMEI = P.GetDeviceId
IMEI = ""
Else
If Logger Then Log("Sin permisos para leer los datos del celular")
End If
'este codigo es para lo del menu
PopupMenu.Initialize("PopupMenu", b_menu)
PopupMenu.AddMenuItem(0, 0, "View")
PopupMenu.AddMenuItem(1, 1, "Edit")
PopupMenu.AddMenuItem(2, 2, "Details")
PopupMenu.AddMenuItem(3, 3, "Remove")
' menu fin
Starter.rp.CheckAndRequest(Starter.rp.PERMISSION_ACCESS_FINE_LOCATION)
Wait For Activity_PermissionResult (Permission As String, Result As Boolean)
If Result Then
StartService(Tracker)
Log("Start Tracker")
End If
p_login.Height = Activity.Height
p_login.Width = Activity.Width
End Sub
Sub Activity_Resume
l_version.Text = Application.VersionName
' copiaDB
server = Starter.DBReqServer
' server = "http://10.0.0.205:1782"
reqManager.Initialize(Me, server)
Log(server)
' If g.GPSEnabled=False Then
' ToastMessageShow("Habilitar el GPS", True)
' StartActivity(g.LocationSettingsIntent)
' Else
' g.Start(0,0)
' End If
' user.Text ="GPS"
c=skmt.ExecQuery2("select count(*) as CUANTOS from CAT_VARIABLES WHERE CAT_VA_DESCRIPCION = ?", Array As String ("FECHA"))
c.Position =0
If c.GetString("CUANTOS") = 0 Then
cmd.Initialize
cmd.Name = "select_fechat"
reqManager.ExecuteQuery(cmd , 0, "fecha")
'Msgbox("AJUSTAR FECHA","AVISO")
Activity_Resume
Else
c=skmt.ExecQuery2("select CAT_VA_VALOR from CAT_VARIABLES WHERE CAT_VA_DESCRIPCION = ?", Array As String ("FECHA"))
c.Position =0
Dim sDate,sTime As String
DateTime.dateFormat = "yyyyMMddHHmm"
sDate=DateTime.Date(DateTime.Now)
'Msgbox("aaa"& sDate,"aviso")
If c.GetString("CAT_VA_VALOR") > sDate & sTime Then
' Msgbox("AJUSTAR LA FECHA YA QUE ES MENOR AL SISTEMA " & " "& c.GetString("CAT_VA_VALOR") & " " & sDate & sTime ,"AVISO")
DateTime.TimeFormat = "MM/dd/yyyyHH:mm:ss"
Activity_Resume
End If
DateTime.TimeFormat = "MM/dd/yyyyHH:mm:ss"
End If
c.Close
c=skmt.ExecQuery2("select count(*) as CUANTOS from CAT_VARIABLES WHERE CAT_VA_DESCRIPCION = ?", Array As String ("CODIGO"))
c.Position =0
CUANTOS = c.GetString("CUANTOS")
c.Close
If CUANTOS > 0 Then
c=skmt.ExecQuery2("select CAT_VA_VALOR from CAT_VARIABLES WHERE CAT_VA_DESCRIPCION = ?", Array As String ("CODIGO"))
c.Position =0
If c.GetString("CAT_VA_VALOR") = "743" Then
Entrar.Visible = True
End If
c.Close
Else
skmt.ExecNonQuery2("INSERT INTO CAT_VARIABLES(CAT_VA_DESCRIPCION, CAT_VA_VALOR) VALUES (?,?)", Array As Object ("CODIGO","0"))
End If
c=skmt.ExecQuery2("select COUNT(*) AS CUANTOS from CAT_VARIABLES WHERE CAT_VA_DESCRIPCION = ?", Array As String ("MACIMP"))
c.Position =0
If c.GetString("CUANTOS") = 0 Then
skmt.ExecNonQuery2("INSERT INTO CAT_VARIABLES(CAT_VA_DESCRIPCION, CAT_VA_VALOR) VALUES (?,?)", Array As Object ("MACIMP","0"))
End If
c=skmt.ExecQuery("select COUNT(*) AS CUANTOS FROM VERSION")
c.Position= 0
If c.GetString("CUANTOS") = 0 Then
skmt.ExecNonQuery("delete from VERSION")
skmt.ExecNonQuery2("INSERT INTO VERSION(NOVERSION) VALUES (?)", Array As Object ("2.6"))
End If
c.Close
c=skmt.ExecQuery("select NOVERSION FROM VERSION")
c.Position = 0
If c.GetString("NOVERSION") <> "2.6" Then
' Msgbox("VERSION INCORRECTA SOLICITAR O DESCARGAR LA NUEVA","ALERTA")
Activity_Resume
End If
Starter.rp.CheckAndRequest(Starter.rp.PERMISSION_ACCESS_FINE_LOCATION)
Wait For Activity_PermissionResult (Permission As String, Result As Boolean)
If Result Then
StartService(Tracker)
If Logger Then Log("Start Tracker")
Else
ToastMessageShow("No permission", True)
End If
dameUsuario 'Obtenemos el usuario registrado
CallSubDelayed(FirebaseMessaging, "SubscribeToTopics")
End Sub
Sub Activity_Pause (UserClosed As Boolean)
End Sub
Sub Entrar_Click
If user.Text = "ALTERNO" Then
c=skmt.ExecQuery2("select CAT_CO_CONFIGURACION, CAT_CO_RESULTADO from CAT_CODIGOS where CAT_CO_PONDERACION =1 AND CAT_CO_ACCION = ?", Array As String("SERVER"))
c.Position =0
server = c.GetString("CAT_CO_CONFIGURACION")
alterno = c.GetString("CAT_CO_RESULTADO")
c.Close
If alterno = 1 Then
skmt.ExecNonQuery2("UPDATE CAT_CODIGOS SET CAT_CO_PONDERACION = 1 WHERE CAT_CO_ACCION = ? AND CAT_CO_RESULTADO = 2", Array As String ("SERVER"))
skmt.ExecNonQuery2("UPDATE CAT_CODIGOS SET CAT_CO_PONDERACION = 0 WHERE CAT_CO_ACCION = ? AND CAT_CO_RESULTADO = 1", Array As String ("SERVER"))
Else if alterno = 2 Then
skmt.ExecNonQuery2("UPDATE CAT_CODIGOS SET CAT_CO_PONDERACION = 1 WHERE CAT_CO_ACCION = ? AND CAT_CO_RESULTADO = 1", Array As String ("SERVER"))
skmt.ExecNonQuery2("UPDATE CAT_CODIGOS SET CAT_CO_PONDERACION = 0 WHERE CAT_CO_ACCION = ? AND CAT_CO_RESULTADO = 2", Array As String ("SERVER"))
End If
c=skmt.ExecQuery2("select CAT_CO_CONFIGURACION, CAT_CO_RESULTADO from CAT_CODIGOS where CAT_CO_PONDERACION =1 AND CAT_CO_ACCION = ?", Array As String("SERVER"))
c.Position =0
server = c.GetString("CAT_CO_CONFIGURACION")
user.Text = server
c.Close
reqManager.Initialize(Me, server)
Log(server)
else if user.Text = "ROOT" Then
skmt.ExecNonQuery("delete from usuarioa")
skmt.ExecNonQuery2("INSERT INTO USUARIOA VALUES (?,?)", Array As Object(user.Text, pass.Text))
skmt.ExecNonQuery("delete from cat_almacen")
skmt.ExecNonQuery2("INSERT INTO CAT_ALMACEN(ID_ALMACEN) VALUES (?)", Array As Object (pass.Text))
StartActivity(seleccion)
End If
c=skmt.ExecQuery2("select count(*) as EXISTE1 from usuarioa where usuario = ?", Array As String(user.Text))
c.Position=0
existe = c.GetString("EXISTE1")
'existe = 1
If existe = 0 Then
'skmt.ExecNonQuery("delete from usuarioa")
Dim cmd As DBCommand
cmd.Initialize
cmd.Name = "select_usuario_guna_DUR"
cmd.Parameters = Array As Object(user.Text, pass.Text)
reqManager.ExecuteQuery(cmd , 0, "usuario")
Dim cmd As DBCommand
cmd.Initialize
cmd.Name = "select_version_DUR"
reqManager.ExecuteQuery(cmd , 0, "version")
Else
StartActivity(seleccion)
End If
End Sub
Sub JobDone(Job As HttpJob)
If Job.Success = False Then
If Job.ErrorMessage.Contains("resolve") And Job.ErrorMessage.Contains("keymon.lat") Then
ToastMessageShow("Por favor revisa tu conexión a internet, hay problemas de comunicación.", True)
Else
ToastMessageShow("Error: " & Job.ErrorMessage, True)
End If
Else
If Job.JobName = "DBRequest" Then
Dim result As DBResult = reqManager.HandleJob(Job)
If result.Tag = "version" Then 'query tag
For Each records() As Object In result.Rows
skmt.ExecNonQuery("delete from VERSION")
Dim CAT_VE_VERSION As String = records(result.Columns.Get("CAT_VE_VERSION"))
skmt.ExecNonQuery2("INSERT INTO VERSION(NOVERSION) VALUES (?)", Array As Object (CAT_VE_VERSION))
If CAT_VE_VERSION <> "2.6" Then
Msgbox("VERSION INCORRECTA SOLICITAR O DESCARGAR LA NUEVA","ALERTA")
Activity_Resume
End If
Next
End If
End If
If Job.JobName = "DBRequest" Then
Dim result As DBResult = reqManager.HandleJob(Job)
If result.Tag = "agencia" Then 'query tag
For Each records() As Object In result.Rows
Dim ID_ALMACEN As String = records(result.Columns.Get("ID_ALMACEN"))
Next
End If
End If
If Job.JobName = "DBRequest" Then
Dim result As DBResult = reqManager.HandleJob(Job)
If result.Tag = "fecha" Then 'query tag
For Each records() As Object In result.Rows
Dim FECHA_HOY As String = records(result.Columns.Get("FECHA"))
skmt.ExecNonQuery2("delete from CAT_VARIABLES where CAT_VA_DESCRIPCION = ?", Array As Object ("FECHA"))
skmt.ExecNonQuery2("INSERT INTO CAT_VARIABLES(CAT_VA_DESCRIPCION, CAT_VA_VALOR) VALUES (?,?)", Array As Object ("FECHA",FECHA_HOY))
Next
End If
End If
If Job.JobName = "DBRequest" Then
Dim result As DBResult = reqManager.HandleJob(Job)
If result.Tag = "usuario" Then 'query tag
For Each records() As Object In result.Rows
Dim name As String = records(result.Columns.Get("USUARIO"))
Dim ID_ALMACEN As String = records(result.Columns.Get("CAT_LO_AGENCIA"))
' Dim IMEI_BASE As String = records(result.Columns.Get("CAT_LO_IDTELEFONO"))
Next
paso1 = 1
End If
End If
Job.Release
End If
If paso1 =1 Then
If name = "OKActivo" & IMEI Then
skmt.ExecNonQuery("delete from usuarioa")
skmt.ExecNonQuery2("INSERT INTO USUARIOA VALUES (?,?)", Array As Object(user.Text, pass.Text))
skmt.ExecNonQuery("delete from cat_almacen")
skmt.ExecNonQuery2("INSERT INTO CAT_ALMACEN(ID_ALMACEN) VALUES (?)", Array As Object (ID_ALMACEN))
skmt.ExecNonQuery2("delete from CAT_VARIABLES where CAT_VA_DESCRIPCION = ?", Array As Object ("NUMERO_PEDIDO"))
skmt.ExecNonQuery2("INSERT INTO CAT_VARIABLES(CAT_VA_DESCRIPCION, CAT_VA_VALOR) VALUES (?,?)", Array As Object ("NUMERO_PEDIDO",0))
StartActivity(seleccion)
Else If name = "OKExpirado"& IMEI Then
Msgbox("Usuario Expirado llamar al administrador","")
Else If name = "OKCancelado"& IMEI Then
Msgbox("Usuario Cancelado llamar al administrador","")
Else
Msgbox("Usuario o password No validos","")
End If
paso1 = 0
End If
End Sub
Sub Activity_KeyPress (key As Int) As Boolean
' BACK key pressed
If key=KeyCodes.KEYCODE_BACK Then
' I want to capture the key here so I return True
'StartActivity(Main)
ExitApplication
'Return True
End If
' Returning False signals the system to handle the key
Return False
End Sub
Sub GPS_LocationChanged (Location1 As Location)
If user.text = "GPS" Then
'user.Text=Location1.ConvertToMinutes(Location1.Latitude)
'pass.text=Location1.ConvertToMinutes(Location1.Longitude)
user.Text=Location1.Latitude
pass.text=Location1.Longitude
'btnTakePicture.Enabled = True
's.ExecNonQuery2("INSERT INTO HIST_GPS (HGDATE,HGLAT, HGLON) VALUES(?,?,?) ", Array As Object (sDate & sTime, lat_gps, lon_gps))
End If
End Sub
public Sub Initialize
'Initialize the PopupMenu
End Sub
Sub PopupMenu_Dismiss
ToastMessageShow("PopupMenu dismissed", False)
End Sub
Sub PopupMenu_MenuItemClick (ItemId As Int) As Boolean
ToastMessageShow("Item " & ItemId & " clicked.", False)
Return False
End Sub
Sub b_menu_Click
PopupMenu.Show
End Sub
Sub PDF_Click
End Sub
Sub IMEN_EnterPressed
If IMEN.Text <> "0" Then
skmt.ExecNonQuery2("delete from CAT_VARIABLES where CAT_VA_DESCRIPCION = ?", Array As Object ("CODIGO"))
skmt.ExecNonQuery2("INSERT INTO CAT_VARIABLES(CAT_VA_DESCRIPCION, CAT_VA_VALOR) VALUES (?,?)", Array As Object ("CODIGO",IMEN.TEXT))
skmt.ExecNonQuery2("delete from CAT_VARIABLES where CAT_VA_DESCRIPCION = ?", Array As Object ("RUTA"))
skmt.ExecNonQuery2("INSERT INTO CAT_VARIABLES(CAT_VA_DESCRIPCION, CAT_VA_VALOR) VALUES (?,?)", Array As Object ("RUTA",user.TEXT))
End If
IMEN.Visible =False
If IMEN.Text = "743" Then
Entrar.Visible = True
End If
End Sub
Sub user_EnterPressed
If user.Text = "CODIGO" Then
IMEN.Visible = True
user.Text = ""
End If
End Sub
Sub ImageView4_Click
Entrar.Visible = False
server = Starter.DBReqServer
ListView1.Clear
Dim label1 As Label
label1 = ListView1.SingleLineLayout.Label
label1.TextSize = 20
label1.TextColor = Colors.Black
ListView1.AddSingleLine(Starter.DBReqServer)
c=skmt.ExecQuery2("select CAT_VA_VALOR from CAT_VARIABLES WHERE CAT_VA_DESCRIPCION = ?", Array As String ("SERVER"))
c.Position =0
E_SERVER.text = "http://keymon.lat:1781"
Panel1.Visible = True
End Sub
Sub B_SERVER_Click
skmt.ExecNonQuery2("delete from CAT_VARIABLES where CAT_VA_DESCRIPCION = ?", Array As Object ("SERVER"))
skmt.ExecNonQuery2("INSERT INTO CAT_VARIABLES(CAT_VA_DESCRIPCION, CAT_VA_VALOR) VALUES (?,?)", Array As Object ("SERVER",E_SERVER.text))
reqManager.Initialize(Me, E_SERVER.text.trim)
Panel1.Visible = False
Entrar.Visible = True
End Sub
Sub B_FECHA_Click
skmt.ExecNonQuery2("delete from CAT_VARIABLES where CAT_VA_DESCRIPCION = ?", Array As Object ("FECHA"))
skmt.ExecNonQuery2("delete from CAT_VARIABLES where CAT_VA_DESCRIPCION = ?", Array As Object ("MACIMP"))
skmt.ExecNonQuery2("INSERT INTO CAT_VARIABLES(CAT_VA_DESCRIPCION, CAT_VA_VALOR) VALUES (?,?)", Array As Object ("MACIMP","0"))
Panel1.Visible = False
End Sub
Sub ListView1_ItemClick (Position As Int, Value As Object)
E_SERVER.text = Value
End Sub
Sub B_IMPRESORA_Click
skmt.ExecNonQuery2("delete from CAT_VARIABLES where CAT_VA_DESCRIPCION = ?", Array As Object ("MACIMP"))
skmt.ExecNonQuery2("INSERT INTO CAT_VARIABLES(CAT_VA_DESCRIPCION, CAT_VA_VALOR) VALUES (?,?)", Array As Object ("MACIMP","0"))
Panel1.Visible = False
End Sub
Sub dameUsuario
c=skmt.ExecQuery("select count(*) as EXISTE1 from usuarioa")
c.Position=0
existe = c.GetString("EXISTE1")
c.Close
If existe > 0 Then
c=skmt.ExecQuery("select USUARIO from usuarioa")
c.Position=0
usuario = c.GetString("USUARIO")
Else
usuario = "SINUSUARIO"
End If
End Sub
'Copia la base de datos del almacenamiento interno al externo en el directorio kmts
Sub copiaDB
Starter.rp.CheckAndRequest(Starter.rp.PERMISSION_WRITE_EXTERNAL_STORAGE)
Wait For Activity_PermissionResult (Permission As String, Result As Boolean)
If Result Then
Dim theDir As String
Try
File.MakeDir(File.DirRootExternal,"kmts")
theDir = "/kmts"
Catch
theDir = ""
End Try
Try
File.Copy(File.DirInternal,"kmt.db",File.DirRootExternal&theDir,"dura_kmt.db")
ToastMessageShow("Listo, copiada a " & File.DirRootExternal&theDir & "/dura_kmt.db", False)
LogColor("copiado", Colors.red)
Catch
ToastMessageShow("No se pudo hacer la copia: "&LastException, True)
LogColor("no copiado", Colors.red)
End Try
' Log("rootExternal="&p)
' Log("File.DirInternal="&File.DirInternal)
' Log("File.DirRootExternal="&File.DirRootExternal)
Else
ToastMessageShow("Sin permisos", True)
End If
End Sub
'Guarda la empresa y version de la app en CAT_VARIABLES.
Sub guardaAppInfo(skmt1 As SQL)
skmt1.ExecNonQuery("delete from CAT_VARIABLES where CAT_VA_DESCRIPCION = 'EMPRESA' or CAT_VA_DESCRIPCION = 'APP_NAME' or CAT_VA_DESCRIPCION = 'APP_VERSION'")
skmt1.ExecNonQuery($"insert into CAT_VARIABLES (CAT_VA_DESCRIPCION, CAT_VA_VALOR) values ('APP_NAME', '${Application.LabelName}')"$)
skmt1.ExecNonQuery($"insert into CAT_VARIABLES (CAT_VA_DESCRIPCION, CAT_VA_VALOR) values ('APP_VERSION', '${Application.VersionName}')"$)
End Sub
Reference in New Issue View Git Blame Copy Permalink