Menu Responsivo Dinâmico

ilanocf · Março 7, 2025, 12:30am

Olá pessoal,

Estou usando a versão 9.12 com a última atualização até hoje. E estou tentando montar um menu dinâmico mas tudo que consegui até agora foi a criação dos menus pai mas os submenus (filhos) não consegui criar. Vou colocar aqui as tabelas envolvidas e o código que fiz baseado num modelo do próprio site da Scriptcase (https://tutoriais.myscriptcase.com/tutoriais/pt/menu-dinamico/):

TABELAS:
CREATE TABLE menu (
ID INTEGER NOT NULL AUTO_INCREMENT,
MENUID INTEGER DEFAULT NULL,
NOME VARCHAR(100) COLLATE utf8mb4_0900_ai_ci NOT NULL,
ENDERECOURL VARCHAR(100) COLLATE utf8mb4_0900_ai_ci DEFAULT NULL,
IMAGEM BLOB DEFAULT NULL,
ORDEM INTEGER NOT NULL,
ATIVO ENUM(‘True’,‘False’) COLLATE utf8mb4_0900_ai_ci NOT NULL,
TARGETMENU VARCHAR(15) COLLATE utf8mb4_0900_ai_ci DEFAULT NULL,
HINTMENU VARCHAR(255) COLLATE utf8mb4_0900_ai_ci DEFAULT NULL,
PRIMARY KEY USING BTREE (ID),
KEY MENUID USING BTREE (MENUID),
CONSTRAINT menu_ibfk_1 FOREIGN KEY (MENUID) REFERENCES menu (ID)
) ENGINE=InnoDB;

CREATE TABLE perfil (
ID INTEGER NOT NULL AUTO_INCREMENT,
NOME VARCHAR(100) COLLATE utf8mb4_0900_ai_ci NOT NULL,
HABILITA TINYINT(1) NOT NULL COMMENT ‘Habilitar este o registro para ser padrão quando o usuário se cadastrar no site.’,
PRIMARY KEY USING BTREE (ID),
UNIQUE KEY NOME USING BTREE (NOME)
) ENGINE=InnoDB;

CREATE TABLE permissaomenu (
ID INTEGER NOT NULL AUTO_INCREMENT,
PERFILID INTEGER NOT NULL,
MENUID INTEGER NOT NULL,
ATIVO ENUM(‘True’,‘False’) COLLATE utf8mb4_0900_ai_ci NOT NULL,
PRIMARY KEY USING BTREE (ID),
UNIQUE KEY permissaomenu_idx1 USING BTREE (PERFILID, MENUID),
KEY permissaomenu_fk2 USING BTREE (MENUID),
CONSTRAINT permissaomenu_fk1 FOREIGN KEY (PERFILID) REFERENCES perfil (ID),
CONSTRAINT permissaomenu_fk2 FOREIGN KEY (MENUID) REFERENCES menu (ID)
) ENGINE=InnoDB

CÓDIGO - EVENTO ONLOAD

sc_appmenu_reset("menu");
sc_appmenu_create("menu");

sc_lookup(Ds,"SELECT ID, NOME FROM menu WHERE MENUID IS NULL");

foreach({Ds} as $arr_menu) {
	sc_appmenu_add_item(menu, "item_".$arr_menu[0], , $arr_menu[1], '#', menuid=$arr_menu[0];menunome=$arr_menu[1], , ,);
	
	$sSQL = "SELECT A.ID, A.MENUID, B.NOME, B.ENDERECOURL, B.HINTMENU, B.TARGETMENU
			FROM permissaomenu A
			INNER JOIN menu B ON (B.ID = A.MENUID)
			WHERE A.PERFILID = ".[g_perfilid]."
			AND B.MENUID = ".$arr_menu[0]."
			AND B.ATIVO = 'True'";
	
	sc_lookup(DsItem, $sSQL);
	
	if(!empty({DsSubItem}))
		foreach({DsSubItem} as $arr_submenu) {
			sc_appmenu_add_item('menu', 'item_'.$arr_menu[0].$arr_submenu[0], 'item_'.$arr_menu[0], $arr_submenu[3], $arr_submenu[0], , , $arr_submenu[4], $arr_submenu[5]);
		}
}

Como posso resolver isso?

Grato,

Ilano.

buhlerax · Março 7, 2025, 9:43am

Creio que este tutorial era no antigo menu.
Não sei se funcionará no novo.
@yuri_esteves @HenriqueB dá para dar um retorno sobre isto?

thyagohenrique85 · Março 7, 2025, 11:30am

Bom dia Illano, como vai? Ocorre algum erro? Estou trabalhando num sistema em que usa o menu dinâmico e está funcionando tudo normalmente. Estamos trabalhando na atualização do sc 9.4 para o 9.12 e nos meus testes aqui na última versão está funcionando normalmente. A única coisa que não estou sabendo ainda utilizar é o Mega menu com o menu dinâmico.

Minha sugestão é dar uma debugada ai e ver se retorna algum erro pra vc…

ilanocf · Março 7, 2025, 10:21pm

Olá Alexandre,

Primeiro, agradeço pela atenção.
Então, eu fiz o que você sugeriu mas, mesmo assim, continua aparecendo apenas os menus pai.

buhlerax · Março 7, 2025, 10:25pm

Você ainda esta usando o menu novo

ilanocf · Março 7, 2025, 10:34pm

Olá Thyago,
Também te agradeço pela atenção. Bem, essa opção para ativar o debug, infelizmente, não encontra-se disponível na aplicação de Menu.

ilanocf · Março 7, 2025, 10:41pm

Verdade, ainda estava usando o novo. Criei uma nova aplicação de menu e agora no modelo antigo mas, mesmo assim, ainda só fica os menus pai, os submenus não estão sendo criados.

InfinitusWeb · Março 8, 2025, 5:43pm

Pelo Webinar,
Márcia disse que haverá uma apresentação do novo
Menu de forma dinâmica.

paulo.pivotto · Março 12, 2025, 3:07pm

Nessa linha do seu código você está declarando a variável de retorno dos dados como DsItem, e nas próximas linhas você se refere a esses dados como {DsSubItem}, talvez por isso não são adicionados os os sub itens dos menus.

ilanocf · Março 19, 2025, 12:05am

Olá Paulo Vitor, deu certo fazendo as alterações que você sugeriu.

Porém, ao aumentar os níveis, não funciona, veja como está meu cadastro.

Veja que o subitem Pais deverá estar dentro do item Básicos. Como posso resolver isso.

paulo.pivotto · Março 20, 2025, 7:27pm

Pelo que eu vi aqui testando as macros, você só pode incluir sub menus após ter incluído os pais deles, logo isso funcionaria:

sc_appmenu_add_item('menu_dinamico_teste', 'item_1', '', 'Menu 1', '');
sc_appmenu_add_item('menu_dinamico_teste', 'item_2', 'item_1', 'Menu 1.1', '');
sc_appmenu_add_item('menu_dinamico_teste', 'item_3', 'item_2', 'Menu 1.1.1', '');

E isso não:

sc_appmenu_add_item('menu_dinamico_teste', 'item_1', '', 'Menu 1', '');
// item_3 adicionado antes de seu pai
sc_appmenu_add_item('menu_dinamico_teste', 'item_3', 'item_2', 'Menu 1.1.1', '');
sc_appmenu_add_item('menu_dinamico_teste', 'item_2', 'item_1', 'Menu 1.1', '');

Uma maneira simples de resolver essa dependência seria colocar um campo na tabela do banco que marca a profundidade do item, sendo 0 para os menus raízes e aumentando em um a cada nível de profundidade. Assim você poderia fazer a consulta SQL com ORDER BY profundidade ASC, ordem ASC, por exemplo, e todos os menus que dependem de outros seriam criados depois de seus pais.

Essa profundidade poderia ser calculada no evento onBeforeInsert, fazendo um select para buscar a profundidade do item acima e somando um, ou zero se não houver item acima.

ilanocf · Março 29, 2025, 6:03pm

Olá Paulo Vitor,
Desculpe a demora. Em qual das tabelas o campo PROFUNDIDADE deveria estar? Todo o projeto do menu está assim:

CREATE TABLE menu (
ID INTEGER NOT NULL AUTO_INCREMENT,
MENUID INTEGER DEFAULT NULL,
NOME VARCHAR(100) COLLATE utf8mb4_0900_ai_ci NOT NULL,
ENDERECOURL VARCHAR(100) COLLATE utf8mb4_0900_ai_ci DEFAULT NULL,
IMAGEM BLOB DEFAULT NULL,
ORDEM INTEGER NOT NULL,
ATIVO ENUM(‘True’,‘False’) COLLATE utf8mb4_0900_ai_ci NOT NULL,
TARGETMENU VARCHAR(15) COLLATE utf8mb4_0900_ai_ci DEFAULT NULL,
HINTMENU VARCHAR(255) COLLATE utf8mb4_0900_ai_ci DEFAULT NULL,
PRIMARY KEY USING BTREE (ID),
KEY menu_ibfk_1 USING BTREE (MENUID)
) ENGINE=InnoDB;

INSERT INTO menu (MENUID, NOME, ENDERECOURL, IMAGEM, ORDEM, ATIVO, TARGETMENU, HINTMENU)
VALUE (0, ‘Básico’, NULL, NULL, 1, ‘True’, NULL, NULL);
INSERT INTO menu (MENUID, NOME, ENDERECOURL, IMAGEM, ORDEM, ATIVO, TARGETMENU, HINTMENU)
VALUE (0, ‘Cadastro’, NULL, NULL, 2, ‘True’, NULL, NULL);
INSERT INTO menu (MENUID, NOME, ENDERECOURL, IMAGEM, ORDEM, ATIVO, TARGETMENU, HINTMENU)
VALUE (0, ‘Consulta’, NULL, NULL, 3, ‘True’, NULL, NULL);
INSERT INTO menu (MENUID, NOME, ENDERECOURL, IMAGEM, ORDEM, ATIVO, TARGETMENU, HINTMENU)
VALUE (0, ‘Ferramentas’, NULL, NULL, 4, ‘True’, NULL, NULL);
INSERT INTO menu (MENUID, NOME, ENDERECOURL, IMAGEM, ORDEM, ATIVO, TARGETMENU, HINTMENU)
VALUE (0, ‘Segurança’, NULL, NULL, 5, ‘True’, NULL, NULL);
INSERT INTO menu (MENUID, NOME, ENDERECOURL, IMAGEM, ORDEM, ATIVO, TARGETMENU, HINTMENU)
VALUE (0, ‘Relatórios’, NULL, NULL, 6, ‘True’, NULL, NULL);
INSERT INTO menu (MENUID, NOME, ENDERECOURL, IMAGEM, ORDEM, ATIVO, TARGETMENU, HINTMENU)
VALUE (1, ‘País’, ‘cadPais’, NULL, 1, ‘True’, NULL, NULL);
INSERT INTO menu (MENUID, NOME, ENDERECOURL, IMAGEM, ORDEM, ATIVO, TARGETMENU, HINTMENU)
VALUE (1, ‘Estado’, ‘cadEstado’, NULL, 2, ‘True’, NULL, NULL);
INSERT INTO menu (MENUID, NOME, ENDERECOURL, IMAGEM, ORDEM, ATIVO, TARGETMENU, HINTMENU)
VALUE (1, ‘Cidade’, ‘cadCidade’, NULL, 3, ‘True’, NULL, NULL);
INSERT INTO menu (MENUID, NOME, ENDERECOURL, IMAGEM, ORDEM, ATIVO, TARGETMENU, HINTMENU)
VALUE (1, ‘Tipo de Contato’, ‘cadTipoContato’, NULL, 4, ‘True’, NULL, NULL);
INSERT INTO menu (MENUID, NOME, ENDERECOURL, IMAGEM, ORDEM, ATIVO, TARGETMENU, HINTMENU)
VALUE (2, ‘Pessoa’, NULL, NULL, 1, ‘True’, NULL, NULL);
INSERT INTO menu (MENUID, NOME, ENDERECOURL, IMAGEM, ORDEM, ATIVO, TARGETMENU, HINTMENU)
VALUE (11, ‘Pessoa Física’, ‘cadPessoaFisica’, NULL, 1, ‘True’, NULL, NULL);
INSERT INTO menu (MENUID, NOME, ENDERECOURL, IMAGEM, ORDEM, ATIVO, TARGETMENU, HINTMENU)
VALUE (11, ‘Pessoa Jurídica’, ‘cadPessoaJuridica’, NULL, 2, ‘True’, NULL, NULL);
INSERT INTO menu (MENUID, NOME, ENDERECOURL, IMAGEM, ORDEM, ATIVO, TARGETMENU, HINTMENU)
VALUE (5, ‘Menu’, ‘cadMenu’, NULL, 1, ‘True’, NULL, NULL);
INSERT INTO menu (MENUID, NOME, ENDERECOURL, IMAGEM, ORDEM, ATIVO, TARGETMENU, HINTMENU)
VALUE (5, ‘Perfil’, ‘cadPerfil’, NULL, 2, ‘True’, NULL, NULL);
INSERT INTO menu (MENUID, NOME, ENDERECOURL, IMAGEM, ORDEM, ATIVO, TARGETMENU, HINTMENU)
VALUE (5, ‘Permissões’, ‘cadPermissao’, NULL, 3, ‘True’, NULL, NULL);
INSERT INTO menu (MENUID, NOME, ENDERECOURL, IMAGEM, ORDEM, ATIVO, TARGETMENU, HINTMENU)
VALUE (5, ‘Usuário’, ‘cadUsuario’, NULL, 4, ‘True’, NULL, NULL);

CREATE TABLE perfil (
ID INTEGER NOT NULL AUTO_INCREMENT,
NOME VARCHAR(100) COLLATE utf8mb4_0900_ai_ci NOT NULL,
HABILITA TINYINT(1) NOT NULL COMMENT ‘Habilitar este o registro para ser padrão quando o usuário se cadastrar no site.’,
PRIMARY KEY USING BTREE (ID),
UNIQUE KEY NOME USING BTREE (NOME)
) ENGINE=InnoDB;

INSERT INTO perfil (NOME, HABILITA) VALUES (‘Público’, 0);
INSERT INTO perfil (NOME, HABILITA) VALUES (‘Administrador’, 1);

CREATE TABLE permissaomenu (
ID INTEGER NOT NULL AUTO_INCREMENT,
PERFILID INTEGER NOT NULL,
MENUID INTEGER NOT NULL,
ATIVO ENUM(‘True’,‘False’) COLLATE utf8mb4_0900_ai_ci NOT NULL,
ORDEM INTEGER DEFAULT NULL,
PRIMARY KEY USING BTREE (ID),
UNIQUE KEY permissaomenu_idx1 USING BTREE (PERFILID, MENUID),
KEY permissaomenu_fk2 USING BTREE (MENUID),
CONSTRAINT permissaomenu_fk1 FOREIGN KEY (PERFILID) REFERENCES perfil (ID),
CONSTRAINT permissaomenu_fk2 FOREIGN KEY (MENUID) REFERENCES menu (ID)
) ENGINE=InnoDB;

INSERT INTO permissaomenu (PERFILID, MENUID, ATIVO, ORDEM) VALUES (2, 7, ‘True’, 1);
INSERT INTO permissaomenu (PERFILID, MENUID, ATIVO, ORDEM) VALUES (2, 8, ‘True’, 2);
INSERT INTO permissaomenu (PERFILID, MENUID, ATIVO, ORDEM) VALUES (2, 9, ‘True’, 3);
INSERT INTO permissaomenu (PERFILID, MENUID, ATIVO, ORDEM) VALUES (2, 10, ‘True’, 4);
INSERT INTO permissaomenu (PERFILID, MENUID, ATIVO, ORDEM) VALUES (2, 11, ‘True’, 0);
INSERT INTO permissaomenu (PERFILID, MENUID, ATIVO, ORDEM) VALUES (2, 12, ‘True’, 1);
INSERT INTO permissaomenu (PERFILID, MENUID, ATIVO, ORDEM) VALUES (2, 13, ‘True’, 2);
INSERT INTO permissaomenu (PERFILID, MENUID, ATIVO, ORDEM) VALUES (2, 16, ‘True’, 1);
INSERT INTO permissaomenu (PERFILID, MENUID, ATIVO, ORDEM) VALUES (2, 17, ‘True’, 2);
INSERT INTO permissaomenu (PERFILID, MENUID, ATIVO, ORDEM) VALUES (2, 14, ‘True’, 3);
INSERT INTO permissaomenu (PERFILID, MENUID, ATIVO, ORDEM) VALUES (2, 16, ‘True’, 4);

CREATE TABLE usuario (
ID INTEGER NOT NULL AUTO_INCREMENT,
PERFILID INTEGER NOT NULL,
LOGIN VARCHAR(50) COLLATE utf8mb4_0900_ai_ci NOT NULL,
SENHA VARCHAR(100) COLLATE utf8mb4_0900_ai_ci NOT NULL,
EMAIL VARCHAR(100) COLLATE utf8mb4_0900_ai_ci NOT NULL,
ATIVO ENUM(‘True’,’ ‘‘False’’’) COLLATE utf8mb4_0900_ai_ci NOT NULL,
AVATAR BLOB DEFAULT NULL,
PRIMARY KEY USING BTREE (ID),
UNIQUE KEY usuario_idx1 USING BTREE (EMAIL, PERFILID),
KEY usuario_fk1 USING BTREE (PERFILID),
CONSTRAINT usuario_fk1 FOREIGN KEY (PERFILID) REFERENCES perfil (ID)
) ENGINE=InnoDB;

INSERT INTO usuario (PERFILID, LOGIN, SENHA, EMAIL, ATIVO, AVATAR) VALUES (2, ‘Fulano de Tal’, MD5(‘123456’), ‘fulano@gmail.com’, ‘True’, NULL);

Código da aplicação de menu no evento OnLoad:

sc_appmenu_reset(“menu”);
sc_appmenu_create(“menu”);

sc_lookup(Ds,"SELECT ID, NOME
FROM menu
WHERE IFNULL(MENUID, 0) = 0
ORDER BY ORDEM ");

foreach({Ds} as $arr_menu) {
sc_appmenu_add_item(menu, “item_”.$arr_menu[0], , $arr_menu[1], ‘#’, menuid=$arr_menu[0];menunome=$arr_menu[1], , ,);

$sSQL = "SELECT A.ID, A.MENUID, B.NOME, B.ENDERECOURL, B.HINTMENU, B.TARGETMENU
		FROM permissaomenu A
		INNER JOIN menu B ON (B.ID = A.MENUID)
		WHERE A.PERFILID = ".[glo_perfilid]."
		AND B.MENUID = ".$arr_menu[0]."
		AND B.ATIVO = 'True'
		ORDER BY B.ORDEM, A.ORDEM ";

sc_lookup(DsItem, $sSQL);

if(!empty({DsItem}))
	foreach({DsItem} as $arr_submenu) {
		sc_appmenu_add_item('menu', 'item_'.$arr_menu[0].$arr_submenu[0], 'item_'.$arr_menu[0], $arr_submenu[2], $arr_submenu[3], , , $arr_submenu[4], $arr_submenu[5]);
		
	}

}

paulo.pivotto · Março 31, 2025, 11:21am

Seria na tabela menu mesmo.