FiveTech Support Forums

FiveWin / Harbour / xBase community
Board indexAll discussionsLogin (GitHub)
Board index FiveWin para Harbour/xHarbour Menu desde Tabla MySql
Compuin
Posts: 1276
Joined: Tue Dec 28, 2010 01:29 PM
Menu desde Tabla MySql
Posted: Mon Dec 10, 2018 02: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 25.12

Harbour/Hbmk2

Microsoft Visual C++

MySql 8.0

Antigravity

Compuin
Posts: 1276
Joined: Tue Dec 28, 2010 01:29 PM
Re: Menu desde Tabla MySql
Posted: Tue Dec 11, 2018 04:22 PM

Alguien sabe como hacerlo ?

FWH 25.12

Harbour/Hbmk2

Microsoft Visual C++

MySql 8.0

Antigravity

cnavarro
Posts: 6755
Joined: Wed Feb 15, 2012 08:25 PM
Re: Menu desde Tabla MySql
Posted: Tue Dec 11, 2018 06: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
Compuin
Posts: 1276
Joined: Tue Dec 28, 2010 01:29 PM
Re: Menu desde Tabla MySql
Posted: Tue Dec 11, 2018 06: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

FWH 25.12

Harbour/Hbmk2

Microsoft Visual C++

MySql 8.0

Antigravity

jcenteno
Posts: 23
Joined: Thu Dec 10, 2009 06:07 AM
Re: Menu desde Tabla MySql
Posted: Tue Dec 11, 2018 07: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.

Compuin
Posts: 1276
Joined: Tue Dec 28, 2010 01:29 PM
Re: Menu desde Tabla MySql
Posted: Tue Dec 11, 2018 07: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 25.12

Harbour/Hbmk2

Microsoft Visual C++

MySql 8.0

Antigravity

joseluisysturiz
Posts: 2064
Joined: Fri Jan 06, 2006 09:28 PM
Re: Menu desde Tabla MySql
Posted: 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... :-)
Dios no está muerto...



Gracias a mi Dios ante todo!
joseluisysturiz
Posts: 2064
Joined: Fri Jan 06, 2006 09:28 PM
Re: Menu desde Tabla MySql
Posted: 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... :-)
Dios no está muerto...



Gracias a mi Dios ante todo!
jcenteno
Posts: 23
Joined: Thu Dec 10, 2009 06:07 AM
Re: Menu desde Tabla MySql
Posted: Wed Dec 12, 2018 04:45 AM

Enviado al correo.

Saludos.

admsoporte
Posts: 111
Joined: Sun Oct 09, 2005 03:09 PM
Re: Menu desde Tabla MySql
Posted: 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
jose_murugosa
Posts: 1279
Joined: Mon Feb 06, 2006 04:28 PM
Re: Menu desde Tabla MySql
Posted: 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, el teclado y la IA!!"
ruben Dario
Posts: 1078
Joined: Thu Sep 27, 2007 03:47 PM
Re: Menu desde Tabla MySql
Posted: Wed Dec 12, 2018 01: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
TecniSoftware
Posts: 244
Joined: Fri Oct 28, 2005 06:29 PM
Re: Menu desde Tabla MySql
Posted: Wed Dec 12, 2018 01:56 PM

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

Muchas gracias!

Alejandro Cebolido

Buenos Aires, Argentina
jnavas
Posts: 492
Joined: Wed Nov 16, 2005 12:03 PM
Re: Menu desde Tabla MySql
Posted: 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

Saludos
Juan Navas
www.datapronet.com
www.adaptapro.com
jnavas@adaptapro.com
jnavas
Posts: 492
Joined: Wed Nov 16, 2005 12:03 PM
Re: Menu desde Tabla MySql
Posted: 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:=!EMPTY(aMENUTRA[1]) .AND. lHorario

hacermenu(aMenu)

C5ENDMENU




Code (fw): Select all Collapse
     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
Saludos
Juan Navas
www.datapronet.com
www.adaptapro.com
jnavas@adaptapro.com
Static archive · New replies & topics via GitHub Discussions