Função: MATA265 - Rotina Automática de Endereçamento
Abrangências: | Microsiga Protheus 11 , Protheus 10 |
Compatível Países: | Todos |
Compatível às Bases de Dados: | Todos |
Nível de Acesso: | Nível 1 (Acesso Clientes) |
Idiomas: | Português (Brasil) , Português (Portugal) , Espanhol , Inglês |
Descrição:
Esta rotina permite efetuar o Endereçamento e Estorno de Endereçamento.
Programa Fonte:
MATA265.PRW
Sintaxe:
MATA265 - Rotina Automática de Endereçamento ( )
Retorno:
- ()
Exemplos
Exemplo de rotina automática para endereçar um item
#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
--
Exemplo de rotina automática para estornar um endereçamento a um item
#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
Visão Geral
Import HTML Content
Conteúdo das Ferramentas
Tarefas