Search options (Page 11 of 15)

UPDATE orders SET receivedQty = '10', receivedDate = date('now') WHERE orders.orderRef = 'REQ 277/12' AND orders.id = 3;

procedure receiveOrder_btnReceiveAll_PO_OnClick (Sender: TObject; var Cancel: boolean);
var
 indx, received : integer;
 s :  string;
 ds : TDataset;
begin


   indx := 0; {index counter for iterating through available rows of DB grid}

   { Get the Order ID from Orders table for all matching purchase orders, place result into the dataset}
   sqlQuery('SELECT orders.id FROM orders WHERE orders.orderRef = "' +receiveOrder.cmbPO.Text+'"', ds);

   ds.First; {Make sure we are at the beginning of the dataset}

   {All the work is done here.
    Assign the orders.id to 'S', copy qty ordered to qty received store in 'received' then update the records in ORDERS
    with 'received Qty' the Date received matching the order Id and PO number}
   while not ds.EOF do
   begin
       s := ds.FieldByName('ID').asString;
       received := strToInt(receiveOrder.tgReceiveOrder.Cells[3,indx]);
       sqlexecute('UPDATE orders SET receivedQty = '+ intToStr(received) +', receivedDate = date(''now'') WHERE (orders.orderRef = "'+ receiveOrder.cmbPO.Text +'") AND (+ orders.id = "'+ s +'")');
       showmessage('order Id ' + s); // temporary debug check to make sure order.id is correct
       ds.next; {move to the next record}
       indx := indx + 1; {increment counter for the tablegrid row.}
   end;

   ds.Close;  {Close the dataset and free the database}
   ds.Free;
   showMessage('Complete Purchase Order Receipted');

end;

procedure receiveOrder_tgReceiveOrder_OnKeyPress (Sender: TObject; var Key: Char);
begin
   if (Key) = #13 then   // alternative code,  if ord(key) = VK_RETURN;
   begin
     Key := #0;
     showmessage('I am in the key trap ' + Key);
     receiveOrder.tgReceiveOrder.dbUpdate;
   end;
   showmessage('key ' + Key);

procedure frmOrderEntry_btnOrder_OnAfterClick (Sender: TObject);
var
    idx, dbx :string;
begin

     {last database entry ID}
    dbx := intToStr(Last_Insert_id);

    {ID of item in productsupplier}
    idx := intToStr(frmOrderEntry.grdOrder.dbItemID);

    showmessage('dbx '+ dbx + ' idx '+ idx);

     //extract productsupplier ID and insert into orders table
    sqlexecute('UPDATE orders SET id_productSupplier =  "'+dbx+'"  WHERE id = "'+idx+'"');
 
end;