Linha Microsiga Protheus

Árvore de páginas

Função: MATA290 - Rotina Automática para o Cálculo do lote econômico

 

Abrangências:Microsiga Protheus 11
Versões:Microsiga Protheus 11
Compatível Países:Brasil
Sistemas Operacionais:Todos
Compatível às Bases de Dados:Todos
Nível de Acesso:Nível 1 (Acesso Clientes)
Idiomas:Português (Brasil)

 

Descrição:
A função MATA290 efetua o cálculo do lote econômico.
Programa Fonte:
MATA290.PRX
Sintaxe:

MATA290 - Rotina Automática para o Cálculo do lote econômico ( [ lBat ] [ aOpt ] )

Parâmetros:

 

 Nome  Tipo  Descrição  Default  Obrigatório  Referência 
 lBat  Lógico  

.T. = para informar que é rotina automática.

.F. = para informar que NÃO é rotina automática.

  .F.       
 aOpt  Array of Record  Array que contém as informações para efetuar o cálculo do lote econômico.          
Exemplo
User function MS290()
Local aOpt		:= {}
Local lBat		:= .T.
Local nCalculo := 1		// Cálculo por Peso ou Tendência
Local nIncre 	:= 0	// Incremento para cálculo por Peso
Local nMeses 	:= 0	// Meses para cálculo por Tendência
PRIVATE lMsErroAuto := .F.
aadd(aOpt,{"x",,})				//[1] Atualiza o Consumo do Mês?
If nCalculo = 1			
	aadd(aOpt,{"x",nIncre,})	//[2] Tipo de Cálculo: Peso
	aadd(aOpt,{" ",0,})			//[3] Tipo de Cálculo: Peso
Else
	aadd(aOpt,{" ",0,})			//[2] Tipo de Cálculo: Tendência
	aadd(aOpt,{"x",nMeses,})	//[3] Tipo de Cálculo: Tendência
EndIf
aadd(aOpt,{" "," ",})			//[4] Calcula Lote Econômico?
aadd(aOpt,{" ",0,})				//[5] Disponibilidade Financeira
aadd(aOpt,{1,1,1})				//[6] Períodos de Aquisição (meses)
aadd(aOpt,{30,30,40})			//[7] Distribuição Percentual (%)
aadd(aOpt,{"**",,})				//[8] Tipos de Produto a Processar, "**" processa todos.
aadd(aOpt,{"**",,})				//[9] Grupos de Produtos a Processar, "**" processa todos.
aadd(aOpt,{.F.,,})				//[10] Ativa ou não seleção de Filiais, se não ativar, processa somente filial atual
aadd(aOpt,{" ",0,.F.})			//[11] Processa o calculo do estoque de segurança
MSExecAuto({|x,y| MATA290(x,y)},lBat,aOpt)
Return