Linha Microsiga Protheus

Árvore de páginas

Carregando...
Tempo aproximado para leitura: 3 minutos


01. DADOS GERAIS

Produto:

TOTVS Manutenção de Ativos

Linha de Produto:

Linha Protheus

Segmento:

Manufatura

Módulo:

TOTVS Manufatura (Linha Protheus) - Manutenção de ativos (SIGAMNT)

Função:MNTA2956()
País:Brasil


02. DESCRIÇÃO

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

Programa Fonte:

MNTA295.prw

Função:

MNTA295GOS()

Parâmetros:

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


03. DEMAIS INFORMAÇÕES

Exemplo MNTA2956()
#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


04. ASSUNTOS RELACIONADOS

  • Não se aplica.