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