elseif k = {v} or k = {V}          ' Deliveries sub-menu
        jobnr = indirect("[A"|str(col-3)|"]")    ' message "jobnr) is:"&str(jobnr)
        $dfa = [DayFitter]|str(col-3)    ' message "$dfa is:"&str($dfa)
        ftgdate = [Date]                 ' message "ftgdate is:"&date2(ftgdate)
        if $permit = "MNEGRI"
          dm = 0
        elseif days(ftgdate) < days(today) ' i.e. in the past
          vo = 1
          dm = 1
        else
          vo = 0
          dm = 0
        end if
        FindFirstJobNr()
        $ordstat = indirect("[B"|str(col-3)|"]") 'message "$ordstat is:"&str($ordstat)
        if $ordstat = blank
          continue while
        end if
        if $ordstat = "P" or $ordstat = "D" or $ordstat = "O"
          $ftrcode = right([DayFitter],6)
          jobnr    = indirect("[A"|str(col-3)|"]")    ' message "jobnr) is:"&str(jobnr)
          DeliverMenu(dm)
        else
' message "$ordstat is:"&str($ordstat)
          messbox(" Cannot arrange deliveries - check Order Status ",0,0,1)
        end if
        start_t = seconds(now)

      elseif k = {Esc}