Cross Segmento - Backoffice (Linha Protheus) - SIGAEST - Execauto rotina MATA241 Movimentacao Multipla

#INCLUDE "RWMAKE.CH"
#INCLUDE "TBICONN.CH"
// Função principal para gerar um movimento de estoque
User Function TMATA241()
   Local _aCab1 := {}       // Array para o cabeçalho do movimento
   Local _aItem := {}       // Array para os itens do movimento
   Local _atotitem := {}    // Array para agrupar todos os itens
   Local cCodigoTM := "015" // Código do tipo de movimento (TM)
   Local cCodProd := "H002" // Código do produto
   Local cUnid := "MP"      // Unidade de medida do produto
   // Variáveis para controle de execução automática
   Private lMsHelpAuto := .T. // Se .T., exibe mensagens de help
   Private lMsErroAuto := .F. // Se .F., não exibe erros automáticos
   // Prepara o ambiente (empresa, filial e módulo)
   Prepare Environment Empresa "T1" Filial "D MG 01" Modulo "EST"
   // Monta o cabeçalho do movimento
   _aCab1 := {;
       {"D3_DOC", NextNumero("SD3", 2, "D3_DOC", .T.), NIL},; // Número do documento 
                                                             // gerado automaticamente
       {"D3_TM", cCodigoTM, NIL},;                           // Tipo de movimento
       {"D3_CC", "        ", NIL},;                          // Centro de custo (vazio)
       {"D3_EMISSAO", dDatabase, NIL};                       // Data de emissão (data atual)
   }
   // Monta os itens do movimento
   _aItem := {;
       {"D3_COD", cCodProd, NIL},;   // Código do produto
       {"D3_UM", cUnid, NIL},;       // Unidade de medida
       {"D3_QUANT", 1.99, NIL},;     // Quantidade do item (1.99)
       {"D3_LOCAL", "01", NIL},;     // Local de estoque
       {"D3_CUSTO1", 1, NIL};        // Custo do item
   }
   // Adiciona o item ao array de itens
   aAdd(_atotitem, _aItem)
   // Executa a rotina de inclusão de movimento (MATA241)
   // Certifique-se de que _aCab1 e _atotitem são arrays válidos
   If ValType(_aCab1) == "A" .AND. ValType(_atotitem) == "A"
       MSExecAuto({|x, y, z| MATA241(x, y, z)}, _aCab1, _atotitem, 3)
   Else
       MsgStop("Erro: Arrays inválidos para execução automática.", "Erro")
       Return
   EndIf
   // Verifica se houve erro na execução automática
   If lMsErroAuto
       MostraErro()          // Exibe mensagem de erro
       DisarmTransaction()   // Desfaz a transação em caso de erro
       Break                // Interrompe a execução
   EndIf
   Return