Linha Microsiga Protheus

Árvore de páginas

Versões comparadas

Versão antiga 4

changes.mady.by.user Diego Oliveira

Gravado em

comparado com

Nova versão 5

changes.mady.by.user Diego Oliveira

Gravado em

Chave

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

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.
Retorno:Nil

 

Bloco de código
languagesql
#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((cTRBA490)->TJ_ORDEM,(cTRBA490)->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 registro?") .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