procedure TFormUndMinStk.RxDBGPordUsCellClick(Column: TColumn);
begin
if((RxDBGPordUs.SelectedIndex = 10) and (RxDBGPordUs.DataSource.DataSet.FieldByName('Selected').AsBoolean = false) ) then begin
RxDBGPordUs.DataSource.DataSet.Edit;
RxDBGPordUs.SelectedIndex:=0;
end else if((RxDBGPordUs.SelectedIndex = 10) and (RxDBGPordUs.DataSource.DataSet.FieldByName('Selected').AsBoolean = true)) then begin
RxDBGPordUs.DataSource.DataSet.Edit;
RxDBGPordUs.SelectedIndex:=7;
end;
end;
procedure TFormUndMinStk.RxDBGPordUsColEnter(Sender: TObject);
begin
if((RxDBGPordUs.SelectedIndex = 7) and ( FormMain.BDPStock.FieldByName('Selected').AsBoolean =false)) then begin
ShowMessage('this row is not seleted to have order quantity');
RxDBGPordUs.SelectedIndex:=6;
end else if((RxDBGPordUs.SelectedIndex = 7) and ( FormMain.BDPStock.FieldByName('Selected').AsBoolean=true)) then begin
RxDBGPordUs.DataSource.DataSet.Edit;
end;
if((RxDBGPordUs.SelectedIndex = 8)) then begin
if( RxDBGPordUs.DataSource.DataSet.FieldByName('Orddate').isNull) then begin
RxDBGPordUs.DataSource.DataSet.Edit;
RxDBGPordUs.DataSource.DataSet.FieldByName('Orddate').AsDateTime := now;
end;
end;
RxDBGPordUs.setfocus;
end;
procedure TFormUndMinStk.RxDBGPordUsColExit(Sender: TObject);
begin
if((RxDBGPordUs.SelectedIndex = 7) and ( FormMain.BDPStock.FieldByName('orderqty').AsInteger < FormMain.BDPStock.FieldByName('pnminstockqty').AsInteger )) then begin
ShowMessage('Quantity must great than minimum stock or at least same value');
RxDBGPordUs.DataSource.DataSet.Edit;
FormMain.BDPStock.FieldByName('orderqty').AsInteger:=0;
RxDBGPordUs.DataSource.DataSet.post;
RxDBGPordUs.setfocus;
RxDBGPordUs.DataSource.DataSet.Edit;
RxDBGPordUs.SelectedIndex:=6;
end else if((RxDBGPordUs.SelectedIndex = 7) and ( FormMain.BDPStock.FieldByName('orderqty').AsInteger > FormMain.BDPStock.FieldByName('pnminstockqty').AsInteger ) ) then begin
RxDBGPordUs.DataSource.DataSet.Post;
RxDBGPordUs.DataSource.DataSet.Edit;
RxDBGPordUs.setfocus;
end;
if((RxDBGPordUs.SelectedIndex = 8)) then begin
if( RxDBGPordUs.DataSource.DataSet.FieldByName('Orddate').AsDateTime = StrtoDate('01/01/1990')) then begin
RxDBGPordUs.DataSource.DataSet.Edit;
RxDBGPordUs.DataSource.DataSet.FieldByName('Orddate').AsDateTime := Now;
RxDBGPordUs.DataSource.DataSet.Post;
end;
RxDBGPordUs.DataSource.DataSet.Edit;
RxDBGPordUs.setfocus;
end;
if((RxDBGPordUs.SelectedIndex = 9)) then begin
if( RxDBGPordUs.DataSource.DataSet.FieldByName('dateuse').AsDateTime < Now) then begin
ShowMessage('Date use can be older than to day , type a date post of current date');
RxDBGPordUs.DataSource.DataSet.Edit;
RxDBGPordUs.DataSource.DataSet.FieldByName('dateuse').AsDateTime := Now;
end;
RxDBGPordUs.DataSource.DataSet.Post;
RxDBGPordUs.DataSource.DataSet.Edit;
RxDBGPordUs.setfocus;
end;
End;