DT PE Adiciona nova Validação de Abrangência no Atendimento

01. DADOS GERAIS

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