Histórico da Página
01. DADOS GERAIS
Linha de Produto: | Microsiga Protheus® |
---|---|
Segmento: | Jurídico |
Módulo: | Pré Faturamento de Serviços - SIGAPFS |
Função: | Operações de Pré-Fatura - JURA202 |
02. PONTO DE ENTRADA
Descrição: | Este ponto de entrada permite validar a alteração da situação na Pré-Fatura. | ||||||||||||||||||||
---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|
Localização: | Atualizações - Movimentações - Operações de Pré-Fatura | ||||||||||||||||||||
Programa Fonte: | JURA202 | ||||||||||||||||||||
Função: | JA202SIT | ||||||||||||||||||||
Ponto de Entrada: | J202Sit | ||||||||||||||||||||
Parâmetros: |
| ||||||||||||||||||||
Retorno: |
|
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 := ""
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 <> cCodPreFat != "000001" .And. cSitAtual == "2" .And. cNovaSit == "4"
aRetorno := {.F., "Operação não permitida para a Pré-Fatura: " + cCodPreFat + "!"}
EndIf
EndIf
Return (aRetorno)
Templatedocumentos |
---|
HTML |
---|
<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> |