GET xHarbour 1.2.1 FW 11.07 Borland C++ 5.82

Post Reply
Julio Cepeda
Posts: 47
Joined: Wed Oct 12, 2005 6:58 pm

GET xHarbour 1.2.1 FW 11.07 Borland C++ 5.82

Post by Julio Cepeda »

Con el siguiente código compilado con -xHarbour 1.2.1 FWHX 11.07 Borland C++ 5.82- no me salta de un GET al siguiente ni con <Intro> ni tampoco con <Tab>, solo accedo a escribir en los GET pinchando en él con el ratón.
Si lo compilo con -xHarbour 0.99.61 FWXH 2.8 September 2006 Borland C++ 5.4- el mismo código funciona perfectamente y salta bien de un GET a otro.
¿ Alguien sabe por qué ?

Gracias

LOCAL oWnd, oFont, oIcon, oSay, aoBt[ 3 ], aoGt[ 8 ], aoSy[ 3 ]

DEFINE WINDOW oWnd FROM 10, 20 To 40,100 ;
TITLE VERSION ;
ICON oIcon ;
COLOR GetSysColor( COLOR_WINDOWTEXT ), GetSysColor( COLOR_BTNFACE )

SET FONT OF oWnd TO oFont
SET MESSAGE OF oWnd TO "Usuario = " + WNetGetUser() + " - " + FWVERSION TIME DATE KEYBOARD

@ 10, 2 BUTTON aoBt[ 1 ] PROMPT "&Fichero Excel" PIXEL SIZE 120,24 OF oWnd FONT oFont ;
ACTION ( cFileExcel := cGetFile32( "*.xls", 'Abrir fichero', , GetCurDir(), .F., ,"*.xls" ), ;
IF( Empty( cFileExcel ), , ( aoSy[ 1 ]:Refresh(), lFichSub := .T. ) ) )
@ 11,130 SAY aoSy[ 1 ] PROMPT cFileExcel PIXEL BORDER SIZE 450,24 FONT oFont

@ 400, 40 BUTTON aoBt[ 2 ] PROMPT "&Generar" PIXEL SIZE 100,22 OF oWnd FONT oFont ;
ACTION ImportaDat( cFileExcel, oMeter, @lEnd ) WHEN lFichSub .AND. Asc( AllTrim( cFileExcel ) ) > 0

@ 400,496 BUTTON aoBt[ 3 ] PROMPT "Sa&lir" PIXEL SIZE 100,22 OF oWnd FONT oFont ACTION oWnd:End()

@ 86, 30 SAY oSay PROMPT "COLUMNAS:" PIXEL SIZE 100,18 FONT oFont
@ 60,130 SAY oSay PROMPT "Refer" PIXEL SIZE 50,18 FONT oFont
@ 80,130 GET aoGt[ 1 ] VAR nCol_Rfe PIXEL SIZE 40, 24 PICTURE "@ 99" RIGHT OF oWnd
@ 60,190 SAY oSay PROMPT "Descri" PIXEL SIZE 50,18 FONT oFont
@ 80,190 GET aoGt[ 2 ] VAR nCol_Des PIXEL SIZE 40, 24 PICTURE "@ 99" RIGHT OF oWnd
@ 60,250 SAY oSay PROMPT "Seccion" PIXEL SIZE 50,18 FONT oFont
@ 80,250 GET aoGt[ 3 ] VAR nCol_Sec PIXEL SIZE 40, 24 PICTURE "@ 99" RIGHT OF oWnd
@ 60,310 SAY oSay PROMPT "Familia" PIXEL SIZE 50,18 FONT oFont
@ 80,310 GET aoGt[ 4 ] VAR nCol_Fam PIXEL SIZE 40, 24 PICTURE "@ 99" RIGHT OF oWnd
@ 60,370 SAY oSay PROMPT "Marca" PIXEL SIZE 50,18 FONT oFont
@ 80,370 GET aoGt[ 5 ] VAR nCol_Mar PIXEL SIZE 40, 24 PICTURE "@ 99" RIGHT OF oWnd
@ 60,430 SAY oSay PROMPT "Precio" PIXEL SIZE 50,18 FONT oFont
@ 80,430 GET aoGt[ 6 ] VAR nCol_Pre PIXEL SIZE 40, 24 PICTURE "@ 99" RIGHT OF oWnd


@ 120,130 SAY oSay PROMPT "Familia" PIXEL SIZE 50,18 FONT oFont
@ 140,130 GET aoGt[ 7 ] VAR cFamilia PIXEL SIZE 90, 24 PICTURE " 999" OF oWnd
@ 120,230 SAY oSay PROMPT "Descuento" PIXEL SIZE 90,18 FONT oFont
@ 140,230 GET aoGt[ 8 ] VAR nDescto PIXEL SIZE 100, 24 PICTURE " 99.99" RIGHT OF oWnd


@ 320, 40 METER oMeter VAR nActual TOTAL nTotal PIXEL SIZE 555, 40 OF oWnd ;
FONT oFont COLOR nRGB( 90, 90, 90 ), nRGB( 255, 255, 255 ) ;
BARCOLOR nRGB( 25, 25, 120 ), nRGB( 255, 255, 255 )

ACTIVATE WINDOW oWnd
User avatar
karinha
Posts: 4882
Joined: Tue Dec 20, 2005 7:36 pm
Location: São Paulo - Brasil

Re: GET xHarbour 1.2.1 FW 11.07 Borland C++ 5.82

Post by karinha »

// Intenta ahora...

Code: Select all

#include "FiveWin.ch"

STATIC oWnd
STATIC lFichSub := .T. //?? a tu modo

FUNCTION Main()

   LOCAL oFont, oIcon, oSay, aoBt[ 3 ], aoGt[ 8 ], aoSy[ 3 ]
   LOCAL nCol_Rfe := 0, nCol_Des := 0, nCol_Sec := 0, nCol_Fam := 0
   LOCAL nCol_Mar := 0, nCol_Pre := 0, cFamilia := 0, nDescto := 0
   LOCAL nTotal := 0, nActual := 0
   LOCAL cFileExcel := "Excel texto? a tu modo..." // ????
   LOCAL VERSION := [MI PROGRAMA EN TESTE FOR FIVEWIN AND XHARBOUR]

   // Necesitas DEFINIR la fuente...
   DEFINE FONT oFont  NAME "Ms Sans Serif" SIZE 0, -14 BOLD //UnderLine

   DEFINE WINDOW oWnd FROM 10, 20 To 40,100 ;
          TITLE VERSION ICON oIcon COLORS CLR_BLACK, CLR_WHITE

   @ 11,130 SAY aoSy[ 1 ] PROMPT cFileExcel PIXEL BORDER SIZE 450,24 FONT oFont

   @ 86, 30 SAY oSay PROMPT "COLUMNAS:" PIXEL SIZE 100,18 FONT oFont

   @ 60,130 SAY oSay PROMPT "Refer" PIXEL SIZE 50,18 FONT oFont

   @ 80,130 GET aoGt[ 1 ] VAR nCol_Rfe PIXEL SIZE 40, 24 PICTURE "@ 99" RIGHT OF oWnd ;
            COLORS CLR_BLACK, CLR_HCYAN  // Mira em foco aca...

   @ 60,190 SAY oSay PROMPT "Descri" PIXEL SIZE 50,18 FONT oFont

   @ 80,190 GET aoGt[ 2 ] VAR nCol_Des PIXEL SIZE 40, 24 PICTURE "@ 99" RIGHT OF oWnd

   @ 60,250 SAY oSay PROMPT "Seccion" PIXEL SIZE 50,18 FONT oFont

   @ 80,250 GET aoGt[ 3 ] VAR nCol_Sec PIXEL SIZE 40, 24 PICTURE "@ 99" RIGHT OF oWnd

   @ 60,310 SAY oSay PROMPT "Familia" PIXEL SIZE 50,18 FONT oFont

   @ 80,310 GET aoGt[ 4 ] VAR nCol_Fam PIXEL SIZE 40, 24 PICTURE "@ 99" RIGHT OF oWnd

   @ 60,370 SAY oSay PROMPT "Marca" PIXEL SIZE 50,18 FONT oFont

   @ 80,370 GET aoGt[ 5 ] VAR nCol_Mar PIXEL SIZE 40, 24 PICTURE "@ 99" RIGHT OF oWnd

   @ 60,430 SAY oSay PROMPT "Precio" PIXEL SIZE 50,18 FONT oFont

   @ 80,430 GET aoGt[ 6 ] VAR nCol_Pre PIXEL SIZE 40, 24 PICTURE "@ 99" RIGHT OF oWnd

   @ 120,130 SAY oSay PROMPT "Familia" PIXEL SIZE 50,18 FONT oFont

   @ 140,130 GET aoGt[ 7 ] VAR cFamilia PIXEL SIZE 90, 24 PICTURE "999" OF oWnd

   @ 120,230 SAY oSay PROMPT "Descuento" PIXEL SIZE 90,18 FONT oFont

   @ 140,230 GET aoGt[ 8 ] VAR nDescto PIXEL SIZE 100, 24 PICTURE " 99.99" RIGHT OF oWnd


   @ 10, 2 BUTTON aoBt[ 1 ] PROMPT "&Fichero Excel" PIXEL SIZE 120,24 OF oWnd FONT oFont ;
           ACTION ( cFileExcel := cGetFile32( "*.xls", 'Abrir fichero', , GetCurDir(), .F., ,"*.xls" ), ;
                  IF( Empty( cFileExcel ), , ( aoSy[ 1 ]:Refresh(), lFichSub := .T. ) ) )

   @ 320, 40 METER oMeter VAR nActual TOTAL nTotal PIXEL SIZE 555, 40 OF oWnd ;
             FONT oFont COLOR nRGB( 90, 90, 90 ), nRGB( 255, 255, 255 ) ;
             BARCOLOR nRGB( 25, 25, 120 ), nRGB( 255, 255, 255 )

   @ 400, 40 BUTTON aoBt[ 2 ] PROMPT "&Generar" PIXEL SIZE 100,22 OF oWnd FONT oFont ;
             ACTION ImportaDat( cFileExcel, oMeter, @lEnd ) ;
             WHEN lFichSub .AND. Asc( AllTrim( cFileExcel ) ) > 0

   @ 400,496 BUTTON aoBt[ 3 ] PROMPT "Sa&lir" PIXEL SIZE 100,22 OF oWnd FONT oFont ACTION oWnd:End()

   SET MESSAGE OF oWnd TO "Usuario = " + WNetGetUser() + " - " + FWVERSION TIME DATE KEYBOARD

   SET FONT OF oWnd TO oFont

   ACTIVATE WINDOW oWnd

   oFont:End()

RETURN NIL

// para teste solamente - borrar
FUNCTION ImportaDat()

RETURN NIL
 
João Santos - São Paulo - Brasil
Julio Cepeda
Posts: 47
Joined: Wed Oct 12, 2005 6:58 pm

Re: GET xHarbour 1.2.1 FW 11.07 Borland C++ 5.82

Post by Julio Cepeda »

Muchas gracias por tu ayuda (muito obrigado).
Compila bien, has cambiado los colores del primer GET, pero hace lo mismo que el mío, se queda el foco en GET aoGt[ 1 ] y no sale de ahí con nunguna tecla ni con <Enter> ni con <Tabulador>. Hay que pinchar con el ratón en otro GET para que pase.
Compilando con la versión vieja funciona bien y con <Enter> cambia de un GET al otro perfecyamente.
Yo pienso que es algo del xHarbour que funciona mal.

Muchas gracias y recibe un cordial saludo
User avatar
karinha
Posts: 4882
Joined: Tue Dec 20, 2005 7:36 pm
Location: São Paulo - Brasil

Re: GET xHarbour 1.2.1 FW 11.07 Borland C++ 5.82

Post by karinha »

Entonces hay algo errado con tu instalacion de Borland ó de FiveWin.

Mira los archivos .cfg
João Santos - São Paulo - Brasil
Post Reply