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