Linha Microsiga Protheus

Árvore de páginas

Ponto de Entrada

Descrição:

Este Ponto de Entrada será executado na rotina Req Servicos/apont (OFIOM030) ao ser executado o menu Legenda.A mesma permite a manutenção das cores utilizadas na legenda do browse. Trabalha em conjunto com o Ponto de Entrada OM030CLG.

Localização:

Atualizações \ Mov Oficina \ Req Servicos/apont (OFIOM030)

Eventos:

/*

±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±

±±ÚÄÄÄÄÄÄÄÄÄÄÂÄÄÄÄÄÄÄÄÄÄÄÂÄÄÄÄÄÄÄÂÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÂÄÄÄÄÄÄÂÄÄÄÄÄÄÄÄÄÄ¿±±

±±³Funcao ³OM030LEG ³ Autor ³ Fabio ³ Data ³ 16/02/06 ³±±

±±ÃÄÄÄÄÄÄÄÄÄÄÅÄÄÄÄÄÄÄÄÄÄÄÁÄÄÄÄÄÄÄÁÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÁÄÄÄÄÄÄÁÄÄÄÄÄÄÄÄÄÄ´±±

±±³Descricao ³ Cria uma janela contendo a legenda da mBrowse ³±±

±±ÃÄÄÄÄÄÄÄÄÄÄÅÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ´±±

±±³ Uso ³ofiom030 ³±±

±±ÀÄÄÄÄÄÄÄÄÄÄÁÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ±±

±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±

ßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßß

*/

Function OM030LEG(nReg)


Local uRetorno := .t.

Local aLegenda := {{ 'BR_VERDE' , STR0093 },; // Aberta

{ 'BR_AZUL' , STR0094 },; // Liberada

{ 'BR_VERMELHO', STR0095 },; // Fechado

{ 'BR_PRETO' , STR0096 }} // Cancelado


// Pontos de Entrada para incluir tipos para legenda

If (ExistBlock("OM030CLG"))

aLegenda := ExecBlock("OM030CLG", .f., .f., {aLegenda})

EndIf


If nReg == NIL // Chamada direta da função onde não passa, via menu Recno é passado

uRetorno := {}

AADD(uRetorno, { 'VO1->VO1_STATUS == "A"', aLegenda[1,1], aLegenda[1,2] }) // Aberta

AADD(uRetorno, { 'VO1->VO1_STATUS == "D"', aLegenda[2,1], aLegenda[2,2] }) // Liberada

AADD(uRetorno, { 'VO1->VO1_STATUS == "F"', aLegenda[3,1], aLegenda[3,2] }) // Fechado

AADD(uRetorno, { 'VO1->VO1_STATUS == "C"', aLegenda[4,1], aLegenda[4,2] }) // Cancelado


If (ExistBlock("OM030COR"))

uRetorno := ExecBlock("OM030COR", .f., .f., {uRetorno, aLegenda})

EndIf

Else

BrwLegenda(cCadastro, STR0097, aLegenda) //Legenda

EndIf


Return uRetorno

Programa Fonte:

OFIOM030.PRW

Função:

OM030LEG()

Parâmetros:
NomeTipoDescrição

aRet

Vetor

Vetor que compõe as cores das legendas padrão do browse da rotina.

aLegVetor

Vetor que compõe as legendas padrão do browse da rotina.

Retorno:
NomeTipoDescrição

aRet

Vetor

Vetor que compõe as cores das legendas atualizadas pelo ponto de entrada do browse da rotina.

Exemplo:

Include totvs.ch

/*

===============================================================================

###############################################################################

##+----------+------------+-------+-----------------------+------+----------+##

##|Função | OM030COR | Autor | MIL | Data | 10/07/19 |##

##+----------+------------+-------+-----------------------+------+----------+##

##|Descrição | Customização legenda na rotina Req Servicos/apont (OFIOM030)|##

##+----------+--------------------------------------------------------------+##

###############################################################################

===============================================================================

*/

User Function OM030COR()

Local aRet := ParamIxb[01] // Parâmetro 1 - Legendas

Local aLeg := ParamIxb[02] // Parâmetro 2 - Cores


AADD(aRet, { 'VO1->VO1_STATUS == "Z"', aLeg[05,01], aLeg[05,02] })

Return aRet