Power Builder - Como desplegar campos en otras columnas

 
Vista:

Como desplegar campos en otras columnas

Publicado por Alicia Hurtado (8 intervenciones) el 10/03/2004 23:07:46
Hola!
Disculpen me podriàn ayudar por favor en el siguiente problema:
Tengo un windows con un datawin el cual fue diseñado en forma de grid con los campos: codigo (primera columna) que contiene un dddw con el codigo de mis productos y sus nombre esto ya lo logrè, ahora quiero desplegar en la columna nombre, el nombre del producto, en la columna precio el valor del producto, es decir, mis campos de la columna 2 y 3 se van a desplegar en funciòn de la selecciòn realizada en la columna.
De antemano agradezco su valiosa ayuda
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

RE:Como desplegar campos en otras columnas

Publicado por Ricardo (1957 intervenciones) el 11/03/2004 00:05:11
Hola que tal:

En el evento rowfocuschanged valida el campo que esta cambiando (codigo)

Integer li_codigo //definido con el tipo correcto
choose case dwo.name
case 'codigo' // si es el codigo
li_codigo = integer(data)
// Por medio de un select buscas el nombre y precio del producto
// Los guardas en una variable y los envias a los campos con
this.SetItem(row, 'nombre', ls_nombre)
this.SetItem(row, 'precio', ld_precio)

Listo. Espero sea lo que necesitas. Suerte!
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

RE:Como desplegar campos en otras columnas

Publicado por Ricardo (1957 intervenciones) el 11/03/2004 18:04:04
Hola Ricardo...
Disculpa que nuevamente te moleste
Probè la respuesta que tu me diste de la siguiente manera en el evento itemchanged, ya que en el rowfocuschanged no me reconocia el dwo.name ni el data:
integer li_cod, li_prec
string ls_par, ls_dwo
dw_grid.accepttext()
choose case dwo.name
case "ctsrcdgo"
li_cod=integer(data)

select ctsrprmt
into:ls_par
from ctsr,dtct
where ctsr.ctsrcdgo=dtct.ctsrcdgo and ctsr.ctsrcdgo= ctsr.ctsrcdgo
using sqlca;
this.setitem(row,"ctsrprmt",ls_par)
end choose
Al momento de ejecutarlo y al seleccionar en mi dddw tengo el error de invalid datawindows row/column line 18 es de decir, en el(this.setitemrow,"ctsrprmt",ls_par), en el despliegue de datos de los otros campos.
Gracias por tu ayuda y espero tu respuesta,
Chau
Hasta Pronto
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

RE:Como desplegar campos en otras columnas

Publicado por Alicia Hurtado (8 intervenciones) el 11/03/2004 18:07:08
Hola Ricardo...
Disculpa que nuevamente te moleste
Probè la respuesta que tu me diste de la siguiente manera en el evento itemchanged, ya que en el rowfocuschanged no me reconocia el dwo.name ni el data:
integer li_cod, li_prec
string ls_par, ls_dwo
dw_grid.accepttext()
choose case dwo.name
case "ctsrcdgo"
li_cod=integer(data)

select ctsrprmt
into:ls_par
from ctsr,dtct
where ctsr.ctsrcdgo=dtct.ctsrcdgo and ctsr.ctsrcdgo= ctsr.ctsrcdgo
using sqlca;
this.setitem(row,"ctsrprmt",ls_par)
end choose
Al momento de ejecutarlo y al seleccionar en mi dddw tengo el error de invalid datawindows row/column line 18 es de decir, en el(this.setitemrow,"ctsrprmt",ls_par), en el despliegue de datos de los otros campos.
Gracias por tu ayuda y espero tu respuesta,
Chau
Hasta Pronto
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

RE:Como desplegar campos en otras columnas

Publicado por Ricardo (1957 intervenciones) el 11/03/2004 22:24:36
Ese error lo marca cuando la columna que se indica como referencia para contener el valor no existe.

En este caso parece que "ctsrprmt" no existe en el DW.

this.setitem(row,"ctsrprmt",ls_par)

Suerte!
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

RE:Como desplegar campos en otras columnas

Publicado por Alicia Hurtado (8 intervenciones) el 15/03/2004 21:39:06
Gracias por notar ese error. Disculpa, realicè un debug de mis variables y mi variable ls_par tiene el valor de "", talvez me podrias ayudar a descubrir el error en mi select.. . por favor
int li_codd, li_parm, li_cod1, li_cod2
string ls_par,ls_cod
string gi_cotiz2,ls_query
dw_grid.accepttext()
choose case dwo.name
case 'ctsrcdgo'
gi_cotiz1=integer(data)
select ctsr.ctsrprmt
into: ls_par
from ctsr
where ctsr.ctsrcdgo= gi_cotiz1
using sqlca;
end choose
MessageBox("Codigo ","El cod del catalogo = "+String(gi_cotiz1))
dw_grid.SetItem(dw_grid.GetRow(),"ctsrprmt",ls_par)
messagebox("Valor","El parametro es:" + ls_par)
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