Ponto de Entrada - MTSLDLOT

Linha de Produto:

Protheus

Segmento:

Manufatura

Módulo:

SIGAEST - Estoque e Custos

Rotina:

Rotina	Nome Técnico
Funções Genéricas	SIGACUSB

País(es):

Brasil

Banco(s) de Dados:

Todos

Sistemas Operacionais:

Todos

Ponto de Entrada

Descrição:

O Ponto de Entrada MTSLDLOT permite consultar os dados do produto com saldo por lote ou saldo por endereço.

Eventos:

O ponto de entrada pode ser executado em dois momentos: Ao avaliar se o produto possui saldo por lote (SB8), ou saldo por endereçamento (SBF).

Programa Fonte:

SIGACUSB.PRX

Parâmetros:

Parâmetro	Tipo	Descrição	Obrigatório
PARAMIXB[1]	Caracter	Aliás da tabela (SB8)	X
PARAMIXB[2]	Caracter	Código do Produto	X
PARAMIXB[3]	Caracter	Lote	X
PARAMIXB[4]	Caracter	Sub-lote	X
PARAMIXB[5]	-	"Em branco"	X
PARAMIXB[6]	-	"Em branco"	X
PARAMIXB[7]	Numérico	Saldo	X
PARAMIXB[8]	Lógico	lConsulta - Indica se está em Consulta de Saldo(Não alterar esse parâmetro)	X

Parâmetro	Tipo	Descrição	Obrigatório
PARAMIXB[1]	Caracter	Aliás da tabela (SBF)	X
PARAMIXB[2]	Caracter	Código do Produto	X
PARAMIXB[3]	Caracter	Lote	X
PARAMIXB[4]	Caracter	Sub-lote	X
PARAMIXB[5]	Caracter	Endereço	X
PARAMIXB[6]	Caracter	Numero de série	X
PARAMIXB[7]	Numérico	Empenho	X
PARAMIXB[8]	Lógico	.F. ("Não alterar esse parâmetro)	X

Retorno:

Nome	Tipo	Descrição	Obrigatório
lRet	Lógico	Se .T. o produto será utilizado. Caso o retorno seja .F. não vai utilizar o produto	Sim

Exemplo:

#Include 'Protheus.ch'

User Function MTSLDLOT()

Local aTest := PARAMIXB

Local lRet := .F.

Local cTab := Alias()

If ALLTRIM(aTest[3]) <> " LOTE01"

lRet := .T.

EndIF

Return lRet