Linha Microsiga Protheus

Árvore de páginas

Ponto de entrada que permite alterar o tipo de criação do browser da rotina de Solicitação de Serviço (MNTA280)

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

MNTA280

Solicitação de Serviço


Rotina(s) envolvida(s)

Nome Técnico

MNTA280C

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 cadastro de Solicitação de Serviço (MNTA280) que permite alterar o tipo de criação do browser

Localização:

SIGAMNT: Atualizações/Controle de Oficina/Solicitação de Serviço/Solicitação

Programa Fonte:

MNTA280.prx

Função:

MNTA280C()

Retorno:


.T.


 

Exemplo do Ponto de Entrada MNTA280C()
#INCLUDE "FWBROWSE.CH"
#INCLUDE 'PROTHEUS.CH'

User Function MNTA280C()

	SetVisual() oBrowse := FwMBrowse():New()

	oBrowse:SetAlias( "TQB" )
	oBrowse:SetDescription(cCADASTRO)
	oBrowse:AddLegend( "TQB->TQB_SOLUCA == '"+cAguard+"'",	'BR_VERMELHO',	OemToAnsi( "Aguardando Analise" ) )
	oBrowse:AddLegend( "TQB->TQB_SOLUCA == '"+cClassi+"'",	'BR_VERDE',	OemToAnsi( "Distribuída" ) )
	oBrowse:AddLegend( "MNTA280Atr()",	'BR_AMARELO',	OemToAnsi( "Com Atraso Cadastrado" ) )

	ADD STATUSCOLUMN oColumn DATA { || If(TQB_PRIORI $ "1",'BR_VERMELHO', If(TQB_PRIORI $ "2",'BR_AMARELO','BR_VERDE') ) };
	DOUBLECLICK { |oBrowse| U_CBT280LEG() } OF oBrowseoBrowse:Activate()

Return .T.

User Function CBT280LEG()

	Local aLegenda := {}aAdd(aLegenda,{"BR_VERMELHO","Alta"})

	aAdd(aLegenda,{"BR_AMARELO","Média"})
	aAdd(aLegenda,{"BR_VERDE","Baixa"})
	BrwLegenda(cCadastro,"Legenda - Prioridade",aLegenda)

Return .T.