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 / DNGMNG-15573831 | ||||||
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çoao 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 |
|
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 |