From c93d41387c1dcf566a22f6b78941210bcbf75ab1 Mon Sep 17 00:00:00 2001 From: jalarakmt Date: Thu, 12 Mar 2026 17:05:58 -0600 Subject: [PATCH] =?UTF-8?q?SE=20AGREGA=20LA=20VALIDACI=C3=93N=20QUE=20UNA?= =?UTF-8?q?=20VEZ=20CARGADA=20YA=20NO=20PUEDA=20REALIZAR=20UNA=20NUEVA=20S?= =?UTF-8?q?E=20AGREGA=20LA=20VALIDACI=C3=93N=20QUE=20NO=20PUEDA=20CARGAR?= =?UTF-8?q?=20DE=20OTRO=20DIA?= MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit --- B4A/C_Principal.bas | 287 ++++++++++++++++++++--------------- B4A/Files/check.bal | Bin 44898 -> 44940 bytes B4A/Mariana_Reparto.b4a | 38 ++--- B4A/Mariana_Reparto.b4a.meta | 6 +- B4A/Subs.bas | 10 ++ 5 files changed, 197 insertions(+), 144 deletions(-) diff --git a/B4A/C_Principal.bas b/B4A/C_Principal.bas index 346b29a..0af817a 100644 --- a/B4A/C_Principal.bas +++ b/B4A/C_Principal.bas @@ -1041,131 +1041,15 @@ Sub cargar_Click End If End If If Not (pedidodiaanterior) Then - Log("CUMPLE") - EJECUTANDO = 1 - reqs.Initialize - TOPE = 0 - LogColor($"ReqServer = ${B4XPages.MainPage.server}"$, Colors.red) - reqManager.Initialize(Me, B4XPages.MainPage.server) - + + If Not(IsConnectedToInternet) Then MsgboxAsync("No hay conexión a Internet", "Revisa tu conexión") Dim cmd As DBCommand cmd.Initialize - cmd.Name = "insert_drop_rep_mards" - cmd.Parameters = Array As Object(Subs.dameUsuarioDeDB, l_ruta.Text, ALMACEN, l_ctast.text, Subs.traeEntregados, Subs.traeRechazados, "CARGA") - reqManager.ExecuteCommand(cmd , "inst_drop") -' reqs.Add("inst_noventa") - - Starter.skmt.ExecNonQuery("delete from kmt_info") - Starter.skmt.ExecNonQuery("delete from cod_result") - Starter.skmt.ExecNonQuery("delete from hist_gest") - Starter.skmt.ExecNonQuery("delete from CAT_DETALLES_PAQ") - Starter.skmt.ExecNonQuery("delete from telefonos") -' Starter.skmt.ExecNonQuery("delete from VENTAS") - Starter.skmt.ExecNonQuery("delete from PUNTEO_GPS") - If l_ruta.Text = "0" Then ' - Log("********************* No hay ruta, BORRAMOS TODO") - Starter.skmt.ExecNonQuery("delete from cat_gunaprod") - Starter.skmt.ExecNonQuery("delete from cat_gunaprod3") - Starter.skmt.ExecNonQuery("delete from REPARTO") - Starter.skmt.ExecNonQuery("delete from HIST_VENTAS") - Starter.skmt.ExecNonQuery("delete from HIST_VENTAS2") - Starter.skmt.ExecNonQuery("delete from NOVENTA") - Else - Log("********************* Hay ruta, NO BORRAMOS TODO") - End If - - ' NUEVOS CLIENTES - c=Starter.skmt.ExecQuery("select usuario from usuarioa") - c.Position = 0 - usuario = c.GetString("USUARIO") - - cmd.Initialize - cmd.Name = "select_punteo_mards_re_REPG" - cmd.Parameters = Array As Object(e_ruta.text, ALMACEN,ALMACEN) - reqManager.ExecuteQuery(cmd , 0, "punteo") - Log($"Pedimos Punteo"$) - reqs.Add("punteo") - - If l_ruta.Text = "0" Then - cmd.Initialize - cmd.Name = "select_almacen_MARIANA_re_REPG2" - cmd.Parameters = Array As Object(ALMACEN) - reqManager.ExecuteQuery(cmd , 0, "gunaprod") - Log($"Pedimos gunaprod - ${ALMACEN}, ${e_ruta.text}"$) - reqs.Add("gunaprod") - End If - - - cmd.Initialize - cmd.Name = "select_cliente_mards_re_REPG" - cmd.Parameters = Array As Object(e_ruta.text, ALMACEN,ALMACEN,e_ruta.text, ALMACEN) - reqManager.ExecuteQuery(cmd , 0, "kmt_datos") - Log($"Pedimos kmt_datos"$) - reqs.Add("kmt_datos") - - cmd.Initialize - cmd.Name = "select_ventad_mards_re_REPG" - cmd.Parameters = Array As Object(e_ruta.text, ALMACEN) - reqManager.ExecuteQuery(cmd , 0, "hist_datos") - Log($"Pedimos hist_datos"$) - reqs.Add("hist_datos") - - cmd.Initialize - cmd.Name = "select_coords_almacen_mards" - cmd.Parameters = Array As Object(ALMACEN) - reqManager.ExecuteQuery(cmd , 0, "coords_almacen") + cmd.Name = "select_ruta_entrega_cargada" + cmd.Parameters = Array As Object(ALMACEN, e_ruta.text) + reqManager.ExecuteQuery(cmd ,0, "entrega_cargada") -' cmd.Initialize -' cmd.Name = "select_cat_gunaprod3_MAZAPA" -' cmd.Parameters = Array As Object(ALMACEN) -' reqManager.ExecuteQuery(cmd , 0, "gunaprod3") -' cmd.Initialize -' cmd.Name = "select_pagares_MAZAPA" -' cmd.Parameters = Array As Object(e_ruta.text,ALMACEN) -' reqManager.ExecuteQuery(cmd , 0, "PAGARES") - -' c=Starter.skmt.ExecQuery("SELECT REP_CLIENTE, REP_PRONOMBRE, REP_CANT, REP_COSTO_TOT, REP_FECHA FROM REPARTO") -' If c.RowCount > 0 Then -' For i=0 To c.RowCount -1 -' c.Position=i -' Dim cmd As DBCommand -' cmd.Initialize -' cmd.Name = "insert_reparto_rechazo_REPG" -' cmd.Parameters = Array As Object(C.GetString("REP_CLIENTE"),C.GetString("REP_PRONOMBRE"),C.GetString("REP_CANT"),C.GetString("REP_COSTO_TOT"),C.GetString("REP_FECHA"), ALMACEN) -' reqManager.ExecuteCommand(cmd , "inst_noventa") -' reqs.Add("inst_noventa") -' Next -' End If -' c.Close - - ' NOVENTA -' c=Starter.skmt.ExecQuery("SELECT NV_CLIENTE, NV_FECHA, NV_USER,NV_MOTIVO,NV_COMM,NV_LAT,NV_LON, NV_FOTO FROM NOVENTA") -' If c.RowCount > 0 Then -' For i=0 To c.RowCount -1 -' c.Position=i -' foto1 = c.GetBlob("NV_FOTO") -' Dim cmd As DBCommand -' cmd.Initialize -' cmd.Name = "insert_reparto_REPG" -' cmd.Parameters = Array As Object(C.GetString("NV_CLIENTE"),C.GetString("NV_FECHA"),C.GetString("NV_USER"),C.GetString("NV_MOTIVO"),C.GetString("NV_COMM"),C.GetString("NV_LAT"),C.GetString("NV_LON"), ALMACEN, l_ruta.Text, foto1) -' reqManager.ExecuteCommand(cmd , "inst_noventa") -' reqs.Add("inst_noventa") -' Next -' End If -' c.Close - - D=Starter.skmt.ExecQuery("SELECT COUNT(*) AS CUANTOS_NOVENTA FROM NOVENTA") - d.Position=0 - cuantos_noventa = D.GetString("CUANTOS_NOVENTA") - d.Close - cargar.Visible = False - Subir.Visible = False - connecta.Visible = True - inv.Visible = False - ToastMessageShow("Se actualizarán los datos, este proceso podria tardar hasta un minuto, gracias" , True) - ProgressDialogShow2("Descargando rutas, espere un momento.", False) - If Not(IsConnectedToInternet) Then MsgboxAsync("No hay conexión a Internet", "Revisa tu conexión") Else @@ -1784,6 +1668,10 @@ Sub JobDone(Job As HttpJob) reqs.RemoveAt(reqs.IndexOf("ruta")) Log(reqs.Size) End If + If result.Rows.Size = 0 Then + + Msgbox("La ruta que ha ingresado no corresponde a la que tiene programada. Le sugerimos validar", "ATENCIÓN") + End If For Each records() As Object In result.Rows Dim VALIDO As String = records(result.Columns.Get("VALIDO")) ' Log("VALIDO= " & VALIDO) @@ -1834,6 +1722,159 @@ Sub JobDone(Job As HttpJob) End If End If + If Job.JobName = "DBRequest" Then + Dim result As DBResult = reqManager.HandleJob(Job) + If result.Tag = "entrega_cargada" Then 'query tag + Subs.logJobDoneResultados(result) + For Each records() As Object In result.Rows + Dim rrcargada As String = records(result.Columns.Get("RUTA_CARGADA")) + + Next + If rrcargada > 0 Then + MsgboxAsync("Ya se cargo esta ruta, si deseas cargar nuevamente comunicate con tu supervisor","Atención") + Else + + cmd.Initialize + cmd.Name = "update_ruta_entrega_cargada" + cmd.Parameters = Array As Object(ALMACEN,e_ruta.text) + reqManager.ExecuteCommand(cmd , "update_rrcargada") + + Log("CUMPLE") + EJECUTANDO = 1 + reqs.Initialize + TOPE = 0 + LogColor($"ReqServer = ${B4XPages.MainPage.server}"$, Colors.red) + reqManager.Initialize(Me, B4XPages.MainPage.server) + + Dim cmd As DBCommand + cmd.Initialize + cmd.Name = "insert_drop_rep_mards" + cmd.Parameters = Array As Object(Subs.dameUsuarioDeDB, l_ruta.Text, ALMACEN, l_ctast.text, Subs.traeEntregados, Subs.traeRechazados, "CARGA") + reqManager.ExecuteCommand(cmd , "inst_drop") +' reqs.Add("inst_noventa") + + + + + + Starter.skmt.ExecNonQuery("delete from kmt_info") + Starter.skmt.ExecNonQuery("delete from cod_result") + Starter.skmt.ExecNonQuery("delete from hist_gest") + Starter.skmt.ExecNonQuery("delete from CAT_DETALLES_PAQ") + Starter.skmt.ExecNonQuery("delete from telefonos") +' Starter.skmt.ExecNonQuery("delete from VENTAS") + Starter.skmt.ExecNonQuery("delete from PUNTEO_GPS") + If l_ruta.Text = "0" Then ' + Log("********************* No hay ruta, BORRAMOS TODO") + Starter.skmt.ExecNonQuery("delete from cat_gunaprod") + Starter.skmt.ExecNonQuery("delete from cat_gunaprod3") + Starter.skmt.ExecNonQuery("delete from REPARTO") + Starter.skmt.ExecNonQuery("delete from HIST_VENTAS") + Starter.skmt.ExecNonQuery("delete from HIST_VENTAS2") + Starter.skmt.ExecNonQuery("delete from NOVENTA") + Else + Log("********************* Hay ruta, NO BORRAMOS TODO") + End If + + ' NUEVOS CLIENTES + c=Starter.skmt.ExecQuery("select usuario from usuarioa") + c.Position = 0 + usuario = c.GetString("USUARIO") + + cmd.Initialize + cmd.Name = "select_punteo_mards_re_REPG" + cmd.Parameters = Array As Object(e_ruta.text, ALMACEN,ALMACEN) + reqManager.ExecuteQuery(cmd , 0, "punteo") + Log($"Pedimos Punteo"$) + reqs.Add("punteo") + + If l_ruta.Text = "0" Then + cmd.Initialize + cmd.Name = "select_almacen_MARIANA_re_REPG2" + cmd.Parameters = Array As Object(ALMACEN) + reqManager.ExecuteQuery(cmd , 0, "gunaprod") + Log($"Pedimos gunaprod - ${ALMACEN}, ${e_ruta.text}"$) + reqs.Add("gunaprod") + End If + + + cmd.Initialize + cmd.Name = "select_cliente_mards_re_REPG" + cmd.Parameters = Array As Object(e_ruta.text, ALMACEN,ALMACEN,e_ruta.text, ALMACEN) + reqManager.ExecuteQuery(cmd , 0, "kmt_datos") + Log($"Pedimos kmt_datos"$) + reqs.Add("kmt_datos") + + cmd.Initialize + cmd.Name = "select_ventad_mards_re_REPG" + cmd.Parameters = Array As Object(e_ruta.text, ALMACEN) + reqManager.ExecuteQuery(cmd , 0, "hist_datos") + Log($"Pedimos hist_datos"$) + reqs.Add("hist_datos") + + cmd.Initialize + cmd.Name = "select_coords_almacen_mards" + cmd.Parameters = Array As Object(ALMACEN) + reqManager.ExecuteQuery(cmd , 0, "coords_almacen") + +' cmd.Initialize +' cmd.Name = "select_cat_gunaprod3_MAZAPA" +' cmd.Parameters = Array As Object(ALMACEN) +' reqManager.ExecuteQuery(cmd , 0, "gunaprod3") + +' cmd.Initialize +' cmd.Name = "select_pagares_MAZAPA" +' cmd.Parameters = Array As Object(e_ruta.text,ALMACEN) +' reqManager.ExecuteQuery(cmd , 0, "PAGARES") + +' c=Starter.skmt.ExecQuery("SELECT REP_CLIENTE, REP_PRONOMBRE, REP_CANT, REP_COSTO_TOT, REP_FECHA FROM REPARTO") +' If c.RowCount > 0 Then +' For i=0 To c.RowCount -1 +' c.Position=i +' Dim cmd As DBCommand +' cmd.Initialize +' cmd.Name = "insert_reparto_rechazo_REPG" +' cmd.Parameters = Array As Object(C.GetString("REP_CLIENTE"),C.GetString("REP_PRONOMBRE"),C.GetString("REP_CANT"),C.GetString("REP_COSTO_TOT"),C.GetString("REP_FECHA"), ALMACEN) +' reqManager.ExecuteCommand(cmd , "inst_noventa") +' reqs.Add("inst_noventa") +' Next +' End If +' c.Close + + ' NOVENTA +' c=Starter.skmt.ExecQuery("SELECT NV_CLIENTE, NV_FECHA, NV_USER,NV_MOTIVO,NV_COMM,NV_LAT,NV_LON, NV_FOTO FROM NOVENTA") +' If c.RowCount > 0 Then +' For i=0 To c.RowCount -1 +' c.Position=i +' foto1 = c.GetBlob("NV_FOTO") +' Dim cmd As DBCommand +' cmd.Initialize +' cmd.Name = "insert_reparto_REPG" +' cmd.Parameters = Array As Object(C.GetString("NV_CLIENTE"),C.GetString("NV_FECHA"),C.GetString("NV_USER"),C.GetString("NV_MOTIVO"),C.GetString("NV_COMM"),C.GetString("NV_LAT"),C.GetString("NV_LON"), ALMACEN, l_ruta.Text, foto1) +' reqManager.ExecuteCommand(cmd , "inst_noventa") +' reqs.Add("inst_noventa") +' Next +' End If +' c.Close + + D=Starter.skmt.ExecQuery("SELECT COUNT(*) AS CUANTOS_NOVENTA FROM NOVENTA") + d.Position=0 + cuantos_noventa = D.GetString("CUANTOS_NOVENTA") + d.Close + cargar.Visible = False + Subir.Visible = False + connecta.Visible = True + inv.Visible = False + ToastMessageShow("Se actualizarán los datos, este proceso podria tardar hasta un minuto, gracias" , True) + ProgressDialogShow2("Descargando rutas, espere un momento.", False) + End If + + End If + + End If + + + If Job.JobName = "DBRequest" Then Dim result As DBResult = reqManager.HandleJob(Job) If result.Tag = "ins_reparto" Then 'query tag @@ -1904,8 +1945,8 @@ Sub connecta_Click reqManager.ExecuteQuery(cmd , 0, "version") Dim cmd As DBCommand cmd.Initialize - cmd.Name = "select_ruta_re_REPG" - cmd.Parameters = Array As Object(ALMACEN, e_ruta.text, imei) + cmd.Name = "select_ruta_re_REPG3" + cmd.Parameters = Array As Object(ALMACEN, e_ruta.text, Subs.traeUsuario) ' Log($"${ALMACEN}, ${e_ruta.text}, ${imei}"$) reqManager.ExecuteQuery(cmd , 0, "ruta") ToastMessageShow("Validando Conexión." , True) diff --git a/B4A/Files/check.bal b/B4A/Files/check.bal index 21945d1586f4b520583ffb34670555c14b09235e..899cfe996639610b6a027e7d9eb07f436df8ea96 100644 GIT binary patch delta 100 zcmaEKkE!QA6DunN14H9RRx55s-pLN!8B*dver8@tZfZq*PJViRyrHF01rY0H6>MJ4 cUB`t_-at$