mirror of
https://github.com/KeymonSoft/Kelloggs_v4.git
synced 2026-04-20 19:49:12 +00:00
15/9/23 - Espacios y detalles sin importancia.
This commit is contained in:
@@ -226,7 +226,7 @@ Private Sub B4XPage_Created (Root1 As B4XView)
|
||||
RUTA1.Text = l_ruta.TEXT
|
||||
f.Close
|
||||
End If
|
||||
If Cuantos = 0 Then
|
||||
If Cuantos = 0 Then
|
||||
L_MONTOD.Text =0
|
||||
l_cuantosc.Text = 0
|
||||
l_cuantosn.Text = 0
|
||||
@@ -237,14 +237,14 @@ Private Sub B4XPage_Created (Root1 As B4XView)
|
||||
l_ctast.Text = d.GetString("TOTAL_VISITAR")
|
||||
' l_porvisitar.Text = e.GetString("POR_VISITAR")
|
||||
Else
|
||||
c=Starter.db.ExecQuery("select sum(pc_monto) as MONTO_DIA, count(pc_cliente) AS CLIENTES_DIA from pedido_cliente ")
|
||||
c=Starter.db.ExecQuery("select sum(pc_monto) as MONTO_DIA, count(pc_cliente) AS CLIENTES_DIA from pedido_cliente ")
|
||||
b=Starter.db.ExecQuery("select count(*) as CUANTOS from noventa")
|
||||
'where pc_fecha = ?", Array As String(fecha)
|
||||
C.Position=0
|
||||
b.Position=0
|
||||
L_MONTOD.Text = c.GetString("MONTO_DIA")
|
||||
l_cuantosc.Text = c.GetString("CLIENTES_DIA")
|
||||
l_cuantosn.Text = b.GetString("CUANTOS")
|
||||
l_cuantosn.Text = b.GetString("CUANTOS")
|
||||
drop = c.GetString("MONTO_DIA") / c.GetString("CLIENTES_DIA")
|
||||
l_drop.Text = Round2(drop,2)
|
||||
efectiva = c.GetString("CLIENTES_DIA") / e.GetString("POR_VISITAR")
|
||||
@@ -252,6 +252,13 @@ Private Sub B4XPage_Created (Root1 As B4XView)
|
||||
l_ctast.Text = d.GetString("TOTAL_VISITAR")
|
||||
'l_porvisitar.Text = e.GetString("POR_VISITAR")
|
||||
End If
|
||||
' Log("Permisos BT: " & rp.Check("android.permission.BLUETOOTH_CONNECT"))
|
||||
Log("XXXXXXXXXXXXXXXXXXXXXXXXX REVISAMOS PERMISOS DE BT")
|
||||
rp.CheckAndRequest("android.permission.BLUETOOTH_CONNECT")
|
||||
Wait For B4XPage_PermissionResult (Permission As String, Result As Boolean)
|
||||
If Result Then Log("Tenemos permisos de bluetooth.")
|
||||
Log("XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX")
|
||||
' Log("Check phone state: " & rp.Check(rp.PERMISSION_READ_PHONE_STATE))
|
||||
End Sub
|
||||
|
||||
'You can see the list of page related events in the B4XPagesManager object. The event name is B4XPage.
|
||||
@@ -261,8 +268,7 @@ Sub B4XPage_Appear
|
||||
reqManager.Initialize(Me, Starter.server)
|
||||
Starter.btAdmin.Initialize("btAdmin")
|
||||
Log("BTADMIN INICIALIZADO: "&Starter.btAdmin.IsEnabled)
|
||||
Starter.btAdmin.Enable
|
||||
If Not(Starter.btAdmin.IsEnabled) Then Starter.btAdmin.Enable
|
||||
If Not(Starter.btAdmin.IsEnabled) Then Starter.btAdmin.Enable 'Si no esta prendido el BT, lo prendemos.
|
||||
e_ruta.Enabled = True
|
||||
Starter.rutaV = l_ruta.Text
|
||||
c=Starter.db.ExecQuery2("select count(*) as CUANTOS from CAT_VARIABLES WHERE CAT_VA_DESCRIPCION = ?", Array As String ("SERVER"))
|
||||
@@ -290,7 +296,7 @@ Sub B4XPage_Appear
|
||||
c.Close
|
||||
End If
|
||||
c.Close
|
||||
c=Starter.db.ExecQuery2("select count(*) as CUANTOS from kmt_info where CAT_CL_DIAS_VISITA = (SELECT CAT_VA_VALOR FROM CAT_VARIABLES WHERE CAT_VA_DESCRIPCION = ?) and gestion = 0 and cat_cl_codigo <> 0 AND CAT_CL_TIPO_RUTA IN (?,?) ORDER BY CAT_CL_NUM_SERIEFISICO", Array As String("DIA_VISITA",SEMANA, "SEMANAL"))
|
||||
c=Starter.db.ExecQuery2("select count(*) as CUANTOS from kmt_info where CAT_CL_DIAS_VISITA = (SELECT CAT_VA_VALOR FROM CAT_VARIABLES WHERE CAT_VA_DESCRIPCION = ?) and gestion = 0 and cat_cl_codigo <> 0 AND CAT_CL_TIPO_RUTA IN (?,?) ORDER BY CAT_CL_NUM_SERIEFISICO", Array As String("DIA_VISITA",SEMANA, "SEMANAL"))
|
||||
c.Position = 0
|
||||
Starter.clientesTotal = c.GetString("CUANTOS")
|
||||
l_porvisitar.Text = Starter.clientesTotal
|
||||
@@ -310,7 +316,7 @@ Sub B4XPage_Appear
|
||||
b.Position=0
|
||||
Cuantos = b.GetString("CUANTOS")
|
||||
' If Starter.marcaCel <> "LGE" Then ToastMessageShow(Cuantos , True)
|
||||
d=Starter.db.ExecQuery2("select count(*) as TOTAL_VISITAR from kmt_info where gestion = 0 and cat_cl_codigo <> 0 AND CAT_CL_DIAS_VISITA = (SELECT CAT_VA_VALOR FROM CAT_VARIABLES WHERE CAT_VA_DESCRIPCION = ?)", Array As String("DIA_VISITA"))
|
||||
d=Starter.db.ExecQuery2("select count(*) as TOTAL_VISITAR from kmt_info where gestion = 0 and cat_cl_codigo <> 0 AND CAT_CL_DIAS_VISITA = (SELECT CAT_VA_VALOR FROM CAT_VARIABLES WHERE CAT_VA_DESCRIPCION = ?)", Array As String("DIA_VISITA"))
|
||||
D.Position=0
|
||||
b.Close
|
||||
e=Starter.db.ExecQuery2("select count(*) as POR_VISITAR from kmt_info where cat_cl_codigo <> 0 and CAT_CL_DIAS_VISITA = (SELECT CAT_VA_VALOR FROM CAT_VARIABLES WHERE CAT_VA_DESCRIPCION = ?) ", Array As String("DIA_VISITA"))
|
||||
@@ -332,7 +338,7 @@ Sub B4XPage_Appear
|
||||
usuario = c.GetString("USUARIO")
|
||||
Starter.usuario = usuario
|
||||
c.Close
|
||||
c=Starter.db.ExecQuery("select ID_ALMACEN from CAT_ALMACEN")
|
||||
c=Starter.db.ExecQuery("select ID_ALMACEN from CAT_ALMACEN")
|
||||
C.Position =0
|
||||
ALMACEN = C.GetString("ID_ALMACEN")
|
||||
C.Close
|
||||
@@ -357,7 +363,7 @@ Sub B4XPage_Appear
|
||||
' PONER EN FALSE
|
||||
Btn_CheckList.Visible = False
|
||||
B_MAPA_RUTA.Visible = True
|
||||
If usuario = "JOSELUIS" Then Btn_CheckList.Visible = True 'Mod por CHV - 211125
|
||||
If usuario = "JOSELUIS" Then Btn_CheckList.Visible = True 'Mod por CHV - 211125
|
||||
End If
|
||||
contador_strem = 0
|
||||
contador_env = 0
|
||||
@@ -447,14 +453,14 @@ Sub Subir_Click
|
||||
PASO = 1
|
||||
'End If
|
||||
If PASO = 1 Then
|
||||
c=Starter.db.ExecQuery("select CAT_CL_CODIGO, CAT_CL_RUTA from kmt_info")
|
||||
c=Starter.db.ExecQuery("select CAT_CL_CODIGO, CAT_CL_RUTA from kmt_info")
|
||||
If c.RowCount>0 Then
|
||||
For i=0 To c.RowCount -1
|
||||
c.Position=i
|
||||
Starter.db.ExecNonQuery2("update PEDIDO set PE_RUTA = ? where PE_CLIENTE = ? ", Array As Object(c.GetString("CAT_CL_RUTA"),c.GetString("CAT_CL_CODIGO")))
|
||||
Starter.db.ExecNonQuery2("update PEDIDO set PE_RUTA = ? where PE_CLIENTE = ? ", Array As Object(c.GetString("CAT_CL_RUTA"),c.GetString("CAT_CL_CODIGO")))
|
||||
Next
|
||||
End If
|
||||
c=Starter.db.ExecQuery2("SELECT HE_CUANTOS, HE_FECHA FROM HIST_ENVIOS WHERE HE_TIPO = ?", Array As String("PEDIDO"))
|
||||
c=Starter.db.ExecQuery2("SELECT HE_CUANTOS, HE_FECHA FROM HIST_ENVIOS WHERE HE_TIPO = ?", Array As String("PEDIDO"))
|
||||
c.Position = 0
|
||||
''' FALTA PONER EL IF DE CUANTAS VECES MANDO Y SI MANDO PREGUNTAR ENVIAR BOLETA O PEDIDO
|
||||
If c.GetString("HE_CUANTOS") = 0 Then
|
||||
@@ -834,7 +840,7 @@ Sub JobDone(Job As HttpJob)
|
||||
If PB1.Progress > 100 Then
|
||||
PB1.Progress = 1
|
||||
End If
|
||||
If contador_env = contador_strem And S_CP.Text <> "INFO OK" Then
|
||||
If contador_env = contador_strem And S_CP.Text <> "INFO OK" Then
|
||||
PB1.Progress = 100
|
||||
S_CP.Text = "VALIDANDO"
|
||||
End If
|
||||
@@ -1251,15 +1257,15 @@ Sub JobDone(Job As HttpJob)
|
||||
If logger Then Log("TIEMPO detallepaq : " & ((DateTime.Now-inicioContador)/1000))
|
||||
Starter.db.BeginTransaction
|
||||
For Each records() As Object In RESULT.Rows
|
||||
Dim CAT_DP_ALMACEN As String = records(RESULT.Columns.Get("CAT_DP_ALMACEN"))
|
||||
Dim CAT_DP_ALMACEN As String = records(RESULT.Columns.Get("CAT_DP_ALMACEN"))
|
||||
Dim CAT_DP_ID As String = records(RESULT.Columns.Get("CAT_DP_ID"))
|
||||
Dim CAT_DP_IDPROD As String = records(RESULT.Columns.Get("CAT_DP_IDPROD"))
|
||||
Dim CAT_DP_TIPO As String = records(RESULT.Columns.Get("CAT_DP_TIPO"))
|
||||
Dim CAT_DP_PZAS As String = records(RESULT.Columns.Get("CAT_DP_PZAS"))
|
||||
Dim CAT_DP_USUARIO As String = records(RESULT.Columns.Get("CAT_DP_USUARIO"))
|
||||
Dim CAT_DP_USUARIO As String = records(RESULT.Columns.Get("CAT_DP_USUARIO"))
|
||||
Dim CAT_DP_FECHA As String = records(RESULT.Columns.Get("CAT_DP_FECHA"))
|
||||
Dim CAT_DP_REGALO As String = records(RESULT.Columns.Get("CAT_DP_REGALO"))
|
||||
Dim CAT_DP_CLASIF As String = records(RESULT.Columns.Get("CAT_DP_CLASIF"))
|
||||
Dim CAT_DP_REGALO As String = records(RESULT.Columns.Get("CAT_DP_REGALO"))
|
||||
Dim CAT_DP_CLASIF As String = records(RESULT.Columns.Get("CAT_DP_CLASIF"))
|
||||
Dim CAT_DP_PRECIO As String = records(RESULT.Columns.Get("CAT_DP_PRECIO"))
|
||||
Dim CAT_DP_PRECIO_SIMPTOS As String = records(RESULT.Columns.Get("CAT_DP_PRECIO_SIMPTOS"))
|
||||
Starter.db.ExecNonQuery2("INSERT INTO CAT_DETALLES_PAQ(CAT_DP_ALMACEN,CAT_DP_ID,CAT_DP_IDPROD,CAT_DP_TIPO,CAT_DP_PZAS,CAT_DP_USUARIO,CAT_DP_FECHA,CAT_DP_REGALO,CAT_DP_CLASIF,CAT_DP_PRECIO,CAT_DP_PRECIO_SIMPTOS) VALUES (?,?,?,?,?,?,?,?,?,?,?)", Array As Object (CAT_DP_ALMACEN,CAT_DP_ID,CAT_DP_IDPROD,CAT_DP_TIPO,CAT_DP_PZAS,CAT_DP_USUARIO,CAT_DP_FECHA,CAT_DP_REGALO,CAT_DP_CLASIF,CAT_DP_PRECIO,CAT_DP_PRECIO_SIMPTOS))
|
||||
@@ -1375,7 +1381,7 @@ Sub JobDone(Job As HttpJob)
|
||||
Dim Cat_Va_Valor As String = records(RESULT.Columns.Get("CAT_LA_LIMITE_ABORDO"))
|
||||
Dim CAT_LA_ESTATUS_AUTORIZA As String = records(RESULT.Columns.Get("CAT_LA_ESTATUS_AUTORIZA"))
|
||||
Starter.db.ExecNonQuery2("delete from CAT_VARIABLES where CAT_VA_DESCRIPCION = ?", Array As Object ("LIMITE"))
|
||||
If CAT_LA_ESTATUS_AUTORIZA = 1 Then
|
||||
If CAT_LA_ESTATUS_AUTORIZA = 1 Then
|
||||
Starter.db.ExecNonQuery2("INSERT INTO CAT_VARIABLES(CAT_VA_DESCRIPCION, CAT_VA_VALOR) VALUES (?,?)", Array As Object ("LIMITE", "100000"))
|
||||
Else
|
||||
Starter.db.ExecNonQuery2("INSERT INTO CAT_VARIABLES(CAT_VA_DESCRIPCION, CAT_VA_VALOR) VALUES (?,?)", Array As Object ("LIMITE", Cat_Va_Valor))
|
||||
@@ -1389,13 +1395,13 @@ Sub JobDone(Job As HttpJob)
|
||||
If RESULT.Tag = "carga_encuesta" Then 'query tag
|
||||
If logger Then Log("TIEMPO carga_encuesta : " & ((DateTime.Now-inicioContador)/1000))
|
||||
For Each records() As Object In RESULT.Rows
|
||||
Dim CAT_EP_ID As String = records(RESULT.COLUMNS.GET("CAT_EP_ID"))
|
||||
Dim CAT_EP_IDTIPOPREGUNTA As String = records(RESULT.COLUMNS.GET("CAT_EP_IDTIPOPREGUNTA"))
|
||||
Dim CAT_CE_DESCRIPCION As String = records(RESULT.COLUMNS.GET("CAT_CE_DESCRIPCION"))
|
||||
Dim CAT_EP_PREGUNTA As String = records(RESULT.COLUMNS.GET("CAT_EP_PREGUNTA"))
|
||||
Dim CAT_EP_RES1_PRED As String = records(RESULT.COLUMNS.GET("CAT_EP_RES1_PRED"))
|
||||
Dim CAT_EP_RES2_PRED As String = records(RESULT.COLUMNS.GET("CAT_EP_RES2_PRED"))
|
||||
Dim CAT_EP_RES3_PRED As String = records(RESULT.COLUMNS.GET("CAT_EP_RES3_PRED"))
|
||||
Dim CAT_EP_ID As String = records(RESULT.COLUMNS.GET("CAT_EP_ID"))
|
||||
Dim CAT_EP_IDTIPOPREGUNTA As String = records(RESULT.COLUMNS.GET("CAT_EP_IDTIPOPREGUNTA"))
|
||||
Dim CAT_CE_DESCRIPCION As String = records(RESULT.COLUMNS.GET("CAT_CE_DESCRIPCION"))
|
||||
Dim CAT_EP_PREGUNTA As String = records(RESULT.COLUMNS.GET("CAT_EP_PREGUNTA"))
|
||||
Dim CAT_EP_RES1_PRED As String = records(RESULT.COLUMNS.GET("CAT_EP_RES1_PRED"))
|
||||
Dim CAT_EP_RES2_PRED As String = records(RESULT.COLUMNS.GET("CAT_EP_RES2_PRED"))
|
||||
Dim CAT_EP_RES3_PRED As String = records(RESULT.COLUMNS.GET("CAT_EP_RES3_PRED"))
|
||||
Dim CAT_EP_ORDEN_PREGUNTA As String = records(RESULT.COLUMNS.GET("CAT_EP_ORDEN_PREGUNTA"))
|
||||
Starter.db.ExecNonQuery2("INSERT INTO CAT_ENCUESTA_PREGUNTA (CAT_EP_ID ,CAT_EP_IDTIPOPREGUNTA ,CAT_CE_DESCRIPCION ,CAT_EP_PREGUNTA ,CAT_EP_RES1_PRED ,CAT_EP_RES2_PRED ,CAT_EP_RES3_PRED ,CAT_EP_ORDEN_PREGUNTA ) VALUES (?,?,?,?,?,?,?,?)", Array As Object (CAT_EP_ID ,CAT_EP_IDTIPOPREGUNTA ,CAT_CE_DESCRIPCION ,CAT_EP_PREGUNTA ,CAT_EP_RES1_PRED ,CAT_EP_RES2_PRED ,CAT_EP_RES3_PRED ,CAT_EP_ORDEN_PREGUNTA))
|
||||
Next
|
||||
@@ -1407,8 +1413,8 @@ Sub JobDone(Job As HttpJob)
|
||||
If RESULT.Tag = "carga_encuesta_cliente" Then 'query tag
|
||||
If logger Then Log("TIEMPO carga_encuesta_cliente : " & ((DateTime.Now-inicioContador)/1000))
|
||||
For Each records() As Object In RESULT.Rows
|
||||
Dim HIST_ECD_IDGRUPO As String = records(RESULT.COLUMNS.GET("HIST_ECD_IDGRUPO"))
|
||||
Dim HIST_ECD_CLIENTE As String = records(RESULT.COLUMNS.GET("HIST_ECD_CLIENTE"))
|
||||
Dim HIST_ECD_IDGRUPO As String = records(RESULT.COLUMNS.GET("HIST_ECD_IDGRUPO"))
|
||||
Dim HIST_ECD_CLIENTE As String = records(RESULT.COLUMNS.GET("HIST_ECD_CLIENTE"))
|
||||
Starter.db.ExecNonQuery2("INSERT INTO CAT_ENCUESTA_CLIENTE(HIST_ECD_IDGRUPO ,HIST_ECD_CLIENTE) VALUES (?,?)", Array As Object (HIST_ECD_IDGRUPO ,HIST_ECD_CLIENTE))
|
||||
Next
|
||||
End If
|
||||
@@ -1436,7 +1442,7 @@ Sub JobDone(Job As HttpJob)
|
||||
If RESULT.Tag = "valida_pedido1" Then 'query tag
|
||||
For Each records() As Object In RESULT.Rows
|
||||
Dim CUANTOSP As Int = records(RESULT.Columns.Get("CUANTOSP"))
|
||||
If cuantos_pedido = CUANTOSP Then
|
||||
If cuantos_pedido = CUANTOSP Then
|
||||
Msgbox("ENVIO EXITOSO","AVISO") 'ignore
|
||||
cargar.Visible = True
|
||||
Subir.Visible = True
|
||||
@@ -1906,13 +1912,14 @@ End Sub
|
||||
|
||||
Sub connecta_Click
|
||||
|
||||
' 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")
|
||||
' Starter.rp.CheckAndRequest("android.permission.BLUETOOTH_CONNECT")
|
||||
' Wait For B4XPage_PermissionResult (Permission As String, Result As Boolean)
|
||||
' If Result Then Log("Tenemos permisos de bluetooth.")
|
||||
' Log("XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX")
|
||||
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")
|
||||
Starter.rp.CheckAndRequest("android.permission.BLUETOOTH_CONNECT")
|
||||
Wait For B4XPage_PermissionResult (Permission As String, Result As Boolean)
|
||||
If Result Then Log("Tenemos permisos de bluetooth.")
|
||||
Log($"Resultado del CheckAndRequest: ${Result}"$)
|
||||
Log("XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX")
|
||||
|
||||
' c=skmt.ExecQuery2("select CAT_VA_VALOR from CAT_VARIABLES WHERE CAT_VA_DESCRIPCION = ?", Array As String ("RUTA"))
|
||||
' c.Position =0
|
||||
@@ -1922,9 +1929,9 @@ Sub connecta_Click
|
||||
Subir.Visible = True
|
||||
e_ruta.Text = ""
|
||||
End If
|
||||
' Aqui el codigo para que solo acepte numeros en la ruta, sin caracteres especiales ' Mod por CHV - 211130
|
||||
' Aqui el codigo para que solo acepte numeros en la ruta, sin caracteres especiales ' Mod por CHV - 211130
|
||||
Dim m As Matcher = Regex.Matcher("\d+", e_ruta.Text) 'Buscamos numeros en el campo de la ruta
|
||||
If m.Find Then e_ruta.Text = m.Match ' Si tiene numeros, solo nos quedamos con ellos.
|
||||
If m.Find Then e_ruta.Text = m.Match ' Si tiene numeros, solo nos quedamos con ellos.
|
||||
If e_ruta.Text.Length > 6 Then e_ruta.Text = e_ruta.Text.SubString2(0,6) ' Si tiene mas de 6 numeros solo tomamos los primeros 6
|
||||
If logger Then Log(e_ruta.Text)
|
||||
c=Starter.db.ExecQuery("select usuario from usuarioa")
|
||||
@@ -1939,7 +1946,7 @@ Sub connecta_Click
|
||||
' If Result Then
|
||||
' imei = "" 'p.GetDeviceId
|
||||
' End If
|
||||
Log("Terminamos permisos")
|
||||
' Log("Terminamos permisos")
|
||||
conn = "1"
|
||||
Dim cmd As DBCommand
|
||||
cmd.Initialize
|
||||
@@ -2066,7 +2073,7 @@ Sub t1_tick
|
||||
|
||||
t3.Initialize("T3", 5000) ' 1000 = 1 second
|
||||
t3.Enabled = True
|
||||
Wait For t3_tick
|
||||
Wait For t3_tick
|
||||
'
|
||||
' cmd.Initialize
|
||||
' cmd.Name = "select_cuantos_noventa_KELL"
|
||||
@@ -2215,12 +2222,12 @@ Sub Resumen_Click
|
||||
Resumen.Visible= False
|
||||
DateTime.DateFormat = "MM/dd/yyyy"
|
||||
fecha=DateTime.Date(DateTime.Now)
|
||||
Starter.db.ExecNonQuery2("update PEDIDO set PE_TIPO = ? where PE_CLIENTE =?", Array As Object("ABORDO", "0"))
|
||||
Starter.db.ExecNonQuery2("update PEDIDO set PE_TIPO = ? where PE_CLIENTE =?", Array As Object("ABORDO", "0"))
|
||||
b=Starter.db.ExecQuery("Select count(*) as CUANTOS from pedido_cliente where pc_cliente <> 0")
|
||||
b.Position=0
|
||||
Cuantos = b.GetString("CUANTOS")
|
||||
' ToastMessageShow(Cuantos , True)
|
||||
d=Starter.db.ExecQuery2("select count(*) as TOTAL_VISITAR from kmt_info where gestion = 0 and cat_cl_codigo <> 0 AND CAT_CL_DIAS_VISITA = (SELECT CAT_VA_VALOR FROM CAT_VARIABLES WHERE CAT_VA_DESCRIPCION = ?)", Array As String("DIA_VISITA"))
|
||||
d=Starter.db.ExecQuery2("select count(*) as TOTAL_VISITAR from kmt_info where gestion = 0 and cat_cl_codigo <> 0 AND CAT_CL_DIAS_VISITA = (SELECT CAT_VA_VALOR FROM CAT_VARIABLES WHERE CAT_VA_DESCRIPCION = ?)", Array As String("DIA_VISITA"))
|
||||
D.Position=0
|
||||
b.Close
|
||||
e=Starter.db.ExecQuery2("select count(*) as POR_VISITAR from kmt_info where cat_cl_codigo <> 0 and CAT_CL_DIAS_VISITA = (SELECT CAT_VA_VALOR FROM CAT_VARIABLES WHERE CAT_VA_DESCRIPCION = ?) ", Array As String("DIA_VISITA"))
|
||||
@@ -2237,7 +2244,7 @@ Sub Resumen_Click
|
||||
l_ruta.Text = f.GetString("CAT_CL_RUTA")
|
||||
f.Close
|
||||
End If
|
||||
If Cuantos = 0 Then
|
||||
If Cuantos = 0 Then
|
||||
L_MONTOD.Text =0
|
||||
l_cuantosc.Text = 0
|
||||
l_cuantosn.Text = 0
|
||||
@@ -2253,35 +2260,35 @@ Sub Resumen_Click
|
||||
l_monto_k.Text = "0"
|
||||
l_monto_ks.Text = "0"
|
||||
Else
|
||||
c=Starter.db.ExecQuery2("select sum(pe_cant) as CAMBIOS from pedido where substr(pe_pronombre,1,6) = ?", Array As String("CAMBIO"))
|
||||
c=Starter.db.ExecQuery2("select sum(pe_cant) as CAMBIOS from pedido where substr(pe_pronombre,1,6) = ?", Array As String("CAMBIO"))
|
||||
c.Position = 0
|
||||
l_cambios.Text = c.GetString("CAMBIOS")
|
||||
c.Close
|
||||
c=Starter.db.ExecQuery2("Select sum(PE_COSTO_TOT) As MONTO_DIA from pedido where PE_CLIENTE <> 0 and pe_proid in (Select CAT_GP_ID from cat_gunaprod2 where CAT_GP_TIPO = ? )", Array As String("RTEC"))
|
||||
c=Starter.db.ExecQuery2("Select sum(PE_COSTO_TOT) As MONTO_DIA from pedido where PE_CLIENTE <> 0 and pe_proid in (Select CAT_GP_ID from cat_gunaprod2 where CAT_GP_TIPO = ? )", Array As String("RTEC"))
|
||||
c.Position = 0
|
||||
l_monto_k.Text = c.GetString("MONTO_DIA")
|
||||
If l_monto_k.Text = "null" Then
|
||||
l_monto_k.Text = "0"
|
||||
End If
|
||||
c.Close
|
||||
c=Starter.db.ExecQuery2("Select sum(PE_COSTO_TOT) As MONTO_DIA from pedido where PE_CLIENTE <> 0 and pe_proid in (Select CAT_GP_ID from cat_gunaprod2 where CAT_GP_TIPO = ? )", Array As String("PING"))
|
||||
c=Starter.db.ExecQuery2("Select sum(PE_COSTO_TOT) As MONTO_DIA from pedido where PE_CLIENTE <> 0 and pe_proid in (Select CAT_GP_ID from cat_gunaprod2 where CAT_GP_TIPO = ? )", Array As String("PING"))
|
||||
c.Position = 0
|
||||
l_monto_kp.Text = c.GetString("MONTO_DIA")
|
||||
If l_monto_kp.Text = "null" Then
|
||||
l_monto_kp.Text = "0"
|
||||
End If
|
||||
c.Close
|
||||
c=Starter.db.ExecQuery2("Select sum(PE_COSTO_TOT) As MONTO_DIA from pedido where PE_CLIENTE <> 0 and pe_proid in (Select CAT_GP_ID from cat_gunaprod2 where CAT_GP_TIPO = ? )", Array As String("SALTY SNACKS"))
|
||||
c=Starter.db.ExecQuery2("Select sum(PE_COSTO_TOT) As MONTO_DIA from pedido where PE_CLIENTE <> 0 and pe_proid in (Select CAT_GP_ID from cat_gunaprod2 where CAT_GP_TIPO = ? )", Array As String("SALTY SNACKS"))
|
||||
c.Position = 0
|
||||
l_monto_ks.Text = c.GetString("MONTO_DIA")
|
||||
If l_monto_ks.Text = "null" Then
|
||||
l_monto_ks.Text = "0"
|
||||
End If
|
||||
c.Close
|
||||
DDD=Starter.db.ExecQuery("Select COUNT(*) AS CUANTOS from HIST_CUOTAS ")
|
||||
DDD=Starter.db.ExecQuery("Select COUNT(*) AS CUANTOS from HIST_CUOTAS ")
|
||||
DDD.Position = 0
|
||||
If DDD.GetString("CUANTOS") > 0 Then
|
||||
c=Starter.db.ExecQuery("Select HC_CUOTA1,HC_CUOTA2,HC_CUOTA3 from HIST_CUOTAS ")
|
||||
c=Starter.db.ExecQuery("Select HC_CUOTA1,HC_CUOTA2,HC_CUOTA3 from HIST_CUOTAS ")
|
||||
c.Position = 0
|
||||
l_monto_c1.Text = Round( c.GetString("HC_CUOTA1") / 6)
|
||||
l_monto_c2.Text = Round(c.GetString("HC_CUOTA2") / 6)
|
||||
@@ -2293,7 +2300,7 @@ Sub Resumen_Click
|
||||
l_monto_c3.Text = 2000
|
||||
End If
|
||||
DDD.Close
|
||||
c=Starter.db.ExecQuery("select sum(pc_monto) as MONTO_DIA, count(pc_cliente) AS CLIENTES_DIA from pedido_cliente where pc_cliente <> 0")
|
||||
c=Starter.db.ExecQuery("select sum(pc_monto) as MONTO_DIA, count(pc_cliente) AS CLIENTES_DIA from pedido_cliente where pc_cliente <> 0")
|
||||
b=Starter.db.ExecQuery("select count(*) as CUANTOS from noventa")
|
||||
'where pc_fecha = ?", Array As String(fecha)
|
||||
C.Position=0
|
||||
@@ -2308,9 +2315,9 @@ Sub Resumen_Click
|
||||
L_CUANTOST.Text = l_cuantosc.Text + l_cuantosn.Text
|
||||
drop = (c.GetString("CLIENTES_DIA") + b.GetString("CUANTOS"))/ d.GetString("TOTAL_VISITAR")
|
||||
l_drop.Text = Round(drop * 100)
|
||||
If l_drop.Text + l_efectiva.Text < 100 Then
|
||||
If l_drop.Text + l_efectiva.Text < 100 Then
|
||||
ImageView3.Bitmap = LoadBitmap(File.DirAssets, "tache_rojo.png")
|
||||
Else If l_drop.Text + l_efectiva.Text > = 100 And l_drop.Text + l_efectiva.Text < 130 Then
|
||||
Else If l_drop.Text + l_efectiva.Text > = 100 And l_drop.Text + l_efectiva.Text < 130 Then
|
||||
ImageView3.bitmap = LoadBitmap(File.DirAssets, "alerta_amarilla.png")
|
||||
Else
|
||||
ImageView3.Bitmap = LoadBitmap(File.DirAssets, "palomita_verde.png")
|
||||
@@ -2318,7 +2325,7 @@ Sub Resumen_Click
|
||||
L_TICKPROM.Text = Round2((c.GetString("MONTO_DIA") / c.GetString("CLIENTES_DIA")),2)
|
||||
If c.GetString("MONTO_DIA") < 2500 Then
|
||||
ImageView5.Bitmap = LoadBitmap(File.DirAssets, "tache_rojo.png")
|
||||
Else if c.GetString("MONTO_DIA") > = 2500 And c.GetString("MONTO_DIA") < 4000 Then
|
||||
Else if c.GetString("MONTO_DIA") > = 2500 And c.GetString("MONTO_DIA") < 4000 Then
|
||||
ImageView5.bitmap = LoadBitmap(File.DirAssets, "alerta_amarilla.png")
|
||||
Else
|
||||
ImageView5.Bitmap = LoadBitmap(File.DirAssets, "palomita_verde.png")
|
||||
@@ -2411,10 +2418,10 @@ Sub B_MAPA_RUTA_Click
|
||||
End Sub
|
||||
|
||||
Sub b_cuotas_Click
|
||||
DDD=Starter.db.ExecQuery("Select COUNT(*) AS CUANTOS from HIST_CUOTAS ")
|
||||
DDD=Starter.db.ExecQuery("Select COUNT(*) AS CUANTOS from HIST_CUOTAS ")
|
||||
DDD.Position = 0
|
||||
If DDD.GetString("CUANTOS") > 0 Then
|
||||
c=Starter.db.ExecQuery("Select HC_CUOTA1,HC_CUOTA2,HC_CUOTA3,HC_CUOTA4,HC_CUOTA5,HC_CUOTA6,HC_META1,HC_META2,HC_META3,HC_META4,HC_META5,HC_META6 from HIST_CUOTAS ")
|
||||
c=Starter.db.ExecQuery("Select HC_CUOTA1,HC_CUOTA2,HC_CUOTA3,HC_CUOTA4,HC_CUOTA5,HC_CUOTA6,HC_META1,HC_META2,HC_META3,HC_META4,HC_META5,HC_META6 from HIST_CUOTAS ")
|
||||
c.Position= 0
|
||||
L_CUOTA1.TEXT = c.GetString("HC_CUOTA1")
|
||||
L_CUOTA2.TEXT = c.GetString("HC_CUOTA2")
|
||||
@@ -2432,7 +2439,7 @@ Sub b_cuotas_Click
|
||||
L_META1.Text= $"$1.2{(l_monto_k.Text + L_META1.Text)}"$ 'l_monto_k.Text + L_META1.Text
|
||||
L_META2.Text= $"$1.2{(l_monto_kp.Text + L_META2.Text)}"$
|
||||
L_META3.Text= $"$1.2{(l_monto_ks.Text + L_META3.Text)}"$ 'l_monto_ks.Text + L_META3.Text
|
||||
L_META4.Text= $"$1.2{(l_monto_k.Text + L_META4.Text)}"$ ' l_monto_k.Text + L_META4.Text
|
||||
L_META4.Text= $"$1.2{(l_monto_k.Text + L_META4.Text)}"$ ' l_monto_k.Text + L_META4.Text
|
||||
L_META5.Text= $"$1.2{(l_monto_kp.Text + L_META5.Text)}"$ 'l_monto_kp.Text + L_META5.Text
|
||||
L_META6.Text= $"$1.2{(l_monto_ks.Text + L_META6.Text)}"$ 'l_monto_ks.Text + L_META6.Text
|
||||
End If
|
||||
@@ -2479,51 +2486,51 @@ Sub SUBIR_INFO_PEDIDO
|
||||
P1.Height = GetDeviceLayoutValues.Height
|
||||
Subs.panelVisible(P1, 0, 0)
|
||||
c=Starter.db.ExecQuery2("select count(*) AS CUANTOS from CAT_VARIABLES WHERE CAT_VA_DESCRIPCION = ?", Array As String ("PERFIL"))
|
||||
c.Position =0
|
||||
c.Position = 0
|
||||
PERFIL = c.GetString("CUANTOS")
|
||||
c.Close
|
||||
If PERFIL > 0 Then
|
||||
c=Starter.db.ExecQuery2("select CAT_VA_VALOR from CAT_VARIABLES WHERE CAT_VA_DESCRIPCION = ?", Array As String ("PERFIL"))
|
||||
c.Position =0
|
||||
c.Position = 0
|
||||
PERFIL = c.GetString("CAT_VA_VALOR")
|
||||
c.Close
|
||||
End If
|
||||
c=Starter.db.ExecQuery2("select count(*) AS CUANTOS from CAT_VARIABLES WHERE CAT_VA_DESCRIPCION = ?", Array As String ("NUMERO_PEDIDO"))
|
||||
c.Position =0
|
||||
Cuantos = c.GetString("CUANTOS")
|
||||
c=Starter.db.ExecQuery2("select count(*) AS CUANTOS from CAT_VARIABLES WHERE CAT_VA_DESCRIPCION = ?", Array As String ("NUMERO_PEDIDO"))
|
||||
c.Position = 0
|
||||
Cuantos = c.GetString("CUANTOS")
|
||||
c.Close
|
||||
If Cuantos > 0 Then
|
||||
c=Starter.db.ExecQuery2("select CAT_VA_VALOR from CAT_VARIABLES WHERE CAT_VA_DESCRIPCION = ?", Array As String ("NUMERO_PEDIDO"))
|
||||
c.Position =0
|
||||
c = Starter.db.ExecQuery2("select CAT_VA_VALOR from CAT_VARIABLES WHERE CAT_VA_DESCRIPCION = ?", Array As String ("NUMERO_PEDIDO"))
|
||||
c.Position = 0
|
||||
NUMERO_PEDIDO = c.GetString("CAT_VA_VALOR")
|
||||
c.Close
|
||||
End If
|
||||
Starter.db.ExecNonQuery("delete from pedido_cliente where PC_CLIENTE not In (select PE_CLIENTE from pedido)")
|
||||
c=Starter.db.ExecQuery("select usuario from usuarioa")
|
||||
c = Starter.db.ExecQuery("select usuario from usuarioa")
|
||||
c.Position = 0
|
||||
usuario = c.GetString("USUARIO")
|
||||
c.Close
|
||||
' DROP
|
||||
b=Starter.db.ExecQuery("Select count(*) as CUANTOS from pedido where pe_cliente = 0")
|
||||
b.Position=0
|
||||
b = Starter.db.ExecQuery("Select count(*) as CUANTOS from pedido where pe_cliente = 0")
|
||||
b.Position = 0
|
||||
Cuantos = b.GetString("CUANTOS")
|
||||
If Cuantos > 0 Then
|
||||
c=Starter.db.ExecQuery("Select sum(PE_COSTO_TOT) AS TOTAL from pedido where pe_cliente = 0")
|
||||
c = Starter.db.ExecQuery("Select sum(PE_COSTO_TOT) AS TOTAL from pedido where pe_cliente = 0")
|
||||
c.Position = 0
|
||||
L_ABORDO.Text = c.GetDouble("TOTAL")
|
||||
c.Close
|
||||
End If
|
||||
Dim PEDIDO_TOT As String
|
||||
b=Starter.db.ExecQuery("Select count(*) as CUANTOS from pedido where pe_cliente <> 0")
|
||||
b.Position=0
|
||||
b = Starter.db.ExecQuery("Select count(*) as CUANTOS from pedido where pe_cliente <> 0")
|
||||
b.Position = 0
|
||||
Cuantos = b.GetString("CUANTOS")
|
||||
If Cuantos > 0 Then
|
||||
c=Starter.db.ExecQuery("Select sum(PE_COSTO_TOT) AS TOTAL from pedido where pe_cliente <> 0")
|
||||
c = Starter.db.ExecQuery("Select sum(PE_COSTO_TOT) AS TOTAL from pedido where pe_cliente <> 0")
|
||||
c.Position = 0
|
||||
PEDIDO_TOT = c.GetDouble("TOTAL")
|
||||
c.Close
|
||||
End If
|
||||
d=Starter.db.ExecQuery("SELECT SUM(PE_COSTO_TOT) as MONTO FROM PEDIDO")
|
||||
d = Starter.db.ExecQuery("SELECT SUM(PE_COSTO_TOT) as MONTO FROM PEDIDO")
|
||||
d.Position = 0
|
||||
Private monto1 As String = "0"
|
||||
If d.GetString("MONTO") <> Null And d.GetString("MONTO") <> "" Then monto1 = d.GetString("MONTO")
|
||||
@@ -2542,7 +2549,7 @@ Sub SUBIR_INFO_PEDIDO
|
||||
PB2.Progress = 100
|
||||
t3.Initialize("T3", 500) ' 1000 = 1 second
|
||||
t3.Enabled = True
|
||||
Wait For t3_tick
|
||||
Wait For t3_tick
|
||||
Dim cmd As DBCommand
|
||||
cmd.Initialize
|
||||
cmd.Name ="UPDATE_INFO_E_KELL"
|
||||
@@ -2551,11 +2558,11 @@ Sub SUBIR_INFO_PEDIDO
|
||||
contador_env = contador_env + 1
|
||||
|
||||
' ENCUESTA
|
||||
c=Starter.db.ExecQuery("SELECT HE_CLIE, HE_RES, HE_FECHA, HE_TIPO FROM HIST_ENCUESTA")
|
||||
c = Starter.db.ExecQuery("SELECT HE_CLIE, HE_RES, HE_FECHA, HE_TIPO FROM HIST_ENCUESTA")
|
||||
S_CP.Text = "Envio Encuesta"
|
||||
PB2.Progress = 1
|
||||
If c.RowCount>0 Then
|
||||
For i=0 To c.RowCount -1
|
||||
For i = 0 To c.RowCount - 1
|
||||
c.Position=i
|
||||
Dim cmd As DBCommand
|
||||
cmd.Initialize
|
||||
@@ -2569,9 +2576,9 @@ Sub SUBIR_INFO_PEDIDO
|
||||
PB2.Progress = 100
|
||||
End If
|
||||
c.Close
|
||||
c=Starter.db.ExecQuery("Select HF_FOTO, HF_CUENTA, HF_IDENCUESTA from HIST_FOTOS")
|
||||
If c.RowCount>0 Then
|
||||
For i=0 To c.RowCount -1
|
||||
c = Starter.db.ExecQuery("Select HF_FOTO, HF_CUENTA, HF_IDENCUESTA from HIST_FOTOS")
|
||||
If c.RowCount > 0 Then
|
||||
For i = 0 To c.RowCount - 1
|
||||
c.Position=i
|
||||
Dim cmd As DBCommand
|
||||
cmd.Initialize
|
||||
@@ -2585,14 +2592,14 @@ Sub SUBIR_INFO_PEDIDO
|
||||
c.Close
|
||||
t3.Initialize("T3", 500) ' 1000 = 1 second
|
||||
t3.Enabled = True
|
||||
Wait For t3_tick
|
||||
Wait For t3_tick
|
||||
'clientes nuevos
|
||||
c=Starter.db.ExecQuery2("SELECT CAT_CL_CODIGO, CAT_CL_NOMBRE FROM kmt_info where CAT_CL_ATIENDE1 = ?", Array As String("new"))
|
||||
c = Starter.db.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"
|
||||
PB2.Progress = 1
|
||||
If c.RowCount>0 Then
|
||||
For i=0 To c.RowCount -1
|
||||
c.Position=i
|
||||
If c.RowCount > 0 Then
|
||||
For i = 0 To c.RowCount - 1
|
||||
c.Position = i
|
||||
Dim cmd As DBCommand
|
||||
cmd.Initialize
|
||||
cmd.Name = "insert_clie_new_KELL"
|
||||
@@ -2605,15 +2612,16 @@ Sub SUBIR_INFO_PEDIDO
|
||||
c.Close
|
||||
t3.Initialize("T3", 500) ' 1000 = 1 second
|
||||
t3.Enabled = True
|
||||
Wait For t3_tick
|
||||
Wait For t3_tick
|
||||
S_CP.Text = "Envio C/Pedidos"
|
||||
PB2.Progress = 1
|
||||
|
||||
' PEDIO_CLIENTE
|
||||
c=Starter.db.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 ")
|
||||
d=Starter.db.ExecQuery("SELECT COUNT(*) as CUANTOS_PEDIDOSC FROM PEDIDO_CLIENTE ")
|
||||
If c.RowCount>0 Then
|
||||
For i=0 To c.RowCount -1
|
||||
c.Position=i
|
||||
c = Starter.db.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 ")
|
||||
d = Starter.db.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"
|
||||
@@ -2630,20 +2638,21 @@ Sub SUBIR_INFO_PEDIDO
|
||||
d.Close
|
||||
ENVIADA = 0
|
||||
PORENVIAR = 0
|
||||
|
||||
' Msgbox(ENVIADA & " " & PORENVIAR, "A") 'ignore
|
||||
c=Starter.db.ExecQuery2("SELECT COUNT(*) as CANTIDAD FROM HIST_ENVIOS WHERE HE_TIPO = ?",Array As String("ABORDO") )
|
||||
c = Starter.db.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.db.ExecNonQuery2("update PEDIDO set PE_CEDIS = ? where PE_CLIENTE =? AND PE_FOLIO IS NULL ", Array As Object("RECARGA", "0"))
|
||||
Starter.db.ExecNonQuery2("update PEDIDO set PE_CEDIS = ? where PE_CLIENTE =? AND PE_FOLIO IS NULL ", Array As Object("RECARGA", "0"))
|
||||
End If
|
||||
Starter.db.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.db.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.db.ExecQuery("SELECT COUNT(*) as CUANTOS_PEDIDO FROM PEDIDO")
|
||||
If c.RowCount>0 Then
|
||||
For i=0 To c.RowCount - 1
|
||||
c = Starter.db.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.db.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
|
||||
@@ -2657,17 +2666,17 @@ Sub SUBIR_INFO_PEDIDO
|
||||
End If
|
||||
Else
|
||||
Log($"pe_cedis_3"$)
|
||||
c=Starter.db.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.db.ExecQuery("SELECT COUNT(*) as CUANTOS_PEDIDO FROM PEDIDO")
|
||||
c = Starter.db.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.db.ExecQuery("SELECT COUNT(*) as CUANTOS_PEDIDO FROM PEDIDO")
|
||||
TIEMPO = 0
|
||||
t3.Initialize("T3", 500) ' 1000 = 1 second
|
||||
t3.Enabled = True
|
||||
Wait For t3_tick
|
||||
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
|
||||
For i = 0 To c.RowCount - 1
|
||||
c.Position = i
|
||||
Dim cmd As DBCommand
|
||||
cmd.Initialize
|
||||
cmd.Name = "insert_pedido_KELL"
|
||||
@@ -2675,13 +2684,13 @@ Sub SUBIR_INFO_PEDIDO
|
||||
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
|
||||
TIEMPO = TIEMPO + 1
|
||||
PB2.Progress = PB2.Progress + 1
|
||||
If TIEMPO > 20 Then
|
||||
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
|
||||
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 |"
|
||||
@@ -2692,7 +2701,7 @@ Sub SUBIR_INFO_PEDIDO
|
||||
End If
|
||||
t3.Initialize("T3", 2000) ' 1000 = 1 second
|
||||
t3.Enabled = True
|
||||
Wait For t3_tick
|
||||
Wait For t3_tick
|
||||
TIEMPO = 0
|
||||
End If
|
||||
Next
|
||||
@@ -2705,16 +2714,16 @@ Sub SUBIR_INFO_PEDIDO
|
||||
d.Close
|
||||
|
||||
' NOVENTA
|
||||
c=Starter.db.ExecQuery("SELECT NV_CLIENTE,NV_FECHA,NV_USER,NV_MOTIVO,NV_COMM,NV_LAT,NV_LON FROM NOVENTA")
|
||||
D=Starter.db.ExecQuery("SELECT COUNT(*) AS CUANTOS_NOVENTA FROM NOVENTA")
|
||||
c = Starter.db.ExecQuery("SELECT NV_CLIENTE,NV_FECHA,NV_USER,NV_MOTIVO,NV_COMM,NV_LAT,NV_LON FROM NOVENTA")
|
||||
D = Starter.db.ExecQuery("SELECT COUNT(*) AS CUANTOS_NOVENTA FROM NOVENTA")
|
||||
t3.Initialize("T3", 500) ' 1000 = 1 second
|
||||
t3.Enabled = True
|
||||
Wait For t3_tick
|
||||
Wait For t3_tick
|
||||
S_CP.Text = "Envio No Venta"
|
||||
PB2.Progress = 1
|
||||
If c.RowCount>0 Then
|
||||
For i=0 To c.RowCount -1
|
||||
c.Position=i
|
||||
If c.RowCount > 0 Then
|
||||
For i = 0 To c.RowCount - 1
|
||||
c.Position = i
|
||||
Dim cmd As DBCommand
|
||||
cmd.Initialize
|
||||
cmd.Name = "insert_noventa_KELL"
|
||||
@@ -2731,10 +2740,10 @@ Sub SUBIR_INFO_PEDIDO
|
||||
d.Close
|
||||
' CHECK LIST VALIDAR
|
||||
'Msgbox("antesde de mandar","") 'ignore
|
||||
c=Starter.db.ExecQuery("SELECT " & Chr(34) & "TMP_AUTO_RUTA " & Chr(34) & " as TMP_AUTO_RUTA," & Chr(34) & "TMP_AUTO_PLACA" & Chr(34) & " as TMP_AUTO_PLACA," & Chr(34) & "TMP_AUTO_CEDIS " & Chr(34) & " as TMP_AUTO_CEDIS," & Chr(34) & "TMP_AUTO_IDALMACEN" & Chr(34) & " as TMP_AUTO_IDALMACEN," & Chr(34) & "TMP_AUTO_FECHA " & Chr(34) & " as TMP_AUTO_FECHA," & Chr(34) & "TMP_AUTO_KILOMETRAJE" & Chr(34) & " as TMP_AUTO_KILOMETRAJE," & Chr(34) & "TMP_AUTO_COMBUSTIBLE" & Chr(34) & " as TMP_AUTO_COMBUSTIBLE," & Chr(34) & "TMP_AUTO_TABLERO " & Chr(34) & " as TMP_AUTO_TABLERO," & Chr(34) & "TMP_AUTO_CLAXON " & Chr(34) & " as TMP_AUTO_CLAXON," & Chr(34) & "TMP_AUTO_PARABRISAS " & Chr(34) & " as TMP_AUTO_PARABRISAS," & Chr(34) & "TMP_AUTO_CINTURON " & Chr(34) & " as TMP_AUTO_CINTURON," & Chr(34) & "TMP_AUTO_ESPEJOS " & Chr(34) & " as TMP_AUTO_ESPEJOS," & Chr(34) & "TMP_AUTO_LICENCIA " & Chr(34) & " as TMP_AUTO_LICENCIA," & Chr(34) & "TMP_AUTO_LIB_OBJETOSINE " & Chr(34) & " as TMP_AUTO_LIB_OBJETOSINE," & Chr(34) & "TMP_AUTO_LIB_OBJETOTMPERVI " & Chr(34) & " as TMP_AUTO_LIB_OBJETOTMPERVI," & Chr(34) & "TMP_AUTO_ORDEN_HERRA " & Chr(34) & " as TMP_AUTO_ORDEN_HERRA," & Chr(34) & "TMP_AUTO_UNILIMPIA " & Chr(34) & " as TMP_AUTO_UNILIMPIA," & Chr(34) & "TMP_AUTO_LIMPIO " & Chr(34) & " as TMP_AUTO_LIMPIO," & Chr(34) & "TMP_AUTO_BASURA " & Chr(34) & " as TMP_AUTO_BASURA," & Chr(34) & "TMP_AUTO_RESPONSABILIDAD " & Chr(34) & " as TMP_AUTO_RESPONSABILIDAD," & Chr(34) & "TMP_AUTO_AUDITORIA " & Chr(34) & " as TMP_AUTO_AUDITORIA," & Chr(34) & "TMP_AUTO_HABITUAL " & Chr(34) & " as TMP_AUTO_HABITUAL," & Chr(34) & "TMP_AUTO_HERRAMIENTAS " & Chr(34) & " as TMP_AUTO_HERRAMIENTAS," & Chr(34) & "TMP_AUTO_CONOS " & Chr(34) & " as TMP_AUTO_CONOS," & Chr(34) & "TMP_AUTO_EDO_CARROCERIA " & Chr(34) & " as TMP_AUTO_EDO_CARROCERIA," & Chr(34) & "TMP_AUTO_FUN_LUCES " & Chr(34) & " as TMP_AUTO_FUN_LUCES," & Chr(34) & "TMP_AUTO_PLACAS_CIRCU " & Chr(34) & " as TMP_AUTO_PLACAS_CIRCU," & Chr(34) & "TMP_AUTO_COND_LLANTAS " & Chr(34) & " as TMP_AUTO_COND_LLANTAS," & Chr(34) & "TMP_AUTO_ACEITEMOTOR " & Chr(34) & " as TMP_AUTO_ACEITEMOTOR," & Chr(34) & "TMP_AUTO_ACEITEDIREC " & Chr(34) & " as TMP_AUTO_ACEITEDIREC," & Chr(34) & "TMP_AUTO_NVL_REFRIGERANTE " & Chr(34) & " as TMP_AUTO_NVL_REFRIGERANTE," & Chr(34) & "TMP_AUTO_NVL_LIQUIDBRISAS " & Chr(34) & " as TMP_AUTO_NVL_LIQUIDBRISAS," & Chr(34) & "TMP_AUTO_COND_BANMOTOR " & Chr(34) & " as TMP_AUTO_COND_BANMOTOR," & Chr(34) & "TMP_AUTO_FUGASGRAL " & Chr(34) & " as TMP_AUTO_FUGASGRAL," & Chr(34) & "TMP_AUTO_FRENOS " & Chr(34) & " as TMP_AUTO_FRENOS," & Chr(34) & "TMP_AUTO_COMENTARIOS " & Chr(34) & " as TMP_AUTO_COMENTARIOS FROM TMP_INSPECCION_AUTO_DIARIA")
|
||||
If c.RowCount>0 Then
|
||||
For i=0 To c.RowCount -1
|
||||
c.Position=i
|
||||
c = Starter.db.ExecQuery("SELECT " & Chr(34) & "TMP_AUTO_RUTA " & Chr(34) & " as TMP_AUTO_RUTA," & Chr(34) & "TMP_AUTO_PLACA" & Chr(34) & " as TMP_AUTO_PLACA," & Chr(34) & "TMP_AUTO_CEDIS " & Chr(34) & " as TMP_AUTO_CEDIS," & Chr(34) & "TMP_AUTO_IDALMACEN" & Chr(34) & " as TMP_AUTO_IDALMACEN," & Chr(34) & "TMP_AUTO_FECHA " & Chr(34) & " as TMP_AUTO_FECHA," & Chr(34) & "TMP_AUTO_KILOMETRAJE" & Chr(34) & " as TMP_AUTO_KILOMETRAJE," & Chr(34) & "TMP_AUTO_COMBUSTIBLE" & Chr(34) & " as TMP_AUTO_COMBUSTIBLE," & Chr(34) & "TMP_AUTO_TABLERO " & Chr(34) & " as TMP_AUTO_TABLERO," & Chr(34) & "TMP_AUTO_CLAXON " & Chr(34) & " as TMP_AUTO_CLAXON," & Chr(34) & "TMP_AUTO_PARABRISAS " & Chr(34) & " as TMP_AUTO_PARABRISAS," & Chr(34) & "TMP_AUTO_CINTURON " & Chr(34) & " as TMP_AUTO_CINTURON," & Chr(34) & "TMP_AUTO_ESPEJOS " & Chr(34) & " as TMP_AUTO_ESPEJOS," & Chr(34) & "TMP_AUTO_LICENCIA " & Chr(34) & " as TMP_AUTO_LICENCIA," & Chr(34) & "TMP_AUTO_LIB_OBJETOSINE " & Chr(34) & " as TMP_AUTO_LIB_OBJETOSINE," & Chr(34) & "TMP_AUTO_LIB_OBJETOTMPERVI " & Chr(34) & " as TMP_AUTO_LIB_OBJETOTMPERVI," & Chr(34) & "TMP_AUTO_ORDEN_HERRA " & Chr(34) & " as TMP_AUTO_ORDEN_HERRA," & Chr(34) & "TMP_AUTO_UNILIMPIA " & Chr(34) & " as TMP_AUTO_UNILIMPIA," & Chr(34) & "TMP_AUTO_LIMPIO " & Chr(34) & " as TMP_AUTO_LIMPIO," & Chr(34) & "TMP_AUTO_BASURA " & Chr(34) & " as TMP_AUTO_BASURA," & Chr(34) & "TMP_AUTO_RESPONSABILIDAD " & Chr(34) & " as TMP_AUTO_RESPONSABILIDAD," & Chr(34) & "TMP_AUTO_AUDITORIA " & Chr(34) & " as TMP_AUTO_AUDITORIA," & Chr(34) & "TMP_AUTO_HABITUAL " & Chr(34) & " as TMP_AUTO_HABITUAL," & Chr(34) & "TMP_AUTO_HERRAMIENTAS " & Chr(34) & " as TMP_AUTO_HERRAMIENTAS," & Chr(34) & "TMP_AUTO_CONOS " & Chr(34) & " as TMP_AUTO_CONOS," & Chr(34) & "TMP_AUTO_EDO_CARROCERIA " & Chr(34) & " as TMP_AUTO_EDO_CARROCERIA," & Chr(34) & "TMP_AUTO_FUN_LUCES " & Chr(34) & " as TMP_AUTO_FUN_LUCES," & Chr(34) & "TMP_AUTO_PLACAS_CIRCU " & Chr(34) & " as TMP_AUTO_PLACAS_CIRCU," & Chr(34) & "TMP_AUTO_COND_LLANTAS " & Chr(34) & " as TMP_AUTO_COND_LLANTAS," & Chr(34) & "TMP_AUTO_ACEITEMOTOR " & Chr(34) & " as TMP_AUTO_ACEITEMOTOR," & Chr(34) & "TMP_AUTO_ACEITEDIREC " & Chr(34) & " as TMP_AUTO_ACEITEDIREC," & Chr(34) & "TMP_AUTO_NVL_REFRIGERANTE " & Chr(34) & " as TMP_AUTO_NVL_REFRIGERANTE," & Chr(34) & "TMP_AUTO_NVL_LIQUIDBRISAS " & Chr(34) & " as TMP_AUTO_NVL_LIQUIDBRISAS," & Chr(34) & "TMP_AUTO_COND_BANMOTOR " & Chr(34) & " as TMP_AUTO_COND_BANMOTOR," & Chr(34) & "TMP_AUTO_FUGASGRAL " & Chr(34) & " as TMP_AUTO_FUGASGRAL," & Chr(34) & "TMP_AUTO_FRENOS " & Chr(34) & " as TMP_AUTO_FRENOS," & Chr(34) & "TMP_AUTO_COMENTARIOS " & Chr(34) & " as TMP_AUTO_COMENTARIOS FROM TMP_INSPECCION_AUTO_DIARIA")
|
||||
If c.RowCount > 0 Then
|
||||
For i = 0 To c.RowCount - 1
|
||||
c.Position = i
|
||||
If File.Exists(File.DirInternal,"FOTO1.jpg") And File.Exists(File.DirInternal,"FOTO2.jpg") And _
|
||||
File.Exists(File.DirInternal,"FOTO3.jpg") And File.Exists(File.DirInternal,"FOTO4.jpg") Then
|
||||
foto1 = Bit.InputStreamToBytes(File.OpenInput(File.DirInternal,"FOTO1.jpg"))
|
||||
@@ -2760,12 +2769,12 @@ Sub SUBIR_INFO_PEDIDO
|
||||
PORCENTAJE = 1
|
||||
|
||||
DateTime.TimeFormat = "HHmm"
|
||||
sTime=DateTime.Time(DateTime.Now)
|
||||
c=Starter.db.ExecQuery2("SELECT HE_CUANTOS, HE_FECHA FROM HIST_ENVIOS WHERE HE_TIPO = ?", Array As String("PEDIDO"))
|
||||
sTime = DateTime.Time(DateTime.Now)
|
||||
c = Starter.db.ExecQuery2("SELECT HE_CUANTOS, HE_FECHA FROM HIST_ENVIOS WHERE HE_TIPO = ?", Array As String("PEDIDO"))
|
||||
c.Position = 0
|
||||
Starter.db.ExecNonQuery2("UPDATE HIST_ENVIOS SET HE_FECHA = ?, HE_CUANTOS = ? WHERE HE_TIPO = ?", Array As Object(sTime,c.GetString("HE_CUANTOS") + 1, "PEDIDO"))
|
||||
c.Close
|
||||
c=Starter.db.ExecQuery("SELECT COUNT(*) as CANTIDAD FROM PEDIDO WHERE PE_CLIENTE = 0 ")
|
||||
c = Starter.db.ExecQuery("SELECT COUNT(*) as CANTIDAD FROM PEDIDO WHERE PE_CLIENTE = 0 ")
|
||||
c.Position = 0
|
||||
PORENVIAR = c.GetString("CANTIDAD")
|
||||
If PORENVIAR > 0 Then
|
||||
@@ -2795,7 +2804,7 @@ Sub SUBIR_INFO_BOLETA
|
||||
c.Close
|
||||
End If
|
||||
|
||||
c=Starter.db.ExecQuery("SELECT TMP_MON_RUTA,TMP_MON_IDALMACEN,TMP_MON_FECHA,TMP_MON_VEINTE,TMP_MON_DIEZ,TMP_MON_CINCO,TMP_MON_DOS,TMP_MON_UN,TMP_MON_CENTAVOS FROM TMP_CAT_MONEDAS")
|
||||
c=Starter.db.ExecQuery("SELECT TMP_MON_RUTA,TMP_MON_IDALMACEN,TMP_MON_FECHA,TMP_MON_VEINTE,TMP_MON_DIEZ,TMP_MON_CINCO,TMP_MON_DOS,TMP_MON_UN,TMP_MON_CENTAVOS FROM TMP_CAT_MONEDAS")
|
||||
If c.RowCount>0 Then
|
||||
For i=0 To c.RowCount -1
|
||||
c.Position=i
|
||||
@@ -2813,7 +2822,7 @@ Sub SUBIR_INFO_BOLETA
|
||||
contador_env = 2
|
||||
PB2.Progress = 100
|
||||
t3.Initialize("T3", 5000) ' 1000 = 1 second
|
||||
Wait For t3_tick
|
||||
Wait For t3_tick
|
||||
t3.Enabled = True
|
||||
S_CP.Text = "INFO OK"
|
||||
Catch
|
||||
@@ -2833,7 +2842,7 @@ Sub VALIDAR_INFO
|
||||
reqManager.ExecuteQuery(cmd , 0, "valida_pedido1")
|
||||
t3.Initialize("T3", 8000) ' 1000 = 1 second
|
||||
t3.Enabled = True
|
||||
Wait For t3_tick
|
||||
Wait For t3_tick
|
||||
End Sub
|
||||
|
||||
' ///////////////////////////////////////////////////////////////////////////////////////////////////////////////
|
||||
|
||||
Reference in New Issue
Block a user