Boa Tarde. Estou tentando configurar a rotina mata330 para ser executada via scheduler, peguei um exemplo no TDN conforme link abaixo porem executa muito rápido. Alguem tem algum exemplo de como configurar a rotina mata330 para trabalhar no scheduler? https://tdn.totvs.com/pages/releaseview.action?pageId=379307194
mata330 agendamento
- Você vai ver essas setas em qualquer página de pergunta. Com elas, você pode dizer se uma pergunta ou uma resposta foram relevantes ou não.
- Edite sua pergunta ou resposta caso queira alterar ou adicionar detalhes.
- Caso haja alguma dúvida sobre a pergunta, adicione um comentário. O espaço de respostas deve ser utilizado apenas para responder a pergunta.
- Se o autor da pergunta marcar uma resposta como solucionada, esta marca aparecerá.
- Clique aqui para mais detalhes sobre o funcionamento do TOTVS DevForum!
1 resposta
-
Olá Rafael!
Tente o código abaixo. Certifique-se que a empresa é a 23 e a filial 01.
#include "rwmake.ch" #include "TbiConn.ch" User Function JMATA330() Local lCPParte := .F. //-- Define que não será processado o custo em partes Local lBat := .T. //-- Define que a rotina será executada em Batch Local aListaFil := {} //-- Carrega Lista com as Filiais a serem processadas Local cCodFil := '' //-- Código da Filial a ser processada Local cNomFil := '' //-- Nome da Filial a ser processada Local cCGC := '' //-- CGC da filial a ser processada Local aParAuto := {} //-- Carrega a lista com os 21 parâmetros ConOut(Repl("-",80)) ConOut(PadC("Rotina Recalculo Custo Medio",80)) ConOut(PadC("Conectando Ambiente.....",80)) PREPARE ENVIRONMENT EMPRESA "23" FILIAL "01" MODULO "EST" TABLES "AF9","SB1","SB2","SB3","SB8","SB9","SBD","SBF","SBJ","SBK","SC2","SC5","SC6","SD1","SD2","SD3","SD4","SD5","SD8","SDB","SDC","SF1","SF2","SF4","SF5","SG1","SI1","SI2","SI3","SI5","SI6","SI7","SM2","ZAX","SAH","SM0","STL" ConOut(PadC("Ambiente Conectado com Sucesso...",80)) ConOut(Repl("-",80)) Conout("Início da execução do JMATA330") //-- Adiciona filial a ser processada dbSelectArea("SM0") dbSetOrder(1) dbSeek(cNumEmp) cCodFil := SM0->M0_CODFIL cNomFil := SM0->M0_FILIAL cCGC := SM0->M0_CGC //-- Adiciona a filial na lista de filiais a serem processadas Aadd(aListaFil,{.T.,cCodFil,cNomFil,cCGC}) aParAuto := { DDATABASE, 2, 1, 1, 0, 1," ", "ZZZZZZZZZZZZZZZ", 2, 2, 2, 3, 2, 1, 2, 1, 1, 1, 1, 1, 2} //Parametros //-- Executa a rotina de recálculo do custo médio MATA330(lBat,aListaFil,lCPParte, aParAuto) ConOut("Término da execução do JMATA330") ReturnAbraços!
Tiago Beraldi
Fone.....: +55 11 99493-5465
Email....: tiago.beraldi@gtin.inf.br
LinkedIn.: linkedin/in/tiagoberaldi
Website..: https://gtin.inf.br/
-
Rafael, poderia enviar o console do serviço de schedule, la deve falar alguma coisa sobre o que está acontecendo.
— FELIPE CAIADO ALMEIDA 10 de Feb de 2020segue. [INFO ][SERVER] [Thread 14456] JOB Thread finished
[INFO ][SERVER] [Thread 9536] JOB Thread finished
Rotina Recalculo Custo Medio Conectando Ambiente.....
Ambiente Conectado com Sucesso...
Início da execução do JMATA330 Término da execução do JMATA330.
— Rafael Schneider Sória 10 de Feb de 2020Adicionei o fonte utilizado.
— Rafael Schneider Sória 10 de Feb de 2020