FiveTech Support Forums

                    WITH OBJECT :Acceso
                      :SetLogical()
                      :SetCheck(NIL,(.T.))
                    END

WITH OBJECT :Acceso
    :SetLogical()
    :nEditType := 0 // o EDIT_NONE
    :SetCheck(NIL,(.T.))
END

// nCol : Columna que no se quiere editar
oBrw:aCols[ nCol ]:bLDClickData := {|| NIL }

:SetCheck( NIL, .t. )  // allows editing
:SetCheck( nil, .F. ) // does not allow eiditing

            REDEFINE XBROWSE oBrx ID 300 OF oDlg;
                DATASOURCE oRsMxu ;
                COLUMNS "MOD_DES", "USU_ACC" ;
                HEADERS "Módulo","Acceso";
                COLSIZES 312,50;
                PICTURES NIL,NIL;
                JUSTIFY {AL_LEFT,AL_CENTER};
                FOOTERS AUTOSORT //FASTEDIT

                WITH OBJECT oBrx
                    :l2007            := (.F.)
                    :lHScroll         := (.F.)
                    :lVScroll         := (.F.)
                    :nMarqueeStyle    := MARQSTYLE_HIGHLROW
                    :nColDividerStyle := LINESTYLE_LIGHTGRAY
                    :nRowDividerStyle := LINESTYLE_LIGHTGRAY
                    :nStretchCol      := STRETCHCOL_WIDEST
                    :nHeaderHeight      := 25
                    :nRowHeight         := 22
                    :nFooterHeight      := 25
                    :bClrHeader       := { || {CLR_WHITE,CLR_BLACK} }
                    :bClrFooter       := { || {CLR_WHITE,CLR_BLACK} }
                    :bClrSel          := { || IF( oBrx:KeyNo % oApp:nRowsInt == 0 ,{ CLR_BLACK, oApp:nRowParClr },{ CLR_BLACK, oApp:nRowNonClr }) }
                    :bClrSelFocus     := { || {oApp:nClrText, oApp:nClrBack} }
                    :bClrStd          := { || IF( oBrx:KeyNo % oApp:nRowsInt == 0 ,{ CLR_BLACK, oApp:nRowParClr },{ CLR_BLACK, oApp:nRowNonClr }) }
                    :nRecSelColor     := oApp:nRowParClr
                    :lDisplayZeros    := (.F.)   // zero values are not displayed. Added by GNRao. No need to use @Z
                    :blDblClick         := { | nRow, nCol, nKey | (Autoriza(oBrx),oBrx:SetFocus())}
                    :bKeyDown           := { | nKey, nFlags | IIF(nKey == VK_RETURN,(Autoriza(oBrx),oBrx:SetFocus()),)}

                    WITH OBJECT :aCols[01]
                        :cOrder := "A"
                    END

               WITH OBJECT :Acceso
                  :SetLogical()
                  :SetCheck(NIL,(.F.))
               END
            END