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


0