Linha Microsiga Protheus

Árvore de páginas

Versões comparadas

Versão antiga 1

changes.mady.by.user Giovana Niehues

Gravado em

comparado com

Nova versão 2

changes.mady.by.user Eduardo H. Mussi

Gravado em

Chave

  • Esta linha foi adicionada.
  • Esta linha foi removida.
  • A formatação mudou.

Ponto de entrada que permite realizar customização na

...

legenda do

...

browse no Retorno Mod. 2 (MNTA435)

Características do Requisito

Linha de Produto:

Microsiga Protheus

Segmento:

Manufatura

Módulo:

SIGAMNT - Manutenção de Ativos e Gestão de Frotas

Rotina:

Rotina

Nome Técnico

MNTA435

Corretiva


Rotina(s) envolvida(s)

Nome Técnico

MNTA4355

Ponto de Entrada

País(es):

Todos

Banco(s) de Dados:

Todos

Sistema(s) Operacional(is):

Todos


Ponto de Entrada

Descrição:

Ponto de entrada executado na rotina de Retorno Mod. 2 (MNTA435) que retorna um array

de condições e cores, para ser usada em uma nova coluna como sendo uma segunda legenda

com a estrutura para construção da legenda no browse de O.S.. Além de adicionar novas legendas, poderão ser customizadas as legendas já existentes.

Programa Fonte:

MNTA435.prx
Localização:SIGAMNT: Atualizações/Controle de Oficina/Retorno de OS/Retorno Mod. 2

Função:

MNTA4355()

Retorno:

Nome

Tipo

Descrição

Obrigatório

aArrayArray

Contém as cores e condições da nova legenda

aLegenda[ x, 1 ] = Condição da legenda

aLegenda[ x, 2 ] = Cor da legenda

aLegenda[ x, 3 ] = Descrição da Legenda

aLegenda[ x, 4 ] = Compatibilidade( Não usar )

aLegenda[ x, 5 ] = Indica se deve ser exibido filtro da legenda

X
Bloco de código
titleExemplo do Ponto de Entrada MNTA4355()
#Include 'ProtheusTotvs.ch'
 
User Function MNTA4355()

	    
    Local aArrayaLegenda := {}
	
	aArray PARAMIXB
    
    If MsgYesNo( 'Deseja deixar somente a primeira legenda?' )
        aLegenda := {{"AllTrim(aOS[oOS:nAt,2])=='1'","oRed"},;			
		{"AllTrim(aOS[oOS:nAt,2])=='2'","oAmarelo"},;			
		{"AllTrim(aOS[oOS:nAt,2])=='3'","oVerde"},;			
		{"","oAzul"}}
	
Return aArray { ' !Empty((cAlias435)->TJ_TIPORET) .And. (cAlias435)->TJ_DTMPFIM >= dDataBase', 'BR_VERDE', /*Legenda*/, /*Não usar*/, .F. } }
    EndIf
     
Return aLegenda