Árvore de páginas

Versões comparadas

Chave

  • Esta linha foi adicionada.
  • Esta linha foi removida.
  • A formatação mudou.

...

O PE F040URET adiciona a regra e o PE F040ADLE adiciona  adiciona a descrição quando acionada a tela de legenda conforme imagem abaixo.

...

Logo os pontos de entrada F040URET F040ADLEdevem  devem ser utilizados em conjunto.


As regras retornadas pelo ponto de entrada F040URET serão adicionadas depois das regras do padrão.

...

Caso seja preciso adicionar legendas em outra ordem ou alterar legendas do padrão, utilizar o ponto de entrada FINALEG.


03. PARÂMETROS


NomeDescrição
aRegrasContém o array com as regras do padrão

aLegendas

Contém array com as legendas e descrição.

...

NomeDescrição

aRet

Array com a regra e a legenda.

Estrutura do array:
1º posição: Regra

2ª posição: Cor da Legenda

Exemplo:

aAdd(aRet,{"!Empty(E1_PORTADO)","BR_LARANJA"})


05. EXEMPLO DE UTILIZAÇÃO

...

Bloco de código
languagejava
themeMidnight
titleFN677CLIP
#INCLUDE "PROTHEUS.CH"

/*
    Ponto de entrada para regras de legenda
*/
User Function F040URET()

Local aRet := {}

If FunName() $ "FINA040|FINA740"	
    aAdd(aRet,{"!Empty(E1_PORTADO)","BR_LARANJA"})
Endif

If FunName() $ "FINA050|FINA750" // Exemplo para "Titulo aguardando liberacao em outras moedas"
    aAdd(aRet,{" !( SE2->E2_TIPO $ MVPAGANT ).and. EMPTY(E2_DATALIB) .AND. IIF(E2_MOEDA > 1, E2_VLCRUZ, (SE2->E2_SALDO+SE2->E2_SDACRES-SE2-  >E2_SDDECRE)) > SuperGetMV('MV_VLMINPG',.F.,0) .AND. E2_SALDO > 0","BR_PINK"})
Endif

Return aRet 


/*
    Ponto de entrada para legenda e descrição ao acionar o botão legendas do browse
*/
User Function F040ADLE()

Local aRet := {}              

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

Return aRet

...