MATA080 - Rotina automática para cadastro de TES

#Include "RwMake.CH"
#include "tbiconn.ch"

User Function TMata080()
	Local aCab := {}
	private lMsErroAuto := .F.

	PREPARE ENVIRONMENT EMPRESA "99" FILIAL "01" MODULO "FIS"
	
	aCab:= {{"F4_CODIGO" , "006"           , Nil},; //Codigo do Tipo de Entrada e Saida 				
		    {"F4_TIPO  " , "E"             , Nil},; //Neste campo e informado o tipo do movimento:(E)-Entrada ou (S)-Saida      			
		    {"F4_CREDICM", "N"             , Nil},; //Credita ICMS?				
		    {"F4_CREDIPI", "N"             , Nil},; //Credita IPI?				
		    {"F4_DUPLIC" , "S"             , Nil},; //Gera duplicata?				
 		    {"F4_ESTOQUE", "S"             , Nil},; //Atualiza o estoque?				
		    {"F4_PODER3" , "N"             , Nil},; //Utilize (R)emessa,(D)evolucao de mercadorias ou (N)enhum tratamento. 				
		    {"F4_ICM"    , "N"             , Nil},; //Calcula ICMS?				
		    {"F4_IPI"  	 , "N"             , Nil},; //Calcula IPI?				
		    {"F4_CF"     , "1101"          , Nil},; //Codigo Fiscal				
		    {"F4_TEXTO"  , "TESTE EXECAUTO", Nil},; //Texto Padrao				
		    {"F4_LFICM"  , "N"             , Nil},; //Livro Fiscal ICMS.				
		    {"F4_LFIPI"  , "N"             , Nil},; //Livro Fiscal IPI.				
		    {"F4_DESTACA", "N"             , Nil},; //Destaca IPI?				
		    {"F4_INCIDE" , "N"             , Nil},; //Incidencia de IPI?				
		    {"F4_COMPL"  , "N"             , Nil}}  //Diferenca de complemento de ICMS?				

		  
	MSExecAuto({|x,y| Mata080(x,y)},aCab,3) //Inclusao 
	
	conout("Acabou de executar a rotina automatica da TES") //Retorno de erro na execucao da rotina
	
	If lMsErroAuto	
		conout("erro")	
		cErro := MostraErro()
	Else	
		conout("Ok")
	Endif  
	
Return