Page 1 of 2
Menu desde Tabla MySql
Posted: Mon Dec 10, 2018 2:47 am
by Compuin
Buenas tardes foro,
Alguien me podria proveer de un ejemplo de opciones del menu creadas desde una tabla Mysql ?
El ejemplo de fw con DBF no me sirve
Gracias de antemano
Re: Menu desde Tabla MySql
Posted: Tue Dec 11, 2018 4:22 pm
by Compuin
Alguien sabe como hacerlo ?
Re: Menu desde Tabla MySql
Posted: Tue Dec 11, 2018 6:24 pm
by cnavarro
Vamos por partes:
1.- Qué versión de Fw utilizas?
2.- Por qué no te vale el ejemplo desde DBFs?
3.- Qué Mysql utilizas? ( libreria, etc )
4.- Qué estructura tienes en la tabla, y sus propiedades
Re: Menu desde Tabla MySql
Posted: Tue Dec 11, 2018 6:32 pm
by Compuin
cnavarro wrote:Vamos por partes:
1.- Qué versión de Fw utilizas?
2.- Por qué no te vale el ejemplo desde DBFs?
3.- Qué Mysql utilizas? ( libreria, etc )
4.- Qué estructura tienes en la tabla, y sus propiedades
1.- Fwh1705
2.- Siempre se desordena y no logro ubicar items apropiadamente
3.- Mysql 5.0 con la Libreria Eagle1
4.- Un tabla con los nombre de las opciones del menu nada mas
Re: Menu desde Tabla MySql
Posted: Tue Dec 11, 2018 7:18 pm
by jcenteno
Yo lo tengo funcionando desde hace algunos años, si me das tu correo, te envío las estructuras y el código... luego, si te sirve lo publicas.
Saludos.
Re: Menu desde Tabla MySql
Posted: Tue Dec 11, 2018 7:25 pm
by Compuin
jcenteno wrote:Yo lo tengo funcionando desde hace algunos años, si me das tu correo, te envío las estructuras y el código... luego, si te sirve lo publicas.
Saludos.
Jose aca lo tienes
compuin@gmail.com
Re: Menu desde Tabla MySql
Posted: Tue Dec 11, 2018 11:49 pm
by joseluisysturiz
jcenteno wrote:Yo lo tengo funcionando desde hace algunos años, si me das tu correo, te envío las estructuras y el código... luego, si te sirve lo publicas.
Saludos.
Saludos, me sumo a la peticion si no hay problemas joseluisysturiz @ yahoo.com, gracias...saludos...
Re: Menu desde Tabla MySql
Posted: Tue Dec 11, 2018 11:51 pm
by joseluisysturiz
Compuin wrote:Buenas tardes foro,
Alguien me podria proveer de un ejemplo de opciones del menu creadas desde una tabla Mysql ?
El ejemplo de fw con DBF no me sirve
Gracias de antemano
Saludos, como se llama ese ejemplo de FW con DBF.? quiero revisarlo haber si me sirve aunque uso MYSQL con TDolphin, imagino se podra adaptar, saludos, gracias...
Re: Menu desde Tabla MySql
Posted: Wed Dec 12, 2018 4:45 am
by jcenteno
Enviado al correo.
Saludos.
Re: Menu desde Tabla MySql
Posted: Wed Dec 12, 2018 10:02 am
by admsoporte
Me lo podrían mandar a
admsoporte@gmail.com
Enviado desde mi FIG-LX3 mediante Tapatalk
Re: Menu desde Tabla MySql
Posted: Wed Dec 12, 2018 12:27 pm
by jose_murugosa
Me interesaría la versión para dbfs y para mysql, si pudieran publicarlas o enviármelas a jmurugosa (arroba) gmail (punto) com, estaré agradecido.
Re: Menu desde Tabla MySql
Posted: Wed Dec 12, 2018 1:11 pm
by ruben Dario
Saludos
Podrias compartir el codigo. Gracias
Me interesaría la versión para dbfs y para mysql, si pudieran publicarlas o enviármelas a rubendariogd (arroba) gmail (punto) com, estaré agradecido.
Re: Menu desde Tabla MySql
Posted: Wed Dec 12, 2018 1:56 pm
by TecniSoftware
Me sumo al pedido, me interesa ese codigo, info.estudio arroba gmail.com
Muchas gracias!
Re: Menu desde Tabla MySql
Posted: Wed Dec 12, 2018 11:02 pm
by jnavas
Compin
Saludos
My aplicacion es MySQL, el menu lo guardo en una tabla, lo leo, paso a un arreglo
// Menu Horizontal
aMENUMAC:=LEERELMENUDESDECUALQUIERORIGEN() // dbf, txt, MySql /////
C5MENUITEM oDp:oItemMacro PROMPT oDp:cMenu01;
ACCELERATOR ACC_CONTROL,ASC("M")
C5MENU COLOR oDp:nMenuItemClrText, oDp:nMenuItemClrPane;
COLORSEL oDp:nMenuItemSelText, oDp:nMenuItemSelPane;
COLORBOX oDp:nMenuBoxClrText ;
FONT oDp:oFontMenu;
HEIGHT oDp:nMenuHeight; // SELECT 3D ;
LOGO oDp:cBmpMacros ;
LOGOCOLOR oDp:nMenuMainClrText
oDp:oItemMacro:lActive:=!EMPTY(aMenuMac[1]) .AND. lHorario
hacermenu(aMENUMAC)
C5ENDMENU
STATIC FUNCTION HACERMENU(aMenu,oMenu)
LOCAL I:=1,lacceso:=.T.,lutilizo:=.F.,oItem,nIni:=0
lMenuXp:=.T.
IF EMPTY(aMenu) .OR. EMPTY(aMenu[1])
RETURN // .F.
ENDIF
For i=1 TO LEN(aMenu[1])
IF lMenuXp
C5MENUITEM oItem PROMPT alltrim(aMenu[1,I]);
FILE aMenu[12,I]
ELSE
MENUITEM oItem PROMPT alltrim(aMenu[1,I]);
FILE aMenu[12,I]
ENDIF
IF aMenu[13,I]=4
IF lMenuXp
C5SEPARATOR
ELSE
SEPARATOR
ENDIF
ENDIF
IF aMenu[13,I]=2
nIni++
IF lMenuXp
C5MENU COLOR oDp:nMenuItemClrText, oDp:nMenuItemClrPane;
COLORSEL oDp:nMenuItemSelText, oDp:nMenuItemSelPane;
COLORBOX oDp:nMenuBoxClrText ;
HEIGHT oDp:nMenuHeight;
LOGOCOLOR oDp:nMenuMainClrText
ELSE
MENU
ENDIF
LOOP
ENDIF
oItem:bWhen :=aMenu[11,I]
oItem:bAction :=aMenu[03,I]
IF lMenuXp
oItem:bAuxAction :=aMenu[03,I]
ENDIF
NEXT I
FOR I=1 TO nIni
IF lMenuXp
C5ENDMENU
ELSE
ENDMENU
ENDIF
NEXT
// C5ENDMENU
RETURN
Re: Menu desde Tabla MySql
Posted: Wed Dec 12, 2018 11:06 pm
by jnavas
saludos
Probando, no se como colocar el codigo PRG para que se vea estructurado. Agradecido si alguien me guia para que el código que publico se vea legible
C5MENUITEM oDp:oItemTransaccion PROMPT oDp:cMenu04
C5MENU COLOR oDp:nMenuItemClrText, oDp:nMenuItemClrPane;
COLORSEL oDp:nMenuItemSelText, oDp:nMenuItemSelPane;
COLORBOX oDp:nMenuBoxClrText ;
HEIGHT oDp:nMenuHeight; // SELECT 3D ;
LOGO oDp:cBmpTransacciones ;
LOGOCOLOR oDp:nMenuMainClrText
aMenu:=ACLONE(aMenuTra)
oDp:oItemTransaccion:lActive:=!EMPTY(aMENUTRA[1]) .AND. lHorario
hacermenu(aMenu)
C5ENDMENU
Code: Select all
C5MENUITEM oDp:oItemTransaccion PROMPT oDp:cMenu04
C5MENU COLOR oDp:nMenuItemClrText, oDp:nMenuItemClrPane;
COLORSEL oDp:nMenuItemSelText, oDp:nMenuItemSelPane;
COLORBOX oDp:nMenuBoxClrText ;
HEIGHT oDp:nMenuHeight; // SELECT 3D ;
LOGO oDp:cBmpTransacciones ;
LOGOCOLOR oDp:nMenuMainClrText
aMenu:=ACLONE(aMenuTra)
oDp:oItemTransaccion:lActive:=!EMPTY(aMENUTRA[1]) .AND. lHorario
hacermenu(aMenu)
C5ENDMENU