V_FINAL

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

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

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")

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)}"$

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

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

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