13/01/24 - Correcciones en editText de promos y mostrar inv de abordo en productos.

- Se corrigio un error que se daba cuando se editaba la cantidad de prductos varaiables en promociones y quedaba en blanco.
- Se agegó el inventario de abordo a la descripcion del producto cuando se estan seleciconando productos para el Abordo.

B4A/C_NuevoCliente.bas

@@ -7,6 +7,7 @@ Version=11.5
 Sub Class_Globals
 	Private Root As B4XView 'ignore
 	Private xui As XUI 'ignore
+	Private kh As kms_helperSubs
 	'//Process Globals
 	Dim g As GPS
 	Dim ruta As String
@@ -33,6 +34,7 @@ End Sub
 
 'You can add more parameters here.
 Public Sub Initialize As Object
+	kh.Initialize(Me, "kh", Starter.skmt)
 	Return Me
 End Sub
 
@@ -60,6 +62,10 @@ Sub B4XPage_Appear
 		maxClientesNuevos = c.GetString("CAT_VA_VALOR")
 	End If
 '	Log("MaxClientesNuevos: " & maxClientesNuevos)
+
+	'Para el almacen 12 (GDL) no hay limite de clientes nuevos.
+	If kh.traeAlmacen = 12 Then maxClientesNuevos = 0
+
 	If maxClientesNuevos <> 0 Then
 		Private d As Cursor = Starter.skmt.ExecQuery($"select count(CAT_CL_CODIGO) as ctesNuevos from kmt_info where CAT_CL_CODIGO like 'N%'"$)
 		If d.RowCount > 0 Then