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} J201CPF J202Sit
Ponto de entrada na emissão de PréValida a alteração de situação da Pré-Fatura.

@param  PARAMIXB   @param  PARAMIXB, array   , Parâmetros do ponto de entrada
              PARAMIXB[1], caracter, Código da Pré-Faturaadmin
@return aRetorno     , array   , Retorna dados do ponto de entrada-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 
             aRetornoaRetorno[1]  , logico  , Verdadeiro para permitir a emissão dá Pré Se verdadeiro altera a situação da Pré-FaturasFatura
             aRetornoaRetorno[2]  , caracter, Retornar vazio ou mensagem de justificativa
@author TOTVS
@author  TOTVS
@since   16/03/2020
@obs     Ponto de entrada será executado para cada Pré-Fatura emitida
/*/
//-------------------------------------------------------------------
User Function J201CPFJ202Sit()
    Local cCodPreFat := ""
    Local cSitAtual     := ""
    Local cNovaSit     := ""
    Local aRetorno     := {.T., ""}

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

        If cCodPreFat <> "MINHAPRE"
            aRetorno // 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., "Gravação efetuada através do ponto de entrada J201CPFOperaçã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>