MATA180 - Cadastro de Complemento do Produto

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

User Function TMata180()

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

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

aCab:= { 	{"B5_COD"  ,"1234"  ,Nil},;	// Codigo identificador do produto		
{"B5_CEME"  ,"Nome cientifico"  ,Nil}}	// Nome cientifico do produto						

MSExecAuto({|x,y| Mata180(x,y)},aCab,3) 
//Inclusao   

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

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

Return