mirror of
https://github.com/KeymonSoft/Mariana-Reparto-V5.git
synced 2026-04-21 06:39:25 +00:00
SE AGREGA LA VALIDACIÓN QUE UNA VEZ CARGADA YA NO PUEDA REALIZAR UNA NUEVA
SE AGREGA LA VALIDACIÓN QUE NO PUEDA CARGAR DE OTRO DIA
This commit is contained in:
jalarakmt
@@ -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)
|
||||
|
||||
Reference in New Issue
Block a user