Todo me funciona correctamente mientras no utilice un campo Memo.
Mi problema es al querer incluir un campo memo a la clase de Tword pero cuando creo una base con campos memos me marca error al querer abrir la base.
Alguien esta utilizando Tword y campos memos.
STAT FUNC Imp_Carta(vCar)
local cArchivo
local cModelo, oWord, nCarta
oDTab:=Open_Dbf("BONOCAR" )
IF (oDTab)->(DbSeek(vCar))
nCarta :=ALLTRIM((oDTab)->nCarta)
EndIf
Close_Dbf("BONOCAR",oDTab)
cModelo := ALLTRIM(cruta+'CARTAS\'+nCarta)
cArchivo := ALLTRIM(cruta+"GENONO.DBF")
// inicia OLE com Word
oWord := TWord():New() // inicia o objeto OLE Word
oWord:OpenDoc( cModelo ) // abre o documento modelo
oWord:OpenDataSource( cArchivo ) // abre o data source (contrato.dbf)
oWord:oMailMerge:Invoke( "Execute" ) // executa a funcao do Word de mala direta
oWord:Visualizar() // visualiza o documento
RETURN (NIL)
¿alguna sugeremcia?
Mil Gracias.
Saludos