ExecAuto MATA220

Tempo de leitura: 1 minuto

 

A rotina automática ExecAuto MATA220 tem por objetivo criar saldos iniciais(SB9) automaticamente no TOTVS Protheus. Ela é uma das Rotinas Automáticas em ADVPL. Essa rotina automática é muito útil em situações onde nós iremos fazer uma transferência múltipla de produtos(MATA261) e assim podemos criar saldo inicial dos produtos de destinos caso eles não possuam.

 

Sintaxe:

MSExecAuto({|x, y| Mata220(x, y)}, aArray, 3)

 

Exemplo em ADVPL da rotina automática ExecAuto MATA220:

#include 'protheus.ch'
#Include "tbiconn.ch"
/*{Protheus.doc} User Function PAEAMT220
    (Essa função tem por finalidade mostrar a rotina automática com ExecAuto MATA220 em ADVPL)
    @type  Function
    @author Adilio Costa
    @since 19/12/2023
    @version Protheus 12.1.2210
@Inscreva-se no Blog ProtheusAdvpl:
https://www.protheusadvpl.com.br
@Inscreva-se no Canal ProtheusAdvpl:
https://www.youtube.com/protheusadvpl
@Siga-nos no Instagram:
https://www.instagram.com/protheusadvpl
@Conheça os Cursos do ProtheusAdvpl:
https://hotmart.com/pt-br/club/protheusadvpl
|Se esse conteúdo foi útil pra você nos ajude divulgando 
ele e nossas redes sociais!!|
*/

*/
User Function PAEAMT220()
	//Setando valores da rotina automática
	lMsErroAuto := .F.
	Local aSB1 :={}

	aAdd(aSB1,{"B9_FILIAL", FWxFilial('SB9'), Nil})
	aAdd(aSB1,{"B9_COD", "000000000000001", Nil})
	aAdd(aSB1,{"B9_LOCAL", "01", Nil})
	aAdd(aSB1,{"B9_QINI", 40, Nil})


//Iniciando transação e executando saldos iniciais
	Begin Transaction
		MSExecAuto({|x, y| Mata220(x, y)}, aSB1, 3)

		//Se houve erro, mostra mensagem
		If lMsErroAuto
			MostraErro()
			DisarmTransaction()
		EndIf
	End Transaction


Return

 

É isso aí, finalizamos mais um post aqui no Blog ProtheusAdvpl, caso tenha ficado alguma dúvida deixe seu comentário ou nos envie um e-mail para adiliocosta@protheusadvpl.com.br. Até um próximo post. Grande abraço e fica com Deus.

 

Link(s) de referência:

Receba as últimas atualizações do ProtheusAdvpl
Deixe seu melhor email
Nós respeitamos sua privacidade.