FiveTech Software tech support forums

www.FiveTechSoft.com

Skip to content

Menu desde Tabla MySql

Post a reply

Menu desde Tabla MySql

Postby Compuin » Mon Dec 10, 2018 2:47 am

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
FWH 20.12
Hbmk2 32/64 Bits (Build 19.29.30133)
Microsoft Visual C 32 Bits
MySql 8.0.24 32/64 Bits
VS Code
Compuin
 
Posts: 1214
Joined: Tue Dec 28, 2010 1:29 pm
Location: Quebec, Canada
Top

Re: Menu desde Tabla MySql

Postby Compuin » Tue Dec 11, 2018 4:22 pm

Alguien sabe como hacerlo ?
FWH 20.12
Hbmk2 32/64 Bits (Build 19.29.30133)
Microsoft Visual C 32 Bits
MySql 8.0.24 32/64 Bits
VS Code
Compuin
 
Posts: 1214
Joined: Tue Dec 28, 2010 1:29 pm
Location: Quebec, Canada
Top

Re: Menu desde Tabla MySql

Postby cnavarro » Tue Dec 11, 2018 6:24 pm

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
Cristobal Navarro
Hay dos tipos de personas: las que te hacen perder el tiempo y las que te hacen perder la noción del tiempo
El secreto de la felicidad no está en hacer lo que te gusta, sino en que te guste lo que haces
User avatar
cnavarro
 
Posts: 6552
Joined: Wed Feb 15, 2012 8:25 pm
Location: España
Top

Re: Menu desde Tabla MySql

Postby Compuin » Tue Dec 11, 2018 6:32 pm

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
Last edited by Compuin on Wed Dec 12, 2018 2:19 pm, edited 1 time in total.
FWH 20.12
Hbmk2 32/64 Bits (Build 19.29.30133)
Microsoft Visual C 32 Bits
MySql 8.0.24 32/64 Bits
VS Code
Compuin
 
Posts: 1214
Joined: Tue Dec 28, 2010 1:29 pm
Location: Quebec, Canada
Top

Re: Menu desde Tabla MySql

Postby jcenteno » Tue Dec 11, 2018 7:18 pm

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.
jcenteno
 
Posts: 23
Joined: Thu Dec 10, 2009 6:07 am
Top

Re: Menu desde Tabla MySql

Postby Compuin » Tue Dec 11, 2018 7:25 pm

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
FWH 20.12
Hbmk2 32/64 Bits (Build 19.29.30133)
Microsoft Visual C 32 Bits
MySql 8.0.24 32/64 Bits
VS Code
Compuin
 
Posts: 1214
Joined: Tue Dec 28, 2010 1:29 pm
Location: Quebec, Canada
Top

Re: Menu desde Tabla MySql

Postby joseluisysturiz » Tue Dec 11, 2018 11:49 pm

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... :shock:
Dios no está muerto...

Gracias a mi Dios ante todo!
User avatar
joseluisysturiz
 
Posts: 2064
Joined: Fri Jan 06, 2006 9:28 pm
Location: Guatire - Caracas - Venezuela
Top

Re: Menu desde Tabla MySql

Postby joseluisysturiz » Tue Dec 11, 2018 11:51 pm

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... :shock:
Dios no está muerto...

Gracias a mi Dios ante todo!
User avatar
joseluisysturiz
 
Posts: 2064
Joined: Fri Jan 06, 2006 9:28 pm
Location: Guatire - Caracas - Venezuela
Top

Re: Menu desde Tabla MySql

Postby jcenteno » Wed Dec 12, 2018 4:45 am

Enviado al correo.

Saludos.
jcenteno
 
Posts: 23
Joined: Thu Dec 10, 2009 6:07 am
Top

Re: Menu desde Tabla MySql

Postby admsoporte » Wed Dec 12, 2018 10:02 am

Me lo podrían mandar a admsoporte@gmail.com


Enviado desde mi FIG-LX3 mediante Tapatalk
Saludos

Atentamente

Jose F Dominguez Serafin

email admsoporte@gmail.com
admsoporte
 
Posts: 104
Joined: Sun Oct 09, 2005 3:09 pm
Location: Mexico
Top

Re: Menu desde Tabla MySql

Postby jose_murugosa » Wed Dec 12, 2018 12:27 pm

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.
Saludos/Regards,
José Murugosa
"Los errores en programación, siempre están entre la silla y el teclado y la IA!!"
User avatar
jose_murugosa
 
Posts: 1181
Joined: Mon Feb 06, 2006 4:28 pm
Location: Uruguay
Top

Re: Menu desde Tabla MySql

Postby ruben Dario » Wed Dec 12, 2018 1:11 pm

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.
Ruben Dario Gonzalez
Cali-Colombia
rubendariogd@hotmail.com - rubendariogd@gmail.com
User avatar
ruben Dario
 
Posts: 1070
Joined: Thu Sep 27, 2007 3:47 pm
Location: Colombia
Top

Re: Menu desde Tabla MySql

Postby TecniSoftware » Wed Dec 12, 2018 1:56 pm

Me sumo al pedido, me interesa ese codigo, info.estudio arroba gmail.com

Muchas gracias!
Alejandro Cebolido
Buenos Aires, Argentina
User avatar
TecniSoftware
 
Posts: 235
Joined: Fri Oct 28, 2005 6:29 pm
Location: Quilmes, Buenos Aires, Argentina
Top

Re: Menu desde Tabla MySql

Postby jnavas » Wed Dec 12, 2018 11:02 pm

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
User avatar
jnavas
 
Posts: 479
Joined: Wed Nov 16, 2005 12:03 pm
Location: Caracas - Venezuela
Top

Re: Menu desde Tabla MySql

Postby jnavas » Wed Dec 12, 2018 11:06 pm

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  Expand view  RUN


     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



 
User avatar
jnavas
 
Posts: 479
Joined: Wed Nov 16, 2005 12:03 pm
Location: Caracas - Venezuela
Top
Next
Post a reply

Return to FiveWin para Harbour/xHarbour

Who is online

Users browsing this forum: Google [Bot] and 23 guests

Powered by phpBB © 2000, 2002, 2005, 2007 phpBB Group
cron