14:28:36.357 - EXCEÇÃO NÃO TRATADA!
Erro: 7000
Classe: Excecaoprograma
Mesagem: File cannot be closed because outstanding references exist.
Chamadas:Linha:99 - construtor.adicionarsetprocedure - construtor.prg
Linha:53 - construtor.criar - construtor.prg
Linha:111 - parcelapedidovenda_unit.testunit02 - parcelapedidovenda_unit.prg
Linha:236 - parcelapedidovenda_unit.executarteste - testunitbase.prg
Linha:1421 - executartesteunitarioprg - iniciartesteunitario.prg
Linha:283 - iniciartesteunitario - iniciartesteunitario.prg

Conteúdo: SET PROCEDURE TO &lcFxp ADDITIVE
Executando TestUnit: PARCELAPEDIDOVENDA_UNIT.PRG
Linha:410 - ON...  - ctrlib.prg
Linha:70 - construtor.criar - construtor.prg
Linha:111 - parcelapedidovenda_unit.testunit02 - parcelapedidovenda_unit.prg
Linha:236 - parcelapedidovenda_unit.executarteste - testunitbase.prg
Linha:1421 - executartesteunitarioprg - iniciartesteunitario.prg
Linha:283 - iniciartesteunitario - iniciartesteunitario.prg

Comando: 
lcListaChamada=oAgSistema.ObterFuncaoErro()

14:28:36.391 - EXCEÇÃO NÃO TRATADA!
Erro: 5000
Classe: Excecaonegocio
Mesagem: Parâmetro inválido [2]  - Esperado parâmetro tipo "O" passado "L" - Classe: Parcelapedidovenda
Classe: Parcelapedidovenda
LINHA:848 - PARCELAPEDIDOVENDA._RETORNARERRO - CUSTOMMU.PRG
LINHA:1182 - CUSTOMMU._VALIDARPARAMETRO - CUSTOMMU.PRG
LINHA:388 - PARCELAPEDIDOVENDA._VALIDARPARAMETRO - CTRCLASSBASE.PRG
LINHA:398 - PARCELAPEDIDOVENDA.ADICIONARPERSISTENCIANATRANSACAO - PARCELAPEDIDOVENDA.PRG
LINHA:114 - PARCELAPEDIDOVENDA_UNIT.TESTUNIT02 - PARCELAPEDIDOVENDA_UNIT.PRG
LINHA:236 - PARCELAPEDIDOVENDA_UNIT.EXECUTARTESTE - TESTUNITBASE.PRG
LINHA:1421 - EXECUTARTESTEUNITARIOPRG - INICIARTESTEUNITARIO.PRG
LINHA:283 - INICIARTESTEUNITARIO - INICIARTESTEUNITARIO.PRG

COMANDO: 
LCNOMEFUNCAO=UPPER(OAGSISTEMA.OBTERFUNCAOERRO())
Chamadas:Linha:1182 - custommu._validarparametro - custommu.prg
Linha:388 - parcelapedidovenda._validarparametro - ctrclassbase.prg
Linha:398 - parcelapedidovenda.adicionarpersistencianatransacao - parcelapedidovenda.prg
Linha:114 - parcelapedidovenda_unit.testunit02 - parcelapedidovenda_unit.prg
Linha:236 - parcelapedidovenda_unit.executarteste - testunitbase.prg
Linha:1421 - executartesteunitarioprg - iniciartesteunitario.prg
Linha:283 - iniciartesteunitario - iniciartesteunitario.prg

Conteúdo: 
THIS._RetornarErro( 'Parâmetro inválido [2] - Esperado parâmetro tipo "'+lcTipo+'" passado "'+TYPE('tvParametro')+'" - Classe: '+THIS.CLASS )
llOk = DODEFAULT( tcTipo, tvParametro, tnQuantParametros, tnQuantValidar, tcNomeParametroValidar )
THIS._ValidarParametro('O', toPedidoBD)
IF toObjetoEsperado.AdicionarPersistenciaNaTransacao(loPedido, loTransacao) && Inlcuir
llTestOk = EVALUATE(lcTeste)
Executando TestUnit: PARCELAPEDIDOVENDA_UNIT.PRG
Linha:410 - ON...  - ctrlib.prg
Linha:428 - parcelapedidovenda.adicionarpersistencianatransacao - parcelapedidovenda.prg
Linha:114 - parcelapedidovenda_unit.testunit02 - parcelapedidovenda_unit.prg
Linha:236 - parcelapedidovenda_unit.executarteste - testunitbase.prg
Linha:1421 - executartesteunitarioprg - iniciartesteunitario.prg
Linha:283 - iniciartesteunitario - iniciartesteunitario.prg

Comando: 
lcListaChamada=oAgSistema.ObterFuncaoErro()