FiveTech Support Forums

FiveWin / Harbour / xBase community
Board index FiveWin para Harbour/xHarbour Dos consultas sobre una clase y una funci贸n
Posts: 1279
Joined: Mon Feb 06, 2006 04:28 PM
Dos consultas sobre una clase y una funci贸n
Posted: Wed Jul 23, 2025 01:05 PM
La clase Menu de FWH, me est谩 dando un comportamiento equivocado en el siguiente ejemplo ( uso la 煤ltima versi贸n de FWH )
#include 'Fivewin.ch'

FUNCTION Main()
     LOCAL oWnd
              
          DEFINE WINDOW oWnd TITLE "T铆tulo" FROM 0, 0 TO 50, 180 ;
               MENU CreoMenu( )
               
          ACTIVATE WINDOW oWnd MAXIMIZED
          
RETURN nil

FUNCTION CreoMenu( )  
     LOCAL oMenu, oItem1, oItem1a, oItem1b, oItem1c, oItem1d, item2a, item3a, item3b
     
     MENU oMenu
     
          MENUITEM oItem1 PROMPT "Informes Hacienda-Faena" MESSAGE "Informe Hacienda-Faena"
          
               MENU
                    MENUITEM oItem1a PROMPT "Hacienda por Categor铆a" MESSAGE "Informe de Hacienda por Categor铆a" ;
                         ACTION nil
                         
                    MENUITEM oItem1b PROMPT "Hacienda por Rangos de Peso" MESSAGE "Informe de Hacienda por Categor铆a y Rangos de Peso" ;
                         ACTION nil
                         
                    MENUITEM oItem1c PROMPT "Hacienda por productor/Consignatario" MESSAGE "Informe de Hacienda por productor/Consignatario" ;
                         ACTION nil
                    
                    MENUITEM oItem1d PROMPT "Hacienda por Rangos de Peso y Precio" MESSAGE "Informe de Hacienda por Categor铆a, Rangos de Peso y Precio " ;
                         ACTION nil
                         
                    SEPARATOR           //este separador no se ve, est谩 el lugar, pero no se ve la l铆nea
                    
                    MENUITEM oItem2a PROMPT "An谩lisis de Hacienda" MESSAGE "An谩lisis de Hacienda entre fechas" ;
                         ACTION nil
                         
                    SEPARATOR
                    
                    MENUITEM oItem3a PROMPT "Cuarteo Totalizado entre Fechas" MESSAGE "Informe de Cuarteo Totalizado entre Fechas" ;
                         ACTION nil
                         
                    MENUITEM oItem3b PROMPT "Cuarteo Detallado entre Fechas" MESSAGE "Informe de Cuarteo Detallado entre Fechas" ;
                         ACTION nil
                                             
               ENDMENU
     ENDMENU
     
RETURN oMenu
El segundo separador no se ve, aparece el espacio pero no aparece el separador.

//----------------

Otro caso comprobado de la Funci贸n: oRs := FW_OpenRecordSet( oCn, cSql ) comparada con oRs:=oCn:Execute(cSql)

Utilizo scripts bastante extensos a fin de sacar informaci贸n de tablas de un SQLServer

Me ha pasado en reiteradas ocasiones que cuando guardo un script en una variable cSql, si el script es muy largo no funciona con la funci贸n de fivewin: oRs := FW_OpenRecordSet( oCn, cSql ), pero si funciona perfectamente con oRs:=oCn:Execute( cSql )

Gracias.
Saludos/Regards,

Jos茅 Murugosa

"Los errores en programaci贸n, siempre est谩n entre la silla, el teclado y la IA!!"
Posts: 9020
Joined: Thu Oct 06, 2005 08:17 PM
Re: Dos consultas sobre una clase y una funci贸n
Posted: Wed Jul 23, 2025 03:25 PM

Your sample works fine here.

Posts: 1279
Joined: Mon Feb 06, 2006 04:28 PM
Re: Dos consultas sobre una clase y una funci贸n
Posted: Thu Jul 24, 2025 09:47 AM
Enrico Maria Giordano wrote: Your sample works fine here.
Thanks a lot, A friend told me the same, I will instsall again fwh and see.
Saludos/Regards,

Jos茅 Murugosa

"Los errores en programaci贸n, siempre est谩n entre la silla, el teclado y la IA!!"

Continue the discussion