Histórico da Página
Aviso |
---|
|
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: |
| ||||
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 que 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 |
|
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
|
Visão Geral
Import HTML Content
Conteúdo das Ferramentas
Tarefas