Cross Segmentos - TOTVS Backoffice (Línea Protheus) MI - Stock y Costos (SIGAEST) - MATA015 - Rutina Automática de Ubicaciones

Tiempo aproximado para lectura: 00:05:00 min

Duda
¿Cómo ejecutar la rutina automática de Ubicaciones?

Ambiente
Cross Segmentos - TOTVS Backoffice (Línea Protheus) MI - Stock y Costos (SIGAEST) - Todas las versiones 12 

Solución
#INCLUDE "RWMAKE.CH"

#INCLUDE "TBICONN.CH"

User Function tMata015()

LOCAL aVetor:= {}

Local nOpc := 0

Private lMsErroAuto := .F.

aVetor := { {"BE_LOCAL" ,"10" ,Nil},; {"BE_LOCALIZ" ,"00000010" ,NIL},; {"BE_DESCRIC" ,"DESCRICAO",NIL},; {"BE_CAPACID" ,10 ,NIL},; {"BE_PRIOR" ,"ZZZ" ,NIL},; {"BE_ALTURLC" ,10 ,NIL},; {"BE_LARGLC" ,10 ,NIL},; {"BE_COMPRLC" ,10 ,NIL},; {"BE_PERDA" ,5 ,NIL},; {"BE_STATUS" ,"1" ,NIL} } nOpc := 3 // inclusao

MSExecAuto({|x,y| MATA015(x,y)},aVetor, nOpc) If lMsErroAuto ConOut("Erro") Else ConOut("Sucesso! ")

EndIfReturn