- Fórum
- Protheus/Microsiga/Totvs
- AdvPL (Advanced Protheus Language)
- Dúvidas Gerais
- Custo Médio via Schedule (Automático)
×
Linguagem de Programação ADVPL
Perguntas Custo Médio via Schedule (Automático)
- nando_digi
- Autor do Tópico
- Desconectado
- Membro Iniciado
Menos
Mais
- Postagens: 9
- Obrigados Recebidos: 0
11 anos 3 meses atrás #15617
por nando_digi
Custo Médio via Schedule (Automático) foi criado 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
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.
- nando_digi
- Autor do Tópico
- Desconectado
- Membro Iniciado
Menos
Mais
- Postagens: 9
- Obrigados Recebidos: 0
11 anos 3 meses atrás #15645
por nando_digi
Respondido por nando_digi no tópico Custo Médio via Schedule (Automático)
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
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.
- alyson
- Desconectado
- Membro Especialista
Menos
Mais
- Postagens: 118
- Obrigados Recebidos: 1
11 anos 2 semanas atrás #17786
por alyson
Respondido por alyson no tópico Custo Médio via Schedule (Automático)
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.
- nando_digi
- Autor do Tópico
- Desconectado
- Membro Iniciado
Menos
Mais
- Postagens: 9
- Obrigados Recebidos: 0
11 anos 2 semanas atrás #17788
por nando_digi
Respondido por nando_digi no tópico Custo Médio via Schedule (Automático)
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
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.
- Fórum
- Protheus/Microsiga/Totvs
- AdvPL (Advanced Protheus Language)
- Dúvidas Gerais
- Custo Médio via Schedule (Automático)
Tempo para a criação da página:0.124 segundos