Linha Microsiga Protheus

Árvore de páginas

Versões comparadas

Versão antiga 1

changes.mady.by.user Diego Oliveira

Gravado em

comparado com

Nova versão Atual

changes.mady.by.user Diego Oliveira

Gravado em

Chave

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

Ponto de entrada que permite

...

customizar campos da tabela de Bens (ST9) gerado a partir de um Ativo Fixo

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

MNTA115

Cadastros Bens a partir de Ativo Fixo

MNTA280

Solicitação de Serviço

Rotina(s) envolvida(s)

Nome Técnico

MNTA115

Cadastros Bens a partir de ATF

MNTA2806

Ponto de Entrada

País(es):

Todos

Banco(s) de Dados:

Todos

Sistema(s) Operacional(is):

Todos

Ponto de Entrada

MNTA280MNTA2806

Descrição:

Ponto de entrada executado na rotina de Solicitação de Serviço (MNTA280Gera Bens a partir de ATF (MNTA115) que permite alterar cores e descrições de legendas do semáforocampo da tabela de Bens (ST9) quando o mesmo for confirmado a partir de um Ativo Fixo.

Localização:SIGAMDI: Atualizações/Controle de Oficina/Solicitação de Serviço/SolicitaçãoMiscelânea/Gera Bens/A Partir do ATF

Programa Fonte:

MNTA115.prx

Função:

MNTA1151()

Retorno:

Nome

Tipo

Descrição

Obrigatório

aLegendaArrayCores e descrições da legendaXSim
Bloco de código
languagesql
titleExemplo do Ponto de Entrada MNTA2806MNTA1151()
linenumberstrue
#Include 'ProtheusTotvs.ch'

//-------------------------------------------------------------------
/*/{Protheus.doc} MNTA1151
Grava campo customizado na ST9 a partir de um Ativo.

User Function MNTA2806()

	//Acesso: aLegenPE
	//Para adicionar ou alterar itens da legenda -> alterar array aLegenPE e return
	//aAdd(aLegenPE,{"Cor","Descricao"})
	//aLegenPE[1][1] := 'BR_AZUL'
	//Para criar nova legenda -> definir novo array
	
	Local aLegenda := {{"BR_LARANJA","Aguardando Analise (sem Serviço)"},;		   
						{"BR_VERDE","Aguardando Analise (com Serviço)"},;		   
						{"BR_CINZA","Distribuída"}}
						
Return aLegenda@author  NG Informática
@since   24/02/2020
@version P12
/*/
//-------------------------------------------------------------------
User Function MNTA1151()

    Local aAtvNBEM  := PARAMIXB[ 1 ]
    Local aAreaST9 := GetArea()

    If Len(aAtvNBEM) > 0
		dbSelectArea("ST9")
		dbSetOrder(1)
		If dbSeek(xFilial("ST9")+aAtvNBem[1,1] )

			RecLock('ST9',.F.)
			ST9->T9_CATBEM	:= "4"
			ST9->(MsUnLock())

			MsgInfo("PE MNTA1151 executado.")
		EndIf

	EndIf

	RestArea( aAreaST9 )

Return .T.