Linha Microsiga Protheus

Árvore de páginas


01. DADOS GERAIS

Produto:

TOTVS Backoffice

Linha de Produto:

Linha Protheus

Segmento:

Backoffice

Módulo:

TOTVS Backoffice (Linha Protheus) - Estoque e Custos (SIGAEST)

Função:MATA390 - Manutenção de Lotes
País:Todos


02. DESCRIÇÃO

LOCALIZAÇÃO: Function MATA390 - Manutenção de Lotes.

EM QUE PONTO: O Ponto de entrada é executado após a alteração da data de validade, é utilizado para realizar validações na data de validade.


03. DEMAIS INFORMAÇÕES

PARÂMETROS

Nome

Tipo

Descrição

dDataValidDataData de validade


RETORNO

Não se aplica


EXEMPLO DE UTILIZAÇÃO ADVPL

MT390DTV(ADVPL)
User Function MT390DTV()

	Local dDataValid := PARAMIXB
	Local lSeek      := .F.
	Local aAreaSD5   :=  SD5->(GetArea())

	DbSelectArea("SD5")
	DbSetOrder(3)
	lSeek := DbSeek(xFilial('SD5')+SD5->D5_NUMSEQ+SD5->D5_PRODUTO, .F.)
	//Validação do usuario
	If !Empty(dDataValid ).And. lSeek
		RecLock('SD5', .F.)
		Replace D5_DTVALID With dDataValid
		MsUnlock()
	EndIf
	RestArea(aAreaSD5)

Return

04. ASSUNTOS RELACIONADOS

  • Não se aplica