O artigo apresenta um exemplo de ExecAuto para executar automaticamente a rotina MATA010 de cadastro de produtos no Protheus 12.1.33 ou superior, mostrando códigos para inclusão, alteração e exclusão de produtos. Destaca-se a importância de testes baseados no exemplo para garantir o correto retorno da execução. Links adicionais explicam conceitos e pontos de entrada da rotina.
Tempo aproximado para leitura: 00:03:00 min
Dúvida
Qual o exemplo de Execauto utilizado para executar automaticamente a rotina MATA010 - Cadastro de Produtos?
Ambiente
Cross Segmento - TOTVS Backoffice (Linha Protheus) - Estoque/Custos - Protheus Release 12.1.33 ou Superior.
Solução
Segue um exemplo de inclusão de produto através do ExecAuto da MATA010:
#INCLUDE "RWMAKE.CH"
#INCLUDE "TBICONN.CH"
User Function TMata010()
Local aVetor := {}
private lMsErroAuto := .F.
PREPARE ENVIRONMENT EMPRESA "99" FILIAL "01" MODULO "EST"
//--- Exemplo: Inclusao --- //
aVetor:= { {"B1_COD" ,"9994" ,NIL},;
{"B1_DESC" ,"PRODUTO TESTE - ROTINA AUTOMATICA" ,NIL},;
{"B1_TIPO" ,"PA" ,Nil},;
{"B1_UM" ,"UN" ,Nil},;
{"B1_LOCPAD" ,"01" ,Nil},;
{"B1_PICM" ,0 ,Nil},;
{"B1_IPI" ,0 ,Nil},;
{"B1_CONTRAT" ,"N" ,Nil},;
{"B1_LOCALIZ" ,"N" ,Nil}}
MSExecAuto({|x,y| Mata010(x,y)},aVetor,3)
//--- Exemplo: Alteracao --- //
aVetor:= { {"B1_COD" ,"9994" ,NIL},;
{"B1_DESC" ,"PRODUTO TESTE - ALTERADO" ,NIL}}
MSExecAuto({|x,y| Mata010(x,y)},aVetor,4)
//--- Exemplo: Exclusao --- //
aVetor:= { {"B1_COD" ,"9994" ,NIL},;
{"B1_DESC" ,"PRODUTO TESTE - ROTINA AUTOMATICA" ,NIL}}
MSExecAuto({|x,y| Mata010(x,y)},aVetor,5)
If lMsErroAuto
MostraErro()
Else
Alert("Ok")
Endif
Return
Observação: Em caso de inconsistencia no ExecAuto os testes serão sempre realizados com base no exemplo documentado/código de sintaxe simplista com objetivo de certificar o correto retorno da execução, de acordo com o objetivo proposto para o mesmo.
Detalhes em: https://tdn.totvs.com/x/R1gjIw.
Saiba mais:
SIGAEST - MATA010 - Qual o conceito e usabilidade da rotina de cadastro de produto?
SIGAEST - MATA010 - Quais são os Pontos de Entrada da rotina de Cadastro de Produtos?
[TDN] Exemplo de Rotina automatica da MATA010 em MVC
Clique aqui e veja mais artigos sobre Cadastros e Configurações Gerais no Estoque
0 Comentários