Power Builder - Guardar imagen en Base de Datos

If Upperbound(a_imagenes) > 0 then

	For cant = 1 To Upperbound(a_imagenes)

		vid_consulta = datawin.getitemnumber(1, 3)

		vpath_imagen = vn_path + '\' + a_imagenes[cant]

		Insert Into Gtv_escaneos_consultas (id_consulta, id_imagen, imagen, id_usuario, fec_ult_actualizacion)

			Values (:vid_consulta, :cant, CAST( :vpath_imagen AS  varbinary(max)), :vid_usuario, getdate());

		If Sqlca.Sqlcode = -1 then

			Messagebox("Atención!", "Hubo un error al guardar las imagenes escaneadas.Avise al programador, las imagenes no quedarán guardadas" + Sqlca.SQlerrtext)

			Return False

		End if

	Next

End

Blob lblb_archivo

Integer li_filehandler, ll_id

li_filehandler = FileOpen( ls_filename, StreamMode! )

if li_filehandler <> -1 then

    FileReadEx(li_filehandler, lblb_archivo)

    FileClose(li_filehandler)

   ll_id = f_next_id("archivos_digitales")

   UPDATEBLOB archivos_digitales SET archivo = :lblb_archivo where id_archivo = :ll_id;

	if SQLCA.SQLNRows > 0 then

		COMMIT;

		f_mensaje("I", "File uploaded correctly")

		return ll_id

	end if

	if SQLCA.SQLCode = -1 then

		f_mensaje("A", "SQL error" + ln+ SQLCA.SQLErrText)

		return 0

	end if

end if

li_id = f_next_id("archivos_digitales")

INSERT INTO archivos_digitales (id) VALUES ( li_id)

// y despues el UPDATEBLOB    (la columna "archivo")  debe aceptar nulos, para que puedes hacer el insert antes,  o lo podrias hacer con un datastore y al hacer el  InsertRow y el update  obtienes el ID  y luego haces el Update del Datastore,  2 tecnicas usa la que mas te guste