Exibir origem

01. DADOS GERAIS

Produto:
Linha de Produto:
Segmento:
Módulo:
Função:	Eventos de autorização e liberação
País:	Brasil
Ticket:	13815140
Requisito/Story/Issue (informe o requisito relacionado) :	DSAUBE-18436

02. SITUAÇÃO/REQUISITO

Necessidade de incluir uma nova validação na função que verifica abrangência.

03. SOLUÇÃO

Implementando ponto de entrada PLSABRA1 para realizar nova validação na função que verifica abrangência.

04. DEMAIS INFORMAÇÕES

Ponto de entrada: PLSABRA1

Parâmetros: PARAMIXB com 3 posições

- PARAMIXB[1]: Array contendo os dados do usuário, contrato e subcontrato. (Tipo Array)
- PARAMIXB[2]: Array contendo os dados do prestador. (Tipo Array)
- PARAMIXB[3]: Array contendo os dados das críticas anteriores. (Tipo Array)

Retorno: Array com duas posições

- - Primeira posição, variável logica com True ou False. (Tipo Lógico)
  - Segunda posição, array contendo as críticas. (Tipo Array)

Exemplo de uso:

#Include 'Protheus.ch'

User Function PLSABRA1()
    local aDadUsr		:= aClone(PARAMIXB[1])
    local aDadRda		:= aClone(PARAMIXB[2])
    local aCriticas 	:= aClone(PARAMIXB[3])
    local lRet 	        := .T.
    local cCodPad  	    := ""
    local cCodPro  	    := ""
    local cCodCri  	    := ""
	
	//---------------------------------
    //Bloco com as Condições do cliente
 	//--------------------------------- 
    lRet := .F.
    AaDd(aCriticas,{cCodCri,"","","","",cCodPad,cCodPro}) 
    PLSCOMPCRI(aCriticas, "BIA")
 	//---------------------------------
    //Fim do bloco com as Condições do cliente
 	//---------------------------------  

Return {lRet, aCriticas}

05. ASSUNTOS RELACIONADOS

Não se aplica