Tiempo aproximado de lectura: 00:00:05 min
Duda
Como se ejecuta el execauto de la rutina MATA265 para ubicar y para la reversión?
Ambiente
Cross Segmentos - TOTVS Backoffice (Línea Protheus) MI - Stock y Costos (SIGAEST) - Todas las versiones 12
Solución
Ejemplo de Execauto para ubicar un producto:
#Include "RwMake.CH"
#include "tbiconn.ch"
User Function TMATA265()
Local aCabSDA := {}
Local aItSDB := {}
Local _aItensSDB := {}
Private lMsErroAuto := .F.
//Cabecalho com a informaçãoo do item e NumSeq que sera endereçado.
aCabSDA := {{"DA_PRODUTO" ,"PROD-ENDER",Nil},;
{"DA_NUMSEQ" ,"001419",Nil}}
//Dados do item que será endereçado
aItSDB := {{"DB_ITEM" ,"0001" ,Nil},;
{"DB_ESTORNO" ," " ,Nil},;
{"DB_LOCALIZ" ,"LOCAL" ,Nil},;
{"DB_DATA" ,dDataBase ,Nil},;
{"DB_QUANT" ,20 ,Nil}}
aadd(_aItensSDB,aitSDB)
//Executa o endereзamento do item
MATA265( aCabSDA, _aItensSDB, 3)
If lMsErroAuto
MostraErro()
Else
MsgAlert("Processamento Ok!")
Endif
Return
--
Ejemplo de Execauto para revertir la ubicación de un producto
#Include "RwMake.CH"
#include "tbiconn.ch"
User Function TMATA265()
Local aCabSDA := {}
Local aItSDB := {}
Local _aItensSDB := {}
Private lMsErroAuto := .F.
//Cabeçalho com a informação do item e NumSeq que sera endereçado.
aCabSDA := {{"DA_PRODUTO" ,"PROD-ENDER",Nil},;
{"DA_NUMSEQ" ,"001419",Nil}}
//Dados do item que será endereçado
aItSDB := {{"DB_ITEM" ,"0001" ,Nil},;
{"DB_ESTORNO" ,"S " ,Nil},;
{"DB_LOCALIZ" ,"LOCAL" ,Nil},;
{"DB_DATA" ,dDataBase ,Nil},;
{"DB_QUANT" ,20 ,Nil}}
aadd(_aItensSDB,aitSDB)
//Executa o estorno do item
MATA265( aCabSDA, _aItensSDB, 4)
If lMsErroAuto
MostraErro()
Else
MsgAlert("Processamento Ok!")
Endif
Return
0 Comentarios