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

B4A/kms_helperSubs.bas

@@ -889,6 +889,18 @@ Sub traeUsarCartaPorte As Boolean 'ignore
 	Return CP
 End Sub
 
+'Regresa si se debe de usar el intent de importar la base d datos desde Whatsapp. 
+Sub traeUsarIntentBDWA As Boolean 'ignore
+	Private BDWA As Boolean = False
+	Private x As Cursor = Starter.skmt.ExecQuery($"select CAT_VA_VALOR from CAT_VARIABLES where CAT_VA_DESCRIPCION = 'IMPORTAR_BD_WA'"$)
+	If x.RowCount > 0 Then
+		x.Position = 0
+		If x.GetString("CAT_VA_VALOR") = "true" Then BDWA = True
+	End If
+'	Log($"cb_importarBDWA = ${BDWA}"$)
+	Return BDWA
+End Sub
+
 'Regresa los clientes nuevos maximos.
 'Si no está especificado, el default es 2.
 Sub traeMaxClientesNuevos As Int 'ignore