Pickingjobs

Form PickingJobs

• Unit name: Forms.PickingJobs
• Form name: PickingJobsForm
• Old form name: unit3 (form3)

Synopsis

Form to select article pick job

Functionalities

1. Combobox with clients for orders of the last 32 day (PickingRecentClients) On change, execute DisplayOrders action.
2. Checkbox for NOT
3. Button to execute ClearComboboxes action.
4. Edit to enter order (or scan) On change, execute DisplayOrders action.
5. Radiogroup to switch between sort orders 'country','Rows, Articles', 'Rows,Location'
6. Grid with orders (PickingJobCandidates view). Must allow selecting multiple rows.
7. Button to execute ContinuePicking action.
8. Radiogroup to select picking order: 0 -> 99 or 99->0.

Actions

ClearComboboxes

1. Active when either of the comboboxes is non-empty.
2. When executed, clear both comboboxes, and display orders.

Displayorders

1. Always active.
2. Fetch records from view PickingJobs and display them in the grid.
3. Filter records based on
4. Combobox 1: Only records from Client. or NOT if checkbox is set.
5. Edit with scan order: only this order is shown (from the selected client.)
6. Sort records based on radiogroup setting.

ContinuePicking

1. Active as soon as at least 1 row is selected.
2. When executed, the selected invoices are added to the picking job using service call DeliveryControl.AddToPickJob The jobID is saved.
3. PickItems form is shown. It is passed the following data:
4. Picking job ID.
5. The form is passed the sort order.
6. PickingType is ptSingle if there is only 1 item, ptTrolley otherwise.

Tables/Views

• PickingJobCandidates

  Select
    BlockNo as Block,
    A.Country as Ct,
    Data as ImpDate,
    AVIZ as OrderNo,
    COUNT(distinct B.ARTCODE) as Rows,
    max(B.ARTCODE) as ART,
    max(D.Location) as Loc,
    isnull(c.SQ, 99) AS MySQ,
    F.SQPK
  from
    OUT A
    left outer join COUNTRYORDER C on
       (DATEPART(WeekDay, A.DATA) = C.DayOfWeek)
       AND (A.COUNTRY = C.COUNTRY)
    LEFT OUTER JOIN SUPPLIERS F ON A.CLIENT = F.NAME
    inner join OUTDETAILS B ON (A.AVIZ = B.AVIZNO)
    inner join INVDETAILS D on B.INVOICENO = D.ID and B.ARTCODE = D.ARTCODE
  WHERE
    (DATA >= dateadd(day, - 32, getdate())
    and isnull(B.TRANSACTIONTYPE, '') = 'ORD'
    -- {CustomFilter}
  group by
    BlockNo,
    A.Country,
    Data,
    AVIZ,
    FileName,
    isnull(c.SQ, 99),
    F.SQPK
  having
    sum(CASE
          WHEN ISNULL(PICKEDBY, '') = '' THEN 1
          ELSE 0
        END) > 0
  ORDER BY
    -- {CustomSort}
  

• PickingRecentClients

  Select distinct
     A.CLIENT  
  from
    OUT A
    INNER JOIN OUTDETAILS B on (A.AVIZ=B.AVIZNO)
  WHERE   
     (DATA>=dateadd(day, -32, getdate()))
     AND (TRANSACTIONTYPE='ORD')
     AND (PICKEDBY='')
  ORDER BY
    A.CLIENT
  

Needed Service Calls

Call 1

Call 2

Reports