rocedure TFProducInfo.FormActivate(Sender: TObject);
var gpo,SubGpo:string;
sqlsel:string;
var CloseAction: TCloseAction ;
begin
CloseAction:= caNone;
if SQLQGroup.Active =false then
begin
SQLQGroup.Open;
SQLQGroup.First ;
cbGroup.Items.Clear;
while not SQLQGroup.EOF Do
begin
cbGroup.Items.Add( SQLQgroup.FieldByName('gpodesc').AsString );
SQLQGroup.Next;
end;
end;
if SQLQSubGpos.Active =false then
begin
SQLQSubGpos.Open;
SQLQSubGpos.First ;
cbSubGpo.Items.Clear;
while not SQLQSubGpos.EOF Do
begin
cbSubGpo.Items.Add( SQLQSubGpos.FieldByName('subgpodesc').AsString );
SQLQSubGpos.Next;
end;
end;
if FBrwProdCat.lnew then begin
EProd.Text:='';
EDesc.Text:='';
cbGroup.ItemIndex:=0;
cbSubGpo.ItemIndex:=0;
CBKit.Checked:=false;
CBService.Checked:=false;
FSEMinStock.Text:='0';
FSEMaxStock.Text:='0';
FSEReorder.Text:='0';
FSECost.Text:='0';
FSEPrice.Text:='0';
EProd.Enabled:=true;
end
else
begin
EProd.Text:=FBrwProdCat.SQLQProds.FieldByName('product_id').AsString;
EDesc.Text:=FBrwProdCat.SQLQProds.FieldByName('proddesc').AsString;
gpo:=FBrwProdCat.SQLQProds.FieldByName('gpo_id').AsString;
sqlsel:='select * from groups where gpo_id =:gpo';
SQLQGroup.Close;
SQLQGroup.SQL.Text:=sqlsel;
SQLQGroup.ParamByName('gpo').AsString:=gpo;
SQLQGroup.Open;
SQLQGroup.First;
if not SQLQGroup.EOF then begin
cbgroup.Text:=SQLQGroup.FieldByName('gpodesc').AsString ;
end
else
begin
cbgroup.Text:='';
end;
SubGpo:=FBrwProdCat.SQLQProds.FieldByName('subgpo_id').AsString;
sqlsel:='select * from subgroups where subgpo_id =:SubGpo';
SQLQSubGpos.Close;
SQLQSubGpos.SQL.Text:=sqlsel;
SQLQSubGpos.ParamByName('SubGpo').AsString:=SubGpo;
SQLQSUbGpos.Open;
SQLQSubGpos.First;
if not SQLQSubGpos.EOF then begin
CBSubGpo.Text:=SQLQSubGpos.FieldByName('subgpodesc').AsString ;
end
else
begin
cbgroup.Text:='';
end;
CBKit.Checked:=FBrwProdCat.SQLQProds.FieldByName('kit').AsBoolean;
CBService.Checked:=FBrwProdCat.SQLQProds.FieldByName('service').AsBoolean;
FSEMinStock.Text:=FBrwProdCat.SQLQProds.FieldByName('Min_Stock').AsString;
FSEMaxStock.Text:=FBrwProdCat.SQLQProds.FieldByName('Max_stock').AsString;
FSEReorder.Text:=FBrwProdCat.SQLQProds.FieldByName('Reorder').AsString;
FSECost.Text:=FBrwProdCat.SQLQProds.FieldByName('CostProd').AsString;
FSEPrice.Text:=FBrwProdCat.SQLQProds.FieldByName('ShellPrice').AsString;
EProd.Enabled:=false;
end;
end;