Histórico da Página

||Descrição|| Rotina automatica MyMata270 (MATA270)
  
||Observações|| Essa rotina permite o registro de qualquer movimento no inventarioinventário.
||Exemplos||#INCLUDE "PROTHEUS.CH"
#INCLUDE "TBICONN.CH"
User Function MyMata270 //U_MYMATA270()    
	Local aVetor := {}
	PRIVATE lMsErroAuto := .F.	
	
	//ÚÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿
	//| Abertura do ambiente                                         |
	//ÀÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ
	ConOut(Repl("-",80))
	ConOut(PadC(OemToAnsi("Teste de Inclusao MyMata270"),80))
	PREPARE ENVIRONMENT EMPRESA '99' FILIAL '01' USER 'Administrador' PASSWORD '' MODULO "COM" TABLES "SB7"
	
	aVetor := \{;
	\{"B7_FILIAL" , xFilial("SB7"),Nil\},;
	\{"B7_COD","002",Nil\},;
	\{"B7_DOC","InventarioInventário 001",Nil\},;
	\{"B7_QUANT",10,Nil\},;
	\{"B7_LOCAL","01",Nil\},;
	\{"B7_DATA",Date(),Nil\} \}
	
	MSExecAuto(\{\|x,y\| mata270(x,y)\},aVetor,.F.,3)
	
	If lMsErroAuto
		MostraErro()
		ConOut(OemToAnsi("Erro!"))
	Else
		ConOut(OemToAnsi("Cadastrado com sucesso!"))	
	Endif 
		
Return Nil 

||Preview|| 
||Veja também|| 
||Idioma|| Português(Brasil)
||Versões|| Versões_Anteriores
||Sistemas Operacionais Suportados||Todos
||Compatível com as Bases de Dados||Todas
||Updates|| 
||Parâmetros|| Vetor, Lógico, Numérico.
||Retorno|| Nil(nulo)
||Eventos de chamada do Ponto de Entrada|| 
||Variáveis|| 
||Programa Fonte|| MATA270.PRX