DT PE EICNU400 - Solicitação de Numerário

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))    
	  ENDCASE
 
Return Nil