Histórico da Página

Descrição:

Ponto de Entrada para Manutenção das aCores utilizado para criação ou manutenção da legenda do Browse do Fechamento da Ordem de Serviço. Trabalha em conjunto com o Ponto de Entrada OX100LEG.

Eventos:

Local uRetorno := .t.

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

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

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

{ 'BR_PRETO' , STR0008}} // Cancelado

If ( ExistBlock("OX100LEG") )

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

EndIf

If nReg == NIL // Chamada direta da funcao onde nao passa, via menu Recno eh 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("OX100COR") )

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

EndIf

Função:

OXA100LEG