× Linguagem de Programação ADVPL

Perguntas Custo Médio via Schedule (Automático)

Mais
11 anos 5 meses atrás #15617 por nando_digi
Boa tarde pessoal

Achei no TDN o seguinte artigo
tdn.totvs.com/pages/releaseview.action?pageId=47907695

Trata de uma rotina para rodar via schedule do custo médio.
Tentei rodar como esta mas parece que não funcionou pois foi extremamente rápido
coisa do tipo 1 minuto, minha rotina leva pelo menos 18 minutos.
A minha dúvida é em torno dos parâmetros usei da seguinte forma:

dData := LastDay(Date()) // Ultimo dia do Mês Atual
MV_PAR01 := dData
MV_PAR02 := 1
MV_PAR03 := 1
MV_PAR04 := 1
...

Tentei atribuir ao array
Aadd(aParAuto, mv_par01)
Aadd(aParAuto, mv_par02)
Aadd(aParAuto, mv_par03)
Aadd(aParAuto, mv_par04)
....

Acho que ele não esta pegando os parâmetros e não esta rodando
Alguem poderia como devo passar esses parâmetros ?

Agradeço qualquer ajuda!!
Fernando Pereira

Por favor Acessar ou Registrar para participar da conversa.

Mais
11 anos 5 meses atrás #15645 por nando_digi
Pessoal bom dia
Consegui resolver o problema, e vou postar aqui a solução para os que, a exemplo de mim, necessitam de uma ajuda.

#include "rwmake.ch"
#include "TbiConn.ch"
User Function jobm330()
Local PARAMIXB1 := .T. // - Caso a rotina seja rodada em batch(.T.), senão (.F.)
Local PARAMIXB2 := {"01"} // - Lista com as filiais a serem consideradas (Batch)
Local PARAMIXB3 := .T. // - Se considera o custo em partes do processamento
Local PARAMIXB4 := {} // -Parametros para execução da rotina
Local aEmp := {"01","00"} // Empresa Filial
PREPARE ENVIRONMENT EMPRESA aemp[1] FILIAL aemp[2] USER 'usuário' PASSWORD 'senha' TABLES "AF9","SB2","SB9","SBD","SC2","SD1","SD3","SD8","SF4","SF5","SI1","SI2","SI3","SI5","SI6","SI7","SM2" MODULO "EST"

dData := LastDay(Date()) // Pega o ultimo dia do mês corrente
PARAMIXB4 := { dData ,1,1,1,0,2," " ,"ZZZZZZZZZZZZZZZ" ,2,2,2,3,2,1,1,1,2,1,2,1,2} //Parametros
MSExecAuto({|x,y,z,w|mata330(x,y,z,w)},PARAMIXB1,PARAMIXB2,PARAMIXB3,PARAMIXB4)
RESET ENVIRONMENT
Return Nil

Por favor Acessar ou Registrar para participar da conversa.

Mais
11 anos 2 meses atrás #17786 por alyson
Ola amigo estou com o mesmo problema utilizei o exemplo que deu certo com vc, mas apresenta a falha que ele não roda o recalculo chama a função mas não tem efeito tem alguma ideia do que pode ser.....???

Por favor Acessar ou Registrar para participar da conversa.

Mais
11 anos 2 meses atrás #17788 por nando_digi
Isso é parâmetro amigo
Veja os parâmetros que estão no PARAMIXB4, eles seguem a mesma ordem da rotina padrão é quase certo que esteja ali o problema
Veja também Empresa Filial na variável aEmp se são as mesmas que vocês usam ai

Por favor Acessar ou Registrar para participar da conversa.

Tempo para a criação da página:0.090 segundos
Joomla templates by a4joomla