Histórico da Página
Ponto de entrada
paraque permite validar e customizar dados após a inclusão da
Ordem de ProduçãoOP 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: |
| ||||||||
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: | MNTA420TMNTA420X() | ||||||||
Parâmetros: |
| ||||||||
Retorno: |
|
Bloco de código | ||||||
---|---|---|---|---|---|---|
| ||||||
#Include "Protheus.ch" //------------------------------------------------------------------- /*/{Protheus.doc} MNTA420X Permite customizar dados da OS. @author NG Informática @since 24/02/2020 @version P12 /*/ //------------------------------------------------------------------- User Function MNTA420TMNTA420X() Local cOrdem := PARAMIXB[ 1 ] Local cFilSC2 := xFilial("SC2") Local aArea := SC2->(GetArea()) Local lRet := .FT. If M->TJ_SITUACA == 'L' .And. (Inclui .Or. Altera) dbSelectArea("SC2") dbSetOrder(1) //C2_FILIAL+C2_NUM+C2_ITEM+C2_SEQUEN If !dbSeek(cFilSC2+cOrdem+"OS"+"001") lRet := .TF. MsgInfo("Ordem de Produção não encontrada.") EndIf EndIf RestArea(aArea) Return lRet |
Visão Geral
Import HTML Content
Conteúdo das Ferramentas
Tarefas