Commit c660f02b by Cam Hayes

Auto stash before merge of "cam3" and "origin/mac3"

parent 42f8e3e6
...@@ -69,9 +69,9 @@ procedure TfViewAddItem.btnConfirmClick(Sender: TObject); ...@@ -69,9 +69,9 @@ procedure TfViewAddItem.btnConfirmClick(Sender: TObject);
begin begin
xdwdsCustomers.Locate('qb_item_name', edtName.Text, []); xdwdsCustomers.Locate('qb_item_name', edtName.Text, []);
if edtName.Text = '' then if edtName.Text = '' then
edtNotification.Text := 'Please Select a Customer' edtNotification.Text := 'Please Select an Item'
else if xdwdsCustomers.FieldByName('qb_items_id').AsString <> '' then else if xdwdsCustomers.FieldByName('qb_items_id').AsString <> '' then
edtNotification.Text := 'Customer Already In Database' edtNotification.Text := 'Item Already In Database'
else else
SendItemToServer(); SendItemToServer();
end; end;
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment