Linha Microsiga Protheus

Árvore de páginas

Ponto de Entrada

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.

Parametros:

aRet - Vetor utilizado para definização das cores da legenda do fechamento da O.S.

aLeg - Vetor com todas as legendas do Fechamento da O.S.

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

 

Programa Fonte:

OFIXA100                                                                                                                                              

Função:

OXA100LEG

Retorno:

aRet - Vetor utilizado para definização das cores da legenda do fechamento da O.S.

 

Exemplo:

User Function OX100COR()

Local aRet := ParamIxb[01] // Parametro 1 - Legendas

Local aLeg := ParamIxb[02] // Parametro 2 - Cores

 

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

 

Return(aRet)