Cross Segmentos - TOTVS Backoffice (Línea Protheus) MI - Stock y Costos (SIGAEST) - MATA265 - Rutina MATA265 automática mediante Función

Duda
¿Existe una Función o PE para automatizar la Rutina MATA265? 

Ambiente
Cross Segmentos - TOTVS Backoffice (Línea Protheus) MI - Stock y Costos (SIGAEST) – A partir de la versión 12.1.25

Solución
Para lograr la automatización de la rutina MATA265, es inicialmente es necesario contar con una fecha igual o superior al 23/01/2020 de la rutina, si no se encuentra compilada descargue y aplique el patch contenido en el link anexo:

12.1.25: https://suporte.totvs.com/portal/p/10098/download?e=921771

Posteriormente compile la función correspondiente con sus datos, ejemplo:

********* EJEMPLO PARA UBICAR EL PRODUCTO *********
#Include "RwMake.CH"
#include "tbiconn.ch"

User Function TMATA265()
Local aCabSDA := {}
Local aItSDB := {}
Local _aItensSDB := {}

Private lMsErroAuto := .F.//Encabezado con información del producto y NumSeq que se abordará.
aCabSDA := {{"DA_PRODUTO" ,"PROD-ENDER",Nil},;
{"DA_NUMSEQ" ,"001419",Nil}}//Datos del ítem que sera ubicado

ItSDB := {{"DB_ITEM" ,"0001" ,Nil},;
{"DB_ESTORNO" ," " ,Nil},;
{"DB_LOCALIZ" ,"LOCAL" ,Nil},;
{"DB_DATA" ,dDataBase ,Nil},;
{"DB_QUANT" ,20 ,Nil}}

aadd(_aItensSDB,aitSDB)//Ejecuta la ubicación del producto

MATA265( aCabSDA, _aItensSDB, 3)
If lMsErroAuto
MostraErro()

Else
MsgAlert("Procesamiento Ok!")

EndifReturn

***********************************************

Posteriormente mediante el modulo Configurador, cargue un layout (MILE) haciendo referencia en el campo Adapter a la función compilada.

Recuerde realizar un respaldo de su información antes de realizar cualquier cambio en el ambiente.