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 inserção

,

e alteração

e deleção de insumos

de insumos em uma O.S manual.


Aviso
titleAtenção

Tratativas referentes a insumos realizadas pela rotina de OS Manual (MNTA410), a partir de outubro/2019, passará a substituir o uso da tabela STG pelo uso da tabela STL.

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

MNTA410

O.S. Manual

Tickets relacionados

4571101

Issue:

DNG-3516

Países:

Todos.

Bancos de Dados:

Todos.

Sistemas Operacionais:

Todos.

Ponto de Entrada

Descrição:

Ponto de entrada acionado no na consistência de insumos da O.S. manual. durante os processos de inclusão /e alteração/deleção. Permitindo assim a inclusão de novas validações neste processo.

Localização:

SIGAMNT: Em Atualizações > Controle de Oficina > Ordens de Serviço > Manual.

Programa Fonte:

MNTA410.prx

Função:

NG410INLI() / MNTA410Del

Parâmetros:
Define a operação que está em execução (3 - Inclusão / 4 - Alteração / 5 - Exclusão)
NomeTipoDescriçãoObrigatório
ParamIXB[1]ArrayLista de insumos reportados na O.S.Sim
ParamIXB[2]NúmericoLinha posicionada que encontra-se em validaçãoSim
ParamIXB[3]ArrayLista de campos contidos na listagem de insumo.SimParamIXB[3]NúmericoSim

Retorno:

Tipo

Descrição

Obrigatório

Lógico

Indica se as validações foram realizadas com êxito.

Sim

 

Bloco de código
languagesql
titleExemplo: P.E. MNTA410D
linenumberstrue
#Include 'Totvs.ch'
 
User Function MNTA410D()

	Local aCols  aColsUse  := ParamIXB[1]
	Local aHeader    Local nPos     := ParamIXB[2]
	    Local nOptionaHeadUse  := ParamIXB[3]
	    Local lRet     := .T.
	    Local nPosAlmx := aScan( aHeaderaHeadUse, { |x| Trim( Upper( x[2] ) ) == 'TGTL_LOCAL'   } )
	    Local nPosProd := aScan( aHeaderaHeadUse, { |x| Trim( Upper( x[2] ) ) == 'TGTL_CODIGO'  } )
	    Local nPosTpRg := aScan( aHeaderaHeadUse, { |x| Trim( Upper( x[2] ) ) == 'TGTL_TIPOREG' } )
	Local nPosRec  := aScan( aHeader, { |x| Trim( Upper( x[2] ) ) == 'TG_REC_WT'  } )

	
    If nPosAlmx > 0 .And. nPosProd > 0 .And. nPosTpRg > 0 .And. nPosRecnPos > 0

		        If aColsaColsUse[nPos,nPosTpRg] == 'P' .And. ( nOption == 3 .Or. ( nOption

            If aColsUse[nPos,nPosAlmx] == 5'01' .And. aCols[nPosRecTrim( aColsUse[nPos,nPosProd] >) 0 ) )

			== 'PRD01'

                lRet := MaAvalPerm( 3, { aCols[nPosAlmx], aCols[nPosProd], nOption } )

		EndIf

	.F.
                MsgAlert( 'Local de estoque não deve ser utilizado para o produto: ' + Trim( aColsUse[nPos,nPosProd] )  )

            EndIf

        EndIf

    EndIf

Return lRet