Hareket tablosundan rapor alacam. Hareket tablosunda ki "HareketTuru" ismindeki bir alan, hareketin Ürün veya Mazlemeye ait olup olmadığını belirliyor. Hareket türü "U" ise ürün adı alınacak, hareket türü "M" ise malzeme adı alınacak. Rapordaki lblAd ürün yada malzemenin adını gösteriyor. Benim yazdığım kod şöyle;
Kod: Tümünü seç
procedure TfrmHareketRapor.QRBand3BeforePrint(Sender: TQRCustomBand;
var PrintBand: Boolean);
begin
if adoQuery.FieldByName('HAREKETTURU').AsString = 'U' then
begin
lblAdi.DataSet := adoUrunTablosu;
lblAdi.DataField := 'URUNADI';
end
else
begin
lblAdi.DataSet := adoMalzemeTablosu;
lblAdi.DataField := 'TURU';
end;
end;