Build1=Default,durakelo.keymon.com.mx
File1=alcancia.png
File10=detalle_promo.bal
File100=marker-azul-68.png
File101=marker-azul-69.png
File102=marker-azul-7.png
File103=marker-azul-70.png
File104=marker-azul-71.png
File105=marker-azul-72.png
File106=marker-azul-73.png
File107=marker-azul-74.png
File108=marker-azul-75.png
File109=marker-azul-76.png
File11=durakelo.png
File110=marker-azul-77.png
File111=marker-azul-78.png
File112=marker-azul-79.png
File113=marker-azul-8.png
File114=marker-azul-80.png
File115=marker-azul-81.png
File116=marker-azul-82.png
File117=marker-azul-83.png
File118=marker-azul-84.png
File119=marker-azul-85.png
File12=durakelo1.png
File120=marker-azul-86.png
File121=marker-azul-87.png
File122=marker-azul-88.png
File123=marker-azul-89.png
File124=marker-azul-9.png
File125=marker-azul-90.png
File126=marker-azul-91.png
File127=marker-azul-92.png
File128=marker-azul-93.png
File129=marker-azul-94.png
File13=engrane.jpg
File130=marker-azul-95.png
File131=marker-azul-96.png
File132=marker-azul-97.png
File133=marker-azul-98.png
File134=marker-azul-99.png
File135=marker-rojo-0.png
File136=marker-rojo-1.png
File137=marker-rojo-10.png
File138=marker-rojo-100.png
File139=marker-rojo-11.png
File14=espera.gif
File140=marker-rojo-12.png
File141=marker-rojo-13.png
File142=marker-rojo-14.png
File143=marker-rojo-15.png
File144=marker-rojo-16.png
File145=marker-rojo-17.png
File146=marker-rojo-18.png
File147=marker-rojo-19.png
File148=marker-rojo-2.png
File149=marker-rojo-20.png
File15=fila.bal
File150=marker-rojo-21.png
File151=marker-rojo-22.png
File152=marker-rojo-23.png
File153=marker-rojo-24.png
File154=marker-rojo-25.png
File155=marker-rojo-26.png
File156=marker-rojo-27.png
File157=marker-rojo-28.png
File158=marker-rojo-29.png
File159=marker-rojo-3.png
File16=fondo_kmt.jpg
File160=marker-rojo-30.png
File161=marker-rojo-31.png
File162=marker-rojo-32.png
File163=marker-rojo-33.png
File164=marker-rojo-34.png
File165=marker-rojo-35.png
File166=marker-rojo-36.png
File167=marker-rojo-37.png
File168=marker-rojo-38.png
File169=marker-rojo-39.png
File17=foto.bal
File170=marker-rojo-4.png
File171=marker-rojo-40.png
File172=marker-rojo-41.png
File173=marker-rojo-42.png
File174=marker-rojo-43.png
File175=marker-rojo-44.png
File176=marker-rojo-45.png
File177=marker-rojo-46.png
File178=marker-rojo-47.png
File179=marker-rojo-48.png
File18=guardagestion.bal
File180=marker-rojo-49.png
File181=marker-rojo-5.png
File182=marker-rojo-50.png
File183=marker-rojo-51.png
File184=marker-rojo-52.png
File185=marker-rojo-53.png
File186=marker-rojo-54.png
File187=marker-rojo-55.png
File188=marker-rojo-56.png
File189=marker-rojo-57.png
File19=guna_viejo.png
File190=marker-rojo-58.png
File191=marker-rojo-59.png
File192=marker-rojo-6.png
File193=marker-rojo-60.png
File194=marker-rojo-61.png
File195=marker-rojo-62.png
File196=marker-rojo-63.png
File197=marker-rojo-64.png
File198=marker-rojo-65.png
File199=marker-rojo-66.png
File2=alert2.png
File20=info_gral.bal
File200=marker-rojo-67.png
File201=marker-rojo-68.png
File202=marker-rojo-69.png
File203=marker-rojo-7.png
File204=marker-rojo-70.png
File205=marker-rojo-71.png
File206=marker-rojo-72.png
File207=marker-rojo-73.png
File208=marker-rojo-74.png
File209=marker-rojo-75.png
File21=infonavit1.jpg
File210=marker-rojo-76.png
File211=marker-rojo-77.png
File212=marker-rojo-78.png
File213=marker-rojo-79.png
File214=marker-rojo-8.png
File215=marker-rojo-80.png
File216=marker-rojo-81.png
File217=marker-rojo-82.png
File218=marker-rojo-83.png
File219=marker-rojo-84.png
File22=itembuttonblue.png
File220=marker-rojo-85.png
File221=marker-rojo-86.png
File222=marker-rojo-87.png
File223=marker-rojo-88.png
File224=marker-rojo-89.png
File225=marker-rojo-9.png
File226=marker-rojo-90.png
File227=marker-rojo-91.png
File228=marker-rojo-92.png
File229=marker-rojo-93.png
File23=k.png
File230=marker-rojo-94.png
File231=marker-rojo-95.png
File232=marker-rojo-96.png
File233=marker-rojo-97.png
File234=marker-rojo-98.png
File235=marker-rojo-99.png
File236=marker-verde-0.png
File237=marker-verde-1.png
File238=marker-verde-10.png
File239=marker-verde-100.png
File24=K-b27c0809.png
File240=marker-verde-11.png
File241=marker-verde-12.png
File242=marker-verde-13.png
File243=marker-verde-14.png
File244=marker-verde-15.png
File245=marker-verde-16.png
File246=marker-verde-17.png
File247=marker-verde-18.png
File248=marker-verde-19.png
File249=marker-verde-2.png
File25=kelloggs.png
File250=marker-verde-20.png
File251=marker-verde-21.png
File252=marker-verde-22.png
File253=marker-verde-23.png
File254=marker-verde-24.png
File255=marker-verde-25.png
File256=marker-verde-26.png
File257=marker-verde-27.png
File258=marker-verde-28.png
File259=marker-verde-29.png
File26=keymon_logo.png
File260=marker-verde-3.png
File261=marker-verde-30.png
File262=marker-verde-31.png
File263=marker-verde-32.png
File264=marker-verde-33.png
File265=marker-verde-34.png
File266=marker-verde-35.png
File267=marker-verde-36.png
File268=marker-verde-37.png
File269=marker-verde-38.png
File27=kmt.db
File270=marker-verde-39.png
File271=marker-verde-4.png
File272=marker-verde-40.png
File273=marker-verde-41.png
File274=marker-verde-42.png
File275=marker-verde-43.png
File276=marker-verde-44.png
File277=marker-verde-45.png
File278=marker-verde-46.png
File279=marker-verde-47.png
File28=login.bal
File280=marker-verde-48.png
File281=marker-verde-49.png
File282=marker-verde-5.png
File283=marker-verde-50.png
File284=marker-verde-51.png
File285=marker-verde-52.png
File286=marker-verde-53.png
File287=marker-verde-54.png
File288=marker-verde-55.png
File289=marker-verde-56.png
File29=logo sanfer.jpg
File290=marker-verde-57.png
File291=marker-verde-58.png
File292=marker-verde-59.png
File293=marker-verde-6.png
File294=marker-verde-60.png
File295=marker-verde-61.png
File296=marker-verde-62.png
File297=marker-verde-63.png
File298=marker-verde-64.png
File299=marker-verde-65.png
File3=alerta.jpg
File30=logo_exitus1.jpg
File300=marker-verde-66.png
File301=marker-verde-67.png
File302=marker-verde-68.png
File303=marker-verde-69.png
File304=marker-verde-7.png
File305=marker-verde-70.png
File306=marker-verde-71.png
File307=marker-verde-72.png
File308=marker-verde-73.png
File309=marker-verde-74.png
File31=Malo.jpg
File310=marker-verde-75.png
File311=marker-verde-76.png
File312=marker-verde-77.png
File313=marker-verde-78.png
File314=marker-verde-79.png
File315=marker-verde-8.png
File316=marker-verde-80.png
File317=marker-verde-81.png
File318=marker-verde-82.png
File319=marker-verde-83.png
File32=mapa.bal
File320=marker-verde-84.png
File321=marker-verde-85.png
File322=marker-verde-86.png
File323=marker-verde-87.png
File324=marker-verde-88.png
File325=marker-verde-89.png
File326=marker-verde-9.png
File327=marker-verde-90.png
File328=marker-verde-91.png
File329=marker-verde-92.png
File33=mapa_rutas.bal
File330=marker-verde-93.png
File331=marker-verde-94.png
File332=marker-verde-95.png
File333=marker-verde-96.png
File334=marker-verde-97.png
File335=marker-verde-98.png
File336=marker-verde-99.png
File337=nopago.bal
File338=nuevocliente.bal
File339=palomita_verde.png
File34=marker-azul-0.png
File340=pedido.bal
File341=planfia_logo.png
File342=planfia_logo_old.png
File343=planfia_logo_old2.png
File344=productos.bal
File345=qr.bal
File346=rechazo.jpg
File347=rojo.png
File348=salma.jpg
File349=salma.png
File35=marker-azul-1.png
File350=seleccion.bal
File351=senial.jpg
File352=sync.png
File353=tache_rojo.png
File354=tarjeta.bal
File355=telefonos.bal
File356=Tiendita.jpg
File357=unilever.jpg
File358=verde.png
File36=marker-azul-10.png
File37=marker-azul-100.png
File38=marker-azul-11.png
File39=marker-azul-12.png
File4=alerta_amarilla.png
File40=marker-azul-13.png
File41=marker-azul-14.png
File42=marker-azul-15.png
File43=marker-azul-16.png
File44=marker-azul-17.png
File45=marker-azul-18.png
File46=marker-azul-19.png
File47=marker-azul-2.png
File48=marker-azul-20.png
File49=marker-azul-21.png
File5=amarillo.png
File50=marker-azul-22.png
File51=marker-azul-23.png
File52=marker-azul-24.png
File53=marker-azul-25.png
File54=marker-azul-26.png
File55=marker-azul-27.png
File56=marker-azul-28.png
File57=marker-azul-29.png
File58=marker-azul-3.png
File59=marker-azul-30.png
File6=anterior.jpg
File60=marker-azul-31.png
File61=marker-azul-32.png
File62=marker-azul-33.png
File63=marker-azul-34.png
File64=marker-azul-35.png
File65=marker-azul-36.png
File66=marker-azul-37.png
File67=marker-azul-38.png
File68=marker-azul-39.png
File69=marker-azul-4.png
File7=buscar.bal
File70=marker-azul-40.png
File71=marker-azul-41.png
File72=marker-azul-42.png
File73=marker-azul-43.png
File74=marker-azul-44.png
File75=marker-azul-45.png
File76=marker-azul-46.png
File77=marker-azul-47.png
File78=marker-azul-48.png
File79=marker-azul-49.png
File8=carrito.png
File80=marker-azul-5.png
File81=marker-azul-50.png
File82=marker-azul-51.png
File83=marker-azul-52.png
File84=marker-azul-53.png
File85=marker-azul-54.png
File86=marker-azul-55.png
File87=marker-azul-56.png
File88=marker-azul-57.png
File89=marker-azul-58.png
File9=celltitle.bal
File90=marker-azul-59.png
File91=marker-azul-6.png
File92=marker-azul-60.png
File93=marker-azul-61.png
File94=marker-azul-62.png
File95=marker-azul-63.png
File96=marker-azul-64.png
File97=marker-azul-65.png
File98=marker-azul-66.png
File99=marker-azul-67.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
FileGroup36=Default Group
FileGroup37=Default Group
FileGroup38=Default Group
FileGroup39=Default Group
FileGroup4=Default Group
FileGroup40=Default Group
FileGroup41=Default Group
FileGroup42=Default Group
FileGroup43=Default Group
FileGroup44=Default Group
FileGroup45=Default Group
FileGroup46=Default Group
FileGroup47=Default Group
FileGroup48=Default Group
FileGroup49=Default Group
FileGroup5=Default Group
FileGroup50=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=358
NumberOfLibraries=30
NumberOfModules=24
Version=11.5
@EndOfDesignText@
#Region  Project Attributes 
	#ApplicationLabel: Durakelo-Venta
	#VersionCode: 1
	#VersionName: 2.58Gi
	'SupportedOrientations possible values: unspecified, landscape or portrait.
	#SupportedOrientations: portrait
	#CanInstallToExternalStorage: False
'''ultimo cambio 2 julio de 2021 por FLZ en queretaro	
	#BridgeLogger: true
	#AdditionalJar: com.android.support:support-v4
	#AdditionalJar: com.google.android.gms:play-services-location
'Sync con Github desktop ide://run?file=%WINDIR%\System32\cmd.exe&Args=/c&Args=github&Args=..\
#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)
	'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
		ToastMessageShow("Error: " & Job.ErrorMessage, True)
	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 = c.GetString("CAT_VA_VALOR")
	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