Linha Microsiga Protheus

Árvore de páginas

Versões comparadas

Versão antiga 1

changes.mady.by.user Pedro Antonio Missaglia

Gravado em

comparado com

Nova versão 2

changes.mady.by.user Pedro Antonio Missaglia

Gravado em

Chave

  • Esta linha foi adicionada.
  • Esta linha foi removida.
  • A formatação mudou.

...

  1. Visão Geral
  2. Exemplo de utilização
  3. Tela XXX
    1. Outras Ações / Ações relacionadas
  4. Operações
  5. Tela XXX
    1. Principais Campos e Parâmetros
  6. Tabelas utilizadas


01. VISÃO GERAL

O objetivo da rotina MATA241 - Movimentos Internos Modelo 2 é agilizar a operação de digitação dos movimentos a serem realizados. Na grande maioria dos casos estes movimentos pertencem a um mesmo contexto (ex: baixa de insumos para uma ordem de produção, baixa de material de consumo para uma solicitação ao armazém) e assim estão relacionados ao mesmo centro de custo. Por este motivo esta rotina apresenta este formulário neste modelo, com o centro de custo único para todos os movimentos.


02. EXEMPLO DE UTILIZAÇÃO

A rotina de movimentações múltiplas permite realizar as operações de inclusão e estorno, conforme exemplos abaixo: 

Bloco de código

03. TELA XXXXX

themeConfluence
titleRotina Automática
linenumberstrue
//------------------------------------------------------------------------
/*
EXEMPLO DE INCLUSÃO
*/
//------------------------------------------------------------------------

#INCLUDE "RWMAKE.CH" 
#INCLUDE "TBICONN.CH"

User Function TMATA241()
Local _aCab1 	:= {}
Local _aItem 	:= {}
Local _atotitem := {}
Local cCodigoTM := "503"
Local cCodProd 	:= "PRODUTO "
Local cUnid 	:= "PC "

Private lMsHelpAuto := .T.
Private lMsErroAuto := .F.

//Private _acod := {"1","MP1"}

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

_aCab1 := {{"D3_DOC" ,NextNumero("SD3",2,"D3_DOC",.T.), NIL},;
          {"D3_TM" ,cCodigoTM , NIL},;
          {"D3_CC" ,"        ", NIL},;
          {"D3_EMISSAO" ,ddatabase, NIL}}


_aItem:={{"D3_COD" ,cCodProd ,NIL},;
  {"D3_UM" ,cUnid ,NIL},; 
  {"D3_QUANT" ,1 ,NIL},;
  {"D3_LOCAL" ,"01" ,NIL},;
  {"D3_LOTECTL" ,"",NIL},;
  {"D3_LOCALIZ" , "ENDEREÇO            ",NIL}}

aadd(_atotitem,_aitem) 
MSExecAuto({|x,y,z| MATA241(x,y,z)},_aCab1,_atotitem,3)

If lMsErroAuto 
	Mostraerro() 
	DisarmTransaction() 
	break
EndIf

Return 

//------------------------------------------------------------------------
/*
EXEMPLO DE ESTORNO
*/
//------------------------------------------------------------------------

#INCLUDE "RWMAKE.CH" 
#INCLUDE "TBICONN.CH"

User Function TMata241()

Local aCab 	:= {}
Local aItem := {}

Private lMsErroAuto := .F.

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

dbSelectArea("SD3")
dbSetOrder(2)
If dbSeek(xFilial()+"X00002004")
	aCab := { {"D3_DOC" ,SD3->D3_DOC,Nil}}
	aItem := {{"D3_COD",      "2",        NIL},;
              {"D3_UM",           "UN",       NIL},;
              {"D3_QUANT",        1,          NIL},;
              {"D3_LOCAL",        "01",       NIL},;
              {"D3_ESTORNO",      "S",        NIL}}

	MSExecAuto({|x,y,z| MATA241(x,y,z)},aCab,{aItem},6)
    If lMsErroAuto  
    	Mostraerro()
    Endif
EndIf

Return

03. OPERAÇÕES

Na página principal da rotina, estão disponíveis as seguintes opções:Outras Ações / Ações relacionadas

AçãoDescrição

04. TELA XXXXX

...