PE PCOA0507

01. DADOS GERAIS

02. DESCRIÇÃO

O ponto de entrada PCOA0507 é utilizado para permitir validações adicionais  após o bloqueio de entidades. Ele permite ao usuário implementar validações adicionais, aplicando regras específicas relacionadas ao bloqueio de entidades como centro de custo, item contábil e classe de valor.

Este ponto de entrada oferece flexibilidade para atender a cenários customizados, garantindo que os bloqueios sejam realizados de acordo com as necessidades do cliente. Este ponto não atua na função padrão ExistCpo() quando utilizado os campos especiais como _MSBLQL.

03. DEMAIS INFORMAÇÕES

lVld := ExecBlock("PCOA0507",.f.,.f.,{lVld})

User function PCOA0507()

	Local lVldBlq := ParamIXB1
	Local lRetorno := .T.

	Alert("Evidencia PE: PCOA0507 - VALIDACAO DAS ENTIDADES BLOQUEADAS")

	If lVldBlq // se retornou .T. pq passou pela validacao padrao
		If !MsgYesNo("Validacao Padrao OK....Customizacao Confirma este item ?", "NAO BLOQUEADO PADRAO")
			lRetorno := .F.
		EndIf
	Else
		If !MsgYesNo("Validacao Padrao BLOQUEADO....Customizacao Confirma este item mesmo assim ?", "BLOQUEADO PADRAO")
			lRetorno := .F.
		EndIf
	EndIf

Return(lRetorno) //RETORNO DO PONTO DE ENTRADA

04. ASSUNTOS RELACIONADOS

• Não se aplica.