User Function tstExecCom()
	Local aComissao := {}
	Local nOpcAuto := 3
	Local aErroAuto := {}
	
	Private lMsErroAuto := .F.
	Private lAutoErrNoFile := .T.
	
	aAdd( aComissao, { "E3_VEND", PadR( "000001", TamSX3("E3_VEND")[1] ), Nil } )
	aAdd( aComissao, { "E3_PREFIXO", PadR( "CMN", TamSX3("E3_PREFIXO")[1] ), Nil } )
	aAdd( aComissao, { "E3_NUM", PadR( "000444", TamSX3("E3_NUM")[1] ), Nil } )
	aAdd( aComissao, { "E3_PARCELA", PadR( "", TamSX3("E3_PARCELA")[1] ), Nil } )
	aAdd( aComissao, { "E3_TIPO", PadR( "R$", TamSX3("E3_TIPO")[1] ), Nil } )
	aAdd( aComissao, { "E3_CODCLI", PadR( "TST001", TamSX3("E3_CODCLI")[1] ), Nil } )
	aAdd( aComissao, { "E3_LOJA", PadR( "01", TamSX3("E3_LOJA")[1] ), Nil } )
	aAdd( aComissao, { "E3_EMISSAO", StoD( "20160105" ), Nil } )
	aAdd( aComissao, { "E3_BASE", 1507.5, Nil } )
	aAdd( aComissao, { "E3_PORC", 10, Nil } )
	aAdd( aComissao, { "E3_COMIS", 150.75, Nil } )
	aAdd( aComissao, { "E3_VENCTO", StoD( "20160120" ), Nil } )
	aAdd( aComissao, { "E3_MOEDA", PadR( "01", TamSX3("E3_MOEDA")[1] ), Nil } )
	aAdd( aComissao, { "E3_ORIGEM", "I", Nil } )
	
	MSExecAuto( { |x, y, z| MATA490( x, y, z) }, aComissao, nOpcAuto, /*nPosArotina*/ )
	
	If ! lMsErroAuto
		MsgInfo( "Deu Certo." )
	Else
		aErroAuto := GetAutoGRLog()
		MsgInfo( "Deu Erro." )
	Endif
Return Nil