Asignar un menú a un item de otro menú.
Publicado por Q.O.J (4 intervenciones) el 08/06/2006 17:22:26
Hola,
Estamos buscando la solución a un problema que hasta ahora no hemos podido resolver.
Se trata de asignar un menú a un item de otro menú. Esto funciona en nuestra aplicación que está desarrollada en la versión 5.0 de PB. Sin embargo, lo estamos intentando en una versión posterior, concretamente la 8.0.4, sin conseguir los resultados apetecidos.
// Código original
CHOOSE CASE upper(nom_menu)
CASE "CATALOGO"
if xventana.menuid.item[3] <> obj_menu.submenu.m_catalogo then
xcambiar = true
this.menuid.item[3] = obj_menu.submenu.m_catalogo
end if
CASE "COMPRAS_VENTAS"
if xventana.menuid.item[3] <> obj_menu.submenu.m_compras_ventas then
xcambiar = true
this.menuid.item[3] = obj_menu.submenu.m_compras_ventas
end if
CASE "INMOVILIZADO"
if xventana.menuid.item[3] <> obj_menu.submenu.m_inmovilizado then
xcambiar = true
this.menuid.item[3] = obj_menu.submenu.m_inmovilizado
end if
CASE "AVERIAS"
if xventana.menuid.item[3] <> obj_menu.submenu.m_averias then
xcambiar = true
this.menuid.item[3] = obj_menu.submenu.m_averias
end if
CASE "CONTRATOS"
if xventana.menuid.item[3] <> obj_menu.submenu.m_contratos then
xcambiar = true
this.menuid.item[3] = obj_menu.submenu.m_contratos
end if
END CHOOSE
Nuestro cambio o asociación de menú se consigue en la línea:
"this.menuid.item[3] = obj_menu.submenu.m_contratos"
donde obj_menu.submenu.m_contratos es otro menú.
Bien, si alguién se ha encontrado en la misma situación o sabe algo de como solucionar
este inconveniente, por favor ¿podría decirnos cómo resolverlo?
Gracias anticipadamente.
Estamos buscando la solución a un problema que hasta ahora no hemos podido resolver.
Se trata de asignar un menú a un item de otro menú. Esto funciona en nuestra aplicación que está desarrollada en la versión 5.0 de PB. Sin embargo, lo estamos intentando en una versión posterior, concretamente la 8.0.4, sin conseguir los resultados apetecidos.
// Código original
CHOOSE CASE upper(nom_menu)
CASE "CATALOGO"
if xventana.menuid.item[3] <> obj_menu.submenu.m_catalogo then
xcambiar = true
this.menuid.item[3] = obj_menu.submenu.m_catalogo
end if
CASE "COMPRAS_VENTAS"
if xventana.menuid.item[3] <> obj_menu.submenu.m_compras_ventas then
xcambiar = true
this.menuid.item[3] = obj_menu.submenu.m_compras_ventas
end if
CASE "INMOVILIZADO"
if xventana.menuid.item[3] <> obj_menu.submenu.m_inmovilizado then
xcambiar = true
this.menuid.item[3] = obj_menu.submenu.m_inmovilizado
end if
CASE "AVERIAS"
if xventana.menuid.item[3] <> obj_menu.submenu.m_averias then
xcambiar = true
this.menuid.item[3] = obj_menu.submenu.m_averias
end if
CASE "CONTRATOS"
if xventana.menuid.item[3] <> obj_menu.submenu.m_contratos then
xcambiar = true
this.menuid.item[3] = obj_menu.submenu.m_contratos
end if
END CHOOSE
Nuestro cambio o asociación de menú se consigue en la línea:
"this.menuid.item[3] = obj_menu.submenu.m_contratos"
donde obj_menu.submenu.m_contratos es otro menú.
Bien, si alguién se ha encontrado en la misma situación o sabe algo de como solucionar
este inconveniente, por favor ¿podría decirnos cómo resolverlo?
Gracias anticipadamente.
Valora esta pregunta


0