Histórico da Página

 Tempo aproximado para leitura: 05 min

01. DADOS GERAIS

02. PONTO DE ENTRADA

03. EXEMPLO

#INCLUDE "PROTHEUS.CH"
#INCLUDE "FWMVCDEF.CH"
#INCLUDE "PARMTYPE.CH"

//-------------------------------------------------------------------
/*/{Protheus.doc} J202Sit JURA069
Valida a alteração de situação da Pré-FaturaPonto de entrada MVC da rotina de Controle de Adiantamentos.

@param  PARAMIXB@param PARAMIXB, array   , Parâmetros do ponto de entrada
            PARAMIXB Parâmetros do ponto de entrada MVC
    PARAMIXB[1], objeto  , caracter Objeto do formulário ou do modelo, Código da Pré-Fatura
            PARAMIXB conforme o caso
    PARAMIXB[2], caracter, Situação atual da Pré-Fatura
            PARAMIXB ID do local de execução do ponto de entrada
    PARAMIXB[3], caracter, Nova situação selecionada pelo usuário
Situações:
    "1"  // Conferência
    "2"  // Análise
    "3"  // Alterada
    "4"  // Emitir Fatura
    "5"  // Emitir Minuta
    "6"  // Minuta Emitida
    "7"  // Minuta Cancelada
    "8"  // Substituída/Cancelada
    "9"  // Minuta Sócio
    "A"  // Minuta Sócio Emitida
    "B"  // Minuta Sócio Cancelada
    "C"  // Em Revisão
    "D"  // Revisada
    "E"  // Revisada com Restrições
    "F"  // Aguardando Sincronização
    "G"  // Fatura Emitida
    "H"  // Cancelada pela Revisão
@return aRetorno   , array   , Retorna dados do ponto de entrada 
            aRetorno[1], logico  , Se verdadeiro altera a situação da Pré-Fatura
            aRetorno[2], caracter, Retornar vazio ou mensagem de justificativa
@author  TOTVS
@since   16/03/2020 ID do formulário
    PARAMIXB[4], numérico, Número da Linha da FWFORMGRID
    PARAMIXB[5], Ação da FWFORMGRID
    PARAMIXB[6], Id do campo 

@author TOTVS
@since  16/03/2020
@obs    https://tdn.totvs.com/pages/viewpage.action?pageId=208345968
/*/
//-------------------------------------------------------------------
User Function J202SitJURA069()
    Local cCodPreFat  aParam   := PARAMIXB
    Local oObj     := ""Nil
    Local cSitAtual      cIdPonto := ""
    Local cNovaSit      cIdModel := ""
    Local aRetorno      lIsGrid  := .F.
    Local xRetorno := {.T., ""}

    If ValType( PARAMIXB aParam) == "A"
        cCodPreFat         oObj     := PARAMIXB aParam[1]
        cSitAtual             cIdPonto := PARAMIXB aParam[2]
        cNovaSit             cIdModel := PARAMIXB aParam[3]
        lIsGrid  := Len(aParam) > 3

        // Permite apenas a alteração de situação da Pré-Fatua "000001" de "2 - Análise" para "4 - Emitir fatura"
        If cCodPreFat <> "000001" .And. cSitAtual == "2" .And. cNovaSit == "4"
            aRetorno := {.F., "Operação não permitida para a Pré-Fatura: " + cCodPreFat + "!"If cIdPonto == "MENUDEF"
            /*===============================================================================
            [n][1] --> Título da rotina que será exibido no menu
            [n][2] --> Nome da função que será executada
            [n][3] --> Parâmetro reservado. Deve ser sempre 0 (zero)
            [n][4] --> Número da operação que a função executará. As alternativas são:
                        1=Pesquisa
                        2=Visualização
                        3=Inclusão
                        4=Alteração
                        5=Exclusão
                        6=Alteração sem a permissão para incluir novas linhas. É válido apenas para os objetos GetDados e GetDb.
            [n][5] -->  Parâmetro descontinuado.
            ===============================================================================*/
            xRetorno := {{ "Minha Rotina", "MsgInfo('Clicado no novo menu!')", 0, 6, 0, Nil}}
        EndIf
    EndIf

Return (aRetornoxRetorno)

<style>
div.theme-default .ia-splitter #main {
    margin-left: 0px;
}
.ia-fixed-sidebar, .ia-splitter-left {
    display: none;
}
#main {
    padding-left: 10px;
    padding-right: 10px;
    overflow-x: hidden;
}

.aui-header-primary .aui-nav,  .aui-page-panel {
    margin-left: 0px !important;
}
.aui-header-primary .aui-nav {
    margin-left: 0px !important;
}
</style>