Linha Microsiga Protheus

Árvore de páginas

Versões comparadas

Versão antiga 1

changes.mady.by.user Alexandre dos Santos

Gravado em

comparado com

Nova versão 2

changes.mady.by.user Alexandre dos Santos

Gravado em

Chave

  • Esta linha foi adicionada.
  • Esta linha foi removida.
  • A formatação mudou.
Aviso
  • Este ponto de entrada está disponível somente a partir da versão 12.1.17!

Ao gerar OS através de uma SS, grava campos de usuário

na tabela STJ

no 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:

Rotina

Nome Técnico

MNTA295

Distribuição SS

MNTA280

Solicitação de Serviço

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
TipoDescriçãoObrigatório
Array
TipoDescriçãoObrigatório
CaracterNome da opção que será exibida no menuSIM
Caracter

Nome da rotina que executara a ação

SIM
NuméricoReservado (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éricoNível de acessoNão
Lógico

Habilita Menu Funcional

IndefinidoConteúdo dos campos de usuário definidos no PE para apresentação no campo TJ_OBSERVA.SIM
Não
SIM

 

Exemplo:


Bloco de código
languagesql
themeEclipse
#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