Linha Microsiga Protheus

Árvore de páginas

Ponto de Entrada

Descrição:

Este Ponto de Entrada foi criado para permitir a Manutenção das Legendas do Fechamento da Ordem de Serviço. Trabalha em conjunto com o Ponto de Entrada OX100COR.

Parâmetros:

aLeg - Vetor contendo 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

Programa Fonte:

OFIXA100.PRW

Função:

OXA100LEG 

Retorno:

aLeg - Vetor contendo todas as Legendas do Fechamento da O.S.

 

Exemplo:

User Function OX100LEG()

Local aLeg := ParamIxb[01] // Parametro 1 - Legendas do Orcamento

aadd(aLeg,{'BR_MARROM',"TESTE DE LEGENDA"})

Return(aLeg)