Linha Microsiga Protheus

Árvore de páginas

Versões comparadas

Versão antiga 1

changes.mady.by.user Alexandre dos Santos

Gravado em

comparado com

Nova versão Atual

changes.mady.by.user Alexandre dos Santos

Gravado em

Chave

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

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:

Rotina

Nome Técnico

MNTA880

Reabertura de O.S.

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:
NomeTipoDescrição
ParamIXB[1]stringCódigo da O.S. que será reaberta.

Retorno:

Tipo

Descrição

boolean

Indica se a O.S. foi validada para reabertura.

 

Bloco de código
languagesql
titleExemplo: P.E. MNTA180KMNTA8802
linenumberstrue
#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