From 7d7796748da1083f2ea3bbdeae714b367693dabb Mon Sep 17 00:00:00 2001 From: cvaldes1201 Date: Fri, 2 Feb 2024 11:05:17 -0600 Subject: [PATCH] V_FINAL --- B4A/C_Cliente.bas | 4 +- B4A/C_Clientes.bas | 190 +++++++++++++++++++++++++++++++------- B4A/C_Principal.bas | 107 +++++++++++++++++++++ B4A/C_Productos.bas | 1 + B4A/Files/clientes.bal | Bin 5842 -> 6747 bytes B4A/Files/promociones.bal | Bin 10725 -> 10725 bytes B4A/INTMEX_LL.b4a | 2 +- B4A/INTMEX_LL.b4a.meta | 6 +- B4A/Subs.bas | 12 +++ 9 files changed, 284 insertions(+), 38 deletions(-) diff --git a/B4A/C_Cliente.bas b/B4A/C_Cliente.bas index 923b8e3..01fd342 100644 --- a/B4A/C_Cliente.bas +++ b/B4A/C_Cliente.bas @@ -240,7 +240,7 @@ Sub B4XPage_Appear p_abono.Visible = False Subs.centraPanel(p_abono, Root.Width) skmt.Initialize(ruta,"kmt.db", True) - c=B4XPages.MainPage.skmt.ExecQuery("select CAT_CL_CODIGO,CAT_CL_RUTA,CAT_CL_NOMBRE,CAT_CL_ATIENDE1,CAT_CL_ATIENTE2,CAT_CL_TELEFONO,CAT_CL_EMAIL,CAT_CL_CALLE,CAT_CL_NOEXT,CAT_CL_NOINT,CAT_CL_CALLE1,CAT_CL_CALLE2,CAT_CL_COLONIA,CAT_CL_MUNI,CAT_CL_EDO,CAT_CL_CP,CAT_CL_LONG,CAT_CL_LAT,CAT_CL_MTOCOMPRA,CAT_CL_NUM_SERIEFISICO from kmt_info where CAT_CL_CODIGO In (Select cuenta from cuentaa)") + c=B4XPages.MainPage.skmt.ExecQuery("select CAT_CL_CODIGO,CAT_CL_RUTA,CAT_CL_NOMBRE,CAT_CL_ATIENDE1,CAT_CL_ATIENTE2,CAT_CL_TELEFONO,CAT_CL_EMAIL,CAT_CL_CALLE,CAT_CL_NOEXT,CAT_CL_NOINT,CAT_CL_CALLE1,CAT_CL_CALLE2,CAT_CL_COLONIA,CAT_CL_MUNI,CAT_CL_EDO,CAT_CL_CP,CAT_CL_LONG,CAT_CL_LAT,CAT_CL_MTOCOMPRA,CAT_CL_NUM_SERIEFISICO from kmt_info where CAT_CL_CODIGO In (Select cuenta from cuentaa) UNION ALL select CAT_CL_CODIGO,CAT_CL_RUTA,CAT_CL_NOMBRE,CAT_CL_ATIENDE1,CAT_CL_ATIENTE2,CAT_CL_TELEFONO,CAT_CL_EMAIL,CAT_CL_CALLE,CAT_CL_NOEXT,CAT_CL_NOINT,CAT_CL_CALLE1,CAT_CL_CALLE2,CAT_CL_COLONIA,CAT_CL_MUNI,CAT_CL_EDO,CAT_CL_CP,CAT_CL_LONG,CAT_CL_LAT,CAT_CL_MTOCOMPRA,CAT_CL_NUM_SERIEFISICO from kmt_info2 where CAT_CL_CODIGO In (Select cuenta from cuentaa)") s=B4XPages.MainPage.skmt.ExecQuery("Select SUM(PE_COSTO_TOT) As TOTAL_CLIE, SUM(PE_CANT) As CANT_CLIE, PC_FACTURA FROM PEDIDO_CLIENTE INNER JOIN PEDIDO ON PEDIDO_CLIENTE.PC_CLIENTE = PEDIDO.PE_CLIENTE WHERE (PE_CLIENTE IN (Select cuenta from cuentaa))") b = B4XPages.MainPage.skmt.ExecQuery("select COUNT(*) AS CLIENTE FROM ABONOSP WHERE CLIENTE IN (Select CUENTA from cuentaa)") b.Position = 0 @@ -906,7 +906,7 @@ End Sub Sub JobDone(Job As HttpJob) ' Log(Job.Success) If Job.Success = False Then - ToastMessageShow("Error: " & Job.ErrorMessage, True) +' ToastMessageShow("Error: " & Job.ErrorMessage, True) Else LogColor("JobDone: '" & reqManager.HandleJob(Job).tag & "' - Registros: " & reqManager.HandleJob(Job).Rows.Size, Colors.Green) 'Mod por CHV - 211027 If Job.JobName = "DBRequest" Then diff --git a/B4A/C_Clientes.bas b/B4A/C_Clientes.bas index a6b8838..e7a5bea 100644 --- a/B4A/C_Clientes.bas +++ b/B4A/C_Clientes.bas @@ -34,6 +34,9 @@ Sub Class_Globals Private direccion As Label Private cxc As Label Private p_datosclie As Panel + Private b_buscar As Button + Private CHECK As Int + Private l_baseodia As Label End Sub 'You can add more parameters here. @@ -66,6 +69,8 @@ Private Sub B4XPage_Created (Root1 As B4XView) End Sub Sub B4XPage_Appear + l_baseodia.Text = "Clientes del día de visita" + CHECK = 0 busca.Text = "" entro ="2" colonia = 0 @@ -178,41 +183,79 @@ Private Sub B4XPage_CloseRequest As ResumableSub End Sub Sub BUSCA_TextChanged (Old As String, New As String) - q_buscar = "%" & busca.Text & "%" - c2=B4XPages.MainPage.skmt.ExecQuery2("select CAT_CL_NOMBRE, CAT_CL_CALLE, CAT_CL_CODIGO from kmt_info where (CAT_CL_NOMBRE like ? OR CAT_CL_CODIGO LIKE ? OR CAT_CL_CALLE LIKE ?)and gestion = 0 order by CAT_CL_NOMBRE ", Array As String(q_buscar,q_buscar,q_buscar)) - ListView1.Clear - lfila.text = "Nombre y Calle" + If CHECK = 0 Then + q_buscar = "%" & busca.Text & "%" + c2=B4XPages.MainPage.skmt.ExecQuery2("select CAT_CL_NOMBRE, CAT_CL_CALLE, CAT_CL_CODIGO from kmt_info where (CAT_CL_NOMBRE like ? OR CAT_CL_CODIGO LIKE ? OR CAT_CL_CALLE LIKE ?)and gestion = 0 order by CAT_CL_NOMBRE ", Array As String(q_buscar,q_buscar,q_buscar)) + ListView1.Clear + lfila.text = "Nombre y Calle" - CustomListView1.Clear - For i = 0 To c2.RowCount - 1 - c2.Position = i - CustomListView1.Add(CreateListItem(c2.GetString("CAT_CL_NOMBRE"),c2.GetString("CAT_CL_CALLE"),c2.GetString("CAT_CL_CODIGO")),i) - d = B4XPages.MainPage.skmt.ExecQuery($"select CLIENTE FROM ABONOSP WHERE CLIENTE = '${c2.GetString("CAT_CL_CODIGO")}'"$) - If d.RowCount = 0 Then - cxc.Visible = False - Else - cxc.Visible = True - End If - d.Close - Next - - - If c2.RowCount>0 Then - For i=0 To c2.RowCount -1 - c2.Position=i - Dim label1 As Label - label1 = ListView1.TwoLinesLayout.Label - label1.TextSize = 9 - label1.TextColor = Colors.White - Dim label2 As Label - label2 = ListView1.TwoLinesLayout.SecondLabel - label2.TextSize = 17 - label2.TextColor = Colors.White - ListView1.AddTwoLines(c2.GetString("CAT_CL_CODIGO"), c2.GetString("CAT_CL_NOMBRE") &" CALLE: "& c2.GetString("CAT_CL_CALLE")) + CustomListView1.Clear + For i = 0 To c2.RowCount - 1 + c2.Position = i + CustomListView1.Add(CreateListItem(c2.GetString("CAT_CL_NOMBRE"),c2.GetString("CAT_CL_CALLE"),c2.GetString("CAT_CL_CODIGO")),i) + d = B4XPages.MainPage.skmt.ExecQuery($"select CLIENTE FROM ABONOSP WHERE CLIENTE = '${c2.GetString("CAT_CL_CODIGO")}'"$) + If d.RowCount = 0 Then + cxc.Visible = False + Else + cxc.Visible = True + End If + d.Close Next + + + If c2.RowCount>0 Then + For i=0 To c2.RowCount -1 + c2.Position=i + Dim label1 As Label + label1 = ListView1.TwoLinesLayout.Label + label1.TextSize = 9 + label1.TextColor = Colors.White + Dim label2 As Label + label2 = ListView1.TwoLinesLayout.SecondLabel + label2.TextSize = 17 + label2.TextColor = Colors.White + ListView1.AddTwoLines(c2.GetString("CAT_CL_CODIGO"), c2.GetString("CAT_CL_NOMBRE") &" CALLE: "& c2.GetString("CAT_CL_CALLE")) + Next + End If + entro = "4" + c2.Close + Else If CHECK = 1 Then + q_buscar = "%" & busca.Text & "%" + c2=B4XPages.MainPage.skmt.ExecQuery2("select CAT_CL_NOMBRE, CAT_CL_CALLE, CAT_CL_CODIGO from kmt_info2 where (CAT_CL_NOMBRE like ? OR CAT_CL_CODIGO LIKE ? OR CAT_CL_CALLE LIKE ?)and gestion = 0 order by CAT_CL_NOMBRE ", Array As String(q_buscar,q_buscar,q_buscar)) + ListView1.Clear + lfila.text = "Nombre y Calle" + + CustomListView1.Clear + For i = 0 To c2.RowCount - 1 + c2.Position = i + CustomListView1.Add(CreateListItem(c2.GetString("CAT_CL_NOMBRE"),c2.GetString("CAT_CL_CALLE"),c2.GetString("CAT_CL_CODIGO")),i) + d = B4XPages.MainPage.skmt.ExecQuery($"select CLIENTE FROM ABONOSP WHERE CLIENTE = '${c2.GetString("CAT_CL_CODIGO")}'"$) + If d.RowCount = 0 Then + cxc.Visible = False + Else + cxc.Visible = True + End If + d.Close + Next + + + If c2.RowCount>0 Then + For i=0 To c2.RowCount -1 + c2.Position=i + Dim label1 As Label + label1 = ListView1.TwoLinesLayout.Label + label1.TextSize = 9 + label1.TextColor = Colors.White + Dim label2 As Label + label2 = ListView1.TwoLinesLayout.SecondLabel + label2.TextSize = 17 + label2.TextColor = Colors.White + ListView1.AddTwoLines(c2.GetString("CAT_CL_CODIGO"), c2.GetString("CAT_CL_NOMBRE") &" CALLE: "& c2.GetString("CAT_CL_CALLE")) + Next + End If + entro = "4" + c2.Close End If - entro = "4" - c2.Close End Sub Sub b_qr_Click @@ -314,4 +357,87 @@ Private Sub p_datosclie_Click ' Log(Sender.As(Panel).tag) +End Sub + +Private Sub b_buscar_Click + Log(CHECK) + If CHECK = 0 Then + l_baseodia.Text = "Clientes de base de datos" + CHECK = 1 + busca.Text = "" + entro ="2" + colonia = 0 + c=B4XPages.MainPage.skmt.ExecQuery("select CAT_CL_NOMBRE, CAT_CL_CALLE, CAT_CL_CODIGO from kmt_info2 where gestion = 0 ORDER BY CAT_CL_CODIGO") + ListView1.Clear + lfila.Text = "NOMBRE" + ListView1.Clear + CustomListView1.Clear + For i = 0 To c.RowCount - 1 + c.Position = i + CustomListView1.Add(CreateListItem(c.GetString("CAT_CL_NOMBRE"),c.GetString("CAT_CL_CALLE"),c.GetString("CAT_CL_CODIGO")),i) + d = B4XPages.MainPage.skmt.ExecQuery($"select CLIENTE FROM ABONOSP WHERE CLIENTE = '${c.GetString("CAT_CL_CODIGO")}'"$) + If d.RowCount = 0 Then + cxc.Visible = False + Else + cxc.Visible = True + End If + d.Close + Next + If c.RowCount>0 Then + For i=0 To c.RowCount -1 + c.Position=i + Dim label1 As Label + label1 = ListView1.TwoLinesLayout.Label + label1.TextSize = 13 + label1.TextColor = Colors.Black + Dim label2 As Label + label2 = ListView1.TwoLinesLayout.SecondLabel + label2.TextSize = 13 + label2.TextColor = Colors.Black + ListView1.AddTwoLines(c.GetString("CAT_CL_CODIGO"), c.GetString("CAT_CL_NOMBRE")) + Next + End If + c.Close + entro = "4" + + Else If CHECK = 1 Then + l_baseodia.Text = "Clientes del día de visita" + CHECK = 0 + busca.Text = "" + entro ="2" + colonia = 0 + c=B4XPages.MainPage.skmt.ExecQuery("select CAT_CL_NOMBRE, CAT_CL_CALLE, CAT_CL_CODIGO from kmt_info where gestion = 0 ORDER BY CAT_CL_CODIGO") + ListView1.Clear + lfila.Text = "NOMBRE" + ListView1.Clear + CustomListView1.Clear + For i = 0 To c.RowCount - 1 + c.Position = i + CustomListView1.Add(CreateListItem(c.GetString("CAT_CL_NOMBRE"),c.GetString("CAT_CL_CALLE"),c.GetString("CAT_CL_CODIGO")),i) + d = B4XPages.MainPage.skmt.ExecQuery($"select CLIENTE FROM ABONOSP WHERE CLIENTE = '${c.GetString("CAT_CL_CODIGO")}'"$) + If d.RowCount = 0 Then + cxc.Visible = False + Else + cxc.Visible = True + End If + d.Close + Next + If c.RowCount>0 Then + For i=0 To c.RowCount -1 + c.Position=i + Dim label1 As Label + label1 = ListView1.TwoLinesLayout.Label + label1.TextSize = 13 + label1.TextColor = Colors.Black + Dim label2 As Label + label2 = ListView1.TwoLinesLayout.SecondLabel + label2.TextSize = 13 + label2.TextColor = Colors.Black + ListView1.AddTwoLines(c.GetString("CAT_CL_CODIGO"), c.GetString("CAT_CL_NOMBRE")) + Next + End If + c.Close + entro = "4" + + End If End Sub \ No newline at end of file diff --git a/B4A/C_Principal.bas b/B4A/C_Principal.bas index 4c50c94..48cc49e 100644 --- a/B4A/C_Principal.bas +++ b/B4A/C_Principal.bas @@ -314,6 +314,61 @@ Private Sub B4XPage_Created (Root1 As B4XView) l_rutasuplencia.Visible = True l_rutasuplencia.Text = s.GetString("RS_RUTA") End If + + Starter.Skmt.ExecNonQuery($"create table if not exists kmt_info2 (${getTableColumnList(Starter.skmt, "kmt_info")})"$) +End Sub + +Sub chkIfTableExists(db As SQL, table As String) As Boolean 'ignore + Private t As Boolean = False 'ignore + If db.IsInitialized Then + Private c As Cursor = Starter.skmt.ExecQuery($"SELECT name FROM sqlite_master WHERE type='table' AND name='${table}'"$) + If c.RowCount > 0 Then t = True + c.Close + End If + Return t +End Sub + +'Regresa solo los nombres de las columnas de una tabla dada. +Sub getTableColumnListName(db As SQL, table As String) As String 'ignore + Private l As String = "" + If chkIfTableExists(db, table) Then + Private c As Cursor = Starter.skmt.ExecQuery($"pragma table_info(${table})"$) + If c.RowCount > 0 Then + For i = 0 To c.RowCount - 1 + c.Position = i + If l.Length = 0 Then + l = $"${c.GetString("name")}"$ + Else + l = $"${l}, ${c.GetString("name")}"$ + End If + Next + End If + Else + Return "No existe la tabla." + End If + c.Close + Return l +End Sub + +Sub getTableColumnList(db As SQL, table As String) As String 'ignore + Private l As String = "" + If chkIfTableExists(db, table) Then + Private c As Cursor = Starter.skmt.ExecQuery($"pragma table_info(${table})"$) + If c.RowCount > 0 Then + For i = 0 To c.RowCount - 1 + c.Position = i + If l.Length = 0 Then + l = $"${c.GetString("name")} ${c.GetString("type")}"$ + Else + l = $"${l}, ${c.GetString("name")} ${c.GetString("type")}"$ + End If + Next + End If + Else + Return "No existe la tabla." + End If + c.Close + Return l End Sub Sub B4XPage_Appear @@ -748,6 +803,7 @@ Sub cargar_Click ' NUEVOS CLIENTE B4XPages.MainPage.skmt.ExecNonQuery("delete from CLIENTE_NUEVO") B4XPages.MainPage.skmt.ExecNonQuery("delete from kmt_info") + B4XPages.MainPage.skmt.ExecNonQuery("delete from kmt_info2") B4XPages.MainPage.skmt.ExecNonQuery("delete from cod_result") B4XPages.MainPage.skmt.ExecNonQuery("delete from hist_gest") B4XPages.MainPage.skmt.ExecNonQuery("delete from cat_gunaprod") @@ -824,6 +880,11 @@ Sub cargar_Click cmd.Name = "select_cat_clientes_INTMEX" cmd.Parameters = Array As Object(e_ruta.text, ALMACEN) B4XPages.MainPage.reqManager.ExecuteQuery(cmd , 0, "kmt_datos") + + cmd.Initialize + cmd.Name = "select_cat_clientes_todos_INTMEX" + cmd.Parameters = Array As Object(e_ruta.text, ALMACEN) + B4XPages.MainPage.reqManager.ExecuteQuery(cmd , 0, "kmt_datos_todos") cmd.Initialize cmd.Name = "select_hist_datos_INTMEX_2" @@ -856,6 +917,11 @@ Sub cargar_Click cmd.Name = "select_cat_clientes_INTMEX" cmd.Parameters = Array As Object(E_RUTA2.text, ALMACEN) B4XPages.MainPage.reqManager.ExecuteQuery(cmd , 0, "kmt_datos") + + cmd.Initialize + cmd.Name = "select_cat_clientes_todos_INTMEX" + cmd.Parameters = Array As Object(E_RUTA2.text, ALMACEN) + B4XPages.MainPage.reqManager.ExecuteQuery(cmd , 0, "kmt_datos_todos") cmd.Initialize cmd.Name = "select_hist_datos_INTMEX" @@ -1035,6 +1101,46 @@ Sub JobDone(Job As HttpJob) End If End If End If + + If Job.JobName = "DBRequest" Then + Dim RESULT As DBResult = B4XPages.MainPage.reqManager.HandleJob(Job) + If RESULT.Tag = "kmt_datos_todos" Then 'query tag + S_CC.TEXT = "CARGANDO" + For Each records() As Object In RESULT.Rows + Dim CAT_CL_CODIGO As String = records(RESULT.Columns.Get("CAT_CL_CODIGO")) + Dim CAT_CL_RUTA As String = records(RESULT.Columns.Get("CAT_CL_RUTA")) + Dim CAT_CL_NOMBRE As String = records(RESULT.Columns.Get("CAT_CL_NOMBRE")) + Dim CAT_CL_ATIENDE1 As String = records(RESULT.Columns.Get("CAT_CL_ATIENDE1")) + Dim CAT_CL_ATIENTE2 As String = records(RESULT.Columns.Get("CAT_CL_ATIENTE2")) + Dim CAT_CL_TELEFONO As String = records(RESULT.Columns.Get("CAT_CL_TELEFONO")) + Dim CAT_CL_EMAIL As String = records(RESULT.Columns.Get("CAT_CL_EMAIL")) + Dim CAT_CL_CALLE As String = records(RESULT.Columns.Get("CAT_CL_CALLE")) + Dim CAT_CL_NOEXT As String = records(RESULT.Columns.Get("CAT_CL_NOEXT")) + Dim CAT_CL_NOINT As String = records(RESULT.Columns.Get("CAT_CL_NOINT")) + Dim CAT_CL_CALLE1 As String = records(RESULT.Columns.Get("CAT_CL_CALLE1")) + Dim CAT_CL_CALLE2 As String = records(RESULT.Columns.Get("CAT_CL_CALLE2")) + Dim CAT_CL_COLONIA As String = records(RESULT.Columns.Get("CAT_CL_COLONIA")) + Dim CAT_CL_MUNI As String = records(RESULT.Columns.Get("CAT_CL_MUNI")) + Dim CAT_CL_EDO As String = records(RESULT.Columns.Get("CAT_CL_EDO")) + Dim CAT_CL_CP As String = records(RESULT.Columns.Get("CAT_CL_CP")) + Dim CAT_CL_LONG As String = records(RESULT.Columns.Get("CAT_CL_LONG")) + Dim CAT_CL_LAT As String = records(RESULT.Columns.Get("CAT_CL_LAT")) + Dim CAT_CL_MTOCOMPRA As String = records(RESULT.Columns.Get("CAT_CL_MTOCOMPRA")) + Dim CAT_CL_NUM_SERIEFISICO As String = records(RESULT.Columns.Get("CAT_CL_NUM_SERIEFISICO")) + Dim CAT_CL_DIAS_VISITA As String = records(RESULT.Columns.Get("CAT_CL_DIAS_VISITA")) + B4XPages.MainPage.skmt.ExecNonQuery2("INSERT INTO kmt_info2(CAT_CL_CODIGO,CAT_CL_RUTA,CAT_CL_NOMBRE,CAT_CL_ATIENDE1,CAT_CL_ATIENTE2,CAT_CL_TELEFONO,CAT_CL_EMAIL,CAT_CL_CALLE,CAT_CL_NOEXT,CAT_CL_NOINT,CAT_CL_CALLE1,CAT_CL_CALLE2,CAT_CL_COLONIA,CAT_CL_MUNI,CAT_CL_EDO,CAT_CL_CP,CAT_CL_LONG,CAT_CL_LAT,CAT_CL_MTOCOMPRA,CAT_CL_NUM_SERIEFISICO, gestion, CAT_CL_DIAS_VISITA) VALUES (?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,0, ?)", Array As Object (CAT_CL_CODIGO,CAT_CL_RUTA,CAT_CL_NOMBRE,CAT_CL_ATIENDE1,CAT_CL_ATIENTE2,CAT_CL_TELEFONO,CAT_CL_EMAIL,CAT_CL_CALLE,CAT_CL_NOEXT,CAT_CL_NOINT,CAT_CL_CALLE1,CAT_CL_CALLE2,CAT_CL_COLONIA,CAT_CL_MUNI,CAT_CL_EDO,CAT_CL_CP,CAT_CL_LONG,CAT_CL_LAT,CAT_CL_MTOCOMPRA,CAT_CL_NUM_SERIEFISICO,CAT_CL_DIAS_VISITA)) + B4XPages.MainPage.skmt.ExecNonQuery2("INSERT INTO HIST_STAY_STORE(HSS_CODIGO, HSS_IN , HSS_OUT , HSS_TOT) VALUES (?,0,0,0)", Array As Object (CAT_CL_CODIGO)) + Next + Listo1 = 1 + S_CC.Text = "LISTO" + If Starter.marcaCel <> "Sony" Then ToastMessageShow("Catalogo Clientes Actualizados." , True) + If Listo1 =1 And Listo2 =1 And Listo3 = 1 And Listo4 = 1 Then + B4XPage_Appear + img2.Visible=False + EJECUTANDO=0 + End If + End If + End If If Job.JobName = "DBRequest" Then Dim RESULT As DBResult = B4XPages.MainPage.reqManager.HandleJob(Job) @@ -1718,6 +1824,7 @@ Sub e_ruta_EnterPressed B4XPages.MainPage.skmt.ExecNonQuery("delete from noventa") B4XPages.MainPage.skmt.ExecNonQuery("delete from clie_act") B4XPages.MainPage.skmt.ExecNonQuery("delete from kmt_info") + B4XPages.MainPage.skmt.ExecNonQuery("delete from kmt_info2") B4XPages.MainPage.skmt.ExecNonQuery("delete from cat_gunaprod") B4XPages.MainPage.skmt.ExecNonQuery("delete from CAT_DETALLES_PAQ") B4XPages.MainPage.skmt.ExecNonQuery("delete from HIST_VENTAS") diff --git a/B4A/C_Productos.bas b/B4A/C_Productos.bas index 3fe2ad5..505e754 100644 --- a/B4A/C_Productos.bas +++ b/B4A/C_Productos.bas @@ -516,6 +516,7 @@ Sub b_prodMas_Click Private precio As String=clv_prods_ll.GetValue(index).As(Map).Get("precio") Private inv As String=clv_prods_ll.GetValue(index).As(Map).Get("almacen") If laCant.Text = "" Then laCant.Text = 0 + If laCant.Text + 1 <= inv Then ' Log(NumberFormat2(laCant.Text+1,0,0,0,False)) laCant.Text = $"${NumberFormat2(laCant.Text+1,0,0,0,False)}"$ diff --git a/B4A/Files/clientes.bal b/B4A/Files/clientes.bal index 12654f43ec6a2d9a280c4a61a8c2170c8c85f60b..58a96e022103598fef3629c7a606a3d6c182d850 100644 GIT binary patch delta 484 zcmcbld)tJUm4SglgPDPW3rI^%a z7N_Q?WKR4g%?Z++la`s2I9Zf2l#zRKHlsW%&@2X)$?c5lmi#~#FA(zqu>cSY0hbD>Sg(8r1-nTb!11Y!syb{Oq)Z+ZyR7N1z0>wLto4dIdunB|QDGS7m zZa_i~#F#dD0yNu;**Uqj C0$*108;}5T82K0{OG&A3mKF+Po$M{eH`!l`3+NC48HO2i diff --git a/B4A/Files/promociones.bal b/B4A/Files/promociones.bal index f0fe5b1c7d21d376021989885250f1b7ed4607e2..500f8c965ccd7af565aa55a3bb61676ab4e3ff7c 100644 GIT binary patch delta 14 VcmaDF{4{ujoFF6jW_iJ55&$i!1swnY delta 24 gcmaDF{4{ujoZw_b4Xw%2@?4WsH4-;(7BrFo0Cz+Pe*gdg diff --git a/B4A/INTMEX_LL.b4a b/B4A/INTMEX_LL.b4a index 0b89edd..2ac8b56 100644 --- a/B4A/INTMEX_LL.b4a +++ b/B4A/INTMEX_LL.b4a @@ -161,7 +161,7 @@ Version=12.5 #Region Project Attributes #ApplicationLabel: Intmex v1 #VersionCode: 1 - #VersionName: 3.11.13 + #VersionName: 4.01.11 'SupportedOrientations possible values: unspecified, landscape or portrait. #SupportedOrientations: portrait #CanInstallToExternalStorage: False diff --git a/B4A/INTMEX_LL.b4a.meta b/B4A/INTMEX_LL.b4a.meta index 0a83759..d00415a 100644 --- a/B4A/INTMEX_LL.b4a.meta +++ b/B4A/INTMEX_LL.b4a.meta @@ -58,8 +58,8 @@ ModuleClosedNodes0= ModuleClosedNodes1= ModuleClosedNodes10= ModuleClosedNodes11= -ModuleClosedNodes12=1,4,6 -ModuleClosedNodes13=9,11,15 +ModuleClosedNodes12=1,7 +ModuleClosedNodes13=9,11 ModuleClosedNodes14=9,10 ModuleClosedNodes15= ModuleClosedNodes16= @@ -82,6 +82,6 @@ ModuleClosedNodes6= ModuleClosedNodes7= ModuleClosedNodes8=1 ModuleClosedNodes9= -NavigationStack=C_Principal,JobDone,1458,1,C_Principal,Subir_Click,542,0,B4XMainPage,B4XPage_Created,174,0,Starter,Process_Globals,16,0,B4XMainPage,i_engrane_Click,670,0,B4XMainPage,muestraProgreso,660,0,B4XMainPage,B4XPage_Appear,283,3,C_Productos,B4XPage_Appear,192,0,C_Productos,clv_prods_ll_VisibleRangeChanged,842,0,B4XMainPage,copiaDB,639,0,C_RespaldoDiario,Initialize,28,0 +NavigationStack=C_Productos,b_terminar1_Click,606,0,C_Productos,b_prodMas_Click,513,0,C_Cliente,JobDone,902,0,C_Cliente,mandaPendientes,884,0,B4XMainPage,b_apk_Click,655,0,Diseñador Visual,login.bal,-100,4,B4XMainPage,muestraProgreso,656,0,Starter,Process_Globals,26,0,appUpdater,download_newApk,164,0,B4XMainPage,B4XPage_Appear,248,0,B4XMainPage,B4XPage_Created,141,0 SelectedBuild=0 VisibleModules=2,25,23,12,15,13,4,26,14,8 diff --git a/B4A/Subs.bas b/B4A/Subs.bas index 6274094..0665ecd 100644 --- a/B4A/Subs.bas +++ b/B4A/Subs.bas @@ -213,6 +213,18 @@ Sub revisaBD 'ignore LogColor(LastException, Colors.Red) End Try End Try + + Try 'Si no existe la columna CAT_CL_DIAS_VISITA la agregamos. + kmt.ExecQuery("select count(CAT_CL_DIAS_VISITA) from kmt_info2") + Catch + Try + kmt.ExecNonQuery("ALTER TABLE kmt_info2 ADD COLUMN CAT_CL_DIAS_VISITA TEXT") + Catch + LogColor("No pudimos agregar la columna CAT_CL_DIAS_VISITA.", Colors.Red) + LogColor(LastException, Colors.Red) + End Try + End Try + Try 'Si no existe la columna PC_ENVIO_OK la agregamos. kmt.ExecQuery("select count(PC_TIEMPO_TIENDA) from PEDIDO_CLIENTE") Catch