function shutDownFunction() {
global $conn;
$error = error_get_last();
if ($error["type"] == 1) {
DBRollback($conn);
echo "<script type='text/javascript'>alert(unescape('".rawurlencode($error["message"])."'));</script>";
}
}
function Encabezado_ReporteEvolutivodeSiniestro($idsiniestro, $orden)
{
try {
global $conn;
$sqlEncabezado = "SELECT NVL (EX_FECHARECAIDA, EX_FECHAACCIDENTE) FECHA_ACCREC,\n\t\t\t\t\t\t\t\t\t EX_BAJAMEDICA,\n\t\t\t\t\t\t\t\t\t EX_ALTAMEDICA,\n\t\t\t\t\t\t\t\t\t A.TB_DESCRIPCION GRAVEDAD,\n\t\t\t\t\t\t\t\t\t B.TB_DESCRIPCION TIPO,\n\t\t\t\t\t\t\t\t\t C.TB_DESCRIPCION ESTADO,\n\t\t\t\t\t\t\t\t\t AMEBPBA.GET_CAUSAFIN (EX_CAUSAFIN) CAUSAFIN,\n\t\t\t\t\t\t\t\t\t EX_DIAGNOSTICO,\n\t\t\t\t\t\t\t\t\t EX_DIAGNOSTICOOMS,\n\t\t\t\t\t\t\t\t\t DG_DESCRIPCION,\n\t\t\t\t\t\t\t\t\t EX_CAUSAFIN,\n\t\t\t\t\t\t\t\t\t AMEBPBA.ARMAR_SINIESTRO (EX_SINIESTRO, EX_ORDEN) SINIESTRO,\n\t\t\t\t\t\t\t\t\t UTILES.ARMAR_CUIT (EX_CUIL) CUIL,\n\t\t\t\t\t\t\t\t\t TJ_NOMBRE,\n\t\t\t\t\t\t\t\t\t UTILES.ARMAR_CUIT (EX_CUIT) CUIT,\n\t\t\t\t\t\t\t\t\t MP_NOMBRE,\n\t\t\t\t\t\t\t\t\t EX_SINIESTRO,\n\t\t\t\t\t\t\t\t\t EX_ORDEN,\n\t\t\t\t\t\t\t\t\t EX_RECAIDA\n\t\t\t\t\t\t\t FROM sex_expedientes,\n\t\t\t\t\t\t\t\t\t ctb_tablas a,\n\t\t\t\t\t\t\t\t\t ctb_tablas b,\n\t\t\t\t\t\t\t\t\t ctb_tablas c,\n\t\t\t\t\t\t\t\t\t cdg_diagnostico,\n\t\t\t\t\t\t\t\t\t ctj_trabajadores,\n\t\t\t\t\t\t\t\t\t cmp_empresas\n\t\t\t\t\t\t\t WHERE a.tb_clave(+) = 'SGRAV'\n\t\t\t\t\t\t\t\t AND NVL (LTRIM (ex_gravedad), 1) = a.tb_codigo\n\t\t\t\t\t\t\t\t AND b.tb_clave(+) = 'STIPO'\n\t\t\t\t\t\t\t\t AND NVL (LTRIM (ex_tipo), 1) = b.tb_codigo\n\t\t\t\t\t\t\t\t AND c.tb_clave(+) = 'SIEST'\n\t\t\t\t\t\t\t\t AND ex_estado = c.tb_codigo\n\t\t\t\t\t\t\t\t AND ex_diagnosticooms = dg_codigo(+)\n\t\t\t\t\t\t\t\t AND ex_cuil = tj_cuil\n\t\t\t\t\t\t\t\t AND ex_cuit = mp_cuit\n\t\t\t\t\t\t\t\t AND ex_siniestro = :SINIESTRO\n\t\t\t\t\t\t\t\t AND ex_orden = :ORDEN\n\t\t\t\t\t\t\t\t AND ex_recaida = 0";
$params = array(":SINIESTRO" => $idsiniestro, ":ORDEN" => $orden);
$stmt = DBExecSql($conn, $sqlEncabezado, $params);
$row = DBGetQuery($stmt);
return $row;
} catch (Exception $e) {
DBRollback($conn);
throw new Exception($e->getMessage());
}
}
function UpdateMasDatosJuicios($Domicilio, $Telefonos, $Fax, $Email, $usuario, $idJuicio)
{
try {
global $conn;
//----------------------------------------------------------------------
$sqlJuzgado = "SELECT JT_IDJUZGADO \n\t\t\t\t\t\t\tFROM legales.ljt_juicioentramite \n\t\t\t\t\t\t\tWHERE jt_id = :idJuicio";
$Jparams = array(":IdJuicio" => $idJuicio);
$idJuzgado = ValorSql($sqlJuzgado, '0', $Jparams);
//----------------------------------------------------------------------
$sqlUpdate = "UPDATE legales.ljz_juzgado \n\t\t\t\t\t\tSET jz_usumodif = :usuario,\n\t\t\t\t\t\t\tjz_fechamodif = SYSDATE, \n\t\t\t\t\t\t\tjz_direccion = :Domicilio, \n\t\t\t\t\t\t\tjz_telefono = :Telefonos, \n\t\t\t\t\t\t\tjz_fax = :Fax, \n\t\t\t\t\t\t\tjz_email = :Email\n\t\t\t\t\t WHERE jz_id = :idJuzgado ";
$params = array(":usuario" => $usuario, ":Domicilio" => $Domicilio, ":Telefonos" => $Telefonos, ":Fax" => $Fax, ":Email" => $Email, ":idJuzgado" => $idJuzgado);
DBExecSql($conn, $sqlUpdate, $params);
//----------------------------------------------------------------------
DBCommit($conn);
} catch (Exception $e) {
DBRollback($conn);
}
}
function DBExecSql($connection, $sql, $params = array(), $mode = OCI_COMMIT_ON_SUCCESS)
{
// Ejecuta el query pasado como parámetro..
global $dbError;
$stmt = OCIParse($connection, $sql);
foreach ($params as $key => $val) {
oci_bind_by_name($stmt, $key, htmlspecialcharsDecodeUpper($params[$key]));
}
$error = !oci_execute($stmt, $mode);
if ($error) {
$dbError = oci_error($stmt);
if (isset($dbError["offset"])) {
DBRollback($connection);
// Hago un rollback por si el query con el error venía sin transacción..
saveSqlError($connection, $dbError["message"], $sql, $params);
EscribirLogTxt1('Error DBExecSql sql', $sql);
EscribirLogTxt1('Error DBExecSql params', implode(",", $params));
EscribirLogTxt1('Error DBExecSql e ', $error . " ---- " . $dbError["message"]);
throw new Exception("Error inesperado. [" . date("d/m/Y H:i:s") . "]" . $error);
}
}
return $stmt;
}
exit;
}
$rowCabecera = DBGetQuery($stmt, 1, false);
//-----------------------------------------------------------------------
// $pdf->setSourceFile($_SERVER["DOCUMENT_ROOT"]."/modules/varios/templates/ListadoJuiciosVerticalBlanco.pdf");
$stmt = DBExecSql($conn, $sql, $params);
$pdf->SetAutoPageBreak(true, 20);
$pdf->AddPage('P', 'Legal');
while ($row = DBGetQuery($stmt, 1, false)) {
$pdf->SetX($pdf->margenDerecho);
$pdf->SetTextColor(0, 0, 0);
$pdf->SetFontAlignGeneral();
$Newrow = array_values($row);
$pdf->Row($Newrow);
$pdf->LineaSepara();
}
unset($_SESSION['ReportesSiniestros']["ReporteDatosdelaEmpresa"]);
// enviamos cabezales http para no tener problemas
header('Content-Type: text/html; charset=UTF-8');
//header('Content-Type: text/html; charset=iso-8859-1');
header("Content-Transfer-Encoding", "binary");
//header('Cache-Control: maxage=3600');
header('Cache-Control: private, max-age=0, must-revalidate');
header('Pragma: public');
$pdf->Output('ReporteDatosdelaEmpresa.pdf', 'I');
// DBCommit($conn);
} catch (Exception $e) {
DBRollback($conn);
EscribirLogTxt1("ReporteDatosdelaEmpresa.php", $e->getMessage());
echo 'ERROR: ' . $e->getMessage();
}
function DBExecSql($connection, $sql, $params = array(), $mode = OCI_COMMIT_ON_SUCCESS)
{
// Ejecuta el query pasado como parámetro..
global $dbError;
$stmt = oci_parse($connection, $sql);
foreach ($params as $key => $val) {
$parametro = htmlspecialcharsDecodeUpper($params[$key]);
oci_bind_by_name($stmt, $key, $parametro, strlen($parametro));
unset($parametro);
}
$error = !oci_execute($stmt, $mode);
if ($error) {
$dbError = oci_error($stmt);
if (isset($dbError["offset"])) {
DBRollback($connection);
// Hago un rollback por si el query con el error venía sin transacción..
saveSqlError($connection, $dbError["message"], $sql, $params);
$mensajeError = "Error inesperado. [" . date("d/m/Y H:i:s") . "]";
throw new Exception($mensajeError);
}
}
return $stmt;
}
function ObtenerValidacionFechaAcuerdo($fechavenc, $nroorden)
{
try {
global $conn;
$sql = "SELECT distinct CA_NROORDEN \n\t\t\t FROM lca_acuerdocyq \n\t\t\t WHERE ca_nroorden = :nroorden\n\t\t\t\tAND :fechavenc IN (SELECT ca_fechavenc \n\t\t\t\t\t\t\t\t\t FROM lca_acuerdocyq \n\t\t\t\t\t\t\t\t\tWHERE ca_nroorden = :nroorden\n\t\t\t\t\t\t\t\t\t AND ca_nropago >0 )";
$params = array(":fechavenc" => $fechavenc, ":nroorden" => $nroorden);
$stmt = DBExecSql($conn, $sql, $params);
while ($row = DBGetQuery($stmt)) {
return $row;
}
if (!isset($row)) {
$row = array("CA_NROORDEN" => '');
}
return $row;
} catch (Exception $e) {
DBRollback($conn);
//ErrorConeccionDatos($e->getMessage()); return false;
throw new Exception($e->getMessage());
}
}
function importarTrabajadores() {
global $conn;
try {
if ($_FILES["archivo"]["name"] == "")
throw new Exception("Debe elegir el Archivo a subir.");
if (!validarExtension($_FILES["archivo"]["name"], array("xls")))
throw new Exception("El Archivo a subir debe ser de extensión \".xls\".");
// Borro los registros temporales que se pudieran haber generado en otra oportunidad..
$params = array(":idusuario" => $_SESSION["idUsuario"], ":ipusuario" => $_SERVER["REMOTE_ADDR"]);
$sql =
"DELETE FROM tmp.tcm_cargamasivatrabajadoresweb
WHERE cm_idusuario = :idusuario
AND cm_ipusuario = :ipusuario";
DBExecSql($conn, $sql, $params, OCI_DEFAULT);
error_reporting(E_ALL ^ E_NOTICE);
$excel = new Spreadsheet_Excel_Reader($_FILES["archivo"]["tmp_name"]);
for ($row=2; $row<=$excel->rowcount(); $row++) { // Empiezo desde la 2, porque en la 1 viene la cabecera..
// Meto los valores de las columnas en un array..
$cols = array();
for ($col=65; $col<=87; $col++)
$cols[chr($col)] = trim($excel->val($row, chr($col)));
// Si todas las columnas estan vacías lo tomo como un EOF y salgo del loop principal..
$existeValor = false;
foreach ($cols as $key => $value)
if ($value != "")
$existeValor = true;
if (!$existeValor)
break;
// *** - INICIO VALIDACIONES..
$errores = "11111111111111111111111";
// Columna A - CUIL..
if (!validarCuit($cols["A"]))
$errores[0] = "0";
// Columna B - Nombre..
if ($cols["B"] == "")
$errores[1] = "0";
// Columna C - Sexo..
if (($cols["C"] != "F") and ($cols["C"] != "M"))
$errores[2] = "0";
// Columna D - Nacionalidad..
if ($cols["D"] != "") {
$params = array(":descripcion" => $cols["D"]);
$sql =
"SELECT 1
FROM cna_nacionalidad
WHERE na_fechabaja IS NULL
AND UPPER(na_descripcion) = UPPER(:descripcion)";
if (!existeSql($sql, $params))
$errores[3] = "0";
}
// Columna E - Otra nacionalidad..
$errores[4] = "1";
// Columna F - Fecha de nacimiento..
try {
if (isFechaValida($cols["F"])) {
$edad = dateDiff($cols["F"], date("d/m/Y"), "A");
if (($edad < 16) or ($edad > 90))
$errores[5] = "0";
}
else
$errores[5] = "0";
}
catch (Exception $e) {
$errores[5] = "0";
}
// Columna G - Estado Civil..
if ($cols["G"] != "") {
$params = array(":descripcion" => $cols["G"]);
$sql =
"SELECT 1
FROM ctb_tablas
WHERE tb_clave = 'ESTAD'
AND tb_fechabaja IS NULL
AND UPPER(tb_descripcion) = UPPER(:descripcion)";
if (!existeSql($sql, $params))
$errores[6] = "0";
}
// Columna H - Fecha de ingreso..
if (!isFechaValida($cols["H"]))
$errores[7] = "0";
// Columna I - Establecimiento..
$errores[8] = "1";
// Columna J - Tipo contrato..
if ($cols["J"] != "") {
$params = array(":descripcion" => $cols["J"]);
$sql =
"SELECT 1
FROM cmc_modalidadcontratacion
WHERE mc_fechabaja IS NULL
AND UPPER(mc_descripcion) = UPPER(:descripcion)";
if (!existeSql($sql, $params))
$errores[9] = "0";
}
// Columna K - Tarea..
$errores[10] = "1";
// Columna L - Sector..
$errores[11] = "1";
// Columna M - Código CIUO..
if ($cols["M"] != "") {
$params = array(":codigo" => $cols["M"]);
$sql =
"SELECT 1
FROM cci_ciuo
WHERE ci_codigo = :codigo";
if (!existeSql($sql, $params))
$errores[12] = "0";
}
// Columna N - Remuneración..
if ($cols["N"] != "")
if (!validarNumero($cols["N"], true))
$errores[13] = "0";
// Columna O - Calle..
if ($cols["O"] == "")
$errores[14] = "0";
// Columna P - Número..
$errores[15] = "1";
// Columna Q - Piso..
$errores[16] = "1";
// Columna R - Departamento..
$errores[17] = "1";
// Columna S - Código postal..
if ($cols["S"] == "")
$errores[18] = "0";
else {
$params = array(":codigopostal" => $cols["S"]);
$sql =
"SELECT 1
FROM cub_ubicacion
WHERE ub_cpostal = :codigopostal";
if (!existeSql($sql, $params))
$errores[18] = "0";
}
// Columna T - Localidad..
if (($cols["T"] != "") and ($cols["S"] != "")) {
$params = array(":codigopostal" => $cols["S"], ":localidad" => $cols["T"]);
$sql =
"SELECT 1
FROM cub_ubicacion
WHERE ub_cpostal = :codigopostal
AND UPPER(ub_localidad) = UPPER(:localidad)";
if (!existeSql($sql, $params))
$errores[19] = "0";
}
// Columna U - Provincia..
if (($cols["U"] != "") and ($cols["T"] != "") and ($cols["S"] != "")) {
$params = array(":codigopostal" => $cols["S"], ":localidad" => $cols["T"], ":provincia" => $cols["U"]);
$sql =
"SELECT 1
FROM cub_ubicacion, cpv_provincias
WHERE ub_provincia = pv_codigo
AND ub_cpostal = :codigopostal
AND UPPER(ub_localidad) = UPPER(:localidad)
AND UPPER(pv_descripcion) = UPPER(:provincia)";
if (!existeSql($sql, $params))
$errores[20] = "0";
}
// Columna V - Fecha de baja..
if ($cols["V"] != "")
if (!isFechaValida($cols["V"]))
$errores[21] = "0";
// Columna W - No confirmado al puesto..
// $errores[22] = "1";
// *** - FIN VALIDACIONES..
$params = array(":calle" => substr($cols["O"], 0, 60),
":ciuo" => substr($cols["M"], 0, 4),
":codigopostal" => substr($cols["S"], 0, 5),
/* ":confirmapuesto" => substr($cols["W"], 0, 1),*/
":cuil" => substr($cols["A"], 0, 11),
":departamento" => substr($cols["R"], 0, 20),
":errores" => $errores,
":establecimiento" => substr($cols["I"], 0, 100),
":estadocivil" => $cols["G"],
":fechabaja" => substr($cols["V"], 0, 10),
":fechaingreso" => substr($cols["H"], 0, 10),
":fechanacimiento" => substr($cols["F"], 0, 10),
":fila" => $row,
":idusuario" => $_SESSION["idUsuario"],
":ipusuario" => $_SERVER["REMOTE_ADDR"],
":localidad" => substr($cols["T"], 0, 60),
":nacionalidad" => $cols["D"],
":nombre" => substr($cols["B"], 0, 60),
":numero" => substr($cols["P"], 0, 20),
":otranacionalidad" => substr($cols["E"], 0, 30),
":piso" => substr($cols["Q"], 0, 20),
":provincia" => $cols["U"],
":sector" => substr($cols["L"], 0, 150),
":sexo" => substr($cols["C"], 0, 1),
":sueldo" => substr($cols["N"], 0, 15),
":tarea" => substr($cols["K"], 0, 150),
":tipocontrato" => substr($cols["J"], 0, 100));
$sql =
"INSERT INTO tmp.tcm_cargamasivatrabajadoresweb
(cm_idusuario, cm_ipusuario, cm_fila, cm_cuil, cm_nombre, cm_sexo, cm_nacionalidad, cm_otranacionalidad, cm_fechanacimiento, cm_estadocivil, cm_fechaingreso,
cm_establecimiento, cm_tipocontrato, cm_tarea, cm_sector, cm_ciuo, cm_sueldo, cm_calle, cm_numero, cm_piso, cm_departamento, cm_codigopostal, cm_localidad,
cm_provincia, cm_fechabaja, cm_errores)
VALUES (:idusuario, :ipusuario, :fila, :cuil, :nombre, :sexo, :nacionalidad, :otranacionalidad, :fechanacimiento, :estadocivil, :fechaingreso,
:establecimiento, :tipocontrato, :tarea, :sector, :ciuo, :sueldo, :calle, :numero, :piso, :departamento, :codigopostal, :localidad,
:provincia, :fechabaja, :errores)";
DBExecSql($conn, $sql, $params, OCI_DEFAULT);
}
DBCommit($conn);
}
catch (Exception $e) {
DBRollback($conn);
echo "<script type='text/javascript'>history.back(); alert(unescape('".rawurlencode($e->getMessage())."'));</script>";
exit;
}
}
function TienePermisoTicket($usuario, $TicketDetalle)
{
/* Función: Tiene permiso para cargar TICKET de TAL MOTIVO
Mensaje = Usted no tiene permiso para generar un ticket con el motivo %, consulte con su responsable.
*/
try {
global $conn;
$sql = "SELECT 1\n\t\t\t\t FROM computos.cms_motivosolicitud ms1\n\t\t\t\t WHERE ms1.ms_id = :TicketDetalle\n\t\t\t\t\t AND NOT EXISTS (SELECT 1\n\t\t\t\t\t\t\t\t\t FROM computos.cmp_motivopermitidousuario mp1\n\t\t\t\t\t\t\t\t\t WHERE ms1.ms_id = mp1.mp_idmotivosolicitud\n\t\t\t\t\t\t\t\t\t\t AND mp1.mp_usualta IN ( SELECT se_usuario\n\t\t\t\t\t\t\t\t\t\t\t\t\t\t\t\t\t FROM art.use_usuarios\n\t\t\t\t\t\t\t\t\t\t\t\t\t\t\t\t\t WHERE se_fechabaja IS NULL\n\t\t\t\t\t\t\t\t\t\t\t\t\t\t\t\t\t\t AND se_usuario <> UPPER (:usuario)\n\t\t\t\t\t\t\t\t\t\t\t\t\t\t\t\t START WITH se_usuario = UPPER (:usuario)\n\t\t\t\t\t\t\t\t\t\t\t\t\t\t\t\t CONNECT BY PRIOR se_respondea = se_usuario\n\t\t\t\t\t\t\t\t\t\t\t\t\t\t\t\t\t\t AND se_usuario <> se_respondea))\n\t\t\t\t\t AND EXISTS (SELECT 1\n\t\t\t\t\t\t\t\t FROM art.use_usuarios\n\t\t\t\t\t\t\t\t WHERE se_fechabaja IS NULL\n\t\t\t\t\t\t\t\t\t AND se_usuario = UPPER (:usuario))\n\t\t\t\tUNION\n\t\t\t\tSELECT 1\n\t\t\t\t FROM computos.cms_motivosolicitud ms1\n\t\t\t\t WHERE ms1.ms_id = :TicketDetalle\n\t\t\t\t\t AND EXISTS (SELECT 1\n\t\t\t\t\t\t\t\t FROM computos.cmp_motivopermitidousuario mp1\n\t\t\t\t\t\t\t\t WHERE ms1.ms_id = mp1.mp_idmotivosolicitud\n\t\t\t\t\t\t\t\t\t AND mp1.mp_usualta IN ( SELECT se_usuario\n\t\t\t\t\t\t\t\t\t\t\t\t\t\t\t\t FROM art.use_usuarios\n\t\t\t\t\t\t\t\t\t\t\t\t\t\t\t\t WHERE se_fechabaja IS NULL\n\t\t\t\t\t\t\t\t\t\t\t\t\t\t\t\t\t AND se_usuario <> UPPER (:usuario)\n\t\t\t\t\t\t\t\t\t\t\t\t\t\t\t START WITH se_usuario = UPPER (:usuario)\n\t\t\t\t\t\t\t\t\t\t\t\t\t\t\t CONNECT BY PRIOR se_respondea = se_usuario\n\t\t\t\t\t\t\t\t\t\t\t\t\t\t\t\t\t AND se_usuario <> se_respondea))\n\t\t\t\t\t AND EXISTS (SELECT 1\n\t\t\t\t\t\t\t\t FROM computos.cmp_motivopermitidousuario mp1\n\t\t\t\t\t\t\t\t WHERE ms1.ms_id = mp1.mp_idmotivosolicitud\n\t\t\t\t\t\t\t\t\t AND mp1.mp_usuario = UPPER (:usuario)\n\t\t\t\t\t\t\t\t\t AND mp1.mp_usualta IN ( SELECT se_usuario\n\t\t\t\t\t\t\t\t\t\t\t\t\t\t\t\t FROM art.use_usuarios\n\t\t\t\t\t\t\t\t\t\t\t\t\t\t\t\t WHERE se_fechabaja IS NULL\n\t\t\t\t\t\t\t\t\t\t\t\t\t\t\t\t\t AND se_usuario <> UPPER (:usuario)\n\t\t\t\t\t\t\t\t\t\t\t\t\t\t\t START WITH se_usuario = UPPER (:usuario)\n\t\t\t\t\t\t\t\t\t\t\t\t\t\t\t CONNECT BY PRIOR se_respondea = se_usuario\n\t\t\t\t\t\t\t\t\t\t\t\t\t\t\t\t\t AND se_usuario <> se_respondea)) ";
$params = array(":usuario" => $usuario, ":TicketDetalle" => $TicketDetalle);
$TienePermiso = ValorSql($sql, "", $params);
DBCommit($conn);
if ($TienePermiso > 0) {
return TRUE;
} else {
return FALSE;
}
} catch (Exception $e) {
DBRollback($conn);
EscribirLogTxt1("Error: TienePermiso", $e->getMessage());
return FALSE;
}
}
function UpdatePeritajesABM($txtFechaAsignacion, $txtFechaPericia, $txtFVencImpug, $cmbPericia, $txtResultados, $pj_id, $usuario, $incapacidadDemanda, $incapacidadPeritoMedico, $ibmArt, $ibmPericial, $impugnacion, $idperito)
{
try {
global $conn;
$id = intval($pj_id);
$txtResultados = trim($txtResultados);
$sqlUpdate = "UPDATE legales.lpj_peritajejuicio \n \t\t SET\n\t\t\t\t\t pj_fechanotificacion = TO_DATE(:txtFechaAsignacion, 'DD/MM/YYYY'), \n\t\t\t\t\t pj_fechaperitaje = TO_DATE(:txtFechaPericia, 'DD/MM/YYYY'), \n\t\t\t\t\t pj_fechavencimpugnacion = TO_DATE(:txtFVencImpug, 'DD/MM/YYYY'), \n\t\t\t\t\t pj_resultadoperitaje = TRIM(:txtResultados),\n\t\t\t\t\t pj_fechamodif = SYSDATE,\n\t\t\t\t\t pj_usumodif = :usuario, \n\t\t\t\t\t\tpj_fechabaja = NULL, \n\t\t \t\t\t\tpj_usubaja = NULL, \n\t\t \t\t\t\tpj_idperito = :idperito,\n\t\t\t\t \t\tpj_idtipopericia = :cmbPericia,\n\t\t \t\t\t\tpj_incapacidaddemanda = TO_NUMBER(:montodemanda),\n\t\t \t\t\t\tpj_incapacidadperitomedico = TO_NUMBER(:montomedico),\n\t\t \t\t\t\tpj_ibmart = TO_NUMBER(:montoart),\n\t\t\t \t\t\tpj_ibmpericial = TO_NUMBER(:montopericial),\n\t\t \t\t\t\tpj_impugnacion = :impugnacion,\n\t\t \t\t\t\tpj_completaestudio = 'N' \n \t\t\t\t WHERE pj_id = :id ";
$cmbPericia = intval($cmbPericia);
$txtResultados = trim($txtResultados);
$montodemanda = Getfloat($incapacidadDemanda);
$montomedico = Getfloat($incapacidadPeritoMedico);
$montoart = Getfloat($ibmArt);
$montopericial = Getfloat($ibmPericial);
$params = array(":txtFechaAsignacion" => $txtFechaAsignacion, ":txtFechaPericia" => $txtFechaPericia, ":txtFVencImpug" => $txtFVencImpug, ":txtResultados" => $txtResultados, ":usuario" => $usuario, ":idperito" => $idperito, ":cmbPericia" => $cmbPericia, ":montodemanda" => $montodemanda, ":montomedico" => $montomedico, ":montoart" => $montoart, ":montopericial" => $montopericial, ":impugnacion" => $impugnacion, ":id" => $id);
@DBExecSql($conn, $sqlUpdate, $params);
DBCommit($conn);
return true;
} catch (Exception $e) {
DBRollback($conn);
//return false;
throw new Exception($e->getMessage());
}
}
function InsertAdjuntoPericia($pa_id, $pa_descripcion, $idjuicio, $nomArchivo, $pa_idPericia)
{
try {
global $conn;
// $sql = "select pa_valor from legales.lpa_parametro where pa_clave = 'DIRECTORIOARCHIVOSPERICIA' ";
// $directoriodestino = ValorSql($sql);
$directoriodestino = Get_Lpa_Parametro('DIRECTORIOARCHIVOSPERICIA');
$pa_patharchivo = $directoriodestino . '\\' . $idjuicio . '\\' . $nomArchivo;
$pa_usualta = $_SESSION["usuario"];
$sqlInsertAdjunto = "INSERT INTO legales.lpa_periciaarchivoasociado (\n\t\t\t\t\t\t\t\t\tPA_ID, \n\t\t\t\t\t\t\t\t\tPA_DESCRIPCION, \n\t\t\t\t\t\t\t\t\tPA_PATHARCHIVO, \n\t\t\t\t\t\t\t\t\tPA_IDPERICIAS, \n\t\t\t\t\t\t\t\t\tPA_USUALTA, \n\t\t\t\t\t\t\t\t\tPA_FECHAALTA)\n\t\t\t values (" . $pa_id . ",\n\t\t\t\t\t\tUPPER('" . $pa_descripcion . "'),\n\t\t\t\t\t\t'" . $pa_patharchivo . "',\n\t\t\t\t\t\t" . $pa_idPericia . ",\n\t\t\t\t\t\tUPPER('" . $pa_usualta . "'),\n\t\t\t\t\t\tSYSDATE) ";
$params = array();
DBExecSql($conn, $sqlInsertAdjunto, $params);
DBCommit($conn);
return true;
} catch (Exception $e) {
DBRollback($conn);
ErrorConeccionDatos($e->getMessage());
return false;
}
}
public function saveSolicitud($datosSolicitud) {
global $conn;
try {
$curs = null;
$params = array(":actividadreal" => $this->datosSolicitud["actividadReal"],
":art" => nullIfCero($this->datosSolicitud["artAnterior"]),
":autocotizacion" => $this->datosUsuario["AUTOCOTIZACION"],
":bajapordeuda" => "F",
":calculosumafija" => floatval($this->datosSolicitud["calculoSumaFija"]),
":calculovariable" => floatval($this->datosSolicitud["calculoVariable"]),
":canal" => $this->datosUsuario["CANAL"],
":chuboerrores" => IIF($this->huboErrores, "S", "N"),
":ciiu1" => $this->datosSolicitud["ciiu1"],
":ciiu2" => $this->datosSolicitud["ciiu2"],
":ciiu3" => $this->datosSolicitud["ciiu3"],
":contacto" => $this->datosSolicitud["contacto"],
":costofijoform931" => floatval($this->datosSolicitud["formulario931CostoFijo"]),
":costovariableform931" => floatval($this->datosSolicitud["formulario931CostoVariable"]),
":cprestacionesespeciales" => $this->datosSolicitud["prestacionesEspeciales"],
":cstatussrtautomatico" => $this->datosSolicitud["statusSrtAutomatico"]->getStatus(),
":csuscribepolizarc" => $this->datosSolicitud["suscribePolizaRC"],
":ctiposolicitud" => $this->datosSolicitud["tipoSolicitud"],
":cuit" => $this->datosSolicitud["cuit"],
":cverificatecnica" => IIF($this->verificaTecnica, "S", "N"),
":datoscompetencia" => $this->datosSolicitud["datosCompetencia"],
":edadpromedio" => intval($this->datosSolicitud["edadPromedio"]),
":email" => $this->datosSolicitud["email"],
":entidad" => $this->datosUsuario["ENTIDAD"],
":establecimientos" => intval($this->datosSolicitud["cantidadEstablecimientos"]),
":holding" => nullIfCero($this->datosSolicitud["holding"]),
":idusuario" => $this->datosUsuario["IDUSUARIO"],
":masasalarial1" => floatval($this->datosSolicitud["masaSalarial1"]),
":masasalarial2" => floatval($this->datosSolicitud["masaSalarial2"]),
":masasalarial3" => floatval($this->datosSolicitud["masaSalarial3"]),
":masasalarialsinsac" => floatval($this->getMasaSalarialSinSac()),
":naumento" => 0,
":naumentotope" => NULL,
":ndescuento" => 0,
":ndescuentotope" => NULL,
":nidzonageografica" => $this->datosSolicitud["zonaGeografica"],
":nsumaaseguradarc" => $this->datosSolicitud["sumaAseguradaRC"],
":observaciones" => substr($this->datosSolicitud["observaciones"], 0, 2048),
":periodo" => $this->datosSolicitud["periodo"],
":razonsocial" => $this->datosSolicitud["razonSocial"],
":resultadomensualportrabajador" => floatval($this->getResultadoMensualPorTrabajador()),
":sector" => nullIfCero($this->datosSolicitud["sector"]),
":smotivonoautocotizacion" => $this->motivoNoAutocotizacion,
":solopagototalmensual" => floatval($this->datosSolicitud["soloPagoTotalMensual"]),
":statusbcra" => $this->datosSolicitud["statusBcra"],
":statussrt" => nullIsEmpty($this->datosSolicitud["statusSrt"]),
":sucursal" => nullIfCero($this->datosUsuario["SUCURSAL"]),
":sumafijacompetencia" => floatval($this->datosSolicitud["alicuotaCompetenciaSumaFija"]),
":telefono" => $this->datosSolicitud["telefono"],
":totaltrabajadores" => intval($this->datosSolicitud["totalTrabajadores"]),
":totaltrabajadores1" => intval($this->datosSolicitud["totalTrabajadores1"]),
":totaltrabajadores2" => intval($this->datosSolicitud["totalTrabajadores2"]),
":totaltrabajadores3" => intval($this->datosSolicitud["totalTrabajadores3"]),
":usuario" => $this->datosUsuario["USUARIO"],
":variablecompetencia" => floatval($this->datosSolicitud["alicuotaCompetenciaVariable"]),
":vendedor" => $this->datosSolicitud["idVendedor"]);
$sql = "BEGIN webart.set_solicitud_cotizacion(:chuboerrores, :cprestacionesespeciales, :csuscribepolizarc, :cstatussrtautomatico, :ctiposolicitud, :cverificatecnica, :ciiu1, :ciiu2, :ciiu3, :sumafijacompetencia, :variablecompetencia, :naumento, :naumentotope, :calculosumafija, :calculovariable, :totaltrabajadores, :ndescuento, :ndescuentotope, :establecimientos, :entidad, :costofijoform931, :costovariableform931, :art, :holding, :nidzonageografica, :masasalarialsinsac, :resultadomensualportrabajador, :solopagototalmensual, :totaltrabajadores1, :totaltrabajadores2, :totaltrabajadores3, :edadpromedio, :masasalarial1, :masasalarial2, :masasalarial3, :nsumaaseguradarc, :autocotizacion, :idusuario, :canal, :sucursal, :vendedor, :bajapordeuda, :cuit, :smotivonoautocotizacion, :razonsocial, :sector, :actividadreal, :contacto, :email, :observaciones, :periodo, :telefono, :statusbcra, :statussrt, :datoscompetencia, :usuario); END;";
$stmt = DBExecSP($conn, $curs, $sql, $params, false, 0);
if ($this->datosSolicitud["tipoSolicitud"] == "C") { // Solicitud de cotización..
$params = array(":cuit" => $this->datosSolicitud["cuit"]);
$sql =
"SELECT sc_id, sc_nrosolicitud
FROM asc_solicitudcotizacion
WHERE sc_cuit = :cuit
ORDER BY 1 DESC";
$stmt = DBExecSql($conn, $sql, $params, OCI_DEFAULT);
$row = DBGetQuery($stmt);
$id = $row["SC_ID"];
$nroSol = $row["SC_NROSOLICITUD"];
$params = array(":id" => $id);
$sql =
"SELECT sc_finalportrabajador
FROM asc_solicitudcotizacion
WHERE sc_id = :id";
$autoCotizacion = (ValorSql($sql, "", $params, 0) != "");
$modulo = "C";
$txtRevision = " ";
}
else { // Solicitud de revisión..
$params = array(":cuit" => $this->datosSolicitud["cuit"]);
$sql =
"SELECT sr_id, sr_nrosolicitud
FROM asr_solicitudreafiliacion
WHERE sr_cuit = :cuit
ORDER BY 1 DESC";
$stmt = DBExecSql($conn, $sql, $params, OCI_DEFAULT);
$row = DBGetQuery($stmt);
$id = $row["SR_ID"];
$nroSol = $row["SR_NROSOLICITUD"];
$autoCotizacion = ($this->datosUsuario["AUTOCOTIZACION"] == 1);
$modulo = "R";
$txtRevision = " (Revisión de precio) ";
}
// Guardo el alta en la tabla de auditoría..
$params = array(":idsolicitud" => $id, ":idusualta" => $this->datosUsuario["IDUSUARIO"], ":tiposolicitud" => $this->datosSolicitud["tipoSolicitud"]);
$sql =
"INSERT INTO web.wau_auditoriawebservice
(au_fechaalta, au_idsolicitud, au_idusualta, au_tiposolicitud)
VALUES (SYSDATE, :idsolicitud, :idusualta, :tiposolicitud)";
$stmt = DBExecSql($conn, $sql, $params, OCI_DEFAULT);
// Obtengo el estado de la solicitud..
if ($this->datosSolicitud["tipoSolicitud"] == "C") { // Solicitud de cotización..
$params = array(":id" => $id, ":tipo" => $this->datosSolicitud["tipoSolicitud"]);
$sql = "SELECT art.webart.get_estado_solicitud(:id) FROM DUAL";
$estado = ValorSql($sql, "", $params, 0);
}
else { // Revisión de precio..
$params = array(":id" => $id, ":tipo" => $this->datosSolicitud["tipoSolicitud"]);
$sql =
"SELECT tb_descripcion
FROM asr_solicitudreafiliacion, ctb_tablas
WHERE est.tb_codigo(+) = sr_estadosolicitud
AND est.tb_clave(+) = 'ACOES'
AND sr_id = :id";
$estado = ValorSql($sql, "", $params, 0);
}
// Devuelvo los valores..
$curs = null;
$params = array(":cdatosenformatostring" => "F", ":nrosolicitud" => $nroSol, ":ssumar_ffep" => "T");
$sql = "BEGIN art.cotizacion.get_valor_carta(:nrosolicitud, :data, :ssumar_ffep, :cdatosenformatostring); END;";
$stmt = DBExecSP($conn, $curs, $sql, $params);
$rowValorFinal = DBGetSP($curs);
$xml = "<resultado><estado>".$estado."</estado>";
if ($rowValorFinal["PORCVARIABLE"] != "")
$xml.= "<porcentajeVariable>".$rowValorFinal["PORCVARIABLE"]."</porcentajeVariable><sumaFija>0".$rowValorFinal["SUMAFIJA"]."</sumaFija><cuotaInicialResultante>".$rowValorFinal["COSTOMENSUAL"]."</cuotaInicialResultante>";
$xml.= "</resultado>";
// Preparo el envío del e-mail..
$params = array(":idsolicitud" => $id, ":tipo" => $this->datosSolicitud["tipoSolicitud"]);
$sql = "SELECT art.cotizacion.get_mailnotificacomercial(:tipo, :idsolicitud) FROM DUAL";
$emailTo = ValorSql($sql, "", $params, 0);
if ($emailTo == "") {
$emailTo = "*****@*****.**";
$subject = "[Error] - Cotización WEB Nº ".$nroSol.$txtRevision;
}
else {
if ($autoCotizacion)
$subject = "Cotización WEB Nº ".$nroSol.$txtRevision;
elseif (($this->datosSolicitud["statusSrt"] == 6) or ($this->datosSolicitud["statusSrt"] == 7) or
($this->datosSolicitud["statusBcra"] == 4) or ($this->datosSolicitud["statusBcra"] == 5) or ($this->datosSolicitud["statusBcra"] == 6))
$subject = "Revisar solicitud de cotización Nº ".$nroSol.$txtRevision;
else
$subject = "Aviso: Solicitud de cotización Nº ".$nroSol.$txtRevision." pasa a Suscripción";
}
$params = array(":id" => $this->datosUsuario["CANAL"]);
$sql = "SELECT ca_codigo || ' - ' || ca_descripcion FROM aca_canal WHERE ca_id = :id";
$canal = ValorSql($sql, "", $params, 0);
$params = array(":id" => $this->datosUsuario["ENTIDAD"]);
$sql = "SELECT en_codbanco || ' - ' || en_nombre FROM xen_entidad WHERE en_id = :id";
$entidad = ValorSql($sql, "", $params, 0);
if ($autoCotizacion) {
$body = "<html><body><p>Se ha cargado una cotización desde la Web".$txtRevision."</p>";
$body.= "<p>Nº de Solicitud: <b>".$nroSol."</b></p>";
$body.= "<p>Canal: <b>".$canal."</b></p>";
$body.= "<p>Entidad: <b>".$entidad."</b></p>";
$body.= "<p>e-Mail de contacto: <b>".$this->datosUsuario["EMAIL"]."</b></p>";
$body.= "</body></html>";
}
else {
$body = "<html><body><p>Tiene una solicitud de cotización".$txtRevision."del Canal ".$canal.", Entidad ".$entidad.", usuario: ".$this->datosUsuario["USUARIO"]."</p>";
if (($this->datosSolicitud["statusSrt"] == 6) or ($this->datosSolicitud["statusSrt"] == 7) or
($this->datosSolicitud["statusBcra"] == 4) or ($this->datosSolicitud["statusBcra"] == 5) or ($this->datosSolicitud["statusBcra"] == 6))
$body.= "<p>Para ser revisada.</p>";
else
$body.= "<p>Para ser revisada directamente por Suscripción.</p>";
$body.= "</body></html>";
}
SendEmail($body, "Web", $subject, array($emailTo), array(), array(), "H", (($this->datosSolicitud["tipoSolicitud"] = "R")?"ASR":"ASC"), $id, $this->datosUsuario["EMAIL"]);
DBCommit($conn);
}
catch (Exception $e) {
DBRollback($conn);
// $xml = "<error>".$e->getMessage()."</error>";
$xml = "<error><fecha>".date("d/m/Y")."</fecha><hora>".date("H:i:s")."</hora><mensaje>Ocurrió un error inesperado en la función saveSolicitud.</mensaje></error>";
}
$xml = '<?xml version="1.0" encoding="utf-8"?><solicitudCotizacion>'.$xml."</solicitudCotizacion>";
return new soapval("return", "xsd:string", $xml);
}
function InsertarPeritoNuevo($nombre, $apellido, $cuil, $tipoperito, $parteoficio, $usuario, $direccion)
{
global $conn;
try {
$secuencia = ValorSql("SELECT legales.seq_lpe_id.NEXTVAL FROM DUAL");
$sqlInsert_Perito = "INSERT INTO legales.lpe_perito \n\t (PE_ID, PE_NOMBRE, PE_CUITCUIL, PE_IDTIPOPERITO, \n\t PE_PARTEOFICIO, PE_USUALTA, PE_FECHAALTA,PE_DIRECCION, \n\t PE_NOMBREINDIVIDUAL, PE_APELLIDO ) \n\t VALUES (:id, \n\t\t\t\t upper(:apellidonombre), \n\t\t\t\t :cuil, \n\t\t\t\t :tipoperito,\n\t\t\t\t :parteoficio, \n\t\t\t\t :usuario, \n\t\t\t\t SYSDATE,\n\t\t\t\t :direccion,\n\t\t\t\t upper(:nombre),\n\t\t\t\t upper(:apellido) )";
$params = array(":id" => $secuencia, ":apellidonombre" => $apellido . " " . $nombre, ":cuil" => $cuil, ":tipoperito" => $tipoperito, ":parteoficio" => $parteoficio, ":usuario" => $usuario, ":direccion" => $direccion, ":nombre" => $nombre, ":apellido" => $apellido);
DBExecSql($conn, $sqlInsert_Perito, $params);
DBCommit($conn);
return $secuencia;
} catch (Exception $e) {
DBRollback($conn);
return 0;
}
}
function Insert_NominaActualdeNominaAnterior($idEstablecimiento, $cuitEmpresa, $usualta)
{
$cuitEmpresa = CuitExtractGuion($cuitEmpresa);
$sql = obtener_NominaAnnoAnterior();
try {
global $conn;
$paramsBusca = array(":IDESTABWEB" => $idEstablecimiento, ":CUIT" => $cuitEmpresa);
$IDestableciWeb = ValorSql("SELECT NVL(ew_id, 0) \n\t\t\t\t\t\t\t\t\t FROM hys.hew_establecimientoweb \n\t\t\t\t\t\t\t\t\t WHERE ew_estableci = :IDESTABWEB\n\t\t\t\t\t\t\t\t\t AND ew_cuit = :CUIT \n\t\t\t\t\t\t\t\t\t AND nvl(ew_idmotivorechazo, 0) = 0 ", "", $paramsBusca);
$cantidad = 0;
$lista_resultados = '';
if ($IDestableciWeb == 0 or $IDestableciWeb == '') {
$rowEstableci = BuscarDetalleEstableci($idEstablecimiento, $cuitEmpresa);
$CUIT = $cuitEmpresa;
$ESTABLECI = $idEstablecimiento;
$TIPOESTAB = 'O';
$TIPONOMINA = 'S';
$IDACTIVIDAD = $rowEstableci['ES_IDACTIVIDAD'];
$DESCRIPCIONESTAB = $rowEstableci['AC_DESCRIPCION'];
$USUALTA = $usualta;
$IDestableciWeb = Insert_EstablecimientoWEB($conn, $CUIT, $ESTABLECI, $TIPOESTAB, $TIPONOMINA, $IDACTIVIDAD, $DESCRIPCIONESTAB, $USUALTA);
}
$idcabeceranomina = Insert_CabeceraNominaWEB($conn, $IDestableciWeb, $cantidad, $usualta);
$params = array(":cuit" => $cuitEmpresa, ":estableci" => $idEstablecimiento);
$stmt = DBExecSql($conn, $sql, $params);
while ($row = DBGetQuery($stmt)) {
$cuilTrabajador = $row["CUIL"];
$nombre = $row["NOMBRE"];
$fechaingreso = $row["FECHAINGRESO"];
$fechainiexpo = $row["FECHAINIEXPO"];
$sectortrab = $row["SECTOR"];
$puestotrab = $row["PUESTO"];
$resultValida = Valida_TrabajadorEnOtraNomina($cuilTrabajador, $cuitEmpresa, $idEstablecimiento);
if ($resultValida == 0) {
Insert_DetalleNominaWEB($conn, $idcabeceranomina, $cuilTrabajador, $nombre, $fechaingreso, $sectortrab, $puestotrab, $usualta);
$cantidad++;
} else {
$showtext = ' - <b>' . $nombre . '</b> <i>cuil (' . $cuilTrabajador . ')</i> ';
switch ($resultValida) {
case 1:
$lista_resultados .= $showtext . ' fue presentado en una nomina web <p>';
break;
case 2:
$lista_resultados .= $showtext . ' esta declarado en una nomina ya aprobada <p>';
break;
case 3:
$lista_resultados .= $showtext . ' ya esta ingresado en una nomina web <p>';
break;
}
}
}
Update_CantidadCabeceraNominaWEB($conn, $idcabeceranomina, $cantidad, $usualta);
SetSessionVarNPE($IDestableciWeb, $cuitEmpresa, 'NominaPersonalExpuesto');
DBCommit($conn);
return $lista_resultados;
} catch (Exception $e) {
DBRollback($conn);
SalvarErrorTxt(__FILE__, __FUNCTION__, __LINE__, $e->getMessage());
return RetronaXML($e->getMessage());
}
}
function GrabarEstadoNomina($IDESTABLECIMIENTOWEB, $ESTADONOMINA, $conectar = false, $conn = null)
{
/*
$ESTADONOMINA VALORES:
Null: no está generada
C: está generada y puede continuar editándose. No puede ser importada por hys.
L: está generada. Cuando se edita pasa a estado ‘C’ nuevamente. En estado ‘L’ puede ser importada por hys.
A: Aprobada. No puede editarse. No se puede generar otra nómina en el año vía web.
R: Rechazada: Mostrará la leyenda ‘RECHAZADA’ (tipo link) que al hacer sobre el mismo abrirá un cartel con el motivo de rechazo y la observación. Si la nómina del año actual está rechazada, el usuario podrá cargar una nueva nómina (no editar la rechazada), por lo que el ícono de ‘Columna Nueva Presentación’ volverá al estado ‘No generada’ (Null)
*/
try {
if ($conectar) {
global $conn;
}
$sqlParamVersion = " ";
$params = array(":ID" => $IDESTABLECIMIENTOWEB, ":ESTADONOMINA" => $ESTADONOMINA);
if ($ESTADONOMINA == 'L') {
$VERSIONNOMINA = GetLastVersionEstableci($IDESTABLECIMIENTOWEB) + 1;
$params[":VERSIONNOMINA"] = $VERSIONNOMINA;
$sqlParamVersion .= " EW_VERSIONNOMINA = :VERSIONNOMINA, ";
$sqlParamVersion .= " EW_FECHAIMPRESIONNOMINA = SYSDATE, ";
} else {
$sqlParamVersion .= " EW_FECHAIMPRESIONNOMINA = '', ";
}
$sql = "UPDATE HYS.HEW_ESTABLECIMIENTOWEB\t\t\t\n\t\t\t\tSET\n\t\t\t\t\t" . $sqlParamVersion . "\n\t\t\t\t\tEW_ESTADO = :ESTADONOMINA \t\t\t\t\t\n\t\t\t\t\tWHERE EW_ID = :ID ";
DBExecSql($conn, $sql, $params);
if ($conectar) {
DBCommit($conn);
}
return true;
} catch (Exception $e) {
DBRollback($conn);
SalvarErrorTxt(__FILE__, __FUNCTION__, __LINE__, $e->getMessage());
throw new Exception("Error " . $e->getMessage());
}
}