Linha Microsiga Protheus

Árvore de páginas

  • Criado por Usuário desconhecido (sueli.gomides), última alteração por admin em 24 jun, 2012

Ponto-de-Entrada: MNTA400COR - Semáforos das Ordens de Serviço
Versões: Microsiga Protheus 10
Compatível Países: Todos
Sistemas Operacionais: Todos
Compatível às Bases de Dados: Todos
Idiomas: Espanhol , Inglês
Descrição: 
Distribui as cores nos semáforos das Ordens de Serviço no Retorno de O.S de acordo com o filtro. (MNTA400)
Eventos


 

Programa Fonte 
MNTA400COR.PRW
Sintaxe

MNTA400COR - Semáforos das Ordens de Serviço ( ) --> aCores

Retorno
    aCores(array_of_record)
  • Array com as cores e filtros
Observações


 

Exemplos 
User Function MNTA400COR()aCores := {                                                                                          ;	    {"NGSEMAFARO('!Empty(STJ->TJ_TIPORET) .And. STJ->TJ_DTMPFIM >= dDataBase')" , 'BR_VERDE' },;	    {"NGSEMAFARO('Empty(STJ->TJ_TIPORET) .And. STJ->TJ_DTMPFIM >= dDataBase' )" , 'BR_VERMELHO'},;	    {"NGSEMAFARO('Empty(STJ->TJ_TIPORET) .And. STJ->TJ_DTMPFIM < dDataBase'  )" , 'BR_AMARELO' },;	    {"NGSEMAFARO('!Empty(STJ->TJ_TIPORET) .And. STJ->TJ_DTMPFIM < dDataBase' )" , 'BR_AZUL'    }}Return aCores