Histórico da Página

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.

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

Função:

OM030LEG()