SoloCodigo

listo ya resolvi la validación del precio le coloque una mascara

asi
##.##

antes no me funcionaba pero ahora si

buenas tardes alguien sabe como pasar una picture a otra ventana ?
 

buenas tardes que tal,
estoy intentando actualizar un data windows en el cual lo tengo de modo consulta, aparecen todos mis productos

entonces en otro data windows inserto datos asi que lo que quiero es que cuando grabo un nuevo producto en mi base de datos se actualice el data windows que tiene todos los productos

intente con este codigo que vi en la ayuda de power builder pero no me funciona

CONNECT USING SQLCA;
dw_producto.SetTransObject(SQLCA)
dw_producto.Update()


el unico que me esta actualizando es si hago esto

dw_proveedores.Retrieve()


el retrive es la unica manera de actualizar un data windows o hay otra mejor?

buenos dias que tal

queria realizar otra validacion

estoy usando un datawindows y tengo un campo de texto en el cual escribo el precio del articulo


puede ser 34.56 o
222.87



intente colocarle una mascara pero me quedaba bien porque le ponia ###.##
asi que el usuario tenia que estar moviendo las teclas de direccion para poder poner los centavos o esa es la unica forma?


ese es un datawindows externo

y le puse en la propiedad qeu fuera numerico

asi que cuando en mi ventana el usuario escribe una letra y pasa a otro campo me aparece un mensaje como que viene del data windows que dice caracter invalido


asi que lo que queria hacer era si el usuario escribe alguna letra que sea distinto a un punto o numero le mande un mensaje

puede ser un mensaje cuando cuando este tecleando que le salga caracter incorrecto

intente colocar esto en el evento itenchange del data windows

boolean c

if IsNumber (dw_datos.object.precio_medio[1]) then
    c = true
    messagebox ("Mensaje", "true")
else
    c = false
    messagebox ("Mensaje", "false")
end if

if c = false then
   messagebox ("Mensaje", "Debe introducir un numero en el campo precio medio")
end if

pero no me funciona ,

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

buenas tardes

estoy intentando hacer un drap droup con dos data windows

para luego grabar la informacion que pase del otro

estoy colocando esto antes de hacer el insert

IF is_dw_drag = 'dw_tipo_ordenes' THEN

//ls_find = "cod_asoc =  " +is_tipo  
   
ls_find = "cod_asoc = ' " +is_tipo + " ' "

ll_enc = dw_ordenes_asociadas.Find(ls_find, 1,     dw_ordenes_asociadas.RowCount())


estoy pasando informacion del dw_tipo_ordenes a el dw_ordenes_asociadas

el campo cod_asoc en mi tabla es varchar
y la variable is_tipo es una variable de intancia tipo string

si lo hago con
s_find = "cod_asoc = ' " +is_tipo + " ' "
no me manda error y me permite pasar bien los datos al otro data windows me aparecen aya, pero el problema es que si escojo otro tipo de orden que se llame igual de igual manera me lo deja pasar al otro data windows

pero si lo ago con
ls_find = "cod_asoc =  " +is_tipo

entonces me manda un error el siguiente

Expression is not valit

porque lo que trato de hacer es buscar si no hay alguna orden con ese mismo tipo si no existe entonces me deje insertar  para eso coloque

if ll_enc = 0 then

pero cuando le pongo
ls_find = "cod_asoc =  " +is_tipo

me devuelve -5

pero con
s_find = "cod_asoc = ' " +is_tipo + " ' "

me da 0

/**************************************************

esto mismo yo lo utilice en otros dos data windows y no me dio problemas me pasaban los datos y me permitia grabar sin problemas

y hacia esto

IF is_dw_drag = 'dw_proveedores' THEN
        ls_find = "cod_proveedor = " +string( il_cod_prov)
   ll_enc = dw_provedores_material.Find(ls_find, 1,        
        dw_provedores_material.RowCount())

con la diferencia que el campo cod_proveedor es un campo numerico
y la variable l_cod_prov  es una variable de intancia tipo long

asi que debe ser algo que estoy escribiendo mal que no me funciona bien algo

ya que cuando lo puse con comilla me mando un codigo ejemplo

'AW789'   pero el codigo en la base de datos es AW789

gracias, me sirvio

a y lo de seguir el hilo disculpe es que pensaba que era otro punto

buenas tardes
alguien sabe si ese codigo que coloque sirve para grabar la imagen en la base de datos o solo me guarda la ruta en la base de datos?

buenas noche que tal
 estoy intentando almacenar una imagen en una tabla

ejemplo tabla1
estos son los campos
nombre
apellido
foto

 coloque en un boton esto

STRING ls_pathname, ls_filename, ls_filtro, ls_cod_thab
LONG ll_File

BLOB lbl_data, lbl_temp

integer fila


ls_filtro = "JPEG Files (*.jpg),*.jpg," + "GIFF Files (*.gif),*.gif," + "BMP Files (*.bmp),*.bmp,"

IF GetFileOpenName ( "Archivo de Imagen: ", ls_pathname, ls_filename , "bmp", ls_filtro) = 0 THEN RETURN

p_foto.picturename = ls_pathname


il_nombre = dw_datos.object.nombre[1]
is_apellido = dw_datos.object.apellido[1]
is_foto = dw_datos.object.foto[1]



    INSERT INTO ejemplo
       (nombre,      apellido,     foto)
       VALUES
       (:nombre, :apellido, :foto);
   
   quiero realizar este insert
   estoy utilizando base de datos oracle, y el campo foto en mi base de datos es tipo blob


y estoy utilizando un picture con el nombre de p_foto


bueno cuando mando a correr el programa y oprimo el boton grabar me aparece la ventanita de windows de buscar entonces busco la imagen .bmp que tengo en la carpeta y me la muestra en mi picture otra pregunta es que yo utilizo power builder 6.5 y no veo que los picture soporten jpg solo veo que soportan bmp

mi idea es tener eso es un datawindows external tabular

encontre este ejemplo en internet soy nuevo asi que no se que estoy haciendo mal

BOTON : GRABAR

STRING ls_pathname, ls_filename, ls_filtro, ls_cod_thab
LONG ll_File

BLOB lbl_data, lbl_temp

integer fila
fila=dw_tipohabitacion.getrow( )
string co
co=dw_tipohabitacion.getitemstring(fila,"cod_tipo_hab")
sle_codtipo.text=co




ls_filtro = "JPEG Files (*.jpg),*.jpg," + "GIFF Files (*.gif),*.gif,"
IF GetFileOpenName ( "Archivo de Imagen: ", ls_pathname, ls_filename , "jpg", ls_filtro) = 0 THEN RETURN

p_foto.picturename = ls_pathname
ls_cod_thab = trim(sle_codtipo.text)

ll_File = FileOpen(ls_pathname, StreamMode!)
DO WHILE FileRead(ll_file,lbl_temp) > 0
lbl_data += lbl_temp
LOOP
FileClose(ll_file)

IF ll_File > -1 THEN
FileRead(ll_file, lbl_data)
FileClose(ll_file)
SQLCA.AutoCommit = True
UPDATEBLOB tipo_habitacion SET foto = :lbl_data WHERE cod_tipo_hab = :ls_cod_thab;
SQLCA.AutoCommit = False
ELSE
messagebox('Error','Falló al abrir Archvo')
END IF

IF SQLCA.SQLNRows > 0 THEN
COMMIT;
messagebox('OK: ' + ls_cod_thab,'Se guardó la foto de la Habitacion')
ELSE
messagebox('Error','Falló el Grabar Foto')
END IF
FileClose(ll_file)


BOTON : BUSCAR IMAGEN


Blob lb_imagen
STRING ls_cod_tha
ls_cod_tha = trim(sle_busca.text)

SELECTBLOB foto INTO :lb_imagen FROM tipo_habitacion WHERE cod_tipo_hab = :ls_cod_tha;

p_foto.SetPicture(lb_imagen)

gracias eso era lo que nesesitaba

buenos dias que tal tenia una consulta

estaba realizando insert en dos tablas y actualizacion en las mismas tablas


entonces mi idea era colocarle un indicativo para saber cuando iba a realizar una insercion o una actualizacion ya que utilizo el mismo boton para insertar y actualizar

tengo una tabla y la otra es intermedia de esa asi que por eso le coloque  a la tabla 1 indicativo

a = 1

y a la tabla b cuando realice un insert le coloque un indicativo b= 2


si es una actualizacion para la tabla 1

coloque c = 1

si es una actualizacion para la tabla 2
coloque

d = 1


asi que mi idea mas o menos era bueno utilizar puros if para hacer las preguntas y  de esta manera poder insert o actualizar las tablas

como ejemplo

if a = 1 then
   inset bla bla bla

end if


if b = 1 then
   inset bla bla bla

end if
y asi

asi que lo que queria saber era si lo podria hacer con un case  o swich

o para este caso es mejor utilizar if

mi duda es que no recuerdo bien si le pongo un case

solo me ara eso una sola vez

pero si le pongo un for de 4 entonces los que me insertaron lo ara otra vez


o puede ser que cuando aga el primero entonces le cambie de a= 1   a   a = 0 asi ya no lo ara

mas o menos tengo la idea solo nesesito alguna recomendacion o otra logica

buenas tardes que tal , queria saber si alguien sabe o tiene algun ejemplo de como

importar un documento ya sea en txt o exel y poder cargar esa informacion en una pantalla
ejemplo el documento tiene los campos

nombre
apelido
edad

y cuando coloque importar se me llene la pantalla con dicha informacion

utilizo power builder 6.5