Linha Microsiga Protheus

Árvore de páginas

01. DADOS GERAIS

Produto:

TOTVS Backoffice

Linha de Produto:

Linha Protheus

Segmento:

Serviços

Módulo:

TOTVS Backoffice (Linha Protheus) - Planejamento e Controle Orçamentário (SIGAPCO)

Função:PCOA480
País:Brasil
Ticket:Interno
Requisito/Story/IssueDSERCTR1-46030

02. DESCRIÇÃO

Permite adicionar validações de usuário na rotina.

03. DEMAIS INFORMAÇÕES


Manipulação de PE no sistema
If ExistBlock("PCO480VLD")
	lRet := ExecBlock("PCO480VLD",nGrade)
EndIf
Exemplo de PE
User Function PCOA480

	Local lRet := .T.
	Local nGrade := PARAMIXB[1]
	Local nPosiPerc := aScan(oGdRegra:aHeader, {|x| AllTrim(x[2]) == "ALO_PERC"})
	Local nContItem := 0
	
	If nGrade == 3

		For nContItem := 1 to Len(oGdRegra:aCols)
			
			nPercaCols := oGdRegra:aCols[nContItem,nPosiPerc]
			
			If nPercaCols <> 0
				// validacao do cliente
				lRet := .F.
			EndIf
			
		Next	
		
	EndIf

Return lRet

Importante !!

  • Observa-se que a utilização do PE e os impactos dele no sistema são de responsabilidade do cliente.
  • Os exemplos utilizados nessa documentação são apenas para fins de demonstração, cada cliente deve verificar qual comportamento deseja realizar de acordo com o escopo do ponto de entrada.

04. ASSUNTOS RELACIONADOS

  • Não se aplica.