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