Histórico da Página

||Descrição|| Rotina automatica MyMata270 (MATA270)
  
||Observações|| Essa rotina permite o registro de qualquer movimento no inventá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","Inventá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 
||Idioma|| Português(Brasil)
||Versões|| Versões_Anteriores
||Sistemas Operacionais Suportados||Todos
||Compatível com as Bases de Dados||Todas
||Parâmetros|| Vetor, Lógico, Numérico.
||Retorno|| Nil(nulo)
||Programa Fonte|| MATA270.PRX