mirror of
https://github.com/KeymonSoft/Guna_Reparto_BAT.git
synced 2026-04-20 22:29:19 +00:00
6.02.18
Se agrega para que no puedan cargar dos rutas sin antes dar fin dia Se modifica para que no pida codigo a mayoreo
This commit is contained in:
cvaldes1201
@@ -1178,62 +1178,67 @@ Sub cargar_Click
|
||||
pedidodiaanterior = True
|
||||
End If
|
||||
End If
|
||||
If Not (pedidodiaanterior) Then
|
||||
' P_carga.Visible = True
|
||||
P_carga.Width = Root.Width
|
||||
P_carga.Height = Root.Height
|
||||
l_carga2.Text = "CARGANDO"
|
||||
L_carga.Text = "CARGANDO"
|
||||
PB_carga2.Progress = 0
|
||||
PB_carga.Progress = 0
|
||||
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_GUNA_VN2"
|
||||
cmd.Parameters = Array As Object(Subs.dameUsuarioDeDB, l_ruta.Text, ALMACEN, l_ctast.text, Subs.traeEntregados, Subs.traeRechazados, "CARGA",0,0,0,0,0,0,0,0)
|
||||
reqManager.ExecuteCommand(cmd , "inst_drop")
|
||||
|
||||
If Not (pedidodiaanterior) Then
|
||||
|
||||
|
||||
|
||||
' P_carga.Visible = True
|
||||
P_carga.Width = Root.Width
|
||||
P_carga.Height = Root.Height
|
||||
l_carga2.Text = "CARGANDO"
|
||||
L_carga.Text = "CARGANDO"
|
||||
PB_carga2.Progress = 0
|
||||
PB_carga.Progress = 0
|
||||
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_GUNA_VN2"
|
||||
cmd.Parameters = Array As Object(Subs.dameUsuarioDeDB, l_ruta.Text, ALMACEN, l_ctast.text, Subs.traeEntregados, Subs.traeRechazados, "CARGA",0,0,0,0,0,0,0,0)
|
||||
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 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")
|
||||
Starter.skmt.ExecNonQuery("DELETE FROM ABONOSP")
|
||||
Else
|
||||
Log("********************* Hay ruta, NO BORRAMOS TODO")
|
||||
End If
|
||||
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")
|
||||
Starter.skmt.ExecNonQuery("DELETE FROM ABONOSP")
|
||||
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")
|
||||
' NUEVOS CLIENTES
|
||||
c=Starter.skmt.ExecQuery("select usuario from usuarioa")
|
||||
c.Position = 0
|
||||
usuario = c.GetString("USUARIO")
|
||||
|
||||
cargaGeneral ' Cargamos los datos del almacen principal.
|
||||
cargaGeneral ' Cargamos los datos del almacen principal.
|
||||
|
||||
If multiAlmacen Then
|
||||
Sleep(100)
|
||||
Log(multiAlmacen)
|
||||
Log("==================== CARGAMOS SEGUNDO ALMACEN ======================")
|
||||
cargaAlmacen2 ' Cargamos los datos del segundo almacen.
|
||||
End If
|
||||
If multiAlmacen Then
|
||||
Sleep(100)
|
||||
Log(multiAlmacen)
|
||||
Log("==================== CARGAMOS SEGUNDO ALMACEN ======================")
|
||||
cargaAlmacen2 ' Cargamos los datos del segundo almacen.
|
||||
End If
|
||||
|
||||
|
||||
|
||||
@@ -1262,7 +1267,7 @@ Sub cargar_Click
|
||||
' End If
|
||||
' c.Close
|
||||
|
||||
' NOVENTA
|
||||
' 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
|
||||
@@ -1276,18 +1281,19 @@ Sub cargar_Click
|
||||
' 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")
|
||||
'' 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
|
||||
Log("XXXX")
|
||||
MsgboxAsync("Para poder cargar día no puedes tener venta del día anterior. Por favor haz FIN DIA e intenta nuevamente.","Atención")
|
||||
@@ -1473,27 +1479,57 @@ Sub JobDone(Job As HttpJob)
|
||||
If HVD_IMPRESO_RECHAZO = 0 Then
|
||||
LogColor($"ReqServer = ${B4XPages.MainPage.server}"$, Colors.red)
|
||||
If Not(IsConnectedToInternet) Then MsgboxAsync("No hay conexión a conexión a Internet", "Revisa tu conexión")
|
||||
If e_ruta.Text <> "" Then
|
||||
imei = "" 'p.GetDeviceId
|
||||
conn = "1"
|
||||
ime.HideKeyboard
|
||||
|
||||
Dim cmd As DBCommand
|
||||
cmd.Initialize
|
||||
cmd.Name = "select_ruta_re_REPG_GUNA_VN"
|
||||
cmd.Parameters = Array As Object()
|
||||
|
||||
reqManager.ExecuteQuery(cmd , 0, "ruta")
|
||||
ToastMessageShow("Validando Conexión." , True)
|
||||
Starter.skmt.ExecNonQuery("DELETE FROM RUTAA")
|
||||
Starter.skmt.ExecNonQuery2("INSERT INTO RUTAA(RUTAA) VALUES (?)", Array As Object (e_ruta.TEXT))
|
||||
B4XPages.MainPage.rutaPreventa = e_ruta.TEXT
|
||||
|
||||
cmd.Name = "selectAgrupadorAlmacen"
|
||||
cmd.Parameters = Array As Object(ALMACEN)
|
||||
Log($"${ALMACEN}, ${e_ruta.text}, ${imei}"$)
|
||||
reqManager.ExecuteQuery(cmd , 0, "agrupaAlmacen")
|
||||
|
||||
Dim checaruta As Boolean
|
||||
Dim cr As Cursor = Starter.skmt.ExecQuery("select RUTAA from RUTAA")
|
||||
If cr.RowCount > 0 Then
|
||||
cr.Position=0
|
||||
If cr.GetString("RUTAA") = e_ruta.Text Then
|
||||
checaruta = True
|
||||
Else
|
||||
checaruta = False
|
||||
End If
|
||||
Else
|
||||
checaruta = True
|
||||
End If
|
||||
c.Close
|
||||
Log(checaruta)
|
||||
|
||||
If e_ruta.Text <> "FIN DIA" Then
|
||||
|
||||
|
||||
If checaruta Then
|
||||
|
||||
If e_ruta.Text <> "" Then
|
||||
imei = "" 'p.GetDeviceId
|
||||
conn = "1"
|
||||
ime.HideKeyboard
|
||||
|
||||
Dim cmd As DBCommand
|
||||
cmd.Initialize
|
||||
cmd.Name = "select_ruta_re_REPG_GUNA_VN"
|
||||
cmd.Parameters = Array As Object()
|
||||
|
||||
reqManager.ExecuteQuery(cmd , 0, "ruta")
|
||||
ToastMessageShow("Validando Conexión." , True)
|
||||
Starter.skmt.ExecNonQuery("DELETE FROM RUTAA")
|
||||
Starter.skmt.ExecNonQuery2("INSERT INTO RUTAA(RUTAA) VALUES (?)", Array As Object (e_ruta.TEXT))
|
||||
B4XPages.MainPage.rutaPreventa = e_ruta.TEXT
|
||||
|
||||
cmd.Name = "selectAgrupadorAlmacen"
|
||||
cmd.Parameters = Array As Object(ALMACEN)
|
||||
Log($"${ALMACEN}, ${e_ruta.text}, ${imei}"$)
|
||||
reqManager.ExecuteQuery(cmd , 0, "agrupaAlmacen")
|
||||
|
||||
End If
|
||||
Else
|
||||
Log("XXXX")
|
||||
MsgboxAsync("Para poder cargar día con una ruta diferente primero haz FIN DIA e intenta nuevamente.","Atención")
|
||||
End If
|
||||
|
||||
Else
|
||||
Log("XXXX")
|
||||
MsgboxAsync("No se puede realizar esta accion, intenta nuevamente.","Atención")
|
||||
End If
|
||||
Else
|
||||
MsgboxAsync("No se puede realizar ninguna modificación","Rechazo confirmado")
|
||||
|
||||
Reference in New Issue
Block a user