Bloquear edicion por celdas en xbrowse

[Willi Quintana]

Hola amigos.,
Como puedo bloquear una o varias columnas para evitar la edición por celdas en un xbrowse?,
Salu2

[cmsoft]

Hola Willi:
No se si es a esto lo que te refieres, pero si solo le indicas cuales son editables puedes hacerlo asi:

Code: Select all  Expand view

REDEFINE XBROWSE oBrw DATASOURCE oQry;
              COLUMNS "ticomp","numcomp","fecha","saldo","pagado","saldonue";
              HEADERS "Tipo","Nro. Compr.","Fecha","Saldo","Pagado","Nuevo Saldo" FOOTERS;
              SIZES 63,165,80,105,95,95 ID 120 OF oDlg
    oBrw:aCols[4]:nFooterType := AGGR_SUM
    oBrw:aCols[5]:nFooterType := AGGR_SUM
    oBrw:aCols[6]:nFooterType := AGGR_SUM
    oBrw:aCols[5]:lAutoSave := .t.
    oBrw:nMoveType := 4
    oBrw:aCols[5]:nEditType := EDIT_GET    
    oBrw:aCols[5]:bEditValid  := {|oGet, oCol| ControlSaldo(oGet:value,EVAL(oBrw:aCols[4]:bEditValue))} //Control saldo es una funcion que valida el dato ingresado
    oBrw:aCols[5]:bOnPostEdit := {|oCol, xVal, nKey | CambiaSaldo(xval)}   // Cambia saldo me cambia la columna 6 que tiene el nuevo saldo
 

Espero te sirva

[Willi Quintana]

Gracias sr.
Salu2