ADENDO DE CONTRATO USANDO TWord()

[marcioe]

Amigos, estou usando a TWord() para gerar contratos de locacao, está perfeito na geração de contratos, usando a oWord:Replace("@Nome_locador", Nome_locador  )
Ele troca certinho emite o contrato no Word perfeito.

Porem temos a situação de Adendos de contratos, onde precisamos armazenas as clausulas do refeido adendo contratual formatado (padrão word) para isso usamos os dados da coluna DESCRICAO_ADENDO da tabela contrato_adendo, que está em MYSQL

O problema é que preciso oWord:Replace("@o_Nome_Arquivo_Word_Memorando", VAR_DESCRICAO_ADEND  )

Vejam o que acontece

1) Usuario Digita as particularidades do Adendo

'

Dai tem o "MODELO DE ADENDO" ja Digitado no Word, onde Troco os Dados @Variavel, para os dados do Locador, Locatario, etc... funciona, porem o que ele tinha Digitado "particularidade" do adendo vem "truncado"

Veja o Resultado, a parte em destaque de vermelho ele fez o  oWord:Replace("@Nome_locador", Nome_locador  ) e demais Campos de Forma Perfeita, porem o 

 oWord:Replace("@o_Nome_Arquivo_Word_Memorando", VAR_DESCRICAO_ADEND  ), fica Todo Tosco......

Para Gravar os dados do Adendo, fazemos assim

		   BEGIN TRANSACTION
				cQuery_Mtabela  := "UPDATE contrato_adendo SET " 
				cQuery_Mtabela	 := cQuery_Mtabela + " ID_CONTRATO		    		= " +	TRANSFORMA_SQL(T_NUMERO_CONTRATO_ADENDO,"N",11,0) 		+ ","
				cQuery_Mtabela	 := cQuery_Mtabela + " DATA_ADENDO			    	= " +	TRANSFORMA_SQL(T_DATA_ADENDO_CONTRATUAL,"D",08,0) 	+ ","
				cQuery_Mtabela	 := cQuery_Mtabela + " DESCRICAO_ADENDO    		= " +	ANY2SQL( Strtohex (o_Nome_Arquivo_Word_Memorando ))
				cQuery_Mtabela	 := cQuery_Mtabela + " WHERE ID 	 					= " + TRANSFORMA_SQL(v_Id_Adendo,"N",11,0) + ' LIMIT 1'
				COMITAR_DADOS_SQL(cQuery_Mtabela)
			END TRANSACTION

Já Tentei isso tudo, já estou sem opçoes

         *? Strtohex(ALLTRIM(contrato_adendo_edicao->DESCRICAO_ADENDO))
            *MemoRead( contrato_adendo_edicao->DESCRICAO_ADENDO )   GTFToRTF
            o_Nome_Arquivo_Word_Memorando    := GTFToRTF( TxtToGTF( hextostr(contrato_adendo_edicao->DESCRICAO_ADENDO))) 
            *TxtToGTF( MemoRead( cVar1 ) )

 

 

Estrtutura da tabela de Adendo

CREATE TABLE `contrato_adendo` (
	`ID` INT(11) NOT NULL AUTO_INCREMENT,
	`ID_CONTRATO` INT(11) NULL DEFAULT '0',
	`DATA_ADENDO` DATE NULL DEFAULT '0000-00-00',
	`DESCRICAO_ADENDO` LONGBLOB NULL DEFAULT NULL,
	PRIMARY KEY (`ID`),
	INDEX `IDX_ID_CONTRATO` (`ID_CONTRATO`),
	INDEX `IDX_DATA_ADENDO` (`DATA_ADENDO`)
)
COMMENT='Adendos Contratuais'
COLLATE='utf8_general_ci'
ENGINE=InnoDB
AUTO_INCREMENT=10
;

Espero ter Explicado de forma clara.

 

Agradeço antecipadamente aos amigos

[Alain da Silva]

boa tarde, onde eu consigo a classe tWord()

 

obrigado

[marcioe]

 

Olha só não tem que ser usando a  tWord(),

pode ser qualquer uma outra forma que dê para eu fazer o que estou querendo...