17:10:36.833 - EXCEÇÃO NÃO TRATADA!
Erro: 5000
Classe: Excecaonegocio
Mesagem: É necessário abrir uma transação para gravar objetos - Use classe "TransacaoBase"
Classe: Itemnotasaidadb
LINHA:848 - ITEMNOTASAIDADB._RETORNARERRO - CUSTOMMU.PRG
LINHA:1675 - ITEMNOTASAIDADB._VALIDARHANDLETRANSACAO - PERSISTENCIABASE.PRG
LINHA:740 - ITEMNOTASAIDADB.GRAVAR - PERSISTENCIABASE.PRG
LINHA:214 - ITEMNOTASAIDADB_UNIT.TESTUNIT2 - ITEMNOTASAIDADB_UNIT.PRG
LINHA:236 - ITEMNOTASAIDADB_UNIT.EXECUTARTESTE - TESTUNITBASE.PRG
LINHA:1431 - EXECUTARTESTEUNITARIOPRG - INICIARTESTEUNITARIO.PRG
LINHA:283 - INICIARTESTEUNITARIO - INICIARTESTEUNITARIO.PRG

COMANDO: 
LCNOMEFUNCAO=UPPER(OAGSISTEMA.OBTERFUNCAOERRO())
Chamadas:Linha:1675 - itemnotasaidadb._validarhandletransacao - persistenciabase.prg
Linha:740 - itemnotasaidadb.gravar - persistenciabase.prg
Linha:214 - itemnotasaidadb_unit.testunit2 - itemnotasaidadb_unit.prg
Linha:236 - itemnotasaidadb_unit.executarteste - testunitbase.prg
Linha:1431 - executartesteunitarioprg - iniciartesteunitario.prg
Linha:283 - iniciartesteunitario - iniciartesteunitario.prg

Conteúdo: 
THIS._RetornarErro( 'É necessário abrir uma transação para gravar objetos - Use classe "TransacaoBase"' )
IF NOT THIS._ValidarHandleTransacao( )
IF toObjetoEsperado.Gravar() && Inlcuir
llTestOk = EVALUATE(lcTeste)
loTestUnit.ExecutarTeste(@laLstTestesParaExecutar)
Executando TestUnit: ITEMNOTASAIDADB_UNIT.PRG
Linha:416 - ON...  - ctrlib.prg
Linha:773 - itemnotasaidadb.gravar - persistenciabase.prg
Linha:214 - itemnotasaidadb_unit.testunit2 - itemnotasaidadb_unit.prg
Linha:236 - itemnotasaidadb_unit.executarteste - testunitbase.prg
Linha:1431 - executartesteunitarioprg - iniciartesteunitario.prg
Linha:283 - iniciartesteunitario - iniciartesteunitario.prg

Comando: 
lcListaChamada=oAgSistema.ObterFuncaoErro()