Histórico da Página

User functionFunction eicpo400Eicpo400()

    Local cParamixbcParam := iifIIF( type("paramixb") == "A" .andAnd. len(paramixb) > 0 , paramixb[1] , paramixb )

    Do caseCase
        Case ParamIXBcParam == "ANTES_GRAVAR"
            MsgInfo("Entrou no ponto de entrada 'ANTES_GRAVAR'.")

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

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

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

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

        Case ParamIXB cParam== "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) cParam== "A"PO_PesqSI_Sel" //lLoop := .T.
         cParam  := ParamIXB[1]

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

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

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

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

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

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

        CaseCASE PARAMIXBcParam == "APPENDSLDZERADO"
            MsgInfo("Entrou no ponto de entrada 'APPENDSLDZERADO'")
         WORK->WKPRECO := 50


        Case cParam == "APOSANTES_GET_SISALVAR"
         If nOpcPonto <> 0
            MsgInfo( MsgInfo("Entrou no ponto de entrada 'APOSANTES_GET_SI' Seleção de itens.")
SALVAR'")
            lPE  EndIF
:= .F.

        Case cParam == "INICIA_VARIAVEL_CONFERENCIA_FINALAPPEND"
         If nOpcPonto <> 0
            MsgInfo("Entrou no  MsgInfo("Entrou no ponto de entrada 'INICIA_VARIAVEL_CONFERENCIA_FINAL' Conferencia final.APPEND'")
         EndIF   WORK->WKPRECO := 50

        Case cParam == "APOS_MARCAGET_ITEMSI"
            If nOpcPonto <> 0
                MsgInfo("Entrou no ponto de entrada 'APOS_MARCAGET_ITEMSI' Seleção de itens.")
         EndIF   EndIf
      Case cParam == "APOS_CONFERENCIAFINAL"
        Case IfcParam nOpcPonto <> 0== "ANTES_ESTORNA"
            MsgInfo("Entrou no ponto de entrada 'APOSANTES_CONFERENCIAFINALESTORNA' Conferencia final.")

         EndIF
      Case cParamixbcParam == "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"INICIA_VARIAVEL_CONFERENCIA_FINAL"
            If nOpcPonto <> 0
                MsgInfo("Entrou no ponto de entrada 'INICIA_VARIAVEL_CONFERENCIA_FINAL' Conferencia final.")
         if cMV_EASY == "S" EndIf

        Case cParam ==  cMV_EASY := "N"
"APOS_MARCA_ITEM"
            If endif
nOpcPonto <> 0
           lExecAuto_Com  := cMV_EASY == "S"
    End Case
Return

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

		Case cParam == "HABILITA_CONFERENCIA_FINAL"
			//Habilita a tela de Conferência Final
			 lConfFinal := .T.

     End Case
Return