From 7cc0c8bcfff00ad196db5b828e82c3106be07d57 Mon Sep 17 00:00:00 2001
From: Jose Alberto Guerra Ugalde <cheveguerra@gmail.com>
Date: Mon, 6 May 2024 22:22:00 -0600
Subject: [PATCH] =?UTF-8?q?-=20Se=20agreg=C3=B3=20el=20ID=20del=20producto?=
 =?UTF-8?q?=20a=20la=20informacion=20que=20aparece=20cuando=20se=20hace=20?=
 =?UTF-8?q?clic=20en=20un=20producto?=
MIME-Version: 1.0
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit

---
 B4A/C_Productos.bas     | 6 ++++--
 B4A/KelloggsV4.b4a      | 2 +-
 B4A/KelloggsV4.b4a.meta | 2 +-
 3 files changed, 6 insertions(+), 4 deletions(-)

diff --git a/B4A/C_Productos.bas b/B4A/C_Productos.bas
index e743087..551d94c 100644
--- a/B4A/C_Productos.bas
+++ b/B4A/C_Productos.bas
@@ -1103,7 +1103,7 @@ Sub l_prodX_Click
 		i.Position = 0
 		abordo = i.GetString("CAT_GP_ALMACEN")
 	End If
-	l_info.Text = Sender.as(Label).text & CRLF & $"Inv. abordo: ${abordo}"$
+	l_info.Text = $"ID: ${Sender.as(Label).tag}${CRLF}"$ & Sender.as(Label).text & CRLF & $"Inv. abordo: ${abordo}"$
 	Log(Sender.as(Label).tag)
 	l_info.BringToFront
 	l_info.Visible = True
@@ -1299,9 +1299,11 @@ Sub LlenaProdsLL(p As ResultSet, extra As String)
 		Private invAbordo As Int = 0
 		If Starter.tipov = "ABORDO" Then 'Traemos en inventario de abordo
 			Private ab As Cursor = Starter.skmt.ExecQuery($"select CAT_GP_ALMACEN from CAT_GUNAPROD2 where CAT_GP_ID = '${p.GetString("CAT_GP_ID")}'"$)
+'			Log($"select CAT_GP_ALMACEN from CAT_GUNAPROD2 where CAT_GP_ID = '${p.GetString("CAT_GP_ID")}'"$)
 			If ab.RowCount > 0 Then
 				ab.Position = 0
 				invAbordo = ab.GetString("CAT_GP_ALMACEN")
+'				Log(invAbordo)
 			End If
 		End If
 		
@@ -1328,7 +1330,7 @@ Sub LlenaProdsLL(p As ResultSet, extra As String)
 	listaProdsConCant.Initialize
 	listaProdsConCantIndex.Initialize
 	listaHints.Initialize
-'	Log(listaProds)
+	Log(listaProds)
 	For q = 0 To listaProds.Size - 1' Sacamos los productos con cantidad previa.
 		If listaProds.Get(q).As(Map).Get("cant").As(Int) <> 0 Then
 '			Log(listaProds.Get(q).As(Map).Get("cant"))
diff --git a/B4A/KelloggsV4.b4a b/B4A/KelloggsV4.b4a
index ec4e55c..4647daf 100644
--- a/B4A/KelloggsV4.b4a
+++ b/B4A/KelloggsV4.b4a
@@ -869,7 +869,7 @@ Version=12.8
 #Region  Project Attributes	
 	#ApplicationLabel: Kelloggs Venta
 	#VersionCode: 3000
-	#VersionName: 4.05.04
+	#VersionName: 4.05.05
 	#SupportedOrientations: portrait
 	#CanInstallToExternalStorage: False
 	#BridgeLogger:true
diff --git a/B4A/KelloggsV4.b4a.meta b/B4A/KelloggsV4.b4a.meta
index 3541f31..8ba3c78 100644
--- a/B4A/KelloggsV4.b4a.meta
+++ b/B4A/KelloggsV4.b4a.meta
@@ -88,6 +88,6 @@ ModuleClosedNodes6=
 ModuleClosedNodes7=
 ModuleClosedNodes8=
 ModuleClosedNodes9=
-NavigationStack=kms_helperSubs,etiquetaCentrada,574,0,Main,Process_Globals,22,0,Visual Designer,cliente.bal,-100,1,Visual Designer,pedidoItem.bal,-100,1,C_Productos,LlenaProdsLL,1315,3,C_Productos,clv_prods_ll_VisibleRangeChanged,1170,6,C_Productos,cuentaProds,809,6,C_Productos,et_pCant_TextChanged,755,0,C_Productos,b_prodMas_Click,670,6,Subs,actualizaProducto,960,0
+NavigationStack=kms_helperSubs,etiquetaCentrada,574,0,Main,Process_Globals,22,0,Visual Designer,cliente.bal,-100,1,Visual Designer,pedidoItem.bal,-100,1,C_Productos,clv_prods_ll_VisibleRangeChanged,1170,6,C_Productos,cuentaProds,809,6,C_Productos,et_pCant_TextChanged,755,0,C_Cliente,B_IMP2_Click,1087,0,C_Productos,b_prodMas_Click,670,6,C_Productos,LlenaProdsLL,1295,6,C_Principal,B_OK_PAS_Click,2223,0
 SelectedBuild=0
 VisibleModules=1,27,11,3,12,4,28,17,23,29,7