08:53:23.382 - EXCEÇÃO NÃO TRATADA! Erro: 4000 Classe: Excecaousuario Mesagem: Recebimento na entrega não permitido para o documento "Duplicata" Chamadas:Linha:1067 - parcelapedidovenda.lrecebimentonaentrega_assign - parcelapedidovenda.prg Linha:887 - parcelamento_unit.testunit19 - parcelamento_unit.prg Linha:236 - parcelamento_unit.executarteste - testunitbase.prg Linha:1421 - executartesteunitarioprg - iniciartesteunitario.prg Linha:283 - iniciartesteunitario - iniciartesteunitario.prg Conteúdo: THIS._RetornarMensagem( 'Recebimento na entrega não permitido para o documento "'+THIS.cDescricaoTipoDocumento+'"' ) loParcela.lRecebimentoNaEntrega = .T. llTestOk = EVALUATE(lcTeste) loTestUnit.ExecutarTeste(@laLstTestesParaExecutar) ExecutarTesteUnitarioPrg( lcProg, lnSessaoAplicativo ,lcMensagem, lnInicio, @loArquivoTexto, @lnIDClasse ) Executando TestUnit: PARCELAMENTO_UNIT.PRG Linha:410 - ON... - ctrlib.prg Linha:1075 - parcelapedidovenda.lrecebimentonaentrega_assign - parcelapedidovenda.prg Linha:887 - parcelamento_unit.testunit19 - parcelamento_unit.prg Linha:236 - parcelamento_unit.executarteste - testunitbase.prg Linha:1421 - executartesteunitarioprg - iniciartesteunitario.prg Linha:283 - iniciartesteunitario - iniciartesteunitario.prg Comando: lcListaChamada=oAgSistema.ObterFuncaoErro()