Kod: Tümünü seç
var id:string;
begin
cb_ambalaj.Text:='';
cb_ambalaj.Items.Clear;
id:=dm_.myq_stoklist.FieldByName('ID').AsString;
with dm_.myq_amblookup do
begin
active:=false;
sql.Clear;
sql.Add('select * from fn_webapp_ambalajstok('+id+')');
open;
active:=true;
first;
cb_ambalaj.Items.Add(fieldbyname('AMBALAJBIRIM1').AsString);
cb_ambalaj.Items.Add(fieldbyname('AMBALAJBIRIM2').AsString);
end;
with dm_.vt_ambalaj do
begin
insert;
fieldbyname('STOKKOD').AsString:=inttostr(dm_.myq_stoklist.FieldByName('ID').AsInteger);
fieldbyname('URUNADI').AsString:=dm_.myq_stoklist.FieldByName('STOKISIM').AsString;
UniPanel1.Visible:=true;
UniDBGrid1.Enabled:=false;
Yalnız şu kısımı halledemedim,
Kod: Tümünü seç
UniPanel1.Visible:=true;
UniDBGrid1.Enabled:=false;
Unipanel1'in de enabledi false oluyor neden olduğunu anlayamadım?
Yazdığım kodlarda bir yanlışlık mı var?