User Function EAE100MNU()

Local aTeste:={}

AADD(aTeste,{"Teste","AE110HISTPROC",0,8})

Return aTeste

User Function EECAE100()
Local cParamIXB

Begin Sequence

If ValType(ParamIXB) == "A"
cParamIXB:= ParamIXB[1]
Else
cParamIXB:= ParamIXB
EndIf

Do Case
Case cParamIXB == "DETIP_ACTIVATE_DLG"

oMsmGet:oBox:Align := CONTROL_ALIGN_ALLCLIENT
EndCase

End Sequence

Return

User Function EECAE100() 
Local cParam := If(Type("ParamIxb") = "A",ParamIxb1,If(Type("ParamIxb") = "C",ParamIxb,""))

If cParam == "GRV_CPOS_CUSTOM"

MsgInfo("Entrou no ponto de entrada 'GRV_CPOS_CUSTOM'.")

ElseIf cParam == "BUTTON_REMESSA"

lDtEmba := .T.

   MsgInfo("Entrou no ponto de entrada 'BUTTON_REMESSA'.")

ElseIf cParam == "PE_MARK_OK"

   aAdd(aButtons,{"REPLICAR",{|| U_ReplPed()},"Novo Botao"})

EndIf
Return Nil

User Function ReplPed()

               MsgInfo("Entrou no ponto de entrada 'PE_MARK_OK'.")

Return Nil

User Function EECAE100()

If ValType(ParamIXB) == "A"

cParam:= ParamIXB1

Else

cParam:= ParamIXB

EndIf

Do Case

Case cParam == "FECHAMENTO_EMBARQUE"

dDtEmb := EEC->EEC_DTEMBA

dDtMemEmb := EEC->EEC_DTEMBA

MsgInfo("Ponto de Entrada chamado corretamente!")

EndCase

Return NIL