Histórico da Página
Aviso |
---|
|
Ao gerar OS através de uma SS, grava campos de usuário
na tabela STJno campo TJ_OBSERVA.
Características do Requisito
Linha de Produto: | Microsiga Protheus. | ||||||
Segmento: | Manufatura. | ||||||
Módulo: | SIGAMNT - Manutenção de Ativos e Gestão de Frotas | ||||||
Rotina: |
| ||||||
Issues Relacionadas | 12.1.17 / MNG-3831 / DNG-15572431 | ||||||
País(es): | Todos. | ||||||
Banco(s) de Dados: | Todos. | ||||||
Sistema(s) Operacional(is): | Todos. |
Ponto de Entrada
Descrição: | Ponto de Entrada que adiciona botões a opção ações relacionadas na rotina de Solicitação de Serviçoexecutado ao gerar OS através de uma SS, adiciona o conteúdo de campos de usuário e apresenta no campo TJ_OBSERVA. | ||||||||
Localização: | SIGAMNT: Atualizações/Controle de Oificina/Solicit. Serviço/Solicitação | ||||||||
Eventos: | Solicitação de Serviço (MNTA280Distribuição SS (MNTA295) | ||||||||
Programa Fonte: | MNTA280MNTA295.PRWprw | ||||||||
Função: | MenuDefMNTA295GOS() | ||||||||
Retorno |
| ||||||||
Caracter | Nome da opção que será exibida no menu | SIM | |||||||
Caracter | Nome da rotina que executara a ação | SIM | |||||||
Numérico | Reservado (Informar sempre 0) | SIM | |||||||
Numérico | Tipo de Transação a ser executada: 1 - Pesquisa 2 - Visualização 3 - Inclusão 4 - Alteração 5 - Exclusão | SIM | |||||||
Numérico | Nível de acesso | Não | |||||||
Lógico | Habilita Menu Funcional | Não | SIM |
| SIM |
Exemplo:
Bloco de código | ||||
---|---|---|---|---|
| ||||
#include "Protheus.ch"
User Function MNTA2956()
Local nX := 0
Local aCampo := {}
Local aRegistro := {}
dbSelectArea("SX3")
dbSetOrder(1)
dbSeek("TQB")
Do While !EoF() .And. X3_ARQUIVO == "TQB"
If X3USO(X3_USADO) .And. cNivel >= X3_NIVEL .And. AllTrim(x3_campo) == "TQB_TESTE"
AAdd(aCampo, X3_CAMPO)
EndIf
dbSkip()
End Do
For nX:= 1 to Len(aCampo)
AAdd(aRegistro, TQB->&(aCampo[nX]))
Next nX
Return aRegistro
|