Histórico da Página

#INCLUDE "PROTHEUS.CH"

User Function FINALeg()

Local nReg := PARAMIXB[1] // Com valor: Abrir a telinha de legendas ### Sem valor: Retornar as regras
Local cAlias := PARAMIXB[2] // SE1 ou SE2
Local aRegras := PARAMIXB[3] // Regras do padrão
Local aLegendas := PARAMIXB[4] // Legendas do padrão
Local aRet := {}
Local nI := 0

/*
    Sem Recno --> Retornar array com as regras para o Browse colocar as cores nas colunas.
    Com Recno --> Chamada quando acionado botão Legendas do browse -> Abrir telinha de Legendas (BrwLegenda)
*/
If nReg = Nil

    /*
        aRegras passado contém as regras do padrão
        O array retornado deverá conter todas as regras, do padrão e customizadas.

        Dicas:
        Lembrando que as regras de legenda são consideradas na ordem do array retornado. 
        A Primeira regra atendida definirá a cor que será atribuída. 
        Atenção para com a ordem das regras e com regras conflitantes.
        A Última regra do padrão, caso não atenda a nenhuma condição anterior é a .T. -> BR_VERDE -> Título em aberto
    */
	If cAlias = "SE1" 

		/*
			Exemplo: adicionar uma regra de legenda "mais prioritária" que as do padrão
		*/
		aAdd(aRet,{"!Empty(E1_PORTADO) .AND. Empty(E1_NUMBOR)","BR_LARANJA"})
	
		/*
			Regras do padrão para retorno
		*/
		For nI := 1 To Len(aRegras)
			aAdd(aRet,{aRegras[nI][1],aRegras[nI][2]})
		Next nI 

	Else // SE2

		/*
			Exemplo para retornar as mesmas regras do padrão sem alteração
		*/
		aRet := aRegras

	Endif


Else // Abrir telinha de Legendas (BrwLegenda) 

	If cAlias = "SE1" 

		aAdd(aLegendas,{"BR_LARANJA","Título em Portador"})

	Else // SE2
		/*
			Adicionar a cor e descrição de legendas para SE2 aqui. Exemplo:
			Aadd(aLegendaaLegendas, {"BR_AMARELO", "Titulo aguardando liberacao"}) //Titulo aguardando liberacao 
		*/ 
	Endif 

	BrwLegenda(cCadastro, "Legenda", aLegendas)

Endif

Return aRet