File "exportar_pdf.php"

Full Path: C:/wamp64/www/casos_medicos/reportes/exportar_pdf.php
File size: 3.12 KB
MIME-type: text/x-php
Charset: utf-8

<?php
require_once(__DIR__ . '/../tcpdf_min/tcpdf.php');

include("../conexion.php");

$cedula = $_GET['cedula'] ?? '';
if(empty($cedula)){
    die("No se indicó cédula");
}

// Obtener información del paciente
$sql = "SELECT h.*, 
            afp.nombre AS afp,
            eps.nombre AS eps,
            arl.nombre AS arl,
            emp.nombre AS empresa,
            pl.nombre AS planta,
            e.nombre AS estado
        FROM hoja_vida h
        LEFT JOIN afp afp ON afp.id = h.id_afp
        LEFT JOIN eps eps ON eps.id = h.id_eps
        LEFT JOIN arl arl ON arl.id = h.id_arl
        LEFT JOIN empresa emp ON emp.id = h.id_empresa
        LEFT JOIN planta pl ON pl.id = h.id_planta
        LEFT JOIN estado e ON e.id = h.id_estado
        WHERE h.cedula='$cedula' LIMIT 1";

$paciente = $conn->query($sql)->fetch_assoc();

// Obtener diagnósticos
$sqlDiag = "SELECT dp.*, d.descripcion AS diagnostico_descripcion
            FROM diagnostico_paciente dp
            LEFT JOIN diagnostico d ON dp.codigo_diagnostico = d.id
            WHERE dp.cedula='$cedula'
            ORDER BY dp.fecha DESC";
$diagRes = $conn->query($sqlDiag);

// Crear PDF
$pdf = new TCPDF();
$pdf->SetCreator(PDF_CREATOR);
$pdf->SetAuthor('Avicampo');
$pdf->SetTitle('Acta de seguimiento PRRL - '.$paciente['nombre']);
$pdf->SetMargins(15, 20, 15);
$pdf->AddPage();

// Logo Avicampo
$logo = '../assets/logo_avicampo.png'; // Ajusta ruta
if(file_exists($logo)) $pdf->Image($logo,15,10,40);

// Título
$pdf->Ln(20);
$pdf->SetFont('helvetica','B',16);
$pdf->Cell(0,10,'Acta de seguimiento PRRL - '.$paciente['nombre'],0,1,'C');

// Datos generales
$pdf->SetFont('helvetica','',10);
$html = '<h4>Datos Generales</h4>
<table cellpadding="4" border="1">
<tr><td><b>Cédula:</b></td><td>'.$paciente['cedula'].'</td></tr>
<tr><td><b>Nombre:</b></td><td>'.$paciente['nombre'].'</td></tr>
<tr><td><b>Fecha Nacimiento:</b></td><td>'.$paciente['fecha_nacimiento'].'</td></tr>
<tr><td><b>Edad:</b></td><td>'.$paciente['edad'].'</td></tr>
<tr><td><b>Estado:</b></td><td>'.$paciente['estado'].'</td></tr>
<tr><td><b>AFP:</b></td><td>'.$paciente['afp'].'</td></tr>
<tr><td><b>EPS:</b></td><td>'.$paciente['eps'].'</td></tr>
<tr><td><b>ARL:</b></td><td>'.$paciente['arl'].'</td></tr>
<tr><td><b>Empresa:</b></td><td>'.$paciente['empresa'].'</td></tr>
<tr><td><b>Planta:</b></td><td>'.$paciente['planta'].'</td></tr>
</table>';

$pdf->writeHTML($html,true,false,true,false,'');

// Diagnósticos
$pdf->Ln(5);
$pdf->SetFont('helvetica','B',12);
$pdf->Cell(0,6,'Diagnósticos',0,1);

$pdf->SetFont('helvetica','',10);
foreach($diagRes as $d){
    $pdf->MultiCell(0,5,"Fecha: ".$d['fecha']." | Estado: ".$d['estado']." | Diagnóstico: ".$d['diagnostico_descripcion']."\nPeso: ".$d['peso']." | Talla: ".$d['talla']." | IMC: ".$d['imc']."\nOrigen: ".$d['origen']." | Calificación: ".$d['calificacion_origen']."\nTipo Reintegro: ".$d['tipo_reintegro']." | Tiempo Recomendación: ".$d['tiempo_recomendacion']."\nFunciones Iniciales: "."\nFunciones Actuales: "."\nRecomendaciones: ".$d['recomendaciones'],0,'J',false,1);
    $pdf->Ln(2);
}

// Generar PDF
$pdf->Output('Historia_Clinica_'.$paciente['cedula'].'.pdf','D');