/**
* Agrega un registro a la persistencia.
*
* @param \TSLIDataTransferObj $dto EL DATA TRANSFER OBJECT contendra todos los
* datos requeridos del registro a agregar, se espera como parte de los parametros
* los datos a usarse para crear el modelo a actualizar.
*
* Ya sea en caso de error o no , la respuesta estara contenida en el DTO.
*
* @see \TSLIBasicRecordDAO
* @see \TSLBasicRecordDAO
*/
private function add(\TSLIDataTransferObj $dto)
{
// Obtengo referencia a los constraints
$constraints =& $dto->getConstraints();
// el modelo
$model =& $this->getModelToAdd($dto);
/* @var $outMessage TSLOutMessage */
$outMessage =& $dto->getOutMessage();
$tmg = NULL;
try {
$tmg = \TSLTrxFactoryManager::instance()->getTrxManager();
$tmg->init();
/* @var $dao \TSLIBasicRecordDAO */
$dao = \TSLDAOLoaderHelper::loadDAO($this->IdDAOName);
/* @var $ret string */
$ret = $dao->add($model, $constraints);
$CI =& get_instance();
if ($ret === DB_ERR_ALLOK) {
$outMessage->setSuccess(true);
// El resultado es el modelo mismo con los datos pero el campo de version modificado.
$outMessage->setResultData($model);
} else {
if ($ret == DB_ERR_RECORDEXIST) {
$outMessage->setSuccess(false);
// El resultado es el modelo mismo con los datos del registro modificados
$outMessage->setResultData($model);
$CI->lang->load($this->IdMSGLanguage);
$outMessage->setAnswerMessage($CI->lang->line($this->msgPrefix . '_rec_alreadyexist'), $ret);
} else {
if ($ret == DB_ERR_FOREIGNKEY) {
$outMessage->setSuccess(false);
$CI->lang->load($this->IdMSGLanguage);
$outMessage->setAnswerMessage($CI->lang->line($this->msgPrefix . '_rec_foreignkey_add'), $ret);
} else {
$CI->lang->load($this->IdMSGLanguage);
$outMessage->setSuccess(false);
// Si es iactivo enviamos el mensaje respectivo
if ($ret == DB_ERR_RECORDINACTIVE) {
$outMessage->setAnswerMessage($CI->lang->line($this->msgPrefix . '_rec_inactivo'), $ret);
} else {
$outMessage->setAnswerMessage($CI->lang->line($this->msgPrefix . '_servererror'), $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();
}
}
/**
* Genera la salida en JSON.
*
* @param TSLIDataTransferObj con el Data Transfer Object a procesar
* @return un String con el DTO en formato JSON
*/
public function &process(TSLIDataTransferObj &$DTO)
{
$out = NULL;
if (isset($DTO)) {
/* @var $outMessage TSLOutMessage */
$outMessage =& $DTO->getOutMessage();
if (strlen($outMessage->getAnswerMesage()) > 0) {
// STATUS_OK = 0
$out = 'status:-1';
$out .= ',data:"' . $outMessage->getAnswerMesage() . '- Cod.Error: ' . $outMessage->getErrorCode() . '"';
}
if ($outMessage->isSuccess() == FALSE) {
if ($outMessage->hasFieldErrors()) {
// VALIDATION ERRORS
$out = 'status:"-4"';
$fldErrors =& $outMessage->getFieldErrors();
// Si ya tiene longitud , ponemos una coma para indicar
// un nuevo elemento.
if (isset($out) and strlen($out) > 0) {
$out .= ',';
}
// la lista de field errors.
$out .= '"errors":{';
$count = count($fldErrors);
for ($i = 0; $i < $count; $i++) {
$out .= $fldErrors[$i]->getField() . ':"' . $fldErrors[$i]->getErrorMessage() . '"';
if ($i < $count - 1) {
$out .= ',';
}
}
$out .= '}';
} else {
if ($outMessage->hasProcessErrors()) {
// STATUS_FAILURE = -1
$out = 'status:-1';
$processErrors =& $outMessage->getProcessErrors();
// Si ya tiene longitud , ponemos una coma para indicar
// un nuevo elemento.
if (isset($out) and strlen($out) > 0) {
$out .= ',';
}
// la lista de process errors.
$out .= 'data:';
$count = count($processErrors);
for ($i = 0; $i < $count; $i++) {
if ($i > 0) {
$out .= '\\n';
}
$out .= '"';
$perr = str_replace(array("\"", "\r", "\n", "\r\n"), ' ', $processErrors[$i]->getErrorMessage());
// Si tiene excepcion procesamos.
$ex = $processErrors[$i]->getException();
if (isset($ex)) {
if (isset($perr)) {
$out .= $perr . ' - ' . str_replace(array("\"", "\r", "\n", "\r\n"), ' ', $ex->getMessage()) . ' ** CodError = ' . $processErrors[$i]->getErrorCode();
} else {
$out .= str_replace(array("\"", "\r", "\n", "\r\n"), ' ', $ex->getMessage()) . ' ** CodError =' . $processErrors[$i]->getErrorCode();
}
} else {
$out .= $perr . ' ** CodError =' . $processErrors[$i]->getErrorCode();
}
$out .= '"';
if ($i < $count - 1) {
$out .= ',';
}
}
$out .= '';
}
}
} else {
// STATUS_OK = 0
$out = 'status:0';
}
// Si tiene parametros de salida los agregamos antres de la data.
$outParams =& $outMessage->getOutputparameters();
if (is_array($outParams)) {
foreach ($outParams as $i => $value) {
$out .= ',' . $i . ':' . $value;
}
}
// Si no hay errores de proceso evaluamos la data
if ($outMessage->hasProcessErrors() == FALSE && strlen($outMessage->getAnswerMesage()) == 0) {
$oneRecord = false;
// Procesamos la data
$data = $outMessage->getResultData();
if (isset($data)) {
// Si no es un arreglo solo posee un registro
if (!is_array($data)) {
$oneRecord = true;
}
$out .= ',data:';
$this->_processExtraData($outMessage->getResultData());
$dataResults = TSLUtilsHelper::array_ut8_encode_recursive($outMessage->getResultData());
$out .= json_encode($dataResults);
// Numero de registros = al numero de registros leidos + la posicion inicial en el set
// siempre que haya mas de una respuesta
$constraints =& $DTO->getConstraints();
if ($oneRecord === FALSE) {
$numRecords = $constraints->getStartRow() + count($dataResults);
} else {
$numRecords = 1;
}
// SE hace de tal forma que si no es el ultimo registro osea numRecords es menor a la ultima fila solicitada
// Ponemos como el total de registros una pagina mas (esto para evitar hacer un count)
$out .= ',endRow : "' . $numRecords . '"';
$out .= ',totalRows: "' . ($numRecords < $constraints->getEndRow() || $constraints->getEndRow() == 0 ? $numRecords : $constraints->getEndRow() + ($constraints->getEndRow() - $constraints->getStartRow())) . '"';
// $out .= ',totalRows: "'. ( $numRecords < 1000 ? ($numRecords) : 1000 + (1000 - $constraints->getStartRow())) .'"';
} else {
if ($out == NULL) {
// STATUS_OK = 0
$out = 'status:-1';
$out .= ',data:"Error Desconocido"';
}
}
}
$out = '{response:{' . $out . '}}';
return $out;
} else {
$out = '?????????????????';
return $out;
}
}
