Linha Microsiga Protheus

Árvore de páginas

Versões comparadas

Versão antiga 1

changes.mady.by.user MARCELO DOS SANTOS PICKLER

Gravado em

comparado com

Nova versão Atual

changes.mady.by.user MARCELO DOS SANTOS PICKLER

Gravado em

Chave

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

...

Produto:

Solucoes_totvs_parceirosexptotvs
SolucaoParcsExpsTOTVSTOTVS Manutenção de Ativos

Linha de Produto:

Linhas_totvs
LinhaLinha Protheus

Segmento:

Segmentos_totvs
SegmentoManufatura

Módulo:

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

Função:MNTA400
País:Brasil


02. DESCRIÇÃO

Descrição:

Ponto de entrada executado na rotina de Retorno (MNTA400) para realizar validação anteriormente a exclusão de um insumo

Localização:

SIGAMNT: Atualizações/Controle de Oficina/Retorno de O.S./Retorno 

Programa Fonte:

MNTA400.prx

Função:

MNT40013()

Retorno:


.T.


03. DEMAIS INFORMAÇÕES

Bloco de código
languagevb
themeFadeToGrey
titleExemplo MNT40013
linenumberstrue
#INCLUDE 'PROTHEUS.CH'

User Function MNT40013()

	DbSelectArea("SZA")
	DbSetOrder(4)
	If DbSeek(xFilial("SZA")+STJ->TJ_ORDEM+STJ->TJ_PLANO)   

		While !Eof() .And. SZA->ZA_FILIAL == xFilial("SZA") .And. SZA->ZA_OS == STJ->TJ_ORDEM .And. SZA->ZA_PLANO == STJ->TJ_PLANO

		    If SZA->ZA_STATUS == "L" .And. SZA->ZA_LIBOK == "L" .And. STL->TL_CODIGO == SZA->ZA_PROD	
				MsgStop("Insumo não poderá ser alterado/excluido pois existe RMS liberada.","ATENÇÃO")	
				Return .F.      
			EndIf      

			DbSelectArea("SZA")      
			DbSkip()   
			
		End	

	EndIf	

	Return .T.

...