mirror of
https://github.com/KeymonSoft/Mazapa-Reparto.git
synced 2026-04-20 22:39:16 +00:00
Version: 5.03.31
Se le agrego una vista al enviar informacion.
This commit is contained in:
IsR0d
@@ -95,6 +95,15 @@ Sub Class_Globals
|
||||
Private b_regreso As Button
|
||||
Private lv_prod_Prin As ListView
|
||||
Private b_venta_emp As Button
|
||||
Dim successfulRequests As Int = 0
|
||||
Dim totalRegistros As Int = 0
|
||||
Dim totalRegistrosTotales As Int = 0
|
||||
Dim todosRequest As Int = 0
|
||||
Private pEnvioInfo As Panel
|
||||
Private bEnvioInfo As Button
|
||||
Private pbEnvioInfo As ProgressBar
|
||||
Private lEnviaInfo As Label
|
||||
Private lVersionName As Label
|
||||
End Sub
|
||||
|
||||
'You can add more parameters here.
|
||||
@@ -118,10 +127,10 @@ Private Sub B4XPage_Created (Root1 As B4XView)
|
||||
b=Starter.skmt.ExecQuery("Select count(*) as CUANTOS from pedido_cliente")
|
||||
b.Position=0
|
||||
Cuantos = b.GetString("CUANTOS")
|
||||
d=Starter.skmt.ExecQuery("select count(*) as TOTAL_VISITAR from kmt_info where gestion = 0 AND CAT_CL_RUTA <> 1000")
|
||||
d=Starter.skmt.ExecQuery("select DISTINCT count(*) as TOTAL_VISITAR from kmt_info where gestion = 0 AND CAT_CL_RUTA <> 1000")
|
||||
D.Position=0
|
||||
b.Close
|
||||
e=Starter.skmt.ExecQuery("select count(*) as POR_VISITAR from kmt_info WHERE CAT_CL_RUTA <> 1000")
|
||||
e=Starter.skmt.ExecQuery("select DISTINCT count(*) as POR_VISITAR from kmt_info WHERE CAT_CL_RUTA <> 1000")
|
||||
e.Position=0
|
||||
If Cuantos = 0 Then
|
||||
l_aLiquidar.Text = 0
|
||||
@@ -167,6 +176,7 @@ End Sub
|
||||
|
||||
Sub B4XPage_Appear
|
||||
|
||||
lVersionName.Text = "Version: " & Application.VersionName
|
||||
Private c As Cursor = Starter.skmt.ExecQuery("SELECT * FROM NOVENTA")
|
||||
If c.RowCount > 0 Then
|
||||
Starter.skmt.ExecNonQuery("Update kmt_info set gestion = 2 WHERE CAT_CL_CODIGO IN (SELECT NV_CLIENTE FROM NOVENTA WHERE NV_MOTIVO = 'ENTREGA')")
|
||||
@@ -228,10 +238,10 @@ Sub B4XPage_Appear
|
||||
b=Starter.skmt.ExecQuery("Select count(*) as CUANTOS from kmt_info")
|
||||
b.Position=0
|
||||
If b.RowCount > 0 Then Cuantos = b.GetString("CUANTOS")
|
||||
d=Starter.skmt.ExecQuery("select count(*) as TOTAL_VISITAR from kmt_info where gestion = 0 AND CAT_CL_RUTA <> 1000")
|
||||
d=Starter.skmt.ExecQuery("selecT count(DISTINCT CAT_CL_CODIGO) as TOTAL_VISITAR from kmt_info where gestion = 0 AND CAT_CL_RUTA <> 1000")
|
||||
D.Position=0
|
||||
b.Close
|
||||
e=Starter.skmt.ExecQuery("select count(*) as POR_VISITAR from kmt_info WHERE CAT_CL_RUTA <> 1000")
|
||||
e=Starter.skmt.ExecQuery("select count(DISTINCT CAT_CL_CODIGO) as POR_VISITAR from kmt_info WHERE CAT_CL_RUTA <> 1000")
|
||||
e.Position=0
|
||||
' f=Starter.skmt.ExecQuery("select count(*) as CAT_CL_RUTA from kmt_info")
|
||||
' f.Position=0
|
||||
@@ -667,6 +677,15 @@ Sub trabajar_Click
|
||||
End Sub
|
||||
|
||||
Sub Subir_Click
|
||||
pEnvioInfo.Width = Root.Width
|
||||
pEnvioInfo.Height = Root.Height
|
||||
pEnvioInfo.Left = 0
|
||||
pEnvioInfo.Visible = True
|
||||
pbEnvioInfo.Width = Root.Width * 0.7
|
||||
pbEnvioInfo.Left = Round(Root.Width/2)-(pbEnvioInfo.Width/2)
|
||||
Subs.centraBoton(bEnvioInfo, pEnvioInfo.Width)
|
||||
Subs.centraEtiqueta(lEnviaInfo, pEnvioInfo.Width)
|
||||
|
||||
If Not(IsConnectedToInternet) Then MsgboxAsync("No hay conexión a conexión a Internet", "Revisa tu conexión")
|
||||
c=Starter.skmt.ExecQuery("select usuario from usuarioa")
|
||||
c.Position = 0
|
||||
@@ -681,13 +700,20 @@ Sub Subir_Click
|
||||
End Sub
|
||||
|
||||
Sub envioinfo
|
||||
|
||||
|
||||
|
||||
successfulRequests = 0
|
||||
totalRegistros = 0
|
||||
totalRegistrosTotales = 0
|
||||
todosRequest = -1
|
||||
bEnvioInfo.Enabled = False
|
||||
' NOVENTA
|
||||
c = Starter.skmt.ExecQuery("SELECT NV_CLIENTE,NV_FECHA,NV_USER,NV_MOTIVO,NV_COMM,NV_LAT,NV_LON, NV_FOTO FROM NOVENTA")
|
||||
D=Starter.skmt.ExecQuery("SELECT COUNT(*) AS CUANTOS_NOVENTA FROM NOVENTA")
|
||||
If c.RowCount>0 Then
|
||||
Log($"Procesando NOVENTA: ${c.RowCount} registros"$)
|
||||
totalRegistros = totalRegistros + c.RowCount
|
||||
totalRegistrosTotales = totalRegistrosTotales + c.RowCount
|
||||
Log($"Total acumulado: ${totalRegistros}"$)
|
||||
|
||||
For i=0 To c.RowCount -1
|
||||
c.Position=i
|
||||
foto1 = c.GetBlob("NV_FOTO")
|
||||
@@ -702,9 +728,15 @@ Sub envioinfo
|
||||
d.Position=0
|
||||
cuantos_noventa = D.GetString("CUANTOS_NOVENTA")
|
||||
d.Close
|
||||
|
||||
' HIST_VENTAS con rechazo o parcial
|
||||
c=Starter.skmt.ExecQuery("SELECT HVD_CLIENTE,HVD_PRONOMBRE,HVD_CANT,HVD_COSTO_TOT, HVD_FECHA, HVD_CODPROMO, HVD_PROID, HVD_NUM_TICKET, HVD_NUM_REGISTRO, HVD_RECHAZO, HVD_PARCIAL FROM hist_ventas WHERE HVD_RECHAZO = 1 OR HVD_PARCIAL = 1")
|
||||
'
|
||||
If c.RowCount>0 Then
|
||||
Log($"Procesando HIST_VENTAS (rechazos/parciales): ${c.RowCount} registros"$)
|
||||
totalRegistros = totalRegistros + c.RowCount
|
||||
totalRegistrosTotales = totalRegistrosTotales + c.RowCount
|
||||
Log($"Total acumulado: ${totalRegistros}"$)
|
||||
|
||||
For i=0 To c.RowCount -1
|
||||
c.Position=i
|
||||
Dim cmd As DBCommand
|
||||
@@ -715,9 +747,15 @@ Sub envioinfo
|
||||
Next
|
||||
c.Close
|
||||
End If
|
||||
' pedido
|
||||
|
||||
' PEDIDO
|
||||
c=Starter.skmt.ExecQuery("SELECT PE_TIPO, PE_RUTA, PE_CEDIS, PE_COSTO_TOT, PE_COSTOU, PE_CANT, PE_PRONOMBRE, PE_PROID, PE_CLIENTE, PE_FECHA, PE_USUARIO, PE_CLIENTEOR, PE_CAJAS, PE_BCAJAS, CONSECUTIVO, FECHA_PREV, RUTA_REP, PE_REGALO FROM PEDIDO")
|
||||
If c.RowCount>0 Then
|
||||
Log($"Procesando PEDIDO: ${c.RowCount} registros"$)
|
||||
totalRegistros = totalRegistros + c.RowCount
|
||||
totalRegistrosTotales = totalRegistrosTotales + c.RowCount
|
||||
Log($"Total acumulado: ${totalRegistros}"$)
|
||||
|
||||
For i=0 To c.RowCount -1
|
||||
c.Position=i
|
||||
Dim cmd As DBCommand
|
||||
@@ -728,11 +766,15 @@ Sub envioinfo
|
||||
Next
|
||||
c.Close
|
||||
End If
|
||||
|
||||
|
||||
' reqManager.Initialize(Me, "http://187.189.244.154:1787") 'Para el servidor de pruebas.
|
||||
|
||||
' REPARTO
|
||||
c = Starter.skmt.ExecQuery("SELECT * from reparto")
|
||||
If c.RowCount > 0 Then
|
||||
Log($"Procesando REPARTO: ${c.RowCount} registros"$)
|
||||
totalRegistros = totalRegistros + c.RowCount
|
||||
totalRegistrosTotales = totalRegistrosTotales + c.RowCount
|
||||
Log($"Total acumulado: ${totalRegistros}"$)
|
||||
|
||||
Private folio As String = Subs.hmsKMT
|
||||
For i=0 To c.RowCount -1
|
||||
c.Position=i
|
||||
@@ -744,8 +786,15 @@ Sub envioinfo
|
||||
Next
|
||||
c.Close
|
||||
End If
|
||||
|
||||
' RECHAZOS
|
||||
c = Starter.skmt.ExecQuery("SELECT * from rechazos")
|
||||
If c.RowCount > 0 Then
|
||||
Log($"Procesando RECHAZOS: ${c.RowCount} registros"$)
|
||||
totalRegistros = totalRegistros + c.RowCount
|
||||
totalRegistrosTotales = totalRegistrosTotales + c.RowCount
|
||||
Log($"Total acumulado: ${totalRegistros}"$)
|
||||
|
||||
Private folio As String = Subs.hmsKMT
|
||||
For i=0 To c.RowCount -1
|
||||
c.Position=i
|
||||
@@ -757,8 +806,15 @@ Sub envioinfo
|
||||
Next
|
||||
c.Close
|
||||
End If
|
||||
|
||||
' VENTAS
|
||||
c = Starter.skmt.ExecQuery("SELECT * from ventas")
|
||||
If c.RowCount > 0 Then
|
||||
Log($"Procesando VENTAS: ${c.RowCount} registros"$)
|
||||
totalRegistros = totalRegistros + c.RowCount
|
||||
totalRegistrosTotales = totalRegistrosTotales + c.RowCount
|
||||
Log($"Total acumulado: ${totalRegistros}"$)
|
||||
|
||||
Private folio As String = Subs.hmsKMT
|
||||
For i=0 To c.RowCount -1
|
||||
c.Position=i
|
||||
@@ -770,25 +826,27 @@ Sub envioinfo
|
||||
Next
|
||||
c.Close
|
||||
End If
|
||||
|
||||
|
||||
c=Starter.skmt.ExecQuery("SELECT CLIENTE, USUARIO, FECHA_PUNTEO, LATITUD, LONGITUD, ALMACEN, RUTA_REPARTO, RUTA_PREV, FECHA_PREVENTA, MOTIVO, COMENTARIO,TIPO FROM REPARTO_GEO")
|
||||
Log($"REPARTO_Cliente PENDIENTE: ${c.RowCount}"$)
|
||||
|
||||
' REPARTO_GEO
|
||||
c=Starter.skmt.ExecQuery("SELECT CLIENTE, USUARIO, FECHA_PUNTEO, LATITUD, LONGITUD, ALMACEN, RUTA_REPARTO, RUTA_PREV, FECHA_PREVENTA, MOTIVO, COMENTARIO,TIPO FROM REPARTO_GEO")
|
||||
If c.RowCount>0 Then
|
||||
Log($"Procesando REPARTO_GEO: ${c.RowCount} registros"$)
|
||||
totalRegistros = totalRegistros + c.RowCount
|
||||
totalRegistrosTotales = totalRegistrosTotales + c.RowCount
|
||||
Log($"Total acumulado: ${totalRegistros}"$)
|
||||
|
||||
For i=0 To c.RowCount -1
|
||||
c.Position=i
|
||||
|
||||
Dim cmd As DBCommand
|
||||
cmd.Initialize
|
||||
cmd.Name = "insert_REPARTO_MAZAPA"
|
||||
cmd.Parameters = Array As Object(c.GetString("CLIENTE"), c.GetString("USUARIO"), c.GetString("FECHA_PUNTEO"), c.GetString("LATITUD"), c.GetString("LONGITUD"), c.GetString("ALMACEN"), c.GetString("RUTA_REPARTO"), c.GetString("RUTA_PREV"), c.GetString("FECHA_PREVENTA"), c.GetString("MOTIVO"), c.GetString("COMENTARIO"),c.GetString("TIPO"))
|
||||
reqManager.ExecuteCommand(cmd , $"ins_REPARTOPendientes_head_${c.GetString("CLIENTE")}"$)
|
||||
|
||||
Next
|
||||
End If
|
||||
c.Close
|
||||
|
||||
'TABULADOR
|
||||
|
||||
' TABULADOR_MONEDAS
|
||||
c = Starter.skmt.ExecQuery("SELECT VEINTE, DIEZ, CINCO, DOS, PESO, CENTAVO, TOTAL FROM TABULADOR_MONEDAS")
|
||||
d = Starter.skmt.ExecQuery("SELECT RUTAA FROM RUTAA")
|
||||
b = Starter.skmt.ExecQuery("SELECT ID_ALMACEN FROM CAT_ALMACEN")
|
||||
@@ -797,6 +855,11 @@ Sub envioinfo
|
||||
b.Position = 0
|
||||
f.Position = 0
|
||||
If c.RowCount > 0 Then
|
||||
Log($"Procesando TABULADOR_MONEDAS: ${c.RowCount} registros"$)
|
||||
totalRegistros = totalRegistros + c.RowCount
|
||||
totalRegistrosTotales = totalRegistrosTotales + c.RowCount
|
||||
Log($"Total acumulado: ${totalRegistros}"$)
|
||||
|
||||
For i = 0 To c.RowCount - 1
|
||||
c.Position=i
|
||||
Dim cmd As DBCommand
|
||||
@@ -813,9 +876,15 @@ Sub envioinfo
|
||||
b.Close
|
||||
f.Close
|
||||
End If
|
||||
|
||||
c = Starter.skmt.ExecQuery("SELECT IFNULL(HVD_RECHAZOCANT,0) AS HVD_RECHAZOCANT, HVD_CLIENTE, HVD_PROID, HVD_FECHA, HVD_CODPROMO, HVD_NUM_TICKET, HVD_CANT, CONSECUTIVO, BCAJAS, CANTC FROM HIST_VENTAS")
|
||||
|
||||
' HIST_VENTAS para actualización
|
||||
c = Starter.skmt.ExecQuery("SELECT IFNULL(HVD_RECHAZOCANT,0) AS HVD_RECHAZOCANT, HVD_RUTA, HVD_CLIENTE, HVD_PROID, HVD_FECHA, HVD_CODPROMO, HVD_NUM_TICKET, HVD_CANT, CONSECUTIVO, BCAJAS, CANTC FROM HIST_VENTAS")
|
||||
If c.RowCount > 0 Then
|
||||
Log($"Procesando HIST_VENTAS (actualización): ${c.RowCount} registros"$)
|
||||
totalRegistros = totalRegistros + c.RowCount
|
||||
totalRegistrosTotales = totalRegistrosTotales + c.RowCount
|
||||
Log($"Total acumulado: ${totalRegistros}"$)
|
||||
|
||||
For i=0 To c.RowCount -1
|
||||
c.Position = i
|
||||
Log(c.GetString("HVD_CLIENTE"))
|
||||
@@ -826,14 +895,14 @@ Sub envioinfo
|
||||
d5.Position = 0
|
||||
Private restacant As String = d5.GetString("PE_CANT")
|
||||
d5.Close
|
||||
|
||||
|
||||
Dim fecha1() As String = Regex.Split(" ", c.GetString("HVD_FECHA"))
|
||||
Dim fecha2() As String = Regex.Split("-", fecha1(0))
|
||||
Dim fecha3 As String = fecha2(2)&"/"&fecha2(1)&"/"&fecha2(0)
|
||||
Log(fecha3)
|
||||
Dim hora() As String = Regex.Split("\.", fecha1(1))
|
||||
Log(hora(0))
|
||||
|
||||
|
||||
Dim sDate, sTime As String
|
||||
DateTime.DateFormat = "dd/MM/yyyy"
|
||||
DateTime.TimeFormat = "HH:mm:ss"
|
||||
@@ -843,13 +912,13 @@ Sub envioinfo
|
||||
Log((c.GetString("HVD_RECHAZOCANT")-restacant))
|
||||
cmd.Initialize
|
||||
cmd.Name = "update_HVD_MAZAPArep2"
|
||||
cmd.Parameters = Array As String(c.GetString("HVD_RECHAZOCANT"),c.GetString("BCAJAS"), c.GetString("CANTC"),sDate& " "& sTime,1, c.GetString("HVD_CLIENTE"), c.GetString("HVD_PROID"),fecha3&" "&hora(0), d4.GetString("CAT_CL_RUTA"),ALMACEN,l_ruta.Text,c.GetString("HVD_CODPROMO"),c.GetString("HVD_NUM_TICKET"), c.GetString("HVD_CANT"))
|
||||
cmd.Parameters = Array As String(c.GetString("HVD_RECHAZOCANT"),c.GetString("BCAJAS"), c.GetString("CANTC"),sDate& " "& sTime,1, c.GetString("HVD_CLIENTE"), c.GetString("HVD_PROID"),fecha3&" "&hora(0), c.GetString("HVD_RUTA"),ALMACEN,l_ruta.Text,c.GetString("HVD_CODPROMO"),c.GetString("HVD_NUM_TICKET"), c.GetString("HVD_CANT"))
|
||||
reqManager.ExecuteCommand(cmd, "update_hvd")
|
||||
Else
|
||||
cmd.Initialize
|
||||
cmd.Name = "update_HVD_MAZAPArep2"
|
||||
Log( c.GetString("CANTC")& c.GetString("HVD_CLIENTE")& c.GetString("HVD_PROID")&fecha3&" "&hora(0)& d4.GetString("CAT_CL_RUTA")&ALMACEN&l_ruta.Text&c.GetString("HVD_CODPROMO")&c.GetString("HVD_NUM_TICKET")& c.GetString("HVD_CANT"))
|
||||
cmd.Parameters = Array As String("",c.GetString("BCAJAS"), c.GetString("CANTC"),"","", c.GetString("HVD_CLIENTE"), c.GetString("HVD_PROID"),fecha3&" "&hora(0), d4.GetString("CAT_CL_RUTA"),ALMACEN,l_ruta.Text,c.GetString("HVD_CODPROMO"),c.GetString("HVD_NUM_TICKET"), c.GetString("HVD_CANT"))
|
||||
cmd.Parameters = Array As String("",c.GetString("BCAJAS"), c.GetString("CANTC"),"","", c.GetString("HVD_CLIENTE"), c.GetString("HVD_PROID"),fecha3&" "&hora(0), c.GetString("HVD_RUTA"),ALMACEN,l_ruta.Text,c.GetString("HVD_CODPROMO"),c.GetString("HVD_NUM_TICKET"), c.GetString("HVD_CANT"))
|
||||
reqManager.ExecuteCommand(cmd, "update_hvd")
|
||||
End If
|
||||
d4.Close
|
||||
@@ -857,7 +926,7 @@ Sub envioinfo
|
||||
End If
|
||||
c.Close
|
||||
|
||||
|
||||
' TABULADOR_BILLETES
|
||||
c = Starter.skmt.ExecQuery("SELECT MIL, QUINIENTOS, DOCIENTOS, CIEN, CINCUENTA, VEINTE FROM TABULADOR_BILLETES")
|
||||
d = Starter.skmt.ExecQuery("SELECT RUTAA FROM RUTAA")
|
||||
b = Starter.skmt.ExecQuery("SELECT ID_ALMACEN FROM CAT_ALMACEN")
|
||||
@@ -866,6 +935,11 @@ Sub envioinfo
|
||||
b.Position = 0
|
||||
f.Position = 0
|
||||
If c.RowCount > 0 Then
|
||||
Log($"Procesando TABULADOR_BILLETES: ${c.RowCount} registros"$)
|
||||
totalRegistros = totalRegistros + c.RowCount
|
||||
totalRegistrosTotales = totalRegistrosTotales + c.RowCount
|
||||
Log($"Total acumulado: ${totalRegistros}"$)
|
||||
|
||||
For i = 0 To c.RowCount - 1
|
||||
c.Position=i
|
||||
Dim cmd As DBCommand
|
||||
@@ -882,14 +956,24 @@ Sub envioinfo
|
||||
b.Close
|
||||
f.Close
|
||||
End If
|
||||
'FIN TABULADOR
|
||||
|
||||
|
||||
' Insertar drop
|
||||
Dim cmd As DBCommand
|
||||
cmd.Initialize
|
||||
cmd.Name = "insert_drop_rep_MAZAPA"
|
||||
cmd.Parameters = Array As Object(Subs.dameUsuarioDeDB, l_ruta.Text, ALMACEN, l_ctast.text, Subs.traeEntregados, Subs.traeRechazados, "ENVIO")
|
||||
cmd.Name = "insert_drop_rep_MAZAPA2"
|
||||
cmd.Parameters = Array As Object(Subs.dameUsuarioDeDB, l_ruta.Text, ALMACEN, l_ctast.text, Subs.traeEntregados, Subs.traeRechazados, "ENVIO", Application.VersionName)
|
||||
reqManager.ExecuteCommand(cmd , "inst_drop")
|
||||
ToastMessageShow("Se Actualizaran los datos, Este proceso podria tardar hasta un minuto, gracias "& l_ruta.text , True)
|
||||
|
||||
Log($"PROCESO COMPLETADO - TOTAL DE REGISTROS PROCESADOS: ${totalRegistros}"$)
|
||||
ToastMessageShow("Se Actualizaron los datos, Este proceso podria tardar hasta un minuto, gracias "& l_ruta.text , True)
|
||||
|
||||
Wait For AllRequestsComplete ' Espera a que todos los requests terminen
|
||||
|
||||
Log($"Total registros procesados: ${totalRegistros}"$)
|
||||
Log($"Requests exitosos: ${successfulRequests}"$)
|
||||
LogColor("Esto es totalRegistrosTotales: ---->" & totalRegistrosTotales, Colors.Red)
|
||||
|
||||
|
||||
End Sub
|
||||
|
||||
Sub cargar_Click
|
||||
@@ -922,8 +1006,8 @@ Sub cargar_Click
|
||||
|
||||
Dim cmd As DBCommand
|
||||
cmd.Initialize
|
||||
cmd.Name = "insert_drop_rep_MAZAPA"
|
||||
cmd.Parameters = Array As Object(Subs.dameUsuarioDeDB, l_ruta.Text, ALMACEN, l_ctast.text, Subs.traeEntregados, Subs.traeRechazados, "CARGA")
|
||||
cmd.Name = "insert_drop_rep_MAZAPA2"
|
||||
cmd.Parameters = Array As Object(Subs.dameUsuarioDeDB, l_ruta.Text, ALMACEN, l_ctast.text, Subs.traeEntregados, Subs.traeRechazados, "CARGA", Application.VersionName)
|
||||
reqManager.ExecuteCommand(cmd , "inst_drop")
|
||||
' reqs.Add("inst_noventa")
|
||||
|
||||
@@ -958,14 +1042,14 @@ Sub cargar_Click
|
||||
Log($"Pedimos Punteo"$)
|
||||
reqs.Add("punteo")
|
||||
|
||||
If l_ruta.Text = "0" Then
|
||||
' If l_ruta.Text = "0" Then
|
||||
cmd.Initialize
|
||||
cmd.Name = "select_almacen_MAZAPA_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
|
||||
' End If
|
||||
|
||||
|
||||
cmd.Initialize
|
||||
@@ -1049,10 +1133,17 @@ End Sub
|
||||
|
||||
Sub JobDone(Job As HttpJob)
|
||||
' Private r As DBResult = reqManager.HandleJob(Job)
|
||||
Log(todosRequest)
|
||||
todosRequest = todosRequest +1
|
||||
Log(todosRequest)
|
||||
If Job.Success = False Then
|
||||
LogColor("** " & Job.Tag & " Error: " & Job.ErrorMessage, Colors.Red) ' Mod by CHV - 211023
|
||||
'ToastMessageShow("Error: " & Job.ErrorMessage, True)
|
||||
Else
|
||||
LogColor("Esto es totalRegistros: " & totalRegistros, Colors.Red)
|
||||
successfulRequests = successfulRequests + 1
|
||||
totalRegistros = totalRegistros - 1
|
||||
Log("Esto es successfulRequests: " & successfulRequests)
|
||||
LogColor("JobDone: '" & reqManager.HandleJob(Job).tag & "' - Registros: " & reqManager.HandleJob(Job).Rows.Size, Colors.Green) 'Mod por CHV - 211023
|
||||
If Job.JobName = "DBRequest" Then
|
||||
Dim result As DBResult = reqManager.HandleJob(Job)
|
||||
@@ -1320,19 +1411,20 @@ Sub JobDone(Job As HttpJob)
|
||||
Dim HVD_PLACA As String = records(result.Columns.Get("HVD_PLACA"))
|
||||
Dim bcajas As String = records(result.Columns.Get("HVD_BCAJAS"))
|
||||
Dim cantc As String = records(result.Columns.Get("HVD_CANTC"))
|
||||
Dim HVD_RUTA As String = records(result.Columns.Get("HVD_RUTA"))
|
||||
' Log(" ++ insert into HIST_VENTAS: "&HVD_CLIENTE&","&HVD_PRONOMBRE&","&HVD_CANT)
|
||||
consecutivo = consecutivo +1
|
||||
If l_ruta.Text = "0" Then 'Si no hay ruta cargada, guardamos todos los clientes
|
||||
Log("No hay ruta, guardamos todos")
|
||||
Starter.skmt.ExecNonQuery2("INSERT INTO HIST_VENTAS(HVD_CLIENTE, HVD_PRONOMBRE, HVD_CANT,HVD_COSTO_TOT, HVD_FECHA, HVD_CODPROMO, HVD_PROID,HVD_NUM_TICKET, HVD_NUM_REGISTRO, HVD_RECHAZO, HVD_ESTATUS, HVD_PARCIAL, PLACA,BCAJAS,CANTC,CONSECUTIVO,BCAJAS_OR,CANTC_OR) VALUES (?,?,?,?,?,?,?,?,?,?,0,0,?,?,?,?,?,?)", Array As Object (HVD_CLIENTE,HVD_PRONOMBRE,HVD_CANT,HVD_COSTO_TOT,HVD_FECHA, HVD_CODPROMO, HVD_PROID,HVD_NUM_TICKET, HVD_NUM_REGISTRO, HVD_RECHAZO, HVD_PLACA,bcajas,cantc,consecutivo,bcajas,cantc))
|
||||
Starter.skmt.ExecNonQuery2("INSERT INTO HIST_VENTAS(HVD_CLIENTE, HVD_PRONOMBRE, HVD_CANT,HVD_COSTO_TOT, HVD_FECHA, HVD_CODPROMO, HVD_PROID,HVD_NUM_TICKET, HVD_NUM_REGISTRO, HVD_RECHAZO, HVD_ESTATUS, HVD_PARCIAL, PLACA,BCAJAS,CANTC,CONSECUTIVO,BCAJAS_OR,CANTC_OR, HVD_RUTA) VALUES (?,?,?,?,?,?,?,?,?,?,0,0,?,?,?,?,?,?, ?)", Array As Object (HVD_CLIENTE,HVD_PRONOMBRE,HVD_CANT,HVD_COSTO_TOT,HVD_FECHA, HVD_CODPROMO, HVD_PROID,HVD_NUM_TICKET, HVD_NUM_REGISTRO, HVD_RECHAZO, HVD_PLACA,bcajas,cantc,consecutivo,bcajas,cantc, HVD_RUTA))
|
||||
Starter.skmt.ExecNonQuery2("INSERT INTO HIST_VENTAS2(HVD_CLIENTE,HVD_PRONOMBRE,HVD_CANT,HVD_COSTO_TOT, HVD_FECHA, HVD_CODPROMO, HVD_PROID,HVD_NUM_TICKET, HVD_NUM_REGISTRO, HVD_RECHAZO, HVD_ESTATUS, HVD_PARCIAL) VALUES (?,?,?,?,?,?,?,?,?,?,0,0)", Array As Object (HVD_CLIENTE,HVD_PRONOMBRE,HVD_CANT,HVD_COSTO_TOT,HVD_FECHA, HVD_CODPROMO, HVD_PROID,HVD_NUM_TICKET, HVD_NUM_REGISTRO, HVD_RECHAZO))
|
||||
Else 'Si ya hay ruta cargada, solo guardamos los clientes nuevos.
|
||||
' Log("Hay ruta, guardamos los nuevos")
|
||||
Private tc As Cursor = Starter.skmt.ExecQuery($"select HVD_CLIENTE from HIST_VENTAS where HVD_CLIENTE = '${HVD_CLIENTE}' and HVD_PROID = '${HVD_PROID}'"$)
|
||||
If tc.RowCount = 0 Then
|
||||
Log($"Guardamos ${HVD_CLIENTE}"$)
|
||||
Starter.skmt.ExecNonQuery2("INSERT INTO HIST_VENTAS(HVD_CLIENTE,HVD_PRONOMBRE,HVD_CANT,HVD_COSTO_TOT, HVD_FECHA, HVD_CODPROMO, HVD_PROID,HVD_NUM_TICKET, HVD_NUM_REGISTRO, HVD_RECHAZO, HVD_ESTATUS, HVD_PARCIAL, PLACA,BCAJAS,CANTC,CONSECUTIVO,BCAJAS_OR,CANTC_OR) VALUES (?,?,?,?,?,?,?,?,?,?,0,0,?,?,?,?,?,?)", Array As Object (HVD_CLIENTE,HVD_PRONOMBRE,HVD_CANT,HVD_COSTO_TOT,HVD_FECHA, HVD_CODPROMO, HVD_PROID,HVD_NUM_TICKET, HVD_NUM_REGISTRO, HVD_RECHAZO, HVD_PLACA,bcajas,cantc,consecutivo,bcajas,cantc))
|
||||
Starter.skmt.ExecNonQuery2("INSERT INTO HIST_VENTAS2(HVD_CLIENTE,HVD_PRONOMBRE,HVD_CANT,HVD_COSTO_TOT, HVD_FECHA, HVD_CODPROMO, HVD_PROID,HVD_NUM_TICKET, HVD_NUM_REGISTRO, HVD_RECHAZO, HVD_ESTATUS, HVD_PARCIAL) VALUES (?,?,?,?,?,?,?,?,?,?,0,0)", Array As Object (HVD_CLIENTE,HVD_PRONOMBRE,HVD_CANT,HVD_COSTO_TOT,HVD_FECHA, HVD_CODPROMO, HVD_PROID,HVD_NUM_TICKET, HVD_NUM_REGISTRO, HVD_RECHAZO))
|
||||
Starter.skmt.ExecNonQuery2("INSERT INTO HIST_VENTAS(HVD_CLIENTE,HVD_PRONOMBRE,HVD_CANT,HVD_COSTO_TOT, HVD_FECHA, HVD_CODPROMO, HVD_PROID,HVD_NUM_TICKET, HVD_NUM_REGISTRO, HVD_RECHAZO, HVD_ESTATUS, HVD_PARCIAL, PLACA,BCAJAS,CANTC,CONSECUTIVO,BCAJAS_OR,CANTC_OR, HVD_RUTA) VALUES (?,?,?,?,?,?,?,?,?,?,0,0,?,?,?,?,?,?, ?)", Array As Object (HVD_CLIENTE,HVD_PRONOMBRE,HVD_CANT,HVD_COSTO_TOT,HVD_FECHA, HVD_CODPROMO, HVD_PROID,HVD_NUM_TICKET, HVD_NUM_REGISTRO, HVD_RECHAZO, HVD_PLACA,bcajas,cantc,consecutivo,bcajas,cantc, HVD_RUTA))
|
||||
Starter.skmt.ExecNonQuery2("INSERT INTO HIST_VENTAS2(HVD_CLIENTE,HVD_PRONOMBRE,HVD_CANT,HVD_COSTO_TOT, HVD_FECHA, HVD_CODPROMO, HVD_PROID,HVD_NUM_TICKET, HVD_NUM_REGISTRO, HVD_RECHAZO, HVD_ESTATUS, HVD_PARCIAL) VALUES (?,?,?,?,?,?,?,?,?,?,0,0)", Array As Object (HVD_CLIENTE,HVD_PRONOMBRE,HVD_CANT,HVD_COSTO_TOT,HVD_FECHA, HVD_CODPROMO, HVD_PROID,HVD_NUM_TICKET, HVD_NUM_REGISTRO, HVD_RECHAZO))
|
||||
End If
|
||||
End If
|
||||
Next
|
||||
@@ -1543,6 +1635,7 @@ Sub JobDone(Job As HttpJob)
|
||||
End If
|
||||
Job.Release
|
||||
End If
|
||||
Job.Release
|
||||
If reqs.Size = 0 Then
|
||||
|
||||
|
||||
@@ -1561,6 +1654,35 @@ Sub JobDone(Job As HttpJob)
|
||||
' Log(reqs.size)
|
||||
' Log("Terminamos lo descarga de ruta!")
|
||||
End If
|
||||
Log("---------------------------------------------------")
|
||||
Log(totalRegistrosTotales)
|
||||
Log(successfulRequests)
|
||||
Log(todosRequest)
|
||||
Log(NumberFormat2(((todosRequest/ totalRegistrosTotales ) * 100),1,0,0,False))
|
||||
'Aqui voy a cambiar el porcentaje de mi barra de avance.
|
||||
If totalRegistrosTotales > 0 Then
|
||||
pbEnvioInfo.Progress = NumberFormat2(((todosRequest/ totalRegistrosTotales ) * 100),1,0,0,False)
|
||||
|
||||
If pbEnvioInfo.Progress >= 100 Then
|
||||
lEnviaInfo.Text = "Informacion Enviada "& CRLF &"%100"
|
||||
Else
|
||||
lEnviaInfo.Text = "Enviando Informacion: %" & pbEnvioInfo.Progress
|
||||
End If
|
||||
End If
|
||||
Log("---------------------------------------------------")
|
||||
Log(todosRequest >= totalRegistrosTotales)
|
||||
|
||||
If todosRequest < totalRegistrosTotales Then
|
||||
|
||||
Else
|
||||
bEnvioInfo.Enabled = True
|
||||
End If
|
||||
|
||||
End Sub
|
||||
|
||||
Private Sub bEnvioInfo_Click
|
||||
bEnvioInfo.Enabled = False
|
||||
pEnvioInfo.Visible = False
|
||||
End Sub
|
||||
|
||||
Private Sub B4XPage_CloseRequest As ResumableSub
|
||||
@@ -1570,6 +1692,8 @@ Private Sub B4XPage_CloseRequest As ResumableSub
|
||||
B_REGRESA_Click
|
||||
Else If p_prod.Visible Then
|
||||
p_prod.Visible = False
|
||||
Else If pEnvioInfo.Visible Then
|
||||
Return False
|
||||
Else
|
||||
B4XPages.ShowPage("Login")
|
||||
End If
|
||||
@@ -1999,4 +2123,8 @@ Private Sub b_venta_emp_Click
|
||||
Starter.skmt.ExecNonQuery("delete from CUENTAA")
|
||||
Starter.skmt.ExecNonQuery2("INSERT INTO CUENTAA VALUES (?)", Array As Object("63403"))
|
||||
B4XPages.ShowPage("Cliente")
|
||||
End Sub
|
||||
|
||||
Private Sub pEnvioInfo_Click
|
||||
|
||||
End Sub
|
||||
Reference in New Issue
Block a user