Histórico da Página
Ponto de entrada que permite incluir novas validações no processo de Reabertura de O.S.
Características do Requisito
Linha de Produto: | Microsiga Protheus | ||||
Segmento: | Manufatura | ||||
Módulo: | Manutenção de Ativos e Gestão de Frotas | ||||
Rotina: |
|
Ponto de Entrada
Descrição: | Ponto de entrada acionado no momento da seleção da O.S. que será reaberta. Permitindo incluir novas validações neste processo. | ||||||
Programa Fonte: | MNTA880.prx | ||||||
Parâmetros: |
| ||||||
Retorno: |
|
Bloco de código | ||||||
---|---|---|---|---|---|---|
| ||||||
#Include 'Totvs.ch' User Function MNTA180KMNTA8802() Local aCols cOrdServ := ParamIXB[1] Local nPos := ParamIXB[2] Local aHeader := ParamIXB[3] Local Local lRet := .T. Local nPosAlmx := GDFieldPos dbSelectArea( 'TPG_LOCALSTJ' , aHeader ) Local nPosProd := GDFieldPos( 'TPG_CODIGO', aHeader) dbSetOrder( 1 ) If Local nPosTpRg := GDFieldPosdbSeek( FWxFilial( 'TPG_TIPORESTJ', aHeader ) + If nPosAlmx > 0 .And. nPosProd > 0 .And. nPosTpRg > 0 .And. nPos > 0 If aCols[nPos,nPosTpRg]cOrdServ ) If STJ->TJ_TIPOOS == 'PB' MsgStop( 'Abertura de O.S. do tipo BEM If aCols[nPos,nPosAlmx] == '01' .And. Trim( aCols[nPos,nPosProd] ) == '007' não permitida.', 'Atenção' ) lRet := .F. MsgAlert( 'Local de estoque não deve ser utilizado para o produto: ' + Trim( aCols[nPos,nPosProd] ) ) EndIf EndIf EndIf Return lRet |
Visão Geral
Import HTML Content
Conteúdo das Ferramentas
Tarefas