DT PE J202Sit

 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[1], caracter, Código da Pré-Fatura
            PARAMIXB[2], caracter, Situação atual da Pré-Fatura
            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
/*/
//-------------------------------------------------------------------
User Function J202Sit()
    Local cCodPreFat := ""
    Local cSitAtual     := ""
    Local cNovaSit     := ""
    Local aRetorno     := {.T., ""}

    If ValType( PARAMIXB ) == "A"
        cCodPreFat := PARAMIXB[1]
        cSitAtual     := PARAMIXB[2]
        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 != "000001" .And. cSitAtual == "2" .And. cNovaSit == "4"
            aRetorno := {.F., "Operação não permitida para a Pré-Fatura: " + cCodPreFat + "!"}
        EndIf
    EndIf

Return (aRetorno)