Este Ponto de Entrada é Válido a partir do Release 12.1.14 (Outubro/2016) e superiores
ALTERAÇÃO CAMPOS ESPECÍFICOS DA ORDEM DE SERVIÇO, PARAMETRIZADO COM FACILITIES
Características do Requisito
Linha de Produto: | Microsiga Protheus | ||||||||||
Segmento: | Manufatura | ||||||||||
Módulo: | SIGAMNT - Manutenção de Ativos e Gestão de Frotas | ||||||||||
Rotina: |
| ||||||||||
Chamados Relacionados | 12.1.7: TVYYI5 | ||||||||||
País(es): | Todos | ||||||||||
Banco(s) de Dados: | Todos | ||||||||||
Sistema(s) Operacional(is): | Todos |
Ponto de Entrada
Descrição: | Ponto de Entrada que possibilita gravação de campos específicos na OS, tabela STJ (Ordem de Serviço), relacionada à Solicitação de Serviço. |
Localização: | SIGAMNT: Atualizações/Controle de Oficina/Solicitação de Serviço/Atendimento |
Eventos: | Atendimento de Solicitação de Serviço (MNTA291) |
Programa Fonte: | MNTA291.PRX |
Função: | MNTA291A() |
Retorno: | (Nulo) |
Exemplo:
#Include 'Protheus.ch'
User Function MNTA291A()
Local cOrdem := PARAMIXB[1] //Ordem de Serviço Gerada
Local cPlano := PARAMIXB[2] //Plano da Ordem de Serviço
Local cUser := SubStr(UsrRetName(TQB->TQB_CDSOLI),1,30) //Usuário que será adicionado à observação
dbSelectArea("STJ")
dbSetOrder(1) //TJ_FILIAL+TJ_ORDEM+TJ_PLANO+TJ_TIPOOS+TJ_CODBEM+TJ_SERVICO+TJ_SEQRELA
If dbSeek(xFilial("STJ") + cOrdem + cPlano )
RecLock("STJ", .F.)
STJ->TJ_OBSERVA += cUser
MsUnlock("STJ")
EndIf
Return