OM020CLG Customização da legenda na Rotina Req Pecas (OFIOM020)

Descrição:

Este Ponto de Entrada será executado na rotina Req Pecas (OFIOM020) ao ser executado o menu Outras Ações. A mesma permite a inclusão de customização da legenda. Trabalha em conjunto com o Ponto de Entrada OM020COR.

Eventos:

/*

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

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

±±³Fun‡…o ³OM020LEG ³ Autor ³ Fabio ³ Data ³ 16/02/06 ³±±

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

±±³Descri‡…o ³ Cria uma janela contendo a legenda da mBrowse ³±±

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

±±³ Uso ³ofiom020 ³±±

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

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

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

*/

Function OM020LEG(nReg)

Local uRetorno := .t.

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

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

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

{ 'BR_PRETO' , STR0092 }} // Cancelado

// Pontos de Entrada para incluir tipos para legenda

If (ExistBlock("OM020CLG"))

aLegenda := ExecBlock("OM020CLG", .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("OM020COR"))

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

EndIf

Else

BrwLegenda(cCadastro, STR0093, aLegenda) //STR0088

EndIf

Return uRetorno

Função:

OM020LEG()