FoxPro/Visual FoxPro - ayuda con el sig error

   
Vista:

ayuda con el sig error

Publicado por pedro (27 intervenciones) el 22/11/2007 18:46:59
estimados señores acudo a ustedes para ver si alguien puede ayudarme con el siguien error :

El archivo 'createheadersource.prg' no existe

y en el depurador me señala la siguiente linea, alguien podria decirme a que se debe o que es lo que me hace falta

DO CreateHeaderSource WITH oDocument, DBF("ProductList"), ;
AddBs(SYS(2023)) +"carta.DOC"

gracias de antemano y Dios los Bendiga

saludos desde Tabasco
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

RE:ayuda con el sig error

Publicado por Ernesto Hernandez (4632 intervenciones) el 22/11/2007 19:05:32
tienes este archivo ???
createheadersource.prg
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

RE:ayuda con el sig error

Publicado por pedro (27 intervenciones) el 22/11/2007 19:18:04
no, pero segun buscando en internet me econtre con los siguiente:

Word 2003 VBA Language Reference
CreateHeaderSource Método

Crea un documento de Microsoft Word que cuenta con un registro de cabecera que se utiliza en lugar de la fuente de datos en un registro de cabecera de la fusión del correo. Este método otorga la nueva cabecera de la fuente especificada documento, que se convierte en un documento principal si no lo es ya uno.

esto fue lo que econtre en esta pagina:

http://translate.google.com/translate?hl=es&sl=en&u=http://msdn2.microsoft.com/en-us/library/aa171926(office.11).aspx&sa=X&oi=translate&resnum=1&ct=result&prev=/search%3Fq%3DCreateHeaderSource%26hl%3Des

espero me puedas ayudar
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

RE:ayuda con el sig error

Publicado por Ernesto Hernandez (4632 intervenciones) el 22/11/2007 19:38:39
pero que es lo que quieres hacer .. ? quizas se pueda hacer de otra manera
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

RE:ayuda con el sig error

Publicado por pedro (27 intervenciones) el 22/11/2007 19:47:04
ok, mira lo que estoy tratando d hacer es combinar correspondencia desde
vfoxpro, la verdad es la primera vez que lo hago, y me estoy apoyando de un libro que se llama "microsoft office automation with visual fox pro", pues ahi viene ejemplos pero no me sale me manda ese error, y la verdad no tengo idea, aqui te mando mi codigo que estoy utilizando, please si me puedes ayudar

#DEFINE CR CHR(13)
#DEFINE wdWord 2
#DEFINE wdCollapseEnd 0
#DEFINE CR CHR(13)
#DEFINE TAB CHR(9)
#DEFINE wdHeaderFooterPrimary 1
#DEFINE wdGray25 16
#DEFINE wdAlignParagraphCenter 1
#DEFINE wdCollapseEnd 0
#DEFINE wdParagraph 4
#DEFINE wdLineStyleDouble 7
#DEFINE wdUserTemplatesPath 2
#DEFINE wdGoToBookmark -1

LOCAL oWord, oDocument, oRange, oBorderRange, cTemplatePath
*LOCAL oWord,oDocument


oWord=CREATEOBJECT("Word.Application")
oWord.Documents.open("C:\Documents and Settings\Arkein\Escritorio\carta.doc")
oWord.Application.Visible=.T.

OPEN DATABASE ("C:\Documents and Settings\Arkein\Escritorio\RESPALDO INFO 161107\PAISA v1.0\paisa.dbc")
SELECT clientes.nombre;
from clientes;
into cursor prueba

DO CreateHeaderSource WITH oDocument, DBF("prueba"),;
ADDBS(SYS(2023))+"carta.doc"

USE IN prueba

WITH oDocument.styles["Normal"].Font
.Name = "Times New Roman"
.size = 12
ENDWITH

&&Agregar cabezera
WITH oDocument.Sections[1].Headers[wdHeaderFooterPrimary]
oRange=.Range()
WITH oRange
.text="Titulo"
.style=oDocument.Styles["Heading 1"]
.ParagraphFormat.Alignment = wdAlignParagraphCenter
.Shading.BackgroundPatternColorIndex = wdGray25
ENDWITH
ENDWITH

oRange = oDocument.Range(0,0)
WITH oRange
.Style = oDocument.Styles[ "Heading 2" ]
.ParagraphFormat.Alignment = wdAlignParagraphCenter
.InsertAfter( "Product Information" + CR + CR )
.Collapse( wdCollapseEnd )
.Style = oDocument.Styles[ "Heading 3" ]
.InsertAfter( "Categoria del Producto: " )
.Collapse( wdCollapseEnd )
oDocument.Bookmarks.Add( "Nombre", oRange )
.InsertAfter( CR )
.Expand( wdParagraph )
.Borders.OutsideLineStyle = wdLineStyleDouble
ENDWITH


saludos, DTB
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

RE:ayuda con el sig error

Publicado por Ernesto Hernandez (4632 intervenciones) el 22/11/2007 21:08:22
estas usando la foundation class de vfp ?

ok mira aqui hay un ejemplo sencillo

http://www.portalfox.com/index.php?name=News&file=article&sid=904&mode=nested&order=0&thold=0
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