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 ExMAT220
(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
@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 ExMAT220()
//Setando valores da rotina automática
lMsErroAuto := .F.
Local aSB9 :={}
aAdd(aSB9,{"B9_FILIAL", FWxFilial('SB9'), Nil})
aAdd(aSB9,{"B9_COD", "000000000000001", Nil})
aAdd(aSB9,{"B9_LOCAL", "01", Nil})
aAdd(aSB9,{"B9_QINI", 40, Nil})
//Iniciando transação e executando saldos iniciais
Begin Transaction
MSExecAuto({|x, y| Mata220(x, y)}, aSB9, 3)
//Se houve erro, mostra mensagem
If(lMsErroAuto)
MostraErro()
DisarmTransaction()
Else
FWAlertInfo("O saldo inicial foi incluído com sucesso!","MSExecAuto MATA220")
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:
