Programación General > Power Builder
Picture
F_Tanori:
Pues cuando no tenga fotografia puedes cambiarle el archivo por uno que tu ya tengas
por ejemplo
--- Código: Text ---p_foto.picturename='nodisponible.jpg'
PD. Procura continuar los hilos ya abiertos antes de abrir otro para no crear mas infomacion de lo mismo por todos lados
saludos
alexis17:
gracias, me sirvio
a y lo de seguir el hilo disculpe es que pensaba que era otro punto
alexis17:
buenos dias que tal,
como podria pasar una imagen de una pantalla a otra
ya carge mi imagen en la primera pantalla pero quiero pasarla a otra pantalla para que se vea mas grande
lo estoy intentando pasar con una estructura pero no me sale ya que el campo
en el boton agrandar que es el que llama a la otra ventana coloque
str_foto lstr_foto
lstr_foto.ls_foto = p_foto.Picture
//estoy intentando asirnarle la foto la variable de la estructura para poder enviarla a la otra ventana, no quiero usar nada de base de dato en esa parte porque , bueno me funciono enviandola a la otra pantalla pero era porque en la estructura enviaba el codigo de articulo asi qeu cuando llegaba a al otra ventana yo hacia un select por el codigo de articulo
pero eso no es lo mas optimo ya que si es una imagen nueva y el usuario desea verla mas grande de nada me serviria el codigo de articulo porque no se a grabado nada en al base de datos
y en la que quiero recibir la foto declare como variable de intancia la estructura
str_foto istr_foto
y en el open escribi
istr_foto = message.PowerObjectParm
p_foto.SetPicture(istr_foto.ls_foto)
cuando cree la estructra la variable ls_foto la declare como picture
la idea es poder agarrar la imagen ya cuando la tengo cargada en mi picture
o cuando se me presente en el picture para poder asignarsela a la variable y enviarla a al otra ventana
alexis17:
buenas tardes tengo un problema al tratar de realizar un selctblob
todo me funciona bien si no existiera el codigo de articulo
el problema es el siguiente
tengo mi tabla foto
y ago esto
blob lbl_foto
selectblob foto
into :lbl_foto
from fotos
where cod_articulo = :ls_cod_articulo;
lo de arriba es la version original , pero el problema es que si el codigo de usuario existe me trae un espacio en blanco como no le havia metido la foto
asi que intente colocarle un nvl para verificar si lo que me encontraba era un espacio en blanco le colocara un 0 asi de esa manera yo poder realizar una validacion asi
selectblob nvl(foto, 0)
into :lbl_foto
from fotos
where cod_articulo = :ls_cod_articulo;
pero aa todo le esta poniendo 0
o no se si esa funcion no sirve para los campos tipo blob
ya que yo quiero hacer es
if long(lbl_foto) <> 0 then
p_foto.SetPicture(lbl_foto)
else
.p_foto.picturename= 'nodisponible.bmp'
end if
que si encuentra la imagen me coloque la que esta en al base de datos de lo contrario que me muestre una imagen que ya yo tengo en una carpeta
F_Tanori:
NVL es para datos nulos es como (IFNULL de MySQL o ISNULL de SQL SERVER) , no se si funciones con blob al parecer no ,
Prueba de esta manera
--- Código: Text ---blob lbl_foto setNull(lbl_foto) selectblob fotointo :lbl_fotofrom fotoswhere cod_articulo = :ls_cod_articulo; if isnull(lbl_foto) then p_foto.picturename= 'nodisponible.bmp'else p_foto.SetPicture(lbl_foto) end if
espero te sirva
Saludos
Navegación
[#] Página Siguiente
[*] Página Anterior
Ir a la versión completa