Histórico da Página

 #DEFINE EA_NFEID  36
 
User Function TME75BUT()
Local aBtn := {}
AAdd(aBtn, {'COMPTITL',{|| u_TME75PSQ(oListBox) }, "Pesq NFE ID", "Pesq NFE ID"})
Return aBtn
 
User Function TME75PSQ(oObj)
Local nPos := 0
MsgAlert( "Ponto de entrada", "TME75BUT" )
nPos := aScan(aItensEDI, {|x| x[EA_NFEID] == "999999999999"})
If nPos > 0
   oObj:nAt := nPos
   oObj:Refresh(.T.)
EndIf
Return Nil