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

User Function TMata020()

Local aCab := {}
private lMsErroAuto := .F.

PREPARE ENVIRONMENT EMPRESA "T1" FILIAL "XIFIS26" MODULO "FIS"

aCab:= {{"A2_COD"   ,"006",Nil},; 	// Codigo do Fornecedor 				
		{"A2_LOJA"  ,"01"  ,Nil},; 	// Loja do Fornecedor    			
		{"A2_NOME"  ,"Nome razao social"  ,Nil},; 	// Nome ou razao social	    			
		{"A2_NREDUZ","Nome Fantasia"  ,Nil},; 	// Nome Fantasia				
		{"A2_END"  	,"Endereco teste"  ,Nil},;  // Endereco do fornecedor				
		{"A2_EST"  	,"CE"  ,Nil},;  // Sigla do Estado				
		{"A2_MUN"   ,"N"  ,Nil},;  // Nome do Municipio				
		{"A2_TIPO"  ,"J"  ,Nil}}  //  J se pessoa Juridica ou 				//F para pessoa Fisica e X para importacao.			
				
MSExecAuto({|x,y| Mata020(x,y)},aCab,3) //Inclusao   

conout("Acabou de executar a rotina automatica do Cadastro de Fornecedores")//-- Retorno de erro na execucao da rotina

If lMsErroAuto	
	conout("erro")	
	cErro:=MostraErro()
Else
	conout("Ok")
Endif