Rotina Automática do Saldo Atual (MATA300)

Exemplo da Rotina:

Mata300()

Exemplo 1- Chamando a rotina de forma automática:

//Identifica que será executado via JOB
lJob := .T.

//Atualiza as perguntas (baixar fonte em https://terminaldeinformacao.com/2017/02/28/funcao-altera-conteudo-de-perguntas-mv_par-em-advpl/ )
cPerg := "MTA300"
u_zAtuPerg(cPerg, "MV_PAR01", "01")     //Armazém De
u_zAtuPerg(cPerg, "MV_PAR02", "01")     //Armazém Até
u_zAtuPerg(cPerg, "MV_PAR03", "000001") //Produto De
u_zAtuPerg(cPerg, "MV_PAR04", "000099") //Produto Até
Pergunte(cPerg, .F.)

//Executa a operação automática
lMsErroAuto := .F.
MSExecAuto({|x| MATA300(x)}, lJob)

//Se houve erro, salva um arquivo dentro da protheus data
If lMsErroAuto
	cDiretorio := "\x_erros\"
	cArquivo   := "log_mata300_" + dToS(Date()) + "_" + StrTran(Time(), ':', '-')
	
	MostraErro(cDiretorio, cArquivo)
EndIf

Observações:

– Caso tenha dúvidas ou problemas com os exemplos, entre em contato;

– Se tiver sugestões de rotinas, pode entrar em contato;

Referências:

– TDN