Linha Microsiga Protheus

Árvore de páginas

Ponto de entrada que permite manipular produtos empenhados antes da baixa no estoque na rotina de Fechamento em Lote (MNTA510)

Características do Requisito

Linha de Produto:

Microsiga Protheus

Segmento:

Manufatura

Módulo:

SIGAMNT - Manutenção de Ativos e Gestão de Frotas

Rotina:

Rotina

Nome Técnico

MNTA510

Fechamento em Lote


Rotina(s) envolvida(s)

Nome Técnico

MNTA5101

Ponto de Entrada

País(es):

Todos

Banco(s) de Dados:

Todos

Sistema(s) Operacional(is):

Todos


Ponto de Entrada

Descrição:

Ponto de entrada executado na rotina de Fechamento em Lote (MNTA510) que permite manipular produtos empenhados antes da baixa no estoque

Programa Fonte:

MNTA510.prx
Localização:SIGAMNT: Atualizações/Controle de Oficina/Retorno de OS/Fechamento em Lote

Função:

MNTA5101()

Retorno:

Nulo
Exemplo do Ponto de Entrada MNTA5101()
#Include 'Protheus.ch'

User Function MNTA5101()
	
	cProduto := TRBL->TL_CODIGO
	cLocal := TRBL->TL_LOCAL
	cMsg := "Produto: "+AllTrim(cProduto)
	
	dbSelectArea("SB1")
	dbSetOrder(01)
	If dbSeek(xFilial("SB1")+cProduto)	
		cDescP := Capital(SB1->B1_DESC)	
		cMsg += CHR(13)+"("+AllTrim(cDescP)+")"
	EndIf
	cMsg += CHR(13)+"Local: "+cLocal
	
	dbSelectArea("SB2")
	dbSetOrder(01)
	If dbSeek(xFilial("SB2")+cProduto+cLocal)	
		nQAtu := SB2->B2_QATU	
		nVAtu := SB2->B2_VATU1	
		cMsg += CHR(13)+"Qtd. Atual: "+AllTrim(STR(nQAtu))	
		cMsg += CHR(13)+"Valor Atual: "+AllTrim(STR(nVAtu))
	EndIf
	
	APMSGINFO(cMsg)
	
Return