DT PE EICEV100 Invoice Antecipada

User Function EICEV100()
Local cParamIXB
    If ValType(ParamIXB) == "A"
        cParamIXB:= ParamIXB[1]
    Else
        cParamIXB:= ParamIXB
    EndIf
 
    Do Case
        Case cParamIXB == "ANTES_EXCLUI_EW4"
             IF EW4->EW4_HAWB == 'XPTO'
                lVldExcPE :=.T. // retorna .t. para continuar com a exclusão 
                lVldExcPrd:=.F. //não executa a validação padrão
             EndIf   
        Case cParamIXB == "CRIA_BOTAO"
             MsgInfo("Entrou no ponto de entrada 'CRIA_BOTAO'.")
             aAdd(aRotina,{"Botão Customizado", "MsgInfo('Botão Customizado')", 0,2})
        Case cParamIXB == "AJUSTA_BROWSE"
             MsgInfo("Entrou no ponto de entrada 'AJUSTA_BROWSE'.")
        Case cParamIXB == "ANTES_GRAVA_EW4"
             MsgInfo("Entrou no ponto de entrada 'ANTES_GRAVA_EW4'.")
        Case cParamIXB == "DEPOIS_GRAVA_EW4"
             MsgInfo("Entrou no ponto de entrada 'DEPOIS_GRAVA_EW4'.")
        Case cParamIXB == "GRVWORK"
             MsgInfo("Entrou no ponto de entrada 'GRVWORK'.")
        Case cParamIXB == "ANTES_GRAVA_EW5"
             MsgInfo("Entrou no ponto de entrada 'ANTES_GRAVA_EW5'.")
        Case cParamIXB == "DEPOIS_GRAVA_EW5"
             MsgInfo("Entrou no ponto de entrada 'DEPOIS_GRAVA_EW5'.")
        Case cParamIXB == "VALIDA_CAMPOS"
             MsgInfo("Entrou no ponto de entrada 'VALIDA_CAMPOS'.")
             lSair := .F.
    EndCase
Return Nil