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