From f8b16f46736b91da0ecd032a63ed922823c30b23 Mon Sep 17 00:00:00 2001 From: cheveguerra Date: Fri, 15 Sep 2023 15:34:11 -0600 Subject: [PATCH] 15/9/23 - Espacios y detalles sin importancia. --- B4A/B4XMainPage.bas | 48 ++++----- B4A/C_Cliente.bas | 120 +++++++++++----------- B4A/C_Principal.bas | 245 +++++++++++++++++++++++--------------------- B4A/C_Productos.bas | 30 +++--- B4A/C_Subs.bas | 75 +++++--------- B4A/KelloggsV4.b4a | 2 +- B4A/Starter.bas | 6 +- 7 files changed, 261 insertions(+), 265 deletions(-) diff --git a/B4A/B4XMainPage.bas b/B4A/B4XMainPage.bas index 3c7509f..fe62369 100644 --- a/B4A/B4XMainPage.bas +++ b/B4A/B4XMainPage.bas @@ -148,9 +148,9 @@ Private Sub B4XPage_Created (Root1 As B4XView) Starter.db.ExecNonQuery("CREATE TABLE IF NOT EXISTS CAT_DESCUENTOS_SKU (CAT_DS_CLIENTE TEXT, CAT_DS_PRODID TEXT, CAT_DS_PORCENTAJE TEXT)") Starter.db.ExecNonQuery("CREATE TABLE IF NOT EXISTS HIST_ENVIOS (HE_FECHA TEXT, HE_CUANTOS TEXT, HE_TIPO TEXT)") Starter.db.ExecNonQuery("CREATE TABLE IF NOT EXISTS CAT_ENCUESTA_PREGUNTA (CAT_EP_ID TEXT,CAT_EP_IDTIPOPREGUNTA TEXT,CAT_CE_DESCRIPCION TEXT,CAT_EP_PREGUNTA TEXT,CAT_EP_RES1_PRED TEXT,CAT_EP_RES2_PRED TEXT,CAT_EP_RES3_PRED TEXT,CAT_EP_ORDEN_PREGUNTA TEXT)") - Starter.db.ExecNonQuery("CREATE TABLE IF NOT EXISTS HIST_FOTOS (HF_FOTO BLOB, HF_CUENTA TEXT, HF_IDENCUESTA TEXT)") - Starter.db.ExecNonQuery("CREATE TABLE IF NOT EXISTS CLIENTE_IMPRESO (CI_CUENTA TEXT)") - Starter.db.ExecNonQuery("CREATE TABLE IF NOT EXISTS CAT_PROMO_MONTO (CPM_IDPROMO TEXT, CPM_MONTO TEXT, CPM_PROID TEXT, CPM_CLIENTE TEXT, CPM_CANT TEXT, CPM_RANGO TEXT, CPM_DESC TEXT)") + Starter.db.ExecNonQuery("CREATE TABLE IF NOT EXISTS HIST_FOTOS (HF_FOTO BLOB, HF_CUENTA TEXT, HF_IDENCUESTA TEXT)") + Starter.db.ExecNonQuery("CREATE TABLE IF NOT EXISTS CLIENTE_IMPRESO (CI_CUENTA TEXT)") + Starter.db.ExecNonQuery("CREATE TABLE IF NOT EXISTS CAT_PROMO_MONTO (CPM_IDPROMO TEXT, CPM_MONTO TEXT, CPM_PROID TEXT, CPM_CLIENTE TEXT, CPM_CANT TEXT, CPM_RANGO TEXT, CPM_DESC TEXT)") Starter.db.ExecNonQuery2("INSERT INTO HIST_ENVIOS VALUES (?,0,?)", Array As Object(sTime, "PEDIDO")) Starter.db.ExecNonQuery("CREATE TABLE IF NOT EXISTS HIST_EXHIBIDORES2 (HIST_EX_ID_CLIENTE TEXT, HIST_EX_TIPO TEXT, HIST_EX_CANT TEXT)") Starter.db.ExecNonQuery("CREATE TABLE IF NOT EXISTS HIST_PROMO_WHATS(HIST_CLIENTE TEXT, HIST_RESPUESTA_PROMO)") @@ -270,13 +270,6 @@ Private Sub B4XPage_Created (Root1 As B4XView) ' PopupMenu.AddMenuItem(3, 3, "Remove") ' menu fin ' Subs.borraArribaDe100Errores -' Log("Permisos BT: " & rp.Check("android.permission.BLUETOOTH_CONNECT")) -' Log("REVISAMOS PERMISOS DE BT") -' rp.CheckAndRequest("android.permission.BLUETOOTH_CONNECT") -' Wait For Activity_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)) Log("Pedimos permisos de estado del cel") rp.CheckAndRequest(rp.PERMISSION_READ_PHONE_STATE) Wait For B4XPage_PermissionResult (Permission As String, Result As Boolean) @@ -287,13 +280,7 @@ Private Sub B4XPage_Created (Root1 As B4XView) If logger Then LogColor($"////////////////// IMEI: ${IMEI} ////////////////// "$, Colors.Blue) End If Log("Permisos cel terminados") -End Sub -Sub B4XPage_Appear -' server = "http://keymon.com.mx:1782" -' server = "http://201.99.139.28:1782" -' server = "http://177.244.63.54:1782" - reqManager.Initialize(Me, Starter.server) Starter.rp.CheckAndRequest(Starter.rp.PERMISSION_ACCESS_FINE_LOCATION) Wait For B4XPAge_PermissionResult (Permission As String, Result As Boolean) If Result Then @@ -302,7 +289,22 @@ Sub B4XPage_Appear Else ToastMessageShow("Sin permisos para GPS", True) End If - Starter.montoActual = 0 + +' Log("Permisos BT: " & rp.Check("android.permission.BLUETOOTH_CONNECT")) +' Log("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 + +Sub B4XPage_Appear +' server = "http://keymon.com.mx:1782" +' server = "http://201.99.139.28:1782" +' server = "http://177.244.63.54:1782" + reqManager.Initialize(Me, Starter.server) + Starter.montoActual = 0 Starter.clientesTotal = 0 Starter.clientesVenta = 0 Starter.clientesVisitados = 0 @@ -325,7 +327,7 @@ Sub B4XPage_Appear Log("INSERTAMOS CODIGO EN CAT_VARIABLES") Starter.db.ExecNonQuery2("INSERT INTO CAT_VARIABLES(CAT_VA_DESCRIPCION, CAT_VA_VALOR) VALUES (?,?)", Array As Object ("CODIGO","743")) End If - c=Starter.db.ExecQuery2("select COUNT(*) AS CUANTOS from CAT_VARIABLES WHERE CAT_VA_DESCRIPCION = ?", Array As String ("MACIMP")) + c=Starter.db.ExecQuery2("select COUNT(*) AS CUANTOS from CAT_VARIABLES WHERE CAT_VA_DESCRIPCION = ?", Array As String ("MACIMP")) c.Position =0 If c.GetString("CUANTOS") = 0 Then Starter.db.ExecNonQuery2("INSERT INTO CAT_VARIABLES(CAT_VA_DESCRIPCION, CAT_VA_VALOR) VALUES (?,?)", Array As Object ("MACIMP","0")) @@ -386,14 +388,12 @@ Sub Entrar_Click Starter.db.ExecNonQuery2("INSERT INTO VERSION(NOVERSION) VALUES (?)", Array As Object ("2.95")) B4XPages.ShowPage("Principal") End If - Log(1) ' c=Starter.db.ExecQuery2("select count(*) as EXISTE1 from usuarioa where usuario = ?", Array As String(user.Text)) c=Starter.db.ExecQuery2($"select count(*) as EXISTE1 from usuarioa where usuario = ? and fecha = ${DateTime.Date(DateTime.Now)}"$, Array As String(user.Text)) c.Position=0 existe = c.GetString("EXISTE1") ' Log($"${existe}, ${DateTime.Date(DateTime.Now)}, ${user.Text}"$ ) 'existe = 1 - Log(2) If existe = 0 Then 'skmt.ExecNonQuery("delete from usuarioa") Dim cmd As DBCommand @@ -404,15 +404,15 @@ Sub Entrar_Click Dim cmd As DBCommand cmd.Initialize cmd.Name = "select_version_KELL" - reqManager.ExecuteQuery(cmd , 0, "version") + Starter.reqManager.ExecuteQuery(cmd , 0, "version") Else Subs.iniciaActividad("Principal") ' B4XPages.ShowPage("Principal") End If - Log("xxxxxxx") End Sub Sub JobDone(Job As HttpJob) + Log("JOBDONE MAINPAGE") If Job.Success = False Then ToastMessageShow("Error: " & Job.ErrorMessage, True) Else @@ -477,7 +477,7 @@ Sub JobDone(Job As HttpJob) Starter.db.ExecNonQuery2("INSERT INTO CAT_VARIABLES(CAT_VA_DESCRIPCION, CAT_VA_VALOR) VALUES (?,?)", Array As Object ("NUMERO_PEDIDO",0)) ' B4XPages.ShowPage("Principal") Subs.iniciaActividad("principal") - Else If name = "OKExpirado" Then + Else If name = "OKExpirado" Then Msgbox("Usuario Expirado llamar al administrador","") 'ignore Else If name = "OKCancelado" Then Msgbox("Usuario Cancelado llamar al administrador","") 'ignore @@ -607,7 +607,7 @@ End Sub Sub b_findiaOk_Click c=Starter.db.ExecQuery2("select count(*) as passOk from CAT_VARIABLES WHERE CAT_VA_DESCRIPCION = ? and CAT_VA_VALOR = ?", Array As String ("FINDIA_PASS", et_autSup.Text)) c.Position =0 - If c.GetString("passOk") = 1 Or et_autSup.Text = "FinDiaAutOk" Then + If c.GetString("passOk") = 1 Or et_autSup.Text = "FinDiaAutOk" Then Starter.db.ExecNonQuery("delete from CAT_VARIABLES where CAT_VA_DESCRIPCION = 'FINDIA_FECHA'") ToastMessageShow("Ya se puede hacer FIN DIA!!", True) p_finDia.Visible = False diff --git a/B4A/C_Cliente.bas b/B4A/C_Cliente.bas index 09caddb..e0c1984 100644 --- a/B4A/C_Cliente.bas +++ b/B4A/C_Cliente.bas @@ -326,7 +326,7 @@ Private Sub B4XPage_Created (Root1 As B4XView) FACTURA = c.GetString("CAT_CL_BFACTURA") CREDITO = c.GetString("CAT_CL_BCREDITO") LONGITUD = 0 - If c.GetString("CAT_CL_LONG") <> Null And c.GetString("CAT_CL_LONG") <> "null" And IsNumber(c.GetString("CAT_CL_LONG")) Then LONGITUD = c.GetString("CAT_CL_LONG") + If c.GetString("CAT_CL_LONG") <> Null And c.GetString("CAT_CL_LONG") <> "null" And IsNumber(c.GetString("CAT_CL_LONG")) Then LONGITUD = c.GetString("CAT_CL_LONG") LATITUD = 0 If c.GetString("CAT_CL_LAT") <> Null And c.GetString("CAT_CL_LAT") <> "null" And IsNumber(c.GetString("CAT_CL_LAT")) Then LATITUD = c.GetString("CAT_CL_LAT") l_categoria2.text = c.GetString("CAT_CL_CATEGORIA") @@ -349,18 +349,20 @@ Private Sub B4XPage_Created (Root1 As B4XView) TOMAR_FOTO = 0 c.Close If s.IsInitialized Then s.Close - 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("XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX") End Sub 'You can see the list of page related events in the B4XPagesManager object. The event name is B4XPage. Sub B4XPage_Appear + Log(Starter.rp.Check("android.permission.BLUETOOTH_CONNECT")) + reqManager.Initialize(Me, Starter.server) ' Log(Subs.traeUltimaActividadBD) Subs.panelVisibleCompleto(P_INF_GENERAL, Root) @@ -423,7 +425,7 @@ Sub B4XPage_Appear CREDITO = c.GetString("CAT_CL_BCREDITO") ruta_tienda = c.GetString("CAT_CL_RUTA") YA_IMPRIMIO2 = c.GetString("IMPRESION") - + If c.GetString("CAT_CL_EMAIL") = "1" Then l_doe.Visible = True Else @@ -443,7 +445,7 @@ Sub B4XPage_Appear Else b_noVenta.Visible = False If la_cuenta.Text = "0" Then - CREDITO_DISPONIBLE = 10000000 + CREDITO_DISPONIBLE = 10000000 CREDITO = 0 End If End If @@ -534,7 +536,7 @@ Sub B4XPage_Appear ' If Logger Then Log(mPromoEspecial.Get("esValida")) If Subs.traeUltimaActividadBD = "Productos" Then 'Venimos de "Productos" If logger Then Log("Venimos de Productos") - If l_total.Text <> Null And mPromoEspecial.Get("montoPromo") <> Null And l_total.Text > ((mPromoEspecial.Get("montoPromo") * (100 - mPromoEspecial.Get("rangoPromo")))/100) And _ + If l_total.Text <> Null And mPromoEspecial.Get("montoPromo") <> Null And l_total.Text > ((mPromoEspecial.Get("montoPromo") * (100 - mPromoEspecial.Get("rangoPromo")))/100) And _ l_total.Text <= mPromoEspecial.Get("montoPromo") Then 'El monto de la venta esta dentro del rango para la promo. If logger Then Log("Promo dentro del rango") Msgbox($"Si la venta sobrepasa los $${mPromoEspecial.Get("montoPromo")} se activa la promoción '${mPromoEspecial.Get("descrPromo")}'"$, "CASI EN RANGO DE PROMO ESPECIAL") 'ignore @@ -583,10 +585,10 @@ Sub B4XPage_Appear 'PARA LA PROMO DOE b_whats.Visible = False - C1=Starter.db.ExecQuery("select IMPRESION FROM kmt_info where CAT_CL_CODIGO In (select cuenta from cuentaa)") + C1=Starter.db.ExecQuery("select IMPRESION FROM kmt_info where CAT_CL_CODIGO In (select cuenta from cuentaa)") C1.Position = 0 If C1.GetString("IMPRESION") <> "1" Then - S=Starter.db.ExecQuery2("select COUNT(*) AS CUANTOS FROM PEDIDO WHERE PE_CLIENTE IN (Select CUENTA from cuentaa) AND PE_PROID = ?", Array As String("PROMODOE") ) + S=Starter.db.ExecQuery2("select COUNT(*) AS CUANTOS FROM PEDIDO WHERE PE_CLIENTE IN (Select CUENTA from cuentaa) AND PE_PROID = ?", Array As String("PROMODOE") ) s.Position = 0 If s.GetString("CUANTOS") = 0 Then c=Starter.db.ExecQuery2("SELECT COUNT(*) AS CUANTOS FROM HIST_CLIENTE_CANT_PROMOS WHERE HCCP_CLIENTE IN (Select cuenta from cuentaa) AND HCCP_PROMO = ?", Array As String("PROMODOE")) @@ -779,9 +781,9 @@ Sub Guardar_Click If logger Then LogColor($"Insertamos coordenadas en pedido: ${Starter.lon_gps}, ${Starter.lat_gps}"$, Colors.Magenta) Starter.db.ExecNonQuery2("insert into pedido_cliente(PC_CLIENTE, PC_FECHA, PC_USER, PC_NOART, PC_MONTO,PC_LON, PC_LAT) VALUES (?,?,?,?,?,?,?)", Array As Object(clie_id, sDate & sTime, usuario, c.GetString("CANT_CLIE"),c.GetString("TOTAL_CLIE"), Starter.lon_gps, Starter.lat_gps)) Log("Actualizamos gestion") - Starter.db.ExecNonQuery("UPDATE kmt_info set gestion = 2 where CAT_CL_CODIGO In (select cuenta from cuentaa)") + Starter.db.ExecNonQuery("UPDATE kmt_info set gestion = 2 where CAT_CL_CODIGO In (select cuenta from cuentaa)") End If - s=Starter.db.ExecQuery("SELECT count(*) AS FOLIO FROM PEDIDO WHERE PE_CLIENTE IN (Select CUENTA from cuentaa)") + s=Starter.db.ExecQuery("SELECT count(*) AS FOLIO FROM PEDIDO WHERE PE_CLIENTE IN (Select CUENTA from cuentaa)") s.Position = 0 If s.GetString("FOLIO") > 0 Then c=Starter.db.ExecQuery("SELECT SUM(PE_FOLIO) AS FOLIO FROM PEDIDO WHERE PE_CLIENTE IN (Select CUENTA from cuentaa)") @@ -789,19 +791,19 @@ Sub Guardar_Click End If s.Close Starter.db.ExecNonQuery("delete from pedido3") - Starter.db.ExecNonQuery("INSERT INTO PEDIDO3 (PE_PRECIO2, PE_TIPO, PE_DESC, PE_COSTO_SIN, PE_RUTA, PE_CEDIS, PE_COSTO_TOT, PE_COSTOU, PE_CANT, PE_PRONOMBRE, PE_PROID, PE_CLIENTE, PE_USUARIO ) SELECT PE_PRECIO2, PE_TIPO, PE_DESC, PE_COSTO_SIN, PE_RUTA, PE_CEDIS, SUM(PE_COSTO_TOT) AS PE_COSTO_TOT, PE_COSTOU, SUM(PE_CANT) As PE_CANT, PE_PRONOMBRE, PE_PROID, PE_CLIENTE, PE_USUARIO FROM PEDIDO WHERE PE_CLIENTE IN (Select CUENTA from cuentaa) GROUP BY PE_PRECIO2, PE_TIPO, PE_DESC, PE_COSTO_SIN, PE_RUTA, PE_CEDIS, PE_COSTOU, PE_PRONOMBRE, PE_PROID, PE_CLIENTE ") + Starter.db.ExecNonQuery("INSERT INTO PEDIDO3 (PE_PRECIO2, PE_TIPO, PE_DESC, PE_COSTO_SIN, PE_RUTA, PE_CEDIS, PE_COSTO_TOT, PE_COSTOU, PE_CANT, PE_PRONOMBRE, PE_PROID, PE_CLIENTE, PE_USUARIO ) SELECT PE_PRECIO2, PE_TIPO, PE_DESC, PE_COSTO_SIN, PE_RUTA, PE_CEDIS, SUM(PE_COSTO_TOT) AS PE_COSTO_TOT, PE_COSTOU, SUM(PE_CANT) As PE_CANT, PE_PRONOMBRE, PE_PROID, PE_CLIENTE, PE_USUARIO FROM PEDIDO WHERE PE_CLIENTE IN (Select CUENTA from cuentaa) GROUP BY PE_PRECIO2, PE_TIPO, PE_DESC, PE_COSTO_SIN, PE_RUTA, PE_CEDIS, PE_COSTOU, PE_PRONOMBRE, PE_PROID, PE_CLIENTE ") c=Starter.db.ExecQuery("select PE_PRECIO2,PE_TIPO,PE_DESC,PE_COSTO_SIN,PE_RUTA,PE_CEDIS,PE_COSTO_TOT,PE_COSTOU,PE_CANT,PE_PRONOMBRE,PE_PROID,PE_CLIENTE, PE_FECHA,PE_USUARIO FROM PEDIDO WHERE PE_CLIENTE IN (Select CUENTA from cuentaa)") If c.RowCount>0 Then For i=0 To c.RowCount -1 c.Position=i - Starter.db.ExecNonQuery2("UPDATE PEDIDO3 SET PE_FECHA= ? WHERE PE_CLIENTE = ? AND PE_PRONOMBRE = ? AND PE_PROID = ? AND PE_CEDIS = ? ", Array As Object(c.GetString("PE_FECHA"), c.GetString("PE_CLIENTE"),c.GetString("PE_PRONOMBRE"),c.GetString("PE_PROID"),c.GetString("PE_CEDIS"))) + Starter.db.ExecNonQuery2("UPDATE PEDIDO3 SET PE_FECHA= ? WHERE PE_CLIENTE = ? AND PE_PRONOMBRE = ? AND PE_PROID = ? AND PE_CEDIS = ? ", Array As Object(c.GetString("PE_FECHA"), c.GetString("PE_CLIENTE"),c.GetString("PE_PRONOMBRE"),c.GetString("PE_PROID"),c.GetString("PE_CEDIS"))) Next End If c.Close Starter.db.ExecNonQuery2("UPDATE PEDIDO3 SET PE_FOLIO = ? WHERE PE_CLIENTE IN (Select CUENTA from cuentaa)", Array As Object(YA_IMPRIMIO2)) Starter.db.ExecNonQuery("delete from pedido WHERE PE_CLIENTE IN (Select CUENTA from cuentaa) ") Starter.db.ExecNonQuery("INSERT INTO PEDIDO SELECT * FROM PEDIDO3") - Starter.db.ExecNonQuery2("UPDATE PEDIDO SET PE_FECHA = ? WHERE PE_CLIENTE IN (Select CUENTA from cuentaa) and PE_FECHA IS NULL", Array As Object(sDate & sTime)) + Starter.db.ExecNonQuery2("UPDATE PEDIDO SET PE_FECHA = ? WHERE PE_CLIENTE IN (Select CUENTA from cuentaa) and PE_FECHA IS NULL", Array As Object(sDate & sTime)) Starter.db.ExecNonQuery("delete from PEDIDO where PE_CANT = 0") 'Mod por CHV para que borre los productos que esten con cantidad 0 - 211228 ' Starter.db.ExecNonQuery2("delete from CAT_VARIABLES where CAT_VA_DESCRIPCION = ?", Array As Object ("ULTIMOMODULO")) ' Starter.db.ExecNonQuery2("INSERT INTO CAT_VARIABLES(CAT_VA_DESCRIPCION, CAT_VA_VALOR) VALUES (?,?)", Array As Object ("ULTIMOMODULO", "seleccion")) @@ -845,7 +847,7 @@ Sub sc_noScan If logger Then Log("nothing returned from the scan !!!!!") End Sub -Sub calc_ean_checksum(number As String) As String 'this has now become redundant as I am only interested in QR Codes +Sub calc_ean_checksum(number As String) As String 'this has now become redundant as I am only interested in QR Codes Dim i As Int Dim cO As Char Dim soma As Int @@ -880,7 +882,7 @@ Sub B_IMP_Click label2.TextSize = 14 label2.TextColor = Colors.Black ' Aqui es donde esta el pedo de julieta de los descuentos, quitar el precio2 pero meter un if para saber si es ruta especial o es normal o que show. - s=Starter.db.ExecQuery2 ("select CAT_GP_ID,CAT_GP_NOMBRE,CAT_GP_ALMACEN from cat_gunaprod2 where CAT_GP_CLASIF <> ? ORDER BY CAT_GP_NOMBRE ", Array As String("PROMOS")) + s=Starter.db.ExecQuery2 ("select CAT_GP_ID,CAT_GP_NOMBRE,CAT_GP_ALMACEN from cat_gunaprod2 where CAT_GP_CLASIF <> ? ORDER BY CAT_GP_NOMBRE ", Array As String("PROMOS")) If s.RowCount>0 Then For i=0 To S.RowCount -1 s.Position=i @@ -888,7 +890,7 @@ Sub B_IMP_Click S1.Position=0 S3=Starter.db.ExecQuery2("select count(*) as CUANTOS from HIST_ABORDO where HIST_PROID = ?", Array As String(s.GetString("CAT_GP_ID"))) S3.Position=0 - If S3.GetString("CUANTOS") > 0 Then + If S3.GetString("CUANTOS") > 0 Then S2=Starter.db.ExecQuery2("select HIST_CANT from HIST_ABORDO where HIST_PROID = ?", Array As String(s.GetString("CAT_GP_ID"))) S2.Position=0 a_inicial = S1.GetString("CAT_GP_ALMACEN") - S2.GetString("HIST_CANT") @@ -896,16 +898,16 @@ Sub B_IMP_Click a_inicial = S1.GetString("CAT_GP_ALMACEN") End If a_inicial_5 = S1.GetString("CAT_GP_ALMACEN") - If S3.GetString("CUANTOS") > 0 Then + If S3.GetString("CUANTOS") > 0 Then ABORDO = S2.GetString("HIST_CANT") Else ABORDO = 0 End If a_total = S1.GetString("CAT_GP_ALMACEN") - C4=Starter.db.ExecQuery2("select count(*) as CUANTOS from pedido where substr(pe_pronombre,1,6) <> ? AND PE_PROID = ? AND PE_TIPO = ? ", Array As String("CAMBIO", s.GetString("CAT_GP_ID"), "VENTA")) + C4=Starter.db.ExecQuery2("select count(*) as CUANTOS from pedido where substr(pe_pronombre,1,6) <> ? AND PE_PROID = ? AND PE_TIPO = ? ", Array As String("CAMBIO", s.GetString("CAT_GP_ID"), "VENTA")) C4.Position=0 If C4.GetString("CUANTOS") > 0 Then - C3=Starter.db.ExecQuery2("select SUM(PE_CANT) AS CANTIDAD,PE_PRONOMBRE, sum(PE_COSTO_TOT) AS TOTAL from pedido where substr(pe_pronombre,1,6) <> ? AND PE_PROID = ? AND PE_TIPO = ? GROUP BY PE_PRONOMBRE", Array As String("CAMBIO", s.GetString("CAT_GP_ID"), "VENTA")) + C3=Starter.db.ExecQuery2("select SUM(PE_CANT) AS CANTIDAD,PE_PRONOMBRE, sum(PE_COSTO_TOT) AS TOTAL from pedido where substr(pe_pronombre,1,6) <> ? AND PE_PROID = ? AND PE_TIPO = ? GROUP BY PE_PRONOMBRE", Array As String("CAMBIO", s.GetString("CAT_GP_ID"), "VENTA")) C3.Position=0 a_venta = C3.GetString("CANTIDAD") a_VENTA_F = C3.GetString("TOTAL") @@ -915,10 +917,10 @@ Sub B_IMP_Click End If C4.Close - C4=Starter.db.ExecQuery2("select count(*) as CUANTOS from pedido where substr(pe_pronombre,1,6) = ? AND PE_PROID = ? ", Array As String("CAMBIO", s.GetString("CAT_GP_ID"))) + C4=Starter.db.ExecQuery2("select count(*) as CUANTOS from pedido where substr(pe_pronombre,1,6) = ? AND PE_PROID = ? ", Array As String("CAMBIO", s.GetString("CAT_GP_ID"))) C4.Position=0 If C4.GetString("CUANTOS") > 0 Then - C1=Starter.db.ExecQuery2("select SUM(PE_CANT) AS CANTIDAD,PE_PRONOMBRE from pedido where substr(pe_pronombre,1,6) = ? AND PE_PROID = ? GROUP BY PE_PRONOMBRE", Array As String("CAMBIO", s.GetString("CAT_GP_ID"))) + C1=Starter.db.ExecQuery2("select SUM(PE_CANT) AS CANTIDAD,PE_PRONOMBRE from pedido where substr(pe_pronombre,1,6) = ? AND PE_PROID = ? GROUP BY PE_PRONOMBRE", Array As String("CAMBIO", s.GetString("CAT_GP_ID"))) C1.Position=0 RMI = C1.GetString("CANTIDAD") C1.Close @@ -966,8 +968,8 @@ Sub B_IMP2_Click End If ' If Logger Then Log($"Impresora Conectada: ${Printer1.IsConnected}"$) If la_cuenta.Text <> "0" And la_cuenta.Text <> "null" Then - Starter.db.ExecNonQuery2("UPDATE PEDIDO SET PE_TIPO = ? WHERE PE_CLIENTE IN (Select CUENTA from cuentaa) ", Array As Object("VENTA")) - Starter.db.ExecNonQuery("UPDATE kmt_info set IMPRESION = 1 where CAT_CL_CODIGO In (select cuenta from cuentaa)")'' + Starter.db.ExecNonQuery2("UPDATE PEDIDO SET PE_TIPO = ? WHERE PE_CLIENTE IN (Select CUENTA from cuentaa) ", Array As Object("VENTA")) + Starter.db.ExecNonQuery("UPDATE kmt_info set IMPRESION = 1 where CAT_CL_CODIGO In (select cuenta from cuentaa)")'' Guardar.Visible = True End If Starter.db.ExecNonQuery("delete from pedido3") @@ -977,7 +979,7 @@ Sub B_IMP2_Click If c.RowCount>0 Then For i=0 To c.RowCount -1 c.Position=i - Starter.db.ExecNonQuery2("UPDATE PEDIDO3 SET PE_FECHA= ? WHERE PE_CLIENTE = ? AND PE_PRONOMBRE = ? AND PE_PROID = ? AND PE_CEDIS = ? AND PE_FOLIO = ?", Array As Object(c.GetString("PE_FECHA"), c.GetString("PE_CLIENTE"),c.GetString("PE_PRONOMBRE"),c.GetString("PE_PROID"),c.GetString("PE_CEDIS"), c.GetString("PE_FOLIO"))) + Starter.db.ExecNonQuery2("UPDATE PEDIDO3 SET PE_FECHA= ? WHERE PE_CLIENTE = ? AND PE_PRONOMBRE = ? AND PE_PROID = ? AND PE_CEDIS = ? AND PE_FOLIO = ?", Array As Object(c.GetString("PE_FECHA"), c.GetString("PE_CLIENTE"),c.GetString("PE_PRONOMBRE"),c.GetString("PE_PROID"),c.GetString("PE_CEDIS"), c.GetString("PE_FOLIO"))) Next End If Starter.db.ExecNonQuery("delete from pedido WHERE PE_CLIENTE IN (Select CUENTA from cuentaa) ") @@ -2198,7 +2200,7 @@ End Sub '''BILLETES Sub L_CALCULA_BILLE_CLICK - If EDT_CANMIL.Text="" Or EDT_CANQUIN.Text="" Or EDT_CANDOS.Text="" Or EDT_CANCIEN.Text="" Or EDT_CANCIN.Text="" Or EDT_CANVEIN.Text="" Then + If EDT_CANMIL.Text="" Or EDT_CANQUIN.Text="" Or EDT_CANDOS.Text="" Or EDT_CANCIEN.Text="" Or EDT_CANCIN.Text="" Or EDT_CANVEIN.Text="" Then Pnl_Billete.RequestFocus Msgbox("Por favor llena todas las cantidades","") 'ignore Else @@ -2411,7 +2413,7 @@ End Sub '''' MONEDAS Sub L_CALCULA_MONEDA_Click - If EDT_CANDIEZ.Text="" Or EDT_CANCI.Text="" Or EDT_CANDO.Text="" Or EDT_CANUN.Text="" Or EDT_CANCEN.Text="" Or EDT_CANVEINTE.Text="" Then + If EDT_CANDIEZ.Text="" Or EDT_CANCI.Text="" Or EDT_CANDO.Text="" Or EDT_CANUN.Text="" Or EDT_CANCEN.Text="" Or EDT_CANVEINTE.Text="" Then Msgbox("Por favor llena todas las cantidades","") 'ignore Pnl_Billete.RequestFocus Else @@ -2625,7 +2627,7 @@ End Sub ''''''TOTALES Sub TOTALES_Click - If TOTALMONEDA.Text="" Or TOTALBILLETES.Text="" Then + If TOTALMONEDA.Text="" Or TOTALBILLETES.Text="" Then TOTALMONEDA.Text=0 TOTALBILLETES.Text=0 B_SUM_TOTAL.Text="$"& (TOTALMONEDA.Text + TOTALBILLETES.Text) @@ -2857,7 +2859,7 @@ Sub B_IMP_INVBAK_Click S1.Position=0 S3=Starter.db.ExecQuery2("select count(*) as CUANTOS from HIST_ABORDO where HIST_PROID = ?", Array As String(s.GetString("CAT_GP_ID"))) S3.Position=0 - If S3.GetString("CUANTOS") > 0 Then + If S3.GetString("CUANTOS") > 0 Then S2=Starter.db.ExecQuery2("select HIST_CANT from HIST_ABORDO where HIST_PROID = ?", Array As String(s.GetString("CAT_GP_ID"))) S2.Position=0 a_inicial = S1.GetString("CAT_GP_ALMACEN") - S2.GetString("HIST_CANT") @@ -2866,7 +2868,7 @@ Sub B_IMP_INVBAK_Click End If a_inicial_5 = S1.GetString("CAT_GP_ALMACEN") 'Printer1.WriteString("INICIAL: " & ABORDO & CRLF) - If S3.GetString("CUANTOS") > 0 Then + If S3.GetString("CUANTOS") > 0 Then 'Printer1.WriteString("CARGA DIA : " & S2.GetString("HIST_CANT") & CRLF) ABORDO = S2.GetString("HIST_CANT") Else @@ -2876,10 +2878,10 @@ Sub B_IMP_INVBAK_Click 'Printer1.WriteString("CARGA TOTAL : " & S1.GetString("CAT_GP_ALMACEN") & CRLF) a_total = S1.GetString("CAT_GP_ALMACEN") - C4=Starter.db.ExecQuery2("select count(*) as CUANTOS from pedido where substr(pe_pronombre,1,6) <> ? AND PE_TIPO = ? and PE_PROID = ? ", Array As String("CAMBIO","VENTA", s.GetString("CAT_GP_ID"))) + C4=Starter.db.ExecQuery2("select count(*) as CUANTOS from pedido where substr(pe_pronombre,1,6) <> ? AND PE_TIPO = ? and PE_PROID = ? ", Array As String("CAMBIO","VENTA", s.GetString("CAT_GP_ID"))) C4.Position=0 If C4.GetString("CUANTOS") > 0 Then - C3=Starter.db.ExecQuery2("select SUM(PE_CANT) AS CANTIDAD,PE_PRONOMBRE from pedido where substr(pe_pronombre,1,6) <> ? AND PE_TIPO = ? AND PE_PROID = ? GROUP BY PE_PRONOMBRE", Array As String("CAMBIO","VENTA", s.GetString("CAT_GP_ID"))) + C3=Starter.db.ExecQuery2("select SUM(PE_CANT) AS CANTIDAD,PE_PRONOMBRE from pedido where substr(pe_pronombre,1,6) <> ? AND PE_TIPO = ? AND PE_PROID = ? GROUP BY PE_PRONOMBRE", Array As String("CAMBIO","VENTA", s.GetString("CAT_GP_ID"))) C3.Position=0 'Printer1.WriteString("VENTA: " & C3.GetString("CANTIDAD") & CRLF) a_venta = C3.GetString("CANTIDAD") @@ -2888,10 +2890,10 @@ Sub B_IMP_INVBAK_Click a_venta = 0 End If C4.Close - C4=Starter.db.ExecQuery2("select count(*) as CUANTOS from pedido where substr(pe_pronombre,1,6) = ? AND PE_PROID = ? ", Array As String("CAMBIO", s.GetString("CAT_GP_ID"))) + C4=Starter.db.ExecQuery2("select count(*) as CUANTOS from pedido where substr(pe_pronombre,1,6) = ? AND PE_PROID = ? ", Array As String("CAMBIO", s.GetString("CAT_GP_ID"))) C4.Position=0 If C4.GetString("CUANTOS") > 0 Then - C1=Starter.db.ExecQuery2("select SUM(PE_CANT) AS CANTIDAD,PE_PRONOMBRE from pedido where substr(pe_pronombre,1,6) = ? AND PE_PROID = ? GROUP BY PE_PRONOMBRE", Array As String("CAMBIO", s.GetString("CAT_GP_ID"))) + C1=Starter.db.ExecQuery2("select SUM(PE_CANT) AS CANTIDAD,PE_PRONOMBRE from pedido where substr(pe_pronombre,1,6) = ? AND PE_PROID = ? GROUP BY PE_PRONOMBRE", Array As String("CAMBIO", s.GetString("CAT_GP_ID"))) C1.Position=0 RMI = C1.GetString("CANTIDAD") Else @@ -2993,7 +2995,7 @@ Sub B_IMP_INVBAK_Click t3.Initialize("T3", 4000) ' 1000 = 1 second t3.Enabled = True - Wait For t3_tick + Wait For t3_tick TAMANO = 0 End If Next @@ -3023,9 +3025,9 @@ Sub B_IMP_INVBAK_Click If CUANTOS <> CUANTOS1 Then Try - c=Starter.db.ExecQuery2("select SUM(PE_CANT) AS CANTIDAD,PE_PRONOMBRE from pedido where substr(pe_pronombre,1,6) = ? GROUP BY PE_PRONOMBRE", Array As String("CAMBIO")) + c=Starter.db.ExecQuery2("select SUM(PE_CANT) AS CANTIDAD,PE_PRONOMBRE from pedido where substr(pe_pronombre,1,6) = ? GROUP BY PE_PRONOMBRE", Array As String("CAMBIO")) Printer1.WriteString(CRLF) - Printer1.WriteString("-----------RMI----------------" & CRLF) + Printer1.WriteString("-----------RMI----------------" & CRLF) Printer1.WriteString(CRLF) If C.RowCount>0 Then For i=0 To C.RowCount -1 @@ -3053,7 +3055,7 @@ Sub B_IMP_INVBAK_Click a_inicial = S1.GetString("CAT_GP_ALMACEN") S1.Close ABORDO =0 - C3=Starter.db.ExecQuery2("select SUM(PE_CANT) AS CANTIDAD, SUM(PE_COSTO_TOT) AS PE_TOTAL from pedido where pe_proid <> pe_cedis and substr(pe_pronombre,1,6) <> ? AND PE_CLIENTE <> ?", Array As String("CAMBIO", "0")) + C3=Starter.db.ExecQuery2("select SUM(PE_CANT) AS CANTIDAD, SUM(PE_COSTO_TOT) AS PE_TOTAL from pedido where pe_proid <> pe_cedis and substr(pe_pronombre,1,6) <> ? AND PE_CLIENTE <> ?", Array As String("CAMBIO", "0")) If C3.RowCount > 0 Then C3.Position=0 a_venta = C3.GetString("CANTIDAD") @@ -3061,8 +3063,8 @@ Sub B_IMP_INVBAK_Click a_venta = 0 End If If a_venta = Null Then a_venta = 0 - If CUANTOS <> CUANTOS1 Then - C1=Starter.db.ExecQuery2("select SUM(PE_CANT) AS CANTIDAD from pedido where substr(pe_pronombre,1,6) = ? ", Array As String("CAMBIO")) + If CUANTOS <> CUANTOS1 Then + C1=Starter.db.ExecQuery2("select SUM(PE_CANT) AS CANTIDAD from pedido where substr(pe_pronombre,1,6) = ? ", Array As String("CAMBIO")) C1.Position=0 RMI = C1.GetString("CANTIDAD") C1.Close @@ -3153,7 +3155,7 @@ Sub B_IMP_INV_Click S1.Position=0 S3=Starter.db.ExecQuery2("select count(*) as CUANTOS from HIST_ABORDO where HIST_PROID = ?", Array As String(s.GetString("CAT_GP_ID"))) S3.Position=0 - If S3.GetString("CUANTOS") > 0 Then + If S3.GetString("CUANTOS") > 0 Then S2=Starter.db.ExecQuery2("select HIST_CANT from HIST_ABORDO where HIST_PROID = ?", Array As String(s.GetString("CAT_GP_ID"))) S2.Position=0 a_inicial = S1.GetString("CAT_GP_ALMACEN") - S2.GetString("HIST_CANT") @@ -3162,7 +3164,7 @@ Sub B_IMP_INV_Click End If a_inicial_5 = S1.GetString("CAT_GP_ALMACEN") 'Printer1.WriteString("INICIAL: " & ABORDO & CRLF) - If S3.GetString("CUANTOS") > 0 Then + If S3.GetString("CUANTOS") > 0 Then 'Printer1.WriteString("CARGA DIA : " & S2.GetString("HIST_CANT") & CRLF) ABORDO = S2.GetString("HIST_CANT") Else @@ -3172,10 +3174,10 @@ Sub B_IMP_INV_Click 'Printer1.WriteString("CARGA TOTAL : " & S1.GetString("CAT_GP_ALMACEN") & CRLF) a_total = S1.GetString("CAT_GP_ALMACEN") - C4=Starter.db.ExecQuery2("select count(*) as CUANTOS from pedido where substr(pe_pronombre,1,6) <> ? AND PE_TIPO = ? and PE_PROID = ? ", Array As String("CAMBIO","VENTA", s.GetString("CAT_GP_ID"))) + C4=Starter.db.ExecQuery2("select count(*) as CUANTOS from pedido where substr(pe_pronombre,1,6) <> ? AND PE_TIPO = ? and PE_PROID = ? ", Array As String("CAMBIO","VENTA", s.GetString("CAT_GP_ID"))) C4.Position=0 If C4.GetString("CUANTOS") > 0 Then - C3=Starter.db.ExecQuery2("select SUM(PE_CANT) AS CANTIDAD,PE_PRONOMBRE from pedido where substr(pe_pronombre,1,6) <> ? AND PE_TIPO = ? AND PE_PROID = ? GROUP BY PE_PRONOMBRE", Array As String("CAMBIO","VENTA", s.GetString("CAT_GP_ID"))) + C3=Starter.db.ExecQuery2("select SUM(PE_CANT) AS CANTIDAD,PE_PRONOMBRE from pedido where substr(pe_pronombre,1,6) <> ? AND PE_TIPO = ? AND PE_PROID = ? GROUP BY PE_PRONOMBRE", Array As String("CAMBIO","VENTA", s.GetString("CAT_GP_ID"))) C3.Position=0 'Printer1.WriteString("VENTA: " & C3.GetString("CANTIDAD") & CRLF) a_venta = C3.GetString("CANTIDAD") @@ -3185,10 +3187,10 @@ Sub B_IMP_INV_Click End If C4.Close ''' se conenta esto para el cambio de RMI - C4=Starter.db.ExecQuery2("select count(*) as CUANTOS from pedido where substr(pe_pronombre,1,6) = ? AND PE_PROID = ? ", Array As String("CAMBIO", s.GetString("CAT_GP_ID"))) + C4=Starter.db.ExecQuery2("select count(*) as CUANTOS from pedido where substr(pe_pronombre,1,6) = ? AND PE_PROID = ? ", Array As String("CAMBIO", s.GetString("CAT_GP_ID"))) C4.Position=0 If C4.GetString("CUANTOS") > 0 Then - C1=Starter.db.ExecQuery2("select SUM(PE_CANT) AS CANTIDAD,PE_PRONOMBRE from pedido where substr(pe_pronombre,1,6) = ? AND PE_PROID = ? GROUP BY PE_PRONOMBRE", Array As String("CAMBIO", s.GetString("CAT_GP_ID"))) + C1=Starter.db.ExecQuery2("select SUM(PE_CANT) AS CANTIDAD,PE_PRONOMBRE from pedido where substr(pe_pronombre,1,6) = ? AND PE_PROID = ? GROUP BY PE_PRONOMBRE", Array As String("CAMBIO", s.GetString("CAT_GP_ID"))) C1.Position=0 RMI = C1.GetString("CANTIDAD") Else @@ -3570,9 +3572,9 @@ Sub metePromoEspecial(idProd As String, idPromo As String, cantProd As Int, nomb ' Falta nombre de producto en el insert Starter.db.ExecNonQuery2("DELETE from PEDIDO where PE_CEDIS = ?", Array As String (idPromo)) 'Metemos encabezado de la promo. - Starter.db.ExecNonQuery2("INSERT INTO PEDIDO (PE_CEDIS, PE_COSTO_TOT, PE_COSTOU, PE_CANT, PE_PRONOMBRE, PE_PROID, PE_CLIENTE, PE_FECHA, PE_USUARIO, PE_RUTA, PE_TIPO, PE_PRECIO2) VALUES(?,?,?,?,?,?,?,?,?,?,?,?) ", Array As Object (idPromo, 0, 0, cantProd, promoDescr, idPromo, idCliente, sDate & sTime, idUsuario, idRuta, Starter.tipov, 0)) + Starter.db.ExecNonQuery2("INSERT INTO PEDIDO (PE_CEDIS, PE_COSTO_TOT, PE_COSTOU, PE_CANT, PE_PRONOMBRE, PE_PROID, PE_CLIENTE, PE_FECHA, PE_USUARIO, PE_RUTA, PE_TIPO, PE_PRECIO2) VALUES(?,?,?,?,?,?,?,?,?,?,?,?) ", Array As Object (idPromo, 0, 0, cantProd, promoDescr, idPromo, idCliente, sDate & sTime, idUsuario, idRuta, Starter.tipov, 0)) 'Metemos el producto de regalo. - Starter.db.ExecNonQuery2("INSERT INTO PEDIDO (PE_CEDIS, PE_COSTO_TOT, PE_COSTOU, PE_CANT, PE_PRONOMBRE, PE_PROID, PE_CLIENTE, PE_FECHA, PE_USUARIO, PE_RUTA, PE_TIPO, PE_PRECIO2) VALUES(?,?,?,?,?,?,?,?,?,?,?,?) ", Array As Object (idPromo, 0.01, 0.01, cantProd, nombreProd, idProd, idCliente, sDate & sTime, idUsuario, idRuta, Starter.tipov, 0.01)) + Starter.db.ExecNonQuery2("INSERT INTO PEDIDO (PE_CEDIS, PE_COSTO_TOT, PE_COSTOU, PE_CANT, PE_PRONOMBRE, PE_PROID, PE_CLIENTE, PE_FECHA, PE_USUARIO, PE_RUTA, PE_TIPO, PE_PRECIO2) VALUES(?,?,?,?,?,?,?,?,?,?,?,?) ", Array As Object (idPromo, 0.01, 0.01, cantProd, nombreProd, idProd, idCliente, sDate & sTime, idUsuario, idRuta, Starter.tipov, 0.01)) 'Actualizamos existencia en CAT_GUNAPROD. Starter.db.ExecNonQuery2("update " & query & " set cat_gp_almacen = cat_gp_almacen - ? where cat_gp_id = ? ", Array As Object(cantProd, idProd)) End Sub @@ -3674,8 +3676,8 @@ Private Sub b_aceptarrpomo_Click Starter.db.ExecNonQuery2("INSERT INTO HIST_PROMO_WHATS VALUES (?,?)", Array As Object(l_promowhats.Text, "PROMO ACEPTADA")) - Starter.db.ExecNonQuery2("INSERT INTO PEDIDO (PE_CEDIS,PE_COSTO_TOT,PE_COSTOU,PE_CANT,PE_PRONOMBRE,PE_PROID,PE_CLIENTE,PE_FECHA,PE_USUARIO,PE_RUTA,PE_TIPO,PE_PRECIO2) VALUES(?,?,?,?,?,?,?,?,?,?,?,?) ", Array As Object ("PROMODOE",0 , 0, 1, "KIT DE BIENVENIDA DON TOÑO", "PROMODOE",la_cuenta.TEXT, sDate & sTime, usuario,Starter.rutaV,Starter.tipov,0)) - Starter.db.ExecNonQuery2("INSERT INTO PEDIDO (PE_CEDIS,PE_COSTO_TOT,PE_COSTOU,PE_CANT,PE_PRONOMBRE,PE_PROID,PE_CLIENTE,PE_FECHA,PE_USUARIO,PE_RUTA,PE_TIPO,PE_PRECIO2) VALUES(?,?,?,?,?,?,?,?,?,?,?,?) ", Array As Object ("PROMODOE",0.01 , 0.01, 1, "CAJA CHOCO ZUCARITAS 260 GR", "1008094223",la_cuenta.TEXT, sDate & sTime, usuario,Starter.rutaV,Starter.tipov,0)) + Starter.db.ExecNonQuery2("INSERT INTO PEDIDO (PE_CEDIS,PE_COSTO_TOT,PE_COSTOU,PE_CANT,PE_PRONOMBRE,PE_PROID,PE_CLIENTE,PE_FECHA,PE_USUARIO,PE_RUTA,PE_TIPO,PE_PRECIO2) VALUES(?,?,?,?,?,?,?,?,?,?,?,?) ", Array As Object ("PROMODOE",0 , 0, 1, "KIT DE BIENVENIDA DON TOÑO", "PROMODOE",la_cuenta.TEXT, sDate & sTime, usuario,Starter.rutaV,Starter.tipov,0)) + Starter.db.ExecNonQuery2("INSERT INTO PEDIDO (PE_CEDIS,PE_COSTO_TOT,PE_COSTOU,PE_CANT,PE_PRONOMBRE,PE_PROID,PE_CLIENTE,PE_FECHA,PE_USUARIO,PE_RUTA,PE_TIPO,PE_PRECIO2) VALUES(?,?,?,?,?,?,?,?,?,?,?,?) ", Array As Object ("PROMODOE",0.01 , 0.01, 1, "CAJA CHOCO ZUCARITAS 260 GR", "1008094223",la_cuenta.TEXT, sDate & sTime, usuario,Starter.rutaV,Starter.tipov,0)) Starter.db.ExecNonQuery2("update cat_gunaprod2 set cat_gp_almacen = cat_gp_almacen - ? where cat_gp_id = ? ", Array As Object("1", "1008094223")) c=Starter.db.ExecQuery("select sum(pe_costo_tot) as TOTAL_CLIE, SUM(PE_CANT) AS CANT_CLIE, SUM(PE_COSTO_SIN) AS TOTAL_CLIE_SIN FROM PEDIDO WHERE PE_CLIENTE IN (Select CUENTA from cuentaa)") c.Position=0 @@ -3783,15 +3785,15 @@ Private Sub BP_DOE_A_Click c.Position=0 usuario = c.GetString("USUARIO") c.Close - Starter.db.ExecNonQuery("INSERT INTO PEDIDO (PE_CEDIS,PE_COSTO_TOT,PE_COSTOU,PE_CANT,PE_PRONOMBRE,PE_PROID,PE_CLIENTE,PE_FECHA,PE_USUARIO,PE_RUTA,PE_TIPO,PE_PRECIO2) SELECT PE_CEDIS,PE_COSTO_TOT,PE_COSTOU,PE_CANT,PE_PRONOMBRE,PE_PROID,PE_CLIENTE,PE_FECHA,PE_USUARIO,PE_RUTA,PE_TIPO,PE_PRECIO2 FROM PEDIDO_DOE WHERE PE_CLIENTE IN (Select CUENTA from cuentaa)") - Starter.db.ExecNonQuery2("UPDATE PEDIDO SET PE_CEDIS = ?, PE_TIPO = ? WHERE PE_CLIENTE IN (Select CUENTA from cuentaa)", Array As Object("DOE","DOE")) + Starter.db.ExecNonQuery("INSERT INTO PEDIDO (PE_CEDIS,PE_COSTO_TOT,PE_COSTOU,PE_CANT,PE_PRONOMBRE,PE_PROID,PE_CLIENTE,PE_FECHA,PE_USUARIO,PE_RUTA,PE_TIPO,PE_PRECIO2) SELECT PE_CEDIS,PE_COSTO_TOT,PE_COSTOU,PE_CANT,PE_PRONOMBRE,PE_PROID,PE_CLIENTE,PE_FECHA,PE_USUARIO,PE_RUTA,PE_TIPO,PE_PRECIO2 FROM PEDIDO_DOE WHERE PE_CLIENTE IN (Select CUENTA from cuentaa)") + Starter.db.ExecNonQuery2("UPDATE PEDIDO SET PE_CEDIS = ?, PE_TIPO = ? WHERE PE_CLIENTE IN (Select CUENTA from cuentaa)", Array As Object("DOE","DOE")) c=Starter.db.ExecQuery("select sum(pe_costo_tot) as TOTAL_CLIE, SUM(PE_CANT) AS CANT_CLIE, SUM(PE_COSTO_SIN) AS TOTAL_CLIE_SIN FROM PEDIDO WHERE PE_CLIENTE IN (Select CUENTA from cuentaa)") c.Position=0 Starter.db.ExecNonQuery("delete from pedido_cliente where PC_CLIENTE In (select cuenta from cuentaa)") If logger Then LogColor($"Insertamos coordenadas en pedido: ${Starter.lon_gps}, ${Starter.lat_gps}"$, Colors.Magenta) Starter.db.ExecNonQuery2("insert into pedido_cliente(PC_CLIENTE, PC_FECHA, PC_USER, PC_NOART, PC_MONTO,PC_LON, PC_LAT,PC_ALMACEN,PC_RUTA,PC_COSTO_SIN) VALUES (?,?,?,?,?,?,?,?,?,?)", Array As Object(clie_id, sDate & sTime, usuario, c.GetString("CANT_CLIE"),c.GetString("TOTAL_CLIE"), Starter.lon_gps, Starter.lat_gps,Id_Almacen,Starter.rutaV,c.GetString("TOTAL_CLIE_SIN"))) - Starter.db.ExecNonQuery("UPDATE kmt_info set gestion = 2 where CAT_CL_CODIGO In (select cuenta from cuentaa)") + Starter.db.ExecNonQuery("UPDATE kmt_info set gestion = 2 where CAT_CL_CODIGO In (select cuenta from cuentaa)") c.Close Starter.db.ExecNonQuery("delete from pedido_DOE where pe_cliente in (Select CUENTA from cuentaa)") @@ -3810,7 +3812,7 @@ private Sub pedido_doe_muestra C5.Position = 0 If C5.GetString("CLIENTE_DOE") >0 Then p_doe.VISIBLE = True - C6=Starter.db.ExecQuery("select PE_PROID, PE_PRONOMBRE, PE_CANT, PE_COSTO_TOT from PEDIDO_DOE where PE_CLIENTE IN (Select CUENTA from cuentaa)") + C6=Starter.db.ExecQuery("select PE_PROID, PE_PRONOMBRE, PE_CANT, PE_COSTO_TOT from PEDIDO_DOE where PE_CLIENTE IN (Select CUENTA from cuentaa)") LP_DOE.Clear If C6.RowCount>0 Then @@ -3828,7 +3830,7 @@ private Sub pedido_doe_muestra Next End If C6.Close - C6=Starter.db.ExecQuery("select SUM(PE_CANT) AS CANT, SUM(PE_COSTO_TOT) AS TOTAL from PEDIDO_DOE where PE_CLIENTE IN (Select CUENTA from cuentaa)") + C6=Starter.db.ExecQuery("select SUM(PE_CANT) AS CANT, SUM(PE_COSTO_TOT) AS TOTAL from PEDIDO_DOE where PE_CLIENTE IN (Select CUENTA from cuentaa)") C6.Position= 0 L_DOE_TOTAL.Text = "TOTAL PEDIDO DOE :"& C6.GetString("TOTAL") & " No. PIEZAS: " & C6.GetString("CANT") C6.Close diff --git a/B4A/C_Principal.bas b/B4A/C_Principal.bas index 21dbd4e..b72671e 100644 --- a/B4A/C_Principal.bas +++ b/B4A/C_Principal.bas @@ -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 ' /////////////////////////////////////////////////////////////////////////////////////////////////////////////// diff --git a/B4A/C_Productos.bas b/B4A/C_Productos.bas index 9f5ce6f..0ed2703 100644 --- a/B4A/C_Productos.bas +++ b/B4A/C_Productos.bas @@ -288,8 +288,8 @@ Sub lv_catalogos_ItemClick (Position As Int, Value As Object) label14.TextSize = 15 label14.TextColor = Colors.Black ' lfila.text = "PROMOS" -' c2=Starter.db.ExecQuery2("select CAT_GP_ID, CAT_GP_NOMBRE, CAT_GP_PRECIO, CAT_GP_ALMACEN, CAT_GP_IMG from " & query & " where CAT_GP_ALMACEN > 0 AND CAT_GP_TIPO = ? AND CAT_GP_SUBTIPO = ? AND CAT_GP_TIPOPROD <> 1 and (length(CAT_GP_CODPROMO) = 1 OR CAT_GP_CODPROMO = CAT_GP_ID)", Array As String(Value, Value)) - c2=Starter.db.ExecQuery2("select CAT_GP_ID, CAT_GP_NOMBRE, CAT_GP_PRECIO, CAT_GP_ALMACEN, CAT_GP_IMG from " & query & " where CAT_GP_ALMACEN > 0 AND CAT_GP_TIPO = ? AND CAT_GP_SUBTIPO =? AND CAT_GP_TIPOPROD <> 1 and (length(CAT_GP_CODPROMO) = 1 OR CAT_GP_CODPROMO = CAT_GP_ID) ", Array As String( Value, Value)) +' c2=Starter.db.ExecQuery2("select CAT_GP_ID, CAT_GP_NOMBRE, CAT_GP_PRECIO, CAT_GP_ALMACEN, CAT_GP_IMG from " & query & " where CAT_GP_ALMACEN > 0 AND CAT_GP_TIPO = ? AND CAT_GP_SUBTIPO = ? AND CAT_GP_TIPOPROD <> 1 and (length(CAT_GP_CODPROMO) = 1 OR CAT_GP_CODPROMO = CAT_GP_ID)", Array As String(Value, Value)) + c2=Starter.db.ExecQuery2("select CAT_GP_ID, CAT_GP_NOMBRE, CAT_GP_PRECIO, CAT_GP_ALMACEN, CAT_GP_IMG from " & query & " where CAT_GP_ALMACEN > 0 AND CAT_GP_TIPO = ? AND CAT_GP_SUBTIPO =? AND CAT_GP_TIPOPROD <> 1 and (length(CAT_GP_CODPROMO) = 1 OR CAT_GP_CODPROMO = CAT_GP_ID) ", Array As String( Value, Value)) ' Log($"Resultados : ${c2.RowCount}, ${Value}, ${marca}, ${tipo}"$) If c2.RowCount > 0 Then For i=0 To c2.RowCount -1 @@ -323,7 +323,7 @@ Sub lv_catalogos2_ItemClick (Position As Int, Value As Object) End If If Value = "PROMOS" Then LogColor("Promos", Colors.red) - c2=Starter.db.ExecQuery2("select CAT_GP_ID, CAT_GP_NOMBRE, CAT_GP_PRECIO, CAT_GP_ALMACEN, CAT_GP_IMG from cat_gunaprod2 where CAT_GP_PRECIO > 0 AND CAT_GP_ALMACEN > 0 and CAT_GP_TIPOPROD = ? AND CAT_GP_TIPO = ? AND CAT_GP_SUBTIPO = ? AND CAT_GP_ID NOT IN (SELECT PE_PROID FROM PEDIDO WHERE PE_CLIENTE IN (Select cuenta from cuentaa) )", Array As String(Value, marca, tipo)) + c2=Starter.db.ExecQuery2("select CAT_GP_ID, CAT_GP_NOMBRE, CAT_GP_PRECIO, CAT_GP_ALMACEN, CAT_GP_IMG from cat_gunaprod2 where CAT_GP_PRECIO > 0 AND CAT_GP_ALMACEN > 0 and CAT_GP_TIPOPROD = ? AND CAT_GP_TIPO = ? AND CAT_GP_SUBTIPO = ? AND CAT_GP_ID NOT IN (SELECT PE_PROID FROM PEDIDO WHERE PE_CLIENTE IN (Select cuenta from cuentaa) )", Array As String(Value, marca, tipo)) Else LogColor("Catalogo", Colors.red) c2=Starter.db.ExecQuery("select CAT_GP_ID, CAT_GP_NOMBRE, CAT_GP_PRECIO, CAT_GP_ALMACEN, CAT_GP_IMG, CAT_GP_TIPOPROD, CAT_GP_INICIATIVA from cat_gunaprod where CAT_GP_PRECIO > 0 AND CAT_GP_ALMACEN > 0 and CAT_GP_TIPOPROD <> 'PROMOS' ") @@ -474,23 +474,23 @@ End Sub Sub b_QR_Click If ciclo = 1 Then ciclo = 2 - ya_entro = "0" + ya_entro = "0" B4XPage_Appear else if ciclo = 2 Then ciclo = 3 - ya_entro = "0" + ya_entro = "0" B4XPage_Appear else if ciclo = 3 Then ciclo = 4 - ya_entro = "0" + ya_entro = "0" B4XPage_Appear else if ciclo = 4 Then ciclo = 5 - ya_entro = "0" + ya_entro = "0" B4XPage_Appear else if ciclo = 5 Then ciclo = 1 - ya_entro = "0" + ya_entro = "0" B4XPage_Appear End If End Sub @@ -657,7 +657,7 @@ Private Sub et_pCant_TextChanged (Old As String, New As String) laCant.text = "0" ' etCantHasFocus = True End If - If Not(Old = "0" And New = "") And laCant.Text <> Null And laCant.Text <> "" And etCantHasFocus Then + If Not(Old = "0" And New = "") And laCant.Text <> Null And laCant.Text <> "" And etCantHasFocus Then Subs.actualizaProducto(almacenX, precioX, laCant.Text, nombreX, id, clienteId, Subs.traeFecha, Subs.traeUsuarioDeBD, rutaUsuario, 0, B4XPages.MainPage.tipo_venta) cuentaProds End If @@ -884,7 +884,7 @@ Private Sub b_aceptar_Click End Sub Private Sub lv_prodsPedido_ItemLongClick (Position As Int, Value As Object) - c=Starter.db.ExecQuery("select count(*) as CUANTOS from CLIENTE_IMPRESO where CI_CUENTA in (Select CUENTA from cuentaa)") + c=Starter.db.ExecQuery("select count(*) as CUANTOS from CLIENTE_IMPRESO where CI_CUENTA in (Select CUENTA from cuentaa)") c.Position = 0 Log(list_prodsPedido) Log("lista prods="&list_prodsPedido.Get(Position)) @@ -914,7 +914,7 @@ Private Sub lv_prodsPedido_ItemLongClick (Position As Int, Value As Object) Log($"SUMAMOS ${m.get("cant")} a ${m.get("prodId")} "$) Starter.db.ExecNonQuery2($"update ${Subs.traeTablaProds(Starter.tipov)} set cat_gp_almacen = cat_gp_almacen + ? where cat_gp_id = ?"$, Array As Object(m.get("cant"), m.get("prodId"))) Log($"BORRAMOS ${Value}, ${m.Get("cedis")}"$) - Starter.db.ExecNonQuery2("delete from pedido where pe_pronombre = ? and pe_cedis = ? and pe_cant = ? and pe_cliente in (Select CUENTA from cuentaa)", Array As Object(Value, m.Get("cedis"), m.Get("cant"))) + Starter.db.ExecNonQuery2("delete from pedido where pe_pronombre = ? and pe_cedis = ? and pe_cant = ? and pe_cliente in (Select CUENTA from cuentaa)", Array As Object(Value, m.Get("cedis"), m.Get("cant"))) End If prod.Close DateTime.DateFormat = "MM/dd/yyyy" @@ -936,10 +936,10 @@ Private Sub lv_prodsPedido_ItemLongClick (Position As Int, Value As Object) Starter.db.ExecNonQuery("delete from pedido_cliente where PC_CLIENTE In (select cuenta from cuentaa)") Starter.db.ExecNonQuery2("insert into pedido_cliente(PC_CLIENTE, PC_FECHA, PC_USER, PC_NOART, PC_MONTO,PC_LON, PC_LAT) VALUES (?,?,?,?,?,?,?)", Array As Object(clie_id, sDate & sTime, usuario, c.GetString("CANT_CLIE"),c.GetString("TOTAL_CLIE"), B4XPages.MainPage.lon_gps, B4XPages.MainPage.lat_gps)) - Starter.db.ExecNonQuery("UPDATE kmt_info set gestion = 2 where CAT_CL_CODIGO In (select cuenta from cuentaa)") + Starter.db.ExecNonQuery("UPDATE kmt_info set gestion = 2 where CAT_CL_CODIGO In (select cuenta from cuentaa)") Else Starter.db.ExecNonQuery("delete from pedido_cliente where PC_CLIENTE In (select cuenta from cuentaa)") - Starter.db.ExecNonQuery("UPDATE kmt_info set gestion = 0 where CAT_CL_CODIGO In (select cuenta from cuentaa)") + Starter.db.ExecNonQuery("UPDATE kmt_info set gestion = 0 where CAT_CL_CODIGO In (select cuenta from cuentaa)") End If b_terminar1_Click End If @@ -1058,7 +1058,7 @@ Sub Busca_TextChanged (Old As String, New As String) forzarBusqueda = False If lfila.text = "PROMOCIONES" Then If Not(lv_promos.Visible) Then lv_promos.Visible = True - Private cPromo As Cursor=Starter.db.ExecQuery($"select CAT_GP_ID, CAT_GP_NOMBRE, CAT_GP_PRECIO, CAT_GP_ALMACEN, CAT_GP_IMG from ${query} where CAT_GP_NOMBRE like '%${New}%' and CAT_GP_ALMACEN > 0 AND CAT_GP_TIPO = 'PROMOS' AND CAT_GP_SUBTIPO = 'PROMOS' AND CAT_GP_TIPOPROD <> 1 and (length(CAT_GP_CODPROMO) = 1 OR CAT_GP_CODPROMO = CAT_GP_ID)"$) + Private cPromo As Cursor=Starter.db.ExecQuery($"select CAT_GP_ID, CAT_GP_NOMBRE, CAT_GP_PRECIO, CAT_GP_ALMACEN, CAT_GP_IMG from ${query} where CAT_GP_NOMBRE like '%${New}%' and CAT_GP_ALMACEN > 0 AND CAT_GP_TIPO = 'PROMOS' AND CAT_GP_SUBTIPO = 'PROMOS' AND CAT_GP_TIPOPROD <> 1 and (length(CAT_GP_CODPROMO) = 1 OR CAT_GP_CODPROMO = CAT_GP_ID)"$) Log($"res:${cPromo.RowCount}"$) If cPromo.RowCount > 0 Then lv_promos.Clear @@ -1113,7 +1113,7 @@ Sub LlenaProdsLL(p As ResultSet, extra As String) ' Log($"YA HAY RESULTSET ${p.RowCount}"$) Else ' Log("NO HAY RESULTSET") - Dim p As ResultSet = Starter.db.ExecQuery($"select CAT_GP_ID, CAT_GP_NOMBRE, CAT_GP_ALMACEN, CAT_GP_PRECIO, CAT_GP_TIPOPROD from ${Subs.traeTablaProds(Starter.tipov)} where CAT_GP_PRECIO > 0 And CAT_GP_CLASIF <> 'PROMOS' order by CAT_GP_NOMBRE"$) + Dim p As ResultSet = Starter.db.ExecQuery($"select CAT_GP_ID, CAT_GP_NOMBRE, CAT_GP_ALMACEN, CAT_GP_PRECIO, CAT_GP_TIPOPROD from ${Subs.traeTablaProds(Starter.tipov)} where CAT_GP_PRECIO > 0 And CAT_GP_CLASIF <> 'PROMOS' order by CAT_GP_NOMBRE"$) End If Do While p.NextRow diff --git a/B4A/C_Subs.bas b/B4A/C_Subs.bas index fc2c1bf..188e185 100644 --- a/B4A/C_Subs.bas +++ b/B4A/C_Subs.bas @@ -9,30 +9,38 @@ Sub Class_Globals 'These variables can be accessed from all modules. ' Public GZip As GZipStrings 'Usa la libreria CompressStrings ' Private su As StringUtils 'Usa la libreria StringUtils + Private EventName As String 'ignore + Private CallBack As Object 'ignore Dim phn As Phone - Dim db As SQL Dim devModel As String - Dim kmt, errorLog As SQL 'Requiere la libreria "SQL" 'ignore + Dim db, kmt, errorLog As SQL 'Requiere la libreria "SQL" 'ignore ' Dim wifi As MLwifi Dim ssid As String 'ignore -' Dim rutaMaxPoints As Int = 3000 -' Dim rutaHrsAtras As Int = 48 -' Dim rutaInicioHoy As String = "" Private subsLogs As Boolean = False End Sub 'You can add more parameters here. -Public Sub Initialize As Object +Public Sub Initialize (vCallback As Object, vEventName As String) As Object + EventName = vEventName + CallBack = vCallback Return Me End Sub 'Inicializa la BD con "kmt.db" en File.DirInternal, si el archivo no existe, lo copia desde File.DirAssets. +'Dispara el evento "dbOk" cuando termina. Sub dbInit As SQL If File.Exists(File.DirInternal, "kmt.db") = False Then File.Copy(File.DirAssets, "kmt.db", File.DirInternal, "kmt.db") db.Initialize(File.DirInternal,"kmt.db", True) + dbOk(True) Return db End Sub +Sub dbOk(Success As Boolean) + If SubExists(CallBack, EventName & "_dbOk") Then + CallSub2(CallBack, EventName & "_dbOk", Success) + End If +End Sub + 'Pone el valor de phn.Model en la variable global "devModel" Sub getPhnId As String 'ignore 'Requiere la libreria "Phone" @@ -64,34 +72,6 @@ Sub fechaKMT(fecha As String) As String 'ignore Return nuevaFecha End Sub -'Genera una notificacion con importancia alta -'Sub notiHigh(title As String, body As String, activity As Object) 'ignore -' Private notif As Notification -' notif.Initialize2(notif.IMPORTANCE_HIGH) -' notif.Icon = "icon" -' notif.Vibrate = False -' notif.Sound = False -' notif.AutoCancel = True -' Log("notiHigh: "&title) -' notif.SetInfo(title, body, activity) -'' Log("notiHigh SetInfo") -' notif.Notify(777) -'End Sub - -'Regresa el objeto de una notificacion con importancia baja -'Sub notiLowReturn(title As String, Body As String, id As Int) As Notification 'ignore -' Private notification As Notification -' notification.Initialize2(notification.IMPORTANCE_LOW) -' Log("notiLowReturn: "&title) -' notification.Icon = "icon" -' notification.Sound = False -' notification.Vibrate = False -' notification.SetInfo(title, Body, Main) -' notification.Notify(id) -'' Log("notiLowReturn SetInfo") -' Return notification -'End Sub - 'Escribimos las coordenadas y fecha a un archivo de texto Sub guardaInfoEnArchivo(coords As String) 'ignore ' Cambiamos el formato de la hora @@ -135,7 +115,6 @@ Sub deleteErrorLog_DB 'ignore ToastMessageShow("BD Errores Borrada", False) End Sub - 'Mandamos "coords" en un mensaje a "Sprvsr" 'Sub mandamosLoc(coords As String) 'ignore '' Log("Iniciamos mandamosLoc "&coords) @@ -256,7 +235,7 @@ Sub InstallAPK(dir As String, apk As String) 'ignore End If End Sub -'Copia la base de datos del almacenamiento interno al externo en el directorio kmts +'Copia la base de datos del almacenamiento interno al externo en el directorio kmts. Sub copiaDB(result As Boolean) 'ignore ToastMessageShow("copiaDB", False) If result Then @@ -290,7 +269,7 @@ Sub copiaDB(result As Boolean) 'ignore End If End Sub -'Hace visible y trae al frente el panel con los parametros "Top" y "Left" dados +'Hace visible y trae al frente el panel con los parametros "Top" y "Left" dados. Sub panelVisible(panel As Panel, top As Int, left As Int) 'ignore panel.BringToFront panel.Visible = True @@ -298,22 +277,22 @@ Sub panelVisible(panel As Panel, top As Int, left As Int) 'ignore panel.Left = left End Sub -'Centra una etiqueta dentro de un elemento superior +'Centra una etiqueta dentro de un elemento superior. Sub centraEtiqueta(elemento As Label, anchoElementoSuperior As Int) 'ignore elemento.Left = Round(anchoElementoSuperior/2)-(elemento.Width/2) End Sub -'Centra un panel horizontalmente dentro de un elemento superior +'Centra un panel horizontalmente dentro de un elemento superior. Sub centraPanel(elemento As Panel, anchoElementoSuperior As Int) 'ignore elemento.Left = Round(anchoElementoSuperior/2)-(elemento.Width/2) End Sub -'Centra un panel verticalmente dentro de un elemento superior +'Centra un panel verticalmente dentro de un elemento superior. Sub centraPanelV(elemento As Panel, altoElementoSuperior As Int) 'ignore elemento.Top = Round(altoElementoSuperior/2)-(elemento.Height/2) End Sub -'Centra una barra de progreso dentro de un elemento superior +'Centra una barra de progreso dentro de un elemento superior. Sub centraProgressBar(elemento As ProgressBar, anchoElementoSuperior As Int) 'ignore elemento.Left = Round(anchoElementoSuperior/2)-(elemento.Width/2) End Sub @@ -328,10 +307,11 @@ Sub buscaDBUsuario As String 'ignore Return usuario End Sub +'Regresa la fecha en el formato "MM/dd/yyyy" Sub traeFecha As String 'ignore DateTime.DateFormat = "MM/dd/yyyy" - Private sDate As String =DateTime.Date(DateTime.Now) - Private sTime As String =DateTime.Time(DateTime.Now) + Private sDate As String = DateTime.Date(DateTime.Now) + Private sTime As String = DateTime.Time(DateTime.Now) Return sDate & sTime End Sub @@ -352,7 +332,7 @@ Sub logJobDoneResultados(resultado As DBResult) 'ignore Next End Sub -'Regresa la base de datos espscificada ya inicializada. +'Regresa la base de datos especificada ya inicializada. Sub inicializaBD(ruta As String, BDName As String) As SQL Dim skmt As SQL If File.Exists(ruta, BDName) = False Then @@ -384,7 +364,7 @@ Sub agregaColumna(tabla As String, columna As String, tipo As String) 'ignore End Try End Sub -'Regresa el el DBReqServer desde la base de datos o "N/A" si no existe. +'Regresa el DBReqServer desde CAT_VARIABLES o "N/A" si no existe. Sub traeDBReqServerDeBD As String 'ignore Dim srvr As String = "N/A" Dim rs As ResultSet = Starter.db.ExecQuery("select valor from cat_variables where nombre = 'servidor'") @@ -395,7 +375,7 @@ Sub traeDBReqServerDeBD As String 'ignore Return srvr End Sub -'Regresa el el intervalo desde la base de datos o "30" si no existe. +'Regresa el valor de intervalo desde CAT_VARIABLES o "30" si no existe. Sub traeIntervaloDeBD As String 'ignore Dim intrvl As String = "30" Dim rs As ResultSet = Starter.db.ExecQuery("select valor from cat_variables where nombre = 'intervalo'") @@ -406,7 +386,7 @@ Sub traeIntervaloDeBD As String 'ignore Return intrvl End Sub -'Regresa el timeout desde la base de datos o "9000" si no existe. +'Regresa el valor timeout desde CAT_VARIABLES o "9000" si no existe. Sub traeTimeoutDeBD As String 'ignore Dim tmout As String = "9000" Dim rs As ResultSet = Starter.db.ExecQuery("select valor from cat_variables where nombre = 'timeout'") @@ -417,6 +397,7 @@ Sub traeTimeoutDeBD As String 'ignore Return tmout End Sub +'Crea una notificación con el "body" dado y regresa el objeto. Sub CreateNotification (Body As String) As Notification Dim notification As Notification notification.Initialize2(notification.IMPORTANCE_LOW) diff --git a/B4A/KelloggsV4.b4a b/B4A/KelloggsV4.b4a index 4a7baab..b72d2fc 100644 --- a/B4A/KelloggsV4.b4a +++ b/B4A/KelloggsV4.b4a @@ -135,7 +135,7 @@ Library6=camera Library7=contentresolver Library8=core Library9=fileprovider -ManifestCode='This code will be applied to the manifest file during compilation.~\n~'You do not need to modify it in most cases.~\n~'See this link for for more information: https://www.b4x.com/forum/showthread.php?p=78136~\n~AddManifestText(~\n~~\n~)~\n~SetApplicationAttribute(android:icon, "@drawable/icon")~\n~SetApplicationAttribute(android:label, "$LABEL$")~\n~CreateResourceFromFile(Macro, Themes.LightTheme)~\n~'End of default text.~\n~~\n~AddApplicationText(~\n~)~\n~'Set activity to Landscape~\n~SetActivityAttribute(foto, android:screenOrientation, "landscape")~\n~AddApplicationText(~\n~~\n~ ~\n~)~\n~AddManifestText(~\n~~\n~)~\n~'''' para el teclado~\n~ SetActivityAttribute(main, android:windowSoftInputMode, adjustResize|stateHidden)~\n~ SetApplicationAttribute(android:allowBackup, "false")~\n~ SetServiceAttribute(Tracker, android:foregroundServiceType, "location")~\n~ ~\n~ AddManifestText(~\n~~\n~)~\n~''CreateResourceFromFile(Macro, FirebaseAnalytics.GooglePlayBase)~\n~ 'End of default text.~\n~ ~\n~SetApplicationAttribute(android:usesCleartextTraffic, "true")~\n~ AddManifestText(~\n~~\n~)~\n~AddPermission(android.permission.ACCESS_BACKGROUND_LOCATION)~\n~AddManifestText(~\n~~\n~)~\n~AddManifestText(~\n~~\n~)~\n~AddManifestText(~\n~~\n~)~\n~AddManifestText(~\n~~\n~)~\n~AddPermission(android.permission.ACCESS_FINE_LOCATION)~\n~AddPermission(android.permission.BLUETOOTH_ADVERTISE)~\n~AddPermission(android.permission.BLUETOOTH_CONNECT)~\n~AddPermission(android.permission.BLUETOOTH_SCAN)~\n~AddManifestText(~\n~~\n~) 'in order to access the device non-resettable identifiers such as IMEI and serial number.~\n~~\n~'///////////////////////// FLP Y PUSH /////////////~\n~' CreateResourceFromFile(Macro, FirebaseAnalytics.GooglePlayBase)~\n~' CreateResourceFromFile(Macro, FirebaseAnalytics.Firebase)~\n~' CreateResourceFromFile(Macro, FirebaseAnalytics.FirebaseAnalytics)~\n~' CreateResourceFromFile(Macro, FirebaseNotifications.FirebaseNotifications)~\n~ SetServiceAttribute(Tracker, android:foregroundServiceType, "location")~\n~'//////////////////////////////////////////////////////~\n~'Le da mas memoria a la aplicacion~\n~SetApplicationAttribute(android:largeHeap, "true")~\n~ AddApplicationText(~\n~ ~\n~ ~\n~ ~\n~ )~\n~ CreateResource(xml, provider_paths,~\n~ ~\n~ ~\n~ ~\n~ ~\n~ ~\n~ )~\n~~\n~'Si al cargar un mapa de google manda este error "java.lang.NoClassDefFoundError: Failed resolution of: Lorg/apache/http/ProtocolVersion". agregar la siguiente linea:~\n~AddApplicationText()~\n~SetApplicationAttribute(android:allowBackup, "false")~\n~AddManifestText() +ManifestCode='This code will be applied to the manifest file during compilation.~\n~'You do not need to modify it in most cases.~\n~'See this link for for more information: https://www.b4x.com/forum/showthread.php?p=78136~\n~AddManifestText(~\n~~\n~)~\n~SetApplicationAttribute(android:icon, "@drawable/icon")~\n~SetApplicationAttribute(android:label, "$LABEL$")~\n~CreateResourceFromFile(Macro, Themes.LightTheme)~\n~'End of default text.~\n~~\n~AddApplicationText(~\n~)~\n~'Set activity to Landscape~\n~SetActivityAttribute(foto, android:screenOrientation, "landscape")~\n~AddApplicationText(~\n~~\n~ ~\n~)~\n~AddManifestText(~\n~~\n~)~\n~'''' para el teclado~\n~ SetActivityAttribute(main, android:windowSoftInputMode, adjustResize|stateHidden)~\n~ SetApplicationAttribute(android:allowBackup, "false")~\n~ SetServiceAttribute(Tracker, android:foregroundServiceType, "location")~\n~ ~\n~ AddManifestText(~\n~~\n~)~\n~''CreateResourceFromFile(Macro, FirebaseAnalytics.GooglePlayBase)~\n~ 'End of default text.~\n~ ~\n~SetApplicationAttribute(android:usesCleartextTraffic, "true")~\n~ AddManifestText(~\n~~\n~)~\n~AddPermission(android.permission.ACCESS_BACKGROUND_LOCATION)~\n~AddManifestText(~\n~~\n~)~\n~AddManifestText(~\n~~\n~)~\n~AddManifestText(~\n~~\n~)~\n~AddManifestText(~\n~~\n~)~\n~AddManifestText(~\n~~\n~)~\n~AddPermission(android.permission.ACCESS_FINE_LOCATION)~\n~AddPermission(android.permission.BLUETOOTH_ADVERTISE)~\n~AddPermission(android.permission.BLUETOOTH_CONNECT)~\n~AddPermission(android.permission.BLUETOOTH_SCAN)~\n~AddManifestText(~\n~~\n~) 'in order to access the device non-resettable identifiers such as IMEI and serial number.~\n~~\n~'///////////////////////// FLP Y PUSH /////////////~\n~' CreateResourceFromFile(Macro, FirebaseAnalytics.GooglePlayBase)~\n~' CreateResourceFromFile(Macro, FirebaseAnalytics.Firebase)~\n~' CreateResourceFromFile(Macro, FirebaseAnalytics.FirebaseAnalytics)~\n~' CreateResourceFromFile(Macro, FirebaseNotifications.FirebaseNotifications)~\n~ SetServiceAttribute(Tracker, android:foregroundServiceType, "location")~\n~'//////////////////////////////////////////////////////~\n~'Le da mas memoria a la aplicacion~\n~SetApplicationAttribute(android:largeHeap, "true")~\n~ AddApplicationText(~\n~ ~\n~ ~\n~ ~\n~ )~\n~ CreateResource(xml, provider_paths,~\n~ ~\n~ ~\n~ ~\n~ ~\n~ ~\n~ )~\n~~\n~'Si al cargar un mapa de google manda este error "java.lang.NoClassDefFoundError: Failed resolution of: Lorg/apache/http/ProtocolVersion". agregar la siguiente linea:~\n~AddApplicationText()~\n~SetApplicationAttribute(android:allowBackup, "false")~\n~AddManifestText() Module1=B4XMainPage Module10=C_Pedidos Module11=C_Principal diff --git a/B4A/Starter.bas b/B4A/Starter.bas index 7e78173..58ad8ce 100644 --- a/B4A/Starter.bas +++ b/B4A/Starter.bas @@ -56,7 +56,7 @@ End Sub Sub Service_Create 'This is the program entry point. 'This is a good place to load resources that are not specific to a single activity. - s.Initialize 'Inicializamos la clase Subs + s.Initialize(Me, "Subs") 'Inicializamos la clase Subs If Logger Then LogColor("'/////////////////////////////////////////////////////////////////////////////////////////////", Colors.Green) If Logger Then LogColor("'///////////////////////////////////// Iniciamos Starter /////////////////////////////////", Colors.Green) If Logger Then LogColor("'/////////////////////////////////////////////////////////////////////////////////////////////", Colors.Green) @@ -93,6 +93,10 @@ Sub Service_Start (StartingIntent As Intent) #End If End Sub +Sub Subs_dbOk(success As Boolean) + LogColor($"Conexión con base de datos: ${success}"$, Colors.red) +End Sub + Sub Service_TaskRemoved 'This event will be raised when the user removes the app from the recent apps list. Timer1.Enabled=False