Histórico da Página

User Function Eicpo400()
    Local cParam := IIF(type("paramixb") == "A" .And. len(paramixb) > 0, paramixb[1], paramixb)
    Do Case
        Case cParam == "ANTES_GRAVAR"
            MsgInfo("Entrou no ponto de entrada 'ANTES_GRAVAR'.")

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

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

        Case cParam == "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 cParam == "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 cParam == "GRAVA_WORK_SI" //informação a ser gravada no campo adicional
            Work_SI->W0_COMPRA:= SW0->W0_COMPRA

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

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

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

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

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

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

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

        CASE cParam == "ANTESZERASLD"
            MsgInfo("Entrou no ponto de entrada 'ANTESZERASLD'")
            lSair := .F.//Se true, aborta a execução

        CASE cParam == "SLDZERADO"
            MsgInfo("Entrou no ponto de entrada 'SLDZERADO'")


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

        Case cParam == "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 == "ANTES_ESTORNA"
            MsgInfo("Entrou no ponto de entrada 'ANTES_ESTORNA'")

        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 cParam == "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")
            If cMV_EASY == "S"
                cMV_EASY := "N"
            EndIf
            lExecAuto_Com := cMV_EASY == "S"
        Case cParam == "PO400ESTOR_VERIFICA_PAG_ANT"
            //pode exibir alguma mensagem se quiser
            lSair : =.T. //aborta o estorno, ser for .f. cotinua
     End Case
Return