Histórico da Página

||Descrição|| Rotina automática MyMata270 (MATA270)
||Observações|| Essa rotina permite o registro de qualquer movimento no inventário.
||Exemplos||#include "rwmake.ch"
#include "tbiconn.ch"
User Function Tmata270()
	Local aVetor := \{\}
	lMsErroAuto := .F.	
	PREPARE ENVIRONMENT EMPRESA "99" FILIAL "01" MODULO "EST"
	//aVetor:=\{	\{"B7_COD","001",NIL\},;
	//	\{"B7_QUANT",3,NIL\},;
	//	\{"B7_DOC","01",NIL\}\}		
		 aVetor:=\{;
		\{"B7_COD","001            ",NIL\},; 
		\{"B7_FILIAL","01",NIL\},;
		\{"B7_LOCAL","01",NIL\},;
		\{"B7_QUANT",200,NIL\},;
		\{"B7_DOC","123      ",NIL\}\}		
	MSExecAuto(\{\|x,y,z\| mata270(x,y,z)\},aVetor,.F.,3) 	
	If lMsErroAuto
		Alert("Erro")
		MostraErro()
	Else
		Alert("Ok")
	Endif
	RESET ENVIRONMENT
Return
||Idioma|| Português(Brasil)
||Versões|| Versões_Anteriores
||Sistemas Operacionais Suportados||Todos
||Compatível com as Bases de Dados||Todas
||Parâmetros|| Parâmetros do MSExecAuto 
				1 - Vetor, Contem os dados da tabela SB7. 
				2 - Lógico, parâmetro para o Logix (Default .F.)
				3 - Numérico, 3 Inclusão, 4 Alteração, 5 Exclusão
||Retorno|| Nil(nulo)
||Programa Fonte|| MATA270.PRX