Histórico da Página

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

   EndCase

End Sequence

Return lRet