[ IgorMedo @ 20.12.2006. 15:09 ] @
Koristim Delphi 7.0 i Rave reports 5.0 za izvještaje. Moj problem je sledeći Kada koristim komponentu CustomConnection za pravljenje izvještaja ne mogu da prenesem podatke iz tmemo komponente na izvještaj, ovako izgleda kod za definisanje polja: Kod: procedure TModulbazePrijemServisa.RVKonekcijaGetCols( Connection: TRvCustomConnection); begin Connection.WriteField('DatumPrijema',dtString,11,'',''); Connection.WriteField('DatumProdaje',dtString,11,'',''); Connection.WriteField('Garancija',dtString,2,'',''); Connection.WriteField('Uredjaj',dtString,50,'',''); Connection.WriteField('Marka',dtString,30,'',''); Connection.WriteField('Grupa',dtString,30,'',''); Connection.WriteField('SN',dtString,25,'',''); Connection.WriteField('UServisu',dtString,2,'',''); Connection.WriteField('Ime',dtString,30,'',''); Connection.WriteField('Prezime',dtString,30,'',''); Connection.WriteField('Adresa',dtString,30,'',''); Connection.WriteField('Mjesto',dtString,30,'',''); Connection.WriteField('BrTel',dtString,15,'',''); Connection.WriteField('BrMob',dtString,15,'',''); Connection.WriteField('Prodavnica',dtString,30,'',''); Connection.WriteField('Servis',dtString,30,'',''); Connection.WriteField('BrUredjaja',dtString,30,'',''); Connection.WriteField('Dodaci',dtMemo,240,'',''); end; a ovako za upisivanje sadržaja: Kod: procedure TModulbazePrijemServisa.RVKonekcijaGetRow( Connection: TRvCustomConnection); var a:integer; memo:dtmemo; begin Connection.WriteStrData('',FPocetna.txtDatumPrijema.Text); Connection.WriteStrData('',FPocetna.txtDatumProdaje.Text); Connection.WriteStrData('',FPocetna.cmbGarancija.Items.Strings[FPocetna.cmbGarancija.itemindex]); Connection.WriteStrData('',FPocetna.cmbTipUredjaja.Items.Strings[FPocetna.cmbTipUredjaja.itemindex]); Connection.WriteStrData('',FPocetna.lblMarka.Caption); Connection.WriteStrData('',FPocetna.lblGrupa.Caption); Connection.WriteStrData('',FPocetna.txtSN.Text); Connection.WriteStrData('',FPocetna.cmbUServisu.Items.Strings[Fpocetna.cmbUServisu.itemindex]); Connection.WriteStrData('',FPocetna.txtIme.Text); Connection.WriteStrData('',FPocetna.txtPrezime.Text); Connection.WriteStrData('',FPocetna.txtAdresa.Text); Connection.WriteStrData('',FPocetna.txtMijesto.Text); Connection.WriteStrData('',FPocetna.txtBrojTel.Text); Connection.WriteStrData('',FPocetna.txtBrojMob.Text); Connection.WriteStrData('',FPocetna.cmbProdajnoMjesto.Items.Strings[FPocetna.cmbProdajnoMjesto.ItemIndex]); Connection.WriteStrData('',FPocetna.cmbPSServisi.Items.Strings[FPocetna.cmbPSServisi.itemindex]); Connection.WriteStrData('',FPocetna.lblBrUredjaja.Caption); Connection.WriteBlobData('',);//E ovde je problem ne mogu da upišem, šta god da napišem prijavi gršku end; Kako ovo da riješim!!!!!! |