Linha Microsiga Protheus

Árvore de páginas

Versões comparadas

Versão antiga 2

changes.mady.by.user Diego Oliveira

Gravado em

comparado com

Nova versão 3

changes.mady.by.user Kamila Thaise de Oliveira

Gravado em

Chave

  • Esta linha foi adicionada.
  • Esta linha foi removida.
  • A formatação mudou.

Ponto de entrada

para

que permite validar e customizar dados após a inclusão da OP relacionada à OS (MNTA420)

Características do Requisito

Linha de Produto:

Microsiga Protheus.

Segmento:

Manufatura.

Módulo:

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

Rotina:

Rotina

Nome Técnico

MNTA420

O.S. Corretiva

Rotina(s) envolvida(s)

Nome Técnico

MNTA420T

Ponto de Entrada

País(es):

Todos.

Banco(s) de Dados:

Todos.

Sistema(s) Operacional(is):

Todos.

Ponto de Entrada

Descrição:

Ponto de entrada utilizado na rotina de O.S. Corretiva (MNTA420) que permite validar e customizar dados da OP/OS e é chamado após a inserção da OP relacionada à OS. 

Localização:

SIGAMNT: Atualizações/Controle de Oficina/Ordem de Serviço/Corretiva

Programa Fonte:

MNTA420.prx

Função:

MNTA420T()

Parâmetros:
NomeTipoDescrição
ParamIXB[1]CaracterNúmero da OS

Retorno:

Nome

Tipo

Descrição

Obrigatório

 lRet

Lógico

Verifica se a Ordem de Produção (OP) foi inserida

X

 

Bloco de código
languagesql
titleExemplo do Ponto de Entrada MNTA420T
linenumberstrue
#Include "Protheus.ch"

User Function MNTA420T()

	Local cOrdem  := PARAMIXB[ 1 ]
    Local cFilSC2 := xFilial("SC2")
    Local aArea   := SC2->(GetArea())
    Local lRet 	  := .F.

    dbSelectArea("SC2")
    dbSetOrder(1) //C2_FILIAL+C2_NUM+C2_ITEM+C2_SEQUEN
    If dbSeek(cFilSC2+cOrdem+"OS"+"001")
		lRet := .T.
		MsgInfo("Ordem de Produção encontrada.")
    EndIf

    RestArea(aArea)

Return lRet