Linha Microsiga Protheus

Árvore de páginas

Exemplo de execauto da rotina "Endereçamento" (MATA265)

Produto:

Microsiga Protheus

Ambiente:

Estoque e Custos (SIGAEST)

Ocorrência:

Exemplo de execauto da rotina "Indicadores de Produtos" (MATA265)

Passo a passo:

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 ( )

Exemplo 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çã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"  ," "	      ,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 estorno do 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"
 
    //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

Observações

Execauto para realizar a inclusão, alteração de movimetnos por saldos com endereço.