- Se agregó la opcion de importar la base de datos directamente desde Whatsapp, hay que ingresar al engrane con el usuario KMTS1.

B4A/Subs.bas

@@ -993,8 +993,6 @@ Sub actualizaProducto(cedis As String, costoU As String, cant As String, nombre
 	c.Close
 End Sub
 
-
-
 'Regresa un mapa con la información de la promo.
 'Regresa: {id, maxXcliente, maxRecurrente, maxPromos, historico,
 '	productos={idProducto={idProducto, preciosimptos, precio, almacen, tipo, piezas, usuario, fecha, regalo, clasif}} 'Mapa con los productos de la promo y los datos de cada uno.
@@ -1782,7 +1780,7 @@ Sub logJobDoneResultados(resultado As DBResult)
 	Next
 End Sub
 
-Sub traeinventario(id As String) As String
+Sub traeinventario(id As String) As Int
 	Dim c As Cursor
 	Dim inventario As String = "0"
 	c=Starter.skmt.ExecQuery($"select CAT_GP_ALMACEN from ${traeTablaProds(Starter.tipov)} where CAT_GP_ID = '${id}'"$)