Linha Microsiga Protheus

Árvore de páginas

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