offline
- IgorMedo
- Građanin
- Pridružio: 25 Mar 2006
- Poruke: 67
- Gde živiš: Doboj, Republika Srpska
|
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:
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:
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!!!!!!
|
