Power Builder - Codigo

   
Vista:

Codigo

Publicado por Juan F. (206 intervenciones) el 27/11/2008 22:55:02
Hola a todos denuevo, he logrado capturar un dato de un datawindow con una extructura llamada datos, a la que le he agregado un campo tipo string llamado codigo, asimismo he declarado en global variables esto "datos str_datos" y he programado a la hora de hacer la busqueda en esa ventana que me capture la serie del producto buscado y al momento de pasar a la otra ventana con un boton siguiente:
En la otra ventana al dar click en nuevo automáticamente me pegue esa serie del producto buscado en un campo que yo le he especificado de esta forma:

Al Buscar (paso1) (Primera ventana)

string ls_nom
ls_nom=sle_buscar.text
if ls_nom = "" then
dw_busqueda.Setfilter("")
else
dw_busqueda.setfilter("left(upper(serie), " + string(len(ls_nom)) + ") = '" + &
Upper (ls_nom) + "'")
end if
dw_busqueda.Filter()
str_datos.codigo = string(sle_buscar.text)

Ahora en el open de la otra ventana:

dw_clientes.sETtRANS(SQLCA)
dw_clientes.RETRIEVE()

STRING SERIE
SELECT serie
INTO : SERIE
FROM EQUIPOS
WHERE UPPER(EQUIPOS.serie) =UPPER(:str_datos.codigo);
IF SQLCA.SQLCode = 0 THEN
MessageBox("M E N S A J E", "NO SE ENCONTRO EL REGISTRO ANTES INGRESADO")
END IF

Ahora en el botón Nuevo:

int b
b=dw_clientes.insertRow(0)
dw_clientes.Scrolltorow(b)

dw_clientes.SetItem(b, "serie_equipo_asignado",string(str_datos.codigo) )

Todo funciona de maravilla, ahora yo quiero capturar un dato pero de un campo numérico de la tabla cliente, quiero hacerlo de esta misma forma pero al agregar una fila más a esa estructura ya sea numérico o decimal con cualquier otro nombre no me hace nada, me podrian corregir en que puedo estar mal asimismo, me podrian corregir en estos códigos que tengo que cambiar para que resulte?.

Gracias de antemano a todos
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