Histórico da Página
Aviso | ||
---|---|---|
| ||
|
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 à SSSolicitaçã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: | |||
Nome | Tipo | Descrição | Obrigatório | cUser | Caracter | Retorna o conteúdo à ser atribuído na Ordem de Serviço (STJ). | Sim
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
ReturnReturn cUser