Histórico da Página

User function Eicpo400()

Local cParamixb := iif( type("paramixb") == "A" .and. len(paramixb) > 0 , paramixb[1] , paramixb )

   Do case
      Case ParamIXB == "ANTES_GRAVAR"
            MsgInfo("Entrou no ponto de entrada 'ANTES_GRAVAR'.")

      Case cParamixb == "AROTINA"
         AAdd(aCores , { "SW2->W2_CONAPRO == 'B' "  , "BR_AZUL" })
         cFilBrow := " SW2->W2_CONAPRO == '1' "

      Case ParamIXB == "GRAVA_PO_PC" //tratamentos customizados
            MsgInfo("Entrou no ponto de entrada 'GRAVA_PO_PC'.")

      Case ParamIXB == "Work_SI" //adição de campos na work que será usada para exibir os dados da S.I. de referência
         AAdd(aSemSX3, {"W0_COMPRA", "C", 3, 0})

      Case ParamIXB == "TB_Campos_SI" //campos que serão exibidos ao clicar no botão "S.I. de Referência"
         AAdd(Tb_Campos_temp, {{|| Work_SI->W0_COMPRA},, "COMPRADOR"})

      Case ParamIXB == "GRAVA_WORK_SI" //informação a ser gravada no campo adicional
         Work_SI->W0_COMPRA:= SW0->W0_COMPRA

      Case ParamIXB == "SELECIONASI" //Define se a tela será aberta.
         Return .T. //Define se a tela não será aberta

      Case ParamIXB == "DEPOIS_ALTERA_INC_PO"
         If lDepoisAltIncPO
            MsgInfo("Operação de alteração confirmada!")
         Else
            MsgInfo("Operação de alteração cancelada!")
         Endif

      Case ValType(ParamIXB) == "A"
         cParam := ParamIXB[1]

      Case ParamIXB == "PO_PesqSI_Sel" //lLoop := .T.
         MSGINFO("PONTO DE ENTRADA 'PO_PesqSI_Sel' ATIVO!")

      Case ParamIXB == "VALID"
         If cFlag == 'Saldo_Q'
            MsgInfo("Entrou no ponto de entrada 'VALID'.")
         Endif

      Case ParamIXB == "DEPOIS_GRAVA_INC_PO"
         If lDepoisGrvIncPO
            MsgInfo("Operação de gravação confirmada!")
         Else
            MsgInfo("Operação de gravação cancelada!")
         Endif

      Case PARAMIXB == "ALTERA_PO_POST"
         MsgInfo("Entrou no ponto de entrada 'ALTERA_PO_POST'.")
         lAltPOPost := .F.

      Case PARAMIXB == "ANTES_ELIMINA"
         MsgInfo("Entrou no ponto de entrada 'ANTES_ELIMINA'")
         lEliminaS := .F.

      Case PARAMIXB == "ANTES_SALVAR"
         MsgInfo("Entrou no ponto de entrada 'ANTES_SALVAR'")
         lPE := .F.

      Case PARAMIXB == "APPEND"
         MsgInfo("Entrou no ponto de entrada 'APPEND'")
         WORK->WKPRECO := 50
      Case cParam == "APOS_GET_SI"
         If nOpcPonto <> 0
            MsgInfo("Entrou no ponto de entrada 'APOS_GET_SI' Seleção de itens.")
         EndIF
      Case cParam == "INICIA_VARIAVEL_CONFERENCIA_FINAL"
         If nOpcPonto <> 0
            MsgInfo("Entrou no ponto de entrada 'INICIA_VARIAVEL_CONFERENCIA_FINAL' Conferencia final.")
         EndIF
      Case cParam == "APOS_MARCA_ITEM"
         If nOpcPonto <> 0
            MsgInfo("Entrou no ponto de entrada 'APOS_MARCA_ITEM' Seleção de itens.")
         EndIF
      Case cParam == "APOS_CONFERENCIAFINAL"
         If nOpcPonto <> 0
            MsgInfo("Entrou no ponto de entrada 'APOS_CONFERENCIAFINAL' Conferencia final.")
         EndIF
      Case cParamixb == "INCLUIR" .or. cParamixb == "ALTERAR" .or. cParamixb == "BROWSE_ESTORNO"
		 // Definir se irá criar o pedido no módulo de Compras
		 // Para NÃO criar as variáveis cMV_Easy := "N" e lExecAuto_Com := .F. 
		 cMV_EASY := EasyGParam("MV_EASY",,"N")
         ifIf cMV_EASY == "S"
            cMV_EASY := "N"
         endif
         lExecAuto_Com := cMV_EASY == "S"
    End Case
Return