Novo

Forum kao aplikacija na telefonu

Dodajte forum na početni ekran i koristite ga kao aplikaciju, sa menijem na dnu ekrana.

  • 0 odgovora
  • 2.658 pregleda
Problem sa Rave Reports 20.12.2006. u 16:09 · pre 241 mesec #1
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!!!!!!
Prijavite se da biste odgovorili u ovoj temi.PrijavaRegistracija

Premeštanje teme