B4A=true Group=Default Group ModulesStructureVersion=1 Type=Class Version=11.5 @EndOfDesignText@ Sub Class_Globals Private Root As B4XView 'ignore Private xui As XUI 'ignore Dim conectado As String Dim t1, t2 As Timer Dim sb As StringBuilder Dim PHONE As Phone Dim g As GPS Dim trabajar As Button ' Dim lat_gps, lon_gps As String Dim c As Cursor Dim d As Cursor Dim b As Cursor Dim e As Cursor Dim f As Cursor Dim ro As Cursor Dim D2 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 Rut_Rep As String 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 L_MARCAS As ListView Private Panel11 As Panel Private E_RUTA2 As EditText Private resdia As ImageView Private hacer_ped As ImageView Private nvo_cliente As ImageView Private tickets_dia As ImageView Private l_monto_ks As Label Private l_monto_kp As Label Private l_monto_k As Label Private l_monto_c1 As Label Private l_monto_c2 As Label Private l_monto_c3 As Label Private l_encuesta As Label Private bpv1 As BatteryProgressView Dim batterystatus(11) As Int Private bu As BatteryUtilities Private Panel4 As Panel Private L_NES As Label Private L_REAL As Label Private L_ALCANCE As Label Private L_VPLAN As Label Private L_VREAL As Label Private L_EFEC_VIS As Label Private L_VISITCC As Label Private L_EFEC_PV As Label Private L_EFEC_PURA As Label Private L_CTE_PROMO As Label Private L_REDEN_PROMO As Label Private L_LIN_TICK As Label Private SCROLL_RESDIA As ScrollView Private L_ACUMULADO As Label Private L_UNILEVER As Label Private L_RECHAZOP As Label Private L_RECHAZOM As Label Private L_VTA_3MES As Label Private L_VTA_2MES As Label Private L_VTA_1MES As Label Private L_MES_PY As Label Private L_FREC_DE_CREAL As Label Private L_FREC_DE_COBJ As Label Private L_COB_VISIT As Label Private L_VISIT_REAL As Label Private L_VISIT_PLAN As Label Private L_ECO As Label Private L_COB_CCC As Label Private L_CTES As Label Private L_VPO_VTA As Label Private L_VPO_OBJ As Label Private L_DS_VTA As Label Private L_DS_OBJ As Label Private L_DRA_VTA As Label Private L_DRA_OBJ As Label Private L_ALCANCEM As Label Private L_TENDENCIA As Label Private L_VTA_ACUM As Label Private L_OBJ_MES As Label Private L_DS_OBJD As Label Private L_DS_VTAD As Label Private LPT As String Private STEYIN As String Private STEYOUT As String Private L_PRIO As Label Private L_SECUND As Label Private L_COMP As Label Private stay_hh As String Private stay_mi As String Private stay_ss As String Dim sDate,sTime As String Dim HORAINGRESO As String Private L_QUALA As Label Private L_FERRERO As Label Private L_SANMARCOS As Label Private L_CAMPARI As Label Private L_IBERIA As Label Private L_BEPENSA As Label Private L_SCJ As Label Private L_MEDJ As Label Private L_DURACELL As Label Private L_GUNA As Label Private L_KIMB As Label Private L_TRESM As Label Private L_REDB As Label Private Btn_Ubicar As Button Private B_COMM As Button Private L_TOTAL_MM As Label Private L_TOTAL_VIVE As Label Private L_TOTAL_GUNA As Label Private L_TOTAL_BA As Label Private L_TOTAL_COMIS As Label Private L_TOTAL_MM_1 As Label Private L_TOTAL_VIVE_1 As Label Private L_TOTAL_GUNA_1 As Label Private L_TOTAL_BA_1 As Label Private L_TOTAL_COMIS_1 As Label Private B_OK_COMISS As Button Private Panel_C As Panel Private TitleHeight As Int = 50dip Private Title2Height As Int = 100dip Private DividerHeight As Int = 5dip Private CLV1 As CustomListView Private pnlTitle As B4XView Private xui As XUI Type TitleData (Title As String) Private B_MARCAS As Button Private lblTitle As Label Private B_OK_PANEL5 As Button Private p_principal As Panel Private teclado As IME Private panel5 As Panel Private panel_5 As Panel Private p_marcasRes As Panel Private p_sombra As Panel Private Label22 As Label Private l_rutasuplencia As Label Dim l_ru_pri As Label Private l_ru_sup As Label Private Label4 As Label Private Label2 As Label Private Label25 As Label Dim p_transparenteActualizacion As Panel Private p_forzarActualizacion As Panel Dim l_forzarActualizacion As Label End Sub 'You can add more parameters here. Public Sub Initialize As Object Return Me End Sub 'This event will be called once, before the page becomes visible. Private Sub B4XPage_Created (Root1 As B4XView) Root = Root1 'load the layout to Root Root.LoadLayout("principal") SCROLL_RESDIA.Width = Root.Width SCROLL_RESDIA.Height = Root.Height B_OK_RES.color = Colors.Red B_OK_RES.TextColor = Colors.White EJECUTANDO=1 Dim ruta As String img2.Visible =False ruta = File.DirInternal 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) B4XPages.MainPage.skmt.Initialize(ruta,"kmt.db", True) b=B4XPages.MainPage.skmt.ExecQuery("Select count(*) as CUANTOS from pedido_cliente") b.Position=0 Cuantos = b.GetString("CUANTOS") b.Close d=B4XPages.MainPage.skmt.ExecQuery("select count(*) as TOTAL_VISITAR from kmt_info2 where gestion = 0") d.Position=0 e=B4XPages.MainPage.skmt.ExecQuery("select count(*) as POR_VISITAR from kmt_info2") e.Position=0 f=B4XPages.MainPage.skmt.ExecQuery("select count(*) as CAT_CL_RUTA from kmt_info2") f.Position=0 l_ruta.Text = f.GetString("CAT_CL_RUTA") f.Close ' ro = B4XPages.MainPage.skmt.ExecQuery("select count(*) as CAT_CL_RUTA from kmt_info2") ' ro.Position = 0 ' l_ru_pri.Text = ro.GetString("CAT_CL_RUTA") ' ro.Close ' If l_ru_pri.Text = 0 Then ' l_ru_pri.Text = 0 ' End If If l_ruta.Text = 0 Then l_ruta.Text = 0 Else If l_ruta.Text > 0 Then f=B4XPages.MainPage.skmt.ExecQuery("select distinct CAT_CL_RUTA from kmt_info2 where CAT_CL_RUTA not in (select * from ruta_suplencia)") 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=B4XPages.MainPage.skmt.ExecQuery("select sum(pc_monto) as MONTO_DIA, count(pc_cliente) AS CLIENTES_DIA from pedido_cliente ") b=B4XPages.MainPage.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") b.Close c.Close End If d.Close e.Close CallSubDelayed(FirebaseMessaging, "SubscribeToTopics") Private s As Cursor = B4XPages.MainPage.skmt.ExecQuery("select count(RS_RUTA) as cuenta, RS_RUTA FROM RUTA_SUPLENCIA") s.Position = 0 If s.GetString("cuenta") = 0 Then Label22.Visible = False l_rutasuplencia.Visible = False Else If s.GetString("cuenta") > 0 Then Label22.Visible = True l_rutasuplencia.Visible = True l_rutasuplencia.Text = s.GetString("RS_RUTA") End If p_transparenteActualizacion.Width = Root.Width p_transparenteActualizacion.Height = Root.Height Subs.centraPanel(p_forzarActualizacion, p_transparenteActualizacion.Width) End Sub 'Descargar: GP_https://keymon.lat/movil/guna/GP_4.10.10.EP_d.apk Sub B4XPage_Appear ' LogColor($"########## ${Subs.traeRuta} ##########"$, Colors.red) p_principal.Visible = True Subs.validaPromoProcterPRO3009 HORAINGRESO ="000000" Btn_Ubicar.Left = (Root.Width/2) - (Btn_Ubicar.Width/2) ' B4XPages.MainPage.reqManager.Initialize(Me, B4XPages.MainPage.SERVER) PASO = 0 If Not(Starter.gps.GPSEnabled) Then If Starter.marcaCel <> "Sony" Then ToastMessageShow("Es necesario tener el GPS encendido", True) StartActivity(Starter.gps.LocationSettingsIntent) End If c=B4XPages.MainPage.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" B4XPages.MainPage.reqManager.ExecuteQuery(cmd , 0, "fecha") Msgbox("AJUSTAR FECHA","AVISO") 'ignore B4XPage_Appear Else c = B4XPages.MainPage.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") 'ignore c.Close B4XPage_Appear 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 End If DateTime.DateFormat = "MM/dd/yyyy" fecha=DateTime.Date(DateTime.Now) b=B4XPages.MainPage.skmt.ExecQuery("Select count(*) as CUANTOS from pedido_cliente") b.Position = 0 Cuantos = b.GetString("CUANTOS") b.Close If Starter.marcaCel <> "Sony" Then ToastMessageShow(Cuantos , True) d=B4XPages.MainPage.skmt.ExecQuery("select count(*) as TOTAL_VISITAR from kmt_info2 where gestion = 0") d.Position=0 e=B4XPages.MainPage.skmt.ExecQuery("select count(*) as POR_VISITAR from kmt_info2") e.Position=0 f=B4XPages.MainPage.skmt.ExecQuery("select count(*) as CAT_CL_RUTA from kmt_info2") 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=B4XPages.MainPage.skmt.ExecQuery("select distinct CAT_CL_RUTA from kmt_info2 where CAT_CL_RUTA not in (select * from ruta_suplencia)") 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 L_CUANTOST.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 b=B4XPages.MainPage.skmt.ExecQuery("select count(*) as CUANTOS from noventa") b.Position=0 l_cuantosn.Text = b.GetString("CUANTOS") b.close Else c=B4XPages.MainPage.skmt.ExecQuery("select SUM(PE_COSTO_TOT) as MONTO_DIA, COUNT(DISTINCT(PE_CLIENTE)) AS CLIENTES_DIA from PEDIDO ") b=B4XPages.MainPage.skmt.ExecQuery("select count(*) as CUANTOS from noventa") c.Position=0 b.Position=0 L_MONTOD.Text = c.GetString("MONTO_DIA") l_cuantosc.Text = c.GetString("CLIENTES_DIA") D2=B4XPages.MainPage.skmt.ExecQuery("select COUNT(*) AS CUANTOS from PEDIDO ") D2.Position = 0 LPT = D2.GetString("CUANTOS") / l_cuantosc.Text D2.Close 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") d.Close l_porvisitar.Text = e.GetString("POR_VISITAR") L_CUANTOST.Text = l_cuantosc.Text + l_cuantosn.Text drop = L_CUANTOST.Text / l_porvisitar.Text l_drop.Text = Round(drop * 100) If L_CUANTOST.Text < 40 Then ImageView3.Bitmap = LoadBitmap(File.DirAssets, "tache_rojo.png") Else If L_CUANTOST.Text > = 40 And L_CUANTOST.Text < 50 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") < 4000 Then ImageView5.Bitmap = LoadBitmap(File.DirAssets, "tache_rojo.png") Else if c.GetString("MONTO_DIA") > = 4000 And c.GetString("MONTO_DIA") < 6250 Then ImageView5.bitmap = LoadBitmap(File.DirAssets, "alerta_amarilla.png") Else ImageView5.Bitmap = LoadBitmap(File.DirAssets, "palomita_verde.png") End If b.Close c.Close End If c.Close b.Close e.Close c=B4XPages.MainPage.skmt.ExecQuery("select ID_ALMACEN from CAT_ALMACEN") C.Position =0 ALMACEN = C.GetString("ID_ALMACEN") c.Close bu.Initialize batterystatus = bu.BatteryInformation c=B4XPages.MainPage.skmt.ExecQuery("select usuario from usuarioa") c.Position = 0 usuario = c.GetString("USUARIO") c.Close B4XPages.MainPage.montoActual = L_MONTOD.Text B4XPages.MainPage.clientestotal = L_CUANTOST.Text B4XPages.MainPage.clientesventa = l_cuantosc.Text B4XPages.MainPage.clientesvisitados = l_porvisitar.TEXT B4XPages.MainPage.ALMACEN = ALMACEN B4XPages.MainPage.rutapreventa = l_ruta.text '////// Para el usuario global - Chv c=B4XPages.MainPage.skmt.ExecQuery("select usuario from usuarioa") c.Position = 0 usuario = c.GetString("USUARIO") B4XPages.MainPage.usuario = usuario c.Close '/////// CallSub(Starter, "ENVIA_ULTIMA_GPS") ' panel_5.Visible = False ' 'Log("panel5 visible FALSE") Private s As Cursor = B4XPages.MainPage.skmt.ExecQuery("select count(RS_RUTA) as cuenta, RS_RUTA FROM RUTA_SUPLENCIA") s.Position = 0 If s.GetString("cuenta") = 0 Then Label22.Visible = False l_rutasuplencia.Visible = False l_rutasuplencia.Text = "" Else If s.GetString("cuenta") > 0 Then Label22.Visible = True l_rutasuplencia.Visible = True l_rutasuplencia.Text = s.GetString("RS_RUTA") End If End Sub Sub Subir_Click CARGA = "SUBIR" P1.Visible = True P1.BringToFront '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 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 B4XPages.MainPage.skmt.ExecNonQuery("delete from pedido_cliente where PC_CLIENTE not In (select PE_CLIENTE from pedido)") c=B4XPages.MainPage.skmt.ExecQuery("select usuario from usuarioa") c.Position = 0 usuario = c.GetString("USUARIO") c.Close c=B4XPages.MainPage.skmt.ExecQuery("select HGDATE, HGLAT, HGLON from HIST_GPS") If c.RowCount>0 Then For i=0 To c.RowCount -1 c.Position=i Dim cmd As DBCommand cmd.Initialize cmd.Name = "UPDATE_GUNA_ACTUAL2_GPS" cmd.Parameters = Array As Object(L_MONTOD.Text, L_CUANTOST.Text, l_cuantosc.Text,l_porvisitar.TEXT,c.GetString("hglat"),c.GetString("hglon"),batterystatus(0),LPT, STEYIN, STEYOUT,ALMACEN,l_ruta.Text ) B4XPages.MainPage.reqManager.ExecuteCommand(cmd , "inst_visitas") Next End If c.Close ' PEDIO_CLIENTE c=B4XPages.MainPage.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=B4XPages.MainPage.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_GV2" 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") ) B4XPages.MainPage.reqManager.ExecuteCommand(cmd , "ins_pedidos") Next End If c.Close d.Position=0 cuantos_pedidosc = D.GetString("CUANTOS_PEDIDOSC") d.Close ' ENVIO DE LOS CODIGOS QR 'c=skmt.ExecQuery2("SELECT CAT_CL_NUM_SERIEFISICO,CAT_CL_CODIGO ,CAT_CL_LONG,CAT_CL_LAT, CAT_CL_FOTO FROM kmt_info2 where CAT_CL_NUM_SERIEFISICO = ?", Array As String("OK")) c=B4XPages.MainPage.skmt.ExecQuery("SELECT CODIGOKMTS, CODIGOB, LAT, LON FROM HIST_CODIGO_BARRAS" ) 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_2_GV2" cmd.Parameters = Array As Object(C.GetString("CODIGOKMTS"),C.GetString("CODIGOB"),C.GetString("LON"),C.GetString("LAT"),ALMACEN,l_ruta.text ) B4XPages.MainPage.reqManager.ExecuteCommand(cmd , "ins_QR") Next End If c.Close c=B4XPages.MainPage.skmt.ExecQuery("SELECT CAT_CL_NUM_SERIEFISICO,CAT_CL_CODIGO ,CAT_CL_LONG,CAT_CL_LAT, CAT_CL_FOTO FROM kmt_info2 where CAT_CL_NUM_SERIEFISICO IS NOT NULL") 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 foto1 = c.GetBlob("CAT_CL_FOTO") Dim cmd As DBCommand cmd.Initialize cmd.Name = "insert_QR_GV2" 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, foto1 ) B4XPages.MainPage.reqManager.ExecuteCommand(cmd , "ins_QR") Next End If c.Close 'BITACORA (PROYECTO GPS) Private h As ResultSet = B4XPages.MainPage.skmt.ExecQuery($"select * from bitacoraGPS"$) Do While h.nextrow cmd.Initialize Private eventob As String = h.GetString("eventob") cmd.Name = "mandaBitacora3_GUNA" Log("BITACORA3") Private clienteb As String = h.GetString("clienteb") Private finb As String = h.GetString("finb") Private nombreCliente As String =Subs. traeNombreCliente(h.GetString("clienteb")) If eventob = "Llega a almacen" Then nombreCliente = "BOLETA" clienteb = "" finb = h.GetString("iniciob") End If ' Private VarXRu As String = ("R:"&e_ruta.Text & " R:" & E_RUTA2.Text) ' LogColor("----------->" & VarXRu, Colors.Red) If eventob = "Salida almacen" Then nombreCliente = "CHECKLIST" If eventob = "Fin Día" Then nombreCliente = "FIN DIA" If eventob = "Carga día" Then nombreCliente = "CARGA DIA" If eventob = "Carga día suplencia" Then nombreCliente = Subs.traeRutasSup ' If eventob = "Suplencia" Then nombreCliente = VarXRu ' Log($"'${almacenb}', '${usuariob}', '${rutab}', '${eventob}', '${clienteb}', '${nombreCliente}','${ iniciob}', '${finb}','${ latitudb}','${ longitudb}', '${precision}', '${motivonoventa}', '${motivonovisita}', '${fechab}'"$) ' TMP_ALMACEN, TMP_USUARIO, TMP_RUTA, TMP_EVENTO, TMP_ID_CLIENTE, TMP_NOMBRE_CLIENTE, TMP_INICIO, TMP_FINAL, TMP_LATITUD, TMP_LONGITUD, TMP_PRESICION, TMP_MOTIVO_NO_VENTA, TMP_MOTIVO_NO_VISITA, TMP_FECHA_SINC, TMP_FECHA_MOVIL cmd.Parameters = Array As Object(h.GetString("almacenb"), h.GetString("usuariob"), h.GetString("rutab"), eventob, clienteb, nombreCliente, h.GetString("iniciob"), finb, h.GetString("latitudb"), h.GetString("longitudb"), h.GetString("precision"), h.GetString("motivonoventa"), h.GetString("motivonovisita"), h.GetString("fechab")) B4XPages.MainPage.reqManager.ExecuteCommand(cmd , "mandaBitacora") Loop Log("MANDAMOS BITACORA") c=B4XPages.MainPage.skmt.ExecQuery("SELECT HE_CLIE, HE_RES, HE_FECHA, HE_TIPO, HE_LAT, HE_LON, HE_FOTO FROM HIST_ENCUESTA") If c.RowCount>0 Then For i=0 To c.RowCount -1 c.Position=i Dim cmd As DBCommand cmd.Initialize cmd.Name = "insert_encuesta2_GUNA" 'TMP_HE_CLIE, TMP_HE_RES, TMP_HE_FECHA, TMP_HE_TIPO, TMP_HE_IDALMACEN, TMP_HE_RUTA, TMP_HE_LONGITUD, TMP_HE_LATITUD, TMP_HE_EXISTE cmd.Parameters = Array As Object(C.GetString("HE_CLIE"), C.GetString("HE_RES"), C.GetString("HE_FECHA"), c.GetString("HE_TIPO"), Subs.traeAlmacen, Subs.traeRuta, c.GetString("HE_LAT"), c.GetString("HE_LON"), "", c.GetBlob("HE_FOTO")) B4XPages.MainPage.reqManager.ExecuteCommand(cmd , "inst_encuesta") Next End If c.Close c=B4XPages.MainPage.skmt.ExecQuery2("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 WHERE (PE_RECALCULO = ? or PE_RECALCULO = ? or PE_RECALCULO IS NULL)",Array As String("","null")) d=B4XPages.MainPage.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_GV2" 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")) B4XPages.MainPage.reqManager.ExecuteCommand(cmd , "ins_pedido") Next End If c.Close d.Position=0 cuantos_pedido = D.GetString("CUANTOS_PEDIDO") d.Close c=B4XPages.MainPage.skmt.ExecQuery2("SELECT PE_RECALCULO,PE_RECALCULOTOT,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 WHERE PE_RECALCULO <> ? or PE_RECALCULO <> ? or PE_RECALCULO IS NOT NULL",Array As String("","null")) d=B4XPages.MainPage.skmt.ExecQuery($"SELECT COUNT(*) as CUANTOS_PEDIDO FROM PEDIDO where PE_RUTA = '${Subs.traeRuta}'"$) 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_GV2" cmd.Parameters = Array As Object(C.GetString("PE_CEDIS"), ALMACEN, C.GetString("PE_RECALCULOTOT"), C.GetString("PE_RECALCULO"), 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")) B4XPages.MainPage.reqManager.ExecuteCommand(cmd , "ins_pedido") Next End If c.Close d.Position=0 cuantos_pedido = D.GetString("CUANTOS_PEDIDO") d.Close ' 'CUESTIONARIO c = B4XPages.MainPage.skmt.ExecQuery($"select * from cuestionario"$) Private rutaActual As String = Subs.traeRuta If c.RowCount > 0 Then For i = 0 To c.RowCount - 1 c.Position = i Dim cmd As DBCommand cmd.Initialize cmd.Name = "insert_CUESTIONARIO_GUNA" cmd.Parameters = Array As Object(c.GetString("Q_IDCLIENTE"), rutaActual, ALMACEN, c.GetString("Q_FECHA"), c.GetString("Q_IDPREGUNTA"), c.GetString("Q_PREGUNTA"), c.GetString("Q_IDRESPUESTA"), C.GetString("Q_RESPUESTA")) B4XPages.MainPage.reqManager.ExecuteCommand(cmd , "ins_cuestionario") Next End If c.Close ' NOVENTA c=B4XPages.MainPage.skmt.ExecQuery("SELECT NV_CLIENTE,NV_FECHA,NV_USER,NV_MOTIVO,NV_COMM,NV_LAT,NV_LON FROM NOVENTA") D=B4XPages.MainPage.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_GV2" 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) B4XPages.MainPage.reqManager.ExecuteCommand(cmd , "inst_noventa") Next End If c.Close d.Position=0 cuantos_noventa = D.GetString("CUANTOS_NOVENTA") d.Close ' DATOS DE KMTS PARA EL TIPO DE ABARROTE. '''CAT_CL_GIRO = ? WHERE CAT_CL_CODIGO = ? And CAT_CL_NOMBRE = ? kmt_info2 c=B4XPages.MainPage.skmt.ExecQuery("Select CAT_CL_GIRO, CAT_CL_CODIGO from kmt_info2") If c.RowCount>0 Then For i=0 To c.RowCount -1 c.Position=i Dim cmd As DBCommand cmd.Initialize cmd.Name = "insert_GIROS_ENC" cmd.Parameters = Array As Object(C.GetString("CAT_CL_CODIGO"),C.GetString("CAT_CL_GIRO")) B4XPages.MainPage.reqManager.ExecuteCommand(cmd , "inst_abarrote") Next End If c.Close ' GEO CERCA c=B4XPages.MainPage.skmt.ExecQuery("Select HGCLIENTE, HGDATE, HGLAT, HGLON from HIST_GEOCERCA") If c.RowCount>0 Then For i=0 To c.RowCount -1 c.Position=i Dim cmd As DBCommand cmd.Initialize cmd.Name = "insert_geocerca_GV2" cmd.Parameters = Array As Object(C.GetString("HGCLIENTE"),C.GetString("HGDATE"),C.GetString("HGLAT"),C.GetString("HGLON")) B4XPages.MainPage.reqManager.ExecuteCommand(cmd , "inst_hist_geo") Next End If c.Close ' LO DEL LIKE c=B4XPages.MainPage.skmt.ExecQuery("Select HFCLIENTE, HFALIAS,HFRUTA,HFALMACEN from HIST_FACE") If c.RowCount>0 Then For i=0 To c.RowCount -1 c.Position=i Dim cmd As DBCommand cmd.Initialize cmd.Name = "insert_face_like_GV2" cmd.Parameters = Array As Object(C.GetString("HFCLIENTE"),C.GetString("HFALIAS"),C.GetString("HFRUTA"),C.GetString("HFALMACEN")) B4XPages.MainPage.reqManager.ExecuteCommand(cmd , "inst_hist_face") Next End If c.Close ' DROP t1.Initialize("T1", 30000) ' 1000 = 1 second t1.Enabled = True Dim sDate,sTime As String DateTime.DateFormat = "MM/dd/yyyy" sDate=DateTime.Date(DateTime.Now) sTime=DateTime.Time(DateTime.Now) Dim cmd As DBCommand cmd.Initialize cmd.Name ="insert_drop_GV2_2" cmd.Parameters = Array As Object(usuario,l_ruta.Text,sDate & sTime, l_porvisitar.Text,l_drop.Text,l_efectiva.Text,l_cuantosc.Text,l_cuantosn.Text, L_MONTOD.Text,"ENVIO",ALMACEN) B4XPages.MainPage.reqManager.ExecuteCommand(cmd , "inst_drop") img2.Visible =True PORCENTAJE = Round(100/ (cuantos_noventa + cuantos_pedido + cuantos_pedidosc + 1)) If Starter.marcaCel <> "Sony" Then ToastMessageShow("Se Actualizaran los datos, Este proceso podria tardar hasta un minuto, gracias "& l_ruta.text , True) End If Private x As Cursor = B4XPages.MainPage.skmt.ExecQuery("Select CLIENTE, ALMACEN, P1, P2, P3, P4, P5, P6, P7, P8, P9 from ENCUESTA_MODULO1") If x.RowCount>0 Then For i=0 To x.RowCount -1 x.Position=i Dim cmd As DBCommand cmd.Initialize cmd.Name = "insert_ENCUESTA_MODULO1" cmd.Parameters = Array As Object(x.GetString("CLIENTE"), x.GetString("ALMACEN"),x.GetString("P1"), x.GetString("P2"), x.GetString("P3"), x.GetString("P4"), x.GetString("P5"), x.GetString("P6"), x.GetString("P7"), x.GetString("P8"), x.GetString("P9")) B4XPages.MainPage.reqManager.ExecuteCommand(cmd , "insert_ENCUESTA_MODULO1") Next End If x.Close Private x1 As Cursor = B4XPages.MainPage.skmt.ExecQuery("Select CLIENTE, ALMACEN, P1, P2, P3, P4, P5, P6 from ENCUESTA_MODULO2") If x1.RowCount>0 Then For i=0 To x1.RowCount -1 x1.Position=i Dim cmd As DBCommand cmd.Initialize cmd.Name = "insert_ENCUESTA_MODULO2" cmd.Parameters = Array As Object(x1.GetString("CLIENTE"), x1.GetString("ALMACEN"),x1.GetString("P1"), x1.GetString("P2"), x1.GetString("P3"), x1.GetString("P4"), x1.GetString("P5"), x1.GetString("P6")) B4XPages.MainPage.reqManager.ExecuteCommand(cmd , "insert_ENCUESTA_MODULO2") Next End If x1.Close Private x2 As Cursor = B4XPages.MainPage.skmt.ExecQuery("Select CLIENTE, ALMACEN, P1, P2, P3, P4, P5, P6, P7, P8, P9, P10, P11 from ENCUESTA_MODULO3") If x2.RowCount>0 Then For i=0 To x2.RowCount -1 x2.Position=i 'Logcolor(x2.GetString("CLIENTE"),Colors.Red) Dim cmd As DBCommand cmd.Initialize cmd.Name = "insert_ENCUESTA_MODULO3" cmd.Parameters = Array As Object(x2.GetString("CLIENTE"), x2.GetString("ALMACEN"),x2.GetString("P1"), x2.GetString("P2"), x2.GetString("P3"), x2.GetString("P4"), x2.GetString("P5"), x2.GetString("P6"), x2.GetString("P7"), x2.GetString("P8"), x2.GetString("P9"), x2.GetString("P10"), x2.GetString("P11")) B4XPages.MainPage.reqManager.ExecuteCommand(cmd , "insert_ENCUESTA_MODULO3") Next End If x2.Close Private x As Cursor = B4XPages.MainPage.skmt.ExecQuery("Select CLIENTE, ALMACEN, P1, P2, P3, P4, P5, P6, P7, P8 from ENCUESTA_MODULO4") If x.RowCount>0 Then For i=0 To x.RowCount -1 x.Position=i Dim cmd As DBCommand cmd.Initialize cmd.Name = "insert_ENCUESTA_MODULO4" cmd.Parameters = Array As Object(x.GetString("CLIENTE"), x.GetString("ALMACEN"),x.GetString("P1"), x.GetString("P2"), x.GetString("P3"), x.GetString("P4"), x.GetString("P5"), x.GetString("P6"), x.GetString("P7"), x.GetString("P8")) B4XPages.MainPage.reqManager.ExecuteCommand(cmd , "insert_ENCUESTA_MODULO4") Next End If x.Close Private x As Cursor = B4XPages.MainPage.skmt.ExecQuery("Select CLIENTE, ALMACEN, P1, P2, P3, P4, P5, P6, P7, P8, P9 from ENCUESTA_MODULO5") If x.RowCount>0 Then For i=0 To x.RowCount -1 x.Position=i Dim cmd As DBCommand cmd.Initialize cmd.Name = "insert_ENCUESTA_MODULO5" cmd.Parameters = Array As Object(x.GetString("CLIENTE"), x.GetString("ALMACEN"),x.GetString("P1"), x.GetString("P2"), x.GetString("P3"), x.GetString("P4"), x.GetString("P5"), x.GetString("P6"), x.GetString("P7"), x.GetString("P8"), x.GetString("P9")) B4XPages.MainPage.reqManager.ExecuteCommand(cmd , "insert_ENCUESTA_MODULO5") Next End If x.Close End Sub Sub cargar_Click If E_RUTA2.Visible = True Then Rut_Rep = e_ruta.Text & " " & E_RUTA2.Text Else Rut_Rep = e_ruta.Text End If Log(Rut_Rep) B4XPages.MainPage.skmt.ExecNonQuery2("UPDATE GPS SET HABILITADO = (?)",Array As Object(0)) B4XPages.MainPage.skmt.ExecNonQuery2("DELETE FROM CAT_VARIABLES WHERE CAT_VA_DESCRIPCION = ?",Array As String("CARGA_DIA")) B4XPages.MainPage.skmt.ExecNonQuery2("DELETE FROM CAT_VARIABLES WHERE CAT_VA_DESCRIPCION = ?",Array As String("pasword")) B4XPages.MainPage.skmt.ExecNonQuery2("DELETE FROM CAT_VARIABLES WHERE CAT_VA_DESCRIPCION = ?",Array As String("LATITUD")) B4XPages.MainPage.skmt.ExecNonQuery2("DELETE FROM CAT_VARIABLES WHERE CAT_VA_DESCRIPCION = ?",Array As String("GEOCERCA")) B4XPages.MainPage.skmt.ExecNonQuery2("DELETE FROM CAT_VARIABLES WHERE CAT_VA_DESCRIPCION = ?",Array As String("LONGITUD")) B4XPages.MainPage.skmt.ExecNonQuery2("UPDATE GPS SET HABILITADO = (?)",Array As Object(0)) CARGA = "CARGAR" img2.Visible =True L_P_1.Visible = True S_CC.Visible = True Btn_Ubicar.Visible=False ' P1.Visible = True p_principal.Visible = False Subs.panelVisible(P1, 0, 0) Subs.centraPanel(P1, Root.Width) Subs.centraPanelV(P1, Root.Height) ' 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 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_info2 (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 B4XPages.MainPage.skmt.ExecNonQuery("delete from kmt_info2") B4XPages.MainPage.skmt.ExecNonQuery("delete from PROMO_ESP") B4XPages.MainPage.skmt.ExecNonQuery("delete from cod_result") B4XPages.MainPage.skmt.ExecNonQuery("delete from hist_gest") B4XPages.MainPage.skmt.ExecNonQuery("delete from cat_gunaprod") B4XPages.MainPage.skmt.ExecNonQuery("delete from CAT_DETALLES_PAQ") B4XPages.MainPage.skmt.ExecNonQuery("delete from telefonos") B4XPages.MainPage.skmt.ExecNonQuery("delete from HIST_VENTAS") B4XPages.MainPage.skmt.ExecNonQuery("delete from HIST_PROMOS") B4XPages.MainPage.skmt.ExecNonQuery("delete from HIST_CLIENTE_CANT_PROMOS") B4XPages.MainPage.skmt.ExecNonQuery("delete from PROMOS_COMP") B4XPages.MainPage.skmt.ExecNonQuery("delete from CAT_VERIFICACION") B4XPages.MainPage.skmt.ExecNonQuery("DELETE FROM MARCAS_RUTAS") B4XPages.MainPage.skmt.ExecNonQuery("DELETE FROM HIST_STAY_STORE") B4XPages.MainPage.skmt.ExecNonQuery("DELETE FROM HIST_GEOCERCA") B4XPages.MainPage.skmt.ExecNonQuery("DELETE FROM HIST_MARCAS_CUOTAS") B4XPages.MainPage.skmt.ExecNonQuery("DELETE FROM HIST_ENCUESTA_CLIENTE") B4XPages.MainPage.skmt.ExecNonQuery("DELETE FROM CAT_ENCUESTA_PREGUNTA") c = B4XPages.MainPage.skmt.ExecQuery2("select count(CAT_VA_DESCRIPCION) as HoraIngreso from cat_variables where CAT_VA_DESCRIPCION = ? ", Array As String("HoraIngreso")) c.Position = 0 DateTime.TimeFormat = "HHmmss" 'Valida si ya se cuenta con hora actualiza el valor si no lo inserta----------- If c.GetString("HoraIngreso") > 0 Then B4XPages.MainPage.skmt.ExecNonQuery2("Update cat_variables set CAT_VA_VALOR = ? WHERE CAT_VA_DESCRIPCION = ?" , Array As String(DateTime.Time(DateTime.Now),"HoraIngreso")) Else B4XPages.MainPage.skmt.ExecNonQuery2("INSERT INTO CAT_VARIABLES(CAT_VA_VALOR,CAT_VA_DESCRIPCION) VALUES (?,?)" , Array As String(DateTime.Time(DateTime.Now),"HoraIngreso")) End If c.Close DateTime.TimeFormat = "HH:mm:ss" c=B4XPages.MainPage.skmt.ExecQuery("select usuario from usuarioa") c.Position = 0 usuario = c.GetString("USUARIO") c.Close ' Dim sDate,sTime As String DateTime.DateFormat = "MM/dd/yyyy" sDate=DateTime.Date(DateTime.Now) sTime=DateTime.Time(DateTime.Now) Dim P As PhoneId imei = "" cmd.Initialize cmd.Name ="insert_drop_GV2_2" cmd.Parameters = Array As Object(usuario,e_ruta.text,sDate,imei,sTime,"","","","","CARGA",ALMACEN) B4XPages.MainPage.reqManager.ExecuteCommand(cmd , "inst_drop") cmd.Initialize cmd.Name = "select_cat_gunaprod_GV2" cmd.Parameters = Array As Object(ALMACEN) B4XPages.MainPage.reqManager.ExecuteQuery(cmd , 0, "gunaprod") cmd.Initialize cmd.Name = "select_HIST_ESPECIAL_GUNA" ' cmd.Parameters = Array As Object(ALMACEN) B4XPages.MainPage.reqManager.ExecuteQuery(cmd , 0, "histespecial") ' cmd.Initialize ' cmd.Name = "select_resum_apk_guna" ''' va el nombre de archivo de config ' cmd.Parameters = Array As Object(ALMACEN) ' B4XPages.MainPage.reqManager.ExecuteQuery(cmd , 0, "resum_apk") ''' donde regresa la info ver job_done cmd.Initialize cmd.Name = "select_cat_paquetes_GV6" cmd.Parameters = Array As Object(ALMACEN) B4XPages.MainPage.reqManager.ExecuteQuery(cmd , 0, "gunaprodp") If ALMACEN = 32 Then 'Or ALMACEN = 6 cmd.Initialize cmd.Name = "select_cat_promoesp_GUNA" cmd.Parameters = Array As Object(ALMACEN) B4XPages.MainPage.reqManager.ExecuteQuery(cmd , 0, "promoesp") End If If ALMACEN = 87 Or ALMACEN = 6 Then cmd.Initialize cmd.Name = "select_cat_promoesp_GUNA2" cmd.Parameters = Array As Object(ALMACEN) B4XPages.MainPage.reqManager.ExecuteQuery(cmd , 0, "promoesp") End If cmd.Initialize cmd.Name = "select_cat_paquetess_GV2" cmd.Parameters = Array As Object(ALMACEN) B4XPages.MainPage.reqManager.ExecuteQuery(cmd , 0, "gunaprodp") cmd.Initialize cmd.Name = "select_cat_detallepa_GV2" cmd.Parameters = Array As Object(ALMACEN) B4XPages.MainPage.reqManager.ExecuteQuery(cmd , 0, "detallepaq") cmd.Initialize cmd.Name = "select_cat_clientes_guna_GV2" cmd.Parameters = Array As Object(e_ruta.text, ALMACEN) B4XPages.MainPage.reqManager.ExecuteQuery(cmd , 0, "kmt_datos") cmd.Initialize cmd.Name = "select_hist_datos_GV2_2" cmd.Parameters = Array As Object(e_ruta.text, ALMACEN,e_ruta.text, ALMACEN,e_ruta.text, ALMACEN) B4XPages.MainPage.reqManager.ExecuteQuery(cmd , 0, "hist_datos") cmd.Initialize cmd.Name = "select_hist_promos_GV2" cmd.Parameters = Array As Object(e_ruta.text, ALMACEN) B4XPages.MainPage.reqManager.ExecuteQuery(cmd , 0, "hist_promos") cmd.Initialize cmd.Name = "select_hist_cliente_promos_GV2" cmd.Parameters = Array As Object(e_ruta.text, ALMACEN) B4XPages.MainPage.reqManager.ExecuteQuery(cmd , 0, "hist_cliente_promos") cmd.Initialize cmd.Name = "select_HIST_MARCAS_CUOTAS" cmd.Parameters = Array As Object( ALMACEN, e_ruta.text) B4XPages.MainPage.reqManager.ExecuteQuery(cmd , 0, "HIST_MARCAS_CUOTAS") cmd.Initialize cmd.Name = "select_cat_encuesta_p_GUNA" cmd.Parameters = Array As Object( ALMACEN,e_ruta.text ) B4XPages.MainPage.reqManager.ExecuteQuery(cmd , 0, "carga_encuesta") ' cmd.Initialize ' cmd.Name = "SELECT_HIST_ENCUESTA_GUNA" ' cmd.Parameters = Array As Object( e_ruta.text, ALMACEN) ' B4XPages.MainPage.reqManager.ExecuteQuery(cmd , 0, "HIST_ENCUESTA2") cmd.Initialize cmd.Name = "SELECT_HIST_PRODPROM_GUNA" cmd.Parameters = Array As Object(ALMACEN, e_ruta.text) B4XPages.MainPage.reqManager.ExecuteQuery(cmd , 0, "HIST_PROM") 'Promo PRO3015 - 2 AXE AEROSOL 150 ML + 1 REXONA AEROSOL 150 ML $104.00 ' Solo aplica para los que hayan comprado la PRO2265 durante Jul-Ago, el siguiente query trae esos clientes. cmd.Initialize cmd.Name = "selectPromo2265JulAgo_Guna" cmd.Parameters = Array As Object(e_ruta.text, ALMACEN) B4XPages.MainPage.reqManager.ExecuteQuery(cmd , 0, "hist_pro2265") ' Dim reqManager9000 As DBRequestManager ' reqManager9000.Initialize(Me, "http://keymon.lat:9000/") 'Promo PRO3054 - Plan promocional Act II Cajitas (Conagra) ' Solo aplica para los que hayan comprado la PRO3054 durante Jul-Sep, el siguiente query trae esos clientes. cmd.Initialize cmd.Name = "selectPromo3054Jul-Sep_Guna" cmd.Parameters = Array As Object(e_ruta.text, ALMACEN) B4XPages.MainPage.reqManager.ExecuteQuery(cmd , 0, "hist_pro3054") 'Promo PRO3055 - Plan promocional Act II Cajitas (Conagra) ' Solo aplica para los que hayan comprado la PRO3055 durante Jul-Sep, el siguiente query trae esos clientes. cmd.Initialize cmd.Name = "selectPromo3055Jul-Sep_Guna" cmd.Parameters = Array As Object(e_ruta.text, ALMACEN) B4XPages.MainPage.reqManager.ExecuteQuery(cmd , 0, "hist_pro3055") 'SUPLENCIA If E_RUTA2.text <> "" Then B4XPages.MainPage.skmt.ExecNonQuery2("INSERT INTO RUTA_SUPLENCIA(RS_RUTA) VALUES(?)",Array As String(E_RUTA2.Text)) E_RUTA2.Visible = False Panel11.Visible = False cmd.Initialize cmd.Name = "select_cat_clientes_guna_GV2" cmd.Parameters = Array As Object(E_RUTA2.text, ALMACEN) B4XPages.MainPage.reqManager.ExecuteQuery(cmd , 0, "kmt_datos2") cmd.Initialize cmd.Name = "select_hist_datos_GV2_2" cmd.Parameters = Array As Object(E_RUTA2.text, ALMACEN,E_RUTA2.text, ALMACEN,E_RUTA2.text, ALMACEN) B4XPages.MainPage.reqManager.ExecuteQuery(cmd , 0, "hist_datos") cmd.Initialize cmd.Name = "select_hist_promos_GV2" cmd.Parameters = Array As Object(E_RUTA2.text, ALMACEN) B4XPages.MainPage.reqManager.ExecuteQuery(cmd , 0, "hist_promos") cmd.Initialize cmd.Name = "select_hist_cliente_promos_GV2" cmd.Parameters = Array As Object(E_RUTA2.text, ALMACEN) B4XPages.MainPage.reqManager.ExecuteQuery(cmd , 0, "hist_cliente_promos") cmd.Initialize cmd.Name = "SELECT_HIST_PRODPROM_GUNA" cmd.Parameters = Array As Object(ALMACEN,E_RUTA2.text) B4XPages.MainPage.reqManager.ExecuteQuery(cmd , 0, "HIST_PROM") End If cmd.Initialize cmd.Name = "select_promo_comp_GV2" cmd.Parameters = Array As Object(ALMACEN) B4XPages.MainPage.reqManager.ExecuteQuery(cmd , 0, "hist_comp_promos") cmd.Initialize cmd.Name = "select_coordenadas_GUNA" cmd.Parameters = Array As Object(ALMACEN) B4XPages.MainPage.reqManager.ExecuteQuery(cmd , 0, "coordenadas") cmd.Initialize cmd.Name = "select_PASS_GUNA" cmd.Parameters = Array As Object(ALMACEN) B4XPages.MainPage.reqManager.ExecuteQuery(cmd , 0, "password") ' cmd.Initialize ' cmd.Name = "select_verificacion_GV2" ' cmd.Parameters = Array As Object(e_ruta.text, ALMACEN) ' B4XPages.MainPage.reqManager.ExecuteQuery(cmd , 0, "cat_verificacion") cmd.Initialize cmd.Name = "select_fecha" cmd.Parameters = Array As Object(e_ruta.text, ALMACEN) B4XPages.MainPage.reqManager.ExecuteQuery(cmd , 0, "fecha") ' cmd.Initialize ' cmd.Name = "select_folio_GV2" ' cmd.Parameters = Array As Object(e_ruta.text, ALMACEN) ' B4XPages.MainPage.reqManager.ExecuteQuery(cmd , 0, "folio") cmd.Initialize cmd.Name = "select_marcas_rutas" cmd.Parameters = Array As Object( ALMACEN, e_ruta.text) B4XPages.MainPage.reqManager.ExecuteQuery(cmd , 0, "marcas_rutas") cmd.Initialize cmd.Name = "select_CUEST2_GV2" cmd.Parameters = Array As Object(ALMACEN) B4XPages.MainPage.reqManager.ExecuteQuery(cmd , 0, "CUESTIONARIO") ' cmd.Initialize ' cmd.Name = "select_CLIENTE_ENCUESTA" ' cmd.Parameters = Array As Object(e_ruta.text, ALMACEN) ' B4XPages.MainPage.reqManager.ExecuteQuery(cmd , 0, "ENCUESTA_CLIENTE") ' cmd.Initialize ' cmd.Name = "select_HIST_CUOTAS" ' cmd.Parameters = Array As Object( ALMACEN,e_ruta.text ) ' B4XPages.MainPage.reqManager.ExecuteQuery(cmd , 0, "CUOTAS") cmd.Initialize cmd.Name = "select_comis_cedex" cmd.Parameters = Array As Object( ALMACEN,e_ruta.text ) B4XPages.MainPage.reqManager.ExecuteQuery(cmd , 0, "COMISIONES") cargar.Visible = False Subir.Visible = False inv.Visible = False E_RUTA2.Visible = False If Starter.marcaCel <> "Sony" Then ToastMessageShow("Se Actualizaran los datos, Este proceso podria tardar hasta un minuto, gracias" , True) End Sub Sub JobDone(Job As HttpJob) Log("JOBDONE PRINCIPAL") ' If Job.JobName = "DBRequest" Then ' Dim RESULT As DBResult = B4XPages.MainPage.reqManager.HandleJob(Job) ' 'Log($"Tag: ${RESULT.tag}, success=${Job.Success}"$) ' End If 'Log(Job.Tag) If Job.Success = False Then If Job.ErrorMessage <> "STREAM" Then LogColor("Error: " & Job.tag & " : " & Subs.parseHTTPError(Job.ErrorMessage), Colors.red) '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: '" & B4XPages.MainPage.reqManager.HandleJob(Job).tag & "' - Registros: " & B4XPages.MainPage.reqManager.HandleJob(Job).Rows.Size, Colors.Green) 'Mod por CHV - 211027 'Verificamos que el usuario guardado en BD sea VALIDO. If Job.JobName = "DBRequest" Then Dim RESULT As DBResult = B4XPages.MainPage.reqManager.HandleJob(Job) If RESULT.Tag = "usuarioA" Then 'query tag Private n As String = "Sin Usuario" For Each records() As Object In RESULT.Rows n = records(RESULT.Columns.Get("USUARIO")) Next LogColor("************************** " & n, Colors.Green) If n = "OKActivo" Then Dim cmd As DBCommand cmd.Initialize cmd.Name = "select_ruta_GV2_70_9" cmd.Parameters = Array As Object(ALMACEN,e_ruta.text) B4XPages.MainPage.reqManager.ExecuteQuery(cmd , 0, "ruta") 'Log("Usuario guardado en BD es 'Valido'") Else Msgbox("Usuario o password No validos","") 'ignore B4XPages.MainPage.skmt.ExecNonQuery("delete from usuarioa") ExitApplication End If 'Log("***************** "&n) End If End If If Job.JobName = "DBRequest" Then Dim RESULT As DBResult = B4XPages.MainPage.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")) B4XPages.MainPage.skmt.ExecNonQuery2("INSERT INTO kmt_info2(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,e_ruta.Text,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)) B4XPages.MainPage.skmt.ExecNonQuery2("INSERT INTO HIST_STAY_STORE(HSS_CODIGO, HSS_IN , HSS_OUT , HSS_TOT) VALUES (?,0,0,0)", Array As Object (CAT_CL_CODIGO)) Next Listo1 = 1 S_CC.Text = "LISTO" ' If Starter.marcaCel <> "Sony" Then ToastMessageShow("Catalogo Clientes Actualizados." , True) If Listo1 =1 And Listo2 =1 And Listo3 = 1 And Listo4 = 1 Then B4XPage_Appear img2.Visible=False EJECUTANDO=0 End If End If End If If Job.JobName = "DBRequest" Then Dim RESULT As DBResult = B4XPages.MainPage.reqManager.HandleJob(Job) If RESULT.Tag = "kmt_datos2" 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")) B4XPages.MainPage.skmt.ExecNonQuery2("INSERT INTO kmt_info2(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,E_RUTA2.Text,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)) ' Subs.bitacora(Subs.fechanormal(DateTime.Now),usuario,Subs.traeAlmacen, e_ruta.Text, "Suplencia", "",Subs.fechanormal(DateTime.Now),Subs.fechanormal(DateTime.Now),B4XPages.MainPage.lat_gps,B4XPages.MainPage.lon_gps,"2","","") B4XPages.MainPage.skmt.ExecNonQuery2("INSERT INTO HIST_STAY_STORE(HSS_CODIGO, HSS_IN , HSS_OUT , HSS_TOT) VALUES (?,0,0,0)", Array As Object (CAT_CL_CODIGO)) Next Listo1 = 1 S_CC.Text = "LISTO" ' If Starter.marcaCel <> "Sony" Then ToastMessageShow("Catalogo Clientes Actualizados." , True) If Listo1 =1 And Listo2 =1 And Listo3 = 1 And Listo4 = 1 Then B4XPage_Appear img2.Visible=False EJECUTANDO=0 End If End If End If ' If Job.JobName = "DBRequest" Then ' Dim RESULT As DBResult = B4XPages.MainPage.reqManager.HandleJob(Job) ' If RESULT.Tag = "resum_apk" Then 'query tag ' For Each records() As Object In RESULT.Rows ' Dim HIST_RA_OBJMES As String = records(RESULT.Columns.Get("HIST_RA_OBJMES")) ' Dim HIST_RA_VENTA As String = records(RESULT.Columns.Get("HIST_RA_VENTA")) ' Dim HIST_RA_TENDENCIA As String = records(RESULT.Columns.Get("HIST_RA_TENDENCIA")) ' Dim HIST_RA_ALCANCE As String = records(RESULT.Columns.Get("HIST_RA_ALCANCE")) ' Dim HISR_RA_DRAOBJ As String = records(RESULT.Columns.Get("HISR_RA_DRAOBJ")) ' Dim HIST_RA_DRAVTA As String = records(RESULT.Columns.Get("HIST_RA_DRAVTA")) ' Dim HIST_RA_DSOBJ As String = records(RESULT.Columns.Get("HIST_RA_DSOBJ")) ' Dim HIST_RA_DSVTA As String = records(RESULT.Columns.Get("HIST_RA_DSVTA")) ' Dim HIST_RA_VPOOBJ As String = records(RESULT.Columns.Get("HIST_RA_VPOOBJ")) ' Dim HIST_RA_VPOVTA As String = records(RESULT.Columns.Get("HIST_RA_VPOVTA")) ' Dim HIST_RA_CTES As String = records(RESULT.Columns.Get("HIST_RA_CTES")) ' Dim HIST_RA_COBCCC As String = records(RESULT.Columns.Get("HIST_RA_COBCCC")) ' Dim HIST_RA_ECO As String = records(RESULT.Columns.Get("HIST_RA_ECO")) ' Dim HIST_RA_VISITPLAN As String = records(RESULT.Columns.Get("HIST_RA_VISITPLAN")) ' Dim HIST_RA_VISIREAL As String = records(RESULT.Columns.Get("HIST_RA_VISIREAL")) ' Dim HIST_RA_COBVISIT As String = records(RESULT.Columns.Get("HIST_RA_COBVISIT")) ' Dim HIST_RA_FRECCOMPOBJ As String = records(RESULT.Columns.Get("HIST_RA_FRECCOMPOBJ")) ' Dim HIST_RA_FRECCOMREAL As String = records(RESULT.Columns.Get("HIST_RA_FRECCOMREAL")) ' Dim HIST_RA_VENTAMES1 As String = records(RESULT.Columns.Get("HIST_RA_VENTAMES1")) ' Dim HIST_RA_VENTAMES2 As String = records(RESULT.Columns.Get("HIST_RA_VENTAMES2")) ' Dim HIST_RA_VENTAMES3 As String = records(RESULT.Columns.Get("HIST_RA_VENTAMES3")) ' Dim HIST_RA_VENTAMES4 As String = records(RESULT.Columns.Get("HIST_RA_VENTAMES4")) ' Dim HIST_RA_RECHAZO As String = records(RESULT.Columns.Get("HIST_RA_RECHAZO")) ' Dim HIST_RA_RECHAZOPORCEN As String = records(RESULT.Columns.Get("HIST_RA_RECHAZOPORCEN")) ' Dim HIST_RA_SEMANA1 As String = records(RESULT.Columns.Get("HIST_RA_SEMANA1")) ' Dim HIST_RA_SEMANA1_DIAS As String = records(RESULT.Columns.Get("HIST_RA_SEMANA1_DIAS")) ' Dim HIST_RA_SEMANA1_DRA As String = records(RESULT.Columns.Get("HIST_RA_SEMANA1_DRA")) ' Dim HIST_RA_SEMANA2 As String = records(RESULT.Columns.Get("HIST_RA_SEMANA2")) ' Dim HIST_RA_SEMANA2_DIAS As String = records(RESULT.Columns.Get("HIST_RA_SEMANA2_DIAS")) ' Dim HIST_RA_SEMANA2_DRA As String = records(RESULT.Columns.Get("HIST_RA_SEMANA2_DRA")) ' Dim HIST_RA_SEMANA3 As String = records(RESULT.Columns.Get("HIST_RA_SEMANA3")) ' Dim HIST_RA_SEMANA3_DIAS As String = records(RESULT.Columns.Get("HIST_RA_SEMANA3_DIAS")) ' Dim HIST_RA_SEMANA3_DRA As String = records(RESULT.Columns.Get("HIST_RA_SEMANA3_DRA")) ' Dim HIST_RA_SEMANA4 As String = records(RESULT.Columns.Get("HIST_RA_SEMANA4")) ' Dim HIST_RA_SEMANA4_DIAS As String = records(RESULT.Columns.Get("HIST_RA_SEMANA4_DIAS")) ' Dim HIST_RA_SEMANA4_DRA As String = records(RESULT.Columns.Get("HIST_RA_SEMANA4_DRA")) ' Dim HIST_RA_SEMANA5 As String = records(RESULT.Columns.Get("HIST_RA_SEMANA5")) ' Dim HIST_RA_SEMANA5_DIAS As String = records(RESULT.Columns.Get("HIST_RA_SEMANA5_DIAS")) ' Dim HIST_RA_SEMANA5_DRA As String = records(RESULT.Columns.Get("HIST_RA_SEMANA5_DRA")) ' Dim HIST_RA_SEMANA1_LPT As String = records(RESULT.Columns.Get("HIST_RA_SEMANA1_LPT")) ' Dim HIST_RA_SEMANA2_LPT As String = records(RESULT.Columns.Get("HIST_RA_SEMANA2_LPT")) ' Dim HIST_RA_SEMANA3_LPT As String = records(RESULT.Columns.Get("HIST_RA_SEMANA3_LPT")) ' Dim HIST_RA_SEMANA4_LPT As String = records(RESULT.Columns.Get("HIST_RA_SEMANA4_LPT")) ' Dim HIST_RA_SEMANA5_LPT As String = records(RESULT.Columns.Get("HIST_RA_SEMANA5_LPT")) ' Dim HIST_RA_RUTA As String = records(RESULT.Columns.Get("HIST_RA_RUTA")) ' Dim HIST_RA_IDALMACEN As String = records(RESULT.Columns.Get("HIST_RA_IDALMACEN")) ' B4XPages.MainPage.skmt.ExecNonQuery2("INSERT INTO HIST_RESUM_APK(HIST_RA_OBJMES,HIST_RA_VENTA,HIST_RA_TENDENCIA,HIST_RA_ALCANCE,HISR_RA_DRAOBJ,HIST_RA_DRAVTA,HIST_RA_DSOBJ,HIST_RA_DSVTA,HIST_RA_VPOOBJ,HIST_RA_VPOVTA,HIST_RA_CTES,HIST_RA_COBCCC,HIST_RA_ECO,HIST_RA_VISITPLAN,HIST_RA_VISIREAL,HIST_RA_COBVISIT,HIST_RA_FRECCOMPOBJ,HIST_RA_FRECCOMREAL,HIST_RA_VENTAMES1,HIST_RA_VENTAMES2,HIST_RA_VENTAMES3,HIST_RA_VENTAMES4,HIST_RA_RECHAZO,HIST_RA_RECHAZOPORCEN,HIST_RA_SEMANA1,HIST_RA_SEMANA1_DIAS,HIST_RA_SEMANA1_DRA,HIST_RA_SEMANA2,HIST_RA_SEMANA2_DIAS,HIST_RA_SEMANA2_DRA,HIST_RA_SEMANA3,HIST_RA_SEMANA3_DIAS,HIST_RA_SEMANA3_DRA,HIST_RA_SEMANA4,HIST_RA_SEMANA4_DIAS,HIST_RA_SEMANA4_DRA,HIST_RA_SEMANA5,HIST_RA_SEMANA5_DIAS,HIST_RA_SEMANA5_DRA,HIST_RA_SEMANA1_LPT,HIST_RA_SEMANA2_LPT,HIST_RA_SEMANA3_LPT,HIST_RA_SEMANA4_LPT,HIST_RA_SEMANA5_LPT,HIST_RA_RUTA,HIST_RA_IDALMACEN) VALUES (?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?)", Array As Object (HIST_RA_OBJMES,HIST_RA_VENTA,HIST_RA_TENDENCIA,HIST_RA_ALCANCE,HISR_RA_DRAOBJ,HIST_RA_DRAVTA,HIST_RA_DSOBJ,HIST_RA_DSVTA,HIST_RA_VPOOBJ,HIST_RA_VPOVTA,HIST_RA_CTES,HIST_RA_COBCCC,HIST_RA_ECO,HIST_RA_VISITPLAN,HIST_RA_VISIREAL,HIST_RA_COBVISIT,HIST_RA_FRECCOMPOBJ,HIST_RA_FRECCOMREAL,HIST_RA_VENTAMES1,HIST_RA_VENTAMES2,HIST_RA_VENTAMES3,HIST_RA_VENTAMES4,HIST_RA_RECHAZO,HIST_RA_RECHAZOPORCEN,HIST_RA_SEMANA1,HIST_RA_SEMANA1_DIAS,HIST_RA_SEMANA1_DRA,HIST_RA_SEMANA2,HIST_RA_SEMANA2_DIAS,HIST_RA_SEMANA2_DRA,HIST_RA_SEMANA3,HIST_RA_SEMANA3_DIAS,HIST_RA_SEMANA3_DRA,HIST_RA_SEMANA4,HIST_RA_SEMANA4_DIAS,HIST_RA_SEMANA4_DRA,HIST_RA_SEMANA5,HIST_RA_SEMANA5_DIAS,HIST_RA_SEMANA5_DRA,HIST_RA_SEMANA1_LPT,HIST_RA_SEMANA2_LPT,HIST_RA_SEMANA3_LPT,HIST_RA_SEMANA4_LPT,HIST_RA_SEMANA5_LPT,HIST_RA_RUTA,HIST_RA_IDALMACEN)) ' ' Msgbox("pasa","alo") ' Next ' Listo1 = 1 ' S_CC.Text = "LISTO" '' If Starter.marcaCel <> "Sony" Then ToastMessageShow("Catalogo Resumen Actualizado." , True) ' End If ' End If If Job.JobName = "DBRequest" Then Dim RESULT As DBResult = B4XPages.MainPage.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")) B4XPages.MainPage.skmt.ExecNonQuery2("INSERT INTO HIST_PROMOS(HP_CLIENTE, HP_CODIGO_PROMOCION) VALUES (?,?)", Array As Object (HP_CLIENTE, HP_CODIGO_PROMOCION)) Next ' If Starter.marcaCel <> "Sony" Then 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 = B4XPages.MainPage.reqManager.HandleJob(Job) If RESULT.Tag = "histespecial" Then 'query tag For Each records() As Object In RESULT.Rows Dim CLIENTE As String = records(RESULT.Columns.Get("CLIENTE")) Dim PROMOCION As String = records(RESULT.Columns.Get("PRMOCION")) B4XPages.MainPage.skmt.ExecNonQuery2("INSERT INTO HIST_PROMOS(HP_CLIENTE, HP_CODIGO_PROMOCION) VALUES (?,?)", Array As Object (CLIENTE, PROMOCION)) Next ' If Starter.marcaCel <> "Sony" Then 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 = B4XPages.MainPage.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")) B4XPages.MainPage.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 ' If Starter.marcaCel <> "Sony" Then ToastMessageShow(" Historico Clientes Promociones Actualizado." , True) End If End If If Job.JobName = "DBRequest" Then Dim RESULT As DBResult = B4XPages.MainPage.reqManager.HandleJob(Job) If RESULT.Tag = "HIST_PROM" Then 'query tag For Each records() As Object In RESULT.Rows Dim HVD_CLIENTE2 As String = records(RESULT.Columns.Get("HVD_CLIENTE")) B4XPages.MainPage.skmt.ExecNonQuery2("INSERT INTO PROMO_ESP(HVD_CLIENTE) VALUES (?)", Array As Object (HVD_CLIENTE2)) Next ' If Starter.marcaCel <> "Sony" Then ToastMessageShow(" Historico Clientes Promociones Actualizado." , True) End If End If If Job.JobName = "DBRequest" Then Dim RESULT As DBResult = B4XPages.MainPage.reqManager.HandleJob(Job) If RESULT.Tag = "HIST_MARCAS_CUOTAS" Then 'query tag For Each records() As Object In RESULT.Rows Dim HMC_MARCA As String = records(RESULT.Columns.Get("HMC_MARCA")) Dim HMC_TOTAL As String = records(RESULT.Columns.Get("HMC_TOTAL")) B4XPages.MainPage.skmt.ExecNonQuery2("INSERT INTO HIST_MARCAS_CUOTAS(HMC_MARCA, HMC_TOTAL) VALUES (?,?)", Array As Object (HMC_MARCA, HMC_TOTAL)) Next ' If Starter.marcaCel <> "Sony" Then ToastMessageShow(" Historico Marcas" , True) End If End If If Job.JobName = "DBRequest" Then Dim RESULT As DBResult = B4XPages.MainPage.reqManager.HandleJob(Job) If RESULT.Tag = "coordenadas" Then 'query tag For Each records() As Object In RESULT.Rows Dim latitud As String = records(RESULT.Columns.Get("CAT_AL_LATITUD")) Dim longitud As String = records(RESULT.Columns.Get("CAT_AL_LONGITUD")) Dim GEOCERCA As String = records(RESULT.Columns.Get("CAT_AL_GEOCERCA")) B4XPages.MainPage.skmt.ExecNonQuery2("INSERT INTO CAT_VARIABLES(CAT_VA_DESCRIPCION, CAT_VA_VALOR) VALUES (?,?)", Array As Object ("LATITUD",latitud)) B4XPages.MainPage.skmt.ExecNonQuery2("INSERT INTO CAT_VARIABLES(CAT_VA_DESCRIPCION, CAT_VA_VALOR) VALUES (?,?)", Array As Object ("LONGITUD",longitud)) B4XPages.MainPage.skmt.ExecNonQuery2("INSERT INTO CAT_VARIABLES(CAT_VA_DESCRIPCION, CAT_VA_VALOR) VALUES (?,?)", Array As Object ("GEOCERCA",GEOCERCA)) Next ' If Starter.marcaCel <> "Sony" Then ToastMessageShow(" Historico Marcas" , True) End If End If If Job.JobName = "DBRequest" Then Dim RESULT As DBResult = B4XPages.MainPage.reqManager.HandleJob(Job) If RESULT.Tag = "password" Then 'query tag For Each records() As Object In RESULT.Rows Dim password As String = records(RESULT.Columns.Get("CAT_VA_VALOR")) B4XPages.MainPage.skmt.ExecNonQuery2("INSERT INTO CAT_VARIABLES(CAT_VA_DESCRIPCION, CAT_VA_VALOR) VALUES (?,?)", Array As Object ("pasword",password)) Next ' If Starter.marcaCel <> "Sony" Then ToastMessageShow(" Historico Marcas" , True) End If End If If Job.JobName = "DBRequest" Then Dim RESULT As DBResult = B4XPages.MainPage.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")) B4XPages.MainPage.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 = B4XPages.MainPage.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")) ' B4XPages.MainPage.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 = B4XPages.MainPage.reqManager.HandleJob(Job) If RESULT.Tag = "marcas_rutas" Then 'query tag For Each records() As Object In RESULT.Rows Dim HVD_MARCA As String = records(RESULT.Columns.Get("HVD_MARCA")) Dim CLIENTES As String = records(RESULT.Columns.Get("CLIENTES")) B4XPages.MainPage.skmt.ExecNonQuery2("INSERT INTO MARCAS_RUTAS(HVD_MARCA, CLIENTES) VALUES (?,?)", Array As Object (HVD_MARCA, CLIENTES)) Next End If End If ' 'CUOTAS ' If Job.JobName = "DBRequest" Then ' Dim RESULT As DBResult = B4XPages.MainPage.reqManager.HandleJob(Job) ' If RESULT.Tag = "CUOTAS" Then 'query tag ' For Each records() As Object In RESULT.Rows ' Dim HC_RUTA As String = records(RESULT.Columns.Get("HC_RUTA")) ' Dim HC_CUOTA1 As String = records(RESULT.Columns.Get("HC_CUOTA1")) ' Dim HC_CUOTA2 As String = records(RESULT.Columns.Get("HC_CUOTA2")) ' Dim HC_CUOTA3 As String = records(RESULT.Columns.Get("HC_CUOTA3")) ' Dim HC_CUOTA4 As String = records(RESULT.Columns.Get("HC_CUOTA4")) ' Dim HC_CUOTA5 As String = records(RESULT.Columns.Get("HC_CUOTA5")) ' Dim HC_CUOTA6 As String = records(RESULT.Columns.Get("HC_CUOTA6")) ' Dim HC_META1 As String = records(RESULT.Columns.Get("HC_META1")) ' Dim HC_META2 As String = records(RESULT.Columns.Get("HC_META2")) ' Dim HC_META3 As String = records(RESULT.Columns.Get("HC_META3")) ' Dim HC_META4 As String = records(RESULT.Columns.Get("HC_META4")) ' Dim HC_META5 As String = records(RESULT.Columns.Get("HC_META5")) ' Dim HC_META6 As String = records(RESULT.Columns.Get("HC_META6")) ' B4XPages.MainPage.skmt.ExecNonQuery2("INSERT INTO HIST_CUOTAS(HC_RUTA, HC_CUOTA1,HC_CUOTA2,HC_CUOTA3,HC_CUOTA4,HC_CUOTA5,HC_CUOTA6,HC_META1,HC_META2,HC_META3,HC_META4,HC_META5,HC_META6) VALUES (?,?,?,?,?,?,?,?,?,?,?,?,?)", Array As Object (HC_RUTA, HC_CUOTA1,HC_CUOTA2,HC_CUOTA3,HC_CUOTA4,HC_CUOTA5,HC_CUOTA6,HC_META1,HC_META2,HC_META3,HC_META4,HC_META5,HC_META6)) ' Next ' End If ' End If 'COMISIONES If Job.JobName = "DBRequest" Then Dim RESULT As DBResult = B4XPages.MainPage.reqManager.HandleJob(Job) If RESULT.Tag = "COMISIONES" Then 'query tag For Each records() As Object In RESULT.Rows Dim HCM_TOTAL_V As String = records(RESULT.Columns.Get("HCM_TOTAL_V")) Dim HCM_TOTAL_VIVE As String = records(RESULT.Columns.Get("HCM_TOTAL_VIVE")) Dim HCM_TOTAL_GUNA As String = records(RESULT.Columns.Get("HCM_TOTAL_GUNA")) Dim HCM_TOTAL_BEB As String = records(RESULT.Columns.Get("HCM_TOTAL_BEB")) B4XPages.MainPage.skmt.ExecNonQuery2("INSERT INTO HIST_COMISIONES_MOVIL (HCM_TOTAL_V , HCM_TOTAL_VIVE , HCM_TOTAL_GUNA , HCM_TOTAL_BEB) VALUES (?,?,?,?)", Array As Object (HCM_TOTAL_V , HCM_TOTAL_VIVE , HCM_TOTAL_GUNA , HCM_TOTAL_BEB)) Next End If End If If Job.JobName = "DBRequest" Then Dim RESULT As DBResult = B4XPages.MainPage.reqManager.HandleJob(Job) If RESULT.Tag = "ENCUESTA_CLIENTE" Then 'query tag For Each records() As Object In RESULT.Rows Dim HEC_CLIENTE As String = records(RESULT.Columns.Get("HEC_CLIENTE")) Dim HEC_MODULO As String = records(RESULT.Columns.Get("HEC_MODULO")) B4XPages.MainPage.skmt.ExecNonQuery2("INSERT INTO HIST_ENCUESTA_CLIENTE (HEC_CLIENTE , HEC_MODULO) VALUES (?,?)", Array As Object (HEC_CLIENTE , HEC_MODULO )) Next End If End If If Job.JobName = "DBRequest" Then Dim RESULT As DBResult = B4XPages.MainPage.reqManager.HandleJob(Job) If RESULT.Tag = "promoesp" Then 'query tag B4XPages.MainPage.skmt.ExecNonQuery("delete from CAT_PROMO_ESP") For Each records() As Object In RESULT.Rows Dim CAT_PE_ID As String = records(RESULT.Columns.Get("CAT_PE_ID")) Dim CAT_PE_IDPROMO As String = records(RESULT.Columns.Get("CAT_PE_IDPROMO")) Dim CAT_PE_MONTO As String = records(RESULT.Columns.Get("CAT_PE_MONTO")) B4XPages.MainPage.skmt.ExecNonQuery2("INSERT INTO CAT_PROMO_ESP(CAT_PE_ID, CAT_PE_IDPROMO, CAT_PE_MONTO) VALUES (?,?,?)", Array As Object (CAT_PE_ID , CAT_PE_IDPROMO,CAT_PE_MONTO)) Next End If End If 'HIST_ENCUESTA2 If Job.JobName = "DBRequest" Then Dim RESULT As DBResult = B4XPages.MainPage.reqManager.HandleJob(Job) If RESULT.Tag = "HIST_ENCUESTA2" Then 'query tag B4XPages.MainPage.skmt.BeginTransaction For Each records() As Object In RESULT.Rows Dim HE_CLIENTE As String = records(RESULT.Columns.Get("HE_CLIENTE")) B4XPages.MainPage.skmt.ExecNonQuery2("INSERT INTO HIST_ENCUESTA2(HE_CLIENTE) VALUES (?)", Array As Object (HE_CLIENTE)) Next B4XPages.MainPage.skmt.TransactionSuccessful B4XPages.MainPage.skmt.EndTransaction End If End If If Job.JobName = "DBRequest" Then Dim RESULT As DBResult = B4XPages.MainPage.reqManager.HandleJob(Job) If RESULT.Tag = "gunaprod" Then 'query tag If PB2.Progress < 30 Then S_CP.Text = "CARGANDO" 'Mod por CHV - 20211028 Agregue el "If PB2.Progress < 30 then" 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)) B4XPages.MainPage.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 = 100 S_CP.Text = "LISTO" End If ' If Starter.marcaCel <> "Sony" Then ToastMessageShow("Productos Actualizados." , True) If Listo1 =1 And Listo2 =1 And Listo3 = 1 And Listo4 = 1 Then B4XPage_Appear img2.Visible=False EJECUTANDO=0 End If End If End If If Job.JobName = "DBRequest" Then Dim RESULT As DBResult = B4XPages.MainPage.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")) CAT_GP_TIPOPROD = "5" If CAT_GP_ID = "PAQUNI003" Then CAT_GP_ALMACEN = 60 End If B4XPages.MainPage.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 = 100 S_CP.Text = "LISTO" End If ' If Starter.marcaCel <> "Sony" Then ToastMessageShow("Promociones Actualizados." , True) Listo4=1 If Listo1 =1 And Listo2 =1 And Listo3 = 1 And Listo4 = 1 Then B4XPage_Appear img2.Visible=False EJECUTANDO=0 Else If Listo4 = 1 And Listo3 = 1 And inve = 1 Then B4XPage_Appear img2.Visible=False EJECUTANDO=0 End If End If End If If Job.JobName = "DBRequest" Then Dim RESULT As DBResult = B4XPages.MainPage.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")) B4XPages.MainPage.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" 'Log("C4") ELSE If PB2.Progress = 30 Then PB2.Progress = 60 ELSE IF PB2.Progress = 60 Then PB2.Progress = 100 S_CP.Text = "LISTO" 'Log("3") End If ' If Starter.marcaCel <> "Sony" Then ToastMessageShow("Promociones especiales Actualizados." , True) Listo4=1 If Listo1 =1 And Listo2 =1 And Listo3 = 1 And Listo4 = 1 Then B4XPage_Appear img2.Visible=False EJECUTANDO=0 Else If Listo4 = 1 And Listo3 = 1 And inve = 1 Then B4XPage_Appear img2.Visible=False EJECUTANDO=0 End If End If End If If Job.JobName = "DBRequest" Then Dim RESULT As DBResult = B4XPages.MainPage.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")) B4XPages.MainPage.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 = 100 S_CP.Text = "LISTO" End If Listo3 =1 If Listo1 =1 And Listo2 =1 And Listo3 = 1 And Listo4 = 1 Then B4XPage_Appear img2.Visible=False EJECUTANDO=0 Else If Listo4 = 1 And Listo3 = 1 And inve = 1 Then B4XPage_Appear img2.Visible=False EJECUTANDO=0 End If End If End If If Job.JobName = "DBRequest" Then Dim RESULT As DBResult = B4XPages.MainPage.reqManager.HandleJob(Job) If RESULT.Tag = "hist_datos" Then 'query tag Dim cont As Int = 0 For Each records() As Object In RESULT.Rows cont = cont +1 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")) ' Log(cont &" " &HVD_CLIENTE&"--"&HVD_PRONOMBRE&"--"&HVD_CANT&"--"&HVD_COSTO_TOT) B4XPages.MainPage.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 ' If Starter.marcaCel <> "Sony" Then ToastMessageShow("Venta historico Actualizado." , True) If Listo1 =1 And Listo2 =1 And Listo3 = 1 And Listo4 = 1 Then B4XPage_Appear img2.Visible=False EJECUTANDO=0 End If End If End If If Job.JobName = "DBRequest" Then Dim RESULT As DBResult = B4XPages.MainPage.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")) B4XPages.MainPage.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 = B4XPages.MainPage.reqManager.HandleJob(Job) If RESULT.Tag = "CUESTIONARIO" Then 'query tag For Each records() As Object In RESULT.Rows Dim Cat_Va_Valor As String = records(RESULT.Columns.Get("CAT_VALOR")) B4XPages.MainPage.skmt.ExecNonQuery2("DELETE FROM CAT_VARIABLES WHERE CAT_VA_DESCRIPCION = ?", Array As Object ("CUESTIONARIO")) B4XPages.MainPage.skmt.ExecNonQuery2("INSERT INTO CAT_VARIABLES(CAT_VA_DESCRIPCION, CAT_VA_VALOR) VALUES (?,?)", Array As Object ("CUESTIONARIO", Cat_Va_Valor)) Next End If End If If Job.JobName = "DBRequest" Then Dim RESULT As DBResult = B4XPages.MainPage.reqManager.HandleJob(Job) If RESULT.Tag = "carga_encuesta" Then 'query tag For Each records() As Object In RESULT.Rows Dim CAT_EP_ID As String = records(RESULT.COLUMNS.GET("CAT_EP_ID")) Dim CAT_EP_IDTIPOPREGUNTA As String = records(RESULT.COLUMNS.GET("CAT_EP_IDTIPOPREGUNTA")) Dim CAT_CE_DESCRIPCION As String = records(RESULT.COLUMNS.GET("CAT_CE_DESCRIPCION")) Dim CAT_EP_PREGUNTA As String = records(RESULT.COLUMNS.GET("CAT_EP_PREGUNTA")) Dim CAT_EP_RES1_PRED As String = records(RESULT.COLUMNS.GET("CAT_EP_RES1_PRED")) Dim CAT_EP_RES2_PRED As String = records(RESULT.COLUMNS.GET("CAT_EP_RES2_PRED")) Dim CAT_EP_RES3_PRED As String = records(RESULT.COLUMNS.GET("CAT_EP_RES3_PRED")) Dim CAT_EP_ORDEN_PREGUNTA As String = records(RESULT.COLUMNS.GET("CAT_EP_ORDEN_PREGUNTA")) B4XPages.MainPage.skmt.ExecNonQuery2("INSERT INTO CAT_ENCUESTA_PREGUNTA (CAT_EP_ID ,CAT_EP_IDTIPOPREGUNTA ,CAT_CE_DESCRIPCION ,CAT_EP_PREGUNTA ,CAT_EP_RES1_PRED ,CAT_EP_RES2_PRED ,CAT_EP_RES3_PRED ,CAT_EP_ORDEN_PREGUNTA ) VALUES (?,?,?,?,?,?,?,?)", Array As Object (CAT_EP_ID ,CAT_EP_IDTIPOPREGUNTA ,CAT_CE_DESCRIPCION ,CAT_EP_PREGUNTA ,CAT_EP_RES1_PRED ,CAT_EP_RES2_PRED ,CAT_EP_RES3_PRED ,CAT_EP_ORDEN_PREGUNTA)) Next End If End If If Job.JobName = "DBRequest" Then Dim RESULT As DBResult = B4XPages.MainPage.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")) Log(cuantos_pedido) Log(CUANTOSP) If cuantos_pedido < = CUANTOSP Then ' ToastMessageShow("rojo val ok 1 cuantosp." , True) datos_iguales = "ok" S_CP.Text = "INFO OK" Else If Starter.marcaCel <> "Sony" Then 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 = B4XPages.MainPage.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 If Starter.marcaCel <> "Sony" Then 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 = B4XPages.MainPage.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 If Starter.marcaCel <> "Sony" Then 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 = B4XPages.MainPage.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" 'Log("5") End If End If If Job.JobName = "DBRequest" Then Dim RESULT As DBResult = B4XPages.MainPage.reqManager.HandleJob(Job) If RESULT.Tag = "version" Then 'query tag For Each records() As Object In RESULT.Rows B4XPages.MainPage.skmt.ExecNonQuery("delete from VERSION") Dim CAT_VE_VERSION As String = records(RESULT.Columns.Get("CAT_VE_VERSION")) B4XPages.MainPage.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 = B4XPages.MainPage.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 = B4XPages.MainPage.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 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 ToastMessageShow("Ruta invalida." , True) End If Next End If End If If Job.JobName = "DBRequest" Then Dim RESULT As DBResult = B4XPages.MainPage.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 = B4XPages.MainPage.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")) B4XPages.MainPage.skmt.ExecNonQuery2("delete from CAT_VARIABLES where CAT_VA_DESCRIPCION = ?", Array As Object ("FECHA")) B4XPages.MainPage.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 = B4XPages.MainPage.reqManager.HandleJob(Job) ' If RESULT.Tag = "folio" Then 'query tag ' For Each records() As Object In RESULT.Rows ' Dim FOLIO As String = records(RESULT.Columns.Get("FOLIO")) ' B4XPages.MainPage.skmt.ExecNonQuery2("delete from CAT_VARIABLES where CAT_VA_DESCRIPCION = ?", Array As Object ("FOLIO")) ' B4XPages.MainPage.skmt.ExecNonQuery2("INSERT INTO CAT_VARIABLES(CAT_VA_DESCRIPCION, CAT_VA_VALOR) VALUES (?,?)", Array As Object ("FOLIO",FOLIO)) ' Next ' End If If RESULT.Tag = "hist_pro2265" Then 'query tag Starter.skmt.ExecNonQuery("delete from HIST_PRO2265") For Each records() As Object In RESULT.Rows Starter.skmt.ExecNonQuery2("INSERT INTO HIST_PRO2265(H_IDCLIENTE) VALUES (?)", Array As Object (records(RESULT.Columns.Get("HVD_CLIENTE")))) Next End If If RESULT.Tag = "hist_pro3054" Then 'query tag Starter.skmt.ExecNonQuery("delete from HIST_PRO3054") For Each records() As Object In RESULT.Rows Starter.skmt.ExecNonQuery2("INSERT INTO HIST_PRO3054(H_IDCLIENTE) VALUES (?)", Array As Object (records(RESULT.Columns.Get("HVD_CLIENTE")))) Next End If If RESULT.Tag = "hist_pro3055" Then 'query tag Starter.skmt.ExecNonQuery("delete from HIST_PRO3055") For Each records() As Object In RESULT.Rows Starter.skmt.ExecNonQuery2("INSERT INTO HIST_PRO3055(H_IDCLIENTE) VALUES (?)", Array As Object (records(RESULT.Columns.Get("HVD_CLIENTE")))) Next End If If RESULT.Tag = "traeVersion" Then 'query tag For Each records() As Object In RESULT.Rows Private version As String = records(RESULT.Columns.Get("CAT_AL_VERSION")) Private actualizarAplicacion As String = records(RESULT.Columns.Get("CAT_AL_ACTUALIZACION")) Next Starter.skmt.ExecNonQuery2("delete from CAT_VARIABLES where CAT_VA_DESCRIPCION = ?", Array As Object ("VERSION_NUEVA")) Starter.skmt.ExecNonQuery2("INSERT INTO CAT_VARIABLES(CAT_VA_DESCRIPCION, CAT_VA_VALOR) VALUES (?,?)", Array As Object ("VERSION_NUEVA", version)) Starter.skmt.ExecNonQuery2("delete from CAT_VARIABLES where CAT_VA_DESCRIPCION = ?", Array As Object ("FORZAR_ACTUALIZACION")) Starter.skmt.ExecNonQuery2("INSERT INTO CAT_VARIABLES(CAT_VA_DESCRIPCION, CAT_VA_VALOR) VALUES (?,?)", Array As Object ("FORZAR_ACTUALIZACION", actualizarAplicacion)) Log($">>>> GUARDAMOS NUEVA VERSION: ${version}, ${actualizarAplicacion}"$) End If End If End If Job.Release End Sub Private Sub B4XPage_CloseRequest As ResumableSub 'Return True to close, False to cancel If SCROLL_RESDIA.Visible Then SCROLL_RESDIA.Visible = False B_OK_RES_Click Return False Else B4XPages.ShowPage("login") End If Return False End Sub Sub connecta_Click Log(">>> REVISAMOS ACTUALIZACION") Private revisaActualizacion As Map = Subs.revisaForzarActualizacion Log(revisaActualizacion) If E_RUTA2.Text = e_ruta.Text Then Msgbox("La ruta principal y la de suplencia NO puede ser la misma.","ERROR") Else If e_ruta.Text = "KMTS1" Then cargar.Visible = True Subir.Visible = True e_ruta.Text = "" B4XPages.MainPage.reqManager.Initialize(Me, Starter.server) Else If revisaActualizacion.Get("forzar") = 1 Then ' Hay actualización, la forzamos. ' Starter.newApp.appLink = $"https://keymon.lat/movil/guna/GP_${revisaActualizacion.Get("nuevaVersion")}.apk"$ 'Liga a nuevo apk ' Starter.newApp.newMsg = "Nueva version" 'Texto de que hay actualizacion ' Starter.newApp.okMsg = "Aceptar" 'Texto de app al corriente ' Starter.newApp.version = revisaActualizacion.Get("nuevaVersion") 'Version actual l_forzarActualizacion.TextColor = Colors.black l_forzarActualizacion.Text = "Hay una nueva actualización para la aplicación, por favor revise que tenga DATOS y espere mientras se descarga." p_transparenteActualizacion.Visible = True p_transparenteActualizacion.BringToFront Starter.nuevoLink = $"https://keymon.lat/movil/guna/GP_${revisaActualizacion.Get("nuevaVersion")}.apk"$ Log("Descargar: GP_" & Starter.newApp.appLink) CallSubDelayed(appUpdater, "download_newApk") else if revisaActualizacion.Get("forzar") = 2 Then ' No hay datos, regresamos al login y borramos usuario par que traiga los datos. l_forzarActualizacion.TextColor = Colors.red l_forzarActualizacion.Text = "Es necesaria una conexión a internet, por favor revise su conexión y vuelva a intentar." p_transparenteActualizacion.Visible = True p_transparenteActualizacion.BringToFront Sleep(4500) Starter.skmt.ExecNonQuery("delete from usuarioa") p_transparenteActualizacion.Visible = False B4XPages.ShowPage("Login") Else ' No hay actualización, continuamos con la carga. p_transparenteActualizacion.Visible = False B4XPages.MainPage.reqManager.Initialize(Me, Starter.server) teclado.HideKeyboard connecta1 = connecta1 + 1 'imei = p.GetDeviceId conn = "1" Dim cmd As DBCommand cmd.Initialize cmd.Name = "select_version_GV2" B4XPages.MainPage.reqManager.ExecuteQuery(cmd , 0, "version") ' Cuando nos conectamos verificamos que el usuario guardado en BD sea VALIDO. c=B4XPages.MainPage.skmt.ExecQuery("select USUARIO, PASS from usuarioa") c.Position=0 If c.RowCount > 0 And c.GetString("USUARIO") <> "KMTS1" Then Private usrT As String = c.GetString("USUARIO") Private passT As String = c.GetString("PASS") cmd.Initialize cmd.Name = "select_usuario_guna_GV2_10" cmd.Parameters = Array As Object(usrT, passT) B4XPages.MainPage.reqManager.ExecuteQuery(cmd , 0, "usuarioA") End If c.Close If e_ruta.Text = "BERNA1" Then cargar.Visible = True Subir.Visible = True e_ruta.Text = "" End If ToastMessageShow("Validando Conexión." , True) If connecta1 / 2 = 1 Then 'SERVER = "http://177.244.63.54:1782" 'SERVER = "http://keymon.com.mx:1782" 'SERVER = "http://201.99.139.28:1782" ' B4XPages.MainPage.SERVER = "http://187.189.244.154:1782" ' SERVER = "http://10.0.0.205:1782" B4XPages.MainPage.reqManager.Initialize(Me, Starter.server) Else 'SERVER = "http://keymon.com.mx:1782" 'SERVER = "http://201.99.139.28:1782" 'SERVER = "http://177.244.63.54:1782" ' B4XPages.MainPage.SERVER = "http://187.189.244.154:1782" ' SERVER = "http://10.0.0.205:1782" B4XPages.MainPage.reqManager.Initialize(Me, Starter.server) End If End If End If End If End Sub Sub BUSCA_Click B4XPages.ShowPage("TicketsDia") End Sub Sub b_mapa_Click 'Log("mapClic") B4XPages.GetPage("Mapas") End Sub Sub t2_tick e_ruta.Text = "" B4XPages.MainPage.skmt.ExecNonQuery("delete from pedido_cliente") B4XPages.MainPage.skmt.ExecNonQuery("delete from pedido") B4XPages.MainPage.skmt.ExecNonQuery("delete from noventa") B4XPages.MainPage.skmt.ExecNonQuery("delete from clie_act") B4XPages.MainPage.skmt.ExecNonQuery("delete from kmt_info2") B4XPages.MainPage.skmt.ExecNonQuery("delete from cat_gunaprod") B4XPages.MainPage.skmt.ExecNonQuery("delete from CAT_DETALLES_PAQ") B4XPages.MainPage.skmt.ExecNonQuery("delete from HIST_VENTAS") B4XPages.MainPage.skmt.ExecNonQuery("delete from HIST_VERIFICACION") B4XPages.MainPage.skmt.ExecNonQuery("DELETE FROM HIST_ENCUESTA") B4XPages.MainPage.skmt.ExecNonQuery("DELETE FROM HIST_ENCUESTA2") B4XPages.MainPage.skmt.ExecNonQuery("DELETE FROM HIST_STAY_OUT") B4XPages.MainPage.skmt.ExecNonQuery("DELETE FROM HIST_GPS") B4XPages.MainPage.skmt.ExecNonQuery("DELETE FROM HIST_FACE") B4XPages.MainPage.skmt.ExecNonQuery("INSERT INTO HIST_STAY_OUT(HSO_INI, HSO_FIN) VALUES (0,0)") B4XPages.MainPage.skmt.ExecNonQuery("DELETE FROM HIST_CODIGO_BARRAS") B4XPages.MainPage.skmt.ExecNonQuery("DELETE FROM ENCUESTA_MODULO1") B4XPages.MainPage.skmt.ExecNonQuery("DELETE FROM ENCUESTA_MODULO2") B4XPages.MainPage.skmt.ExecNonQuery("DELETE FROM ENCUESTA_MODULO3") B4XPages.MainPage.skmt.ExecNonQuery("DELETE FROM ENCUESTA_MODULO4") B4XPages.MainPage.skmt.ExecNonQuery("DELETE FROM ENCUESTA_MODULO5") B4XPages.MainPage.skmt.ExecNonQuery("DELETE FROM BITACORAGPS") B4XPages.MainPage.skmt.ExecNonQuery("DELETE FROM RUTA_SUPLENCIA") B4XPages.MainPage.skmt.ExecNonQuery2("DELETE FROM CAT_VARIABLES WHERE CAT_VA_DESCRIPCION = ?",Array As String("CARGA_DIA")) B4XPages.MainPage.skmt.ExecNonQuery2("DELETE FROM CAT_VARIABLES WHERE CAT_VA_DESCRIPCION = ?",Array As String("pasword")) B4XPages.MainPage.skmt.ExecNonQuery2("DELETE FROM CAT_VARIABLES WHERE CAT_VA_DESCRIPCION = ?",Array As String("LATITUD")) B4XPages.MainPage.skmt.ExecNonQuery2("DELETE FROM CAT_VARIABLES WHERE CAT_VA_DESCRIPCION = ?",Array As String("LONGITUD")) B4XPages.MainPage.skmt.ExecNonQuery2("DELETE FROM CAT_VARIABLES WHERE CAT_VA_DESCRIPCION = ?",Array As String("FORZAR_ACTUALIZACION")) B4XPages.MainPage.skmt.ExecNonQuery2("DELETE FROM CAT_VARIABLES WHERE CAT_VA_DESCRIPCION = ?",Array As String("VERSION_NUEVA")) B4XPages.MainPage.skmt.ExecNonQuery2("UPDATE GPS SET HABILITADO = (?)",Array As Object(0)) ' B4XPage_Appear E_RUTA2.Visible = False E_RUTA2.Text = "" cargar.Visible = False Subir.Visible = False connecta.Visible = True B4XPages.ShowPage("Login") ' If PB2.Progress = 0 Then ' S_CP.Text = "ENVIAR DATOS (K-1)" ' End If ' img2.Visible=False t2.Enabled = False 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")) 'ignore If RES = DialogResponse.POSITIVE Then Subs.bitacora(Subs.fechanormal(DateTime.Now),usuario,Subs.traeAlmacen, Subs.traeRuta,"Fin Día", "",Subs.fechanormal(DateTime.Now),Subs.fechanormal(DateTime.Now),B4XPages.MainPage.lat_gps,B4XPages.MainPage.lon_gps,"2","","") t2.Initialize("T2", 1000) ' 1000 = 1 second t2.Enabled = True Label22.Visible = False l_rutasuplencia.Visible = False l_rutasuplencia.Text = "" 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 If e_ruta.Text = "SUPLENCIA" Then e_ruta.Text = "" E_RUTA2.Visible = True Panel11.Visible = True End If End Sub Sub inv_Click img2.Visible =True EJECUTANDO = 1 inve = 1 B4XPages.MainPage.skmt.ExecNonQuery("delete from cat_gunaprod") B4XPages.MainPage.skmt.ExecNonQuery("delete from CAT_DETALLES_PAQ") c=B4XPages.MainPage.skmt.ExecQuery("select usuario from usuarioa") c.Position = 0 usuario = c.GetString("USUARIO") c.Close cmd.Initialize cmd.Name = "select_cat_gunaprod_GV2" cmd.Parameters = Array As Object(ALMACEN) B4XPages.MainPage.reqManager.ExecuteQuery(cmd , 0, "gunaprod") cmd.Initialize cmd.Name = "select_cat_paquetes_GV2" cmd.Parameters = Array As Object(ALMACEN) B4XPages.MainPage.reqManager.ExecuteQuery(cmd , 0, "gunaprodp") cmd.Initialize cmd.Name = "select_cat_detallepa_GV2" cmd.Parameters = Array As Object(ALMACEN) B4XPages.MainPage.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_GV2" cmd.Parameters = Array As Object(ALMACEN,l_ruta.text) B4XPages.MainPage.reqManager.ExecuteQuery(cmd , 0, "valida_pedido") cmd.Initialize cmd.Name = "select_cuantos_noventa_GV2" cmd.Parameters = Array As Object(ALMACEN,l_ruta.text) B4XPages.MainPage.reqManager.ExecuteQuery(cmd , 0, "valida_noventa") cmd.Initialize cmd.Name = "select_cuantos_pedidoc_GV2" cmd.Parameters = Array As Object(ALMACEN,l_ruta.text) B4XPages.MainPage.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 Btn_Ubicar.Visible=True 'trabajar.Visible = True NUEVO.Visible =True BUSCA.Visible=True connecta.Visible=True Resumen.Visible= True img2.Visible=False Subs.panelVisible(p_principal, 0, 0) Else If CARGA = "SUBIR" And S_CP.Text = "ERROR" Then Msgbox("Tiene que subir de nuevo la información","Atención") 'ignore P1.Visible = False ' trabajar.Visible = True NUEVO.Visible =True BUSCA.Visible=True connecta.Visible=True Resumen.Visible= True img2.Visible=False Subs.panelVisible(p_principal, 0, 0) 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")) 'ignore 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 Subs.panelVisible(p_principal, 0, 0) 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 Btn_Ubicar.Visible=True 'trabajar.Visible = True NUEVO.Visible =True BUSCA.Visible=True connecta.Visible=True Resumen.Visible= True img2.Visible=False Subs.panelVisible(p_principal, 0, 0) B4XPages.MainPage.skmt.ExecNonQuery2("DELETE FROM CAT_VARIABLES WHERE CAT_VA_DESCRIPCION = ?", Array As String("CARGA_DIA")) B4XPages.MainPage.skmt.ExecNonQuery2("INSERT INTO CAT_VARIABLES(CAT_VA_DESCRIPCION, CAT_VA_VALOR) VALUES (?,?)", Array As Object ("CARGA_DIA",1)) If E_RUTA2.Visible = True Then Subs.bitacora(Subs.fechanormal(DateTime.Now),usuario,Subs.traeAlmacen, Subs.traeRuta,"Carga día suplencia", "",Subs.fechanormal(DateTime.Now),Subs.fechanormal(DateTime.Now),B4XPages.MainPage.lat_gps,B4XPages.MainPage.lon_gps,"2","","") Else Subs.bitacora(Subs.fechanormal(DateTime.Now),usuario,Subs.traeAlmacen, Subs.traeRuta,"Carga día", "",Subs.fechanormal(DateTime.Now),Subs.fechanormal(DateTime.Now),B4XPages.MainPage.lat_gps,B4XPages.MainPage.lon_gps,"2","","") End If 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")) 'ignore 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 Subs.panelVisible(p_principal, 0, 0) B4XPages.MainPage.skmt.ExecNonQuery("delete from kmt_info2") B4XPages.MainPage.skmt.ExecNonQuery("delete from cod_result") B4XPages.MainPage.skmt.ExecNonQuery("delete from hist_gest") B4XPages.MainPage.skmt.ExecNonQuery("delete from cat_gunaprod") B4XPages.MainPage.skmt.ExecNonQuery("delete from CAT_DETALLES_PAQ") B4XPages.MainPage.skmt.ExecNonQuery("delete from telefonos") B4XPages.MainPage.skmt.ExecNonQuery("delete from HIST_VENTAS") B4XPages.MainPage.skmt.ExecNonQuery("delete from HIST_PROMOS") B4XPages.MainPage.skmt.ExecNonQuery("delete from HIST_CLIENTE_CANT_PROMOS") B4XPages.MainPage.skmt.ExecNonQuery("delete from PROMOS_COMP") B4XPages.MainPage.skmt.ExecNonQuery("delete from CAT_VERIFICACION") ExitApplication End If End If End Sub Sub NUEVO_Click B4XPages.ShowPage("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 Panel4.Visible = False SCROLL_RESDIA.Visible = False Btn_Ubicar.Visible=True p_principal.Visible = True End Sub Sub Resumen_Click P_RESUMEN.Visible = True ' NUEVO.Visible =False ' BUSCA.Visible=False ' connecta.Visible=False ' Subir.Visible=False ' cargar.Visible=False ' Resumen.Visible= False End Sub Sub P_RESUMEN_click End Sub Sub CARGA_Click B4XPages.ShowPage("Productos") End Sub Sub resdia_Click p_principal.Visible = False Btn_Ubicar.Visible=False SCROLL_RESDIA.Visible = True SCROLL_RESDIA.Panel.LoadLayout("RESDIA") SCROLL_RESDIA.Panel.Height = Panel4.Height Panel4.Visible = True NUEVO.Visible =False BUSCA.Visible=False connecta.Visible=False Subir.Visible=False cargar.Visible=False Resumen.Visible= False d=B4XPages.MainPage.skmt.ExecQuery2("select COUNT(*) AS CUANTOS FROM HIST_ENCUESTA WHERE HE_TIPO = ?", Array As String("TELEFONO")) d.Position = 0 l_encuesta.Text = d.GetString("CUANTOS") d.Close L_MARCAS.CLEAR d=B4XPages.MainPage.skmt.ExecQuery2("select distinct HE_CLIE AS CLIENTE FROM HIST_ENCUESTA WHERE HE_TIPO = ?", Array As String("TELEFONO")) If D.RowCount>0 Then For i=0 To D.RowCount -1 D.Position=i c=B4XPages.MainPage.skmt.ExecQuery2("Select HE_RES from HIST_ENCUESTA where HE_CLIE = ? AND HE_TIPO = ?", Array As String(d.GetString("CLIENTE"), "TELEFONO")) c.Position = 0 Dim label1 As Label label1 = L_MARCAS.TwoLinesLayout.Label label1.TextSize = 13 label1.TextColor = Colors.Black Dim Label2 As Label Label2 = L_MARCAS.TwoLinesLayout.SecondLabel Label2.TextSize = 13 Label2.TextColor = Colors.Black L_MARCAS.AddTwoLines(d.GetString("CLIENTE"),"TELEFONO :" & c.GetString("HE_RES") ) c.Close Next End If d.Close c=B4XPages.MainPage.skmt.ExecQuery2("Select sum(PE_COSTO_TOT) As MONTO_DIA from pedido where PE_CLIENTE <> 0 and pe_proid in (Select CAT_GP_ID from cat_gunaprod where CAT_GP_TIPO = ? )", Array As String("RTEC")) c.Position = 0 l_monto_k.Text = c.GetString("MONTO_DIA") If l_monto_k.Text = "null" Then l_monto_k.Text = "0" End If c.Close c=B4XPages.MainPage.skmt.ExecQuery2("Select sum(PE_COSTO_TOT) As MONTO_DIA from pedido where PE_CLIENTE <> 0 and pe_proid in (Select CAT_GP_ID from cat_gunaprod where CAT_GP_TIPO = ? )", Array As String("PING")) c.Position = 0 l_monto_kp.Text = c.GetString("MONTO_DIA") If l_monto_kp.Text = "null" Then l_monto_kp.Text = "0" End If c.Close ' c=skmt.ExecQuery2("Select sum(PE_COSTO_TOT) As MONTO_DIA from pedido where PE_CLIENTE <> 0 and pe_proid in (Select CAT_GP_ID from cat_gunaprod where CAT_GP_TIPO = ? )", Array As String("SALTY SNACKS")) ' c.Position = 0 ' l_monto_ks.Text = c.GetString("MONTO_DIA") ' If l_monto_ks.Text = "null" Then ' l_monto_ks.Text = "0" ' End If ' ' c.Close c=B4XPages.MainPage.skmt.ExecQuery("Select sum(PE_COSTO_TOT) As MONTO_DIA from pedido where PE_CLIENTE <> 0 ") c.Position = 0 l_monto_ks.Text = c.GetString("MONTO_DIA") If l_monto_ks.Text = "null" Then l_monto_ks.Text = "0" End If c.Close 'AQUI CAMBIAR Private s3 As Cursor=B4XPages.MainPage.skmt.ExecQuery2("select * FROM PEDIDO WHERE PE_RECALCULO <> ? OR PE_RECALCULO <> ? OR PE_RECALCULO IS NOT NULL",Array As String("","null")) LogColor(s3.RowCount,Colors.Yellow) If s3.RowCount > 0 Then Private s As Cursor=B4XPages.MainPage.skmt.ExecQuery2("select iFNULL(sum(pe_costo_tot),0) as TOTAL_CLIE, SUM(PE_CANT) AS CANT_CLIE FROM PEDIDO WHERE (PE_RECALCULO = ? or PE_RECALCULO = ? or PE_RECALCULO IS NULL)",Array As String("","null")) s.Position=0 Private s5 As Cursor = B4XPages.MainPage.skmt.ExecQuery2("select iFNULL(sum(PE_RECALCULOTOT),0) as TOTAL_CLIE FROM PEDIDO WHERE (PE_RECALCULO <> ? or PE_RECALCULO <> ? OR PE_RECALCULO IS NOT NULL)",Array As String("","null")) s5.Position = 0 ' l_ru_pri.Text = NumberFormat2(s.GetString("TOTAL_CLIE") + s5.GetString("TOTAL_CLIE"),0,2,2,False) L_REAL.Text =NumberFormat2(s.GetString("TOTAL_CLIE") + s5.GetString("TOTAL_CLIE"),0,2,2,False) s.Close Else If s3.RowCount = 0 Then Private s As Cursor=B4XPages.MainPage.skmt.ExecQuery("select iFNULL(sum(pe_costo_tot),0) as TOTAL_CLIE, SUM(PE_CANT) AS CANT_CLIE FROM PEDIDO ") s.Position=0 ' l_ru_pri.Text =NumberFormat2(s.GetString("TOTAL_CLIE"),0,2,2,False) L_REAL.Text =NumberFormat2(s.GetString("TOTAL_CLIE"),0,2,2,False) s.Close End If 'Prueba0 Private ru_o As Cursor = B4XPages.MainPage.skmt.ExecQuery2("SELECT IFNULL(PE_RUTA, 0) AS PE_RUTA, IFNULL(SUM(PE_COSTO_TOT), 0) AS TOTAL_CLIE FROM PEDIDO LEFT JOIN RUTA_SUPLENCIA ON PE_RUTA = RS_RUTA WHERE RS_RUTA IS NULL", Null) ru_o.Position=0 Log("------------->RutaOriginal "&ru_o) If ru_o.GetString("PE_RUTA") = 0 Then Label2.Text = "N/A" Else if ru_o.RowCount >=1 Then Private rutOr As String = ru_o.GetString("PE_RUTA") Label2.Text = "Ruta " & rutOr l_ru_pri.Text = NumberFormat2(ru_o.GetString("TOTAL_CLIE"), 0, 2, 2, False) End If ru_o.Close 'Prueba1 Private ru_s As Cursor = B4XPages.MainPage.skmt.ExecQuery2("SELECT IFNULL(PE_RUTA, 0) As PE_RUTA, IFNULL(SUM(PE_COSTO_TOT), 0) As TOTAL_CLIE FROM PEDIDO LEFT JOIN RUTA_SUPLENCIA ON PE_RUTA = RS_RUTA WHERE RS_RUTA Is Not Null", Null) ru_s.Position = 0 If ru_s.GetString("PE_RUTA") = 0 Then Label4.Text = "N/A" Else Private RuSu As String = ru_s.GetString("PE_RUTA") Label4.Text = "Ruta " & RuSu ru_s.Position = 0 l_ru_sup.Text = NumberFormat2(ru_s.GetString("TOTAL_CLIE"), 0, 2, 2, False) End If ru_s.Close Dim cuantos_obj As String c=B4XPages.MainPage.skmt.ExecQuery("Select count(*) AS TOTAL from HIST_MARCAS_CUOTAS ") c.Position = 0 cuantos_obj = c.GetString("TOTAL") c.Close If cuantos_obj > 0 Then c=B4XPages.MainPage.skmt.ExecQuery("Select SUM(HMC_TOTAL) AS TOTAL from HIST_MARCAS_CUOTAS ") c.Position = 0 If c.GetString("TOTAL") > 0 Then L_NES.Text = Round(c.GetString("TOTAL") / 25) Else L_NES.Text = c.GetString("TOTAL") End If c.Close End If ' L_REAL.Text = l_monto_ks.Text L_ALCANCE.Text = Round2((L_NES.Text / L_REAL.Text + 1),2) L_VPLAN.Text = l_porvisitar.Text L_VREAL.Text = L_CUANTOST.text L_EFEC_VIS.Text = Round2(L_VREAL.text / L_VPLAN.Text,2) L_VISITCC.Text = l_cuantosc.text L_EFEC_PV.Text = Round2(L_VISITCC.Text / L_VREAL.Text,2) L_EFEC_PURA.Text = Round2(L_VISITCC.Text / L_VPLAN.Text,2) L_LIN_TICK.Text = LPT If l_monto_ks.Text <> "0" Then c=B4XPages.MainPage.skmt.ExecQuery2("Select COUNT(DISTINCT(PE_CLIENTE)) AS CUANTOS FROM PEDIDO WHERE PE_CEDIS = ? ", Array As String(ALMACEN)) c.Position = 0 L_CTE_PROMO.Text = c.GetString("CUANTOS") c.Close d=B4XPages.MainPage.skmt.ExecQuery2("Select sum(PE_COSTO_TOT) AS MONTO_DIA FROM PEDIDO WHERE PE_PROID IN (select CAT_GP_ID from cat_gunaprod where CAT_GP_TIPOPROD = ?) ", Array As String("PRIORITARIO")) d.Position = 0 '/////////////////////////////////////////////////////////////////////////////// '//////////////////////////// ULTIMA LINEA ANTES DEL ERROR ////////////////// '////////// java.lang.NullPointerException: Attempt to invoke virtual method 'int java.lang.String.length()' on a null object reference ' '/// Al parecer d.GetString("MONTO_DIA") regresa null y la funcion numberFormat truena '///////////////////////////////////////////////////////////////////////////////// 'Log("|"&d.GetString("MONTO_DIA")&"|") 'L_PRIO.Text = NumberFormat(d.GetString("MONTO_DIA"),0,2) L_PRIO.Text = d.GetString("MONTO_DIA") d.Close d=B4XPages.MainPage.skmt.ExecQuery2("Select sum(PE_COSTO_TOT) AS MONTO_DIA FROM PEDIDO WHERE PE_PROID IN (select CAT_GP_ID from cat_gunaprod where CAT_GP_TIPOPROD = ?) ", Array As String("ESTRATEGICO")) d.Position = 0 L_SECUND.Text =d.GetString("MONTO_DIA") d.Close d=B4XPages.MainPage.skmt.ExecQuery2("Select sum(PE_COSTO_TOT) AS MONTO_DIA FROM PEDIDO WHERE PE_PROID IN (select CAT_GP_ID from cat_gunaprod where CAT_GP_TIPOPROD = ?) ", Array As String("COMPLEMENTARIO")) d.Position = 0 L_COMP.Text =d.GetString("MONTO_DIA") d.Close Else L_PRIO.Text = "0" L_SECUND.Text = "0" L_COMP.Text = "0" End If c=B4XPages.MainPage.skmt.ExecQuery("Select COUNT(*) AS CUANTOS FROM PEDIDO WHERE PE_CEDIS = PE_PROID ") c.Position = 0 If c.GetString("CUANTOS") > 0 Then d=B4XPages.MainPage.skmt.ExecQuery("Select sum(pe_cant) AS CUANTOS FROM PEDIDO WHERE PE_CEDIS = PE_PROID ") d.Position = 0 L_CTE_PROMO.Text = d.GetString("CUANTOS") d.Close L_REDEN_PROMO.TEXT = Round2(L_VISITCC.Text / L_CTE_PROMO.Text,2) Else L_CTE_PROMO.Text = 0 L_REDEN_PROMO.Text = 0 End If c.Close d=B4XPages.MainPage.skmt.ExecQuery("Select COUNT(*) AS CUANTOS FROM PEDIDO ") d.Position = 0 L_LIN_TICK.Text = Round2(d.GetString("CUANTOS") / L_VISITCC.Text,2) d.Close d=B4XPages.MainPage.skmt.ExecQuery("Select count(*) as CUANTOS from HIST_CUOTAS ") d.Position = 0 If d.GetString("CUANTOS") > 0 Then ' c=skmt.ExecQuery("Select HC_CUOTA1,HC_CUOTA2,HC_CUOTA3 from HIST_CUOTAS ") ' c.Position = 0 ' l_monto_c1.Text = Round( c.GetString("HC_CUOTA1") / 6) ' l_monto_c2.Text = Round(c.GetString("HC_CUOTA2") / 6) ' l_monto_c3.Text = Round(c.GetString("HC_CUOTA3") / 6) ' c.Close Else l_monto_c1.Text = 4000 l_monto_c2.Text = 2000 l_monto_c3.Text = 1000 End If d.Close End Sub Sub hacer_ped_Click B4XPages.ShowPage("Clientes") End Sub Sub nvo_cliente_Click B4XPages.ShowPage("NuevoCliente") End Sub Sub tickets_dia_Click B4XPages.ShowPage("TicketsDia") End Sub Sub GPS_LocationChanged (Location1 As Location) End Sub Sub Btn_Ubicar_Click StartActivity(MAPA_RUTAS) End Sub '''''''''''''''''''''''''''''''''''' VALIDAR CARACTERES Sub e_ruta_TextChanged (Old As String, New As String) Dim validChars As String ="ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz0123456789 " ' 'Log("Antes: " & Old & " | " & New) If Old <> "KMTS1" Then ' 'Log("Desp: " & Old & " | " & New) 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 End If End Sub Sub e_ruta2_TextChanged (Old As String, New As String) ' Dim validChars As String ="ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz0123456789 " ' 'Log("Antes: " & Old & " | " & New) If New = e_ruta.text and new <> "" Then cargar.Enabled = False ToastMessageShow("Las rutas NO PUEDEN ser iguales!!", False) Else cargar.Enabled = True End If End Sub Sub B_COMM_Click Btn_Ubicar.Visible=False SCROLL_RESDIA.Visible = True SCROLL_RESDIA.Panel.LoadLayout("COMIS") SCROLL_RESDIA.Panel.Height = Panel_C.Height Panel4.Visible = False Panel_C.Visible = True ' trabajar.Visible = False NUEVO.Visible =False BUSCA.Visible=False connecta.Visible=False Subir.Visible=False cargar.Visible=False Resumen.Visible= False ' If l_ruta.Text <> 0 Then c=B4XPages.MainPage.skmt.ExecQuery("Select HCM_TOTAL_V, HCM_TOTAL_VIVE, HCM_TOTAL_GUNA, HCM_TOTAL_BEB from HIST_COMISIONES_MOVIL") If c.RowCount > 0 Then c.Position = 0 L_TOTAL_BA.Text = c.GetString("HCM_TOTAL_BEB") L_TOTAL_GUNA.Text = c.GetString("HCM_TOTAL_GUNA") L_TOTAL_MM.Text = c.GetString("HCM_TOTAL_V") L_TOTAL_VIVE.Text = c.GetString("HCM_TOTAL_VIVE") c.Close L_TOTAL_COMIS.Text = 0 End If Else L_TOTAL_BA.Text = 0 L_TOTAL_GUNA.Text = 0 L_TOTAL_MM.Text = 0 L_TOTAL_VIVE.Text = 0 L_TOTAL_COMIS.Text = 0 End If End Sub Sub B_OK_COMISS_Click NUEVO.Visible =True BUSCA.Visible=True connecta.Visible=True Resumen.Visible= True P_RESUMEN.Visible=False Panel_C.Visible = False SCROLL_RESDIA.Visible = False Btn_Ubicar.Visible=True End Sub Sub B_MARCAS_Click SCROLL_RESDIA.Visible = True p_sombra.Width = Root.Width p_sombra.Height = Root.Height Subs.panelVisible(p_sombra, 0, 0) p_marcasRes.Visible = True p_marcasRes.Height = Root.Height * 0.8 p_marcasRes.BringToFront ' Subs.panelVisible(p_marcasRes,0,0) pnlTitle.Visible = False ' pnlTitle.SetLayoutAnimated(0, 5, 10, CLV1.AsView.Width-12, TitleHeight + DividerHeight - 15) ' pnlTitle.LoadLayout("CellTitle") ' pnlTitle.Height = 20dip B_OK_PANEL5.Top = p_marcasRes.Height - (B_OK_PANEL5.Height + 20) c=B4XPages.MainPage.skmt.ExecQuery("Select CAT_GP_CLASIF, SUM(TOTAL) AS TOTAL FROM TOTAL_MARCAS GROUP BY CAT_GP_CLASIF") CLV1.Clear If c.RowCount>0 Then For i=0 To c.RowCount -1 c.Position=i AddTitle(c.GetString("CAT_GP_CLASIF")) If c.GetString("CAT_GP_CLASIF") = "PROMOS" Then d=B4XPages.MainPage.skmt.ExecQuery("SELECT SUM(PE_CANT) AS CUANTOS FROM PEDIDO WHERE PE_CEDIS = PE_PROID") d.Position=0 CLV1.AddTextItem("CANTIDAD DE PROMOS = " & d.GetString("CUANTOS"),"1") d.Close Else f=B4XPages.MainPage.skmt.ExecQuery2("select COUNT(*) AS CUANTOS from HIST_MARCAS_CUOTAS where HMC_MARCA = ?", Array As String(c.GetString("CAT_GP_CLASIF"))) f.Position=0 If f.GetString("CUANTOS") > 0 Then e=B4XPages.MainPage.skmt.ExecQuery2("select HMC_MARCA, HMC_TOTAL from HIST_MARCAS_CUOTAS where HMC_MARCA = ?", Array As String(c.GetString("CAT_GP_CLASIF"))) e.Position=0 d=B4XPages.MainPage.skmt.ExecQuery2("SELECT count(distinct(PE_CLIENTE)) AS CUANTOS FROM PEDIDO WHERE PE_PROID in (select CAT_GP_ID from cat_gunaprod WHERE CAT_GP_CLASIF =?)", Array As String (c.GetString("CAT_GP_CLASIF"))) d.Position=0 CLV1.AddTextItem("TOTAL PREVENTA = $" & c.GetString("TOTAL"),"1") CLV1.AddTextItem("M E T A MES= $" & e.GetString("HMC_TOTAL"),"1") CLV1.AddTextItem("M E T A D I A= $" & Round(e.GetString("HMC_TOTAL") / 25),"1") CLV1.AddTextItem("FALTA DIA= $" & Round((e.GetString("HMC_TOTAL") / 25) - c.GetString("TOTAL")) ,"1") CLV1.AddTextItem("CLIENTES = " & d.GetString("CUANTOS"),"1") d.Close e.Close Else d=B4XPages.MainPage.skmt.ExecQuery2("SELECT count(distinct(pe_cliente)) AS CUANTOS FROM PEDIDO WHERE PE_PROID in (select CAT_GP_ID from cat_gunaprod WHERE CAT_GP_CLASIF =?)", Array As String (c.GetString("CAT_GP_CLASIF"))) d.Position=0 CLV1.AddTextItem("TOTAL PREVENTA = $" & c.GetString("TOTAL"),"1") CLV1.AddTextItem("M E T A = $" & "1000","1") CLV1.AddTextItem("FALTA = $" & (1000 - c.GetString("TOTAL")) ,"1") CLV1.AddTextItem("CLIENTES = " & d.GetString("CUANTOS"),"1") d.Close End If f.Close End If Next End If c.Close ' c=B4XPages.MainPage.skmt.ExecQuery("Select HMC_MARCA, HMC_TOTAL from HIST_MARCAS_CUOTAS where HMC_MARCA in (SELECT CAT_GP_CLASIF FROM TOTAL_MARCAS )") ' If c.RowCount>0 Then ' For i=0 To c.RowCount -1 ' c.Position=i ' AddTitle(c.GetString("HMC_MARCA")) ' CLV1.AddTextItem("TOTAL PREVENTA = $ 0.00","1") ' CLV1.AddTextItem("M E T A = $" & C.GetString("HMC_TOTAL"),"1") ' CLV1.AddTextItem("CLIENTES = 0","1") ' Next ' End If ' c.Close End Sub Sub AddTitle (Title As String) Dim p_marcas As B4XView = xui.CreatePanel("") p_marcas.SetLayoutAnimated(0, 0, 0, CLV1.AsView.Width, TitleHeight) p_marcas.LoadLayout("CellTitle") lblTitle.Text = Title Dim td As TitleData td.Title = Title CLV1.Add(p_marcas, td) End Sub Sub B_OK_PANEL5_Click NUEVO.Visible =True BUSCA.Visible=True connecta.Visible=True Resumen.Visible= True P_RESUMEN.Visible=False Panel4.Visible = False SCROLL_RESDIA.Visible = False p_marcasRes.Visible = False p_sombra.Visible = False Btn_Ubicar.Visible=True p_principal.Visible = True End Sub Sub e_ruta_Click Private revisaActualizacion As Map = Subs.revisaForzarActualizacion If revisaActualizacion.Get("forzar") = 2 Then LogColor("No hay info de versión para actualizar en CAT_VARIABLES, traemos la información!", Colors.red) cmd.Initialize cmd.Name = "selectVersionAppGuna" cmd.Parameters = Array As Object(ALMACEN) B4XPages.MainPage.reqManager.ExecuteQuery(cmd , 0, "traeVersion") End If End Sub 'You can see the list of page related events in the B4XPagesManager object. The event name is B4XPage. Private Sub p_marcasRes_Click End Sub Private Sub p_sombra_Click End Sub Private Sub p_transparenteActualizacion_Click End Sub