Power Builder - checbox

   
Vista:

checbox

Publicado por MARCOS (64 intervenciones) el 17/04/2015 15:28:55
Buenos dias amigos,
Tengo una consulta tengo una lista en una dw en esta lista hay un campo llamado id que esta con un checbox, estoy intentando que en un botón al darle clic me ponga todos sin la selección los valores con N= no activado S= activado tengo el siguiente código pero no se si voy bien si alguien me puede ayudar le agradezco.

long ll_filas, ll_cont, il_confilas
String ls_seleccion
ll_filas = dw_1.RowCount()
il_confilas=ll_filas
//messagebox("mensaje"," Total archivos guardados...." + STRING(ll_filas))
for ll_cont=1 to il_confilas


ls_seleccion = TRIM(dw_1.GetItemString(ll_cont,"ind_exportar"))
if ls_seleccion='S' then

ls_seleccion = 'N'
end if


next
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

checbox

Publicado por Jeinner (638 intervenciones) el 17/04/2015 23:05:52
Hay un detalle, es mejor utilizar también una variable de instancia, para identificar si se desea poner todo como activo o todo como inactivo, eso el botón como tal no te lo controla.
Así entonces, digamos que utilizas:
1
Boolean ib_Marcado_Desmarcado=FALSE  // Todos están desmarcados al inicio.

Cuando se presiona el botón, se cambia el estado de la variable de instancia:
1
ib_Marcado_Desmarcado=(ib_Marcado_Desmarcado=TRUE)

Incluso se puede refrescar el texto del botón, para que se vea más claro.
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
If ib_Marcado_Desmarcado Then
   bo_Marcar_Todo.Text='DESMARCAR TODO'
 
Else
   bo_Marcar_Todo.Text='MARCAR TODO'
End If
 
// Ahora el Marcado o Desmarcado.
For ll_cont=1 to dw_1.RowCount()
     If  ib_Marcado_Desmarcado Then
        dw_1.Object.Ind_Exportar[ll_Cont] = 'S'
 
     Else
         dw_1.Object.Ind_Exportar[ll_Cont] = 'N'
     End If
End If
dw_1.AcceptText()
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
1
Comentar

checbox

Publicado por MARCOS (64 intervenciones) el 17/04/2015 23:14:36
Excelente Jeinner muchas gracias la verdad me faltaba sobre el
dw_1.Object.Ind_Exportar[ll_Cont] = 'S'
te lo agradezco muchisimo
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar