/** * Retorna una lista con todos los tipos de registros asociados * a la operacion listAll del DAO indicado. * Esta lista no es paginada * * @param \TSLIDataTransferObj $dto EL DATA TRANSFER OBJECT este es el repositorio * de las respuestas encontradas y/o de los mensajes necesarios ya sean de exito o error. * * @see \TSLIBasicRecordDAO * @see \TSLBasicRecordDAO * */ private function fetch(\TSLIDataTransferObj $dto) { // Obtengo referencia a los constraints $constraints =& $dto->getConstraints(); // Obtengo la sub operacion si existe $subOperation =& $dto->getSubOperation(); $model =& $this->getEmptyModel(); // Obtengo la referencia al mensaje de salida. $outMessage =& $dto->getOutMessage(); $tmg = NULL; try { $tmg = \TSLTrxFactoryManager::instance()->getTrxManager(); $tmg->init(); /* @var $dao \TSLIBasicRecordDAO */ $dao = \TSLDAOLoaderHelper::loadDAO($this->IdDAOName); $ret = $dao->fetch($model, $constraints, $subOperation); /* @var $outMessage TSLOutMessage */ $outMessage->setSuccess(true); $outMessage->setResultData($ret); } catch (Exception $ex) { // Coloco la excepcion en el DTO. // TODO: Internacionalizar. $processError = new \TSLProcessErrorMessage($ex->getCode(), 'Error Interno', $ex); $outMessage->addProcessError($processError); } if ($tmg !== NULL) { $tmg->end(); } }