'REALLCNS - change allocation of req'ns
external   vloadif() dpath messbox()

public     prodcode

global     ChangeAllocn()

MAIN
  messbox(" Not yet operational ",0,0,1)
  file unload all
  transfer "pm_menu.psl" in-memory
'   ChangeAllocn()
END MAIN

FUNCTION ChangeAllocn()
local $reqnnr
' show reqn's for Product Code
' repaint on
' repaint
'   repaint off

  vloadif(dpath|"REQUSN.vws")   ' find req'n
  order change key "[Product_Code]"
  data query execute "chgallc1.dfq" index "realloc1"
' ÚÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿
' ³ [Product_Code] = prodcode                                          ³
' ÀÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ
  if cerror
    messbox(" No existing Requisitions for Code:"&prodcode|" ",0,0,1)
    return (-1)
  end if

' remove rollnr

' change balance & Active(y/n) on STK_CARP

' return to main screen showing all reqn's just unallocated

END FUNCTION ' ChangeAllocn()