Este código compilado con FWHX 2.8 September 2006 y Harbour 4.26 flex funciona perfectamente.
aoGt[ 1 ]:bKeyChar := { | nKey | IF( nKey == K_ENTER, ;
( Articulo->( OrdSetFocus( 2 ) ), ;
IF( Articulo->( DbSeek( AllTrim( cCodiBa14 ) ) ), ;
( cCodiBa14 := Articulo->cCodiBar14,;
cDesCri35 := Articulo->cDescrip35,;
dFechCa08 := Articulo->dFechCad08,;
nPrecio11 := Articulo->nPrec1Ve11,;
lPromoc01 := Articulo->lPromoci01,;
nPorIva05 := Articulo->nImpuIva05,;
aoGt[ 7 ]:Refresh(), ;
aoGt[ 1 ]:Refresh(), ;
aoGt[ 3 ]:Refresh(), ;
aoGt[ 5 ]:Refresh(), ;
aoGt[ 12 ]:Refresh(), ;
aoGt[ 13 ]:Refresh(), ;
aoGt[ 4 ]:SetFocus() ), ;
( MsgStop( "No se encuentra", "ERROR" ), aoGt[ 1 ]:SetFocus() ) ), ;
IF( lPromoc01, ;
( nTipoPromo := VerPromoci( cCodiBa14, @lPromoc01, oDlg ), aoCh:Refresh(), aoGt[ 13 ]:Refresh() ), ) ), ) }
Si lo compilo con Fwh #define FWVERSION "FWH 11.07" y Hrbour 2.0.1Beta1 rev 14559 no da ningún error pero no funciona. Cuando se pulsa Intro con el GET aoGt[ 1 ] rellenado con un valor pasa al GET siguiente pero no hace nada.
A veces hay que pulsar Intro 2 veces para que pase al siguiente GET.
¿ Alguien sabe por qué ?
Gracias