Salutare,

am o tabela in care am mai multe date stocate despre oameni, si vreau sa generez din program tot felul de adeverinte, contracte, etc... Ma poate ajuta cineva, va rog, si sa-mi spuna cum as putea insera in fisiere RTF gata completate, la anumite pozitii, date pe care le extrag din tabela mea....

Multumesc anticipat!

Io am inteles ca vrea sa scrie peste "locurile goale" din RTF, chiar in fisier nu pe hartie la imprimanta.

Nu stiu daca se poate, dar ar fi fain. Parca era ceva in solutions.app cu editboxuri formatate

{\rtf1\ansi\ansicpg1252\deff0{\fonttbl{\f0\fnil\fcharset0 Arial;}}
\viewkind4\uc1\pard\qc\lang1033\b\fs24 CONTRACT DE PRESTARI SERVICII
\par \b0\fs18 NR. \b  <<oTx.CtrNr>>  /  <<oTx.CtrAn>>\b0 
\par \pard Incheiat la data de:\b\i <<oTx.CtrData>>\b0\i0 
\par
\par  \b PARTILE:\b0
\par
\par \b <<oTx.PresDen>>\b0 , infiintat prin Ordonanta Guvernului nr........., aprobata prin Legea nr......, cu sediul in <<oTx.PresAdr>>, Tel: <<oTx.PresTel>>, Fax: <<oTx.PresFax>>, Cod inregistrare fiscala (C.I.F.) <<oTx.PresCui>>, Cod IBAN, <<oTx.PresIban>>, <<oTx.PresBanca>>,
\par reprezentat prin \b <<oTx.PresFun1>>, <<oTx.PresNum1>>\b0  prin \b <<oTx.PresFun2>>, <<oTx.PresNum2>>\b0 , in calitate de PRESTATOR
\par si
\par \b <<oTx.BenDen>>\b0  cu sediul in <<oTx.BenAdr>>, tel/fax <<oTx.BenTel>>,  Inregistrata la Registrul Comertului cu nr. <<oTx.BenReg>>, Cod Unic de Inregistrare C.U.I. <<oTx.BenCui>>, Cod IBAN <<oTx.BenIban>>, deschis la <<oTx.BenBanca>>
\par reprezentat prin \b <<oTx.BenFun1>>, <<oTx.BenNum1>>\b0  si \b <<oTx.BenFun2>>, <<oTx.BenNum2>>\b0 , in calitate de BENEFICIAR
.............
\par }

    WITH this.Parent.cntRichText
        IF this.Parent.Tag='1'
            .oleRTF.TextRTF=TEXTMERGE(Ctr.cuprins)
            .cntMeniuRTF.cbxFontName.Value=.oleRTF.SelFontName
            .cntMeniuRTF.cbxFontSize.Value=.oleRTF.SelFontSize
            .cntMeniuRTF.cmgParagraf.cmdLeft.Tag='0'
            .cntMeniuRTF.cmgParagraf.cmdRight.Tag='0'
        ELSE
            .oleRTF.TextRTF=Ctr.cuprins
        ENDIF
        .oleRTF.Refresh()
    ENDWITH