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:PCOXINC
País:Brasil
Ticket:Interno
Requisito/Story/IssueDSERCTR1-46748

02. DESCRIÇÃO

O ponto de entrada PCOVLDFLT tem como objetivo validar as informações inseridas na grade de filtro ao pressionar o botão "Executar Filtro". Esse comportamento ocorre quando o usuário utiliza a interface "Especif.Campos" durante a alteração da planilha orçamentária.

Este ponto de entrada possibilita implementar validações personalizadas para assegurar que os dados do filtro atendam às regras específicas antes de prosseguir com a execução do filtro.

03. DEMAIS INFORMAÇÕES


Manipulação de PE no sistema
If ExistBlock( "PCOVLDFLT" )
	lValidUsr := ExecBlock( "PCOVLDFLT", .F., .F., { oGD[2]:aHeader, oGD[2]:aCols } )
	If !lValidUsr
		oGD[2]:oBrowse:SetFocus()
	EndIf
EndIf
Exemplo de PE
#INCLUDE "PROTHEUS.CH"

User Function PCOVLDFLT()

	Local aHeader_Filt := ParamIXB[1]
	Local aCosl_Filt 	:= ParamIXB[2]
	Local lValidUsr	:= .T.  

	//se retornar falso nao executara o filtro, voltando ao filtro para                           
	// alterar as informacoes
	Local nX 
	Local nPosClasse := aScan(aHeader_Filt,{|x| AllTrim(x[2])=="XK2_CLASSE"})

	if aCols_Filt[1, nPosClasse] == "000001"   
		Alert("Classe nao pode ser utilizada.")   
		lValidUsr := .F.
	EndIf

Return(lValidUsr)

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.