B4A=true Group=Default Group ModulesStructureVersion=1 Type=Activity Version=6.8 @EndOfDesignText@ #Region Activity Attributes #FullScreen: False #IncludeTitle: True #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 reqManager As DBRequestManager Dim conectado As String Dim skmt As SQL Dim t1 As Timer 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 c As Cursor Dim d As Cursor Dim b As Cursor Dim e As Cursor Dim f As Cursor Dim lv As ListView Dim cargar As Button Dim pendiente As Button Dim foto1() As Byte Dim usuario As String Dim connecta As Button Dim conn As String Dim Subir As Button Dim cmd As DBCommand Dim TOPE As Int Dim COUNT_CLIE As Int Dim fecha As String Dim drop As Double Dim efectiva As Double Dim L_MONTOD As Label Dim l_cuantosc As Label Dim l_drop As Label Dim l_efectiva As Label Dim l_ctast As Label Dim BUSCA As Button Dim Cuantos As String Dim l_cuantosn As Label Dim e_ruta As EditText Dim l_porvisitar As Label Dim b_mapa As Button Dim l_ruta As Label Dim ALMACEN As String Private img2 As ImageView Dim Listo1 As String Dim Listo2 As String Dim Listo3 As String Dim Listo4 As String Dim Listo5 As String Dim EJECUTANDO As String Dim RES As String Dim inve As String Dim cuantos_pedidosc As String Dim cuantos_pedido As String Dim cuantos_noventa As String Dim datos_iguales As String Dim p As PhoneId Dim imei As String Dim SERVER As String Private inv As Button Private P1 As Panel Private CLAVE As EditText Private B_OK_PAS As Button Dim PASO As String Private USUARIO1 As EditText Dim connecta1 As Double Dim armafolio As String Private NUEVO As Button Private S_CC As Label Private S_CP As Label Private S_CH As Label Private PB2 As ProgressBar Private PB1 As ProgressBar Private L_P_1 As Label Private L_P_2 As Label Private L_P_3 As Label Private CARGA As String Private PORCENTAJE As String Private P_RESUMEN As Panel Private B_OK_RES As Button Private Resumen As Button Private L_CUANTOST As Label Private img3 As ImageView Private ImageView3 As ImageView Private ImageView5 As ImageView Private L_TICKPROM As Label Private B_VALIDA As Button End Sub Sub Activity_Create(FirstTime As Boolean) EJECUTANDO=1 'SERVER = "http://keymon.com.mx:1782" SERVER = "http://177.244.63.54:1781" If FirstTime Then reqManager.Initialize(Me, SERVER) End If Activity.LoadLayout("seleccion") Dim ruta As String img2.Visible =False ' valido donde escribo el archivo de la base de datos de kmt 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 '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) skmt.Initialize(ruta,"kmt.db", True) '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 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 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") f.Position=0 l_ruta.Text = f.GetString("CAT_CL_RUTA") f.Close If l_ruta.Text = 0 Then 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 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") 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") l_porvisitar.Text = e.GetString("POR_VISITAR") End If End Sub Sub Activity_Resume 'SERVER = "http://keymon.com.mx:1782" 'SERVER = "http://201.99.139.28:1782" 'SERVER = "http://177.244.63.54:1782" SERVER = "http://keymon.lat:1781" ' SERVER = "http://10.0.0.205:1782" reqManager.Initialize(Me, SERVER) PASO =0 ' c=skmt.ExecQuery("select noversion from version") ' c.Position=0 ' If c.GetString("NOVERSION") <> "2.1" Then ' ToastMessageShow("EXISTE UNA NUEVA VERSION ACTUALIZA POR FAVOR." , True) ' cargar.Visible = False ' Subir.Visible = False ' connecta.Visible = False ' trabajar.Visible = False ' BUSCA.Visible = False ' inv.Visible = False ' ' End If ' c.Close 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_fecha" 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 = "yyyyMMdd" sDate=DateTime.Date(DateTime.Now) If c.GetString("CAT_VA_VALOR") > sDate Then Msgbox("AJUSTAR LA FECHA YA QUE ES MENOR AL SISTEMA" ,"AVISO") Activity_Resume End If End If If EJECUTANDO =0 Then 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) b=skmt.ExecQuery("Select count(*) as CUANTOS from pedido_cliente") b.Position=0 Cuantos = b.GetString("CUANTOS") ToastMessageShow(Cuantos , True) d=skmt.ExecQuery("select count(*) as TOTAL_VISITAR from kmt_info where gestion = 0") D.Position=0 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") f.Position=0 l_ruta.Text = f.GetString("CAT_CL_RUTA") f.Close If l_ruta.Text = 0 Then 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 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") d.Close e.Close 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") 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") L_CUANTOST.Text = l_cuantosc.Text + l_cuantosn.Text drop = (c.GetString("CLIENTES_DIA") + b.GetString("CUANTOS"))/ d.GetString("TOTAL_VISITAR") l_drop.Text = Round(drop * 100) If l_drop.Text + l_efectiva.Text < 100 Then ImageView3.Bitmap = LoadBitmap(File.DirAssets, "tache_rojo.png") Else If l_drop.Text + l_efectiva.Text > = 100 And l_drop.Text + l_efectiva.Text < 130 Then ImageView3.bitmap = LoadBitmap(File.DirAssets, "alerta_amarilla.png") Else ImageView3.Bitmap = LoadBitmap(File.DirAssets, "palomita_verde.png") End If L_TICKPROM.Text = Round2((c.GetString("MONTO_DIA") / c.GetString("CLIENTES_DIA")),2) If c.GetString("MONTO_DIA") < 2500 Then ImageView5.Bitmap = LoadBitmap(File.DirAssets, "tache_rojo.png") Else if c.GetString("MONTO_DIA") > = 2500 And c.GetString("MONTO_DIA") < 4000 Then ImageView5.bitmap = LoadBitmap(File.DirAssets, "alerta_amarilla.png") Else ImageView5.Bitmap = LoadBitmap(File.DirAssets, "palomita_verde.png") End If c.Close b.Close End If c=skmt.ExecQuery("select ID_ALMACEN from CAT_ALMACEN") C.Position =0 ALMACEN = C.GetString("ID_ALMACEN") C.Close 'ALMACEN = 1 End Sub Sub Activity_Pause (UserClosed As Boolean) cargar.Visible = False Subir.Visible = False connecta.Visible = True inv.Visible = False End Sub Sub trabajar_Click 'CallSubDelayed(gestion,"gestion") StartActivity(colonia) End Sub Sub Subir_Click CARGA = "SUBIR" P1.Visible = True trabajar.Visible = False NUEVO.Visible =False BUSCA.Visible=False connecta.Visible=False Subir.Visible=False cargar.Visible=False L_P_1.Visible = False S_CC.Visible = False L_P_3.Visible = False S_CH.Visible = False PB1.Visible = False Resumen.Visible= False B_VALIDA.Visible = False L_P_2.Text = "Envio de Pedidos" L_P_3.Text = "Envio de Pedidos" S_CH.Text = "EN PROCESO" S_CP.Text = "EN PROCESO" PB1.Progress = 0 PB2.Progress = 0 'c=skmt.ExecQuery("SELECT sum(IFNULL(PE_DESC,0)) as DESCUENTO FROM PEDIDO") 'c.Position =0 'If c.GetString("DESCUENTO") > 0 And PASO = 0 Then 'P1.Visible = True 'ELSE IF c.GetString("DESCUENTO") = 0 Then PASO = 1 'End If If PASO =1 Then skmt.ExecNonQuery("delete from pedido_cliente where PC_CLIENTE not In (select PE_CLIENTE from pedido)") c=skmt.ExecQuery("select usuario from usuarioa") c.Position = 0 usuario = c.GetString("USUARIO") c.Close ' PEDIO_CLIENTE c=skmt.ExecQuery("SELECT PC_CLIENTE, PC_FECHA, PC_USER, PC_NOART, PC_MONTO,PC_LON, PC_LAT, PC_COSTO_SIN, PC_RUTA, PC_ALMACEN FROM PEDIDO_CLIENTE ") d=skmt.ExecQuery("SELECT COUNT(*) as CUANTOS_PEDIDOSC FROM PEDIDO_CLIENTE ") If c.RowCount>0 Then For i=0 To c.RowCount -1 c.Position=i Dim cmd As DBCommand cmd.Initialize cmd.Name = "insert_pedidos_SAL" cmd.Parameters = Array As Object(C.GetString("PC_CLIENTE"),C.GetString("PC_FECHA"),C.GetString("PC_USER"),C.GetString("PC_NOART"),C.GetString("PC_MONTO"),C.GetString("PC_LON"),C.GetString("PC_LAT"),ALMACEN,l_ruta.text,C.GetString("PC_COSTO_SIN") ) reqManager.ExecuteQuery(cmd , 0,"ins_pedidos") Next c.Close End If d.Position=0 cuantos_pedidosc = D.GetString("CUANTOS_PEDIDOSC") d.Close ' ENVIO DE LOS CODIGOS QR c=skmt.ExecQuery("SELECT CAT_CL_NUM_SERIEFISICO,CAT_CL_CODIGO ,CAT_CL_LONG,CAT_CL_LAT FROM kmt_info") If c.RowCount>0 Then For i=0 To c.RowCount -1 c.Position=i Dim cmd As DBCommand cmd.Initialize cmd.Name = "insert_QR_SAL" cmd.Parameters = Array As Object(C.GetString("CAT_CL_NUM_SERIEFISICO"),C.GetString("CAT_CL_CODIGO"),C.GetString("CAT_CL_LONG"),C.GetString("CAT_CL_LAT"),ALMACEN,l_ruta.text ) reqManager.ExecuteQuery(cmd , 0,"ins_QR") Next c.Close End If ' PEDIO c=skmt.ExecQuery2("select CAT_VA_VALOR from CAT_VARIABLES WHERE CAT_VA_DESCRIPCION = ?", Array As String ("FOLIO")) c.Position =0 armafolio = l_ruta.text * 1000000 armafolio = armafolio + c.GetString("CAT_VA_VALOR") c.Close c=skmt.ExecQuery("SELECT PE_CEDIS,PE_COSTO_TOT,PE_COSTOU,PE_CANT,PE_PRONOMBRE,PE_PROID,PE_CLIENTE,PE_FECHA,PE_USUARIO, PE_COSTO_SIN, PE_RUTA, PE_DESC FROM PEDIDO WHERE PE_FOLIO IS NULL") If c.RowCount>0 Then For i=0 To c.RowCount -1 c.Position=i skmt.ExecNonQuery2("update PEDIDO set PE_FOLIO = ? where PE_PROID = ? AND PE_CLIENTE =? AND PE_FECHA =? AND PE_FOLIO IS NULL ", Array As Object(armafolio, c.GetString("PE_PROID"), c.GetString("PE_CLIENTE"),c.GetString("PE_FECHA"))) armafolio = armafolio + 1 Next c.Close End If armafolio = armafolio - (l_ruta.Text * 1000000) skmt.ExecNonQuery2("update CAT_VARIABLES set CAT_VA_VALOR = ? where CAT_VA_DESCRIPCION = ? ", Array As Object(armafolio,"FOLIO")) Dim cmd As DBCommand cmd.Initialize cmd.Name = "update_folio" cmd.Parameters = Array As Object(armafolio,l_ruta.Text , "1") reqManager.ExecuteQuery(cmd , 0, "folio") c=skmt.ExecQuery("SELECT PE_CEDIS,PE_COSTO_TOT,PE_COSTOU,PE_CANT,PE_PRONOMBRE,PE_PROID,PE_CLIENTE,PE_FECHA,PE_USUARIO, PE_COSTO_SIN, PE_RUTA, PE_DESC, PE_FOLIO FROM PEDIDO") d=skmt.ExecQuery("SELECT COUNT(*) as CUANTOS_PEDIDO FROM PEDIDO") If c.RowCount>0 Then For i=0 To c.RowCount -1 c.Position=i Dim cmd As DBCommand cmd.Initialize cmd.Name = "insert_pedido_SAL" cmd.Parameters = Array As Object(C.GetString("PE_CEDIS"),ALMACEN,C.GetString("PE_COSTO_TOT"),C.GetString("PE_COSTOU"),C.GetString("PE_CANT"),C.GetString("PE_PRONOMBRE"),C.GetString("PE_PROID"),C.GetString("PE_CLIENTE"),C.GetString("PE_FECHA"),C.GetString("PE_USUARIO"),C.GetString("PE_RUTA"), C.GetString("PE_COSTO_SIN"),C.GetString("PE_DESC"),c.GetString("PE_FOLIO")) reqManager.ExecuteQuery(cmd , 0, "ins_pedido") Next c.Close End If d.Position=0 cuantos_pedido = D.GetString("CUANTOS_PEDIDO") d.Close ' NOVENTA c=skmt.ExecQuery("SELECT NV_CLIENTE,NV_FECHA,NV_USER,NV_MOTIVO,NV_COMM,NV_LAT,NV_LON 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 Dim cmd As DBCommand cmd.Initialize cmd.Name = "insert_noventa_SAL" 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) reqManager.ExecuteQuery(cmd , 0, "inst_noventa") Next c.Close End If d.Position=0 cuantos_noventa = D.GetString("CUANTOS_NOVENTA") d.Close ' VERIFICACION ' c=skmt.ExecQuery("SELECT HVE_CLIENTE, HVE_IDPROD, HVE_EXISTENCIA FROM HIST_VERIFICACION") ' If c.RowCount>0 Then ' For i=0 To c.RowCount -1 ' c.Position=i ' ' Dim cmd As DBCommand ' cmd.Initialize ' cmd.Name = "insert_verificacion_SAL" ' cmd.Parameters = Array As Object(C.GetString("HVE_CLIENTE"),C.GetString("HVE_IDPROD"),C.GetString("HVE_EXISTENCIA")) ' reqManager.ExecuteQuery(cmd , 0, "inst_noventa") ' ' Next ' c.Close ' End If ' ' DROP t1.Initialize("T1", 60000) ' 1000 = 1 second t1.Enabled = True Dim cmd As DBCommand cmd.Initialize cmd.Name ="insert_drop_SAL" 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") reqManager.ExecuteQuery(cmd , 0, "inst_noventa") img2.Visible =True PORCENTAJE = Round(100/ (cuantos_noventa + cuantos_pedido + cuantos_pedidosc + 1)) ToastMessageShow("Se Actualizaran los datos, Este proceso podria tardar hasta un minuto, gracias "& l_ruta.text , True) End If End Sub Sub cargar_Click CARGA = "CARGAR" img2.Visible =True L_P_1.Visible = True S_CC.Visible = True P1.Visible = True trabajar.Visible = False NUEVO.Visible =False BUSCA.Visible=False connecta.Visible=False L_P_3.Visible = True S_CH.Visible = True PB1.Visible = True Resumen.Visible= False B_VALIDA.Visible = False L_P_1.Text = "Catalogo de Clientes" L_P_2.Text = "Catalogos de Productos" L_P_3.Text = "Catalogos Historicos" S_CC.Text = "EN PROCESO" S_CH.Text = "EN PROCESO" S_CP.Text = "EN PROCESO" PB1.Progress = 0 PB2.Progress = 0 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 ' NUEVOS CLIENTE skmt.ExecNonQuery("delete from kmt_info") skmt.ExecNonQuery("delete from cod_result") skmt.ExecNonQuery("delete from hist_gest") skmt.ExecNonQuery("delete from cat_gunaprod") skmt.ExecNonQuery("delete from CAT_DETALLES_PAQ") skmt.ExecNonQuery("delete from telefonos") skmt.ExecNonQuery("delete from HIST_VENTAS") skmt.ExecNonQuery("delete from HIST_PROMOS") skmt.ExecNonQuery("delete from HIST_CLIENTE_CANT_PROMOS") skmt.ExecNonQuery("delete from PROMOS_COMP") skmt.ExecNonQuery("delete from CAT_VERIFICACION") c=skmt.ExecQuery("select usuario from usuarioa") c.Position = 0 usuario = c.GetString("USUARIO") 'cmd.Initialize 'cmd.Name = "Select_count_clie" 'reqManager.ExecuteQuery(cmd,0,"count_cli") cmd.Initialize cmd.Name = "select_cat_gunaprod_SAL" cmd.Parameters = Array As Object(ALMACEN) reqManager.ExecuteQuery(cmd , 0, "gunaprod") cmd.Initialize cmd.Name = "select_cat_paquetes_SAL" cmd.Parameters = Array As Object(ALMACEN) reqManager.ExecuteQuery(cmd , 0, "gunaprodp") cmd.Initialize cmd.Name = "select_cat_paquetess_SAL" cmd.Parameters = Array As Object(ALMACEN) reqManager.ExecuteQuery(cmd , 0, "gunaprodps") cmd.Initialize cmd.Name = "select_cat_detallepa_SAL" cmd.Parameters = Array As Object(ALMACEN) reqManager.ExecuteQuery(cmd , 0, "detallepaq") cmd.Initialize cmd.Name = "select_cat_clientes_guna_SAL" cmd.Parameters = Array As Object(e_ruta.text, ALMACEN) reqManager.ExecuteQuery(cmd , 0, "kmt_datos") cmd.Initialize cmd.Name = "select_hist_datos_SAL" cmd.Parameters = Array As Object(e_ruta.text, ALMACEN) reqManager.ExecuteQuery(cmd , 0, "hist_datos") cmd.Initialize cmd.Name = "select_hist_promos_SAL" cmd.Parameters = Array As Object(e_ruta.text, ALMACEN) reqManager.ExecuteQuery(cmd , 0, "hist_promos") cmd.Initialize cmd.Name = "select_hist_cliente_promos_SAL" cmd.Parameters = Array As Object(e_ruta.text, ALMACEN) reqManager.ExecuteQuery(cmd , 0, "hist_cliente_promos") cmd.Initialize cmd.Name = "select_promo_comp_SAL" cmd.Parameters = Array As Object(e_ruta.text, ALMACEN) reqManager.ExecuteQuery(cmd , 0, "hist_comp_promos") cmd.Initialize cmd.Name = "select_verificacion_SAL" cmd.Parameters = Array As Object(e_ruta.text, ALMACEN) reqManager.ExecuteQuery(cmd , 0, "cat_verificacion") cmd.Initialize cmd.Name = "select_fecha" cmd.Parameters = Array As Object(e_ruta.text, ALMACEN) reqManager.ExecuteQuery(cmd , 0, "fecha") cmd.Initialize cmd.Name = "select_folio" cmd.Parameters = Array As Object(e_ruta.text, ALMACEN) reqManager.ExecuteQuery(cmd , 0, "folio") cmd.Initialize cmd.Name = "select_nextbsku_SAL" cmd.Parameters = Array As Object(e_ruta.text, ALMACEN) reqManager.ExecuteQuery(cmd , 0, "nextbestsku") ' PEDIO_CLIENTE c=skmt.ExecQuery("SELECT PC_CLIENTE, PC_FECHA, PC_USER, PC_NOART, PC_MONTO,PC_LON, PC_LAT, PC_COSTO_SIN, PC_RUTA, PC_ALMACEN FROM PEDIDO_CLIENTE ") If c.RowCount>0 Then For i=0 To c.RowCount -1 c.Position=i Dim cmd As DBCommand cmd.Initialize cmd.Name = "insert_pedidos_SAL" cmd.Parameters = Array As Object(C.GetString("PC_CLIENTE"),C.GetString("PC_FECHA"),C.GetString("PC_USER"),C.GetString("PC_NOART"),C.GetString("PC_MONTO"),C.GetString("PC_LON"),C.GetString("PC_LAT"),ALMACEN,l_ruta.text,C.GetString("PC_COSTO_SIN") ) reqManager.ExecuteQuery(cmd , 0,"inst_pedidos") Next c.Close End If ' PEDIO c=skmt.ExecQuery2("select CAT_VA_VALOR from CAT_VARIABLES WHERE CAT_VA_DESCRIPCION = ?", Array As String ("FOLIO")) c.Position =0 armafolio = l_ruta.text * 1000000 armafolio = armafolio + c.GetString("CAT_VA_VALOR") c.Close c=skmt.ExecQuery("SELECT PE_CEDIS,PE_COSTO_TOT,PE_COSTOU,PE_CANT,PE_PRONOMBRE,PE_PROID,PE_CLIENTE,PE_FECHA,PE_USUARIO, PE_COSTO_SIN, PE_RUTA, PE_DESC FROM PEDIDO WHERE PE_FOLIO IS NULL") If c.RowCount>0 Then For i=0 To c.RowCount -1 c.Position=i skmt.ExecNonQuery2("update PEDIDO set PE_FOLIO = ? where PE_PROID = ? AND PE_CLIENTE =? AND PE_FECHA =? AND PE_FOLIO IS NULL ", Array As Object(armafolio, c.GetString("PE_PROID"), c.GetString("PE_CLIENTE"),c.GetString("PE_FECHA"))) armafolio = armafolio + 1 Next c.Close End If armafolio = armafolio - (l_ruta.Text * 1000000) skmt.ExecNonQuery2("update CAT_VARIABLES set CAT_VA_VALOR = ? where CAT_VA_DESCRIPCION = ? ", Array As Object(armafolio,"FOLIO")) Dim cmd As DBCommand cmd.Initialize cmd.Name = "update_folio" cmd.Parameters = Array As Object(armafolio,l_ruta.Text , "1") reqManager.ExecuteQuery(cmd , 0, "folio") c=skmt.ExecQuery("SELECT PE_CEDIS,PE_COSTO_TOT,PE_COSTOU,PE_CANT,PE_PRONOMBRE,PE_PROID,PE_CLIENTE,PE_FECHA,PE_USUARIO, PE_COSTO_SIN, PE_RUTA, PE_DESC, PE_FOLIO FROM PEDIDO") d=skmt.ExecQuery("SELECT COUNT(*) as CUANTOS_PEDIDO FROM PEDIDO") If c.RowCount>0 Then For i=0 To c.RowCount -1 c.Position=i Dim cmd As DBCommand cmd.Initialize cmd.Name = "insert_pedido_SAL" cmd.Parameters = Array As Object(C.GetString("PE_CEDIS"),ALMACEN,C.GetString("PE_COSTO_TOT"),C.GetString("PE_COSTOU"),C.GetString("PE_CANT"),C.GetString("PE_PRONOMBRE"),C.GetString("PE_PROID"),C.GetString("PE_CLIENTE"),C.GetString("PE_FECHA"),C.GetString("PE_USUARIO"),C.GetString("PE_RUTA"), C.GetString("PE_COSTO_SIN"),C.GetString("PE_DESC"),c.GetString("PE_FOLIO")) reqManager.ExecuteQuery(cmd , 0, "ins_pedido") Next c.Close End If d.Position=0 cuantos_pedido = D.GetString("CUANTOS_PEDIDO") d.Close ' NOVENTA c=skmt.ExecQuery("SELECT NV_CLIENTE,NV_FECHA,NV_USER,NV_MOTIVO,NV_COMM,NV_LAT,NV_LON FROM NOVENTA") If c.RowCount>0 Then For i=0 To c.RowCount -1 c.Position=i Dim cmd As DBCommand cmd.Initialize cmd.Name = "insert_noventa_SAL" 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) reqManager.ExecuteQuery(cmd , 0, "inst_noventa") Next c.Close End If Dim cmd As DBCommand cmd.Initialize cmd.Name ="insert_drop_SAL" 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,"SYNC") reqManager.ExecuteQuery(cmd , 0, "inst_noventa") ' CLIE_ACT c=skmt.ExecQuery("SELECT CLIENTE,ATIENDE1, ATIENDE2,TEL,EMAIL,EDO,CP, MPO FROM CLIE_ACT") If c.RowCount>0 Then For i=0 To c.RowCount -1 c.Position=i Dim cmd As DBCommand cmd.Initialize cmd.Name = "insert_clie_act_SAL" cmd.Parameters = Array As Object(C.GetString("CLIENTE"),C.GetString("ATIENDE1"),C.GetString("ATIENDE2"),C.GetString("TEL"),C.GetString("EMAIL"),C.GetString("EDO"),C.GetString("CP"),C.GetString("MPO")) reqManager.ExecuteQuery(cmd , 0, "inst_clie_act") Next c.Close End If ' c=skmt.ExecQuery("select HIST_VI_CREDITO, HIST_VI_PRODUCTO,HIST_VI_VISITADOR, HIST_VI_RESULTADO, HIST_VI_CODIGO, HIST_VI_PARENTESCO, HIST_VI_COMENTARIO, HIST_VI_DTEVISITA, HIST_VI_LONGITUD, HIST_VI_LATITUD, hist_vi_imagen, hist_vi_dprom, hist_vi_mprom from HIST_VISITAS") ' If c.RowCount>0 Then ' For i=0 To c.RowCount -1 ' c.Position=i ' foto1 = c.GetBlob("HIST_VI_IMAGEN") ' ' Dim cmd As DBCommand ' cmd.Initialize ' cmd.Name = "insert_gestion_plan" ' cmd.Parameters = Array As Object(C.GetString("HIST_VI_CREDITO"),C.GetString("HIST_VI_PRODUCTO"),C.GetString("HIST_VI_VISITADOR"),C.GetString("HIST_VI_DTEVISITA"),C.GetString("HIST_VI_RESULTADO"),C.GetString("HIST_VI_CODIGO"),C.GetString("HIST_VI_COMENTARIO"),C.GetString("HIST_VI_PARENTESCO"),C.GetString("HIST_VI_LONGITUD"), C.GetString("HIST_VI_LATITUD"), foto1, c.GetString("HIST_VI_DPROM"),C.GetString("HIST_VI_MPROM")) ' reqManager.ExecuteQuery(cmd , 0, "inst_visitas") 'lv.AddTwoLines(c.GetString("HIST_VI_CREDITO"),c.GetString("HIST_VI_RESULTADO")) ' Next ' End If 'skmt.ExecNonQuery("DELETE FROM HIST_VISITAS") cargar.Visible = False Subir.Visible = False ' connecta.Visible = True 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) If Job.ErrorMessage = "STREAM" Then If CARGA = "SUBIR" Then PB2.Progress = PB2.Progress + PORCENTAJE S_CP.Text = "SUBIENDO" If PB2.Progress > 99 Then S_CP.Text = "VALIDANDO" End If End If End If Else 'If Job Success then ... LogColor("JobDone: '" & reqManager.HandleJob(Job).tag & "' - Registros: " & reqManager.HandleJob(Job).Rows.Size, Colors.Green) 'Mod por CHV - 211029 If Job.JobName = "DBRequest" Then Dim RESULT As DBResult = reqManager.HandleJob(Job) If RESULT.Tag = "kmt_datos" Then 'query tag S_CC.TEXT = "CARGANDO" 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_MTOCOMPRA As String = records(RESULT.Columns.Get("CAT_CL_MTOCOMPRA")) Dim CAT_CL_NUM_SERIEFISICO As String = records(RESULT.Columns.Get("CAT_CL_NUM_SERIEFISICO")) 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_MTOCOMPRA,CAT_CL_NUM_SERIEFISICO, 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_MTOCOMPRA,CAT_CL_NUM_SERIEFISICO)) Next Listo1 = 1 S_CC.Text = "LISTO" ToastMessageShow("Catalogo Clientes Actualizados." , True) If Listo1 =1 And Listo2 =1 And Listo3 = 1 And Listo4 = 1 Then 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 = "hist_promos" Then 'query tag For Each records() As Object In RESULT.Rows Dim HP_CLIENTE As String = records(RESULT.Columns.Get("HP_CLIENTE")) Dim HP_CODIGO_PROMOCION As String = records(RESULT.Columns.Get("HP_CODIGO_PROMOCION")) skmt.ExecNonQuery2("INSERT INTO HIST_PROMOS(HP_CLIENTE, HP_CODIGO_PROMOCION) VALUES (?,?)", Array As Object (HP_CLIENTE, HP_CODIGO_PROMOCION)) Next ToastMessageShow("Historico Promociones Actualizado." , True) If PB1.Progress = 0 Then PB1.Progress = 30 S_CH.Text = "CARGANDO" ELSE If PB1.Progress = 30 Then PB1.Progress = 60 ELSE IF PB1.Progress = 60 Then PB1.Progress = 100 S_CH.Text = "LISTO" End If End If End If If Job.JobName = "DBRequest" Then Dim RESULT As DBResult = reqManager.HandleJob(Job) If RESULT.Tag = "hist_cliente_promos" Then 'query tag For Each records() As Object In RESULT.Rows Dim HCCP_CLIENTE As String = records(RESULT.Columns.Get("HCCP_CLIENTE")) Dim HCCP_PROMO As String = records(RESULT.Columns.Get("HCCP_PROMO")) Dim HCCP_CANT As String = records(RESULT.Columns.Get("HCCP_CANT")) skmt.ExecNonQuery2("INSERT INTO HIST_CLIENTE_CANT_PROMOS(HCCP_CLIENTE, HCCP_PROMO, HCCP_CANT) VALUES (?,?,?)", Array As Object (HCCP_CLIENTE, HCCP_PROMO,HCCP_CANT)) Next ToastMessageShow(" Historico Clientes Promociones Actualizado." , True) End If End If If Job.JobName = "DBRequest" Then Dim RESULT As DBResult = reqManager.HandleJob(Job) If RESULT.Tag = "hist_comp_promos" Then 'query tag For Each records() As Object In RESULT.Rows Dim CAT_PA_ID As String = records(RESULT.Columns.Get("CAT_PA_ID")) Dim CAT_PA_MAXPROM As String = records(RESULT.Columns.Get("CAT_PA_MAXPROM")) Dim CAT_PA_MAXPROMREC As String = records(RESULT.Columns.Get("CAT_PA_MAXPROMREC")) Dim CAT_PA_MAXPROMCLIE As String = records(RESULT.Columns.Get("CAT_PA_MAXPROMCLIE")) skmt.ExecNonQuery2("INSERT INTO PROMOS_COMP(CAT_PA_ID, CAT_PA_MAXPROM, CAT_PA_MAXPROMREC, CAT_PA_MAXPROMCLIE) VALUES (?,?,?,?)", Array As Object (CAT_PA_ID, CAT_PA_MAXPROM,CAT_PA_MAXPROMREC,CAT_PA_MAXPROMCLIE)) Next If PB1.Progress = 0 Then PB1.Progress = 30 S_CH.Text = "CARGANDO" ELSE If PB1.Progress = 30 Then PB1.Progress = 60 ELSE IF PB1.Progress = 60 Then PB1.Progress = 100 S_CH.Text = "LISTO" End If End If End If If Job.JobName = "DBRequest" Then Dim RESULT As DBResult = reqManager.HandleJob(Job) If RESULT.Tag = "cat_verificacion" Then 'query tag For Each records() As Object In RESULT.Rows Dim CAT_VE_IDPROD As String = records(RESULT.Columns.Get("CAT_VE_IDPROD")) Dim CAT_VE_NOMBRE As String = records(RESULT.Columns.Get("CAT_VE_NOMBRE")) Dim CAT_VE_ORDEN As String = records(RESULT.Columns.Get("CAT_VE_ORDEN")) skmt.ExecNonQuery2("INSERT INTO CAT_VERIFICACION(CAT_VE_IDPROD, CAT_VE_NOMBRE,CAT_VE_ORDEN) VALUES (?,?,?)", Array As Object (CAT_VE_IDPROD, CAT_VE_NOMBRE,CAT_VE_ORDEN)) Next End If End If If Job.JobName = "DBRequest" Then Dim RESULT As DBResult = reqManager.HandleJob(Job) If RESULT.Tag = "gunaprod" Then 'query tag S_CP.Text = "CARGANDO" 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_TIPOPROD As Int = records(RESULT.Columns.Get("CAT_GP_TIPOPROD")) Dim CAT_GP_INICIATIVA As Int = records(RESULT.Columns.Get("CAT_GP_INICIATIVA")) 'CAT_GP_INICIATIVA = 5 ' ' 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,CAT_GP_TIPOPROD,CAT_GP_INICIATIVA) 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_TIPOPROD, CAT_GP_INICIATIVA)) Next Listo2=1 If PB2.Progress = 0 Then PB2.Progress = 30 S_CP.Text = "CARGANDO" ELSE If PB2.Progress = 30 Then PB2.Progress = 60 ELSE IF PB2.Progress = 60 Then PB2.Progress = 80 ELSE IF PB2.Progress = 80 Then PB2.Progress = 100 S_CP.Text = "LISTO" End If ToastMessageShow("Productos Actualizados." , True) If Listo1 =1 And Listo2 =1 And Listo3 = 1 And Listo4 = 1 Then 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_TIPOPROD As Int = records(RESULT.Columns.Get("CAT_GP_TIPOPROD")) ' 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_TIPOPROD) 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_TIPOPROD)) Next If PB2.Progress = 0 Then PB2.Progress = 30 S_CP.Text = "CARGANDO" ELSE If PB2.Progress = 30 Then PB2.Progress = 60 ELSE IF PB2.Progress = 60 Then PB2.Progress = 80 ELSE IF PB2.Progress = 80 Then PB2.Progress = 100 S_CP.Text = "LISTO" End If ToastMessageShow("Promociones Actualizados." , True) Listo4=1 If Listo1 =1 And Listo2 =1 And Listo3 = 1 And Listo4 = 1 Then Activity_Resume img2.Visible=False EJECUTANDO=0 Else If Listo4 = 1 And Listo3 = 1 And inve = 1 Then 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 = "nextbestsku" Then 'query tag For Each records() As Object In RESULT.Rows Dim TMP_STORECODE As String = records(RESULT.Columns.Get("TMP_STORECODE")) Dim CAT_CL_CODIGO As String = records(RESULT.Columns.Get("CAT_CL_CODIGO")) Dim TMP_RANK As String = records(RESULT.Columns.Get("TMP_RANK")) skmt.ExecNonQuery2("INSERT INTO CAT_NEXTBESTSKU(CAT_TIENDA, CAT_CODIGO,CAT_RANK) VALUES (?,?,?)", Array As Object (TMP_STORECODE, CAT_CL_CODIGO, TMP_RANK)) Next End If End If If Job.JobName = "DBRequest" Then Dim RESULT As DBResult = reqManager.HandleJob(Job) If RESULT.Tag = "gunaprodps" 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_TIPOPROD As Int = records(RESULT.Columns.Get("CAT_GP_TIPOPROD")) ' 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_TIPOPROD) 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_TIPOPROD)) Next If PB2.Progress = 0 Then PB2.Progress = 30 S_CP.Text = "CARGANDO" ELSE If PB2.Progress = 30 Then PB2.Progress = 60 ELSE IF PB2.Progress = 60 Then PB2.Progress = 80 ELSE IF PB2.Progress = 80 Then PB2.Progress = 100 S_CP.Text = "LISTO" End If ToastMessageShow("Promociones especiales Actualizados." , True) Listo4=1 If Listo1 =1 And Listo2 =1 And Listo3 = 1 And Listo4 = 1 Then Activity_Resume img2.Visible=False EJECUTANDO=0 Else If Listo4 = 1 And Listo3 = 1 And inve = 1 Then 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 If PB2.Progress = 0 Then PB2.Progress = 30 S_CP.Text = "CARGANDO" ELSE If PB2.Progress = 30 Then PB2.Progress = 60 ELSE IF PB2.Progress = 60 Then PB2.Progress = 80 ELSE IF PB2.Progress = 80 Then PB2.Progress = 100 S_CP.Text = "LISTO" End If Listo3 =1 If Listo1 =1 And Listo2 =1 And Listo3 = 1 And Listo4 = 1 Then Activity_Resume img2.Visible=False EJECUTANDO=0 Else If Listo4 = 1 And Listo3 = 1 And inve = 1 Then 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 = "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")) skmt.ExecNonQuery2("INSERT INTO HIST_VENTAS(HVD_CLIENTE,HVD_PRONOMBRE,HVD_CANT,HVD_COSTO_TOT) VALUES (?,?,?,?)", Array As Object (HVD_CLIENTE,HVD_PRONOMBRE,HVD_CANT,HVD_COSTO_TOT)) Next Listo3 =1 If PB1.Progress = 0 Then PB1.Progress = 30 S_CH.Text = "CARGANDO" ELSE If PB1.Progress = 30 Then PB1.Progress = 60 ELSE IF PB1.Progress = 60 Then PB1.Progress = 100 S_CH.Text = "LISTO" End If ToastMessageShow("Venta historico Actualizado." , True) If Listo1 =1 And Listo2 =1 And Listo3 = 1 And Listo4 = 1 Then 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 = "pedidos" Then 'query tag For Each records() As Object In RESULT.Rows Msgbox("El total del dia procesado es de:" & records(RESULT.Columns.Get("TOTAL")), "Pedido procesado") 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" S_CP.Text = "INFO OK" Else ToastMessageShow("No se cargo bien la info P. Sync Nuevamente" & CUANTOSP & " " & cuantos_pedido, True) S_CP.Text = "ENVIAR DATOS (K-2)" 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 = "ins_pedido" Then 'query tag For Each records() As Object In RESULT.Rows PB2.Progress = PB2.Progress + 5 S_CP.Text = "SUBIENDO" Next PB2.Progress = 100 S_CP.Text = "LISTO" 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 = "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 cargar.Visible = True Subir.Visible = True inv.Visible = True B_VALIDA.Visible = True connecta.Visible = False 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 B_VALIDA.Visible =False End If Next End If End If If Job.JobName = "DBRequest" Then Dim RESULT As DBResult = reqManager.HandleJob(Job) If RESULT.Tag = "CONEXION" Then 'query tag For Each records() As Object In RESULT.Rows Dim VALIDO As String = records(RESULT.Columns.Get("VALOR")) If VALIDO = "OK" Then cargar.Visible = True Subir.Visible = True inv.Visible = True B_VALIDA.Visible = True connecta.Visible = False If conn = "1" Then ToastMessageShow("Existe Conexión con el Servidor." , True) End If End If 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 name2 As String = records(RESULT.Columns.Get("VALIDO")) Next If name2 = "OK" Then PASO = 1 End If P1.Visible = False 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 = "folio" Then 'query tag For Each records() As Object In RESULT.Rows Try Dim FOLIO As String = records(RESULT.Columns.Get("FOLIO")) Catch Log(LastException) Dim FOLIO As String = "0" End Try skmt.ExecNonQuery2("delete from CAT_VARIABLES where CAT_VA_DESCRIPCION = ?", Array As Object ("FOLIO")) skmt.ExecNonQuery2("INSERT INTO CAT_VARIABLES(CAT_VA_DESCRIPCION, CAT_VA_VALOR) VALUES (?,?)", Array As Object ("FOLIO",FOLIO)) 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 End Sub Sub connecta_Click connecta1 = connecta1 + 1 imei = p.GetDeviceId conn = "1" Dim cmd As DBCommand cmd.Initialize cmd.Name = "select_version_SAL" reqManager.ExecuteQuery(cmd , 0, "version") Dim cmd As DBCommand cmd.Initialize cmd.Name = "select_ruta_SAL1" cmd.Parameters = Array As Object(ALMACEN,e_ruta.text) reqManager.ExecuteQuery(cmd , 0, "ruta") If e_ruta.Text = "SALMA" Then cargar.Visible = True Subir.Visible = True e_ruta.Text = "" End If ''''''' SE DOCUMENTA ESTA LINIA YA QUE TODOS SON PERFIL 10 ' c=skmt.ExecQuery2("select CAT_VA_VALOR from CAT_VARIABLES WHERE CAT_VA_DESCRIPCION = ?", Array As String ("PERFIL")) ' c.Position=0 ' If c.GetString("CAT_VA_VALOR") = "1" Then ' ' cmd.Initialize ' cmd.Name = "select_conexion" ' cmd.Parameters = Array As Object(ALMACEN,e_ruta.text) ' reqManager.ExecuteQuery(cmd , 0, "CONEXION") ' ' End If ToastMessageShow("Validando Conexión." , True) If connecta1 / 2 = 1 Then SERVER = "http://keymon.lat:1781" ' SERVER = "http://10.0.0.205:1782" 'SERVER = "http://keymon.com.mx:1782" 'SERVER = "http://177.244.63.54:1782" reqManager.Initialize(Me, SERVER) Else SERVER = "http://keymon.lat:1781" ' SERVER = "http://10.0.0.205:1782" 'SERVER = "http://keymon.com.mx:1782" ' SERVER = "http://177.244.63.54:1782" reqManager.Initialize(Me, SERVER) End If 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 HIST_VERIFICACION") Activity_Resume End If End If If e_ruta.Text = "IWL" Then trabajar.Visible = False NUEVO.Visible =False BUSCA.Visible=False connecta.Visible=False img3.Visible =True Resumen.Visible= False End If End Sub Sub inv_Click img2.Visible =True EJECUTANDO = 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") cmd.Initialize cmd.Name = "select_cat_gunaprod_SAL" cmd.Parameters = Array As Object(ALMACEN) reqManager.ExecuteQuery(cmd , 0, "gunaprod") cmd.Initialize cmd.Name = "select_cat_paquetes_SAL" cmd.Parameters = Array As Object(ALMACEN) reqManager.ExecuteQuery(cmd , 0, "gunaprodp") cmd.Initialize cmd.Name = "select_cat_detallepa_SAL" cmd.Parameters = Array As Object(ALMACEN) reqManager.ExecuteQuery(cmd , 0, "detallepaq") cargar.Visible = False Subir.Visible = False connecta.Visible = True inv.Visible = False ToastMessageShow("Se Actualizaran los datos, Este proceso podria tardar hasta un minuto, gracias" , True) End Sub Sub t1_tick cmd.Initialize cmd.Name = "select_cuantos_pedido_SAL" cmd.Parameters = Array As Object(ALMACEN,l_ruta.text) reqManager.ExecuteQuery(cmd , 0, "valida_pedido") cmd.Initialize cmd.Name = "select_cuantos_noventa_SAL" cmd.Parameters = Array As Object(ALMACEN,l_ruta.text) reqManager.ExecuteQuery(cmd , 0, "valida_noventa") cmd.Initialize cmd.Name = "select_cuantos_pedidoc_SAL" cmd.Parameters = Array As Object(ALMACEN,l_ruta.text) reqManager.ExecuteQuery(cmd , 0, "valida_pedidoc") If PB2.Progress = 0 Then S_CP.Text = "ENVIAR DATOS (K-1)" End If img2.Visible=False t1.Enabled = False End Sub Sub B_OK_PAS_Click If CARGA = "SUBIR" And S_CP.Text = "INFO OK" Then P1.Visible = False trabajar.Visible = True NUEVO.Visible =True BUSCA.Visible=True connecta.Visible=True Resumen.Visible= True img2.Visible=False Else If CARGA = "SUBIR" And S_CP.Text = "ERROR" Then Msgbox("Tiene que subir de nuevo la información","Atención") P1.Visible = False trabajar.Visible = True NUEVO.Visible =True BUSCA.Visible=True connecta.Visible=True Resumen.Visible= True img2.Visible=False Else if CARGA = "SUBIR" And S_CP.Text <> "INFO OK" Then RES = Msgbox2("Seguro que desa abortar el proceso","Cierre", "Si", "", "No",LoadBitmap(File.DirAssets,"alert2.png")) If RES = DialogResponse.POSITIVE Then P1.Visible = False trabajar.Visible = True NUEVO.Visible =True BUSCA.Visible=True connecta.Visible=True Resumen.Visible= True img2.Visible=False ExitApplication End If End If If CARGA = "CARGAR" And S_CP.Text = "LISTO" And S_CC.Text = "LISTO" And S_CH.Text = "LISTO" Then P1.Visible = False trabajar.Visible = True NUEVO.Visible =True BUSCA.Visible=True connecta.Visible=True Resumen.Visible= True img2.Visible=False Else if CARGA = "CARGAR" And (S_CP.Text <> "LISTO" Or S_CC.Text <> "LISTO" Or S_CH.Text <> "LISTO") Then RES = Msgbox2("Seguro que desa abortar el proceso","Cierre", "Si", "", "No",LoadBitmap(File.DirAssets,"alert2.png")) If RES = DialogResponse.POSITIVE Then P1.Visible = False trabajar.Visible = True NUEVO.Visible =True BUSCA.Visible=True connecta.Visible=True Resumen.Visible= True img2.Visible=False skmt.ExecNonQuery("delete from kmt_info") skmt.ExecNonQuery("delete from cod_result") skmt.ExecNonQuery("delete from hist_gest") skmt.ExecNonQuery("delete from cat_gunaprod") skmt.ExecNonQuery("delete from CAT_DETALLES_PAQ") skmt.ExecNonQuery("delete from telefonos") skmt.ExecNonQuery("delete from HIST_VENTAS") skmt.ExecNonQuery("delete from HIST_PROMOS") skmt.ExecNonQuery("delete from HIST_CLIENTE_CANT_PROMOS") skmt.ExecNonQuery("delete from PROMOS_COMP") skmt.ExecNonQuery("delete from CAT_VERIFICACION") ExitApplication End If End If '------------- '------------- TODO ESTE CODIGO ES PARA CUANDO APLICAN DESUCENTOS. ' ' Dim cmd As DBCommand' ' cmd.Initialize ' cmd.Name = "select_usuario_guna_super_SAL" ' cmd.Parameters = Array As Object(USUARIO1.Text, CLAVE.Text) ' reqManager.ExecuteQuery(cmd , 0, "usuario") 'If PASO = 1 Then 'c=skmt.ExecQuery("select usuario from usuarioa") '' c.Position = 0 ' usuario = c.GetString("USUARIO") ' c.Close ' PEDIO_CLIENTE ' c=skmt.ExecQuery("SELECT PC_CLIENTE, PC_FECHA, PC_USER, PC_NOART, PC_MONTO,PC_LON, PC_LAT, PC_COSTO_SIN, PC_RUTA, PC_ALMACEN FROM PEDIDO_CLIENTE ") ' d=skmt.ExecQuery("SELECT COUNT(*) as CUANTOS_PEDIDOSC FROM PEDIDO_CLIENTE ") ' If c.RowCount>0 Then ' For i=0 To c.RowCount -1 ' c.Position=i ' ' Dim cmd As DBCommand ' cmd.Initialize ' cmd.Name = "insert_pedidos_SAL" ' cmd.Parameters = Array As Object(C.GetString("PC_CLIENTE"),C.GetString("PC_FECHA"),C.GetString("PC_USER"),C.GetString("PC_NOART"),C.GetString("PC_MONTO"),C.GetString("PC_LON"),C.GetString("PC_LAT"),ALMACEN,l_ruta.text,C.GetString("PC_COSTO_SIN") ) ' reqManager.ExecuteQuery(cmd , 0,"inst_pedidos") ' ' Next ' c.Close ' End If ' d.Position=0 ' cuantos_pedidosc = D.GetString("CUANTOS_PEDIDOSC") ' d.Close ' ' ' PEDIO ' c=skmt.ExecQuery("SELECT PE_CEDIS,PE_COSTO_TOT,PE_COSTOU,PE_CANT,PE_PRONOMBRE,PE_PROID,PE_CLIENTE,PE_FECHA,PE_USUARIO, PE_COSTO_SIN, PE_RUTA, PE_DESC FROM PEDIDO") ' d=skmt.ExecQuery("SELECT COUNT(*) as CUANTOS_PEDIDO FROM PEDIDO") ' ' If c.RowCount>0 Then ' For i=0 To c.RowCount -1 ' c.Position=i ' ' Dim cmd As DBCommand ' cmd.Initialize ' cmd.Name = "insert_pedido_SAL" ' cmd.Parameters = Array As Object(C.GetString("PE_CEDIS"),ALMACEN,C.GetString("PE_COSTO_TOT"),C.GetString("PE_COSTOU"),C.GetString("PE_CANT"),C.GetString("PE_PRONOMBRE"),C.GetString("PE_PROID"),C.GetString("PE_CLIENTE"),C.GetString("PE_FECHA"),C.GetString("PE_USUARIO"),C.GetString("PE_RUTA"), C.GetString("PE_COSTO_SIN"),C.GetString("PE_DESC")) ' reqManager.ExecuteQuery(cmd , 0, "ins_pedido") ' ' Next ' c.Close ' End If ' d.Position=0 ' cuantos_pedido = D.GetString("CUANTOS_PEDIDO") ' d.Close ' ' ' NOVENTA ' c=skmt.ExecQuery("SELECT NV_CLIENTE,NV_FECHA,NV_USER,NV_MOTIVO,NV_COMM,NV_LAT,NV_LON 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 ' ' Dim cmd As DBCommand ' cmd.Initialize ' cmd.Name = "insert_noventa_SAL" ' 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) ' reqManager.ExecuteQuery(cmd , 0, "inst_noventa") ' ' Next ' c.Close ' End If ' d.Position=0 ' cuantos_noventa = D.GetString("CUANTOS_NOVENTA") ' d.Close ' ' ' DROP ' ' t1.Initialize("T1", 60000) ' 1000 = 1 second ' t1.Enabled = True 'Dim cmd As DBCommand 'cmd.Initialize ' cmd.Name ="insert_drop_SAL" ' 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) ' reqManager.ExecuteQuery(cmd , 0, "inst_noventa") ' img2.Visible =True ' ' ' ' ToastMessageShow("Se Actualizaran los datos, Este proceso podria tardar hasta un minuto, gracias "& l_ruta.text , True) ' 'USUARIO1.Text = "" 'CLAVE.Text = "" ' End If ' End Sub Sub NUEVO_Click StartActivity(nuevocliente) End Sub Sub B_OK_RES_Click trabajar.Visible = True NUEVO.Visible =True BUSCA.Visible=True connecta.Visible=True Resumen.Visible= True P_RESUMEN.Visible=False End Sub Sub Resumen_Click P_RESUMEN.Visible = True trabajar.Visible = False NUEVO.Visible =False BUSCA.Visible=False connecta.Visible=False Subir.Visible=False cargar.Visible=False Resumen.Visible= False B_VALIDA.Visible =False End Sub Sub B_VALIDA_Click cmd.Initialize cmd.Name = "select_pedidos_hoy_SAL" cmd.Parameters = Array As Object(ALMACEN, e_ruta.text) reqManager.ExecuteQuery(cmd , 0, "pedidos") End Sub