- 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: |
| ||||
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 |
|
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
Visão Geral
Import HTML Content
Conteúdo das Ferramentas
Tarefas