Partialmove

Form PartialMove

• Unit name: Forms.PartialMove
• Form name: TPartialMoveForm
• Old form name: form6 (unit6)

Synopsis

Form to register article move operations.

Functionalities

1. Source group
2. Edit box for entering article bar code. On enter key, execute SearchArticle action.
3. Button to execute the SearchArticle action.
4. Label to display article code.
5. Grid to show locations, view ScannerArticleStock. When current row changes, execute SelectArticleLine action.
6. Label to show picking/quantity of selected article. (LAmounts)
7. Labels display current stock code, location, max quantity.
8. Dest group
9. Edit to display/current quantity. Max value is equal to max. quantity.
10. Edit to enter new location. On enter key, execute Move action.
11. Edit to enter comment.
12. Button to execute Move action.

Actions

SearchArticle

1. Enabled when there is an article bar code.
2. On execute, check article barcode existence using ArticleFromBarCode.
3. If the article does not exist, show an error message:

   Unknown barcode: :BarCode.
   

   set focus to bar code edit, and select all.
4. If the article exists, and a move popup message exists, the message is shown.
5. Get the article pick count and picked quantity count (ArticleRecentPickList) from the last 30 days and display in label as

   :Quantity pieces, :Picks picks in 30 days.
   

6. Show article code in appropriate label.
7. Show view ScannerArticleStock.
8. Focus grid.

SelectArticleLine

1. Enabled when a record is selected in the grid.
2. Updates Labels to display current stock code, location, max quantity. Update edit for display/current quantity.

Move

1. Enabled when there is a selected article, location, new location, positive quantity.
2. Asks for confirmation.
3. Executes server call StockControl.PartialMove with parameters:
4. OldStock old location. From selection.
5. NewStock new location. From edits.
6. Operation ttMove
7. Comments (String) Comment to be logged in scan history.
8. ExpiryDate From selection.
9. Quantity (integer) From edits.
10. AdaptOutCC (Boolean) False
11. AdaptINVCC (Boolean) False
12. Supplier (integer) 0
13. InvoiceNo: Generated number, see code in TForm.PartialMove
14. Reload ArticleRecentPickList view and view ScannerArticleStock.
15. Display confirmation of move operation..
16. Clear all move parameters.
17. Focus barcode edit, select all.
18. See also code in Form1.PartialMove.

Tables/Views

• ArticleFromBarCode See StockArticle form.

• ArticleRecentPickList

  SELECT
    sum(QTY) as Quantity,
    count(DISTINCT ID) AS Pickings
  FROM
    OUTDETAILS
  WHERE
    (ARTCODE = :ArticleID)
    AND (FILLDATE >= :CreatedSince)
    AND (TRANSACTIONTYPE='ORD')
  

• ScannerArticleStock

SELECT
  LOCATION,
  STOCKCODE,
  SUM(QTYIN - QTYOUT) AS QTY,
  sum(QTYReserved) AS QTYReserved,
  LOTNO,
  EXPIRYDATE,
  Artcode,
  Supplier
FROM
  FSTOCTOTAL(:ArticleID)
WHERE
  QTYIN - QTYOUT <> 0
GROUP BY
  LOCATION,
  STOCKCODE,
  LOTNO,
  EXPIRYDATE,
  Artcode,
  Supplier
HAVING
  SUM(QTYIN - QTYOUT) > 0
ORDER BY
  Location

Needed Service Calls

Call 1

Call 2

Reports