FiveTech Support Forums

MarioG wrote:Gente;
Pretendo mostrar el estado de una fila mediante :Setcheck(), la columna es de tipo 0 y 1. Ya hice un monton de pruebas y no entiendo como es el proceso;
como debo hacerlo?
Esto es lo último que intente, aunque evidentemente no esta bien:

Code (fw): Select all Collapse

   WITH OBJECT oBrwOb:Tag
      :SetCheck( { "bmp_ver", "" }, {|o, v| oQryOb:Update( "obras", {"tag"}, {if( oBrwOb:Tag==0, 1, 0 )}, "id_obra='"+oBrwOb:id_obra+"'" ) } )
   END

gracias

Gracias José... es correcta tu apreciasión

Buen dia, resolvi esto pero lo vi como medio trabajoso, con un array no hay problema, pero cuando es directo sobre el query, entonces grabe en la tabla y actualice el query, pero si el cliente cancela, entonces tengo que hacer un reccorrido del query para dejar la tabla como estaba antes que el usuario TILDARA. Habra alguna otra forma de hacerlo.? si alguien puede compartir su experiencia o forma de hacerlo haber si es mas corta, practica y menos trabajose de como lo hago, gracias, saludos...

DEFINICION DE LA COLUMNA
oBrw:aCols[4]:bEditValue := {|| IIF( oQryADJ:LastRec() == 0, SPACE(10) ,;
( IIF( oQryADJ:adj_adjudicar==0, .f., .t. ) ) ) }
oBrw:aCols[4]:SetCheck() // COLOCA CHECK BOX EN TODA LA COLUMNA, CAMPO DEBE SER LOGICO(.t.,.f.)

EL DOBLE CLICK O SPACIADORA
:bLDblClick := {|nRow|IIF( oQryADJ:adj_adjudicar = 0 ,;
( oQryADJ:adj_adjudicar := 1 ) ,;
( oQryADJ:adj_adjudicar := 0 ) ) ,;
act_check( oQryAdj ) ,;
oQryADJ:REFRESH(), oBrw:REFRESH() }

FUNCION act_check DONDE HAGO EL JUEGO DE ACTUALIZACION TABLA/QUERY
cSql := "UPDATE cronograma SET "
cSql += "adj_adjudicar=" + ClipValue2SQL( IF( oQryAdj:adj_adjudicar == 0, 1, 0 ) )
cSql += " WHERE adj_insc = '" + ClipValue2SQL( oQryAdj:adj_insc ) + "' "