User Function EICNU400()
	Local cParam
	Local nOrdSWD
	Local nRecSWD
	Local nRecTRB

	If ValType(ParamIXB) == "A"
		cParam:= ParamIXB[1]
	ElseIf ValType(ParamIXB) == "C"
		cParam:= ParamIXB
	EndIf

	DO CASE

	CASE cParam == "CBODY_EFETIVA"
		cCC := '[email protected]' //Email a ser enviado como Copia
		cTo := '[email protected]' //Email para quem será enviado
		cSubject := "CBODY_EFETIVA"//Título do Email
		//cBody :=  //Corpo do Email em html

	CASE cParam == "CBODY2_EFETIVA"
		cCC2 := '[email protected]'//Email a ser enviado como Copia
		cTo2 := '[email protected]'Email para quem será enviado
		cSubject2 := "CBODY_EFETIVA"//Título do Email
		//cBody2 := "" //Corpo do Email em html

	Case cParam == "NU400PRECALC_DESP"
		/*
		Neste momento estará posicionada a tabela de despesas (SYB) que pode ser usada para cadastro de
		informações default a serem usadas da carga do arquivo temporário.
		Neste exemplo, a despesa 404 está sendo alterada para não ser base de adiantamento e o valor alterado para 500. */
		If WorkEIC->EIC_DESPES == "404"
			WorkEIC->(RecLock("WorkEIC", .F.))
			WorkEIC->EIC_BASEAD := "2" //Base de adiantamento 2=NÃO
			WorkEIC->WK_BASEAD  := BSCXBOX("EIC_BASEAD", AllTrim(WorkEIC->EIC_BASEAD)) //descrição
			WorkEIC->EIC_VALOR := 500
			WorkEIC->(MsUnlock())
		EndIf

	Case cParam == "CARREGA_CAMPO"
		MSGINFO("ENTROU NO PE CARREGA_CAMPO")
		nOrdSWD := SWD->(INDEXORD())
		nRecSWD := SWD->(RECNO())
		SWD->(DBSETORDER(1))
		SWD->(DbSeek(xFilial("SWD")+EIC->EIC_HAWB+EIC->EIC_DESPES))
		If SWD->(Found())
			// criado o campo virtual EIC_DUP na tabela EIC pelo configurador           
			TRB->EIC_DUP := SWD->WD_CTRFIN1
		EndIf
		SWD->(DBSETORDER(nOrdSWD))
		SWD->(DbGoTo(nRecSWD))    

    Case cParam == "INICIA_VARIAVEIS"
		lParamOk := .F. // Não será realizado o envio do email para o despachante

	ENDCASE
 
Return Nil