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/kms_helperSubs.bas

@@ -589,10 +589,10 @@ Sub centraProgressBar(elemento As ProgressBar, anchoElementoSuperior As Int) 'ig
 End Sub
 
 'Regresa el usuario de la tabla USUARIOA, si no lo encuentra regresa "SinUsuario"
-Sub traeUsuarioDeDB(db As SQL) As String 'ignore
+Sub traeUsuarioDeDB As String 'ignore
 	Private c As Cursor
 	Private u As String = "SinUsuario"
-	c = skmt.ExecQuery("select USUARIO from usuarioa")
+	c = khdb.ExecQuery("select USUARIO from usuarioa")
 	c.Position=0
 	If c.RowCount > 0 Then u = c.GetString("USUARIO")
 	c.Close
@@ -600,10 +600,10 @@ Sub traeUsuarioDeDB(db As SQL) As String 'ignore
 End Sub
 
 'Regresa el almacen actual de la base de datos.
-Sub traeAlmacen(db As SQL) As String 'ignore
+Sub traeAlmacen As String 'ignore
 	Private c As Cursor
 	Private a As String
-	c = skmt.ExecQuery("select ID_ALMACEN from CAT_ALMACEN")
+	c = khdb.ExecQuery("select ID_ALMACEN from CAT_ALMACEN")
 	c.Position = 0
 	a = c.GetString("ID_ALMACEN")
 	c.Close
@@ -611,10 +611,10 @@ Sub traeAlmacen(db As SQL) As String 'ignore
 End Sub
 
 'Regresa el nombre del producto desde CAT_GUNAPROD.
-Sub traeProdNombre(db As SQL, id As String) As String 'ignore
+Sub traeProdNombre(id As String) As String 'ignore
 	Private h As Cursor
 	Private n As String
-	h = skmt.ExecQuery2("select CAT_GP_NOMBRE from CAT_GUNAPROD where CAT_GP_ID = ? ", Array As String(id.Trim))
+	h = khdb.ExecQuery2("select CAT_GP_NOMBRE from CAT_GUNAPROD where CAT_GP_ID = ? ", Array As String(id.Trim))
 	If h.RowCount > 0 Then
 		h.Position = 0
 		n = h.GetString("CAT_GP_NOMBRE")
@@ -627,10 +627,10 @@ Sub traeProdNombre(db As SQL, id As String) As String 'ignore
 End Sub
 
 'Regresa la ruta actual de la base de datos.
-Sub traeRuta(db As SQL) As String 'ignore
+Sub traeRuta As String 'ignore
 	Private c As Cursor
 	Private r As String
-	c = skmt.ExecQuery("select CAT_CL_RUTA from kmt_info where CAT_CL_CODIGO In (Select cuenta from cuentaa)")
+	c = khdb.ExecQuery("select CAT_CL_RUTA from kmt_info where CAT_CL_CODIGO In (Select cuenta from cuentaa)")
 	r = "0"
 	If c.RowCount > 0 Then
 		c.Position=0
@@ -709,27 +709,27 @@ End Sub
 'Borra el pedido del cliente actual.
 'Borra los registros de la tabla "PEDIDO" y "PEDIDO_CLIENTE"
 'Actualiza las tablas "cat_gunaprod" y "kmt_info".
-Sub borraPedidoClienteActual(db As SQL) As String 'ignore
+Sub borraPedidoClienteActual As String 'ignore
 	Private thisC As Cursor
-	thisC = skmt.ExecQuery("select PE_PROID,PE_CANT FROM PEDIDO where pe_cliente in (Select CUENTA from cuentaa) ")
+	thisC = khdb.ExecQuery("select PE_PROID,PE_CANT FROM PEDIDO where pe_cliente in (Select CUENTA from cuentaa) ")
 	If thisC.RowCount>0 Then
 		For i=0 To thisC.RowCount -1
 			thisC.Position=i
-			skmt.ExecNonQuery2("update cat_gunaprod set cat_gp_almacen = cat_gp_almacen + ? where cat_gp_id = ?", Array As Object(thisC.GetString("PE_CANT"),thisC.GetString("PE_PROID")))
-			skmt.ExecNonQuery2("INSERT INTO INVENT_X_ENVIAR (ALMACEN , PROID , CANTIDAD ) VALUES(?,?,?) ", Array As Object (traeAlmacen(db), thisC.GetString("PE_PROID"),thisC.GetString("PE_CANT")* -1))
+			khdb.ExecNonQuery2("update cat_gunaprod set cat_gp_almacen = cat_gp_almacen + ? where cat_gp_id = ?", Array As Object(thisC.GetString("PE_CANT"),thisC.GetString("PE_PROID")))
+			khdb.ExecNonQuery2("INSERT INTO INVENT_X_ENVIAR (ALMACEN , PROID , CANTIDAD ) VALUES(?,?,?) ", Array As Object (traeAlmacen, thisC.GetString("PE_PROID"),thisC.GetString("PE_CANT")* -1))
 		Next
 	End If
-	skmt.ExecNonQuery("delete from pedido_cliente where pc_cliente in (Select CUENTA from cuentaa)")
-	skmt.ExecNonQuery("delete from pedido where pe_cliente in (Select CUENTA from cuentaa)")
-	skmt.ExecNonQuery("UPDATE kmt_info set gestion = 0 where CAT_CL_CODIGO In (select cuenta from cuentaa)")
+	khdb.ExecNonQuery("delete from pedido_cliente where pc_cliente in (Select CUENTA from cuentaa)")
+	khdb.ExecNonQuery("delete from pedido where pe_cliente in (Select CUENTA from cuentaa)")
+	khdb.ExecNonQuery("UPDATE kmt_info set gestion = 0 where CAT_CL_CODIGO In (select cuenta from cuentaa)")
 	Return 1
 End Sub
 
 'Regresa verdadero si la columna gestion en la tabla "kmt_info" tene valor 2.
 'si no, entonces regresa falso.
-Sub pedidoGuardado(db As SQL) As Boolean 'ignore
+Sub pedidoGuardado As Boolean 'ignore
 	Private guardado As Boolean = False
-	Private g As Cursor = skmt.ExecQuery("select gestion from kmt_info where CAT_CL_CODIGO in (Select CUENTA from cuentaa)")
+	Private g As Cursor = khdb.ExecQuery("select gestion from kmt_info where CAT_CL_CODIGO in (Select CUENTA from cuentaa)")
 	If g.RowCount > 0 Then
 		g.Position=0
 		If g.GetString("gestion") = "2" Then guardado = True
@@ -739,8 +739,8 @@ Sub pedidoGuardado(db As SQL) As Boolean 'ignore
 End Sub
 
 'Regresa verdadero si hay pedido en la tabla "PEDIDO" del cliente actual.
-Sub hayPedido(db As SQL) As Boolean 'ignore
-	Private thisC As Cursor = skmt.ExecQuery($"select count(PE_CLIENTE) as hayPedido from PEDIDO where PE_CLIENTE = '${traeCliente}'"$)
+Sub hayPedido As Boolean 'ignore
+	Private thisC As Cursor = khdb.ExecQuery($"select count(PE_CLIENTE) as hayPedido from PEDIDO where PE_CLIENTE = '${traeCliente}'"$)
 	thisC.Position = 0
 	Private hay As Boolean = False
 	If thisC.GetInt("hayPedido") > 0 Then hay = True
@@ -804,10 +804,10 @@ Sub string2date(fecha As String) 'ignore
 End Sub
 
 'Guarda el nombre y version de la app en CAT_VARIABLES.
-Sub guardaAppInfo(db As SQL) 'ignore
-	db.ExecNonQuery("delete from CAT_VARIABLES where CAT_VA_DESCRIPCION = 'EMPRESA' or CAT_VA_DESCRIPCION = 'APP_NAME' or CAT_VA_DESCRIPCION = 'APP_VERSION'")
-	db.ExecNonQuery($"insert into CAT_VARIABLES (CAT_VA_DESCRIPCION, CAT_VA_VALOR) values ('APP_NAME', '${Application.LabelName}')"$)
-	db.ExecNonQuery($"insert into CAT_VARIABLES (CAT_VA_DESCRIPCION, CAT_VA_VALOR) values ('APP_VERSION', '${Application.VersionName}')"$)
+Sub guardaAppInfo 'ignore
+	khdb.ExecNonQuery("delete from CAT_VARIABLES where CAT_VA_DESCRIPCION = 'EMPRESA' or CAT_VA_DESCRIPCION = 'APP_NAME' or CAT_VA_DESCRIPCION = 'APP_VERSION'")
+	khdb.ExecNonQuery($"insert into CAT_VARIABLES (CAT_VA_DESCRIPCION, CAT_VA_VALOR) values ('APP_NAME', '${Application.LabelName}')"$)
+	khdb.ExecNonQuery($"insert into CAT_VARIABLES (CAT_VA_DESCRIPCION, CAT_VA_VALOR) values ('APP_VERSION', '${Application.VersionName}')"$)
 End Sub
 
 'Muestra en el Log los campos y valores que regresan en el JobDone.