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#include "PROTHEUSrwmake.CHch"
#INCLUDE#include "TBICONNtbiconn.CHch"
User Function MyMata270 //U_MYMATA270Tmata270()    
	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 "EST" TABLES "SB7"
	//aVetor := \{;
	\{	{"B7_COD","001",NIL},;
	//	{"B7_FILIALQUANT" , xFilial("SB7"),Nil\,3,NIL},;
	//	\{"B7_CODDOC","00201",Nil\},NIL}}
		
		aVetor:={;
	\	{"B7_DOCCOD","Inventário 001",Nil\001            ",NIL},; 
	\	{"B7_QUANTFILIAL",10,Nil\"01",NIL},;
	\	{"B7_LOCAL","01",Nil\NIL},;
	\	{"B7_DATAQUANT",Date(),Nil\} \}
	MSExecAuto(\{\200,NIL},;
		{"B7_DOC","123      ",NIL}}
		
	MSExecAuto({|x,y\,z| mata270(x,y,z)\},aVetor,.F.,3) 
	
	If lMsErroAuto
		MostraErroAlert("Erro")
		ConOut(OemToAnsi("Erro!"))MostraErro()
	Else
		ConOutAlert(OemToAnsi("Cadastrado com sucesso!"Ok"))	
	Endif 
	
Return Nil 	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