Linha Microsiga Protheus

Árvore de páginas

  • 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 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

Issues Relacionadas

12.1.17 / MNG-3831 / DNG-2431

País(es):

Todos.

Banco(s) de Dados:

Todos.

Sistema(s) Operacional(is):

Todos.

Ponto de Entrada

Descrição:

Ponto de Entrada executado 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:

Distribuição SS (MNTA295)

Programa:

MNTA295.prw

Função:

MNTA295GOS()

Retorno
TipoDescriçãoObrigatório
Array
TipoDescriçãoObrigatório
IndefinidoConteúdo dos campos de usuário definidos no PE para apresentação no campo TJ_OBSERVA.SIM
SIM

 

Exemplo:


#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