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]
