marcioe Posted February 8, 2019 Report Share Posted February 8, 2019 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 Quote Link to comment Share on other sites More sharing options...
Alain da Silva Posted February 8, 2019 Report Share Posted February 8, 2019 boa tarde, onde eu consigo a classe tWord() obrigado Quote Link to comment Share on other sites More sharing options...
marcioe Posted February 8, 2019 Author Report Share Posted February 8, 2019 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... Quote Link to comment Share on other sites More sharing options...
Recommended Posts
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.