Linha Microsiga Protheus

Árvore de páginas


01. DADOS GERAIS

Produto:

TOTVS Manutenção de Ativos

Linha de Produto:

Linha Protheus

Segmento:

Manufatura

Módulo:

TOTVS Manufatura (Linha Protheus) - Manutenção de ativos (SIGAMNT)

Função:

MNTA410 - O.S. Preventiva


02. DESCRIÇÃO

Descrição:

Ponto de Entrada que permite substituir o produto e local de estoque para integração com solicitação de compras, quando utilizado o insumo do tipo terceiro

Parâmetros:



NomeTipoDescrição
PARAMIXB[1]arrayCabeçalho com campos utilizados no preenchimento dos insumos.
PARAMIXB[2]arrayLista com insumos informados na O.S.



Retorno:



TipoDescrição
array

Retorna informações a serem substituídas na integração do insumo terceiro:

PosiçãoTipoDescrição
array[1]string

Código do produto

array[2]string

Local de estoque





03. DEMAIS INFORMAÇÕES

Exemplo MNTA4107
#include 'protheus.ch'     

User Function MNTA4107()
 
    Local aItens := ParamIXB[1]
	Local aCabec := ParamIXB[2]
	Local aRet   := {}

	Local nPProd := GDFieldPos( 'TL_XPROFO' , aCabec )
	Local nPAlmo := GDFieldPos( 'TL_XLOCPR' , aCabec )
	Local nPTipo := GDFieldPos( 'TL_TIPOREG', aCabec )
	Local nPTare := GDFieldPos( 'TL_TAREFA' , aCabec )
	Local nPCodi := GDFieldPos( 'TL_CODIGO' , aCabec )
	
	If STL->TL_TIPOREG == 'T'

		If ( nPosIns := aScan( aItens, { |x| !aTail( x ) .And. Trim( x[nPTare] ) == Trim( STL->TL_TAREFA ) .And.;
			STL->TL_TIPOREG == x[nPTipo] .And. STL->TL_CODIGO == x[nPCodi] } ) ) > 0

			RecLock( 'STL', .F. )

				STL->TL_XPROFO := aItens[nPosIns,nPProd]
				STL->TL_XLOCPR := aItens[nPosIns,nPAlmo]
				
			MsUnLock()

			aAdd( aRet, aItens[nPosIns,nPProd] )
			aAdd( aRet, aItens[nPosIns,nPAlmo] )

		EndIf

	EndIf

Return aRet


04. ASSUNTOS RELACIONADOS

  • Não se aplica.