Histórico da Página
Realiza processo apos a exclusão de todos relacionamentos da OS
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 / INOVBANCO-14539 | ||||||||||||||
País(es): | Todos | ||||||||||||||
Banco(s) de Dados: | Todos | ||||||||||||||
Sistema(s) Operacional(is): | Todos | ||||||||||||||
Parâmetros |
|
Ponto de Entrada
Descrição: | Ponto de entrada executado depois da exclusão de todos os relacionamentos da Ordem de Serviço. |
Localização: | SIGAMNT: Atualizações/Controle de Oificina/Solicitação de Serviço/Distribuição S.S. |
Eventos: | Distribuição S.S. (MNTA295) |
Programa Fonte: | MNTUTIL_OS.PRW |
Função: | NGDELETOS() |
Exemplo:
Bloco de código | ||||
---|---|---|---|---|
| ||||
#Include "PROTHEUS.CH"
User Function NGDELDIN()
Local cOrdSe := ParamIXB[1]
Local cPlano := ParamIXB[2]
dbSelectArea("STJ")
dbSetOrder(1)
If dbSeek(xFilial("STJ") + cOrdSe + cPlano)
RecLock("STJ", .F.)
//Campos incluídos manualmente pelo configurador.
STJ->TJ_LOGDT := Date()
STJ->TJ_LOGHR := Time()
STJ->TJ_LOGUS := UsrFullName(RetCodUsr())
STJ->TJ_LOGPR := FunName()
MsUnLock()
EndIf
Return |
Visão Geral
Import HTML Content
Conteúdo das Ferramentas
Tarefas