Power Builder - Como pasar un campo datawindow a Word pero cada registro en la siguiente linea

 
Vista:

Como pasar un campo datawindow a Word pero cada registro en la siguiente linea

Publicado por yerlin (2 intervenciones) el 21/08/2012 17:10:22
Necesito pasar un campo de un datawindow a Word pero cada registro en la siguiente linea
ejemplo:
45978
59874
89758
89668
y asi sucesvamente segun el numero de registros que tenga el datawindows.

Con este codigo me fuciona pero todo me lo arma en una sola cadena ejemplo.
45978598748975889668
POR CIERTO EN EL DOCUMENTO "MODELO CONTRATO1" YA INSERTE UN MARCADOR LLAMADO "CODIGO_TITULAR"
DE ANTEMANO LES GRADESCO SU AYUDA
string ls_cod_id
integer m,li_result
OLEObject documento
documento = CREATE OleObject
li_result = documento.ConnectToNewObject("word.application")
IF li_result <> 0 THEN
DESTROY documento
MessageBox("OLE Error", "No puede conectarse a Word Código: " + String(li_result))
SetPointer(Arrow!)
RETURN
END IF
//Abrir el documento Plantilla
documento.documents.open("C:\MODELO CONTRATO1.doc")
documento.Visible=TRUE
documento.Application.Activate()
for m=1 to dw_reporte.RowCount()
if dw_reporte.GetItemString(m,"documento") <> "" then
//Obtenemos el registro actual
ls_cod_id = dw_reporte.GetItemString(m,"documento")
documento.ActiveDocument.Bookmarks.item("CODIGO_TITULAR").Select
documento.Selection.typetext(ls_cod_id )
documento.selection.GoToNext(1)
end if
next
documento.DisconnectObject()
DESTROY documento
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