11:04:09.814 - EXCEÇÃO NÃO TRATADA! Erro: 4000 Classe: Excecaousuario Mesagem: Não é permitido definir data de entrega marcada por item Chamadas:Linha:2585 - itenspedidovenda.alterardataentregamarcada - itenspedidovenda.prg Linha:579 - itenspedidovenda_unit.testunit013 - itenspedidovenda_unit.prg Linha:236 - itenspedidovenda_unit.executarteste - testunitbase.prg Linha:1421 - executartesteunitarioprg - iniciartesteunitario.prg Linha:283 - iniciartesteunitario - iniciartesteunitario.prg Conteúdo: THIS._RetornarMensagem( 'Não é permitido definir data de entrega marcada por item' ) THIS.oObjetoTeste.AlterarDataEntregaMarcada( tdEntregaMarcada, .F. ) llTestOk = EVALUATE(lcTeste) loTestUnit.ExecutarTeste(@laLstTestesParaExecutar) ExecutarTesteUnitarioPrg( lcProg, lnSessaoAplicativo ,lcMensagem, lnInicio, @loArquivoTexto, @lnIDClasse ) Executando TestUnit: ITENSPEDIDOVENDA_UNIT.PRG Linha:410 - ON... - ctrlib.prg Linha:2605 - itenspedidovenda.alterardataentregamarcada - itenspedidovenda.prg Linha:579 - itenspedidovenda_unit.testunit013 - itenspedidovenda_unit.prg Linha:236 - itenspedidovenda_unit.executarteste - testunitbase.prg Linha:1421 - executartesteunitarioprg - iniciartesteunitario.prg Linha:283 - iniciartesteunitario - iniciartesteunitario.prg Comando: lcListaChamada=oAgSistema.ObterFuncaoErro()