Bom dia pessoal.
Estou utilizando o PE F460SE1 em conjunto com o PE F460VAL(clone do array noF460SE1).
Pois bem, eu preciso que meu array retorne o maior valor no P.E F460SE1. Porém nunca fiz isso. Se puderem me ajudar, eu agradeço.
User Function F460SE1() Local aComplem := PARAMIXB as array
aAdd(aComplem, { 'E1_VEND1' , SE1->E1_VEND1 } ) aAdd(aComplem, { 'E1_YEMIORI' , SE1->E1_VENCORI } ) //aqui tem que ser o maior valor
Return(aComplem)
User Function F460VAL() local aComplem := aClone(PARAMIXB) //clone do PE F460SE1 local nX := 0
If RecLock("SE1",.F.) for nX := 1 to len(aComplem) SE1->&(aComplem[nX, 01]) := aComplem[nX, 02] SE1->&(aComplem[nX, 03]) := aComplem[nX, 04] //aqui recebe o maior valor next nX SE1->(MsUnlock()) SE1->(dbCommit()) EndIf Return nil
Segue os meus dois P.E
