mirror of
https://github.com/KeymonSoft/Kelloggs_v4.git
synced 2026-04-22 04:10:07 +00:00
- VERSION 5.10.01
- Se agregó el mandaPendientes en el boton de "Guardar" de "Cliente"
This commit is contained in:
@@ -219,6 +219,7 @@ Sub Class_Globals
|
||||
Dim validaCuantos As TCuantos
|
||||
Dim ts As C_TrendSpending
|
||||
Dim linker As C_deviceLinker
|
||||
Dim kb As IME
|
||||
End Sub
|
||||
|
||||
'You can add more parameters here.
|
||||
@@ -342,10 +343,20 @@ Sub B4XPage_Appear
|
||||
reqManagerW.Initialize
|
||||
Log($"DBREQSERVER = ${Starter.DBReqServer}"$)
|
||||
|
||||
' c = Starter.skmt.ExecQuery($"select * from CAT_ALMACEN"$)
|
||||
' If c.RowCount > 0 Then
|
||||
' c.Position = 0
|
||||
' Dim cmd As DBCommand
|
||||
' cmd.Initialize
|
||||
' cmd.Name = "select_version_KELL"
|
||||
' cmd.Parameters = Array As Object(c.GetString("ID_ALMACEN"), Subs.traeRuta)
|
||||
' reqManager.ExecuteQuery(cmd , 0, "version")
|
||||
' End If
|
||||
|
||||
Dim cmd As DBCommand
|
||||
cmd.Initialize
|
||||
cmd.Name = "select_version_KELL"
|
||||
reqManager.ExecuteQuery(cmd , 0, "version")
|
||||
cmd.Name = "select_conexion"
|
||||
reqManager.ExecuteQuery(cmd , 0, "conexion")
|
||||
|
||||
' If Not(btAdmin.IsEnabled) Then btAdmin.Enable 'Si no esta prendido el BT, lo prendemos.
|
||||
|
||||
@@ -541,6 +552,7 @@ Sub B4XPage_Appear
|
||||
trabajar.Enabled = False
|
||||
NUEVO.Enabled = False
|
||||
B_PROXIMA.Enabled = False
|
||||
LogColor("deshabilitamos", Colors.magenta)
|
||||
Else
|
||||
Private cd1 As ColorDrawable
|
||||
cd1.Initialize(Colors.RGB(213, 0, 0), 5dip)
|
||||
@@ -550,13 +562,37 @@ Sub B4XPage_Appear
|
||||
NUEVO.Enabled = True
|
||||
B_PROXIMA.Enabled = True
|
||||
End If
|
||||
|
||||
'############# Deshabilitamos botones para validacion de ruta y vinculo #########
|
||||
c = Starter.skmt.ExecQuery("select count(*) as cuantos from CAT_VARIABLES WHERE CAT_VA_DESCRIPCION = 'LIGADO' and CAT_VA_VALOR = 1")
|
||||
c.Position = 0
|
||||
If c.GetInt("cuantos") = 0 Then
|
||||
trabajar.Enabled = False
|
||||
Resumen.Enabled = False
|
||||
BUSCA.Enabled = False
|
||||
Btn_CheckList.Enabled = False
|
||||
NUEVO.Enabled = False
|
||||
B_PROXIMA.Enabled = False
|
||||
LogColor("deshabilitamos", Colors.magenta)
|
||||
Else
|
||||
trabajar.Enabled = True
|
||||
Resumen.Enabled = True
|
||||
BUSCA.Enabled = True
|
||||
Btn_CheckList.Enabled = True
|
||||
NUEVO.Enabled = True
|
||||
B_PROXIMA.Enabled = True
|
||||
LogColor("deshabilitamos", Colors.magenta)
|
||||
End If
|
||||
|
||||
'################################################################################
|
||||
|
||||
kh.traeMaxClientesNuevos
|
||||
Private n As Cursor = Starter.skmt.ExecQuery("select count(*) as cuantos from kmt_info where cat_cl_codigo like 'N%'")
|
||||
n.Position = 0
|
||||
Log(n.GetString("cuantos"))
|
||||
If n.GetString("cuantos") >= kh.traeMaxClientesNuevos Then NUEVO.Enabled = False
|
||||
LogColor(">>>>>>>> REVISAMOS GUID <<<<<<<<<", Colors.red)
|
||||
Subs.generaGUID_EnExterno
|
||||
' LogColor(">>>>>>>> REVISAMOS GUID <<<<<<<<<", Colors.red)
|
||||
' Subs.generaGUID_EnExterno
|
||||
End Sub
|
||||
|
||||
Sub trabajar_Click
|
||||
@@ -750,6 +786,7 @@ Sub cargar_Click
|
||||
Starter.skmt.ExecNonQuery("delete from cat_gunaprod")
|
||||
Starter.skmt.ExecNonQuery("delete from cat_gunaprod2")
|
||||
Starter.skmt.ExecNonQuery("DELETE FROM CAT_GUNAPROD5")
|
||||
Starter.skmt.ExecNonQuery("DELETE FROM CAT_INVENTARIO")
|
||||
Starter.skmt.ExecNonQuery("DELETE FROM HIST_ENCUESTA2")
|
||||
Starter.skmt.ExecNonQuery("delete from CAT_DETALLES_PAQ")
|
||||
Starter.skmt.ExecNonQuery("delete from telefonos")
|
||||
@@ -1139,7 +1176,7 @@ Sub JobDone(Job As HttpJob)
|
||||
reqManager.trackNext(Job)
|
||||
If Not(Job.Success) Then
|
||||
LogColor("Error: " & Job.tag & " : " & Subs.parseHTTPError(Job.ErrorMessage), Colors.red)
|
||||
If Job.Tag = "version" Then
|
||||
If Job.Tag = "conexion" Then
|
||||
Starter.errorConnDBReq = True
|
||||
connecta.TextColor = Colors.red
|
||||
ToastMessageShow("Error al conectarse con Keymon, revise su conexión y reintente!", True)
|
||||
@@ -1383,6 +1420,7 @@ Sub JobDone(Job As HttpJob)
|
||||
'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))
|
||||
Starter.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,CAT_GP_DEV,CAT_GP_CODPROMO,CAT_GP_TIPOPROD2,CAT_GP_PROMOCION) VALUES (?,?,?,?,?,?,?,?,?,?,?,?,?,?,0,?,?)", 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,CAT_GP_DEV, CAT_GP_TIPOPROD2,CAT_GP_PROMOCION))
|
||||
Starter.skmt.ExecNonQuery2("INSERT INTO CAT_INVENTARIO(CI_IDPROD,CI_INVENTARIO) VALUES (?,?)", Array As Object (CAT_GP_ID,CAT_GP_ALMACEN))
|
||||
Next
|
||||
Starter.skmt.TransactionSuccessful
|
||||
Starter.skmt.EndTransaction
|
||||
@@ -1761,14 +1799,33 @@ Sub JobDone(Job As HttpJob)
|
||||
Next
|
||||
End If
|
||||
|
||||
If RESULT.Tag = "ins_pedido" Then 'query tag
|
||||
If RESULT.Tag.As(String).StartsWith("ins_pedido_") Then 'query tag
|
||||
For Each records() As Object In RESULT.Rows
|
||||
Private temp() As String = Regex.Split("_", RESULT.Tag)
|
||||
Log(temp(2))
|
||||
If temp.Length > 1 Then
|
||||
Starter.skmt.ExecNonQuery($"update pedido set pe_enviado = 1 where pe_cliente = '${temp(2)}'"$)
|
||||
Log($"update pedido set pe_enviado = 1 where pe_cliente = '${temp(2)}'"$)
|
||||
End If
|
||||
PB2.Progress = PB2.Progress + 5
|
||||
S_CP.Text = "SUBIENDO"
|
||||
Next
|
||||
PB2.Progress = 100
|
||||
S_CP.Text = "VALIDANDO"
|
||||
End If
|
||||
|
||||
If RESULT.Tag.As(String).StartsWith("ins_pedidos_") Then 'query tag
|
||||
For Each records() As Object In RESULT.Rows
|
||||
Private temp() As String = Regex.Split("_", RESULT.Tag)
|
||||
' Log(temp(2))
|
||||
If temp.Length > 1 Then
|
||||
Starter.skmt.ExecNonQuery($"update pedido_cliente set pc_enviado = 1 where pc_cliente = '${temp(2)}'"$)
|
||||
Log($"update pedido_cliente set pc_enviado = 1 where pc_cliente = '${temp(2)}'"$)
|
||||
End If
|
||||
Next
|
||||
PB2.Progress = 100
|
||||
S_CP.Text = "VALIDANDO"
|
||||
End If
|
||||
|
||||
If RESULT.Tag = "version" Then 'query tag
|
||||
connecta.TextColor = Colors.White
|
||||
@@ -1782,9 +1839,18 @@ Sub JobDone(Job As HttpJob)
|
||||
Next
|
||||
If CAT_RU_VERSION_REQUERIDA = 0 Or Subs.comparaVersiones(CAT_RU_VERSION_REQUERIDA, Application.VersionName) = 0 Then
|
||||
connecta3
|
||||
trabajar.Enabled = True
|
||||
Resumen.Enabled = True
|
||||
BUSCA.Enabled = True
|
||||
Btn_CheckList.Enabled = True
|
||||
Else
|
||||
Msgbox2("Es necesario actualizar la versión de la aplicación.", "VERSION INCORRECTA","Aceptar", "", "",Null) 'ignore
|
||||
trabajar.Enabled = False
|
||||
Resumen.Enabled = False
|
||||
BUSCA.Enabled = False
|
||||
Btn_CheckList.Enabled = False
|
||||
' ExitApplication
|
||||
LogColor("deshabilitamos", Colors.magenta)
|
||||
End If
|
||||
End If
|
||||
|
||||
@@ -2217,6 +2283,8 @@ Sub connecta_Click
|
||||
Else
|
||||
connecta.TextColor = Colors.White
|
||||
End If
|
||||
|
||||
kb.HideKeyboard
|
||||
' Log("################# PERMISOS BT: " & Starter.rp.Check("android.permission.BLUETOOTH_CONNECT"))
|
||||
' Log("Permisos BT: " & Starter.rp.Check("android.permission.BLUETOOTH_CONNECT"))
|
||||
' Log("REVISAMOS PERMISOS DE BT")
|
||||
@@ -2255,8 +2323,8 @@ Sub connecta_Click
|
||||
conn = "1"
|
||||
|
||||
reqManager.trackInit
|
||||
|
||||
linker.VerifyAndLinkDevice(Subs.traeAlmacen, Subs.traeRuta)
|
||||
|
||||
linker.verifyDevice(Subs.traeAlmacen, e_ruta.text)
|
||||
|
||||
' Else
|
||||
' Msgbox("LA RUTA NO ES CORRECTA","") 'ignore
|
||||
@@ -2331,6 +2399,7 @@ Sub e_ruta_EnterPressed
|
||||
Starter.skmt.ExecNonQuery("delete from clie_act")
|
||||
Starter.skmt.ExecNonQuery("delete from kmt_info")
|
||||
Starter.skmt.ExecNonQuery("delete from cat_gunaprod")
|
||||
Starter.skmt.ExecNonQuery("delete from cat_inventario")
|
||||
Starter.skmt.ExecNonQuery("delete from cat_rmi")
|
||||
Starter.skmt.ExecNonQuery("delete from cat_gunaprod2")
|
||||
Starter.skmt.ExecNonQuery("delete from CAT_DETALLES_PAQ")
|
||||
@@ -3055,9 +3124,9 @@ Sub SUBIR_INFO_PEDIDO
|
||||
If abordo1 = "" Then abordo1 = "0"
|
||||
Log($"${monto1}, ${abordo1}"$)
|
||||
monto1 = monto1 - abordo1
|
||||
|
||||
|
||||
reqManager.trackInit
|
||||
|
||||
|
||||
Dim cmd As DBCommand
|
||||
cmd.Initialize
|
||||
cmd.Name ="insert_drop2_KELL"
|
||||
@@ -3135,9 +3204,11 @@ Sub SUBIR_INFO_PEDIDO
|
||||
Next
|
||||
End If
|
||||
c.Close
|
||||
|
||||
t3.Initialize("T3", 500) ' 1000 = 1 second
|
||||
t3.Enabled = True
|
||||
Wait For t3_tick
|
||||
|
||||
'clientes nuevos
|
||||
c = Starter.skmt.ExecQuery2("SELECT CAT_CL_CODIGO, CAT_CL_NOMBRE FROM kmt_info where CAT_CL_ATIENDE1 = ?", Array As String("new"))
|
||||
S_CP.Text = "Envio C/Nuevos"
|
||||
@@ -3162,97 +3233,21 @@ Sub SUBIR_INFO_PEDIDO
|
||||
PB2.Progress = 1
|
||||
|
||||
' PEDIO_CLIENTE
|
||||
c = Starter.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 ")
|
||||
enviaPedidoCliente("Todos")
|
||||
|
||||
d = Starter.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_KELL"
|
||||
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") )
|
||||
reqManager.ExecuteCommand(cmd , "ins_pedidos")
|
||||
PB2.Progress = PB2.Progress + 1
|
||||
contador_env = contador_env + 1
|
||||
Next
|
||||
c.Close
|
||||
End If
|
||||
d.Position=0
|
||||
cuantos_pedidosc = D.GetString("CUANTOS_PEDIDOSC")
|
||||
PB2.Progress = 100
|
||||
d.Close
|
||||
|
||||
ENVIADA = 0
|
||||
PORENVIAR = 0
|
||||
|
||||
' Msgbox(ENVIADA & " " & PORENVIAR, "A") 'ignore
|
||||
c = Starter.skmt.ExecQuery2("SELECT COUNT(*) as CANTIDAD FROM HIST_ENVIOS WHERE HE_TIPO = ?",Array As String("ABORDO") )
|
||||
c.Position = 0
|
||||
If c.GetString("CANTIDAD") > 0 Then
|
||||
Log($"pe_cedis_0"$)
|
||||
Starter.skmt.ExecNonQuery2("update PEDIDO set PE_CEDIS = ? where PE_CLIENTE =? AND PE_FOLIO IS NULL ", Array As Object("RECARGA", "0"))
|
||||
End If
|
||||
Starter.skmt.ExecNonQuery("UPDATE PEDIDO SET PE_FOLIO = rowid where PE_FOLIO = 0 or PE_FOLIO = 1")
|
||||
If PERFIL = "V-ESPECIAL" Then
|
||||
Log($"pe_cedis_1"$)
|
||||
c = Starter.skmt.ExecQuery("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, PE_TIPO FROM PEDIDO ORDER BY PE_CLIENTE")
|
||||
d = Starter.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_esp_KELL"
|
||||
Log($"pe_cedis_2"$)
|
||||
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"), c.GetString("PE_TIPO"),NUMERO_PEDIDO )
|
||||
reqManager.ExecuteCommand(cmd , "ins_pedido")
|
||||
contador_env = contador_env + 1
|
||||
Next
|
||||
c.Close
|
||||
End If
|
||||
Else
|
||||
Log($"pe_cedis_3"$)
|
||||
c = Starter.skmt.ExecQuery("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, PE_TIPO FROM PEDIDO")
|
||||
d = Starter.skmt.ExecQuery("SELECT COUNT(*) as CUANTOS_PEDIDO FROM PEDIDO")
|
||||
TIEMPO = 0
|
||||
t3.Initialize("T3", 500) ' 1000 = 1 second
|
||||
t3.Enabled = True
|
||||
Wait For t3_tick
|
||||
S_CP.Text = "Envio de Pedidos"
|
||||
PB2.Progress = 1
|
||||
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_KELL"
|
||||
If logger Then Log($"pe_cedis_4"$)
|
||||
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"), c.GetString("PE_TIPO"))
|
||||
reqManager.ExecuteCommand(cmd , "ins_pedido")
|
||||
contador_env = contador_env + 1
|
||||
TIEMPO = TIEMPO + 1
|
||||
PB2.Progress = PB2.Progress + 1
|
||||
If TIEMPO > 20 Then
|
||||
' Msgbox("M","A") 'ignore
|
||||
If L_P_2.Text = "Envio de Pedidos" Then
|
||||
L_P_2.Text = "Envio de Pedidos --"
|
||||
else if L_P_2.Text = "Envio de Pedidos --" Then
|
||||
L_P_2.Text = "Envio de Pedidos \"
|
||||
else if L_P_2.Text = "Envio de Pedidos \" Then
|
||||
L_P_2.Text = "Envio de Pedidos |"
|
||||
else if L_P_2.Text = "Envio de Pedidos |" Then
|
||||
L_P_2.Text = "Envio de Pedidos /"
|
||||
else if L_P_2.Text = "Envio de Pedidos /" Then
|
||||
L_P_2.Text = "Envio de Pedidos --"
|
||||
End If
|
||||
t3.Initialize("T3", 2000) ' 1000 = 1 second
|
||||
t3.Enabled = True
|
||||
Wait For t3_tick
|
||||
TIEMPO = 0
|
||||
End If
|
||||
Next
|
||||
c.Close
|
||||
End If
|
||||
End If
|
||||
' PEDIDO
|
||||
enviaPedido("Todos")
|
||||
|
||||
d = Starter.skmt.ExecQuery("SELECT COUNT(*) as CUANTOS_PEDIDO FROM PEDIDO")
|
||||
d.Position=0
|
||||
cuantos_pedido = D.GetString("CUANTOS_PEDIDO")
|
||||
PB2.Progress = 100
|
||||
@@ -3348,6 +3343,108 @@ Sub SUBIR_INFO_PEDIDO
|
||||
DateTime.TimeFormat = "HH:mm:ss"
|
||||
End Sub
|
||||
|
||||
'Envio de la tabla pedido
|
||||
Sub enviaPedido(filtro As String)
|
||||
Log($"enviaPedido(${filtro})"$)
|
||||
Private condicion As String = ""
|
||||
If filtro <> "Todos" Then condicion = "where PE_ENVIADO = 0"
|
||||
c = Starter.skmt.ExecQuery2("SELECT COUNT(*) as CANTIDAD FROM HIST_ENVIOS WHERE HE_TIPO = ?",Array As String("ABORDO") )
|
||||
c.Position = 0
|
||||
If c.GetString("CANTIDAD") > 0 Then
|
||||
Log($"pe_cedis_0"$)
|
||||
Starter.skmt.ExecNonQuery2("update PEDIDO set PE_CEDIS = ? where PE_CLIENTE =? AND PE_FOLIO IS NULL ", Array As Object("RECARGA", "0"))
|
||||
End If
|
||||
Starter.skmt.ExecNonQuery("UPDATE PEDIDO SET PE_FOLIO = rowid where PE_FOLIO = 0 or PE_FOLIO = 1")
|
||||
If PERFIL = "V-ESPECIAL" Then
|
||||
Log($"pe_cedis_1"$)
|
||||
c = Starter.skmt.ExecQuery($"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, PE_TIPO FROM PEDIDO ${condicion} ORDER BY PE_CLIENTE"$)
|
||||
Log($"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, PE_TIPO FROM PEDIDO ${condicion} ORDER BY PE_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_pedido_esp_KELL"
|
||||
Log($"pe_cedis_2"$)
|
||||
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"), c.GetString("PE_TIPO"),NUMERO_PEDIDO )
|
||||
reqManager.ExecuteCommand(cmd , $"ins_pedido_${C.GetString("PE_CLIENTE")}"$)
|
||||
contador_env = contador_env + 1
|
||||
Next
|
||||
c.Close
|
||||
End If
|
||||
Else
|
||||
' Log($"pe_cedis_3"$)
|
||||
Private cPed As Cursor = Starter.skmt.ExecQuery($"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, PE_TIPO FROM PEDIDO ${condicion}"$)
|
||||
Log($"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, PE_TIPO FROM PEDIDO ${condicion}"$)
|
||||
TIEMPO = 0
|
||||
t3.Initialize("T3", 500) ' 1000 = 1 second
|
||||
t3.Enabled = True
|
||||
Wait For t3_tick
|
||||
S_CP.Text = "Envio de Pedidos"
|
||||
PB2.Progress = 1
|
||||
Log("pedido:" & cPed.RowCount)
|
||||
If cPed.RowCount>0 Then
|
||||
For i = 0 To cPed.RowCount - 1
|
||||
cPed.Position = i
|
||||
Dim cmd As DBCommand
|
||||
cmd.Initialize
|
||||
cmd.Name = "insert_pedido_KELL"
|
||||
If logger Then Log($"pe_cedis_4"$)
|
||||
cmd.Parameters = Array As Object(cPed.GetString("PE_CEDIS"),ALMACEN,cPed.GetString("PE_COSTO_TOT"),cPed.GetString("PE_COSTOU"),cPed.GetString("PE_CANT"),cPed.GetString("PE_PRONOMBRE"),cPed.GetString("PE_PROID"),cPed.GetString("PE_CLIENTE"),cPed.GetString("PE_FECHA"),cPed.GetString("PE_USUARIO"),cPed.GetString("PE_RUTA"), cPed.GetString("PE_COSTO_SIN"),cPed.GetString("PE_DESC"),cPed.GetString("PE_FOLIO"), cPed.GetString("PE_TIPO"))
|
||||
reqManager.ExecuteCommand(cmd , $"ins_pedido_${cPed.GetString("PE_CLIENTE")}"$)
|
||||
contador_env = contador_env + 1
|
||||
TIEMPO = TIEMPO + 1
|
||||
PB2.Progress = PB2.Progress + 1
|
||||
If TIEMPO > 20 Then
|
||||
' Msgbox("M","A") 'ignore
|
||||
If L_P_2.Text = "Envio de Pedidos" Then
|
||||
L_P_2.Text = "Envio de Pedidos --"
|
||||
else if L_P_2.Text = "Envio de Pedidos --" Then
|
||||
L_P_2.Text = "Envio de Pedidos \"
|
||||
else if L_P_2.Text = "Envio de Pedidos \" Then
|
||||
L_P_2.Text = "Envio de Pedidos |"
|
||||
else if L_P_2.Text = "Envio de Pedidos |" Then
|
||||
L_P_2.Text = "Envio de Pedidos /"
|
||||
else if L_P_2.Text = "Envio de Pedidos /" Then
|
||||
L_P_2.Text = "Envio de Pedidos --"
|
||||
End If
|
||||
t3.Initialize("T3", 2000) ' 1000 = 1 second
|
||||
t3.Enabled = True
|
||||
Wait For t3_tick
|
||||
TIEMPO = 0
|
||||
End If
|
||||
Next
|
||||
cPed.Close
|
||||
End If
|
||||
End If
|
||||
End Sub
|
||||
|
||||
'Envio de la tabla pedido_cliente
|
||||
Sub enviaPedidoCliente(filtro As String)
|
||||
' PEDIO_CLIENTE
|
||||
Log($"enviaPedidoCliente(${filtro})"$)
|
||||
Private condicion As String = ""
|
||||
If filtro <> "Todos" Then condicion = "where PC_ENVIADO = 0"
|
||||
Private cx As Cursor = Starter.skmt.ExecQuery($"SELECT PC_CLIENTE, PC_FECHA, PC_USER, PC_NOART, PC_MONTO,PC_LON, PC_LAT, PC_COSTO_SIN, PC_RUTA, PC_ALMACEN, PC_ENVIADO FROM PEDIDO_CLIENTE ${condicion}"$)
|
||||
Log($"SELECT PC_CLIENTE, PC_FECHA, PC_USER, PC_NOART, PC_MONTO,PC_LON, PC_LAT, PC_COSTO_SIN, PC_RUTA, PC_ALMACEN, PC_ENVIADO FROM PEDIDO_CLIENTE ${condicion}"$)
|
||||
Log("pedido_cliente: " & cx.RowCount)
|
||||
If cx.RowCount > 0 Then
|
||||
For i = 0 To cx.RowCount - 1
|
||||
cx.Position = i
|
||||
' Log(cx.GetInt("PC_ENVIADO"))
|
||||
' Log(cx.GetString("PC_ENVIADO"))
|
||||
Dim cmd As DBCommand
|
||||
cmd.Initialize
|
||||
cmd.Name = "insert_pedidos_KELL"
|
||||
cmd.Parameters = Array As Object(cx.GetString("PC_CLIENTE"),cx.GetString("PC_FECHA"),cx.GetString("PC_USER"),cx.GetString("PC_NOART"),cx.GetString("PC_MONTO"),cx.GetString("PC_LON"),cx.GetString("PC_LAT"),ALMACEN,l_ruta.text,cx.GetString("PC_COSTO_SIN") )
|
||||
reqManager.ExecuteCommand(cmd , $"ins_pedidos_${cx.GetString("PC_CLIENTE")}"$)
|
||||
PB2.Progress = PB2.Progress + 1
|
||||
contador_env = contador_env + 1
|
||||
Next
|
||||
cx.Close
|
||||
End If
|
||||
End Sub
|
||||
|
||||
Sub SUBIR_INFO_BOLETA
|
||||
P1.Width = GetDeviceLayoutValues.Width
|
||||
P1.Height = GetDeviceLayoutValues.Height
|
||||
@@ -3784,6 +3881,7 @@ Private Sub b_noVisita_Click
|
||||
b_motivoNoVisita.Background = cd1
|
||||
B_MAPA_RUTA.Enabled = False
|
||||
trabajar.Enabled = False
|
||||
LogColor("deshabilitamos", Colors.magenta)
|
||||
NUEVO.Enabled = False
|
||||
B_PROXIMA.Enabled = False
|
||||
Else If result = DialogResponse.CANCEL Then
|
||||
@@ -3910,22 +4008,31 @@ Sub Linker_Response(Status As String) ' << AÑADE ESTE SUB [New Query]
|
||||
Log("El servidor no proporcionó un estado de verificación válido. Contacte a soporte.")
|
||||
ToastMessageShow("El servidor no proporcionó un estado de verificación válido. Contacte a soporte.", True)
|
||||
Case "OK"
|
||||
Log("Dispositivo ligado y verificado exitosamente.")
|
||||
ToastMessageShow("Dispositivo verificado y ligado correctamente.", False)
|
||||
Log("########################################################")
|
||||
Log("Dispositivo vinculado y verificado exitosamente.")
|
||||
ToastMessageShow("Dispositivo verificado y vinculado correctamente.", False)
|
||||
' Aquí puedes añadir lógica adicional si la verificación es exitosa, por ejemplo, habilitar ciertos botones o continuar con el flujo normal.
|
||||
connecta2
|
||||
' Case "NO_REGISTRADO"
|
||||
' Log("Dispositivo NO registrado.")
|
||||
' ToastMessageShow("Dispositivo NO registrado.", False)
|
||||
Case "REGISTRO_NUEVO"
|
||||
Log("¡¡Registro nuevo!!")
|
||||
Case "REGISTRO_COMPLETO"
|
||||
Log("########################################################")
|
||||
Log("¡Registro completo!")
|
||||
ToastMessageShow("¡Registro completo!", False)
|
||||
connecta2
|
||||
ToastMessageShow("¡¡Registro nuevo!!", False)
|
||||
Case "SIN_REGISTRO"
|
||||
Log("########################################################")
|
||||
Log("Sin registro")
|
||||
ToastMessageShow("¡Dispositivo sin registro!", False)
|
||||
linker.linkDevice(Subs.traeAlmacen, e_ruta.text)
|
||||
Case "REGISTRANDO"
|
||||
Log("¡Registro en proceso!")
|
||||
ToastMessageShow("¡Registro en proceso!", True)
|
||||
Case "YA_REGISTRADO"
|
||||
Log("¡¡El dispositivo ya esta registrado con otra ruta!!")
|
||||
Log("########################################################")
|
||||
Log("¡El dispositivo ya esta registrado con otra ruta!")
|
||||
ToastMessageShow("¡¡El dispositivo ya esta registrado con otra ruta!!", True)
|
||||
Msgbox2("Ruta registrada en otro dispositivo", "RUTA INCORRECTA","Aceptar", "", "",Null) 'ignore
|
||||
Msgbox2("Esa ruta ya esta registrada en otro dispositivo", "RUTA INCORRECTA","Aceptar", "", "",Null) 'ignore
|
||||
Case Else ' Otros estados que tu servidor pueda devolver (ej. "UNAUTHORIZED", "PENDING_APPROVAL")
|
||||
Log("########################################################")
|
||||
Log($"Estado de verificación del dispositivo: ${Status}"$)
|
||||
ToastMessageShow($"Verificación del dispositivo: ${Status}"$, True)
|
||||
' Puedes decidir si bloquear la funcionalidad o mostrar un mensaje específico según el estado.
|
||||
|
||||
Reference in New Issue
Block a user