function InsertarPeritajeNuevo($txtFechaAsignacion, $txtFechaPericia, $txtFVencImpug, $cmbPericia, $txtResultados, $nrojuicio, $usuario, $incapacidadDemanda, $incapacidadPeritoMedico, $ibmArt, $ibmPericial, $impugnacion, $idperito)
{
try {
global $conn;
$peritajeid = GetSecNextValOracle('legales.seq_lpj_id');
$montodemanda = $incapacidadDemanda;
$montomedico = $incapacidadPeritoMedico;
$montoart = $ibmArt;
$montopericial = $ibmPericial;
$sqlInsert = " INSERT INTO legales.lpj_peritajejuicio \n (pj_id, PJ_IDPERITO, pj_fechanotificacion, \n pj_fechaperitaje, pj_fechavencimpugnacion, \n pj_resultadoperitaje, pj_fechaalta, \n pj_usualta, pj_idjuicioentramite, \n pj_idtipopericia, pj_incapacidaddemanda, \n pj_incapacidadperitomedico, pj_ibmart, \n pj_ibmpericial, pj_impugnacion \n ) \n VALUES (\t:pj_id, \n \t\t\t:pj_IDPERITO,\n \t\t\tTO_DATE(:pj_fechanotificacion, 'DD/MM/YYYY'), \n \t\t\tTO_DATE(:pj_fechaperitaje, 'DD/MM/YYYY'), \n \t\t\tTO_DATE(:pj_fechavencimpugnacion, 'DD/MM/YYYY'), \n\t TRIM(:pj_resultadoperitaje), \n\t SYSDATE, \n\t :pj_usualta, \n\t :pj_idjuicioentramite, \n\t\t\t\tTO_NUMBER(:pj_idtipopericia), \n\t\t\t\tTO_NUMBER(:pj_incapacidaddemanda), \n\t\t\t\tTO_NUMBER(:pj_incapacidadperitomedico), \n\t\t\t\tTO_NUMBER(:pj_ibmart), \n\t\t\t\tTO_NUMBER(:pj_ibmpericial), \n\t\t\t\t:pj_impugnacion )";
/*
$txtFechaAsignacion = GetStrToDate($txtFechaAsignacion);
$txtFechaPericia = GetStrToDate($txtFechaPericia);
$txtFVencImpug = GetStrToDate($txtFVencImpug);
*/
$cmbPericia = (int) $cmbPericia;
$montodemanda = Getfloat($montodemanda);
$montomedico = Getfloat($montomedico);
$montoart = Getfloat($montoart);
$montopericial = Getfloat($montopericial);
if (trim($impugnacion) == 'S' or trim($impugnacion) == 'N') {
$impugnacion = trim($impugnacion);
} else {
$impugnacion = '';
}
$params = array(":pj_id" => $peritajeid, ":pj_IDPERITO" => $idperito, ":pj_fechanotificacion" => $txtFechaAsignacion, ":pj_fechaperitaje" => $txtFechaPericia, ":pj_fechavencimpugnacion" => $txtFVencImpug, ":pj_resultadoperitaje" => TRIM($txtResultados), ":pj_usualta" => $usuario, ":pj_idjuicioentramite" => $nrojuicio, ":pj_idtipopericia" => $cmbPericia, ":pj_incapacidaddemanda" => $montodemanda, ":pj_incapacidadperitomedico" => $montomedico, ":pj_ibmart" => $montoart, ":pj_ibmpericial" => $montopericial, ":pj_impugnacion" => $impugnacion);
@DBExecSql($conn, $sqlInsert, $params);
//----------------------------------------------------------------------
DBCommit($conn);
return $peritajeid;
} catch (Exception $e) {
DBRollback($conn);
return 0;
}
}
function NexValOracle($tablaSeqId)
{
//Retorna el proximo id dado un sequencer Ej:'legales.seq_lpj_id'
return GetSecNextValOracle($tablaSeqId);
}
try {
SetDateFormatOracle("DD/MM/YYYY");
ini_set("memory_limit", "256M");
set_time_limit(1800);
guardarLog();
error_reporting(E_ALL ^ E_NOTICE);
$excel = new Spreadsheet_Excel_Reader($_FILES["archivo"]["tmp_name"]);
$cuits = array();
$hayRegistros = false;
$primerPeriodo = $excel->val(2, "H");
$seqTrans = GetSecNextValOracle("TMP.SEQ_TOP_TRANSACCION");
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<=95; $col++)
$cols[getColPos($col)] = $excel->val($row, getColPos($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 (trim($value) != "")
$existeValor = true;
if (!$existeValor)
break;
function GetSecNextVal($sec)
{
if (DB_ENGINE == "oracle") {
return GetSecNextValOracle($sec);
}
}
SET ip_usubaja = UPPER(:usubaja),
ip_fechabaja = SYSDATE
WHERE ip_id = :id";
DBExecSql($conn, $sql, $params);
?>
<script>
window.parent.location.reload();
</script>
<?
}
if ($_REQUEST["action"] == "G") { // Guardar..
try {
if ($_POST["Id"] == -1) // Es una alta..
$id = GetSecNextValOracle("intra.seq_cip_id");
else
$id = $_POST["Id"];
$filePath = uploadFile($id, ($_POST["Id"] == -1));
if ($_POST["Id"] == -1) { // Es una alta..
$sql =
"INSERT INTO intra.cip_informepublicado (ip_id, ip_idtema, ip_archivo, ip_titulo, ip_activo, ip_usualta, ip_fechaalta)
VALUES (:id, :idtema, :archivo, :titulo, :activo, UPPER(:usualta), SYSDATE)";
$params = array(":activo" => $_POST["Activo"],
":archivo" => $filePath,
":id" => $id,
":idtema" => $_POST["tema"],
":titulo" => $_POST["Titulo"],
":usualta" => GetWindowsLoginName());
sf_observacion)
SELECT te_area, 1, :idestablecimiento, te_idtipotelefono, te_interno, te_numero, te_principal,
te_observacion
FROM ate_telefonoestablecimiento
WHERE te_idestablecimiento = :idestablecimiento";
DBExecSql($conn, $sql, $params, OCI_DEFAULT);
}
}
else { // Sino, es una solicitud de cotización..
$params = array(":idsolicitud" => $idSolicitudAfiliacion);
$sql =
"SELECT 1
FROM ase_solicitudestablecimiento
WHERE se_idsolicitud = :idsolicitud";
if (!ExisteSql($sql, $params, 0)) { // Si no tiene establecimientos, agrego uno..
$idEstablecimiento = GetSecNextValOracle("AFI.SEQ_ASE_ID", OCI_DEFAULT);
$params = array(":idsolicitud" => $idSolicitudAfiliacion);
$sql = "SELECT NVL(MAX(se_nroestableci), 0) + 1 FROM ase_solicitudestablecimiento WHERE se_idsolicitud = :idsolicitud";
$nroEstablecimiento = ValorSql($sql, "", $params, 0);
$params = array(":calle" => $_POST["calle"],
":cpostal" => $_POST["codigoPostal"],
":departamento" => $_POST["oficina"],
":empleados" => $_POST["trabajadoresCantidad"],
":feinicactiv" => $_POST["fechaInicioActividad"],
":id" => $idEstablecimiento,
":idactividad" => getIdActividad($_POST["ciiu"]),
":idsolicitud" => $idSolicitudAfiliacion,
":localidad" => $_POST["localidad"],
":masa" => formatFloat($_POST["trabajadoresMasaSalarial"]),
