diff --git a/BUSCAR.bas b/BUSCAR.bas index 2423566..3a707ed 100644 --- a/BUSCAR.bas +++ b/BUSCAR.bas @@ -25,15 +25,11 @@ Sub Globals End Sub Sub Activity_Create(FirstTime As Boolean) - If File.ExternalWritable Then - ruta = File.DirDefaultExternal - Else - ruta = File.DirInternal - End If - Activity.LoadLayout("buscar") + ruta = File.DirInternal + Activity.LoadLayout("buscar") ' 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 + '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. If File.Exists(ruta, "kmt.db") = False Then diff --git a/Durakelo_reparto.b4a b/Durakelo_reparto.b4a index f04b602..036e0c6 100644 --- a/Durakelo_reparto.b4a +++ b/Durakelo_reparto.b4a @@ -1,35 +1,36 @@ Build1=Default,dreparto.keymon.com.mx -File1=alert2.png -File10=guna_viejo.png -File11=info_gral.bal -File12=infonavit1.jpg -File13=itembuttonblue.png -File14=keymon_logo.png -File15=kmt.db -File16=login.bal -File17=LOGO SANFER.jpg -File18=logo_exitus1.jpg -File19=Malo.jpg -File2=alerta.jpg -File20=mapa.bal -File21=mapa_rutas.bal -File22=nopago.bal -File23=nuevocliente.bal -File24=pedido.bal -File25=planfia_logo.png -File26=planfia_logo_old.png -File27=planfia_logo_old2.png -File28=seleccion.bal -File29=sync.png -File3=buscar.bal -File30=tarjeta.bal -File31=telefonos.bal -File4=detalle_promo.bal -File5=durakelo1.png -File6=fila.bal -File7=fondo_kmt.jpg -File8=foto.bal -File9=guardagestion.bal +File1=1.bal +File10=guardagestion.bal +File11=guna_viejo.png +File12=info_gral.bal +File13=infonavit1.jpg +File14=itembuttonblue.png +File15=keymon_logo.png +File16=kmt.db +File17=login.bal +File18=LOGO SANFER.jpg +File19=logo_exitus1.jpg +File2=alert2.png +File20=Malo.jpg +File21=mapa.bal +File22=mapa_rutas.bal +File23=nopago.bal +File24=nuevocliente.bal +File25=pedido.bal +File26=planfia_logo.png +File27=planfia_logo_old.png +File28=planfia_logo_old2.png +File29=seleccion.bal +File3=alerta.jpg +File30=sync.png +File31=tarjeta.bal +File32=telefonos.bal +File4=buscar.bal +File5=detalle_promo.bal +File6=durakelo1.png +File7=fila.bal +File8=fondo_kmt.jpg +File9=foto.bal FileGroup1=Default Group FileGroup10=Default Group FileGroup11=Default Group @@ -55,6 +56,7 @@ FileGroup29=Default Group FileGroup3=Default Group FileGroup30=Default Group FileGroup31=Default Group +FileGroup32=Default Group FileGroup4=Default Group FileGroup5=Default Group FileGroup6=Default Group @@ -82,7 +84,7 @@ Library6=core Library7=fusedlocationprovider Library8=googlemaps Library9=googlemapsextras -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~AddManifestText(~\n~~\n~)~\n~AddApplicationText(~\n~~\n~ ~\n~)~\n~AddManifestText(~\n~~\n~)~\n~'''' para el teclado~\n~ SetActivityAttribute(main, android:windowSoftInputMode, adjustResize|stateHidden)~\n~SetServiceAttribute(Tracker, android:foregroundServiceType, "location")~\n~~\n~~\n~~\n~ +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~AddManifestText(~\n~~\n~)~\n~AddApplicationText(~\n~~\n~ ~\n~)~\n~AddManifestText(~\n~~\n~)~\n~'''' para el teclado~\n~ SetActivityAttribute(main, android:windowSoftInputMode, adjustResize|stateHidden)~\n~SetServiceAttribute(Tracker, android:foregroundServiceType, "location")~\n~~\n~SetApplicationAttribute(android:usesCleartextTraffic, "true")~\n~~\n~ Module1=BatteryUtilities Module10=gestion Module11=Historico @@ -104,7 +106,7 @@ Module6=DBRequestManager Module7=detalle_promo Module8=fila Module9=foto -NumberOfFiles=31 +NumberOfFiles=32 NumberOfLibraries=20 NumberOfModules=21 Version=12.5 @@ -112,7 +114,7 @@ Version=12.5 #Region Project Attributes #ApplicationLabel: Durakelo-Reparto #VersionCode: 1 - #VersionName: + #VersionName: 3.11.06 'SupportedOrientations possible values: unspecified, landscape or portrait. #SupportedOrientations: portrait #CanInstallToExternalStorage: False @@ -167,11 +169,7 @@ Sub Globals End Sub Sub Activity_Create(FirstTime As Boolean) - If File.ExternalWritable Then - ruta = File.DirDefaultExternal - Else - ruta = File.DirInternal - End If + ruta = File.DirInternal logger = True ' 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 @@ -193,8 +191,8 @@ Sub Activity_Create(FirstTime As Boolean) End If Activity.LoadLayout("login") Dim P As PhoneId - IMEN.Text = P.GetDeviceId - IMEI = P.GetDeviceId + IMEN.Text = "" 'P.GetDeviceId + IMEI = "" 'P.GetDeviceId skmt.ExecNonQuery("CREATE TABLE IF NOT EXISTS RUTAA (RUTAA TEXT)") diff --git a/Durakelo_reparto.b4a.meta b/Durakelo_reparto.b4a.meta index 2b8a8a2..32faba7 100644 --- a/Durakelo_reparto.b4a.meta +++ b/Durakelo_reparto.b4a.meta @@ -51,7 +51,7 @@ ModuleClosedNodes13= ModuleClosedNodes14= ModuleClosedNodes15= ModuleClosedNodes16=9 -ModuleClosedNodes17=2,3,4,5,7,8,9,10,13,14,15,16,17,18,19,20,21 +ModuleClosedNodes17=13,14,15,16,17,18,19,20,21,22,23 ModuleClosedNodes18= ModuleClosedNodes19= ModuleClosedNodes2= @@ -64,6 +64,6 @@ ModuleClosedNodes6= ModuleClosedNodes7= ModuleClosedNodes8=3,6,8,17,18,19 ModuleClosedNodes9= -NavigationStack=seleccion,Subir_Click,485,0,seleccion,to_number_vb,417,0,seleccion,Activity_Resume,399,0,nopago,Globals,30,0,fila,Activity_Create,149,0,Visual Designer,info_gral.bal,-100,1,fila,Activity_Pause,222,0,fila,Activity_Resume,217,0,fila,GPS_LocationChanged,233,0,Main,Activity_Create,60,0,Main,Process_Globals,21,0 +NavigationStack=seleccion,inv_Click,1071,0,seleccion,e_ruta_EnterPressed,1042,0,seleccion,JobDone,679,0,seleccion,cargar_Click,484,0,seleccion,Subir_Click,436,0,seleccion,trabajar_Click,422,0,seleccion,Activity_Pause,418,0,seleccion,to_number_vb,410,0,seleccion,Activity_Resume,287,0,colonia,Activity_Create,33,0,Main,Activity_Create,81,0 SelectedBuild=0 -VisibleModules=18,21,10,9,12,8,4,14,11,2 +VisibleModules=18,21,10,9,12,8,4,14,11,2,5,7,15,16,17,20,19 diff --git a/Historico.bas b/Historico.bas index fc72ee5..f77faa0 100644 --- a/Historico.bas +++ b/Historico.bas @@ -49,19 +49,14 @@ Sub Activity_Create(FirstTime As Boolean) If(FirstTime) Then g.Initialize("GPS") End If - - If File.ExternalWritable Then - ruta = File.DirDefaultExternal - Else - ruta = File.DirInternal - End If - Activity.LoadLayout("tarjeta") - borra.Visible = False - Titulo.Text = "Pedido" + ruta = File.DirInternal + Activity.LoadLayout("tarjeta") + borra.Visible = False + Titulo.Text = "Pedido" ' 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 + '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. If File.Exists(ruta, "kmt.db") = False Then diff --git a/MAPA_RUTAS.bas b/MAPA_RUTAS.bas index 17b0af6..c0cc702 100644 --- a/MAPA_RUTAS.bas +++ b/MAPA_RUTAS.bas @@ -64,11 +64,7 @@ End Sub Sub Activity_Create(FirstTime As Boolean) Activity.LoadLayout("MAPA_RUTAS") - If File.ExternalWritable Then - ruta = File.DirDefaultExternal - Else - ruta = File.DirInternal - End If + ruta = File.DirInternal If File.Exists(ruta, "kmt.db") = False Then File.Copy(File.DirAssets, "kmt.db", ruta, "kmt.db") End If diff --git a/colonia.bas b/colonia.bas index a73994a..bce6aae 100644 --- a/colonia.bas +++ b/colonia.bas @@ -37,11 +37,7 @@ Sub Activity_Create(FirstTime As Boolean) 'Dim ruta As String entro ="2" ' valido donde escribo el archivo de la base de datos de kmt - If File.ExternalWritable Then - ruta = File.DirDefaultExternal - Else - ruta = File.DirInternal - End If + ruta = File.DirInternal ' 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 diff --git a/colonia2.bas b/colonia2.bas index 9212c7c..d6be3fa 100644 --- a/colonia2.bas +++ b/colonia2.bas @@ -40,12 +40,8 @@ Sub Activity_Create(FirstTime As Boolean) 'Activity.LoadLayout("Layout1") Activity.LoadLayout("fila") 'Dim ruta As String - ' valido donde escribo el archivo de la base de datos de kmt - If File.ExternalWritable Then - ruta = File.DirDefaultExternal - Else - ruta = File.DirInternal - End If + + ruta = File.DirInternal ' 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 diff --git a/detalle_promo.bas b/detalle_promo.bas index f11dfc3..bf01b7a 100644 --- a/detalle_promo.bas +++ b/detalle_promo.bas @@ -33,15 +33,11 @@ Sub Globals End Sub Sub Activity_Create(FirstTime As Boolean) - If File.ExternalWritable Then - ruta = File.DirDefaultExternal - Else - ruta = File.DirInternal - End If - Activity.LoadLayout("detalle_promo") + ruta = File.DirInternal + Activity.LoadLayout("detalle_promo") ' 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 + '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. If File.Exists(ruta, "kmt.db") = False Then diff --git a/fila.bas b/fila.bas index 373b95a..af89543 100644 --- a/fila.bas +++ b/fila.bas @@ -94,12 +94,7 @@ Sub Activity_Create(FirstTime As Boolean) Activity.LoadLayout("info_gral") ' valido donde escribo el archivo de la base de datos de kmt - If File.ExternalWritable Then - ruta = File.DirDefaultExternal - Else - ruta = File.DirInternal - - End If + ruta = File.DirInternal If File.Exists(ruta, "kmt.db") = False Then File.Copy(File.DirAssets, "kmt.db", ruta, "kmt.db") End If diff --git a/foto.bas b/foto.bas index 635ebaf..4da643d 100644 --- a/foto.bas +++ b/foto.bas @@ -35,11 +35,7 @@ Sub Activity_Create(FirstTime As Boolean) g.Initialize("GPS") End If Activity.LoadLayout("foto") - If File.ExternalWritable Then - ruta = File.DirDefaultExternal - Else - ruta = File.DirInternal - End If + ruta = File.DirInternal If File.Exists(ruta, "kmt.db") = False Then File.Copy(File.DirAssets, "kmt.db", ruta, "kmt.db") diff --git a/gestion.bas b/gestion.bas index f2081af..bd31800 100644 --- a/gestion.bas +++ b/gestion.bas @@ -68,11 +68,7 @@ Sub Activity_Create(FirstTime As Boolean) Dim ruta As String ' valido donde escribo el archivo de la base de datos de kmt - If File.ExternalWritable Then - ruta = File.DirDefaultExternal - Else - ruta = File.DirInternal - End If + ruta = File.DirInternal ' 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 diff --git a/nopago.bas b/nopago.bas index e36df75..9da6d1b 100644 --- a/nopago.bas +++ b/nopago.bas @@ -45,14 +45,7 @@ Sub Activity_Create(FirstTime As Boolean) End If Activity.LoadLayout("nopago") - - ' valido donde escribo el archivo de la base de datos de kmt - If File.ExternalWritable Then - ruta = File.DirDefaultExternal - Else - ruta = File.DirInternal - - End If + ruta = File.DirInternal If File.Exists(ruta, "kmt.db") = False Then File.Copy(File.DirAssets, "kmt.db", ruta, "kmt.db") End If diff --git a/nuevocliente.bas b/nuevocliente.bas index 1d60dca..5c11698 100644 --- a/nuevocliente.bas +++ b/nuevocliente.bas @@ -42,14 +42,8 @@ Sub Activity_Create(FirstTime As Boolean) End If Activity.LoadLayout("nuevocliente") - - ' valido donde escribo el archivo de la base de datos de kmt - If File.ExternalWritable Then - ruta = File.DirDefaultExternal - Else - ruta = File.DirInternal - - End If + + ruta = File.DirInternal If File.Exists(ruta, "kmt.db") = False Then File.Copy(File.DirAssets, "kmt.db", ruta, "kmt.db") End If diff --git a/pedidos.bas b/pedidos.bas index b492626..7f1a622 100644 --- a/pedidos.bas +++ b/pedidos.bas @@ -64,13 +64,7 @@ Sub Activity_Create(FirstTime As Boolean) Activity.LoadLayout("pedido") i_fotol.Visible = False - ' valido donde escribo el archivo de la base de datos de kmt - If File.ExternalWritable Then - ruta = File.DirDefaultExternal - Else - ruta = File.DirInternal - - End If + ruta = File.DirInternal If File.Exists(ruta, "kmt.db") = False Then File.Copy(File.DirAssets, "kmt.db", ruta, "kmt.db") End If diff --git a/seleccion.bas b/seleccion.bas index 95e4103..bf373a8 100644 --- a/seleccion.bas +++ b/seleccion.bas @@ -12,10 +12,10 @@ Version=6.8 Sub Process_Globals 'These global variables will be declared once when the application starts. 'These variables can be accessed from all modules. - Dim reqManager As DBRequestManager - Dim conectado As String - Dim skmt As SQL - Dim t1 As Timer + Dim reqManager As DBRequestManager + Dim conectado As String + Dim skmt As SQL + Dim t1 As Timer Dim sb As StringBuilder Dim PHONE As Phone End Sub @@ -23,7 +23,7 @@ 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 trabajar As Button + Dim trabajar As Button Dim c As Cursor Dim d As Cursor @@ -96,8 +96,8 @@ Sub Globals End Sub Sub Activity_Create(FirstTime As Boolean) - EJECUTANDO=1 - If FirstTime Then + EJECUTANDO=1 + If FirstTime Then 'reqManager.Initialize(Me,"http://201.99.139.28:1782") 'reqManager.Initialize(Me,"http://177.244.63.54:1782") reqManager.Initialize(Me,Main.server) @@ -107,29 +107,24 @@ Sub Activity_Create(FirstTime As Boolean) Dim ruta As String img2.Visible =False - ' valido donde escribo el archivo de la base de datos de kmt - If File.ExternalWritable Then - ruta = File.DirDefaultExternal - Else - ruta = File.DirInternal - End If + ruta = File.DirInternal ' 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 + '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. If File.Exists(ruta, "kmt.db") = False Then File.Copy(File.DirAssets, "kmt.db", ruta, "kmt.db") End If DateTime.DateFormat = "MM/dd/yyyy" - fecha=DateTime.Date(DateTime.Now) + fecha=DateTime.Date(DateTime.Now) skmt.Initialize(ruta,"kmt.db", True) b=skmt.ExecQuery("Select count(*) as CUANTOS from pedido_cliente") b.Position=0 Cuantos = b.GetString("CUANTOS") d=skmt.ExecQuery("select count(*) as TOTAL_VISITAR from kmt_info where gestion = 0") D.Position=0 - b.Close + b.Close e=skmt.ExecQuery("select count(*) as POR_VISITAR from kmt_info") e.Position=0 f=skmt.ExecQuery("select count(*) as CAT_CL_RUTA from kmt_info") @@ -145,29 +140,29 @@ Sub Activity_Create(FirstTime As Boolean) f.Close End If If Cuantos = 0 Then - L_MONTOD.Text =0 - l_cuantosc.Text = 0 - l_cuantosn.Text = 0 - drop = 0 - l_drop.Text = 0 - efectiva = 0 - l_efectiva.text =0 - l_ctast.Text = d.GetString("TOTAL_VISITAR") - l_porvisitar.Text = e.GetString("POR_VISITAR") + L_MONTOD.Text =0 + l_cuantosc.Text = 0 + l_cuantosn.Text = 0 + drop = 0 + l_drop.Text = 0 + efectiva = 0 + l_efectiva.text =0 + l_ctast.Text = d.GetString("TOTAL_VISITAR") + l_porvisitar.Text = e.GetString("POR_VISITAR") Else - c=skmt.ExecQuery("select sum(pc_monto) as MONTO_DIA, count(pc_cliente) AS CLIENTES_DIA from pedido_cliente ") - b=skmt.ExecQuery("select count(*) as CUANTOS from noventa") - 'where pc_fecha = ?", Array As String(fecha) - C.Position=0 - b.Position=0 - L_MONTOD.Text = c.GetString("MONTO_DIA") - l_cuantosc.Text = c.GetString("CLIENTES_DIA") - l_cuantosn.Text = b.GetString("CUANTOS") - drop = c.GetString("MONTO_DIA") / c.GetString("CLIENTES_DIA") - l_drop.Text = Round2(drop,2) - efectiva = c.GetString("CLIENTES_DIA") / e.GetString("POR_VISITAR") - l_efectiva.text = Round2(efectiva*100,2) - l_ctast.Text = d.GetString("TOTAL_VISITAR") + c=skmt.ExecQuery("select sum(pc_monto) as MONTO_DIA, count(pc_cliente) AS CLIENTES_DIA from pedido_cliente ") + b=skmt.ExecQuery("select count(*) as CUANTOS from noventa") + 'where pc_fecha = ?", Array As String(fecha) + C.Position=0 + b.Position=0 + L_MONTOD.Text = c.GetString("MONTO_DIA") + l_cuantosc.Text = c.GetString("CLIENTES_DIA") + l_cuantosn.Text = b.GetString("CUANTOS") + drop = c.GetString("MONTO_DIA") / c.GetString("CLIENTES_DIA") + l_drop.Text = Round2(drop,2) + efectiva = c.GetString("CLIENTES_DIA") / e.GetString("POR_VISITAR") + l_efectiva.text = Round2(efectiva*100,2) + l_ctast.Text = d.GetString("TOTAL_VISITAR") l_porvisitar.Text = e.GetString("POR_VISITAR") End If c = skmt.ExecQuery2("select count(CAT_VA_DESCRIPCION) as HoraIngreso from cat_variables where CAT_VA_DESCRIPCION = ? ", Array As String("HoraIngreso")) @@ -200,7 +195,7 @@ End Sub Sub Activity_Resume - c=skmt.ExecQuery("select noversion from version") + c=skmt.ExecQuery("select noversion from version") c.Position=0 HORAINGRESO ="000000" If c.GetString("NOVERSION") <> "2.1" Then @@ -210,28 +205,28 @@ Sub Activity_Resume connecta.Visible = False trabajar.Visible = False BUSCA.Visible = False - inv.Visible = False + inv.Visible = False - End If - c.Close + End If + c.Close If EJECUTANDO =0 Then - Listo1 = 0 - Listo2 = 0 - Listo3 = 0 - Listo4 = 0 - Listo5 = 0 - inve = 0 - img2.Visible =False + Listo1 = 0 + Listo2 = 0 + Listo3 = 0 + Listo4 = 0 + Listo5 = 0 + inve = 0 + img2.Visible =False End If DateTime.DateFormat = "MM/dd/yyyy" - fecha=DateTime.Date(DateTime.Now) + fecha=DateTime.Date(DateTime.Now) b=skmt.ExecQuery("Select count(*) as CUANTOS from kmt_info") b.Position=0 Cuantos = b.GetString("CUANTOS") d=skmt.ExecQuery("select count(*) as TOTAL_VISITAR from kmt_info where gestion = 0") D.Position=0 - b.Close + b.Close e=skmt.ExecQuery("select count(*) as POR_VISITAR from kmt_info") e.Position=0 f=skmt.ExecQuery("select count(*) as CAT_CL_RUTA from kmt_info") @@ -239,51 +234,51 @@ Sub Activity_Resume l_ruta.Text = f.GetString("CAT_CL_RUTA") f.Close If l_ruta.Text = 0 Then - l_ruta.Text =0 + l_ruta.Text =0 Else - f=skmt.ExecQuery("select CAT_CL_RUTA from kmt_info") - f.Position=0 - l_ruta.Text = f.GetString("CAT_CL_RUTA") - f.Close + f=skmt.ExecQuery("select CAT_CL_RUTA from kmt_info") + f.Position=0 + l_ruta.Text = f.GetString("CAT_CL_RUTA") + f.Close End If If Cuantos = 0 Then - L_MONTOD.Text =0 - l_cuantosc.Text = 0 - l_cuantosn.Text = 0 - drop = 0 - l_drop.Text = 0 - efectiva = 0 - l_efectiva.text =0 - cambios.Text = 0 - L_MONTOE.Text = 0 - l_ctast.Text = d.GetString("TOTAL_VISITAR") - l_porvisitar.Text = e.GetString("POR_VISITAR") - d.Close - e.Close + L_MONTOD.Text =0 + l_cuantosc.Text = 0 + l_cuantosn.Text = 0 + drop = 0 + l_drop.Text = 0 + efectiva = 0 + l_efectiva.text =0 + cambios.Text = 0 + L_MONTOE.Text = 0 + l_ctast.Text = d.GetString("TOTAL_VISITAR") + l_porvisitar.Text = e.GetString("POR_VISITAR") + d.Close + e.Close Else - c=skmt.ExecQuery("select sum(hvd_costo_tot) as MONTO_DIA from hist_ventas where hvd_cliente in (select cat_cl_codigo from kmt_info where gestion = 2) ") - f1=skmt.ExecQuery("select sum(hvd_costo_tot) as MONTO_TOTAL_DIA from hist_ventas where hvd_cliente in (select cat_cl_codigo from kmt_info ) AND HVD_ESTATUS <> 2") - f2=skmt.ExecQuery("select sum(REP_COSTO_TOT) as MONTO_REC_DIA FROM REPARTO where REP_cliente in (Select cat_cl_codigo from kmt_info) ") - b=skmt.ExecQuery("select count(*) as CUANTOS from noventa where nv_cliente in (select cat_cl_codigo from kmt_info where gestion = 3)") - L=skmt.ExecQuery("select count(*) as CLIENTES_DIA from noventa where nv_cliente in (select cat_cl_codigo from kmt_info where gestion = 2)") - 'where pc_fecha = ?", Array As String(fecha) - C.Position=0 - b.Position=0 - L.Position=0 - f1.Position=0 - f2.Position=0 - L_MONTOD.Text = to_number_vb (f1.GetString("MONTO_TOTAL_DIA")) - L_MONTOE.Text = to_number_vb (C.GetString("MONTO_DIA")) + c=skmt.ExecQuery("select sum(hvd_costo_tot) as MONTO_DIA from hist_ventas where hvd_cliente in (select cat_cl_codigo from kmt_info where gestion = 2) ") + f1=skmt.ExecQuery("select sum(hvd_costo_tot) as MONTO_TOTAL_DIA from hist_ventas where hvd_cliente in (select cat_cl_codigo from kmt_info ) AND HVD_ESTATUS <> 2") + f2=skmt.ExecQuery("select sum(REP_COSTO_TOT) as MONTO_REC_DIA FROM REPARTO where REP_cliente in (Select cat_cl_codigo from kmt_info) ") + b=skmt.ExecQuery("select count(*) as CUANTOS from noventa where nv_cliente in (select cat_cl_codigo from kmt_info where gestion = 3)") + L=skmt.ExecQuery("select count(*) as CLIENTES_DIA from noventa where nv_cliente in (select cat_cl_codigo from kmt_info where gestion = 2)") + 'where pc_fecha = ?", Array As String(fecha) + C.Position=0 + b.Position=0 + L.Position=0 + f1.Position=0 + f2.Position=0 + L_MONTOD.Text = to_number_vb (f1.GetString("MONTO_TOTAL_DIA")) + L_MONTOE.Text = to_number_vb (C.GetString("MONTO_DIA")) - l_cuantosc.Text = L.GetString("CLIENTES_DIA") - l_cuantosn.Text = b.GetString("CUANTOS") - 'drop = c.GetString("MONTO_DIA") / c.GetString("CLIENTES_DIA") - l_drop.Text = to_number_vb (f1.GetString("MONTO_TOTAL_DIA")) + to_number_vb (f2.GetString("MONTO_REC_DIA")) - 'efectiva = c.GetString("CLIENTES_DIA") / e.GetString("POR_VISITAR") - l_efectiva.text = to_number_vb (f2.GetString("MONTO_REC_DIA")) - l_ctast.Text = d.GetString("TOTAL_VISITAR") - l_porvisitar.Text = e.GetString("POR_VISITAR") - c.Close + l_cuantosc.Text = L.GetString("CLIENTES_DIA") + l_cuantosn.Text = b.GetString("CUANTOS") + 'drop = c.GetString("MONTO_DIA") / c.GetString("CLIENTES_DIA") + l_drop.Text = to_number_vb (f1.GetString("MONTO_TOTAL_DIA")) + to_number_vb (f2.GetString("MONTO_REC_DIA")) + 'efectiva = c.GetString("CLIENTES_DIA") / e.GetString("POR_VISITAR") + l_efectiva.text = to_number_vb (f2.GetString("MONTO_REC_DIA")) + l_ctast.Text = d.GetString("TOTAL_VISITAR") + l_porvisitar.Text = e.GetString("POR_VISITAR") + c.Close b.Close c=skmt.ExecQuery2("select count(*) as CUANTOS from CAT_VARIABLES where CAT_VA_DESCRIPCION = ? ", Array As String("CAMBIOS")) c.Position=0 @@ -296,22 +291,20 @@ Sub Activity_Resume b.Close End If c.Close - + End If c=skmt.ExecQuery("select ID_ALMACEN from CAT_ALMACEN") C.Position =0 ALMACEN = C.GetString("ID_ALMACEN") C.Close -c=skmt.ExecQuery("select HGDATE, HGLAT, HGLON from HIST_GPS") - - - -'' HACER ESTO PARA EL FORANEO -'If c.RowCount>0 Then -'For i=0 To c.RowCount -1 + c=skmt.ExecQuery("select HGDATE, HGLAT, HGLON from HIST_GPS") + + '' HACER ESTO PARA EL FORANEO + 'If c.RowCount>0 Then + 'For i=0 To c.RowCount -1 ' c.Position=i -'' s=skmt.ExecQuery2("SELECT HIST_VI_IMAGEN FROM HIST_VISITAS WHERE HIST_VI_CREDITO =?", Array As String (c.GetString("HIST_VI_CREDITO"))) -'' s.Position =0 + '' s=skmt.ExecQuery2("SELECT HIST_VI_IMAGEN FROM HIST_VISITAS WHERE HIST_VI_CREDITO =?", Array As String (c.GetString("HIST_VI_CREDITO"))) + '' s.Position =0 ' ' Dim cmd As DBCommand ' cmd.Initialize @@ -320,31 +313,31 @@ c=skmt.ExecQuery("select HGDATE, HGLAT, HGLON from HIST_GPS") ' 'cmd.Parameters = Array As Object(C.GetString("HGDATE"),C.GetString("HGLAT"),C.GetString("HGLON") ) ' ' reqManager.ExecuteQuery(cmd , 0, "inst_visitas") -' + ' ' -'Next -'End If + 'Next + 'End If ' -bu.Initialize -batterystatus = bu.BatteryInformation + bu.Initialize + batterystatus = bu.BatteryInformation ' Main.batt = bu.BatteryInformation -c=skmt.ExecQuery("select usuario from usuarioa") -c.Position = 0 -usuario = c.GetString("USUARIO") -c.Close + c=skmt.ExecQuery("select usuario from usuarioa") + c.Position = 0 + usuario = c.GetString("USUARIO") + c.Close -c=skmt.ExecQuery("select RUTAA from RUTAA") -c.Position = 0 -If c.RowCount > 0 Then - RUTA_T = c.GetString("RUTAA") -Else - RUTA_T = 0 -End If -c.Close + c=skmt.ExecQuery("select RUTAA from RUTAA") + c.Position = 0 + If c.RowCount > 0 Then + RUTA_T = c.GetString("RUTAA") + Else + RUTA_T = 0 + End If + c.Close -'sb.Initialize + 'sb.Initialize ' PHONE.Shell("ping -c1 keymon.com.mx",Null, sb,Null) -' + ' ' c = skmt.ExecQuery2("select count(CAT_VA_DESCRIPCION) as HoraIngreso from cat_variables where CAT_VA_DESCRIPCION = ? ", Array As String("HoraIngreso")) ' c.Position = 0 ' @@ -356,11 +349,11 @@ c.Close ' d2.Close ' End If ' DateTime.TimeFormat = "HHmmss" -' + ' ' If HORAINGRESO + 500 < DateTime.Time(DateTime.Now) Then -' -' -'If sb.Length > 2 Then + ' + ' + 'If sb.Length > 2 Then ' c=skmt.ExecQuery("select HGDATE, HGLAT, HGLON from HIST_GPS") ' ' If c.RowCount>0 Then @@ -369,12 +362,12 @@ c.Close ' ' s=skmt.ExecQuery2("SELECT HIST_VI_IMAGEN FROM HIST_VISITAS WHERE HIST_VI_CREDITO =?", Array As String (c.GetString("HIST_VI_CREDITO"))) ' ' s.Position =0 ' -'' Dim cmd As DBCommand -'' cmd.Initialize -'' cmd.Name = "insert_gps_actual_GUNA" -'' cmd.Parameters = Array As Object(c.GetString("hglat"),c.GetString("hglon"),usuario,ALMACEN,l_ruta.Text ) -'' 'cmd.Parameters = Array As Object(C.GetString("HGDATE"),C.GetString("HGLAT"),C.GetString("HGLON") ) -'' + '' Dim cmd As DBCommand + '' cmd.Initialize + '' cmd.Name = "insert_gps_actual_GUNA" + '' cmd.Parameters = Array As Object(c.GetString("hglat"),c.GetString("hglon"),usuario,ALMACEN,l_ruta.Text ) + '' 'cmd.Parameters = Array As Object(C.GetString("HGDATE"),C.GetString("HGLAT"),C.GetString("HGLON") ) + '' ' ' reqManager.ExecuteQuery(cmd , 0, "inst_visitas") ' ' Dim cmd As DBCommand @@ -404,100 +397,87 @@ c.Close Main.Montosalida = L_MONTOD.Text Main.ALMACEN = ALMACEN Main.rutapreventa = RUTA_T - Main.clientestotal = l_cuantosc.Text + l_cuantosn.Text Main.clientesventa = l_cuantosn.Text Main.clientesvisitados = l_porvisitar.TEXT 'l_cuantosc.Text End Sub -Sub to_number_vb (valor As Object) As String -Dim valstring As Int -Dim valstring2 As String = valor -valstring2.Replace(":","") -Try -valstring =valstring2.Replace(":","") -Return valstring -Catch -Return 0 -End Try +Sub to_number_vb (valor As Object) As String + Dim valstring As Int + Dim valstring2 As String = valor + valstring2.Replace(":","") + Try + valstring =valstring2.Replace(":","") + Return valstring + Catch + Return 0 + End Try End Sub Sub Activity_Pause (UserClosed As Boolean) -cargar.Visible = False + cargar.Visible = False Subir.Visible = False connecta.Visible = True - inv.Visible = False - + inv.Visible = False End Sub + Sub trabajar_Click 'CallSubDelayed(gestion,"gestion") skmt.ExecNonQuery("UPDATE PUNTEO_GPS SET HV_LONG= (select CAT_CL_LONG from KMT_INFO where CAT_CL_CODIGO = PUNTEO_GPS.HV_CLIENTE) , HV_LAT= (select CAT_CL_LAT from KMT_INFO where CAT_CL_CODIGO = PUNTEO_GPS.HV_CLIENTE) WHERE HV_LONG ='null' and HV_LAT='null' ") - StartActivity(colonia) - End Sub - Sub Subir_Click -c=skmt.ExecQuery("select usuario from usuarioa") - c.Position = 0 - usuario = c.GetString("USUARIO") + c=skmt.ExecQuery("select usuario from usuarioa") + c.Position = 0 + usuario = c.GetString("USUARIO") c.Close 'reparto rechazo REP_CLIENTE, REP_PRONOMBRE, REP_CANT, REP_COSTO_TOT c=skmt.ExecQuery("SELECT REP_CLIENTE, REP_PRONOMBRE, REP_CANT, REP_COSTO_TOT, REP_FECHA FROM REPARTO") - - If c.RowCount>0 Then - For i=0 To c.RowCount -1 - c.Position=i - - Dim cmd As DBCommand - cmd.Initialize + If c.RowCount>0 Then + For i=0 To c.RowCount -1 + c.Position=i + Dim cmd As DBCommand + cmd.Initialize cmd.Name = "insert_reparto_rechazo_dur" ' cmd.Parameters = Array As Object(C.GetString("REP_CLIENTE"),C.GetString("REP_PRONOMBRE"),C.GetString("REP_CANT"),C.GetString("REP_COSTO_TOT"),C.GetString("REP_FECHA"), ALMACEN) + cmd.Parameters = Array As Object(C.GetString("REP_CLIENTE"),C.GetString("REP_PRONOMBRE"),C.GetString("REP_CANT"),C.GetString("REP_COSTO_TOT"), ALMACEN) + reqManager.ExecuteQuery(cmd , 0, "inst_noventa") + Next + c.Close + End If - cmd.Parameters = Array As Object(C.GetString("REP_CLIENTE"),C.GetString("REP_PRONOMBRE"),C.GetString("REP_CANT"),C.GetString("REP_COSTO_TOT"), ALMACEN) - reqManager.ExecuteQuery(cmd , 0, "inst_noventa") - - Next - c.Close - End If - - ' NOVENTA c=skmt.ExecQuery("SELECT NV_CLIENTE,NV_FECHA,NV_USER,NV_MOTIVO,NV_COMM,NV_LAT,NV_LON, NV_FOTO FROM NOVENTA") D=skmt.ExecQuery("SELECT COUNT(*) AS CUANTOS_NOVENTA FROM NOVENTA") - If c.RowCount>0 Then - For i=0 To c.RowCount -1 - c.Position=i - foto1 = c.GetBlob("NV_FOTO") - - Dim cmd As DBCommand - cmd.Initialize - cmd.Name = "insert_reparto_dur" - cmd.Parameters = Array As Object(C.GetString("NV_CLIENTE"),C.GetString("NV_FECHA"),C.GetString("NV_USER"),C.GetString("NV_MOTIVO"),C.GetString("NV_COMM"),C.GetString("NV_LAT"),C.GetString("NV_LON"), ALMACEN, l_ruta.Text, foto1) - reqManager.ExecuteQuery(cmd , 0, "inst_noventa") - - Next - c.Close - End If + If c.RowCount>0 Then + For i=0 To c.RowCount -1 + c.Position=i + foto1 = c.GetBlob("NV_FOTO") + Dim cmd As DBCommand + cmd.Initialize + cmd.Name = "insert_reparto_dur" + cmd.Parameters = Array As Object(C.GetString("NV_CLIENTE"),C.GetString("NV_FECHA"),C.GetString("NV_USER"),C.GetString("NV_MOTIVO"),C.GetString("NV_COMM"),C.GetString("NV_LAT"),C.GetString("NV_LON"), ALMACEN, l_ruta.Text, foto1) + reqManager.ExecuteQuery(cmd , 0, "inst_noventa") + Next + c.Close + End If d.Position=0 - cuantos_noventa = D.GetString("CUANTOS_NOVENTA") + cuantos_noventa = D.GetString("CUANTOS_NOVENTA") d.Close - - ToastMessageShow("Se Actualizaran los datos, Este proceso podria tardar hasta un minuto, gracias "& l_ruta.text , True) - - + ToastMessageShow("Se Actualizaran los datos, Este proceso podria tardar hasta un minuto, gracias "& l_ruta.text , True) End Sub + Sub cargar_Click - img2.Visible =True + img2.Visible =True EJECUTANDO = 1 - 'c=skmt.ExecQuery("CREATE TABLE kmt_info (pr_cd_credito NUMERIC,pr_cd_nombre TEXT,pr_cd_calle TEXT,pr_cd_numero TEXT,pr_cd_num_int TEXT,pr_cd_entrecalle1 TEXT,pr_cd_entrecalle2 TEXT,pr_cd_colonia TEXT,pr_cd_poblacion TEXT,pr_cd_edo TEXT,pr_cd_cp TEXT,pr_cd_zona TEXT,pr_cf_credito NUMERIC,pr_cf_saldotot NUMERIC,pr_cf_saldooper NUMERIC,pr_cf_saldof1 NUMERIC, pr_cf_penalizacion NUMERIC)") - TOPE = 0 + 'c=skmt.ExecQuery("CREATE TABLE kmt_info (pr_cd_credito NUMERIC,pr_cd_nombre TEXT,pr_cd_calle TEXT,pr_cd_numero TEXT,pr_cd_num_int TEXT,pr_cd_entrecalle1 TEXT,pr_cd_entrecalle2 TEXT,pr_cd_colonia TEXT,pr_cd_poblacion TEXT,pr_cd_edo TEXT,pr_cd_cp TEXT,pr_cd_zona TEXT,pr_cf_credito NUMERIC,pr_cf_saldotot NUMERIC,pr_cf_saldooper NUMERIC,pr_cf_saldof1 NUMERIC, pr_cf_penalizacion NUMERIC)") + TOPE = 0 ' NUEVOS CLIENTE - + skmt.ExecNonQuery("delete from kmt_info") skmt.ExecNonQuery("delete from cod_result") skmt.ExecNonQuery("delete from hist_gest") @@ -509,18 +489,18 @@ Sub cargar_Click skmt.ExecNonQuery("delete from PUNTEO_GPS") c=skmt.ExecQuery("select usuario from usuarioa") - c.Position = 0 + c.Position = 0 usuario = c.GetString("USUARIO") -'' para el drop --- Se comenta hasta tener los campos + '' para el drop --- Se comenta hasta tener los campos ' Dim cmd As DBCommand ' cmd.Initialize ' cmd.Name ="insert_drop2_DUR" ' cmd.Parameters = Array As Object(usuario,l_ruta.Text,fecha, l_porvisitar.Text,l_drop.Text,l_efectiva.Text,l_cuantosc.Text,l_cuantosn.Text, L_MONTOD.Text,"ENVIO", ALMACEN, L_VENTA.Text, L_PREVENTA.Text, L_ABORDO.Text, l_cambios.TEXT) ' reqManager.ExecuteQuery(cmd , 0, "inst_noventa") - ''- --------- + ''- --------- 'cmd.Initialize @@ -528,68 +508,57 @@ Sub cargar_Click 'reqManager.ExecuteQuery(cmd,0,"count_cli") If ALMACEN = "5" Or ALMACEN ="6" Or ALMACEN = "3" Then - - cmd.Initialize - cmd.Name = "select_punteo_re_DUR2" - cmd.Parameters = Array As Object(e_ruta.text, ALMACEN,ALMACEN,ALMACEN) - reqManager.ExecuteQuery(cmd , 0, "punteo") - + cmd.Initialize + cmd.Name = "select_punteo_re_DUR2" + cmd.Parameters = Array As Object(e_ruta.text, ALMACEN,ALMACEN,ALMACEN) + reqManager.ExecuteQuery(cmd , 0, "punteo") + cmd.Initialize + cmd.Name = "select_almacen_guna_re_dur2" + cmd.Parameters = Array As Object(e_ruta.text, ALMACEN) + reqManager.ExecuteQuery(cmd , 0, "gunaprod") + + cmd.Initialize + cmd.Name = "select_almacen_guna_re_dur2" + cmd.Parameters = Array As Object(e_ruta.text, ALMACEN) + reqManager.ExecuteQuery(cmd , 0, "gunaprod") + + cmd.Initialize + cmd.Name = "select_reparto_entrega_DUR2" + cmd.Parameters = Array As Object(e_ruta.text, ALMACEN) + reqManager.ExecuteQuery(cmd , 0, "rechazo") + + cmd.Initialize + cmd.Name = "select_cliente_guna_re_dur2" + cmd.Parameters = Array As Object(e_ruta.text, ALMACEN,ALMACEN,ALMACEN,e_ruta.text, ALMACEN,ALMACEN) + reqManager.ExecuteQuery(cmd , 0, "kmt_datos") - cmd.Initialize - cmd.Name = "select_almacen_guna_re_dur2" - cmd.Parameters = Array As Object(e_ruta.text, ALMACEN) - reqManager.ExecuteQuery(cmd , 0, "gunaprod") - - cmd.Initialize - cmd.Name = "select_almacen_guna_re_dur2" - cmd.Parameters = Array As Object(e_ruta.text, ALMACEN) - reqManager.ExecuteQuery(cmd , 0, "gunaprod") - - cmd.Initialize - cmd.Name = "select_reparto_entrega_DUR2" - cmd.Parameters = Array As Object(e_ruta.text, ALMACEN) - reqManager.ExecuteQuery(cmd , 0, "rechazo") - - - - cmd.Initialize - cmd.Name = "select_cliente_guna_re_dur2" - cmd.Parameters = Array As Object(e_ruta.text, ALMACEN,ALMACEN,ALMACEN,e_ruta.text, ALMACEN,ALMACEN) - reqManager.ExecuteQuery(cmd , 0, "kmt_datos") - - cmd.Initialize - cmd.Name = "select_ventad_guna_re_dur2" - cmd.Parameters = Array As Object(e_ruta.text, ALMACEN) - reqManager.ExecuteQuery(cmd , 0, "hist_datos") + cmd.Initialize + cmd.Name = "select_ventad_guna_re_dur2" + cmd.Parameters = Array As Object(e_ruta.text, ALMACEN) + reqManager.ExecuteQuery(cmd , 0, "hist_datos") 'reparto rechazo REP_CLIENTE, REP_PRONOMBRE, REP_CANT, REP_COSTO_TOT - Else - cmd.Initialize cmd.Name = "select_punteo_re_DUR" cmd.Parameters = Array As Object(e_ruta.text, ALMACEN,ALMACEN,ALMACEN) reqManager.ExecuteQuery(cmd , 0, "punteo") - - cmd.Initialize cmd.Name = "select_almacen_guna_re_dur" cmd.Parameters = Array As Object(e_ruta.text, ALMACEN) reqManager.ExecuteQuery(cmd , 0, "gunaprod") - + cmd.Initialize cmd.Name = "select_almacen_guna_re_dur" cmd.Parameters = Array As Object(e_ruta.text, ALMACEN) reqManager.ExecuteQuery(cmd , 0, "gunaprod") - + cmd.Initialize cmd.Name = "select_reparto_entrega_DUR" cmd.Parameters = Array As Object(e_ruta.text, ALMACEN) reqManager.ExecuteQuery(cmd , 0, "rechazo") - - - + cmd.Initialize cmd.Name = "select_cliente_guna_re_dur" cmd.Parameters = Array As Object(e_ruta.text, ALMACEN,ALMACEN,ALMACEN,e_ruta.text, ALMACEN,ALMACEN) @@ -601,223 +570,184 @@ Sub cargar_Click reqManager.ExecuteQuery(cmd , 0, "hist_datos") 'reparto rechazo REP_CLIENTE, REP_PRONOMBRE, REP_CANT, REP_COSTO_TO End If - - - - - c=skmt.ExecQuery("SELECT REP_CLIENTE, REP_PRONOMBRE, REP_CANT, REP_COSTO_TOT, REP_FECHA FROM REPARTO") - - If c.RowCount>0 Then - For i=0 To c.RowCount -1 - c.Position=i - - Dim cmd As DBCommand - cmd.Initialize - cmd.Name = "insert_reparto_rechazo" - cmd.Parameters = Array As Object(C.GetString("REP_CLIENTE"),C.GetString("REP_PRONOMBRE"),C.GetString("REP_CANT"),C.GetString("REP_COSTO_TOT"),C.GetString("REP_FECHA"), ALMACEN) - reqManager.ExecuteQuery(cmd , 0, "inst_noventa") - Next - c.Close - End If + c=skmt.ExecQuery("SELECT REP_CLIENTE, REP_PRONOMBRE, REP_CANT, REP_COSTO_TOT, REP_FECHA FROM REPARTO") + + If c.RowCount>0 Then + For i=0 To c.RowCount -1 + c.Position=i + Dim cmd As DBCommand + cmd.Initialize + cmd.Name = "insert_reparto_rechazo" + cmd.Parameters = Array As Object(C.GetString("REP_CLIENTE"),C.GetString("REP_PRONOMBRE"),C.GetString("REP_CANT"),C.GetString("REP_COSTO_TOT"),C.GetString("REP_FECHA"), ALMACEN) + reqManager.ExecuteQuery(cmd , 0, "inst_noventa") + Next + c.Close + End If ' NOVENTA c=skmt.ExecQuery("SELECT NV_CLIENTE,NV_FECHA,NV_USER,NV_MOTIVO,NV_COMM,NV_LAT,NV_LON, NV_FOTO FROM NOVENTA") D=skmt.ExecQuery("SELECT COUNT(*) AS CUANTOS_NOVENTA FROM NOVENTA") - If c.RowCount>0 Then - For i=0 To c.RowCount -1 - c.Position=i - foto1 = c.GetBlob("NV_FOTO") - - Dim cmd As DBCommand - cmd.Initialize - cmd.Name = "insert_reparto" - cmd.Parameters = Array As Object(C.GetString("NV_CLIENTE"),C.GetString("NV_FECHA"),C.GetString("NV_USER"),C.GetString("NV_MOTIVO"),C.GetString("NV_COMM"),C.GetString("NV_LAT"),C.GetString("NV_LON"), ALMACEN, l_ruta.Text, foto1) - reqManager.ExecuteQuery(cmd , 0, "inst_noventa") - - Next - c.Close - End If + If c.RowCount>0 Then + For i=0 To c.RowCount -1 + c.Position=i + foto1 = c.GetBlob("NV_FOTO") + Dim cmd As DBCommand + cmd.Initialize + cmd.Name = "insert_reparto" + cmd.Parameters = Array As Object(C.GetString("NV_CLIENTE"),C.GetString("NV_FECHA"),C.GetString("NV_USER"),C.GetString("NV_MOTIVO"),C.GetString("NV_COMM"),C.GetString("NV_LAT"),C.GetString("NV_LON"), ALMACEN, l_ruta.Text, foto1) + reqManager.ExecuteQuery(cmd , 0, "inst_noventa") + Next + c.Close + End If d.Position=0 - cuantos_noventa = D.GetString("CUANTOS_NOVENTA") + cuantos_noventa = D.GetString("CUANTOS_NOVENTA") d.Close - - - - cargar.Visible = False Subir.Visible = False connecta.Visible = True - inv.Visible = False + inv.Visible = False 'Dim cmd As DBCommand 'cmd.Initialize 'cmd.Name = "select_telefonos_riva" 'cmd.Parameters = Array As Object(usuario) 'reqManager.ExecuteQuery(cmd , 0, "telefonos") - - - ToastMessageShow("Se Actualizaran los datos, Este proceso podria tardar hasta un minuto, gracias" , True) 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 = "kmt_datos" Then 'query tag - For Each records() As Object In RESULT.Rows - Dim CAT_CL_CODIGO As String = records(RESULT.Columns.Get("CAT_CL_CODIGO")) - Dim CAT_CL_RUTA As String = records(RESULT.Columns.Get("CAT_CL_RUTA")) - Dim CAT_CL_NOMBRE As String = records(RESULT.Columns.Get("CAT_CL_NOMBRE")) - Dim CAT_CL_ATIENDE1 As String = records(RESULT.Columns.Get("CAT_CL_ATIENDE1")) - Dim CAT_CL_ATIENTE2 As String = records(RESULT.Columns.Get("CAT_CL_ATIENTE2")) - Dim CAT_CL_TELEFONO As String = records(RESULT.Columns.Get("CAT_CL_TELEFONO")) - Dim CAT_CL_EMAIL As String = records(RESULT.Columns.Get("CAT_CL_EMAIL")) - Dim CAT_CL_CALLE As String = records(RESULT.Columns.Get("CAT_CL_CALLE")) - Dim CAT_CL_NOEXT As String = records(RESULT.Columns.Get("CAT_CL_NOEXT")) - Dim CAT_CL_NOINT As String = records(RESULT.Columns.Get("CAT_CL_NOINT")) - Dim CAT_CL_CALLE1 As String = records(RESULT.Columns.Get("CAT_CL_CALLE1")) - Dim CAT_CL_CALLE2 As String = records(RESULT.Columns.Get("CAT_CL_CALLE2")) - Dim CAT_CL_COLONIA As String = records(RESULT.Columns.Get("CAT_CL_COLONIA")) - Dim CAT_CL_MUNI As String = records(RESULT.Columns.Get("CAT_CL_MUNI")) - Dim CAT_CL_EDO As String = records(RESULT.Columns.Get("CAT_CL_EDO")) - Dim CAT_CL_CP As String = records(RESULT.Columns.Get("CAT_CL_CP")) - Dim CAT_CL_LONG As String = records(RESULT.Columns.Get("CAT_CL_LONG")) + If Job.JobName = "DBRequest" Then + Dim RESULT As DBResult = reqManager.HandleJob(Job) + If RESULT.Tag = "kmt_datos" Then 'query tag + For Each records() As Object In RESULT.Rows + Dim CAT_CL_CODIGO As String = records(RESULT.Columns.Get("CAT_CL_CODIGO")) + Dim CAT_CL_RUTA As String = records(RESULT.Columns.Get("CAT_CL_RUTA")) + Dim CAT_CL_NOMBRE As String = records(RESULT.Columns.Get("CAT_CL_NOMBRE")) + Dim CAT_CL_ATIENDE1 As String = records(RESULT.Columns.Get("CAT_CL_ATIENDE1")) + Dim CAT_CL_ATIENTE2 As String = records(RESULT.Columns.Get("CAT_CL_ATIENTE2")) + Dim CAT_CL_TELEFONO As String = records(RESULT.Columns.Get("CAT_CL_TELEFONO")) + Dim CAT_CL_EMAIL As String = records(RESULT.Columns.Get("CAT_CL_EMAIL")) + Dim CAT_CL_CALLE As String = records(RESULT.Columns.Get("CAT_CL_CALLE")) + Dim CAT_CL_NOEXT As String = records(RESULT.Columns.Get("CAT_CL_NOEXT")) + Dim CAT_CL_NOINT As String = records(RESULT.Columns.Get("CAT_CL_NOINT")) + Dim CAT_CL_CALLE1 As String = records(RESULT.Columns.Get("CAT_CL_CALLE1")) + Dim CAT_CL_CALLE2 As String = records(RESULT.Columns.Get("CAT_CL_CALLE2")) + Dim CAT_CL_COLONIA As String = records(RESULT.Columns.Get("CAT_CL_COLONIA")) + Dim CAT_CL_MUNI As String = records(RESULT.Columns.Get("CAT_CL_MUNI")) + Dim CAT_CL_EDO As String = records(RESULT.Columns.Get("CAT_CL_EDO")) + Dim CAT_CL_CP As String = records(RESULT.Columns.Get("CAT_CL_CP")) + Dim CAT_CL_LONG As String = records(RESULT.Columns.Get("CAT_CL_LONG")) Dim CAT_CL_LAT As String = records(RESULT.Columns.Get("CAT_CL_LAT")) Dim CAT_CL_BCREDITO As String = records(RESULT.Columns.Get("CAT_CL_BCREDITO")) + skmt.ExecNonQuery2("INSERT INTO kmt_info(CAT_CL_CODIGO,CAT_CL_RUTA,CAT_CL_NOMBRE,CAT_CL_ATIENDE1,CAT_CL_ATIENTE2,CAT_CL_TELEFONO,CAT_CL_EMAIL,CAT_CL_CALLE,CAT_CL_NOEXT,CAT_CL_NOINT,CAT_CL_CALLE1,CAT_CL_CALLE2,CAT_CL_COLONIA,CAT_CL_MUNI,CAT_CL_EDO,CAT_CL_CP,CAT_CL_LONG,CAT_CL_LAT,CAT_CL_BCREDITO, gestion) VALUES (?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,0)", Array As Object (CAT_CL_CODIGO,CAT_CL_RUTA,CAT_CL_NOMBRE,CAT_CL_ATIENDE1,CAT_CL_ATIENTE2,CAT_CL_TELEFONO,CAT_CL_EMAIL,CAT_CL_CALLE,CAT_CL_NOEXT,CAT_CL_NOINT,CAT_CL_CALLE1,CAT_CL_CALLE2,CAT_CL_COLONIA,CAT_CL_MUNI,CAT_CL_EDO,CAT_CL_CP,CAT_CL_LONG,CAT_CL_LAT,CAT_CL_BCREDITO)) + Next + Listo1 = 1 + If Listo1 =1 And Listo3 = 1 Then + ToastMessageShow("Datos Actualizados." , True) + Activity_Resume + img2.Visible=False + EJECUTANDO=0 + End If + End If + End If - - skmt.ExecNonQuery2("INSERT INTO kmt_info(CAT_CL_CODIGO,CAT_CL_RUTA,CAT_CL_NOMBRE,CAT_CL_ATIENDE1,CAT_CL_ATIENTE2,CAT_CL_TELEFONO,CAT_CL_EMAIL,CAT_CL_CALLE,CAT_CL_NOEXT,CAT_CL_NOINT,CAT_CL_CALLE1,CAT_CL_CALLE2,CAT_CL_COLONIA,CAT_CL_MUNI,CAT_CL_EDO,CAT_CL_CP,CAT_CL_LONG,CAT_CL_LAT,CAT_CL_BCREDITO, gestion) VALUES (?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,0)", Array As Object (CAT_CL_CODIGO,CAT_CL_RUTA,CAT_CL_NOMBRE,CAT_CL_ATIENDE1,CAT_CL_ATIENTE2,CAT_CL_TELEFONO,CAT_CL_EMAIL,CAT_CL_CALLE,CAT_CL_NOEXT,CAT_CL_NOINT,CAT_CL_CALLE1,CAT_CL_CALLE2,CAT_CL_COLONIA,CAT_CL_MUNI,CAT_CL_EDO,CAT_CL_CP,CAT_CL_LONG,CAT_CL_LAT,CAT_CL_BCREDITO)) - - Next - Listo1 = 1 - If Listo1 =1 And Listo3 = 1 Then - ToastMessageShow("Datos Actualizados." , True) - Activity_Resume - img2.Visible=False - EJECUTANDO=0 - End If - - End If - - End If - - - If Job.JobName = "DBRequest" Then - Dim RESULT As DBResult = reqManager.HandleJob(Job) - If RESULT.Tag = "gunaprod" Then 'query tag - For Each records() As Object In RESULT.Rows + If Job.JobName = "DBRequest" Then + Dim RESULT As DBResult = reqManager.HandleJob(Job) + If RESULT.Tag = "gunaprod" Then 'query tag + For Each records() As Object In RESULT.Rows + Dim CAT_GP_ID As String = records(RESULT.Columns.Get("CAT_GP_ID")) + Dim CAT_GP_NOMBRE As String = records(RESULT.Columns.Get("CAT_GP_NOMBRE")) + Dim CAT_GP_IMP1 As String = records(RESULT.Columns.Get("CAT_GP_IMP1")) + Dim CAT_GP_IMP2 As String = records(RESULT.Columns.Get("CAT_GP_IMP2")) + Dim CAT_GP_PRECIO As String = records(RESULT.Columns.Get("CAT_GP_PRECIO")) + Dim CAT_GP_CLASIF As String = records(RESULT.Columns.Get("CAT_GP_CLASIF")) + Dim CAT_GP_STS As String = records(RESULT.Columns.Get("CAT_GP_STS")) + Dim CAT_GP_TIPO As String = records(RESULT.Columns.Get("CAT_GP_TIPO")) + Dim CAT_GP_SUBTIPO As String = records(RESULT.Columns.Get("CAT_GP_SUBTIPO")) + Dim CAT_GP_IMG() As Byte = records(RESULT.Columns.Get("CAT_GP_IMG")) + 'Dim CAT_GP_ALMACEN As Int = records(RESULT.Columns.Get("CAT_GP_ALMACEN")) + ' Dim CAT_GP_DEV As String = records(RESULT.Columns.Get("CAT_GP_DEV")) + ' skmt.ExecNonQuery2("INSERT INTO CAT_GUNAPROD(CAT_GP_ID,CAT_GP_NOMBRE,CAT_GP_IMP1,CAT_GP_IMP2,CAT_GP_PRECIO,CAT_GP_CLASIF,CAT_GP_STS,CAT_GP_TIPO,CAT_GP_SUBTIPO,CAT_GP_IMG,CAT_GP_ALMACEN,CAT_GP_DEV) VALUES (?,?,?,?,?,?,?,?,?,?,?,?)", Array As Object (CAT_GP_ID,CAT_GP_NOMBRE,CAT_GP_IMP1,CAT_GP_IMP2,CAT_GP_PRECIO,CAT_GP_CLASIF,CAT_GP_STS,CAT_GP_TIPO,CAT_GP_SUBTIPO,CAT_GP_IMG, CAT_GP_ALMACEN,CAT_GP_DEV)) + skmt.ExecNonQuery2("INSERT INTO CAT_GUNAPROD(CAT_GP_ID,CAT_GP_NOMBRE,CAT_GP_IMP1,CAT_GP_IMP2,CAT_GP_PRECIO,CAT_GP_CLASIF,CAT_GP_STS,CAT_GP_TIPO,CAT_GP_SUBTIPO,CAT_GP_IMG,CAT_GP_ALMACEN) VALUES (?,?,?,?,?,?,?,?,?,?,?)", Array As Object (CAT_GP_ID,CAT_GP_NOMBRE,CAT_GP_IMP1,CAT_GP_IMP2,CAT_GP_PRECIO,CAT_GP_CLASIF,CAT_GP_STS,CAT_GP_TIPO,CAT_GP_SUBTIPO,CAT_GP_IMG, 0)) + Next + Listo2=1 + If Listo1 =1 And Listo2 =1 And Listo3 = 1 And Listo4 = 1 Then + ToastMessageShow("Datos Actualizados." , True) + Activity_Resume + img2.Visible=False + EJECUTANDO=0 + End If + End If + End If + + If Job.JobName = "DBRequest" Then + Dim RESULT As DBResult = reqManager.HandleJob(Job) + If RESULT.Tag = "gunaprodp" Then 'query tag + For Each records() As Object In RESULT.Rows - Dim CAT_GP_ID As String = records(RESULT.Columns.Get("CAT_GP_ID")) - Dim CAT_GP_NOMBRE As String = records(RESULT.Columns.Get("CAT_GP_NOMBRE")) - Dim CAT_GP_IMP1 As String = records(RESULT.Columns.Get("CAT_GP_IMP1")) - Dim CAT_GP_IMP2 As String = records(RESULT.Columns.Get("CAT_GP_IMP2")) - Dim CAT_GP_PRECIO As String = records(RESULT.Columns.Get("CAT_GP_PRECIO")) - Dim CAT_GP_CLASIF As String = records(RESULT.Columns.Get("CAT_GP_CLASIF")) - Dim CAT_GP_STS As String = records(RESULT.Columns.Get("CAT_GP_STS")) - Dim CAT_GP_TIPO As String = records(RESULT.Columns.Get("CAT_GP_TIPO")) - Dim CAT_GP_SUBTIPO As String = records(RESULT.Columns.Get("CAT_GP_SUBTIPO")) - Dim CAT_GP_IMG() As Byte = records(RESULT.Columns.Get("CAT_GP_IMG")) - 'Dim CAT_GP_ALMACEN As Int = records(RESULT.Columns.Get("CAT_GP_ALMACEN")) - ' Dim CAT_GP_DEV As String = records(RESULT.Columns.Get("CAT_GP_DEV")) + Dim CAT_GP_ID As String = records(RESULT.Columns.Get("CAT_GP_ID")) + Dim CAT_GP_NOMBRE As String = records(RESULT.Columns.Get("CAT_GP_NOMBRE")) + Dim CAT_GP_IMP1 As String = records(RESULT.Columns.Get("CAT_GP_IMP1")) + Dim CAT_GP_IMP2 As String = records(RESULT.Columns.Get("CAT_GP_IMP2")) + Dim CAT_GP_PRECIO As String = records(RESULT.Columns.Get("CAT_GP_PRECIO")) + Dim CAT_GP_CLASIF As String = records(RESULT.Columns.Get("CAT_GP_CLASIF")) + Dim CAT_GP_STS As String = records(RESULT.Columns.Get("CAT_GP_STS")) + Dim CAT_GP_TIPO As String = records(RESULT.Columns.Get("CAT_GP_TIPO")) + Dim CAT_GP_SUBTIPO As String = records(RESULT.Columns.Get("CAT_GP_SUBTIPO")) + Dim CAT_GP_IMG() As Byte = records(RESULT.Columns.Get("CAT_GP_IMG")) + 'Dim CAT_GP_ALMACEN As Int = records(RESULT.Columns.Get("CAT_GP_ALMACEN")) - ' skmt.ExecNonQuery2("INSERT INTO CAT_GUNAPROD(CAT_GP_ID,CAT_GP_NOMBRE,CAT_GP_IMP1,CAT_GP_IMP2,CAT_GP_PRECIO,CAT_GP_CLASIF,CAT_GP_STS,CAT_GP_TIPO,CAT_GP_SUBTIPO,CAT_GP_IMG,CAT_GP_ALMACEN,CAT_GP_DEV) VALUES (?,?,?,?,?,?,?,?,?,?,?,?)", Array As Object (CAT_GP_ID,CAT_GP_NOMBRE,CAT_GP_IMP1,CAT_GP_IMP2,CAT_GP_PRECIO,CAT_GP_CLASIF,CAT_GP_STS,CAT_GP_TIPO,CAT_GP_SUBTIPO,CAT_GP_IMG, CAT_GP_ALMACEN,CAT_GP_DEV)) - skmt.ExecNonQuery2("INSERT INTO CAT_GUNAPROD(CAT_GP_ID,CAT_GP_NOMBRE,CAT_GP_IMP1,CAT_GP_IMP2,CAT_GP_PRECIO,CAT_GP_CLASIF,CAT_GP_STS,CAT_GP_TIPO,CAT_GP_SUBTIPO,CAT_GP_IMG,CAT_GP_ALMACEN) VALUES (?,?,?,?,?,?,?,?,?,?,?)", Array As Object (CAT_GP_ID,CAT_GP_NOMBRE,CAT_GP_IMP1,CAT_GP_IMP2,CAT_GP_PRECIO,CAT_GP_CLASIF,CAT_GP_STS,CAT_GP_TIPO,CAT_GP_SUBTIPO,CAT_GP_IMG, 0)) - - - Next - Listo2=1 - If Listo1 =1 And Listo2 =1 And Listo3 = 1 And Listo4 = 1 Then - ToastMessageShow("Datos Actualizados." , True) - Activity_Resume - img2.Visible=False - EJECUTANDO=0 - - End If - - End If - End If - - If Job.JobName = "DBRequest" Then - Dim RESULT As DBResult = reqManager.HandleJob(Job) - If RESULT.Tag = "gunaprodp" Then 'query tag - For Each records() As Object In RESULT.Rows - - Dim CAT_GP_ID As String = records(RESULT.Columns.Get("CAT_GP_ID")) - Dim CAT_GP_NOMBRE As String = records(RESULT.Columns.Get("CAT_GP_NOMBRE")) - Dim CAT_GP_IMP1 As String = records(RESULT.Columns.Get("CAT_GP_IMP1")) - Dim CAT_GP_IMP2 As String = records(RESULT.Columns.Get("CAT_GP_IMP2")) - Dim CAT_GP_PRECIO As String = records(RESULT.Columns.Get("CAT_GP_PRECIO")) - Dim CAT_GP_CLASIF As String = records(RESULT.Columns.Get("CAT_GP_CLASIF")) - Dim CAT_GP_STS As String = records(RESULT.Columns.Get("CAT_GP_STS")) - Dim CAT_GP_TIPO As String = records(RESULT.Columns.Get("CAT_GP_TIPO")) - Dim CAT_GP_SUBTIPO As String = records(RESULT.Columns.Get("CAT_GP_SUBTIPO")) - Dim CAT_GP_IMG() As Byte = records(RESULT.Columns.Get("CAT_GP_IMG")) - 'Dim CAT_GP_ALMACEN As Int = records(RESULT.Columns.Get("CAT_GP_ALMACEN")) - - skmt.ExecNonQuery2("INSERT INTO CAT_GUNAPROD(CAT_GP_ID,CAT_GP_NOMBRE,CAT_GP_IMP1,CAT_GP_IMP2,CAT_GP_PRECIO,CAT_GP_CLASIF,CAT_GP_STS,CAT_GP_TIPO,CAT_GP_SUBTIPO,CAT_GP_IMG,CAT_GP_ALMACEN) VALUES (?,?,?,?,?,?,?,?,?,?,?)", Array As Object (CAT_GP_ID,CAT_GP_NOMBRE,CAT_GP_IMP1,CAT_GP_IMP2,CAT_GP_PRECIO,CAT_GP_CLASIF,CAT_GP_STS,CAT_GP_TIPO,CAT_GP_SUBTIPO,CAT_GP_IMG, 0)) - - - Next - Listo4=1 - If Listo1 =1 And Listo2 =1 And Listo3 = 1 And Listo4 = 1 Then - ToastMessageShow("Datos Actualizados." , True) - Activity_Resume - img2.Visible=False - EJECUTANDO=0 - Else If Listo4 = 1 And Listo3 = 1 And inve = 1 Then - ToastMessageShow("Datos Actualizados." , True) - Activity_Resume - img2.Visible=False - EJECUTANDO=0 - End If - - End If - End If - - - - If Job.JobName = "DBRequest" Then - Dim RESULT As DBResult = reqManager.HandleJob(Job) - If RESULT.Tag = "detallepaq" Then 'query tag - For Each records() As Object In RESULT.Rows - - Dim CAT_DP_ALMACEN As String = records(RESULT.Columns.Get("CAT_DP_ALMACEN")) - Dim CAT_DP_ID As String = records(RESULT.Columns.Get("CAT_DP_ID")) - Dim CAT_DP_IDPROD As String = records(RESULT.Columns.Get("CAT_DP_IDPROD")) - Dim CAT_DP_TIPO As String = records(RESULT.Columns.Get("CAT_DP_TIPO")) - Dim CAT_DP_PZAS As String = records(RESULT.Columns.Get("CAT_DP_PZAS")) - Dim CAT_DP_USUARIO As String = records(RESULT.Columns.Get("CAT_DP_USUARIO")) - Dim CAT_DP_FECHA As String = records(RESULT.Columns.Get("CAT_DP_FECHA")) - Dim CAT_DP_REGALO As String = records(RESULT.Columns.Get("CAT_DP_REGALO")) - Dim CAT_DP_CLASIF As String = records(RESULT.Columns.Get("CAT_DP_CLASIF")) - Dim CAT_DP_PRECIO As String = records(RESULT.Columns.Get("CAT_DP_PRECIO")) - Dim CAT_DP_PRECIO_SIMPTOS As String = records(RESULT.Columns.Get("CAT_DP_PRECIO_SIMPTOS")) - - - - - skmt.ExecNonQuery2("INSERT INTO CAT_DETALLES_PAQ(CAT_DP_ALMACEN,CAT_DP_ID,CAT_DP_IDPROD,CAT_DP_TIPO,CAT_DP_PZAS,CAT_DP_USUARIO,CAT_DP_FECHA,CAT_DP_REGALO,CAT_DP_CLASIF,CAT_DP_PRECIO,CAT_DP_PRECIO_SIMPTOS) VALUES (?,?,?,?,?,?,?,?,?,?,?)", Array As Object (CAT_DP_ALMACEN,CAT_DP_ID,CAT_DP_IDPROD,CAT_DP_TIPO,CAT_DP_PZAS,CAT_DP_USUARIO,CAT_DP_FECHA,CAT_DP_REGALO,CAT_DP_CLASIF,CAT_DP_PRECIO,CAT_DP_PRECIO_SIMPTOS)) - - - Next - Listo3 =1 - If Listo1 =1 And Listo2 =1 And Listo3 = 1 And Listo4 = 1 Then - ToastMessageShow("Datos Actualizados." , True) - Activity_Resume - img2.Visible=False - EJECUTANDO=0 - Else If Listo4 = 1 And Listo3 = 1 And inve = 1 Then - ToastMessageShow("Datos Actualizados." , True) - Activity_Resume - img2.Visible=False - EJECUTANDO=0 - End If - + skmt.ExecNonQuery2("INSERT INTO CAT_GUNAPROD(CAT_GP_ID,CAT_GP_NOMBRE,CAT_GP_IMP1,CAT_GP_IMP2,CAT_GP_PRECIO,CAT_GP_CLASIF,CAT_GP_STS,CAT_GP_TIPO,CAT_GP_SUBTIPO,CAT_GP_IMG,CAT_GP_ALMACEN) VALUES (?,?,?,?,?,?,?,?,?,?,?)", Array As Object (CAT_GP_ID,CAT_GP_NOMBRE,CAT_GP_IMP1,CAT_GP_IMP2,CAT_GP_PRECIO,CAT_GP_CLASIF,CAT_GP_STS,CAT_GP_TIPO,CAT_GP_SUBTIPO,CAT_GP_IMG, 0)) + Next + Listo4=1 + If Listo1 =1 And Listo2 =1 And Listo3 = 1 And Listo4 = 1 Then + ToastMessageShow("Datos Actualizados." , True) + Activity_Resume + img2.Visible=False + EJECUTANDO=0 + Else If Listo4 = 1 And Listo3 = 1 And inve = 1 Then + ToastMessageShow("Datos Actualizados." , True) + Activity_Resume + img2.Visible=False + EJECUTANDO=0 + End If + End If + End If + + If Job.JobName = "DBRequest" Then + Dim RESULT As DBResult = reqManager.HandleJob(Job) + If RESULT.Tag = "detallepaq" Then 'query tag + For Each records() As Object In RESULT.Rows + Dim CAT_DP_ALMACEN As String = records(RESULT.Columns.Get("CAT_DP_ALMACEN")) + Dim CAT_DP_ID As String = records(RESULT.Columns.Get("CAT_DP_ID")) + Dim CAT_DP_IDPROD As String = records(RESULT.Columns.Get("CAT_DP_IDPROD")) + Dim CAT_DP_TIPO As String = records(RESULT.Columns.Get("CAT_DP_TIPO")) + Dim CAT_DP_PZAS As String = records(RESULT.Columns.Get("CAT_DP_PZAS")) + Dim CAT_DP_USUARIO As String = records(RESULT.Columns.Get("CAT_DP_USUARIO")) + Dim CAT_DP_FECHA As String = records(RESULT.Columns.Get("CAT_DP_FECHA")) + Dim CAT_DP_REGALO As String = records(RESULT.Columns.Get("CAT_DP_REGALO")) + Dim CAT_DP_CLASIF As String = records(RESULT.Columns.Get("CAT_DP_CLASIF")) + Dim CAT_DP_PRECIO As String = records(RESULT.Columns.Get("CAT_DP_PRECIO")) + Dim CAT_DP_PRECIO_SIMPTOS As String = records(RESULT.Columns.Get("CAT_DP_PRECIO_SIMPTOS")) + skmt.ExecNonQuery2("INSERT INTO CAT_DETALLES_PAQ(CAT_DP_ALMACEN,CAT_DP_ID,CAT_DP_IDPROD,CAT_DP_TIPO,CAT_DP_PZAS,CAT_DP_USUARIO,CAT_DP_FECHA,CAT_DP_REGALO,CAT_DP_CLASIF,CAT_DP_PRECIO,CAT_DP_PRECIO_SIMPTOS) VALUES (?,?,?,?,?,?,?,?,?,?,?)", Array As Object (CAT_DP_ALMACEN,CAT_DP_ID,CAT_DP_IDPROD,CAT_DP_TIPO,CAT_DP_PZAS,CAT_DP_USUARIO,CAT_DP_FECHA,CAT_DP_REGALO,CAT_DP_CLASIF,CAT_DP_PRECIO,CAT_DP_PRECIO_SIMPTOS)) + Next + Listo3 =1 + If Listo1 =1 And Listo2 =1 And Listo3 = 1 And Listo4 = 1 Then + ToastMessageShow("Datos Actualizados." , True) + Activity_Resume + img2.Visible=False + EJECUTANDO=0 + Else If Listo4 = 1 And Listo3 = 1 And inve = 1 Then + ToastMessageShow("Datos Actualizados." , True) + Activity_Resume + img2.Visible=False + EJECUTANDO=0 + End If End If End If @@ -825,319 +755,245 @@ Sub JobDone(Job As HttpJob) Dim RESULT As DBResult = reqManager.HandleJob(Job) If RESULT.Tag = "punteo" Then 'query tag For Each records() As Object In RESULT.Rows - Dim HV_CLIENTE As String = records(RESULT.Columns.Get("HV_CLIENTE")) Dim HV_LONG As String = records(RESULT.Columns.Get("HV_LONG")) Dim HV_LAT As String = records(RESULT.Columns.Get("HV_LAT")) - skmt.ExecNonQuery2("INSERT INTO PUNTEO_GPS(HV_CLIENTE, HV_LONG, HV_LAT) VALUES (?,?,?)", Array As Object (HV_CLIENTE, HV_LONG, HV_LAT)) - - Next End If End If - If Job.JobName = "DBRequest" Then - Dim RESULT As DBResult = reqManager.HandleJob(Job) - If RESULT.Tag = "hist_datos" Then 'query tag - For Each records() As Object In RESULT.Rows - - Dim HVD_CLIENTE As String = records(RESULT.Columns.Get("HVD_CLIENTE")) - Dim HVD_PRONOMBRE As String = records(RESULT.Columns.Get("HVD_PRONOMBRE")) - Dim HVD_CANT As String = records(RESULT.Columns.Get("HVD_CANT")) - Dim HVD_COSTO_TOT As String = records(RESULT.Columns.Get("HVD_COSTO_TOT")) - Dim HVD_FECHA As String = records(RESULT.Columns.Get("HVD_FECHA")) - - skmt.ExecNonQuery2("INSERT INTO HIST_VENTAS(HVD_CLIENTE,HVD_PRONOMBRE,HVD_CANT,HVD_COSTO_TOT, HVD_FECHA, HVD_ESTATUS) VALUES (?,?,?,?,?,0)", Array As Object (HVD_CLIENTE,HVD_PRONOMBRE,HVD_CANT,HVD_COSTO_TOT,HVD_FECHA)) - - - Next + If Job.JobName = "DBRequest" Then + Dim RESULT As DBResult = reqManager.HandleJob(Job) + If RESULT.Tag = "hist_datos" Then 'query tag + For Each records() As Object In RESULT.Rows + Dim HVD_CLIENTE As String = records(RESULT.Columns.Get("HVD_CLIENTE")) + Dim HVD_PRONOMBRE As String = records(RESULT.Columns.Get("HVD_PRONOMBRE")) + Dim HVD_CANT As String = records(RESULT.Columns.Get("HVD_CANT")) + Dim HVD_COSTO_TOT As String = records(RESULT.Columns.Get("HVD_COSTO_TOT")) + Dim HVD_FECHA As String = records(RESULT.Columns.Get("HVD_FECHA")) + skmt.ExecNonQuery2("INSERT INTO HIST_VENTAS(HVD_CLIENTE,HVD_PRONOMBRE,HVD_CANT,HVD_COSTO_TOT, HVD_FECHA, HVD_ESTATUS) VALUES (?,?,?,?,?,0)", Array As Object (HVD_CLIENTE,HVD_PRONOMBRE,HVD_CANT,HVD_COSTO_TOT,HVD_FECHA)) + Next f2=skmt.ExecQuery2("select COUNT(*) as CAMBIOS from hist_ventas where SUBSTR(HVD_PRONOMBRE,1,6) =?", Array As String("CAMBIO")) f2.Position = 0 If f2.GetString("CAMBIOS") > 0 Then - - f1=skmt.ExecQuery2("select sum(HVD_CANT) as CAMBIOS from hist_ventas where SUBSTR(HVD_PRONOMBRE,1,6) =?", Array As String("CAMBIO")) - f1.Position = 0 - + f1=skmt.ExecQuery2("select sum(HVD_CANT) as CAMBIOS from hist_ventas where SUBSTR(HVD_PRONOMBRE,1,6) =?", Array As String("CAMBIO")) + f1.Position = 0 skmt.ExecNonQuery2("delete from CAT_VARIABLES WHERE CAT_VA_DESCRIPCION =?", Array As Object("CAMBIOS")) skmt.ExecNonQuery2("INSERT INTO CAT_VARIABLES VALUES(?,?)", Array As Object("CAMBIOS",f1.GetString("CAMBIOS"))) - f1.Close + f1.Close Else skmt.ExecNonQuery2("delete from CAT_VARIABLES WHERE CAT_VA_DESCRIPCION =?", Array As Object("CAMBIOS")) skmt.ExecNonQuery2("INSERT INTO CAT_VARIABLES VALUES(?,?)", Array As Object("CAMBIOS","0")) - End If f2.Close - Listo3 =1 - If Listo1 =1 And Listo3 = 1 Then - ToastMessageShow("Datos Actualizados." , True) - Activity_Resume - img2.Visible=False + Listo3 =1 + If Listo1 =1 And Listo3 = 1 Then + ToastMessageShow("Datos Actualizados." , True) + Activity_Resume + img2.Visible=False EJECUTANDO=0 - End If - + End If + End If + If Job.JobName = "DBRequest" Then + Dim RESULT As DBResult = reqManager.HandleJob(Job) + If RESULT.Tag = "variables" Then 'query tag + For Each records() As Object In RESULT.Rows + Dim Cat_Va_Descripcion As String = records(RESULT.Columns.Get("CAT_VA_DESCRIPCION")) + Dim Cat_Va_Valor As String = records(RESULT.Columns.Get("CAT_VA_VALOR")) + skmt.ExecNonQuery2("INSERT INTO CAT_VARIABLES(CAT_VA_DESCRIPCION, CAT_VA_VALOR) VALUES (?,?)", Array As Object (Cat_Va_Descripcion, Cat_Va_Valor)) + Next + End If + End If + + + If Job.JobName = "DBRequest" Then + Dim RESULT As DBResult = reqManager.HandleJob(Job) + If RESULT.Tag = "valida_pedido" Then 'query tag + For Each records() As Object In RESULT.Rows + Dim CUANTOSP As Int = records(RESULT.Columns.Get("CUANTOSP")) + If cuantos_pedido = CUANTOSP Then + ' ToastMessageShow("rojo val ok 1 cuantosp." , True) + datos_iguales = "ok" + Else + ToastMessageShow("No se cargo bien la info P. Sync Nuevamente" & CUANTOSP & " " & cuantos_pedido, True) + End If + Next + End If + End If + + If Job.JobName = "DBRequest" Then + Dim RESULT As DBResult = reqManager.HandleJob(Job) + If RESULT.Tag = "valida_pedidoc" Then 'query tag + For Each records() As Object In RESULT.Rows + Dim CUANTOSC As Int = records(RESULT.Columns.Get("CUANTOSC")) + If cuantos_pedidosc = CUANTOSC Then + ' ToastMessageShow("rojo val ok 1 cuantosp." , True) + datos_iguales = "ok" + Else + ToastMessageShow("No se cargo bien la info C. Sync Nuevamente" & CUANTOSC & " " & cuantos_pedidosc, True) + End If + Next End If End If - - - - - - - - If Job.JobName = "DBRequest" Then - Dim RESULT As DBResult = reqManager.HandleJob(Job) - If RESULT.Tag = "variables" Then 'query tag - For Each records() As Object In RESULT.Rows + If Job.JobName = "DBRequest" Then + Dim RESULT As DBResult = reqManager.HandleJob(Job) + If RESULT.Tag = "valida_noventa" Then 'query tag + For Each records() As Object In RESULT.Rows - Dim Cat_Va_Descripcion As String = records(RESULT.Columns.Get("CAT_VA_DESCRIPCION")) - Dim Cat_Va_Valor As String = records(RESULT.Columns.Get("CAT_VA_VALOR")) + Dim CUANTOSN As Int = records(RESULT.Columns.Get("CUANTOSN")) + + If cuantos_noventa = CUANTOSN Then + ' ToastMessageShow("rojo val ok 1 cuantosp." , True) + datos_iguales = "ok" + Else + ToastMessageShow("No se cargo bien la info N. Sync Nuevamente" & CUANTOSN & " " & cuantos_noventa, True) + End If + Next + End If + End If - skmt.ExecNonQuery2("INSERT INTO CAT_VARIABLES(CAT_VA_DESCRIPCION, CAT_VA_VALOR) VALUES (?,?)", Array As Object (Cat_Va_Descripcion, Cat_Va_Valor)) - - - Next - End If - End If - - -If Job.JobName = "DBRequest" Then - Dim RESULT As DBResult = reqManager.HandleJob(Job) - If RESULT.Tag = "valida_pedido" Then 'query tag - For Each records() As Object In RESULT.Rows - - Dim CUANTOSP As Int = records(RESULT.Columns.Get("CUANTOSP")) - - If cuantos_pedido = CUANTOSP Then - ' ToastMessageShow("rojo val ok 1 cuantosp." , True) - datos_iguales = "ok" - Else - ToastMessageShow("No se cargo bien la info P. Sync Nuevamente" & CUANTOSP & " " & cuantos_pedido, True) - - End If - - - Next - End If - End If - -If Job.JobName = "DBRequest" Then - Dim RESULT As DBResult = reqManager.HandleJob(Job) - If RESULT.Tag = "valida_pedidoc" Then 'query tag - For Each records() As Object In RESULT.Rows - - Dim CUANTOSC As Int = records(RESULT.Columns.Get("CUANTOSC")) - - If cuantos_pedidosc = CUANTOSC Then - ' ToastMessageShow("rojo val ok 1 cuantosp." , True) - datos_iguales = "ok" - Else - ToastMessageShow("No se cargo bien la info C. Sync Nuevamente" & CUANTOSC & " " & cuantos_pedidosc, True) - - End If - - - Next - End If - End If - -If Job.JobName = "DBRequest" Then - Dim RESULT As DBResult = reqManager.HandleJob(Job) - If RESULT.Tag = "valida_noventa" Then 'query tag - For Each records() As Object In RESULT.Rows - - Dim CUANTOSN As Int = records(RESULT.Columns.Get("CUANTOSN")) - - If cuantos_noventa = CUANTOSN Then - ' ToastMessageShow("rojo val ok 1 cuantosp." , True) - datos_iguales = "ok" - Else - ToastMessageShow("No se cargo bien la info N. Sync Nuevamente" & CUANTOSN & " " & cuantos_noventa, True) - - End If - - - Next - End If - End If - - If Job.JobName = "DBRequest" Then - Dim RESULT As DBResult = reqManager.HandleJob(Job) - If RESULT.Tag = "insert_pedido" Then 'query tag - ToastMessageShow("Datos Actualizados." , True) - - End If - End If + If Job.JobName = "DBRequest" Then + Dim RESULT As DBResult = reqManager.HandleJob(Job) + If RESULT.Tag = "insert_pedido" Then 'query tag + ToastMessageShow("Datos Actualizados." , True) + End If + End If - 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)) - - Next - End If - End If + 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)) + Next + End If + End If - If Job.JobName = "DBRequest" Then - Dim RESULT As DBResult = reqManager.HandleJob(Job) - If RESULT.Tag = "count_cli" Then 'query tag - For Each records() As Object In RESULT.Rows - - COUNT_CLIE = records(RESULT.Columns.Get("COUNT_CLIE")) - - - - - Next - End If - End If + If Job.JobName = "DBRequest" Then + Dim RESULT As DBResult = reqManager.HandleJob(Job) + If RESULT.Tag = "count_cli" Then 'query tag + For Each records() As Object In RESULT.Rows + COUNT_CLIE = records(RESULT.Columns.Get("COUNT_CLIE")) + Next + End If + End If - If Job.JobName = "DBRequest" Then - Dim RESULT As DBResult = reqManager.HandleJob(Job) - If RESULT.Tag = "ruta" Then 'query tag - For Each records() As Object In RESULT.Rows - - Dim VALIDO As String = records(RESULT.Columns.Get("VALIDO")) - - If VALIDO = "OK" Then + If Job.JobName = "DBRequest" Then + Dim RESULT As DBResult = reqManager.HandleJob(Job) + If RESULT.Tag = "ruta" Then 'query tag + For Each records() As Object In RESULT.Rows + Dim VALIDO As String = records(RESULT.Columns.Get("VALIDO")) + If VALIDO = "OK" Then If l_ctast.Text = "0" Then - Subir.Visible = True + Subir.Visible = True End If cargar.Visible = True - - ' inv.Visible = True - connecta.Visible = False - + ' inv.Visible = True + connecta.Visible = False skmt.ExecNonQuery("DELETE FROM RUTAA") - skmt.ExecNonQuery2("INSERT INTO RUTAA(RUTAA) VALUES (?)", Array As Object (e_ruta.TEXT)) - - If conn = "1" Then - ToastMessageShow("Existe Conexión con el Servidor." , True) - End If - Else - cargar.Visible = False - Subir.Visible = False - inv.Visible = False - connecta.Visible = False - - End If - Next - End If - End If - - - - Job.Release - + If conn = "1" Then + ToastMessageShow("Existe Conexión con el Servidor." , True) + End If + Else + cargar.Visible = False + Subir.Visible = False + inv.Visible = False + connecta.Visible = False + End If + Next + End If + End If + Job.Release 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) - 'Return True - End If - ' Returning False signals the system to handle the key - Return False + ' BACK key pressed + If key=KeyCodes.KEYCODE_BACK Then + ' I want to capture the key here so I return True + StartActivity(Main) + 'Return True + End If + ' Returning False signals the system to handle the key + Return False End Sub + Sub connecta_Click - imei = p.GetDeviceId + imei = "" 'p.GetDeviceId conn = "1" Dim cmd As DBCommand cmd.Initialize cmd.Name = "select_version" reqManager.ExecuteQuery(cmd , 0, "version") - Dim cmd As DBCommand cmd.Initialize cmd.Name = "select_ruta_re" cmd.Parameters = Array As Object(ALMACEN,e_ruta.text,imei) reqManager.ExecuteQuery(cmd , 0, "ruta") - ToastMessageShow("Validando Conexión." , True) End Sub + Sub BUSCA_Click StartActivity(BUSCAR) End Sub Sub b_mapa_Click StartActivity(mapas) - End Sub + Sub e_ruta_EnterPressed If e_ruta.Text = "FIN DIA" Then - RES = Msgbox2("Seguro que desa hacer el cierre todos los datos se borraran?","Cierre", "Si", "", "No",LoadBitmap(File.DirAssets,"alert2.png")) - If RES = DialogResponse.POSITIVE Then - - e_ruta.Text = "" - skmt.ExecNonQuery("delete from pedido_cliente") - skmt.ExecNonQuery("delete from pedido") - skmt.ExecNonQuery("delete from noventa") - skmt.ExecNonQuery("delete from clie_act") - skmt.ExecNonQuery("delete from kmt_info") - skmt.ExecNonQuery("delete from cat_gunaprod") - skmt.ExecNonQuery("delete from CAT_DETALLES_PAQ") - skmt.ExecNonQuery("delete from HIST_VENTAS") - skmt.ExecNonQuery("delete from REPARTO") - - - Activity_Resume + RES = Msgbox2("Seguro que desa hacer el cierre todos los datos se borraran?","Cierre", "Si", "", "No",LoadBitmap(File.DirAssets,"alert2.png")) + If RES = DialogResponse.POSITIVE Then + e_ruta.Text = "" + skmt.ExecNonQuery("delete from pedido_cliente") + skmt.ExecNonQuery("delete from pedido") + skmt.ExecNonQuery("delete from noventa") + skmt.ExecNonQuery("delete from clie_act") + skmt.ExecNonQuery("delete from kmt_info") + skmt.ExecNonQuery("delete from cat_gunaprod") + skmt.ExecNonQuery("delete from CAT_DETALLES_PAQ") + skmt.ExecNonQuery("delete from HIST_VENTAS") + skmt.ExecNonQuery("delete from REPARTO") + Activity_Resume + End If End If - End If - - End Sub + Sub inv_Click img2.Visible =True EJECUTANDO = 1 - inve = 1 + inve = 1 skmt.ExecNonQuery("delete from cat_gunaprod") skmt.ExecNonQuery("delete from CAT_DETALLES_PAQ") - c=skmt.ExecQuery("select usuario from usuarioa") - c.Position = 0 - usuario = c.GetString("USUARIO") - - - + c.Position = 0 + usuario = c.GetString("USUARIO") cmd.Initialize cmd.Name = "select_cat_gunaprod" cmd.Parameters = Array As Object(ALMACEN) reqManager.ExecuteQuery(cmd , 0, "gunaprod") - - cmd.Initialize cmd.Name = "select_cat_paquetes" cmd.Parameters = Array As Object(ALMACEN) reqManager.ExecuteQuery(cmd , 0, "gunaprodp") - - cmd.Initialize cmd.Name = "select_cat_detallepa" cmd.Parameters = Array As Object(ALMACEN) reqManager.ExecuteQuery(cmd , 0, "detallepaq") - - - cargar.Visible = False Subir.Visible = False connecta.Visible = True - inv.Visible = False + inv.Visible = False ToastMessageShow("Se Actualizaran los datos, Este proceso podria tardar hasta un minuto, gracias" , True) - End Sub -Sub t1_tick - + +Sub t1_tick cmd.Initialize cmd.Name = "select_cuantos_pedido" cmd.Parameters = Array As Object(ALMACEN,l_ruta.text) @@ -1152,8 +1008,8 @@ Sub t1_tick cmd.Name = "select_cuantos_pedidoc" cmd.Parameters = Array As Object(ALMACEN,l_ruta.text) reqManager.ExecuteQuery(cmd , 0, "valida_pedidoc") - img2.Visible=False - t1.Enabled = False + img2.Visible=False + t1.Enabled = False End Sub Sub B_CLIEPROD_Click @@ -1164,7 +1020,6 @@ Sub B_CLIEPROD_Click Panel1.Visible = True Btn_UbicarR.Visible=False c=skmt.ExecQuery("select HVD_CLIENTE, HVD_PRONOMBRE, HVD_CANT, HVD_ESTATUS from HIST_VENTAS ORDER BY HVD_PRONOMBRE") - ListView1.Clear Dim label1 As Label label1 = ListView1.TwoLinesLayout.Label @@ -1174,7 +1029,6 @@ Sub B_CLIEPROD_Click label2 = ListView1.TwoLinesLayout.SecondLabel label2.TextSize = 10 label2.TextColor = Colors.Black - If c.RowCount>0 Then For i=0 To c.RowCount -1 c.Position=i @@ -1184,7 +1038,7 @@ Sub B_CLIEPROD_Click ESTATUS = "ENTREGADO" ELSE IF c.GetString("HVD_ESTATUS") = "2" Then ESTATUS = "RECHAZADO" - Else + Else ESTATUS = "SIN ESTATUS" End If ListView1.AddTwoLines(c.GetString("HVD_PRONOMBRE") & " " & c.GetString("HVD_CLIENTE") , c.GetString("HVD_CANT") & " " & ESTATUS ) @@ -1201,23 +1055,19 @@ Sub B_REGRESA_Click Btn_UbicarR.Visible=True End Sub - Sub Btn_UbicarR_Click skmt.ExecNonQuery("UPDATE PUNTEO_GPS SET HV_LONG= (select CAT_CL_LONG from KMT_INFO where CAT_CL_CODIGO = PUNTEO_GPS.HV_CLIENTE) , HV_LAT= (select CAT_CL_LAT from KMT_INFO where CAT_CL_CODIGO = PUNTEO_GPS.HV_CLIENTE) WHERE HV_LONG ='null' and HV_LAT='null' ") - StartActivity(MAPA_RUTAS) End Sub '''''''''''''''''''''''''''''''''''' VALIDAR CARACTERES Sub e_ruta_TextChanged (Old As String, New As String) Dim validChars As String ="ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz0123456789 " - Try If validChars.Contains(New.SubString(New.Length-1)) = False Then e_ruta.Text = New.SubString2(0, New.Length-1) e_ruta.SelectionStart = e_ruta.Text.Length End If - Catch Log(LastException) End Try diff --git a/tarjeta.bas b/tarjeta.bas index 6b153bd..31b2fa8 100644 --- a/tarjeta.bas +++ b/tarjeta.bas @@ -45,11 +45,7 @@ Sub Activity_Create(FirstTime As Boolean) g.Initialize("GPS") End If - If File.ExternalWritable Then - ruta = File.DirDefaultExternal - Else - ruta = File.DirInternal - End If + ruta = File.DirInternal Activity.LoadLayout("tarjeta") borra.Visible = True Titulo.Text = "Pedido Actual" diff --git a/telefonos.bas b/telefonos.bas index e2dd2d8..9277166 100644 --- a/telefonos.bas +++ b/telefonos.bas @@ -36,12 +36,8 @@ End Sub Sub Activity_Create(FirstTime As Boolean) 'Do not forget to load the layout file created with the visual designer. For example: - 'Activity.LoadLayout("Layout1") - If File.ExternalWritable Then - ruta = File.DirDefaultExternal - Else - ruta = File.DirInternal - End If + + ruta = File.DirInternal Activity.LoadLayout("telefonos") If File.Exists(ruta, "kmt.db") = False Then File.Copy(File.DirAssets, "kmt.db", ruta, "kmt.db")