function verRpteExcel()
{
$id = VAR3;
$where = "";
$tab_extransferencia = new tab_exptransferencia();
$result = $tab_extransferencia->dbSelectBySQL("select* from tab_exptransferencia where str_id={$id}");
$cantidad = count($result);
$valor3 = "";
$t = 1;
foreach ($result as $row) {
$valor3 .= "tab_expediente.exp_id={$row->exp_id}";
if ($t < $cantidad) {
$valor3 .= " or ";
}
$t++;
}
$where .= " AND {$valor3} ";
$sql = "SELECT\r\n f.fon_codigo,\r\n f.fon_cod,\r\n (SELECT fon_codigo from tab_fondo WHERE fon_id=f.fon_par) ||'.'|| f.fon_codigo ||'.'||tab_unidad.uni_cod ||'.'|| tab_tipocorr.tco_codigo ||'.'||tab_series.ser_codigo||'.'||\r\n tab_expediente.exp_codigo AS codigo,\r\n (NULLIF(tab_expediente.exp_codigo,'')::int) as cantidad,\r\n tab_soltransferencia.str_id,\r\n tab_soltransferencia.str_fecha,\r\n tab_soltransferencia.uni_id,\r\n tab_soltransferencia.unid_id,\r\n tab_soltransferencia.str_nrocajas,\r\n tab_soltransferencia.str_totpzas,\r\n tab_soltransferencia.str_totml,\r\n tab_soltransferencia.str_nroreg,\r\n tab_soltransferencia.str_fecini,\r\n tab_soltransferencia.str_fecfin,\r\n tab_soltransferencia.str_estado,\r\n tab_soltransferencia.usu_id,\r\n tab_soltransferencia.usud_id,\r\n tab_soltransferencia.str_direccion,\r\n tab_soltransferencia.str_telefono,\r\n tab_expisadg.exp_fecha_exi,\r\n tab_expisadg.exp_fecha_exf,\r\n tab_expisadg.exp_anioi,\r\n tab_expisadg.exp_aniof,\r\n tab_expisadg.exp_titulo,\r\n tab_series.ser_codigo,\r\n tab_unidad.uni_codigo,\r\n tab_unidad.uni_id,\r\n tab_unidad.uni_par,\r\n tab_unidad.uni_cod,\r\n tab_unidad.uni_descripcion,\r\n f.fon_cod,\r\n tab_series.ser_categoria,\r\n tab_expisadg.exp_titulo,\r\n tab_expediente.exp_obs,\r\n tab_series.ser_id,\r\n tab_series.ser_par,\r\n tab_expediente.exp_id\r\n FROM\r\n tab_unidad\r\n INNER JOIN tab_fondo as f ON tab_unidad.fon_id = f.fon_id\r\n INNER JOIN tab_series ON tab_series.uni_id = tab_unidad.uni_id\r\n INNER JOIN tab_expediente ON tab_expediente.ser_id = tab_series.ser_id\r\n INNER JOIN tab_expisadg ON tab_expisadg.exp_id = tab_expediente.exp_id\r\n INNER JOIN tab_exptransferencia ON tab_expediente.exp_id = tab_exptransferencia.exp_id\r\n INNER JOIN tab_soltransferencia ON tab_soltransferencia.str_id = tab_exptransferencia.str_id\r\n INNER JOIN tab_tipocorr ON tab_tipocorr.tco_id = tab_series.tco_id\r\n WHERE\r\n tab_soltransferencia.str_estado = 2 AND\r\n tab_expediente.exp_estado = 1 {$where} order by tab_expediente.exp_id ";
$usua = new usuario();
$subfondo = new fondo();
$seccion = new unidad();
$expedientes = new expediente();
$archivo = new tab_archivo();
$archivo2 = new tab_archivo();
$query = $archivo->dbSelectBySQL($sql);
$query2 = $archivo2->dbSelectBySQL($sql);
foreach ($query2 as $ids) {
$usu_id = $ids->usu_id;
$uni_id = $ids->uni_id;
$uni_par = $ids->uni_par;
$uni_cod = $ids->uni_cod;
$str_telefono = $ids->str_telefono;
$str_id = $ids->str_id;
$str_fecha = $ids->str_fecha;
$str_direccion = $ids->str_direccion;
$uni_descripcion = $ids->uni_descripcion;
}
$usuarioOrigen = $usua->obtenerNombre($usu_id);
$usuarioDestino = $usua->obtenerNombre($usu_id);
$fond = $subfondo->obtenerfon($usu_id);
$ob_seccion = $seccion->obtenerSeccion($uni_id);
$cadena = "";
$cadena = "<br/><br/><br/><br/><br/><br/><br/>";
$cadena .= '<table width="740" border="1">';
$cadena .= '<tr>';
$cadena .= '<td colspan="10" align="center" ><b>';
$cadena .= 'FORMULARIO DE RELACION DE TRANSFERENCIAS</b><br /></td>';
$cadena .= '</tr>';
$cadena .= '<tr>';
$cadena .= '<td colspan="9" align="right" style=border:none ><b>';
$cadena .= 'Nº de transferencia:</b></td><td align="center">' . $str_id . '</td>';
$cadena .= '</tr>';
// $cadena.='<tr>';
// $cadena.='<td colspan="10" align="right" ><b>';
// $cadena.='<b>Nº de transferencia:</b> '.$str_id.'</td>';
// $cadena.='</tr>';
$cadena .= '<tr>';
$cadena .= '<td colspan="5"><blockquote>';
$cadena .= '<b>Subfondo:</b> ' . $fond . '<br />';
$cadena .= '<b>Sección:</b> ';
$explode = explode(".", $uni_cod);
$contado = count($explode);
$codigo = "";
for ($t = 0; $t < $contado - 1; $t++) {
$codigo .= $explode[$t];
if ($t < $contado - 2) {
$codigo .= ".";
}
}
$codigo2 = $codigo;
if (strlen($codigo) == 1) {
$codigo = $codigo . ".0";
} else {
$estraer_codigo = explode(".", $codigo);
$codigo = $estraer_codigo[0] . ".0";
}
$tab_unidad = new Tab_unidad();
$unidad = new unidad();
$sqlUni2 = "SELECT\r\n tab_unidad.uni_descripcion\r\n FROM\r\n tab_unidad\r\n WHERE\r\n tab_unidad.uni_cod = '{$codigo}'";
$codigoss = explode(".", $codigo2);
$cantcodigo2 = count($codigoss);
if ($cantcodigo2 == 1) {
$codigo2 = "{$codigo2}.1";
}
$sqlUni1 = "SELECT\r\n tab_unidad.uni_descripcion\r\n FROM\r\n tab_unidad\r\n WHERE\r\n tab_unidad.uni_cod = '{$codigo2}'";
$resultadott = $tab_unidad->dbSelectBySQL($sqlUni2);
$resultadott1 = $tab_unidad->dbSelectBySQL($sqlUni1);
$ca1 = "";
foreach ($resultadott1 as $rowss2) {
$ca1 = $rowss2->uni_descripcion;
}
foreach ($resultadott as $rowss) {
$ca = $rowss->uni_descripcion;
}
$variable = $ca;
$excluirparent = explode("(", $variable);
if ($excluirparent[1] == "") {
$ca = $ca;
} else {
$excluirultimoparent = $excluirparent[1] . "x";
$imprimir_descripcion = explode(")", $excluirultimoparent);
$ca = $imprimir_descripcion[0];
}
$ca = $unidad->obtenerPadre($uni_par, $uni_descripcion);
$cadena .= $ca;
$cadena .= '<br><b>Subsección:</b> ';
$cadena .= $ca1;
$cadena .= '</blockquote></td>';
//$cadena.='<td colspan="5" ><blockquote><b>Unidad:</b> '.$uni_descripcion;
$cadena .= '<td colspan="5" ><blockquote>';
$cadena .= '<br /><b>Teléfono:</b> ' . $str_telefono . '</blockquote></td>';
$cadena .= '</tr>';
$cadena .= '<tr>';
$cadena .= '<td width="20" rowspan="2" align="center" bgcolor="#CCCCCC"><strong>Nº</strong></td>';
$cadena .= '<td width="105" rowspan="2" style="text-align:center" bgcolor="#CCCCCC"><strong>Serie</strong></td>';
$cadena .= '<td width="120" rowspan="2" style="text-align:center" bgcolor="#CCCCCC"><strong>Subserie</strong></td>';
$cadena .= '<td width="125" rowspan="2" style="text-align:center" bgcolor="#CCCCCC"><strong>Título del Expediente</strong></td>';
$cadena .= '<td width="80" rowspan="2" style="text-align:center" bgcolor="#CCCCCC"><strong>Código de Referencia</strong></td>';
$cadena .= '<td colspan="2" width="130" style="text-align:center" bgcolor="#CCCCCC"><strong>Fechas extremas</strong></td>';
$cadena .= '<td width="30" rowspan="2" bgcolor="#CCCCCC" style="font-size:25px"><strong >NºDoc.</strong></td>';
$cadena .= '<td width="30" rowspan="2" bgcolor="#CCCCCC"><strong>Cajas</strong></td>';
$cadena .= '<td width="100" rowspan="2" style="text-align:center" bgcolor="#CCCCCC"><p><strong>Observ.</strong></p></td>';
$cadena .= '</tr>';
$cadena .= '<tr>';
$cadena .= '<td width="65" style="text-align:center" bgcolor="#CCCCCC"><strong>Inicio</strong></td>';
$cadena .= '<td width="65" style="text-align:center" bgcolor="#CCCCCC"><strong>Final</strong></td>';
$cadena .= '</tr>';
$sum = 0;
$i = 1;
$cant = 0;
foreach ($query as $row) {
$tabserie = new tab_series();
if ($row->exp_fecha_exi == "") {
$fei = "";
} else {
$fechainicial = explode("-", $row->exp_fecha_exi);
$fei = $fechainicial[2] . "/" . $fechainicial[1] . "/" . $fechainicial[0];
}
if ($row->exp_fecha_exf == "") {
$fef = "";
} else {
$fechafinal = explode("-", $row->exp_fecha_exf);
$fef = $fechafinal[2] . "/" . $fechafinal[1] . "/" . $fechafinal[0];
}
$lugar = "";
$cadena .= '<tr>';
$cadena .= '<td align="center">' . $i . '</td>';
$cadena .= '<td style="font-size:22px">';
$tab_serie = new Tab_series();
$lugar2 = "";
if ($row->ser_par != -1) {
$rowsdb = $tab_serie->dbselectByField("ser_id", $row->ser_par);
foreach ($rowsdb as $fila) {
$ser_par = $fila->ser_par;
$ser_categoria = $fila->ser_categoria;
}
if ($ser_par != -1) {
$cadena .= $ser_categoria;
} else {
$cadena .= $row->ser_categoria;
$lugar = $row->ser_categoria;
}
} else {
$cadena .= $row->ser_categoria;
$lugar2 = $row->ser_categoria;
}
$cadena .= '</td>';
$cadena .= '<td style="font-size:22px">';
if ($lugar2 != $row->ser_categoria && $row->ser_categoria != $lugar) {
$cadena .= $row->ser_categoria;
}
$expsum = $expedientes->cantidadExpedientes($row->exp_id);
// $cajas=$expedientes->cantidadCajas($row->exp_id);
$cant = $cant + $expsum;
// $sum=$sum+$cajas;
$cadena .= '</td>';
$cadena .= '<td align="left" style="font-size:22px">' . htmlentities($row->exp_titulo, ENT_COMPAT, 'utf-8') . '</td>';
$cadena .= '<td align="center" style="font-size:22px">' . $row->codigo . '</td>';
$cadena .= '<td align="center" style="font-size:22px">' . $row->exp_anioi . '</td>';
$cadena .= '<td align="center" style="font-size:22px">' . $row->exp_aniof . '</td>';
$cadena .= '<td align="center" style="font-size:22px">' . $expsum . '</td>';
$cadena .= '<td align="center"></td>';
$cadena .= '<td style="font-size:22px">' . $row->exp_obs . '</td>';
$cadena .= '</tr>';
$i++;
}
$cadena .= '<tr>';
$cadena .= '<td colspan="6" align="right" >TOTAL</td>';
$cadena .= '<td align="center"></td>';
$cadena .= '<td align="center">' . $cant . '</td>';
$cadena .= '<td></td>';
$cadena .= '<td> </td>';
$cadena .= '</tr>';
$cadena .= '</table>';
$fecha = explode("-", $str_fecha);
$anio = $fecha[0];
$mes = $fecha[1];
$dia = $fecha[2];
switch ($mes) {
case 1:
$mes = "Enero";
break;
case 2:
$mes = "Enero";
break;
case 3:
$mes = "Enero";
break;
case 4:
$mes = "Enero";
break;
case 5:
$mes = "Enero";
break;
case 6:
$mes = "Enero";
break;
case 7:
$mes = "Enero";
break;
case 8:
$mes = "Enero";
break;
case 9:
$mes = "Enero";
break;
case 10:
$mes = "Enero";
break;
case 11:
$mes = "Enero";
break;
case 12:
$mes = "Enero";
break;
}
$cadena .= '<b>Lugar y fecha de la transferencia:</b> ' . $str_direccion . ' ' . $dia . ' de ' . $mes . ' de ' . $anio;
$cadena .= '<br/>';
require_once 'tcpdf/config/lang/eng.php';
require_once 'tcpdf/tcpdf.php';
$pdf = new TCPDF('L', PDF_UNIT, 'LETTER', true, 'UTF-8', false);
$pdf->SetCreator(PDF_CREATOR);
$pdf->setFontSubsetting(FALSE);
$pdf->SetAuthor("Castellon");
$pdf->SetTitle('Reporte de Transferencia');
$pdf->SetSubject('Reporte de Transferencia');
// aumentado
$pdf->SetKeywords('Castellon, TEAM DIGITAL');
// set default header data
$pdf->SetHeaderData('logo2.png', 20, 'MPD', 'ADMINISTRADORA BOLIVIANA DE CARRETERAS (MPD)');
// set header and footer fonts
$pdf->setHeaderFont(array(PDF_FONT_NAME_MAIN, '', PDF_FONT_SIZE_MAIN));
// $pdf->setFooterFont(Array(PDF_FONT_NAME_DATA, '', PDF_FONT_SIZE_DATA));
//
$pdf->SetDefaultMonospacedFont(PDF_FONT_MONOSPACED);
$pdf->SetMargins(5, 30, 10);
$pdf->SetHeaderMargin(PDF_MARGIN_HEADER);
// $pdf->setPrintHeader(false);
$pdf->setPrintFooter(false);
//set auto page breaks
$pdf->SetAutoPageBreak(TRUE, 14);
// $pdf->setImageScale(PDF_IMAGE_SCALE_RATIO);
//set some language-dependent strings
$pdf->setLanguageArray($l);
$pdf->SetFont('helvetica', '', 10);
// add a page
$pdf->AddPage();
// $pdf->SetXY(110, 200);
$pdf->Image(PATH_ROOT . '/web/img/iso.png', '255', '8', 15, 15, 'PNG', '', 'T', false, 300, '', false, false, 1, false, false, false);
$cadena2 = "";
$cadena2 .= "<br/><br/><br/><br/>";
$cadena2 .= '<table width="740" border="0">';
$cadena2 .= '<tr>';
$cadena2 .= '<td width="100" height="65" ></td><td width="160" align="center" >';
$cadena2 .= '<h4 style="border-top:1px solid black">Archivista Remitente<br>' . $usuarioOrigen . '</h4>';
$cadena2 .= '</td><td width="100"></td>';
$cadena2 .= '<td width="100" ></td><td width="150" align="center">';
$cadena2 .= '<h4 style="border-top:1px solid black">Archivista de Recepción<br>' . $usuarioDestino . '</h4></td>';
$cadena2 .= '<td width="100"></td></tr>';
$cadena2 .= '<tr>';
$cadena2 .= '<td width="100" height="65" ></td><td width="160" align="center" >';
$cadena2 .= '<h4 style="border-top:1px solid black">Autoridad<br>Unidad Remitente</h4>';
$cadena2 .= '</td><td width="100"></td>';
$cadena2 .= '<td width="100" ></td><td width="150" align="center">';
$cadena2 .= '<h4 style="border-top:1px solid black">SGE / DOC<br></h4></td>';
$cadena2 .= '<td width="100"></td></tr>';
$cadena2 .= '</table>';
$cadena = $cadena . $cadena2;
$pdf->writeHTML($cadena, true, false, false, false, '');
// -----------------------------------------------------------------------------
//Close and output PDF document
// $pdf->Output('reporte_transferencia.pdf', 'D');
$pdf->Output('reporte_transferencia.pdf', 'I');
Header("Location: " . PATH_DOMAIN . "/soltransferencia/");
}
function verRpteExcel()
{
header("Content-type: application/vnd.ms-excel; name='excel'");
header("Content-Disposition: filename=transferencia_expedientes.xls");
header("Pragma: no-cache");
header("Expires: 0");
$id = VAR3;
$where = "";
$tab_extransferencia = new tab_exptransferencia();
$result = $tab_extransferencia->dbSelectBySQL("select* from tab_exptransferencia where str_id={$id}");
$cantidad = count($result);
$valor3 = "";
$t = 1;
foreach ($result as $row) {
$valor3 .= "tab_expediente.exp_id={$row->exp_id}";
if ($t < $cantidad) {
$valor3 .= " or ";
}
$t++;
}
$where .= " AND {$valor3} ";
$sql = "SELECT\r\n f.fon_codigo,\r\n f.fon_cod,\r\n (SELECT fon_codigo from tab_fondo WHERE fon_id=f.fon_par) ||'.'|| f.fon_codigo ||'.'||tab_unidad.uni_cod ||'.'|| tab_tipocorr.tco_codigo ||'.'||tab_series.ser_codigo||'.'||\r\n tab_expediente.exp_codigo AS codigo,\r\n (NULLIF(tab_expediente.exp_codigo,'')::int) as cantidad,\r\n tab_soltransferencia.str_id,\r\n tab_soltransferencia.str_fecha,\r\n tab_soltransferencia.uni_id,\r\n tab_soltransferencia.unid_id,\r\n tab_soltransferencia.str_nrocajas,\r\n tab_soltransferencia.str_totpzas,\r\n tab_soltransferencia.str_totml,\r\n tab_soltransferencia.str_nroreg,\r\n tab_soltransferencia.str_fecini,\r\n tab_soltransferencia.str_fecfin,\r\n tab_soltransferencia.str_estado,\r\n tab_soltransferencia.usu_id,\r\n tab_soltransferencia.usud_id,\r\n tab_soltransferencia.str_direccion,\r\n tab_soltransferencia.str_telefono,\r\n tab_expisadg.exp_fecha_exi,\r\n tab_expisadg.exp_fecha_exf,\r\n tab_expisadg.exp_anioi,\r\n tab_expisadg.exp_aniof,\r\n tab_expisadg.exp_titulo,\r\n tab_series.ser_codigo,\r\n tab_unidad.uni_codigo,\r\n tab_unidad.uni_id,\r\n tab_unidad.uni_par,\r\n tab_unidad.uni_cod,\r\n tab_unidad.uni_descripcion,\r\n f.fon_cod,\r\n tab_series.ser_categoria,\r\n tab_expisadg.exp_titulo,\r\n tab_expediente.exp_obs,\r\n tab_series.ser_id,\r\n tab_series.ser_par,\r\n tab_expediente.exp_id\r\n FROM\r\n tab_unidad\r\n INNER JOIN tab_fondo as f ON tab_unidad.fon_id = f.fon_id\r\n INNER JOIN tab_series ON tab_series.uni_id = tab_unidad.uni_id\r\n INNER JOIN tab_expediente ON tab_expediente.ser_id = tab_series.ser_id\r\n INNER JOIN tab_expisadg ON tab_expisadg.exp_id = tab_expediente.exp_id\r\n INNER JOIN tab_exptransferencia ON tab_expediente.exp_id = tab_exptransferencia.exp_id\r\n INNER JOIN tab_soltransferencia ON tab_soltransferencia.str_id = tab_exptransferencia.str_id\r\n INNER JOIN tab_tipocorr ON tab_tipocorr.tco_id = tab_series.tco_id\r\n WHERE\r\n tab_soltransferencia.str_estado = 2 \r\n AND tab_expediente.exp_estado = 1 \r\n {$where} \r\n ORDER BY f.fon_cod,\r\n tab_unidad.uni_cod,\r\n tab_series.ser_orden, \r\n tab_series.ser_codigo, \r\n tab_expediente.exp_codigo::int ";
$usua = new usuario();
$subfondo = new fondo();
$seccion = new unidad();
$expedientes = new expediente();
$archivo = new tab_archivo();
$archivo2 = new tab_archivo();
$query = $archivo->dbSelectBySQL($sql);
$query2 = $archivo2->dbSelectBySQL($sql);
$usu_id = "";
$usud_id = "";
$uni_id = "";
foreach ($query2 as $ids) {
$usu_id = $ids->usu_id;
$usud_id = $ids->usud_id;
$uni_id = $ids->uni_id;
$uni_par = $ids->uni_par;
$uni_cod = $ids->uni_cod;
$str_telefono = $ids->str_telefono;
$str_id = $ids->str_id;
$str_fecha = $ids->str_fecha;
$str_direccion = $ids->str_direccion;
$uni_descripcion = $ids->uni_descripcion;
}
$usuarioOrigen = $usua->obtenerNombre($usu_id);
$usuarioDestino = $usua->obtenerNombre($usud_id);
$fond = $subfondo->obtenerfon($usu_id);
$ob_seccion = $seccion->obtenerSeccion($uni_id);
$cadena = "";
$cadena .= '<table width="740" border="1">';
$cadena .= '<tr>';
$cadena .= '<td colspan="10" align="center" ><b>';
$cadena .= 'FORMULARIO DE RELACION DE TRANSFERENCIAS</b><br /></td>';
$cadena .= '</tr>';
$cadena .= '<tr>';
$cadena .= '<td colspan="9" align="right" style=border:none ><b>';
$cadena .= 'Nro. de transferencia:</b></td><td align="center">' . $str_id . '</td>';
$cadena .= '</tr>';
$cadena .= '<tr>';
$cadena .= '<td colspan="5">';
$cadena .= '<b>Subfondo:</b> ' . $fond . '<br />';
$cadena .= '<b>Sección:</b> ';
$explode = explode(".", $uni_cod);
$contado = count($explode);
$codigo = "";
for ($t = 0; $t < $contado - 1; $t++) {
$codigo .= $explode[$t];
if ($t < $contado - 2) {
$codigo .= ".";
}
}
$codigo2 = $codigo;
if (strlen($codigo) == 1) {
$codigo = $codigo . ".0";
} else {
$estraer_codigo = explode(".", $codigo);
$codigo = $estraer_codigo[0] . ".0";
}
$tab_unidad = new Tab_unidad();
$unidad = new unidad();
$sqlUni2 = "SELECT\r\n tab_unidad.uni_descripcion\r\n FROM\r\n tab_unidad\r\n WHERE\r\n tab_unidad.uni_cod = '{$codigo}'";
$codigoss = explode(".", $codigo2);
$cantcodigo2 = count($codigoss);
if ($cantcodigo2 == 1) {
$codigo2 = "{$codigo2}.1";
}
$sqlUni1 = "SELECT\r\n tab_unidad.uni_descripcion\r\n FROM\r\n tab_unidad\r\n WHERE\r\n tab_unidad.uni_cod = '{$codigo2}'";
$resultadott = $tab_unidad->dbSelectBySQL($sqlUni2);
$resultadott1 = $tab_unidad->dbSelectBySQL($sqlUni1);
$ca1 = "";
foreach ($resultadott1 as $rowss2) {
$ca1 = $rowss2->uni_descripcion;
}
foreach ($resultadott as $rowss) {
$ca = $rowss->uni_descripcion;
}
$variable = $ca;
$excluirparent = explode("(", $variable);
if ($excluirparent[1] == "") {
$ca = $ca;
} else {
$excluirultimoparent = $excluirparent[1] . "x";
$imprimir_descripcion = explode(")", $excluirultimoparent);
$ca = $imprimir_descripcion[0];
}
$ca = $unidad->obtenerPadre($uni_par, $uni_descripcion);
$cadena .= $ca;
$cadena .= '<br><b>Subsección:</b> ';
$cadena .= $ca1;
$cadena .= '</td>';
$cadena .= '<td colspan="5" >';
$cadena .= '<br /><b>Teléfono:</b> ' . $str_telefono . '</td>';
$cadena .= '</tr>';
$cadena .= '<tr>';
$cadena .= '<td width="20" rowspan="2" align="center" bgcolor="#CCCCCC"><strong>Nro.</strong></td>';
$cadena .= '<td width="125" colspan="2" rowspan="2" style="text-align:center" bgcolor="#CCCCCC"><strong>Serie/Subserie</strong></td>';
$cadena .= '<td width="225" rowspan="2" style="text-align:center" bgcolor="#CCCCCC"><strong>Título del Expediente</strong></td>';
$cadena .= '<td width="90" rowspan="2" style="text-align:center" bgcolor="#CCCCCC"><strong>Código de Referencia</strong></td>';
$cadena .= '<td width="100" colspan="2" style="text-align:center" bgcolor="#CCCCCC"><strong>Fechas extremas</strong></td>';
$cadena .= '<td width="40" rowspan="2" bgcolor="#CCCCCC" style="font-size:25px"><strong >Nro.Doc.</strong></td>';
$cadena .= '<td width="40" rowspan="2" bgcolor="#CCCCCC"><strong>Cajas</strong></td>';
$cadena .= '<td width="100" rowspan="2" style="text-align:center" bgcolor="#CCCCCC"><p><strong>Obs.</strong></p></td>';
$cadena .= '</tr>';
$cadena .= '<tr>';
$cadena .= '<td width="50" style="text-align:center" bgcolor="#CCCCCC"><strong>Inicio</strong></td>';
$cadena .= '<td width="50" style="text-align:center" bgcolor="#CCCCCC"><strong>Final</strong></td>';
$cadena .= '</tr>';
$sum = 0;
$i = 1;
$cant = 0;
foreach ($query as $row) {
$tabserie = new tab_series();
if ($row->exp_fecha_exi == "") {
$fei = "";
} else {
$fechainicial = explode("-", $row->exp_fecha_exi);
$fei = $fechainicial[2] . "/" . $fechainicial[1] . "/" . $fechainicial[0];
}
if ($row->exp_fecha_exf == "") {
$fef = "";
} else {
$fechafinal = explode("-", $row->exp_fecha_exf);
$fef = $fechafinal[2] . "/" . $fechafinal[1] . "/" . $fechafinal[0];
}
$cadena .= '<tr>';
$cadena .= '<td align="center">' . $i . '</td>';
$cadena .= '<td colspan="2" style="font-size:22px">';
$cadena .= $row->ser_categoria;
$expsum = $expedientes->cantidadExpedientes($row->exp_id);
$cant = $cant + $expsum;
$cadena .= '</td>';
$cadena .= '<td align="left" style="font-size:22px">' . htmlentities($row->exp_titulo, ENT_COMPAT, 'utf-8') . '</td>';
$cadena .= '<td align="center" style="font-size:22px">' . $row->codigo . '</td>';
$cadena .= '<td align="center" style="font-size:22px">' . $row->exp_anioi . '</td>';
$cadena .= '<td align="center" style="font-size:22px">' . $row->exp_aniof . '</td>';
$cadena .= '<td align="center" style="font-size:22px">' . $expsum . '</td>';
$cadena .= '<td align="center"></td>';
$cadena .= '<td style="font-size:22px">' . $row->exp_obs . '</td>';
$cadena .= '</tr>';
$i++;
}
$cadena .= '<tr>';
$cadena .= '<td colspan="6" align="right" >TOTAL</td>';
$cadena .= '<td align="center"></td>';
$cadena .= '<td align="center">' . $cant . '</td>';
$cadena .= '<td></td>';
$cadena .= '<td> </td>';
$cadena .= '</tr>';
$cadena .= '</table>';
$fecha = explode("-", $str_fecha);
$anio = $fecha[0];
$mes = $fecha[1];
$dia = $fecha[2];
switch ($mes) {
case 1:
$mes = "Enero";
break;
case 2:
$mes = "Febrero";
break;
case 3:
$mes = "Marzo";
break;
case 4:
$mes = "Abril";
break;
case 5:
$mes = "Mayo";
break;
case 6:
$mes = "Junio";
break;
case 7:
$mes = "Julio";
break;
case 8:
$mes = "Agosto";
break;
case 9:
$mes = "Septiembre";
break;
case 10:
$mes = "Octubre";
break;
case 11:
$mes = "Noviembre";
break;
case 12:
$mes = "Diciembre";
break;
}
$cadena .= '<b>Lugar y fecha de la transferencia:</b> ' . $str_direccion . ' ' . $dia . ' de ' . $mes . ' de ' . $anio;
$cadena2 = "";
$cadena2 .= '<table width="740" border="0">';
$cadena2 .= '<tr>';
$cadena2 .= '<td width="100" height="65" ></td><td width="160" align="center" >';
$cadena2 .= '<h4 style="border-top:1px solid black">Archivista Remitente<br>' . $usuarioOrigen . '</h4>';
$cadena2 .= '</td><td width="100"></td>';
$cadena2 .= '<td width="100" ></td><td width="150" align="center">';
$cadena2 .= '<h4 style="border-top:1px solid black">Archivista de Recepción<br>' . $usuarioDestino . '</h4></td>';
$cadena2 .= '<td width="100"></td></tr>';
$cadena2 .= '<tr>';
$cadena2 .= '<td width="100" height="65" ></td><td width="160" align="center" >';
$cadena2 .= '<h4 style="border-top:1px solid black">Autoridad<br>Unidad Remitente</h4>';
$cadena2 .= '</td><td width="100"></td>';
$cadena2 .= '<td width="100" ></td><td width="150" align="center">';
$cadena2 .= '<h4 style="border-top:1px solid black">SGE / DOC<br></h4></td>';
$cadena2 .= '<td width="100"></td></tr>';
$cadena2 .= '</table>';
$cadena = $cadena . $cadena2;
echo $cadena;
}
function rpteBuscar()
{
$archivo = new archivo();
$tarchivo = new tab_archivo();
$tarchivo->setRequest2Object($_REQUEST);
$where = "";
// if (isset($_REQUEST ['fon_id'])) {
// $where .= " AND tab_fondo.fon_id='$_REQUEST ['fon_id']' ";
// }
// if (isset($_REQUEST ['uni_id'])) {
// $where .= " AND tab_unidad.uni_id='$_REQUEST ['uni_id']' ";
// }
// if (isset($_REQUEST ['ser_id'])) {
// $where .= " AND tab_series.ser_id='$ser_id' ";
// }
// if (!is_null($_REQUEST ['tra_id'])) {
// $where .= " AND tab_tramite.tra_id='$tra_id' ";
// }
// if (!is_null($_REQUEST ['cue_id'])) {
// $where .= " AND tab_cuerpos.cue_id='$cue_id' ";
// }
// if (!is_null($_REQUEST ['exp_titulo'])) {
// $where .= " AND tab_expisadg.exp_titulo='$exp_titulo' ";
// }
// if (!is_null($_REQUEST ['exf_fecha_exi'])) {
// $where .= " AND tab_expisadg.exp_fecha_exi='$exf_fecha_exi' ";
// }
// if (!is_null($_REQUEST ['exf_fecha_exf'])) {
// $where .= " AND tab_expisadg.exf_fecha_exf='$exf_fecha_exi' ";
// }
$usu_id = $_SESSION['USU_ID'];
$select = "SELECT\r\n tab_archivo.fil_id,\r\n (SELECT fon_codigo from tab_fondo WHERE fon_id=f.fon_par) AS fon_codigo,\r\n tab_unidad.uni_descripcion,\r\n tab_series.ser_categoria,\r\n tab_expisadg.exp_titulo,\r\n f.fon_cod,\r\n tab_unidad.uni_cod,\r\n tab_tipocorr.tco_codigo,\r\n tab_series.ser_codigo,\r\n tab_expediente.exp_id,\r\n tab_expediente.exp_codigo,\r\n tab_cuerpos.cue_codigo,\r\n tab_archivo.fil_codigo,\r\n tab_cuerpos.cue_descripcion,\r\n tab_archivo.fil_titulo,\r\n tab_archivo.fil_proc,\r\n tab_archivo.fil_firma,\r\n tab_archivo.fil_cargo,\r\n tab_archivo.fil_nrofoj,\r\n tab_archivo.fil_tomovol,\r\n tab_archivo.fil_nroejem,\r\n tab_archivo.fil_nrocaj,\r\n tab_archivo.fil_sala,\r\n tab_archivo.fil_estante,\r\n tab_archivo.fil_cuerpo,\r\n tab_archivo.fil_balda,\r\n tab_archivo.fil_tipoarch,\r\n tab_archivo.fil_mrb,\r\n tab_archivo.fil_ori,\r\n tab_archivo.fil_cop,\r\n tab_archivo.fil_fot,\r\n (CASE tab_exparchivo.exa_condicion \r\n WHEN '1' THEN 'DISPONIBLE' \r\n WHEN '2' THEN 'PRESTADO' END) AS disponibilidad,\r\n (SELECT fil_nomoriginal FROM tab_archivo_digital WHERE tab_archivo_digital.fil_id=tab_archivo.fil_id AND tab_archivo_digital.fil_estado = '1' ) AS fil_nomoriginal,\r\n (SELECT fil_extension FROM tab_archivo_digital WHERE tab_archivo_digital.fil_id=tab_archivo.fil_id AND tab_archivo_digital.fil_estado = '1' ) AS fil_extension,\r\n (SELECT fil_tamano/1048576 FROM tab_archivo_digital WHERE tab_archivo_digital.fil_id=tab_archivo.fil_id AND tab_archivo_digital.fil_estado = '1' ) AS fil_tamano,\r\n (SELECT fil_nur FROM tab_doccorr WHERE tab_doccorr.fil_id=tab_archivo.fil_id AND tab_doccorr.dco_estado = '1' ) AS fil_nur, \r\n (SELECT fil_asunto FROM tab_doccorr WHERE tab_doccorr.fil_id=tab_archivo.fil_id AND tab_doccorr.dco_estado = '1' ) AS fil_asunto, \r\n tab_archivo.fil_obs";
$from = "FROM\r\n tab_fondo as f\r\n INNER JOIN tab_unidad ON f.fon_id = tab_unidad.fon_id\r\n INNER JOIN tab_series ON tab_unidad.uni_id = tab_series.uni_id\r\n INNER JOIN tab_tipocorr ON tab_tipocorr.tco_id = tab_series.tco_id\r\n INNER JOIN tab_expediente ON tab_series.ser_id = tab_expediente.ser_id\r\n INNER JOIN tab_exparchivo ON tab_expediente.exp_id = tab_exparchivo.exp_id\r\n INNER JOIN tab_archivo ON tab_archivo.fil_id = tab_exparchivo.fil_id\r\n INNER JOIN tab_expisadg ON tab_expediente.exp_id = tab_expisadg.exp_id\r\n INNER JOIN tab_expusuario ON tab_expediente.exp_id = tab_expusuario.exp_id\r\n INNER JOIN tab_cuerpos ON tab_cuerpos.cue_id = tab_exparchivo.cue_id\r\n INNER JOIN tab_tramitecuerpos ON tab_cuerpos.cue_id = tab_tramitecuerpos.cue_id\r\n INNER JOIN tab_tramite ON tab_tramite.tra_id = tab_tramitecuerpos.tra_id\r\n WHERE\r\n f.fon_estado = 1 AND\r\n tab_unidad.uni_estado = 1 AND\r\n tab_tipocorr.tco_estado = 1 AND\r\n tab_series.ser_estado = 1 AND\r\n tab_expediente.exp_estado = 1 AND\r\n tab_archivo.fil_estado = 1 AND\r\n tab_exparchivo.exa_estado = 1 AND\r\n tab_expusuario.eus_estado = 1 AND\r\n tab_expusuario.usu_id='{$usu_id}' ";
// if (isset($_REQUEST ['fon_id'])) {
// $where .= " AND tab_fondo.fon_id='$fon_id' ";
// }
// if (isset($_REQUEST ['uni_id'])) {
// $where .= " AND tab_unidad.uni_id='$uni_id' ";
// }
// if (isset($_REQUEST ['ser_id'])) {
// $where .= " AND tab_series.ser_id='$ser_id' ";
// }
// if (!is_null($_REQUEST ['tra_id'])) {
// $where .= " AND tab_tramite.tra_id='$tra_id' ";
// }
// if (!is_null($_REQUEST ['cue_id'])) {
// $where .= " AND tab_cuerpos.cue_id='$cue_id' ";
// }
// if (!is_null($_REQUEST ['exp_titulo'])) {
// $where .= " AND tab_expisadg.exp_titulo='$exp_titulo' ";
// }
// if (!is_null($_REQUEST ['exf_fecha_exi'])) {
// $where .= " AND tab_expisadg.exp_fecha_exi='$exf_fecha_exi' ";
// }
// if (!is_null($_REQUEST ['exf_fecha_exf'])) {
// $where .= " AND tab_expisadg.exf_fecha_exf='$exf_fecha_exi' ";
// }
// $fil_nur
// $fil_nur
// $fil_titulo
// $fil_descripcion
$sql = "{$select} {$from} {$where} ";
$result = $tarchivo->dbSelectBySQL($sql);
$this->usuario = new usuario();
// PDF
// Landscape
require_once 'tcpdf/config/lang/eng.php';
require_once 'tcpdf/tcpdf.php';
$pdf = new TCPDF('L', PDF_UNIT, PDF_PAGE_FORMAT, true, 'UTF-8', false);
$pdf->SetCreator(PDF_CREATOR);
$pdf->setFontSubsetting(FALSE);
$pdf->SetAuthor($this->usuario->obtenerNombre($_SESSION['USU_ID']));
$pdf->SetTitle('Reporte de Buscar Archivo ');
$pdf->SetSubject('Reporte de Buscar Archivo ');
$pdf->SetDefaultMonospacedFont(PDF_FONT_MONOSPACED);
// aumentado
$pdf->SetKeywords('Castellon, SISTEMA DE PASAJES Y VIÁTICOS');
// set default header data
$pdf->SetHeaderData('logo2.png', 20, 'MPD', 'Administradora Boliviana de Carreteras');
// set header and footer fonts
$pdf->setHeaderFont(array(PDF_FONT_NAME_MAIN, '', PDF_FONT_SIZE_MAIN));
$pdf->setFooterFont(array(PDF_FONT_NAME_DATA, '', PDF_FONT_SIZE_DATA));
//
$pdf->SetMargins(10, 30, 10);
$pdf->SetHeaderMargin(PDF_MARGIN_HEADER);
// $pdf->setPrintHeader(false);
$pdf->setPrintFooter(false);
//set auto page breaks
$pdf->SetAutoPageBreak(TRUE, 15);
// $pdf->setImageScale(PDF_IMAGE_SCALE_RATIO);
$pdf->SetFont('helvetica', '', 6);
// add a page
$pdf->AddPage();
// Report
$pdf->Image(PATH_ROOT . '/web/img/iso.png', '255', '8', 15, 15, 'PNG', '', 'T', false, 300, '', false, false, 1, false, false, false);
$cadena = "<br/><br/><br/><br/><br/><br/>";
$cadena .= '<table width="780" border="0" >';
$cadena .= '<tr><td align="center">';
$cadena .= '<span style="font-size: 30px;font-weight: bold;">';
$cadena .= 'Reporte de Búsqueda de Documentos';
$cadena .= '</span>';
$cadena .= '</td></tr>';
foreach ($result as $fila) {
$cadena .= '<tr><td align="left">Código: ' . "" . '</td></tr>';
$cadena .= '<tr><td align="left">Sección Remitente: ' . "" . '</td></tr>';
$cadena .= '<tr><td align="left">Dirección y Teléfono: ' . "" . '</td></tr>';
$cadena .= '</table>';
break;
}
// Header
$cadena .= '<table width="700" border="1">';
$cadena .= '<tr>';
$cadena .= '<td width="20"><div align="center"><strong>Nro.</strong></div></td>';
$cadena .= '<td width="20"><div align="center"><strong>Fondo</strong></div></td>';
$cadena .= '<td width="50"><div align="center"><strong>Sección</strong></div></td>';
$cadena .= '<td width="50"><div align="center"><strong>Serie</strong></div></td>';
$cadena .= '<td width="50"><div align="center"><strong>Expediente</strong></div></td>';
$cadena .= '<td width="50"><div align="center"><strong>Tipo Doc.</strong></div></td>';
$cadena .= '<td width="80"><div align="center"><strong>Cod.Doc.</strong></div></td>';
$cadena .= '<td width="50"><div align="center"><strong>Titulo</strong></div></td>';
$cadena .= '<td width="20"><div align="center"><strong>Proc.</strong></div></td>';
$cadena .= '<td width="20"><div align="center"><strong>Firma</strong></div></td>';
$cadena .= '<td width="20"><div align="center"><strong>Cargo</strong></div></td>';
$cadena .= '<td width="20"><div align="center"><strong>Nro.Foj.</strong></div></td>';
$cadena .= '<td width="20"><div align="center"><strong>Nro.Caja</strong></div></td>';
$cadena .= '<td width="20"><div align="center"><strong>Sala</strong></div></td>';
$cadena .= '<td width="30"><div align="center"><strong>Estante</strong></div></td>';
$cadena .= '<td width="30"><div align="center"><strong>Cuerpo</strong></div></td>';
$cadena .= '<td width="20"><div align="center"><strong>Balda</strong></div></td>';
$cadena .= '<td width="20"><div align="center"><strong>Tipo</strong></div></td>';
$cadena .= '<td width="30"><div align="center"><strong>Estado</strong></div></td>';
$cadena .= '<td width="30"><div align="center"><strong>Nro.Ori</strong></div></td>';
$cadena .= '<td width="30"><div align="center"><strong>Nro.Cop</strong></div></td>';
$cadena .= '<td width="30"><div align="center"><strong>Nro.Fot</strong></div></td>';
$cadena .= '<td width="30"><div align="center"><strong>NUR/NURI</strong></div></td>';
$cadena .= '<td width="30"><div align="center"><strong>Asunto/Ref.</strong></div></td>';
$cadena .= '<td width="40"><div align="center"><strong>Disponibilidad</strong></div></td>';
$cadena .= '<td width="50"><div align="center"><strong>Doc.Digital</strong></div></td>';
$cadena .= '<td width="20"><div align="center"><strong>Tamaño</strong></div></td>';
$cadena .= '<td width="20"><div align="center"><strong>Obs.</strong></div></td>';
$cadena .= '</tr>';
$numero = 1;
foreach ($result as $fila) {
$cadena .= '<tr>';
$cadena .= '<td width="20"><div align="center">' . $numero . '</div></td>';
$cadena .= '<td width="20">' . $fila->fon_codigo . '</td>';
$cadena .= '<td width="50">' . $fila->uni_descripcion . '</td>';
$cadena .= '<td width="50">' . $fila->ser_categoria . '</td>';
$cadena .= '<td width="50">' . $fila->exp_titulo . '</td>';
$cadena .= '<td width="50">' . $fila->cue_descripcion . '</td>';
$cadena .= '<td width="80">' . $fila->fon_cod . DELIMITER . $fila->uni_cod . DELIMITER . $fila->tco_codigo . DELIMITER . $fila->ser_codigo . DELIMITER . $fila->exp_codigo . DELIMITER . $fila->cue_codigo . DELIMITER . $fila->fil_codigo . '</td>';
$cadena .= '<td width="50">' . $fila->fil_titulo . '</td>';
$cadena .= '<td width="20">' . $fila->fil_proc . '</td>';
$cadena .= '<td width="20">' . $fila->fil_firma . '</td>';
$cadena .= '<td width="20">' . $fila->fil_cargo . '</td>';
$cadena .= '<td width="20">' . $fila->fil_nrofoj . '</td>';
$cadena .= '<td width="20">' . $fila->fil_nrocaj . '</td>';
$cadena .= '<td width="20">' . $fila->fil_sala . '</td>';
$cadena .= '<td width="30">' . $fila->fil_estante . '</td>';
$cadena .= '<td width="30">' . $fila->fil_cuerpo . '</td>';
$cadena .= '<td width="20">' . $fila->fil_balda . '</td>';
$cadena .= '<td width="20">' . $fila->fil_tipoarch . '</td>';
$cadena .= '<td width="30">' . $fila->fil_mrb . '</td>';
$cadena .= '<td width="30">' . $fila->fil_ori . '</td>';
$cadena .= '<td width="30">' . $fila->fil_cop . '</td>';
$cadena .= '<td width="30">' . $fila->fil_fot . '</td>';
$cadena .= '<td width="30">' . $fila->fil_nur . '</td>';
$cadena .= '<td width="30">' . $fila->fil_asunto . '</td>';
$cadena .= '<td width="40">' . $fila->disponibilidad . '</td>';
$cadena .= '<td width="50">' . $fila->fil_nomoriginal . '</td>';
$cadena .= '<td width="20">' . $fila->fil_tamano . '</td>';
$cadena .= '<td width="20">' . $fila->fil_obs . '</td>';
$cadena .= '</tr>';
$numero++;
}
$cadena .= '</table>';
$pdf->writeHTML($cadena, true, false, false, false, '');
// -----------------------------------------------------------------------------
//Close and output PDF document
$pdf->Output('reporte_buscar_archivo.pdf', 'I');
}
function VerRTransferencia()
{
$filtro_serie = $_REQUEST['filtro_serie'];
$filtro_unidad = $_REQUEST['filtro_unidad'];
$filtro_funcionario = $_REQUEST['filtro_funcionario'];
$f_prestdesde = $_REQUEST['f_prestdesde'];
$f_presthasta = $_REQUEST['f_presthasta'];
$where = "";
$tab_extransferencia = new tab_exptransferencia();
$result = $tab_extransferencia->dbSelectBySQL("select DISTINCT(exp_id) from tab_exptransferencia");
$cantidad = count($result);
$valor3 = "";
$t = 1;
foreach ($result as $row) {
$valor3 .= "tab_expediente.exp_id={$row->exp_id}";
if ($t < $cantidad) {
$valor3 .= " or ";
}
$t++;
}
$where .= " AND {$valor3} ";
if ($filtro_serie != "") {
$where .= " AND tab_series.ser_id=" . $filtro_serie;
}
if ($filtro_unidad != "") {
$where .= " AND tab_soltransferencia.uni_id=" . $filtro_unidad;
}
if ($filtro_funcionario != "") {
$where .= " AND tab_soltransferencia.usu_id=" . $filtro_funcionario;
}
$sql = "SELECT\r\ntab_fondo.fon_codigo,\r\ntab_expediente.exp_codigo,\r\ntab_soltransferencia.str_id,\r\ntab_soltransferencia.str_fecha,\r\ntab_soltransferencia.uni_id,\r\ntab_soltransferencia.unid_id,\r\ntab_soltransferencia.str_nrocajas,\r\ntab_soltransferencia.str_totpzas,\r\ntab_soltransferencia.str_totml,\r\ntab_soltransferencia.str_nroreg,\r\ntab_soltransferencia.str_fecini,\r\ntab_soltransferencia.str_fecfin,\r\ntab_soltransferencia.str_estado,\r\ntab_soltransferencia.usu_id,\r\ntab_soltransferencia.usud_id,\r\ntab_soltransferencia.str_direccion,\r\ntab_soltransferencia.str_telefono,\r\ntab_expisadg.exp_fecha_exi,\r\ntab_expisadg.exp_fecha_exf,\r\ntab_series.ser_codigo,\r\ntab_unidad.uni_codigo,\r\ntab_fondo.fon_cod,\r\ntab_series.ser_categoria,\r\ntab_expisadg.exp_titulo,\r\ntab_expediente.exp_obs,\r\ntab_series.ser_id,\r\ntab_series.ser_par,\r\ntab_expediente.exp_id\r\nFROM\r\ntab_unidad\r\nINNER JOIN tab_fondo ON tab_unidad.fon_id = tab_fondo.fon_id\r\nINNER JOIN tab_series ON tab_series.uni_id = tab_unidad.uni_id\r\nINNER JOIN tab_expediente ON tab_expediente.ser_id = tab_series.ser_id\r\nINNER JOIN tab_expisadg ON tab_expisadg.exp_id = tab_expediente.exp_id\r\nINNER JOIN tab_exptransferencia ON tab_expediente.exp_id = tab_exptransferencia.exp_id\r\nINNER JOIN tab_soltransferencia ON tab_soltransferencia.str_id = tab_exptransferencia.str_id\r\nWHERE\r\ntab_soltransferencia.str_estado = 2 AND\r\ntab_expediente.exp_estado = 1 " . $where . " ORDER BY tab_soltransferencia.str_id";
$usua = new usuario();
$subfondo = new fondo();
$seccion = new unidad();
$expedientes = new expediente();
$archivo = new tab_archivo();
$archivo2 = new tab_archivo();
$query = $archivo->dbSelectBySQL($sql);
$query2 = $archivo2->dbSelectBySQL($sql);
$query2 = $query2[0];
$usuarioOrigen = $usua->obtenerNombre($query2->usu_id);
$usuarioDestino = $usua->obtenerNombre($query2->usud_id);
$fond = $subfondo->obtenerfon($query2->usu_id);
$cadena = "";
$cadena = "<br/><br/><br/><br/><br/><br/><br/>";
$cadena .= '<b>Cuadro 8. Formulario Normalizado de Transferencias</b>';
$cadena .= '<br/><br/>';
$cadena .= '<table width="740" border="1">';
$cadena .= '<tr>';
$cadena .= '<td colspan="10" align="center"><b>ADMINISTRADORA BOLIVIANA DE CARRETERAS</b><br />';
$cadena .= 'Formulario de Relacion de Transferencias<br /></td>';
$cadena .= '</tr></table>';
$i = 1;
foreach ($query as $row) {
$tabserie = new tab_series();
$cadena .= '<table border="1" width="740"><tr>';
$cadena .= '<td colspan="5"><blockquote>';
$cadena .= '<b>Subfondo:</b> ' . $fond . '<br />';
$cadena .= '<b>Sección:</b> ';
$ob_seccion = $seccion->obtenerSeccion($row->usu_id);
if ($ob_seccion->tab_sec == "") {
$cadena .= $ob_seccion->uni_descripcion . '<br />';
} else {
$cadena .= $ob_seccion->tab_sec . '<br />';
}
$cadena .= '<b>Subsección:</b> ';
if ($ob_seccion->tab_sec != "") {
$cadena .= $ob_seccion->uni_descripcion;
}
$cadena .= '</blockquote></td>';
$cadena .= '<td colspan="5" ><blockquote><b>Nº de transferencia:</b> ' . $row->str_id;
$cadena .= '<br /><b>Dirección y Teléfono:</b> ' . $row->str_direccion . ' ' . $row->str_telefono . '</blockquote></td>';
$cadena .= '</tr>';
$cadena .= '<tr>';
$cadena .= '<td width="20" rowspan="2" align="center"><strong>Nº</strong></td>';
$cadena .= '<td width="140" rowspan="2"><strong>Serie</strong></td>';
$cadena .= '<td width="120" rowspan="2"><strong>Subserie</strong></td>';
$cadena .= '<td width="80" rowspan="2"><strong>Código de Referencia</strong></td>';
$cadena .= '<td colspan="2" width="130"><strong>Fechas extremas</strong></td>';
$cadena .= '<td width="30" rowspan="2"><strong>Nº Piezas Docum.</strong></td>';
$cadena .= '<td width="30" rowspan="2"><strong>Cajas</strong></td>';
$cadena .= '<td width="30" rowspan="2"><strong>M.L.</strong></td>';
$cadena .= '<td width="160" rowspan="2"><p><strong>Observ.</strong></p></td>';
$cadena .= '</tr>';
$cadena .= '<tr>';
$cadena .= '<td width="65"><strong>Inicio</strong></td>';
$cadena .= '<td width="65"><strong>Final</strong></td>';
$cadena .= '</tr>';
$sum = 0;
$sum2 = 0;
if ($row->exp_fecha_exi == "") {
$fei = "";
} else {
$fechainicial = explode("-", $row->exp_fecha_exi);
$fei = $fechainicial[2] . "/" . $fechainicial[1] . "/" . $fechainicial[0];
}
if ($row->exp_fecha_exf == "") {
$fef = "";
} else {
$fechafinal = explode("-", $row->exp_fecha_exf);
$fef = $fechafinal[2] . "/" . $fechafinal[1] . "/" . $fechafinal[0];
}
if ($row->ser_par == "") {
$ser_id = 0;
} else {
$ser_id = $row->ser_par;
}
$obtenerSubserie = $tabserie->dbselectByField("ser_id", $ser_id);
$u = 0;
foreach ($obtenerSubserie as $ver) {
$u++;
$cte = $ver->ser_categoria;
}
$cadena .= '<tr>';
$cadena .= '<td align="center">' . $i . '</td>';
$cadena .= '<td>';
if ($u == 0) {
$cadena .= $row->ser_categoria;
} else {
$cadena .= $cte;
}
$cadena .= '</td>';
$cadena .= '<td>';
if ($u != 0) {
$cadena .= $row->ser_categoria;
}
$sum = $sum + $expedientes->cantidadExpedientes($row->exp_id);
$sum2 = $sum2 + $row->str_nrocajas;
$cadena .= '</td>';
$cadena .= '<td align="center">' . $row->fon_codigo . DELIMITER . $row->uni_codigo . DELIMITER . $row->ser_codigo . DELIMITER . $row->exp_codigo . '</td>';
$cadena .= '<td align="center">' . $fei . '</td>';
$cadena .= '<td align="center">' . $fef . '</td>';
$cadena .= '<td align="center">' . $expedientes->cantidadExpedientes($row->exp_id) . '</td>';
$cadena .= '<td align="center">' . $row->str_nrocajas . '</td>';
$cadena .= '<td align="center">' . $row->str_totml . '</td>';
$cadena .= '<td>' . $row->exp_obs . '</td>';
$cadena .= '</tr>';
$i++;
$cadena .= '</table><br><br>';
}
require_once 'tcpdf/config/lang/eng.php';
require_once 'tcpdf/tcpdf.php';
$pdf = new TCPDF('L', PDF_UNIT, 'LETTER', true, 'UTF-8', false);
$pdf->SetCreator(PDF_CREATOR);
$pdf->setFontSubsetting(FALSE);
$pdf->SetAuthor("Castellon");
$pdf->SetTitle('Reporte de Transferencia');
$pdf->SetSubject('Reporte de Transferencia');
// aumentado
$pdf->SetKeywords('Castellon, TEAM DIGITAL');
// set default header data
$pdf->SetHeaderData('logo2.png', 20, 'MPD', 'ADMINISTRADORA BOLIVIANA DE CARRETERAS (MPD)');
// set header and footer fonts
$pdf->setHeaderFont(array(PDF_FONT_NAME_MAIN, '', PDF_FONT_SIZE_MAIN));
// $pdf->setFooterFont(Array(PDF_FONT_NAME_DATA, '', PDF_FONT_SIZE_DATA));
//
$pdf->SetDefaultMonospacedFont(PDF_FONT_MONOSPACED);
$pdf->SetMargins(5, 30, 10);
$pdf->SetHeaderMargin(PDF_MARGIN_HEADER);
// $pdf->setPrintHeader(false);
$pdf->setPrintFooter(false);
//set auto page breaks
$pdf->SetAutoPageBreak(TRUE, 14);
// $pdf->setImageScale(PDF_IMAGE_SCALE_RATIO);
//set some language-dependent strings
$pdf->setLanguageArray($l);
$pdf->SetFont('helvetica', '', 10);
// add a page
$pdf->AddPage();
// $pdf->SetXY(110, 200);
$pdf->Image(PATH_ROOT . '/web/img/iso.png', '255', '8', 15, 15, 'PNG', '', 'T', false, 300, '', false, false, 1, false, false, false);
$cadena = $cadena;
$pdf->writeHTML($cadena, true, false, false, false, '');
// -----------------------------------------------------------------------------
//Close and output PDF document
// $pdf->Output('reporte_transferencia.pdf', 'D');
$pdf->Output('reporte_transferencia.pdf', 'I');
}
function buscar2($busquedaArray)
{
$valor = "";
$id_listar = "";
if (isset($_SESSION['id_lista'])) {
$id_listar = $_SESSION['id_lista'];
}
$page = $busquedaArray['page'];
$rp = $busquedaArray['rp'];
$sortname = $busquedaArray['sortname'];
$sortorder = $busquedaArray['sortorder'];
//
// $fon_id = $busquedaArray['fon_id'];
// Search
$archivo = new archivo();
$tarchivo = new tab_archivo();
$tarchivo->setRequest2Object($_REQUEST);
$page = $_REQUEST['page'];
$rp = $_REQUEST['rp'];
$sortname = $_REQUEST['sortname'];
$sortorder = $_REQUEST['sortorder'];
if (!$sortname) {
$sortname = 'fil_id';
}
if (!$sortorder) {
$sortorder = 'desc';
}
$sort = "ORDER BY {$sortname} {$sortorder}";
if (!$page) {
$page = 1;
}
if (!$rp) {
$rp = 15;
}
$start = ($page - 1) * $rp;
$limit = "LIMIT {$rp} OFFSET {$start} ";
$query = $_REQUEST['query'];
$qtype = $_REQUEST['qtype'];
$where = "";
if ($query) {
if ($qtype == 'fil_id') {
$where = " WHERE {$qtype} = '{$query}' ";
} else {
$where = " WHERE {$qtype} LIKE '%{$query}%' ";
}
$sql = "SELECT *\r\n FROM tab_rol\r\n {$where} AND\r\n rol_estado = 1 {$sort} {$limit} ";
} else {
$sql = "SELECT *\r\n FROM tab_rol\r\n WHERE rol_estado = 1 {$sort} {$limit} ";
}
$usu_id = $_SESSION['USU_ID'];
$select = "SELECT\r\n tab_archivo.fil_id,\r\n (SELECT fon_codigo from tab_fondo WHERE fon_id=f.fon_par) AS fon_codigo,\r\n tab_unidad.uni_descripcion,\r\n tab_series.ser_categoria,\r\n tab_expisadg.exp_titulo,\r\n f.fon_cod,\r\n tab_unidad.uni_cod,\r\n tab_tipocorr.tco_codigo,\r\n tab_series.ser_codigo,\r\n tab_expediente.exp_id,\r\n tab_expediente.exp_codigo,\r\n tab_cuerpos.cue_codigo,\r\n tab_archivo.fil_codigo,\r\n tab_cuerpos.cue_descripcion,\r\n tab_archivo.fil_titulo,\r\n tab_archivo.fil_subtitulo,\r\n tab_archivo.fil_proc,\r\n tab_archivo.fil_firma,\r\n tab_archivo.fil_cargo,\r\n tab_archivo.fil_nrofoj,\r\n tab_archivo.fil_tomovol,\r\n tab_archivo.fil_nroejem,\r\n tab_archivo.fil_nrocaj,\r\n tab_archivo.fil_sala,\r\n tab_archivo.fil_estante,\r\n tab_archivo.fil_cuerpo,\r\n tab_archivo.fil_balda,\r\n tab_archivo.fil_tipoarch,\r\n tab_archivo.fil_mrb,\r\n tab_archivo.fil_ori,\r\n tab_archivo.fil_cop,\r\n tab_archivo.fil_fot,\r\n (CASE tab_exparchivo.exa_condicion\r\n WHEN '1' THEN 'DISPONIBLE'\r\n WHEN '2' THEN 'PRESTADO' END) AS disponibilidad,\r\n (SELECT fil_nomoriginal FROM tab_archivo_digital WHERE tab_archivo_digital.fil_id=tab_archivo.fil_id AND tab_archivo_digital.fil_estado = '1' ) AS fil_nomoriginal,\r\n (SELECT fil_extension FROM tab_archivo_digital WHERE tab_archivo_digital.fil_id=tab_archivo.fil_id AND tab_archivo_digital.fil_estado = '1' ) AS fil_extension,\r\n (SELECT fil_tamano/1048576 FROM tab_archivo_digital WHERE tab_archivo_digital.fil_id=tab_archivo.fil_id AND tab_archivo_digital.fil_estado = '1' ) AS fil_tamano,\r\n (SELECT fil_nur FROM tab_doccorr WHERE tab_doccorr.fil_id=tab_archivo.fil_id AND tab_doccorr.dco_estado = '1' ) AS fil_nur,\r\n (SELECT fil_asunto FROM tab_doccorr WHERE tab_doccorr.fil_id=tab_archivo.fil_id AND tab_doccorr.dco_estado = '1' ) AS fil_asunto,\r\n tab_archivo.fil_obs";
$from = "FROM\r\n tab_fondo as f\r\n INNER JOIN tab_unidad ON f.fon_id = tab_unidad.fon_id\r\n INNER JOIN tab_series ON tab_unidad.uni_id = tab_series.uni_id\r\n INNER JOIN tab_tipocorr ON tab_tipocorr.tco_id = tab_series.tco_id\r\n INNER JOIN tab_expediente ON tab_series.ser_id = tab_expediente.ser_id\r\n INNER JOIN tab_exparchivo ON tab_expediente.exp_id = tab_exparchivo.exp_id\r\n INNER JOIN tab_archivo ON tab_archivo.fil_id = tab_exparchivo.fil_id\r\n INNER JOIN tab_expisadg ON tab_expediente.exp_id = tab_expisadg.exp_id\r\n INNER JOIN tab_expusuario ON tab_expediente.exp_id = tab_expusuario.exp_id\r\n INNER JOIN tab_cuerpos ON tab_cuerpos.cue_id = tab_exparchivo.cue_id\r\n INNER JOIN tab_tramitecuerpos ON tab_cuerpos.cue_id = tab_tramitecuerpos.cue_id\r\n INNER JOIN tab_tramite ON tab_tramite.tra_id = tab_tramitecuerpos.tra_id\r\n WHERE\r\n f.fon_estado = 1 AND\r\n tab_unidad.uni_estado = 1 AND\r\n tab_tipocorr.tco_estado = 1 AND\r\n tab_series.ser_estado = 1 AND\r\n tab_expediente.exp_estado = 1 AND\r\n tab_archivo.fil_estado = 1 AND\r\n tab_exparchivo.exa_estado = 1 AND\r\n tab_expusuario.eus_estado = 1 AND\r\n tab_expusuario.usu_id='{$usu_id}'";
$where = "";
// if (strlen($fon_id)> 0 && $fon_id!='null') {
// $where .= " AND tab_fondo.fon_id='$fon_id' ";
// }
// Search addwords
if ($id_listar != "") {
$explode = explode(",", $id_listar);
$cantidad = count($explode);
for ($i = 0; $i < $cantidad; $i++) {
$valor .= "tab_archivo.fil_id=" . $explode[$i];
if ($i < $cantidad - 1) {
$valor .= " or ";
}
}
$where .= " AND {$valor} ";
}
$sql = "{$select} {$from} {$where} {$sort} {$limit}";
$result = $tarchivo->dbSelectBySQL($sql);
//print $sql;
$sql_c = "SELECT COUNT(tab_archivo.fil_id) {$from} {$where} ";
$total = $tarchivo->countBySQL($sql_c);
$exp = new expediente();
header("Expires: Mon, 26 Jul 1997 05:00:00 GMT");
header("Cache-Control: no-cache, must-revalidate");
header("Pragma: no-cache");
header("Content-type: text/x-json");
$json = "";
$json .= "{\n";
$json .= "page: {$page},\n";
$json .= "total: {$total},\n";
$json .= "rows: [";
$rc = false;
$i = 0;
$j = 1;
foreach ($result as $un) {
if ($rc) {
$json .= ",";
}
$json .= "\n{";
$json .= "id:'" . $un->fil_id . "',";
//$json .= "cell:['" . $un->fil_id . "'";
$json .= "cell:[";
$json .= "'<input id=\"chkid_" . $un->fil_id . "\" restric=\"" . $un->fil_confidencialidad . "\" class=\"fil_chk" . $j . "\" type=\"checkbox\" value=\"" . $un->fil_id . "\" checked=\"checked\" />'";
if ($un->fil_confidencialidad == 3) {
$json .= ",'<img src=\"" . PATH_DOMAIN . "/web/lib/32/b_view.png\" file=\"{$un->fil_id}\" valueId=\"" . $un->fil_id . "\" restric=\"" . $un->fil_confidencialidad . "\" class=\"viewFileP icon\" />'";
} else {
//$json .= ",'<img src=\"" . PATH_DOMAIN . "/web/lib/32/b_view.png\" file=\"$un->fil_id\" valueId=\"" . $un->fil_id . "\" restric=\"" . $un->fil_confidencialidad . "\" class=\"viewFile icon\" />'";
$json .= ",'<img src=\"" . PATH_DOMAIN . "/web/lib/32/document-{$un->fil_extension}.png\" file=\"{$un->fil_id}\" valueId=\"" . $un->fil_id . "\" restric=\"" . $un->fil_confidencialidad . "\" class=\"viewFile icon\" />'";
///web/lib/32/document-". $una->fil_extension .".png'
}
if ($un->fil_confidencialidad == 3) {
$json .= ",'<img src=\"" . PATH_DOMAIN . "/web/lib/32/b_view.png\" file=\"{$un->fil_id}\" valueId=\"" . $un->fil_id . "\" restric=\"" . $un->fil_confidencialidad . "\" class=\"viewP icon\" />'";
} else {
//$json .= ",'<img src=\"" . PATH_DOMAIN . "/web/lib/32/b_view.png\" file=\"$un->fil_id\" valueId=\"" . $un->fil_id . "\" restric=\"" . $un->fil_confidencialidad . "\" class=\"viewFile icon\" />'";
$json .= ",'<img src=\"" . PATH_DOMAIN . "/web/lib/32/b_view.png\" file=\"{$un->fil_id}\" valueId=\"" . $un->fil_id . "\" restric=\"" . $un->fil_confidencialidad . "\" class=\"view icon\" />'";
///web/lib/32/document-". $una->fil_extension .".png'
}
$json .= ",'" . $un->fil_id . "'";
$json .= ",'" . addslashes($un->fon_codigo) . "'";
$json .= ",'" . addslashes(utf8_decode($un->uni_descripcion)) . "'";
$json .= ",'" . addslashes(utf8_decode($un->ser_categoria)) . "'";
$json .= ",'" . addslashes(utf8_decode($un->exp_titulo)) . "'";
$json .= ",'" . addslashes(utf8_decode($un->cue_descripcion)) . "'";
$json .= ",'" . addslashes($un->fon_cod . DELIMITER . $un->uni_cod . DELIMITER . $un->tco_codigo . DELIMITER . $un->ser_codigo . DELIMITER . $un->exp_codigo . DELIMITER . $un->cue_codigo . DELIMITER . $un->fil_codigo) . "'";
$json .= ",'" . addslashes(utf8_decode($un->fil_titulo)) . "'";
$json .= ",'" . addslashes(utf8_decode($un->fil_proc)) . "'";
$json .= ",'" . addslashes(utf8_decode($un->fil_firma)) . "'";
$json .= ",'" . addslashes(utf8_decode($un->fil_cargo)) . "'";
$json .= ",'" . addslashes($un->fil_nrofoj) . "'";
$json .= ",'" . addslashes($un->fil_nrocaj) . "'";
$json .= ",'" . addslashes($un->fil_sala) . "'";
$json .= ",'" . addslashes($un->fil_estante) . "'";
$json .= ",'" . addslashes($un->fil_cuerpo) . "'";
$json .= ",'" . addslashes($un->fil_balda) . "'";
$json .= ",'" . addslashes($un->fil_tipoarch) . "'";
$json .= ",'" . addslashes($un->fil_mrb) . "'";
$json .= ",'" . addslashes($un->fil_ori) . "'";
$json .= ",'" . addslashes($un->fil_cop) . "'";
$json .= ",'" . addslashes($un->fil_fot) . "'";
$json .= ",'" . addslashes($un->fil_nur) . "'";
$json .= ",'" . addslashes(utf8_decode($un->fil_asunto)) . "'";
$json .= ",'" . addslashes($un->disponibilidad) . "'";
$json .= ",'" . addslashes(utf8_decode($un->fil_nomoriginal)) . "'";
$json .= ",'" . addslashes($un->fil_tamano) . "'";
$json .= ",'" . addslashes(utf8_decode($un->fil_obs)) . "'";
$json .= "]}";
$rc = true;
$i++;
$j++;
}
$json .= "]\n";
$json .= "}";
echo $json;
}
function loadDoc()
{
// Search
$usuario = new usuario();
$tarchivo = new tab_archivo();
$tarchivo->setRequest2Object($_REQUEST);
// Hasta aqui
$valor = "";
$id_listar = "";
if (isset($_SESSION['id_lista'])) {
$id_listar = $_SESSION['id_lista'];
}
$page = $_REQUEST['page'];
$rp = $_REQUEST['rp'];
$sortname = $_REQUEST['sortname'];
$sortorder = $_REQUEST['sortorder'];
if (!$sortname) {
$sortname = " f.fon_cod,\r\n tab_unidad.uni_cod,\r\n tab_series.ser_orden,\r\n tab_series.ser_codigo,\r\n tab_expediente.exp_codigo::int,\r\n tab_archivo.fil_nro::int ";
} else {
$sortname = $sortname;
}
if (!$sortorder) {
$sortorder = 'desc';
}
$sort = "ORDER BY {$sortname} {$sortorder}";
if (!$page) {
$page = 1;
}
if (!$rp) {
$rp = 20;
}
$start = ($page - 1) * $rp;
$limit = "LIMIT {$rp} OFFSET {$start} ";
$query = $_REQUEST['query'];
$qtype = $_REQUEST['qtype'];
$where = "";
if ($query) {
if ($qtype) {
}
}
$whereUsuario = "";
$usu_id = $_SESSION['USU_ID'];
if ($_SESSION['ROL_COD'] != 'AA') {
$whereUsuario = " AND tab_expusuario.usu_id=" . $_SESSION['USU_ID'] . "";
}
// Search docs
$select = "SELECT\r\n tab_expediente.exp_id,\r\n tab_archivo.fil_id,\r\n f.fon_codigo,\r\n f.fon_cod,\r\n tab_unidad.uni_cod,\r\n tab_tipocorr.tco_codigo,\r\n tab_series.ser_codigo,\r\n tab_expediente.exp_codigo,\r\n tab_archivo.fil_nro,\r\n tab_unidad.uni_descripcion,\r\n tab_series.ser_categoria,\r\n tab_expisadg.exp_titulo,\r\n tab_cuerpos.cue_descripcion,\r\n tab_archivo.fil_confidencialidad,\r\n tab_archivo.fil_titulo,\r\n tab_archivo.fil_subtitulo,\r\n tab_archivo.fil_proc,\r\n tab_archivo.fil_firma,\r\n tab_archivo.fil_cargo,\r\n tab_archivo.fil_nrofoj,\r\n tab_archivo.fil_tomovol,\r\n tab_archivo.fil_nroejem,\r\n tab_archivo.fil_nrocaj,\r\n tab_archivo.fil_sala,\r\n tab_archivo.fil_estante,\r\n tab_archivo.fil_cuerpo,\r\n tab_archivo.fil_balda,\r\n tab_archivo.fil_tipoarch,\r\n tab_archivo.fil_mrb,\r\n tab_archivo.fil_ori,\r\n tab_archivo.fil_cop,\r\n tab_archivo.fil_fot,\r\n (SELECT fil_nur FROM tab_doccorr WHERE tab_doccorr.fil_id=tab_archivo.fil_id AND tab_doccorr.dco_estado = '1' ) AS fil_nur,\r\n (SELECT fil_asunto FROM tab_doccorr WHERE tab_doccorr.fil_id=tab_archivo.fil_id AND tab_doccorr.dco_estado = '1' ) AS fil_asunto,\r\n tab_archivo.fil_obs,\r\n tab_expusuario.usu_id";
$from = "FROM\r\n tab_fondo as f\r\n INNER JOIN tab_unidad ON f.fon_id = tab_unidad.fon_id\r\n INNER JOIN tab_series ON tab_unidad.uni_id = tab_series.uni_id\r\n INNER JOIN tab_tipocorr ON tab_tipocorr.tco_id = tab_series.tco_id\r\n INNER JOIN tab_expediente ON tab_series.ser_id = tab_expediente.ser_id\r\n INNER JOIN tab_expisadg ON tab_expediente.exp_id = tab_expisadg.exp_id\r\n INNER JOIN tab_expusuario ON tab_expediente.exp_id = tab_expusuario.exp_id\r\n LEFT JOIN tab_exparchivo ON tab_expediente.exp_id = tab_exparchivo.exp_id\r\n INNER JOIN tab_archivo ON tab_archivo.fil_id = tab_exparchivo.fil_id\r\n INNER JOIN tab_cuerpos ON tab_cuerpos.cue_id = tab_exparchivo.cue_id\r\n INNER JOIN tab_tramitecuerpos ON tab_cuerpos.cue_id = tab_tramitecuerpos.cue_id\r\n INNER JOIN tab_tramite ON tab_tramite.tra_id = tab_tramitecuerpos.tra_id\r\n WHERE\r\n f.fon_estado = 1 AND\r\n tab_unidad.uni_estado = 1 AND\r\n tab_tipocorr.tco_estado = 1 AND\r\n tab_series.ser_estado = 1 AND\r\n tab_expediente.exp_estado = 1 AND\r\n tab_archivo.fil_estado = 1 AND\r\n tab_exparchivo.exa_estado = 1 AND\r\n tab_expusuario.eus_estado = 1\r\n {$whereUsuario} ";
$where = "";
// Search addwords
if ($id_listar != "") {
$explode = explode(",", $id_listar);
$cantidad = count($explode);
if ($cantidad > 0) {
$valor .= "tab_archivo.fil_id=0 OR ";
for ($i = 0; $i < $cantidad; $i++) {
$valor .= "tab_archivo.fil_id=" . $explode[$i];
if ($i < $cantidad - 1) {
$valor .= " or ";
}
}
}
$where .= " AND {$valor} ";
}
// MODIFICADO
//$sort = "ORDER BY tab_expediente.exp_id, tab_cuerpos.cue_id, tab_archivo.fil_nro ";
//$sort = "ORDER BY tab_series.ser_orden, tab_expediente.exp_codigo::int, tab_archivo.fil_nro::int ";
$sql = "{$select} {$from} {$where} {$sort} {$limit}";
$result = $tarchivo->dbSelectBySQL($sql);
//print $sql;
$sql_c = "SELECT COUNT(tab_archivo.fil_id) {$from} {$where} ";
$total = $tarchivo->countBySQL($sql_c);
$exp = new expediente();
header("Expires: Mon, 26 Jul 1997 05:00:00 GMT");
header("Cache-Control: no-cache, must-revalidate");
header("Pragma: no-cache");
header("Content-type: text/x-json");
$json = "";
$json .= "{\n";
$json .= "page: {$page},\n";
$json .= "total: {$total},\n";
$json .= "rows: [";
$rc = false;
$i = 0;
$j = 1;
$exp_titulo = "";
foreach ($result as $un) {
// Documento
if ($rc) {
$json .= ",";
}
$json .= "\n{";
$json .= "id:'" . $un->fil_id . "',";
$json .= "cell:[";
$json .= "'<input id=\"chkid_" . $un->fil_id . "\" restric=\"" . $un->fil_confidencialidad . "\" class=\"fil_chk" . $j . "\" type=\"checkbox\" value=\"" . $un->fil_id . "\" checked=\"checked\" />'";
// $json .= ",'<img src=\"" . PATH_DOMAIN . "/web/lib/32/document-$un->fil_extension.png\" file=\"$un->fil_id\" valueId=\"" . $un->fil_id . "\" restric=\"" . $un->fil_confidencialidad . "\" class=\"viewFile icon\" />'";
$json .= ",'<img src=\"" . PATH_DOMAIN . "/web/lib/32/document-.png\" file=\"{$un->fil_id}\" valueId=\"" . $un->fil_id . "\" restric=\"" . $un->fil_confidencialidad . "\" class=\"viewFile icon\" />'";
$json .= ",'<img src=\"" . PATH_DOMAIN . "/web/lib/32/b_view.png\" file=\"{$un->fil_id}\" valueId=\"" . $un->fil_id . "\" restric=\"" . $un->fil_confidencialidad . "\" class=\"view icon\" />'";
$json .= ",'" . $un->fil_id . "'";
$json .= ",'" . addslashes($un->fon_cod . DELIMITER . $un->uni_cod . DELIMITER . $un->tco_codigo . DELIMITER . $un->ser_codigo . DELIMITER . $un->exp_codigo . DELIMITER . $un->fil_nro) . "'";
$json .= ",'" . addslashes($usuario->getRol($un->usu_id)) . "'";
$json .= ",'" . addslashes($un->fon_codigo) . "'";
$json .= ",'" . addslashes(utf8_decode($un->uni_descripcion)) . "'";
$json .= ",'" . addslashes(utf8_decode($un->ser_categoria)) . "'";
$json .= ",'" . addslashes(utf8_decode($un->exp_titulo)) . "'";
//$json .= ",'" . addslashes(utf8_decode($un->cue_descripcion)) . "'";
if ($un->fil_subtitulo) {
$json .= ",'" . addslashes(utf8_decode($un->fil_titulo . " - " . $un->fil_subtitulo)) . "'";
} else {
$json .= ",'" . addslashes(utf8_decode($un->fil_titulo)) . "'";
}
$json .= ",'" . addslashes($un->fil_tomovol) . "'";
$json .= ",'" . addslashes(utf8_decode($un->fil_proc)) . "'";
$json .= ",'" . addslashes(utf8_decode($un->fil_firma)) . "'";
$json .= ",'" . addslashes(utf8_decode($un->fil_cargo)) . "'";
$json .= ",'" . addslashes($un->fil_nrofoj) . "'";
$json .= ",'" . addslashes($un->fil_nrocaj) . "'";
$json .= ",'" . addslashes($un->fil_sala) . "'";
$json .= ",'" . addslashes($un->fil_estante) . "'";
$json .= ",'" . addslashes($un->fil_cuerpo) . "'";
$json .= ",'" . addslashes($un->fil_balda) . "'";
$json .= ",'" . addslashes($un->fil_tipoarch) . "'";
$json .= ",'" . addslashes($un->fil_mrb) . "'";
$json .= ",'" . addslashes($un->fil_ori) . "'";
$json .= ",'" . addslashes($un->fil_cop) . "'";
$json .= ",'" . addslashes($un->fil_fot) . "'";
//palabras clave
$palclave = new palclave();
$fil_palclave = $palclave->listaPCFile($un->fil_id);
$json .= ",'" . addslashes($fil_palclave) . "'";
$json .= ",'" . addslashes(utf8_decode($un->fil_obs)) . "'";
// SIACO
$json .= ",'" . addslashes($un->fil_nur) . "'";
$json .= ",'" . addslashes(utf8_decode($un->fil_asunto)) . "'";
$json .= "]}";
$rc = true;
$i++;
$j++;
}
$json .= "]\n";
$json .= "}";
echo $json;
}
function printFichaSearchExpediente()
{
$exp_id = VAR3;
$dov_id = VAR4;
$where = "";
// if ($_SESSION['ROL_COD'] != 'AA') {
// $where = " AND tab_expusuario.usu_id=" . $_SESSION['USU_ID'] . "";
// }
$tarchivo = new tab_archivo();
$select = "SELECT\r\n (SELECT fon_codigo from tab_fondo WHERE fon_id=f.fon_par) AS fon_codigo,\r\n tab_unidad.uni_descripcion,\r\n tab_series.ser_categoria,\r\n tab_expisadg.exp_titulo,\r\n f.fon_cod,\r\n tab_unidad.uni_cod,\r\n tab_tipocorr.tco_codigo,\r\n tab_series.ser_id,\r\n tab_series.ser_codigo,\r\n tab_expediente.exp_id,\r\n tab_expediente.exp_codigo,\r\n tab_expisadg.exp_fecha_exi,\r\n tab_expisadg.exp_fecha_exf,\r\n tab_expisadg.exp_nivdes,\r\n tab_expisadg.exp_volsop,\r\n tab_expisadg.exp_nomprod,\r\n tab_expisadg.exp_hisins,\r\n tab_expisadg.exp_hisarc,\r\n tab_expisadg.exp_foring,\r\n tab_expisadg.exp_alccon,\r\n tab_expisadg.exp_vaseel,\r\n tab_expisadg.exp_nueing,\r\n tab_expisadg.exp_org,\r\n tab_expisadg.exp_conacc,\r\n tab_expisadg.exp_conrep,\r\n tab_expisadg.exp_lengua,\r\n tab_expisadg.exp_carfis,\r\n tab_expisadg.exp_insdes,\r\n tab_expisadg.exp_exloor,\r\n tab_expisadg.exp_exloco,\r\n tab_expisadg.exp_underel,\r\n tab_expisadg.exp_notpub,\r\n tab_expisadg.exp_notas,\r\n tab_expisadg.exp_notarc,\r\n tab_expisadg.exp_regnor,\r\n tab_expisadg.exp_fecdes,\r\n tab_expisadg.exp_estado,\r\n tab_expisadg.exp_mesi,\r\n tab_expisadg.exp_anioi,\r\n tab_expisadg.exp_mesf,\r\n tab_expisadg.exp_aniof,\r\n tab_expediente.sof_id,\r\n tab_expediente.exp_nrofoj,\r\n tab_expediente.exp_tomovol,\r\n tab_expediente.exp_nroejem,\r\n tab_expediente.exp_nrocaj,\r\n tab_expediente.exp_sala,\r\n tab_expediente.exp_estante,\r\n tab_expediente.exp_cuerpo,\r\n tab_expediente.exp_balda,\r\n tab_expediente.exp_obs,\r\n tab_expediente.exp_estado,\r\n tab_expisadg.idi_id,\r\n tab_expediente.exp_ori,\r\n tab_expediente.exp_cop,\r\n tab_expediente.exp_fot,\r\n tab_expediente.exp_lugar";
$from = "FROM\r\n tab_fondo AS f\r\n INNER JOIN tab_unidad ON f.fon_id = tab_unidad.fon_id\r\n INNER JOIN tab_series ON tab_unidad.uni_id = tab_series.uni_id\r\n INNER JOIN tab_tipocorr ON tab_tipocorr.tco_id = tab_series.tco_id\r\n INNER JOIN tab_expediente ON tab_series.ser_id = tab_expediente.ser_id\r\n INNER JOIN tab_expisadg ON tab_expediente.exp_id = tab_expisadg.exp_id\r\n INNER JOIN tab_expusuario ON tab_expediente.exp_id = tab_expusuario.exp_id\r\n WHERE\r\n f.fon_estado = 1 AND\r\n tab_unidad.uni_estado = 1 AND\r\n tab_tipocorr.tco_estado = 1 AND\r\n tab_series.ser_estado = 1 AND\r\n tab_expediente.exp_estado = 1 AND\r\n tab_expusuario.eus_estado = 1 AND\r\n tab_expediente.exp_id = '{$exp_id}'\r\n {$where} ";
$sql = "{$select} {$from} ";
$result = $tarchivo->dbSelectBySQL($sql);
//print $sql;
$this->usuario = new usuario();
// PDF
// Landscape
require_once 'tcpdf/config/lang/eng.php';
require_once 'tcpdf/tcpdf.php';
$pdf = new TCPDF('P', PDF_UNIT, PDF_PAGE_FORMAT, true, 'UTF-8', false);
$pdf->SetCreator(PDF_CREATOR);
$pdf->setFontSubsetting(FALSE);
$pdf->SetAuthor($this->usuario->obtenerNombre($_SESSION['USU_ID']));
$pdf->SetTitle('Reporte Ficha del Expediente');
$pdf->SetSubject('Reporte Ficha del Expediente');
$pdf->SetDefaultMonospacedFont(PDF_FONT_MONOSPACED);
// aumentado
$pdf->SetKeywords('Castellon, SISTEMA DE PASAJES Y VIÁTICOS');
// set default header data
$pdf->SetHeaderData('logo2.png', 20, 'MPD', 'Administradora Boliviana de Carreteras');
// set header and footer fonts
$pdf->setHeaderFont(array(PDF_FONT_NAME_MAIN, '', PDF_FONT_SIZE_MAIN));
$pdf->setFooterFont(array(PDF_FONT_NAME_DATA, '', PDF_FONT_SIZE_DATA));
//
$pdf->SetMargins(10, 30, 10);
$pdf->SetHeaderMargin(PDF_MARGIN_HEADER);
// $pdf->setPrintHeader(false);
$pdf->setPrintFooter(false);
//set auto page breaks
$pdf->SetAutoPageBreak(TRUE, 15);
// $pdf->setImageScale(PDF_IMAGE_SCALE_RATIO);
$pdf->SetFont('helvetica', '', 11);
// add a page
$pdf->AddPage();
// Report
$pdf->Image(PATH_ROOT . '/web/img/iso.png', '255', '8', 15, 15, 'PNG', '', 'T', false, 300, '', false, false, 1, false, false, false);
$cadena = "<br/><br/><br/><br/><br/><br/>";
$cadena .= '<table width="580" border="0" >';
$cadena .= '<tr><td align="center">';
$cadena .= '<span style="font-size: 30px;font-weight: bold;">';
$cadena .= 'Reporte Ficha del Expediente';
$cadena .= '</span>';
$cadena .= '</td></tr>';
foreach ($result as $fila) {
$cadena .= '<tr><td align="left"><b>1. AREA DE INDENTIFICACIÓN</b></td></tr>';
$cadena .= '<tr><td align="left"><b>Id: </b>' . $fila->exp_id . '</td></tr>';
$cadena .= '<tr><td align="left"><b>Código: </b>' . $fila->fon_cod . DELIMITER . $fila->uni_cod . DELIMITER . $fila->tco_codigo . DELIMITER . $fila->ser_codigo . DELIMITER . $fila->exp_codigo . '</td></tr>';
$cadena .= '<tr><td align="left"><b>Fondo:</b> ' . $fila->fon_codigo . '</td></tr>';
$cadena .= '<tr><td align="left"><b>Sección:</b> ' . $fila->uni_descripcion . '</td></tr>';
$cadena .= '<tr><td align="left"><b>Serie:</b> ' . $fila->ser_categoria . '</td></tr>';
$cadena .= '<tr><td align="left"><b>Título:</b> <b>' . $fila->exp_titulo . '</b></td></tr>';
if ($fila->exp_mesi) {
if ($fila->exp_anioi) {
$cadena .= '<tr><td align="left"><b>Fecha Inicial:</b> ' . $fila->exp_mesi . "/" . $fila->exp_anioi . '</td></tr>';
} else {
$cadena .= '<tr><td align="left"><b>Fecha Inicial:</b> ' . $fila->exp_mesi . '</td></tr>';
}
} else {
if ($fila->exp_anioi) {
$cadena .= '<tr><td align="left"><b>Fecha Inicial:</b> ' . $fila->fil_anioi . '</td></tr>';
}
}
if ($fila->exp_mesf) {
if ($fila->exp_aniof) {
$cadena .= '<tr><td align="left"><b>Fecha Final:</b> ' . $fila->exp_mesf . "/" . $fila->exp_aniof . '</td></tr>';
} else {
$cadena .= '<tr><td align="left"><b>Fecha Final:</b> ' . $fila->exp_mesf . '</td></tr>';
}
} else {
if ($fila->exp_aniof) {
$cadena .= '<tr><td align="left"><b>Fecha Final:</b> ' . $fila->exp_aniof . '</td></tr>';
}
}
// $cadena .= '<tr><td align="left"><b>Fecha Inicial:</b> ' . $fila->exp_mesi . "/" . $fila->exp_anioi . '</td></tr>';
// $cadena .= '<tr><td align="left"><b>Fecha Final:</b> ' . $fila->exp_mesf . "/" . $fila->exp_aniof . '</td></tr>';
$cadena .= '<tr><td align="left"><b>Ubicación Geográfica:</b> ' . $fila->exp_lugar . '</td></tr>';
$cadena .= '<tr><td align="left"><b>Volumen y soporte de la Unidad de Descripción:</b> ' . $fila->exp_volsop . '</td></tr>';
// Include dynamic fields
$expcampo = new expcampo();
$filcampo = $expcampo->obtenerSelectCamposShow($fila->ser_id, $fila->exp_id);
if ($filcampo) {
$cadena .= '<br/>';
$cadena .= '<tr><td align="left"><b>Datos adicionales en la identificación:</b> ' . "" . '</td></tr>';
$cadena .= $filcampo;
}
$cadena .= '<br/><tr><td align="left"><b>2. AREA DE CONTEXTO</b></td></tr>';
if ($fila->exp_nomprod) {
$cadena .= '<tr><td align="left"><b>Nombre del o de los Productores:</b> ' . $fila->exp_nomprod . '</td></tr>';
}
if ($fila->exp_hisins) {
$cadena .= '<tr><td align="left"><b>Historia Institucional/Reseña biográfica:</b> ' . $fila->exp_hisins . '</td></tr>';
}
if ($fila->exp_hisarc) {
$cadena .= '<tr><td align="left"><b>Historia Archivística:</b> ' . $fila->exp_hisarc . '</td></tr>';
}
if ($fila->exp_foring) {
$cadena .= '<tr><td align="left"><b>Forma de ingreso:</b> ' . $fila->exp_foring . '</td></tr>';
}
$cadena .= '<br/><tr><td align="left"><b>3. AREA DE CONTENIDO Y ESTRUCTURA</b></td></tr>';
if ($fila->exp_alccon) {
$cadena .= '<tr><td align="left"><b>Alcance y contenido:</b> ' . $fila->exp_alccon . '</td></tr>';
}
if ($fila->exp_vaseel) {
$cadena .= '<tr><td align="left"><b>Valoración, selección y eliminación:</b> ' . $fila->exp_vaseel . '</td></tr>';
}
if ($fila->exp_nueing) {
$cadena .= '<tr><td align="left"><b>Nuevos Ingresos:</b> ' . $fila->exp_nueing . '</td></tr>';
}
if ($fila->exp_org) {
$cadena .= '<tr><td align="left"><b>Organización:</b> ' . $fila->exp_org . '</td></tr>';
}
$idioma = new idioma();
$cadena .= '<br/><tr><td align="left"><b>4. AREA DE CONDICIONES DE ACCESO Y USO</b></td></tr>';
if ($fila->exp_conacc) {
$cadena .= '<tr><td align="left"><b>Condiciones de Acceso:</b> ' . $fila->exp_conacc . '</td></tr>';
}
if ($fila->exp_conrep) {
$cadena .= '<tr><td align="left"><b>Condiciones de Reproducción:</b> ' . $fila->exp_conrep . '</td></tr>';
}
if ($fila->idi_id) {
$cadena .= '<tr><td align="left"><b>Lengua/Escritura de la documentación:</b> ' . $idioma->obtenerIdioma($fila->idi_id) . '</td></tr>';
}
if ($fila->exp_carfis) {
$cadena .= '<tr><td align="left"><b>Caraterísticas físicas o requisitos técnicos:</b> ' . $fila->exp_carfis . '</td></tr>';
}
if ($fila->exp_insdes) {
$cadena .= '<tr><td align="left"><b>Instrumentos de descripción:</b> ' . $fila->exp_insdes . '</td></tr>';
}
$cadena .= '<br/><tr><td align="left"><b>5. AREA DE DOCUMENTACIÓN ASOCIADA</b></td></tr>';
if ($fila->exp_exloor) {
$cadena .= '<tr><td align="left"><b>Existencia y localización de originales:</b> ' . $fila->exp_exloor . '</td></tr>';
}
if ($fila->exp_exloco) {
$cadena .= '<tr><td align="left"><b>Existencia y localización de copias:</b> ' . $fila->exp_exloco . '</td></tr>';
}
if ($fila->exp_underel) {
$cadena .= '<tr><td align="left"><b>Unidades de descripción relacionadas:</b> ' . $fila->exp_underel . '</td></tr>';
}
if ($fila->exp_notpub) {
$cadena .= '<tr><td align="left"><b>Notas de publicación:</b> ' . $fila->exp_notpub . '</td></tr>';
}
$cadena .= '<br/><tr><td align="left"><b>6. AREA DE NOTAS</b></td></tr>';
if ($fila->exp_notas) {
$cadena .= '<tr><td align="left"><b>Notas:</b> ' . $fila->exp_notas . '</td></tr>';
}
$cadena .= '<br/><tr><td align="left"><b>7. AREA DE CONTROL DE LA DESCRIPCIÓN</b></td></tr>';
if ($fila->exp_notarc) {
$cadena .= '<tr><td align="left"><b>Notas del archivero:</b> ' . $fila->exp_notarc . '</td></tr>';
}
if ($fila->exp_regnor) {
$cadena .= '<tr><td align="left"><b>Reglas o Normas:</b> ' . $fila->exp_regnor . '</td></tr>';
}
if ($fila->exp_fecdes) {
$cadena .= '<tr><td align="left"><b>Fecha de la descripción:</b> ' . $fila->exp_fecdes . '</td></tr>';
}
$sop_fisico = new tab_sopfisico();
$nombresopf = $sop_fisico->dbselectByField("sof_id", $fila->sof_id);
$nombresopf = $nombresopf[0];
$cadena .= '<br/><tr><td align="left"><b>8. PRESENTACIÓN DEL EXPEDIENTE</b></td></tr>';
if ($nombresopf->sof_nombre) {
$cadena .= '<tr><td align="left"><b>Soporte Físico:</b> ' . $nombresopf->sof_nombre . '</td></tr>';
}
if ($fila->exp_nrofoj) {
$cadena .= '<tr><td align="left"><b>Nro. de Fojas:</b> ' . $fila->exp_nrofoj . '</td></tr>';
}
if ($fila->exp_tomovol) {
$cadena .= '<tr><td align="left"><b>Tomos (Vols):</b> ' . $fila->exp_tomovol . '</td></tr>';
}
if ($fila->exp_nroejem) {
$cadena .= '<tr><td align="left"><b>Nro. Ejemplares:</b> ' . $fila->exp_nroejem . '</td></tr>';
}
if ($fila->exp_ori) {
$cadena .= '<tr><td align="left"><b>Originales:</b> ' . $fila->exp_ori . '</td></tr>';
}
if ($fila->exp_cop) {
$cadena .= '<tr><td align="left"><b>Copias:</b> ' . $fila->exp_cop . '</td></tr>';
}
if ($fila->exp_fot) {
$cadena .= '<tr><td align="left"><b>Duplicados:</b> ' . $fila->exp_fot . '</td></tr>';
}
if ($fila->exp_nrocaj) {
$cadena .= '<tr><td align="left"><b>Nro. de Caja:</b> ' . $fila->exp_nrocaj . '</td></tr>';
}
if ($fila->exp_sala) {
$cadena .= '<tr><td align="left"><b>Sala:</b> ' . $fila->exp_sala . '</td></tr>';
}
if ($fila->exp_estante) {
$cadena .= '<tr><td align="left"><b>Estante:</b> ' . $fila->exp_estante . '</td></tr>';
}
if ($fila->exp_cuerpo) {
$cadena .= '<tr><td align="left"><b>Cuerpo:</b> ' . $fila->exp_cuerpo . '</td></tr>';
}
if ($fila->exp_balda) {
$cadena .= '<tr><td align="left"><b>Balda:</b> ' . $fila->exp_balda . '</td></tr>';
}
if ($fila->exp_obs) {
$cadena .= '<tr><td align="left"><b>Observaciones:</b> ' . $fila->exp_obs . '</td></tr>';
}
// Key words
$palclave = new palclave();
$cadena .= '<tr><td align="left"><b>Palabras claves:</b> ' . $palclave->listaPCFile2($fila->exp_id) . '</td></tr>';
}
$cadena .= '</table>';
//$cadena .= '</table>';
$pdf->writeHTML($cadena, true, false, false, false, '');
// Close and output PDF document
$pdf->Output('ficha_expediente.pdf', 'I');
}
function verRpte()
{
// Include the main TCPDF library (search for installation path).
require_once 'tcpdf/tcpdf.php';
// create new PDF document
//$pdf = new TCPDF(PDF_PAGE_ORIENTATION, PDF_UNIT, PDF_PAGE_FORMAT, true, 'UTF-8', false);
$pdf = new TCPDF('P', PDF_UNIT, 'LETTER', true, 'UTF-8', false);
// set document information
$pdf->SetCreator(PDF_CREATOR);
$pdf->SetAuthor('Castellon S.R.L.');
$pdf->SetTitle('Marbetes de documentos y expedientes');
$pdf->SetSubject('Marbetes de documentos y expedientes');
$pdf->SetKeywords('Marbetes, documentos y expedientes');
$pdf->setPrintHeader(false);
$pdf->setPrintFooter(false);
$pdf->setFooterFont(array(PDF_FONT_NAME_DATA, '', PDF_FONT_SIZE_DATA));
// set default header data
//$pdf->SetHeaderData(PDF_HEADER_LOGO, PDF_HEADER_LOGO_WIDTH, PDF_HEADER_TITLE.' 027', PDF_HEADER_STRING);
// set header and footer fonts
// set default monospaced font
$pdf->SetDefaultMonospacedFont(PDF_FONT_MONOSPACED);
// set margins
//$pdf->SetMargins(PDF_MARGIN_LEFT, 7, PDF_MARGIN_RIGHT);
//$pdf->SetMargins(PDF_MARGIN_LEFT, PDF_MARGIN_TOP, PDF_MARGIN_RIGHT);
//$pdf->SetMargins(5, 7, 5);
$pdf->SetMargins(6, 7, 6);
// Margin Header
// $pdf->SetHeaderMargin(PDF_MARGIN_HEADER);
// $pdf->SetHeaderMargin(10);
// set auto page breaks
$pdf->SetAutoPageBreak(TRUE);
//$pdf->SetAutoPageBreak(FALSE);
// set image scale factor
$pdf->setImageScale(PDF_IMAGE_SCALE_RATIO);
// set some language-dependent strings (optional)
if (@file_exists(dirname(__FILE__) . 'tcpdf/lang/eng.php')) {
require_once dirname(__FILE__) . 'tcpdf/lang/eng.php';
$pdf->setLanguageArray($l);
}
// ---------------------------------------------------------
// set a barcode on the page footer
//$pdf->setBarcode(date('Y-m-d H:i:s'));
// set font
// add a page
$pdf->AddPage();
//$pdf->SetFont('helvetica', '', 10);
$pdf->SetFont('helvetica', 'U', 18);
// create columns content
//$pdf->Ln(6);
$pdf->Ln(6);
$style1 = array('position' => '', 'align' => '', 'stretch' => false, 'fitwidth' => true, 'cellfitalign' => 'L', 'border' => true, 'hpadding' => 'auto', 'vpadding' => 'auto', 'fgcolor' => array(0, 0, 0), 'bgcolor' => false, 'font' => 'helvetica', 'fontsize' => 8, 'stretchtext' => 4);
$style2 = array('position' => '', 'align' => '', 'stretch' => false, 'fitwidth' => true, 'cellfitalign' => 'R', 'border' => true, 'hpadding' => 'auto', 'vpadding' => 'auto', 'fgcolor' => array(0, 0, 0), 'bgcolor' => false, 'font' => 'helvetica', 'fontsize' => 8);
// Tipo de reporte
$tiporeporte = $_REQUEST['tiporeporte'];
// Filtro seccion
$uni_id = $_REQUEST['uni_id'];
$ser_id = $_REQUEST['ser_id'];
// Nuevo código
$where = "";
// Resultset
$result = null;
$kl = 0;
$v2[$kl] = 0;
$doxexp[$kl] = 0;
$de[$kl] = 0;
$n = 0;
$where = "";
if ($ser_id) {
$where .= " AND tab_series.ser_id = '{$ser_id}' ";
}
if ($_SESSION["ROL_COD"] != 'AA') {
$where .= " AND tab_expusuario.usu_id= '" . $_SESSION["USU_ID"] . "'";
}
// ************
// Series
// ************
if ($uni_id != "") {
// Expedientes
$sql_marbete = "SELECT\r\n tab_expediente.exp_id,\r\n tab_series.ser_orden,\r\n tab_series.ser_codigo,\r\n tab_expediente.exp_codigo,\r\n tab_expisadg.exp_titulo,\r\n tab_expediente.exp_nrocaj\r\n FROM\r\n tab_usuario\r\n INNER JOIN tab_expusuario ON tab_usuario.usu_id = tab_expusuario.usu_id\r\n INNER JOIN tab_expediente ON tab_expusuario.exp_id = tab_expediente.exp_id\r\n INNER JOIN tab_expfondo ON tab_expediente.exp_id = tab_expfondo.exp_id\r\n INNER JOIN tab_series ON tab_expediente.ser_id = tab_series.ser_id \r\n INNER JOIN tab_expisadg ON tab_expediente.exp_id = tab_expisadg.exp_id\r\n INNER JOIN tab_unidad ON tab_unidad.uni_id = tab_series.uni_id\r\n INNER JOIN tab_fondo ON tab_fondo.fon_id = tab_unidad.fon_id\r\n INNER JOIN tab_tipocorr ON tab_tipocorr.tco_id = tab_series.tco_id\r\n WHERE tab_fondo.fon_estado = 1\r\n AND tab_unidad.uni_estado = 1\r\n AND tab_series.ser_estado = 1\r\n AND tab_tipocorr.tco_estado = 1\r\n AND tab_expediente.exp_estado = 1\r\n AND tab_expisadg.exp_estado = 1\r\n AND tab_expfondo.exf_estado = 1\r\n AND tab_expusuario.eus_estado = 1\r\n AND tab_unidad.uni_id = '{$uni_id}'\r\n {$where}\r\n ORDER BY \r\n tab_fondo.fon_cod,\r\n tab_unidad.uni_cod,\r\n tab_series.ser_orden, \r\n tab_series.ser_codigo, \r\n tab_expediente.exp_codigo::int ";
// INNER JOIN tab_usu_serie ON tab_series.ser_id = tab_usu_serie.ser_id
$tab_usuario = new Tab_usuario();
$rows_expedientes = $tab_usuario->dbSelectBySQL($sql_marbete);
$kl = 0;
$tarchivo = new tab_archivo();
foreach ($rows_expedientes as $rows) {
$x = new Tab_archivo();
$sqlcantidad = "SELECT\r\n COUNT(tab_archivo.fil_id) as cantidad\r\n FROM\r\n tab_exparchivo\r\n INNER JOIN tab_archivo ON tab_exparchivo.fil_id = tab_archivo.fil_id\r\n WHERE\r\n tab_exparchivo.exp_id = '" . $rows->exp_id . "'\r\n AND tab_exparchivo.exa_estado = 1 ";
$cantidad_documentos = $x->dbSelectBySQL($sqlcantidad);
$ct = $cantidad_documentos[0]->cantidad;
if ($ct == 0) {
// Series
$sqlsoloexpedientes = "SELECT\r\n (SELECT fon_codigo from tab_fondo WHERE fon_id=f.fon_par) ||'.'|| f.fon_codigo ||'.'||tab_unidad.uni_cod ||'.'|| tab_tipocorr.tco_codigo ||'.'||tab_series.ser_codigo||'.'||\r\n tab_expediente.exp_codigo AS codigo,\r\n tab_expediente.exp_nroejem,\r\n tab_expediente.exp_id\r\n FROM\r\n tab_fondo AS f\r\n INNER JOIN tab_unidad ON f.fon_id = tab_unidad.fon_id\r\n INNER JOIN tab_series ON tab_unidad.uni_id = tab_series.uni_id\r\n INNER JOIN tab_tipocorr ON tab_tipocorr.tco_id = tab_series.tco_id\r\n INNER JOIN tab_expediente ON tab_series.ser_id = tab_expediente.ser_id\r\n WHERE\r\n f.fon_estado = 1 AND\r\n tab_unidad.uni_estado = 1 AND\r\n tab_tipocorr.tco_estado = 1 AND\r\n tab_series.ser_estado = 1 AND\r\n tab_expediente.exp_id={$rows->exp_id}\r\n ORDER BY \r\n f.fon_cod,\r\n tab_unidad.uni_cod,\r\n tab_series.ser_orden, \r\n tab_series.ser_codigo, \r\n tab_expediente.exp_codigo::int ";
$tab_fondo = new Tab_fondo();
$rows_marb = $tab_fondo->dbSelectBySQL($sqlsoloexpedientes);
$result = $tab_fondo->dbSelectBySQL($sqlsoloexpedientes);
foreach ($rows_marb as $list) {
$m = $list->exp_nroejem;
for ($n = 1; $n <= $m; $n++) {
$v2[$kl] = $list->codigo;
$doxexp[$kl] = 'E' . $list->exp_id;
$de[$kl] = 'e';
$kl++;
}
}
} else {
// Documentos
$sqldocumentos = "SELECT\r\n tab_expediente.exp_id,\r\n tab_archivo.fil_id,\r\n (SELECT fon_codigo from tab_fondo WHERE fon_id=f.fon_par) ||'.'|| f.fon_codigo ||'.'||tab_unidad.uni_cod ||'.'|| tab_tipocorr.tco_codigo ||'.'||tab_series.ser_codigo||'.'||\r\n tab_expediente.exp_codigo as codigoexp, \r\n (SELECT fon_codigo from tab_fondo WHERE fon_id=f.fon_par) ||'.'|| f.fon_codigo ||'.'||tab_unidad.uni_cod ||'.'|| tab_tipocorr.tco_codigo ||'.'||tab_series.ser_codigo||'.'||\r\n tab_expediente.exp_codigo||'.'||tab_archivo.fil_nro as codigo,\r\n tab_archivo.fil_nroejem,\r\n tab_archivo.fil_id,\r\n (NULLIF(tab_archivo.fil_codigo,'')::int) as correlativo\r\n FROM\r\n tab_fondo as f\r\n INNER JOIN tab_unidad ON f.fon_id = tab_unidad.fon_id\r\n INNER JOIN tab_series ON tab_unidad.uni_id = tab_series.uni_id\r\n INNER JOIN tab_tipocorr ON tab_tipocorr.tco_id = tab_series.tco_id\r\n INNER JOIN tab_expediente ON tab_series.ser_id = tab_expediente.ser_id\r\n INNER JOIN tab_exparchivo ON tab_expediente.exp_id = tab_exparchivo.exp_id\r\n INNER JOIN tab_archivo ON tab_archivo.fil_id = tab_exparchivo.fil_id\r\n INNER JOIN tab_expisadg ON tab_expediente.exp_id = tab_expisadg.exp_id\r\n INNER JOIN tab_expusuario ON tab_expediente.exp_id = tab_expusuario.exp_id\r\n INNER JOIN tab_cuerpos ON tab_cuerpos.cue_id = tab_exparchivo.cue_id\r\n INNER JOIN tab_tramitecuerpos ON tab_cuerpos.cue_id = tab_tramitecuerpos.cue_id\r\n INNER JOIN tab_tramite ON tab_tramite.tra_id = tab_tramitecuerpos.tra_id\r\n WHERE\r\n f.fon_estado = 1 AND\r\n tab_unidad.uni_estado = 1 AND\r\n tab_tipocorr.tco_estado = 1 AND\r\n tab_series.ser_estado = 1 AND\r\n tab_expediente.exp_estado = 1 AND\r\n tab_archivo.fil_estado = 1 AND\r\n tab_exparchivo.exa_estado = 1 AND\r\n tab_expusuario.eus_estado = 1 AND\r\n tab_expediente.exp_id ='{$rows->exp_id}' \r\n ORDER BY \r\n f.fon_cod,\r\n tab_unidad.uni_cod,\r\n tab_series.ser_orden, \r\n tab_series.ser_codigo, \r\n tab_expediente.exp_codigo::int, \r\n tab_archivo.fil_nro::int ";
$result_documentos = $tarchivo->dbSelectBySQL($sqldocumentos);
$result = $tarchivo->dbSelectBySQL($sqldocumentos);
$exp_id = 0;
foreach ($result_documentos as $list2) {
if ($exp_id != $list2->exp_id) {
// Exp
$v2[$kl] = $list2->codigoexp;
$doxexp[$kl] = 'E' . $list2->exp_id;
$de[$kl] = 'e';
$kl++;
// Doc
$m = $list2->fil_nroejem;
for ($n = 1; $n <= $m; $n++) {
$v2[$kl] = $list2->codigo;
$doxexp[$kl] = $list2->fil_id;
$de[$kl] = 'd';
$kl++;
}
$exp_id = $list2->exp_id;
} else {
$m = $list2->fil_nroejem;
for ($n = 1; $n <= $m; $n++) {
$v2[$kl] = $list2->codigo;
$doxexp[$kl] = $list2->fil_id;
$de[$kl] = 'd';
$kl++;
}
$exp_id = $list2->exp_id;
}
}
}
}
// end row expedientes
// if ($kl < 1) {
// echo "Esta Serie no tiene Marbetes";
// exit();
// }
}
// else {
// $sqlnoexpedientes = "SELECT
// (SELECT fon_codigo from tab_fondo WHERE fon_id=f.fon_par) ||'.'|| f.fon_codigo ||'.'||tab_unidad.uni_cod ||'.'|| tab_tipocorr.tco_codigo ||'.'||tab_series.ser_codigo||'.'||
// tab_expediente.exp_codigo AS codigo,
// tab_expediente.exp_nroejem,
// tab_expediente.exp_id
// FROM
// tab_fondo AS f
// INNER JOIN tab_unidad ON f.fon_id = tab_unidad.fon_id
// INNER JOIN tab_series ON tab_unidad.uni_id = tab_series.uni_id
// INNER JOIN tab_tipocorr ON tab_tipocorr.tco_id = tab_series.tco_id
// INNER JOIN tab_expediente ON tab_series.ser_id = tab_expediente.ser_id
// WHERE
// f.fon_estado = 1 AND
// tab_unidad.uni_estado = 1 AND
// tab_tipocorr.tco_estado = 1 AND
// tab_series.ser_estado = 1 AND
// tab_expediente.exp_id=$exp_id";
// $tab_fondo = new Tab_fondo();
// $rows_marb = $tab_fondo->dbSelectBySQL($sqlnoexpedientes);
// $result = $tab_fondo->dbSelectBySQL($sqlnoexpedientes);
// }
$t = 1;
$numero = 0;
$j = 1;
// **********************
// Todos los documentos
// **********************
$cantidad_ejem = 0;
$cantidad_ejem2 = $kl;
$n = $kl;
if ($cantidad_ejem == 1) {
$j = 1;
$tip = 1;
$cantidad_ejem2 = 1;
} else {
$j = 1;
$tip = 2;
}
$l = 0;
$codigoizquierda = "";
while ($j <= $n) {
// $codigo = $v[$l];
// $fil_ids = $vdoc[$l];
//
$codigo = $v2[$l];
$fil_ids = $doxexp[$l];
$tipode = $de[$l];
$l++;
$pdf->SetFillColor(255, 255, 255);
$pdf->SetTextColor(58, 35, 9);
$tipo = "";
$izq = 0;
$lugar = 0;
if ($j % 2 == 1) {
$izq = 104;
$lugar = 0;
} else {
$izq = 100;
//
$lugar = 1;
}
if ($fil_ids) {
// Grid Code Document
if ($j == $cantidad_ejem2) {
if ($j % 2 == 1) {
// if ($tipode=='e'){
// $pdf->MultiCell($izq, 0, $codigo, 1, 'J', 1, $lugar, '', '', true, 0, false, true, 0);
// }else{
// $pdf->MultiCell($izq, 0, $codigo, 0, 'J', 1, $lugar, '', '', true, 0, false, true, 0);
// }
//
for ($k = 1; $k <= 2; $k++) {
if ($k == 1) {
if ($tipode == 'e') {
// MultiCell($w, $h, $txt, $border=0, $align='J', $fill=0, $ln=1, $x='', $y='', $reseth=true, $stretch=0, $ishtml=false, $autopadding=true, $maxh=0)
// write the first column
$pdf->MultiCell($izq, 0, $codigo, 1, 'J', 1, $lugar, '', '', true, 0, false, true, 0);
} else {
// MultiCell($w, $h, $txt, $border=0, $align='J', $fill=0, $ln=1, $x='', $y='', $reseth=true, $stretch=0, $ishtml=false, $autopadding=true, $maxh=0)
$pdf->MultiCell($izq, 0, $codigo, 0, 'J', 1, $lugar, '', '', true, 0, false, true, 0);
}
} else {
$pdf->MultiCell(100, 0, '', 0, 'J', 1, 1, '', '', true, 0, false, true, 0);
}
}
} else {
if ($tipode == 'e') {
$pdf->MultiCell($izq, 0, $codigo, 1, 'J', 1, $lugar, '', '', true, 0, false, true, 0);
} else {
$pdf->MultiCell($izq, 0, $codigo, 0, 'J', 1, $lugar, '', '', true, 0, false, true, 0);
}
}
} else {
if ($tipode == 'e') {
$pdf->MultiCell($izq, 0, $codigo, 1, 'J', 1, $lugar, '', '', true, 0, false, true, 0);
} else {
$pdf->MultiCell($izq, 0, $codigo, 0, 'J', 1, $lugar, '', '', true, 0, false, true, 0);
}
}
}
// Bar Code
if ($j % 2 == 0) {
for ($i = 1; $i <= $tip; $i++) {
if ($i % 2 == 1) {
$tipo = "";
$style = $style1;
$pdf->write1DBarcode(str_pad($codigoizquierda, 7, "0", STR_PAD_LEFT), 'C39', '', '', '', 18, 0.61, $style, $tipo);
} else {
$tipo = "N";
$style = $style2;
$pdf->write1DBarcode(str_pad($fil_ids, 7, "0", STR_PAD_LEFT), 'C39', '', '', '', 18, 0.61, $style, $tipo);
}
}
//*************************
// New line for new bar code
//*************************
$pdf->Ln(12);
// // Count lines
// if (j!=14){
// $pdf->Ln(11);
// }else{
// $pdf->Ln(20);
// }
} else {
if ($j == $cantidad_ejem2) {
$pdf->write1DBarcode(str_pad($fil_ids, 7, "0", STR_PAD_LEFT), 'C39', '', '', '', 18, 0.61, $style1, "");
}
}
$j++;
if ($j > 14) {
//$pdf->SetMargins(PDF_MARGIN_LEFT, 14, PDF_MARGIN_RIGHT);
//$pdf->SetMargins(5, 14, 5);
$pdf->SetMargins(6, 14, 6);
}
$t++;
$codigoizquierda = $fil_ids;
}
//end foreach
$pdf->Output('listado_marbetes.pdf', 'I');
}
