FiveTech Software tech support forums

Hola Amigos
Estoy peleándome con una copia del TestTcb2.prg, hice algunas pequeñas modificaciones, compila bien pero sale este msg.
"Este programa ha efectuado una operacion no admitida y sera interrumpido.
Si el problema persiste, consulte al proveedor del programa"

no encuentro la diferencia, ni el error
///////
Function main() // Mantenimiento al Maestro de Presupuestos
priv oDlg,oFnt
priv oBrw //oLbx
priv oBtnEsc,oBtnF1,oBtnF2
priv tPre:={{" ",0,0}}

DEFINE FONT oFnt NAME "Ms Sans Serif" SIZE 0, -12

DEFINE DIALOG oDlg TITLE "CO130 Archivo de Presupuestos" ;
FONT oFnt FROM 3,25 to 30,75

@ 4, 5 COLUMN BROWSE oBrw OF oDlg ;
SIZE 120, 100 ; // \fwh\samples\testTCB3.prg
ON LEFT DBLCLICK EditCell( oBrw, nRow, nCol )

oBrw:SetArray( tPre )

oBrw:lLogicDrop := .t. // use crazy logic dropbox
oBrw:lNoHScroll := .t. // don't use that pesky horiz scroll bar NO Func
oBrw:nAdjColumn := 2 // expand this column to flush table right
oBrw:nFreeze := 1 // This will freeze all & prevent horiz scrolling
// NOTE can't resize/drag on frozen columns

ADD COLUMN TO oBrw DATA ARRAY ELEM 1 HEADER "Periodo" ;
SIZE 45 RIGHT

ADD COLUMN TO oBrw DATA ARRAY ELEM 2 HEADER "Monto Mensual" ;
EDITABLE SIZE 90 RIGHT PICTURE "99999,999,999.99"

ADD COLUMN TO oBrw DATA ARRAY ELEM 3 HEADER " Acumulado" ;
SIZE 90 RIGHT PICTURE "99999,999,999.99"

@10,03 BUTTON oBtnEsc PROMPT "Esc - Salir" SIZE 40,16 OF oDlg ;
Action (oDlg:End())

ACTIVATE DIALOG oDlg

oFnt:end()
return nil
//////

lo peor de todo es que el testtcb2.prg sí funciona.
cualquier ayuda será bienvenida
muchas gracias de antemano
Jorge Vargas

[/b]

Hola Amigos
solucionado el asunto:
solo descargué el nuevo build de xHarbour anunciado el 23 de mayo y se solucionó solito.
cosas de Orinoco
muchas gracias de todas maneras
saludos
Jorge Vargas