Linha Microsiga Protheus

Árvore de páginas

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:
NomeTipoDescrição
ParamIXB[1]Array
NomeTipoDescrição
Array[1]ObjetoPropriedades referente ao botão visualizar
Array[2]ObjetoPropriedades referente ao botão Cancelar
Array[3]ObjetoPropriedades referente ao botão Custo Previsto
Array[4]ObjetoPropriedades referente ao botão Insumos
Array[5]ObjetoPropriedades referente ao botão Etapas
Array[6]ObjetoPropriedades referente ao botão Mod. Insumos
Array[7]ObjetoPropriedades referente ao botão Mod. Etapas
Array[8]ObjetoPropriedades referente ao botão Altera O.S.
Array[9]ObjetoObjeto onde será adicionado novo botão.
ParamIXB[2]

Caracter

NomeTipoDescrição
cTRBA490CaracterTabela temporária que contém os campos Ordem (TJ_ORDEM) e Plano (TJ_PLANO)
Retorno:Nil

 

#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((cPETabela)->TJ_ORDEM,(cPETabela)->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 a OS"+space(1)+cPEOrdem+space(1)+"?") .And. dbSeek(xFilial("STJ")+cPEOrdem+cPEPlano)
		Reclock("STJ",.F.)
		STJ->TJ_XUSER := "Registro alterado."
		STJ->(MsUnlock())
	EndIf

Return