OM030CLG Customização da legenda na Rotina Req Servicos/apont (OFIOM030)

Descrição:

Este Ponto de Entrada será executado na rotina Req Servicos/apont (OFIOM030) ao ser executado o menu Legenda. A mesma permite a inclusão de customização da legenda. Trabalha em conjunto com o Ponto de Entrada OM030COR.

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()