Histórico da Página

Permite modificar as propriedades dos botões disponíveis ou adicionar novo botão no Browse

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
MNTA490	Liberação OS

Issues Relacionadas

12.1.17 / DNG-2952

País(es):

Todos.

Banco(s) de Dados:

Todos.

Sistema(s) Operacional(is):

Todos.

Ponto de Entrada

Descrição:

Ponto de Entrada executado ao montar o Browse, permitindo modificar as propriedades relacionadas ao botões disponíveis em tela ou para adicionar um novo botão na rotina.

Localização:

SIGAMNT: Atualizações/Controle de Oificina/Plano de Manutenção/Liberação OS

Eventos:

Liberação OS (MNTA490)

Programa:

MNTA490.prx

Função:

MNTA4905()

Parâmetros:

Nome

Tipo

Descrição

ParamIXB[1]

Array

Nome	Tipo	Descrição
Array[1]	Objeto	Propriedades referente ao botão visualizar
Array[2]	Objeto	Propriedades referente ao botão Cancelar
Array[3]	Objeto	Propriedades referente ao botão Custo Previsto
Array[4]	Objeto	Propriedades referente ao botão Insumos
Array[5]	Objeto	Propriedades referente ao botão Etapas
Array[6]	Objeto	Propriedades referente ao botão Mod. Insumos
Array[7]	Objeto	Propriedades referente ao botão Mod. Etapas
Array[8]	Objeto	Propriedades referente ao botão Altera O.S.
Array[9]	Objeto	Objeto onde será adicionado novo botão.

ParamIXB[2]

Caracter

Nome	Tipo	Descrição
cTRBA490	Caracter	Tabela temporária que contém os campos Ordem (TJ_ORDEM) e Plano (TJ_PLANO)

Retorno:

Nil

Bloco de código

language	sql
linenumbers	true

#Include "Protheus.ch"

//-------------------------------------------------------------------
/*/{Protheus.doc} MNTA4905
Permite alterar propriedade de botões ou adicionar um novo.

@author  NG Informática
@since   29/10/2019
@version P12
/*/
//-------------------------------------------------------------------
User Function MNTA4905()

    Local aButtons  := ParamIXB[1]
	Local cPETabela := ParamIXB[2]
	Local oPnlTop   := aButtons[9]
	Local oTesteOs  := Nil

    aButtons[5]:lActive  := .F.
    aButtons[2]:lVisible := .F.
    aButtons[1]:cTitle   := "Teste"

	@ 01,328 BUTTON oTesteOs PROMPT "Novo Botão" SIZE 38,12 OF oPnlTop PIXEL ACTION U_MNTATOS((cTRBA490cPETabela)->TJ_ORDEM,(cTRBA490cPETabela)->TJ_PLANO)

Return

//-------------------------------------------------------------------
/*/{Protheus.doc} MNTA4905
Ação do botão adicionado.

@param cPEOrdem, Caracter, Ordem de Serviço.
@param cPEPlano, Caracter, Plano.

@author  NG Informática
@since   29/10/2019
@version P12
/*/
//-------------------------------------------------------------------
User Function MNTATOS(cPEOrdem,cPEPlano)

	//Grava conteúdo em campo de usuário.
	dbSelectArea("STJ")
	dbSetOrder(1)
	If MsgYesno("Deseja alterar o registroa OS"+space(1)+cPEOrdem+space(1)+"?") .And. dbSeek(xFilial("STJ")+cPEOrdem+cPEPlano)
		Reclock("STJ",.F.)
		STJ->TJ_XUSER := "Registro alterado." 
		STJ->(MsUnlock())
		MsgInfo("Registro alterado via ponto de entrada.")
	EndIf

Return

Árvore de páginas

Versões comparadas

Versão antiga 5

Nova versão Atual

Chave

Características do Requisito

Ponto de Entrada