Histórico da Página

"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