Histórico da Página

 Tempo aproximado para leitura: 05 min

01. DADOS GERAIS

02. PONTO DE ENTRADA

03. EXEMPLO

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

//-------------------------------------------------------------------
/*/{Protheus.doc} J202Sit
Valida a alteração de situação da Pré-Fatura.

@param  PARAMIXB, array   , Parâmetros do ponto de entrada
     PARAMIXB            PARAMIXB[1], caracter, Código da Pré-Fatura
     PARAMIXB            PARAMIXB[2], caracter, Situação atual da Pré-Fatura
     PARAMIXB            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            aRetorno[1], logico  , Se verdadeiro altera a situação da Pré-Fatura
        aRetorno            aRetorno[2], caracter, Retornar vazio ou mensagem de justificativa

@author  TOTVS
@since   16/03/2020
/*/
//-------------------------------------------------------------------
User Function J202Sit()
    Local cCodPreFat := ""
    Local cSitAtual   cSitAtual     := ""
    Local cNovaSit    cNovaSit     := ""
    Local aRetorno    aRetorno     := {.T., ""}

    If ValType( PARAMIXB ) == "A"
        cCodPreFat := PARAMIXB[1]
        cSitAtual          cSitAtual     := PARAMIXB[2]
        cNovaSit           cNovaSit     := PARAMIXB[3]

        // Permite apenas a alteração de situação da Pré-Fatua "000001" de "2 - Análise" para "4 - Emitir fatura"
        If cCodPreFat <>  cCodPreFat != "000001" .And. cSitAtual == "2" .And. cNovaSit == "4"
            aRetorno := {.F., "Operação não permitida para a Pré-Fatura: " + cCodPreFat + "!"}
        EndIf
    EndIf

Return (aRetorno)

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