Linha Microsiga Protheus

Árvore de páginas

Carregando...
Tempo aproximado para leitura: 3 minutos


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
MNTA420 - O.S. Corretiva
MNTA265 - Alteração O.S.
MNTA340 - Confirmação do Plano


02. DESCRIÇÃO

Descrição:

Ponto de Entrada que permite alterar a regra para preenchimento dos campos TL_NUMSC e TL_ITEMSC para insumos do tipo terceiro.

Parâmetros:



NomeTipoDescrição
PARAMIXB[1]stringCódigo do produto utilizado na S.C.
PARAMIXB[2]stringLocal de estoque utilizado na S.C.




03. DEMAIS INFORMAÇÕES

Exemplo ATUNUMSC
#include 'protheus.ch'       

User Function ATUNUMSC()
	
	Local cCodPro := ParamIXB[1]
	Local cAlmoxa := ParamIXB[2]

	If STL->TL_TIPOREG == 'T'

		If Empty( STL->TL_NUMSC ) .And. Empty( STL->TL_ITEMSC ) .And. AllTrim( cCodPro ) == Alltrim( STL->TL_XPROFO ) .And.;
			AllTrim( cAlmoxa ) == Alltrim( STL->TL_XLOCPR ) .And. STL->TL_SEQRELA == PadR( '0', TamSX3( 'TL_SEQRELA' )[1] )

			RecLock( 'STL', .F. )

				STL->TL_NUMSC  := SC1->C1_NUM
				STL->TL_ITEMSC := SC1->C1_ITEM

			MsUnLock()

		EndIf

	EndIf
	
Return


04. ASSUNTOS RELACIONADOS

  • Não se aplica.