Power Builder - adjuntar archivos

   
Vista:

adjuntar archivos

Publicado por Francisco (97 intervenciones) el 15/05/2012 17:39:11
hola colegas espero que esten todo bien en sus trabajos, mi consulta es que debo realizar lo siguiente :

1.en una carpeta debo guardar varios doc. con extensiones, ej. doc,pdf etc.

2.-estoy relizando una apli. para guardar proyectos de una emp.

3.- el proyecto lleva un codigo, los doc. a adjuntarce debe estar relacionado con el codigo del proyecto, como puedo hacer que el doc a adjuntar quede con el codigo del proyecto.

4. se Debe buscar el codigo del proyecto y mostrar todo los doc adjunto.

5. una vez encontrado este doc, verlo en pantalla y imprimirlo


bueno espero su ayuda



gracias


Francisco
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

adjuntar archivos

Publicado por JeinnerH jhidalgo@excelteccr.com (638 intervenciones) el 16/05/2012 16:19:02
Hola Francisco. Vas a guardar los documentos en la base de datos o sólo quieres renombrarlos dentro de la carpeta?

Necesitas llevar el control de versiones de los documentos a como se vayan modificando o es sólo verlos e imprimirlos?

Saludos.
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

adjuntar archivos

Publicado por Francisco (97 intervenciones) el 16/05/2012 22:27:03
gracias por responderme, necesito guardarlo en una carpeta distintas extenciones ,crear una ruta con el nombre doc y el codigo del proyecto, grabar la ruta en una tabla,y buscarlo para verlo y imprimir
es mejor grabar la ruta del doc, ye que es mas rapido para verlo , como hago para verlo el doc
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

adjuntar archivos

Publicado por jeinnerh jhidalgo@excelteccr.com (638 intervenciones) el 16/05/2012 22:55:15
Para poder abrir un documento de word, por ejemplo, puedes utilizar un codigo similar a este:
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
OLEObject WordApp
 
WordApp=CREATE OLEObject
ll_retorno=WordApp.ConnectToNewObject("word.application")
If ll_retorno <> 0 then
	MessageBox("Atención", "No se pudo establecer la conexión con Word.", StopSign!)
	DESTROY WordApp
	RETURN
End If
 
If rb_docnuevo.Checked Then
	// Generar un documento totalmente nuevo
	WordApp.Documents.Add
	// Si genera un documento nuevo siempre edita el mismo
 
ElseIf rb_docexistente.Checked Then
	// Generar un documento nuevo a partir de uno existente
	ls_archivoexistente=sle_docexistente.Text
	// Verificar que el archivo exista
	If Not FileExists(ls_archivoexistente) Then
		MessageBox("Atención!", "El documento que se especificó no existe.", StopSign!)
		DESTROY WordApp
		RETURN
	End If
 
	// Cargar un documento existente
	WordApp.Documents.Open(ls_archivoexistente, False, False, False, '', '', False, '', '', 0)
End If
 
WordApp.Visible=TRUE
 
DESTROY WordApp
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