FUNCTION Return2Manufr()
'show all unprocessed (i.e. Return2Manufr note NOT printed for $reason="RM")

  vloadif(dpath|"retn2mfr.vw")
  data query execute "rtn2mfr1.dfq" index "rtn2mfr1.idx"
' ÚÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿
'   [MR_sheet]=blank
'   and
'   [RetnCode]="RM"
'   and
'   not (deleted)
' ÀÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ
'   data query execute "not_del.dfq" index "actv_ftr.idx"
' ' ÚÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿
' ' not (deleted)
' ' ÀÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ
'   order sort now dictionary "nickname" fields "[Nickname]" ascending
  while true
    x = bpopdb("retn2mfr",5,"","[Vdesc]","L70","[Supplier_Code]","L0","[ReferenceNr]",5,5,21,75,"",0)
message "x) is:"&str(x)
    if x = -1
      repaint off
'       vunloadif("ftr_list.vws")
      return(-1)
    else
'       $ftrcode   = ptstr                'message "ptstr is:"&str(ptstr)
'       $name     = [Fitter_Name]        'message "$name is:"&str($name)
'       $nickname = [Nickname]
'       vloadif(dpath|"ftr_list.vws")
      exit while
    end if
  end while
repaint on
repaint
single-step on

'print returns sheets - 1 with carrier; 1 (signed by carrier) passed to HO for filing

'if OK, mark line item (in STK_RETN) with date
END FUNCTION 'Return2Manufr()