Kod: Tümünü seç
dm_.myq_sepet.Active:=false;
dm_.myq_sepet.SQL.Clear;
dm_.myq_sepet.SQL.Add('select st.STOKKOD,st.STOKISIM,s.BIRIM,s.MIKTAR from webapp_sepet s,stoktanim st where s.STOKID=st.ID AND s.CHID='+inttostr(MainForm.chid)+' order by s.ID');
dm_.myq_sepet.Open;
dm_.myq_sepet.Active:=true;
dm_.myq.First;
while not dm_.myq_sepet.Eof do
begin
dm_.vt_ambalaj.Insert;
dm_.vt_ambalaj.FieldByName('STOKKOD').AsString :=dm_.myq_sepet.FieldByName('STOKKOD').AsString;
dm_.vt_ambalaj.FieldByName('URUNADI').AsString :=dm_.myq_sepet.FieldByName('STOKISIM').AsString;
dm_.vt_ambalaj.FieldByName('AMBALAJBIRIM').AsString :=dm_.myq_sepet.FieldByName('BIRIM').AsString;
dm_.vt_ambalaj.FieldByName('MIKTAR').AsFloat :=dm_.myq_sepet.FieldByName('MIKTAR').AsFloat;
dm_.vt_ambalaj.Post;
dm_.myq.Next;
end;
end;
acaba ayzdığım sorguda bir hata mı var;