Cross Segmento - Backoffice (Linha Protheus) - SIGAEST - MATA265 - ExecAuto da rotina de Endereçamento

#Include "RwMake.CH"
#include "tbiconn.ch"

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

Private lMsErroAuto := .F.

  PREPARE ENVIRONMENT EMPRESA "99" FILIAL "01" MODULO "EST"

//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

#Include "RwMake.CH"
#include "tbiconn.ch"

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

Private lMsErroAuto := .F.

  PREPARE ENVIRONMENT EMPRESA "99" FILIAL "01" MODULO "EST"

//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