DT PE EECAP100 Pedido de Exportação

#include "protheus.ch"

User Function EECAP100()
Local cParamIXB
Local lRet := .T.
Local aRet := {}
Local nPos

Begin Sequence

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

   Do Case

      Case cParamIXB == "PE_COPYPED"

         /*Exemplo quando acessada a ação de cópia do processo
         If ParamIXB[3] //se foi selecionada a cópia dos itens
            WorkIt->(DBgoTop())
            While WorkIt->(!Eof())
               WorkIt->EE8_ZZZZZ:= ""
               WorkIt->(DBSkip())
            EndDo
            WorkIt->(DBgoTop())
         EndIf*/

      Case cParamIXB == "GRV_WORK"

         MsgInfo("Ponto de entrada EECAP100 com o parâmetro 'GRV_WORK'")

      Case cParamIXB == 'ANTES_GRAVA_CAPA_AUTO'
         
         aRet := {.F.,"Passou no ponto de entrada 'ANTES_GRAVA_CAPA_AUTO' e invalidou integração!"}
         Return aRet
         //aRet onde:
         //aRet[1] -> Variável Lógica com status do processamento
         //aRet[2] -> Variável do tipo caracter que contenha a mensagem de erro em caso do status ser FALSO.

      Case cParamIXB == 'PRECOI_ATU_PRECO'

         if ParamIXB[2] <> "EE8_VLDESC"
            // Zera o valor da despesa no calculo do processo de preço fechado.
            nValPto := 0
         endif
       Case cParamIXB == "ANTES_REFRESH_RODAPE"

          // Exemplo de uso de ponto de entrada para manipular as variáveis de totais do rodapé do pedido de exportação

           M->EE7_TOTPED := 101 //Total Pedido
           nTotPedBr := 102 // Total Pedido (Bruto)
           M->EE7_TOTFOB :=103 //Total Fob
           M->EE7_VLFOB := 103  //Total Fob Interno, deixar este valor igual ao EE7_TOTFOB
           M->EE7_TOTLIQ := 104 // Total Liquido  
           M->EE7_PESLIQ :=105 // Peso Líquido
           M->EE7_PESBRU := 106 //Peso Bruto
   EndCase

End Sequence

Return lRet