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
       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