Histórico da Página
Aviso | ||
---|---|---|
| ||
|
ALTERAÇÃO
CAMPO OBSERVAÇÃOCAMPOS 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 alterar o conteúdo da observação da OS relacionada à SS na 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: | Nome | Tipo | Descrição | ObrigatóriocUser | Caracter | Retorna o conteúdo à ser atribuído ao campo Observação da 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