Linha Microsiga Protheus

Árvore de páginas

Gravar/Alterar campos da OS automática.

Características do Requisito

Linha de Produto:

Microsiga Protheus

Segmento:

Manufatura

Módulo:

SIGAMNT - Manutenção de Ativos e Gestão de Frotas

Rotinas que chamam:

RotinaNome Técnico
MNTA080Bens
MNTA400Retorno de O.S.
MNTA411Preventiva Múltipla
MNTA435Retorno Mod.2
MNTA540Cadastro de Sinistro
MNTA545Complemento do Sinistro
MNTA656Abastecimento em Lote
MNTA681Controle de Abastecimento e Lubrificação
MNTA720O.S. em Lote
MNTA735Retorno CheckList
MNTA998Pneus a partir de txt

Issues Relacionadas

DNG-21844

País(es):

Todos

Banco(s) de Dados:

Todos

Sistema(s) Operacional(is):

Todos

Ponto de Entrada

Descrição:

Ponto de entrada chamado após a gravação de uma Ordem de Serviço automática para inclusão/alteração de campos desejados.

Programas Fonte:

  • NGGERAOS.PRW

Função:

NGGERAOS1()

Parâmetros:

  • PARAMBIX[1] = Código da Ordem de Serviço
  • PARAMBIX[2] = Código do Plano
  • PARAMBIX[3] = Código do Bem

 

Exemplo:

#INCLUDE 'TOTVS.ch'
 
User Function NGGEROS1()

Local cOrdem    := PARAMIXB[1]
Local cPlano    := PARAMIXB[2]
Local cBem      := PARAMIXB[3]

DBSelectArea( 'STJ' )
DbSetOrder(1)
If DbSeek( FwxFilial('STJ') + cOrdem + cPlano )

    STJ->( RECLOCK( 'STJ', .F. ) )

    STJ->TJ_SITUACA := 'P'

    MsUnlock('STJ')

EndIf

Return