DT PE EECAE100 Embarque

#include "protheus.ch"

User Function EECAE100()
Local cParamIXB := ""

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

   Do Case

     Case cParam == 'VALID_EMB'
         lValidOIC := .F.      //Por padrão, a variável é .T.

     Case cParamIXB == "DETIP_ACTIVATE_DLG"

         oMsmGet:oBox:Align := CONTROL_ALIGN_ALLCLIENT

      Case cParamIXB == "GRV_CPOS_CUSTOM"

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

      Case cParamIXB == "BUTTON_REMESSA"

         lDtEmba := .T.
         MsgInfo("Entrou no ponto de entrada 'BUTTON_REMESSA'.")

      Case cParamIXB == "PE_MARK_OK"

         aAdd(aButtons,{"REPLICAR",{|| U_ReplPed()},"Novo Botao"})
         nPos:= AScan(aCampoPIT, {|x| x[3] == "Part.No."})
         If nPos > 0
            aCampoPIT[nPos][1]:= {||"1234"}
         EndIf        Case cParamIXB == "FECHAMENTO_EMBARQUE"

         dDtEmb := EEC->EEC_DTEMBA
         dDtMemEmb := EEC->EEC_DTEMBA

      Case cParamIXB == "STATUS"

         cStatus := Faturado Parcialmente

      Case cParamIXB == "MSG_ADIANT_NAO_UTILIZADO"

         lShowMsg := .F.

      Case cParamIXB == "PE_GRAVA"

         /*Gravações customizadas das funcionalidades disponíveis em outras ações. Exemplo:
         EEB->(DBSetOrder(1))
         EEB->(DBSeek(xFilial() + M->EEC_PREEMB)
         //looping
         //tratamentos customizados na tabela de agentes e comissões*/
         MsgInfo("Ponto de entrada EECAE100, parâmetro PE_GRAVA", "PE_GRAVA")

      Case cParamIXB == "PE_GRV_EE9"

         MsgInfo("Ponto de entrada EECAE100, parâmetro PE_GRV_EE9", "PE_GRV_EE9")
         //Customização na gravação do item do processo de embarque
         EE9->EE9_ZZZZ:= "ABC"

      Case cParamIXB = "ANTES_TELA_PRINCIPAL"

         If (nPos := AScan(aEECCamposEditaveis,"EEC_RECALF")) > 0
            ADel(aEECCamposEditaveis,nPos)
            ASize(aEECCamposEditaveis,Len(aEECCamposEditaveis)-1)
         EndIf

         aAdd(aButtons,{"REPLICAR",{|| U_ReplPed()},"Novo Botao"})
  		 
         nPos:= AScan(aCampoPED, {|x| x[3] == "Part.No."})
		 If nPos > 0
		   aCampoPED[nPos][1]:= {||"1234"}
		 EndIf


      Case cParamIXB == 'PRECOI_ATU_PRECO'

         If ParamIXB[2] <> "EE9_VLDESC"
            // Zera o valor da despesa no calculo do processo de preço fechado.
            nValPto := 0
         Endif
      Case cPARAMIXB == "ANTES_REFRESH_RODAPE"    
           M->EEC_TOTPED := 101 //Total Embarque 
           nTotEmbBr := 102 // Total Emb.(Bruto)
           M->EEC_TOTFOB := 103 //Total Fob
           M->EEC_VLFOB := 103 //Total Fob Interno, deixar este valor igual ao EEC_TOTFOB
           M->EEC_TOTLIQ := 104 // Total Liquido  
           M->EEC_PESLIQ :=105 // Peso Líquido     
           M->EEC_PESBRU := 106 //Peso Bruto
   EndCase

Return NIL