Linha Microsiga Protheus

Árvore de páginas

Gravar/Alterar campos da OS automática por contador.

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
MNTA090Estrutura de Bens
MNTA098Rodizio
MNTA295Distribuição de S.S.
MNTA380Retorno Produção
MNTA390Retorno
MNTA400Retorno
MNTA401Retorno em Lote
MNTA435Retorno Mod.2
MNTA450Ordem de Serviço
MNTA480Retorno por etapas
MNTA635Consistência de abastecimento
MNTA655Abastecimento Manual
MNTA656Abastecimento em Lote
MNTA681Controle de Abastecimento e Lubrificação
MNTA735Retorno CheckList
MNTA830Informa

Issues Relacionadas

DNG-22009

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:

  • MNTUTIL_OS.PRW

Função:

NGGPREVAUT()

Parâmetros:

  • PARAMBIX[1] = Código da menor Ordem de Serviço
  • PARAMBIX[2] = Código da maior Ordem de Serviço

 

Exemplo:

#Include 'Totvs.ch'

User Function MntAltOs()

Local nOrdem
Local nMeord := Val( Paramixb[1] )
Local nMaord := Val( Paramixb[2] )

For nOrdem := nMeord to nMaord

    DbSelectArea('STJ')
    DbSetOrder(1)
    If DbSeek( FwxFilial( 'STJ' ) + StrZero( nOrdem, 6 ) )

        Reclock('STJ', .F.)

            STJ->TJ_SITUACA := 'P'

        STJ->(MsUnlock())

    EndIf

Next nOrdem


Return