MTF4LOC - Alteração da ordem de exibição de endereços

LOCALIZAÇÃO:  Function F4Localiz( ) - Função responsável pela janela de seleção de endereços.EM QUE PONTO: O ponto de entrada está localizado antes da exibição do acols com a lista de endereços disponíveis; O objetivo deste ponto de entrada é alterar a ordem de exibição dos endereços, conforme necessidade do usuário.

SIGACUSB.PRX

MTF4LOC - Alteração da ordem de exibição de endereços ( < PARAMIXB> ) --> aRet

aRet(vetor)
• aRet[nX,1] --> Endereço
  aRet[nX,2] --> Quantidade na 1a.U.M.
  aRet[nX,3] --> Quantidade na 2a.U.M
  aRet[nX,4] --> Lote
  aRet[nX,5] --> SubLote
  aRet[nX,6] --> Data de validade do lote

Parâmetros:

 

PARAMIXB[nX,1] --> Endereço
PARAMIXB[nX,2] --> Quantidade na 1a.U.M.
PARAMIXB[nX,3] --> Quantidade na 2a.U.M
PARAMIXB[nX,4] --> Lote
PARAMIXB[nX,5] --> SubLote
PARAMIXB[nX,6] --> Data de validade do lote

#INCLUDE 'RWMAKE.CH'User Function MTF4LOC()Local aRet := PARAMIXB[1]  // Array com as informações da janela F4LOCALIZ()//aRet[nX,1]  --> Endereco//aRet[nX,2]  --> Quantidade na 1a.U.M.//aRet[nX,3]  --> Quantidade na 2a.U.M//aRet[nX,4]  --> Lote//aRet[nX,5]  --> SubLote//aRet[nX,6]  --> Data de validade do lote// Ordena pela data de validade do loteASORT(aRet,,,{|x,y| x[6] < y[6]})Return aRet