Antonio Carlos - Curitiba - Brasil
DEFINE BROWSE Browse_1
PARENT form_1
ROW 85
COL 20
WIDTH 1150
HEIGHT 630
FONTNAME 'Courier New'
FONTSIZE 12
FONTBOLD .T.
HEADERS {nil, 'Hora','PV','Situacao','Detalhe','Oc1','Oc2','Oc3','Oc4','Oc5'}
WIDTHS { 40, 70 , 35 , 120 , 670 , 300 , 300 , 300 , 300 , 300 }
IMAGE { "ajuda", "acerto" , "audit" , "devol" , "vala", "valx", "vlb" }
WORKAREA csr
FIELDS aNomb
VALUE 1
LOCK .T.
READONLY { .T. , .T. , .T. , .F. , .T. , .T. , .T. , .T. , .T. , .T. }
DYNAMICBACKCOLOR { NIL, rColor, rColor, xColor, rColor, rColor , rColor, rColor , rColor , rColor }
DYNAMICFORECOLOR { NIL, bColur, bColur, bColur, bColur, bColur , bColur, bColur , bColur , bColur }
NOLINES .t.
ON DBLCLICK {|| msginfo('test') }
ONLOSTFOCUS xTransfer()
INPLACEEDIT .T.
ALLOWEDIT .T.
END BROWSE
Form_1.Browse_1.InputItems := {Nil ,Nil ,Nil , xStat , Nil, Nil, Nil, Nil , Nil , Nil }
form_1.browse_1.refresh()
form_1.browse_1.setfocus