Linha Microsiga Protheus

Árvore de páginas

Versões comparadas

Versão antiga 1

changes.mady.by.user Priscila Fernanda Nazareno

Gravado em

comparado com

Nova versão Atual

changes.mady.by.user admin

Gravado em

Chave

  • Esta linha foi adicionada.
  • Esta linha foi removida.
  • A formatação mudou.
Composition Setup
import.css=/download/attachments/327912/newLayout.css
Portuguese

Pagetitle
GPA050OK - Validação da programação de férias
GPA050OK - Validação da programação de férias

Ponto-de-Entrada: GPA050OK - Validação da programação de férias
Abrangências: Microsiga Protheus 10
Versões: Microsiga Protheus 10
Compatível Países: Todos
Sistemas Operacionais: Todos
Compatível às Bases de Dados: Todos
Idiomas: Português (Brasil) , Português (Portugal) , Espanhol , Inglês
Descrição: 
Possibilita validar a confirmação da operação de inclusão/alteração/exclusão do registro de programação de férias.
Programa Fonte 
GPEA050.PRX
Sintaxe

GPA050OK - Validação da programação de férias ( [ ParamIXB ] ) --> lRet

Parâmetros:
NomeTipoDescriçãoDefaultObrigatórioReferência
ParamIXBArray of RecordElemento 1 - Identifica a operação selecionada pelo usuário a partir do menu de opções da rotina. Sendo ativas apenas as opções de atualização(inclusão/alteração) e exclusão da programação de férias.Elemento 2 - Informa se o registro de programação de férias para o empregado existe na base de dados. Esta informação é util no caso do primeiro elemento ser de atualização da programação.
Retorno
    lRet(logico)
  • .T. Confirma a operação;.F. Não confirma a operação.
Observações

Através da variável ParamIXB são passados dois elementos, conforme descritos neste documento. A customização deve interpretar essas informações e determinar se a operação deve prosseguir, retornando um conteúdo lógico correspondente.

 

Exemplos 
#INCLUDE 'RWMAKE.CH'#INCLUDE 'PROTHEUS.CH'USER FUNCTION GPA050OK()            Local nOpc		:= ParamIXB[1]  // 4 - Deleta / 3-AtualizaLocal lExiste     	:= ParamIXB[2]  // .T. - Encontrou programacao de ferias para o empregado / .F. - Nao encontrouLocal lRet 		:= .F.IF nOpc == 4   IF lExiste    		MsgAlert('Elimina')   Endif		ElseIF nOpc == 3   	  IF lExiste	  	MsgAlert('Altera') 		  Else		 MsgAlert('Inclui')  	  Endif		 Endif               lRet := MsgYesNo("Prossegue com a operacao ?")  Return(lRet)