Linha Microsiga Protheus

Árvore de páginas

Alteração da rotina para MVC e execução via schedule

Linha de Produto:

Microsiga Protheus.

Segmento:

Serviços.

Módulo:

Medicina e Segurança do Trabalho ( SIGAMDT ).

Função:

MDTA190.

Situação/Requisito:

Necessidade de executar a rotina via Schedule.

Solução/Implementação:

Alteração da estrutura da rotina para MVC, possibilitando a execução via Schedule.

Exemplo

#include "TBICONN.ch"
#include "PROTHEUS.ch"
User Function Auto190()

Local aAuto := {}

aAdd(aAuto,{"TMW_CODUSU",'000000000001' , Nil })
aAdd(aAuto,{"TMW_DTINIC", StoD( '20140101' ), Nil })
aAdd(aAuto,{"TMW_DTFIM" , StoD( '20161231' ), Nil })
aAdd(aAuto,{"TMW_CCDE" , "000000001" , Nil })
aAdd(aAuto,{"TMW_BASEDT", "1" , Nil })

//Nao consome licensas
RPCSetType( 3 )

//Abre empresa/filial/modulo/arquivos
RPCSetEnv( "T3" , "M RJ 01 " , "" , "" , "MDT" , "" , { "SRA" , "TM0" , "TM5" , "TN6" , "TMN" , "TMO" , "TN8" , "TN0" , "TN2" , ;
"TN9" , "TM5" , "SRJ" , "TMW" , "TL2" , "TON" , "SRH" , "TKM" , "TKN" , "SR8" } )
MsExecAuto( { |a,x,y| MDTA190(a,x,y)}, , aAuto, 3 , dDataBase)
Return