<html>
  <head>
    <meta http-equiv="content-type" content="text/html; charset=UTF-8"/>
    <title>prueba-ficha</title>
  <style>
* { 
  font-family: "Sans"; 
}
@page {
  size: A4 portrait;
  margin-top: 15mm;
  margin-bottom: 15mm;

  @top-center {
    content: element(top-center);
    padding: 1mm; border: 1px solid white; 
    vertical-align: bottom;
    background: #eeeeee;
  }

  @bottom-center {
    content: element(bottom-center);
    padding: 1mm; border: 1px solid white; 
    vertical-align: top;
    background: #eeeeee;
  }
}

.top-center {
  position: running(top-center);
}
.bottom-center { 
  position: running(bottom-center);
}
.page-number::after  {   
  content: counter(page);
}

.espacio1 {
  height: 4px;
}


.titulo_accidente1 {  
  vertical-align: middle;
  text-align: left;
  color: black;
  font-family: "Sans";  
  font-size: small;
  font-weight: bold;
  word-break: keep-all;
  border: 1px solid black;
  width:100%; 
  background-color: #c86464;
  padding-top: 2px;
  padding-bottom: 2px;
}
.titulo_accidente2 {  
  vertical-align: middle;
  text-align: left;
  color: black;
  font-family: "Sans";  
  font-size: x-small;
  font-weight: bold;
  border: 1px solid black;
  width:100%; 
  background-color: #c89696 ;
  padding-top: 2px;
  padding-bottom: 2px;
}
.datos1_accidente tr:nth-child(odd) td {
  vertical-align: middle;
  text-align: center;
  background-color: #f0c8c8;
  color: black;
  word-break: keep-all;
  font-family: "Sans";  
  font-size: x-small;
 font-weight: bold;
}
.datos1_accidente  tr:nth-child(even) td {
  vertical-align: top;
  text-align: center;
  background-color: white;
  color: black;
  word-break: keep-all;
  font-family: "Sans";  
  font-size: x-small;
  font-weight: normal; 
  padding-top: 4px;
  padding-bottom: 4px;
}
.titulo_vehiculo1 {  
  vertical-align: middle;
  text-align: left;
  color: black;
  font-family: "Sans";  
  font-size: x-small;
  font-weight: bold;
  border: 1px solid black;
  width:100%; 
  background-color: #9696FA;
  page-break-inside: avoid;  
  padding-top: 2px;
  padding-bottom: 2px;  
}
.datos1_vehiculo tr:nth-child(odd) td {
  vertical-align: middle;
  text-align: center;
  background-color: #AABEFA;
  color: black;
  word-break: keep-all;
  font-family: "Sans";  
  font-size: x-small;
 font-weight: bold;
}
.datos1_vehiculo  tr:nth-child(even) td {
  vertical-align: top;
  text-align: center;
  background-color: white;
  color: black;
  word-break: keep-all;
  font-family: "Sans";  
  font-size: x-small;
  font-weight: normal;  
  padding-top: 4px;
  padding-bottom: 4px;
}
.titulo_conductor1 {  
  vertical-align: middle;
  text-align: left;
  color: black;
  font-family: "Sans";  
  font-size: x-small;
  font-weight: bold;
  border: 1px solid black;
  width:100%; 
  background-color: #3CF0BE;
  page-break-inside: avoid;  
  padding-top: 2px;
  padding-bottom: 2px; 
}
.datos1_conductor tr:nth-child(odd) td {
  vertical-align: middle;
  text-align: center;
  background-color: #BEFAE6;
  color: black;
  word-break: keep-all;
  font-family: "Sans";  
  font-size: x-small;
 font-weight: bold;
}
.datos1_conductor  tr:nth-child(even) td {
  vertical-align: top;
  text-align: center;
  background-color: white;
  color: black;
  word-break: keep-all;
  font-family: "Sans";  
  font-size: x-small;
  font-weight: normal;  
  padding-top: 4px;
  padding-bottom: 4px;
}
.titulo_pasajero1 {  
  vertical-align: middle;
  text-align: left;
  color: black;
  font-family: "Sans";  
  font-size: x-small;
  font-weight: bold;
  border: 1px solid black;
  width:100%;
  background-color: #FAB45A;
  page-break-inside: avoid;
  padding-top: 2px;
  padding-bottom: 2px;  
}
.datos1_pasajero tr:nth-child(odd) td {
  vertical-align: middle;
  text-align: center;
  background-color: #FADCB4;
  color: black;
  word-break: keep-all;
  font-family: "Sans";  
  font-size: x-small;
 font-weight: bold;
}
.datos1_pasajero  tr:nth-child(even) td {
  vertical-align: top;
  text-align: center;
  background-color: white;
  color: black;
  word-break: keep-all;
  font-family: "Sans";  
  font-size: x-small;
  font-weight: normal;  
  padding-top: 4px;
  padding-bottom: 4px;
}

.titulo_peaton1 {  
  vertical-align: middle;
  text-align: left;
  color: black;
  font-family: "Sans";  
  font-size: x-small;
  font-weight: bold;
  border: 1px solid black;
  width:100%;
  background-color: #F3FA6E;
  page-break-inside: avoid;  
  padding-top: 2px;
  padding-bottom: 2px;
}
.datos1_peaton tr:nth-child(odd) td {
  vertical-align: middle;
  text-align: center;
  background-color: #FBFCAC;
  color: black;
  word-break: keep-all;
  font-family: "Sans";  
  font-size: x-small;
 font-weight: bold;
}
.datos1_peaton  tr:nth-child(even) td {
  vertical-align: top;
  text-align: center;
  background-color: white;
  color: black;
  word-break: keep-all;
  font-family: "Sans";  
  font-size: x-small;
  font-weight: normal;  
  padding-top: 4px;
  padding-bottom: 4px;
}
.titulo_croquis1 {  
  vertical-align: middle;
  text-align: left;
  color: black;
  font-family: "Sans";  
  font-size: x-small;
  font-weight: bold;
  border: 1px solid black;
  width:100%; 
  background-color: #6EFA6B;
  page-break-inside: avoid; 
  padding-top: 2px;
  padding-bottom: 2px;
}
</style>
  </head>
  <body>
<%
CREATE FUNCTION SINO valor AS 
BEGIN
  IIF(valor,'SÍ','NO');
END;

CREATE FUNCTION REKILOMETRADO accidente AS
BEGIN
  tramo := accidente.getForeignFeature('ID_TRAMO_CARRETERA');
  IF tramo IS NULL THEN 
  	RETURN array[NULL, NULL];
  END IF;
  IF tramo.TC_FECHA_SALIDA IS NULL THEN 
  	RETURN array[NULL, NULL];
  END IF;
  p := accidente.MAPA;
  SELECT * INTO tramoActual from "SIGCAR_TRAMOS_CARRETERAS"
  WHERE
    "TC_FECHA_SALIDA" IS NULL AND
    ST_INTERSECTS(ST_BUFFER(p,100),"TC_THE_GEOM")
  ORDER BY
    ST_DISTANCE(p, "TC_THE_GEOM") ASC
  LIMIT 1;
  IF tramoActual IS NULL THEN 
  	RETURN array['?', -99999];
  END IF;

  nearestPoints := tramoActual.TC_THE_GEOM.closestPoints(p);
  --pActualConM := LRSPointFromGeometry(tramoActual.TC_THE_GEOM, nearestPoints[0]);
  locatePoint := ST_LineLocatePoint(tramoActual.TC_THE_GEOM, nearestPoints[0]);
  pActualConM := ST_LineInterpolatePoint(tramoActual.TC_THE_GEOM, locatePoint);



  pkActual := pActualConM.getM()/1000;
  sameMatricula := tramoActual.TC_MATRICULA = tramo.TC_MATRICULA;
  samePK := ABS(pkActual - ROW.KM) <= 0.010;
  IF sameMatricula THEN
    IF samePK THEN
      RETURN array[NULL, NULL];
    ELSE 
      RETURN array[NULL, pkActual]
    END IF;
  END IF;
  RETURN array[tramoActual.TC_MATRICULA,pkActual];
END;


STATUS:=$REPORT.getStatus();
STATUS.setRangeOfValues(1,$REPORT.rows().size());
STATUS.setCurValue(1);

ROWCOUNT := 1;
weekDays:=ARRAY['domingo','lunes','martes','miércoles','jueves','viernes','sábado'];

FOR ROW in $REPORT.rows()
LOOP
  IF ROWCOUNT > 1 THEN
    %>
    <p style="page-break-after: always;">&nbsp;</p>
    <%
  END IF;
  ROWCOUNT := ROWCOUNT + 1;
  STATUS.message('Accidente '|| ROW.ID_ACCIDENTE);  
  aforo:=ROW.getForeignFeature('COD_AFORO');
  x := REKILOMETRADO(ROW);
  carreteraReki := x[0];
  pkReki := x[1];
  
%>
  <div class="top-center titulo_accidente1">
           <table width="100%" cellspacing="0" cellpadding="0" border="0">
              <tr>
                <td>&nbsp;ACCIDENTE <%=ROW.LID_ACCIDENTE%></td>
                <td style="text-align: right; font-size: xx-small">Actualizado&nbsp;<%=SINO(ROW.ACTUALIZADO)%>&nbsp;</td>
              </tr>
          </table>
      </div>
   <div class="bottom-center">
           <hr/>
           <table width="100%" cellspacing="0" cellpadding="0" border="0">
              <tr>
                <td>&nbsp;ACCIDENTE <%=ROW.LID_ACCIDENTE%></td>
               <td style="text-align: right; font-size: xx-small">Página <span class="page-number"/></td>
             </tr>
          </table>
      </div>
    
    <div class="titulo_accidente2">&nbsp;Datos generales</div>
    <div class="espacio1"/>
    
     <table width="100%" cellspacing="0" cellpadding="0" border="0" class="datos1_accidente">
         <tr>
            <td>Fecha/hora accidente</td>
            <td colspan="2" >Tipo de día</td>
            <td >M / HG / HL / IL</td>
          </tr>
          <tr>
            <td style="white-space:nowrap;"><%=FORMAT('%1$td/%1$tm/%1$tY',ROW.FECHA_ACCIDENTE)%> <%=FORMAT('%1$tH:%1$tM',ROW.HORA_ACCIDENTE)%></td>
            <td colspan="2" ><%=weekDays.get(EXTRACT(DOW FROM ROW.FECHA_ACCIDENTE))%></td>
            <td ><%=ROW.TOTAL_MUERTOS%> / <%=ROW.TOTAL_GRAVES%> / <%=ROW.TOTAL_LEVES%> / <%=ROW.TOTAL_ILESOS%></td>
          </tr>
          <tr>
            <td>Provincia</td>
            <td>Municipio</td>
            <td>Población</td>
            <td>Titularidad vía</td>
          </tr>
          <tr>
            <td><%=$REPORT.formatFieldValue(ROW,'COD_PROVINCIA')%></td>
            <td><%=$REPORT.formatFieldValue(ROW,'COD_MUNICIPIO')%></td>
            <td><%=$REPORT.formatFieldValue(ROW,'COD_POBLACION')%></td>
            <td><%=$REPORT.formatFieldValue(ROW,'TITULARIDAD_VIA')%></td>
          </tr>
          <tr>
            <td>P.K.</td>
            <td>Sentido</td>
            <td>Nª carriles asc/des</td>
            <td>Nª calzada</td>
          </tr>
          <tr>
	<td><%=FORMAT('%.3f',ROW.KM) || IFNULL(pkReki,'', ' ('|| IF pkReki < -90000 THEN '?' ELSE FORMAT('%.3f',pkReki) END IF||')') %></td>
            <td><%=$REPORT.formatFieldValue(ROW,'SENTIDO')%></td><!--  $REPORT.getLabelOfFieldValue(ROW,'SENTIDO')  -->
            <td><%=$REPORT.formatFieldValue(ROW,'CARRILES_APTOS_CIRC_ASC')%>/<%=$REPORT.formatFieldValue(ROW,'CARRILES_APTOS_CIRC_DESC')%></td>
            <td><%=$REPORT.formatFieldValue(ROW,'NUMERO_CALZADAS')%></td>
          </tr>
          <tr>
            <td>Anchura carril</td>
            <td colspan="2">Marca vial</td>
            <td>Arcén</td>
          </tr>
          <tr>
            <td><%=$REPORT.formatFieldValue(ROW,'ANCHURA_CARRIL')%></td>
            <td colspan="2"><%=$REPORT.formatFieldValue(ROW,'MARCAS_VIALES')%></td>
            <td><%=$REPORT.formatFieldValue(ROW,'ARCEN')%></td>
          </tr>
          <tr>
            <td>Prioridad regulada por</td>
            <td colspan="2">Nudo/intersección</td>
            <td>Información nudo</td>
          </tr>
          <tr>
            <td><%=CONCAT(
                                IIF(ROW.PRIORI_NORMA,'Norma<br>',''),
                                IIF(ROW.PRIORI_AGENTE,'Agente<br>',''),
                                IIF(ROW.PRIORI_SEMAFORO,'Semaforo<br>',''),
                                IIF(ROW.PRIORI_VERT_STOP,'Stop (V)<br>',''),
                                IIF(ROW.PRIORI_HORIZ_STOP,'Stop (H)<br>',''),
                                IIF(ROW.PRIORI_VERT_CEDA,'Ceda (V)<br>',''),
                                IIF(ROW.PRIORI_HORIZ_CEDA,'Ceda (H)<br>',''),
                                IIF(ROW.PRIORI_MARCAS,'Marcas<br>',''),
                                IIF(ROW.PRIORI_PEA_ELEV,'Peatones (E)<br>',''),
                                IIF(ROW.PRIORI_PEA_NO_ELEV,'Peatones (NE)<br>',''),
                                IIF(ROW.PRIORI_MARCA_CICLOS,'Marcas ciclo<br>',''),
                                IIF(ROW.PRIORI_CIRCUNSTANCIAL,'Circustancial<br>',''),
                                IIF(ROW.PRIORI_OTRA,'Otra','')
                            )%>
               </td>
            <td colspan="2"><%=$REPORT.formatFieldValue(ROW,'NUDO')%></td>
            <td><%=$REPORT.formatFieldValue(ROW,'NUDO_INFO')%></td>
          </tr>
          <tr>
            <td>Zona</td>
            <td>Tipo vía</td>
            <td>Carretera</td>
            <td>Funcionalidad vía</td>
          </tr>
          <tr>
            <td><%=$REPORT.formatFieldValue(ROW,'ZONA')%></td>
            <td><%=$REPORT.formatFieldValue(ROW,'TIPO_VIA')%>l</td>
            <td><%=ROW.CARRETERA || IFNULL(carreteraReki,'', ' ('||carreteraReki||')') %></td>
            <td><%=$REPORT.formatFieldValue(ROW,'CARACT_FUNCIONAL_VIA')%></td>
          </tr>
          <tr>
            <td>Limite de velocidad</td>
            <td colspan="2">Velocidad (km/h)</td>
            <td>Nivel circulación</td>
          </tr>
          <tr>
            <td><%=ROW.VEL_GENERICA_SENYALIZADA%></td>
            <td colspan="2"><%=ROW.VELOCIDAD%></td>
            <td><%=$REPORT.formatFieldValue(ROW,'CONDICION_NIVEL_CIRCULA')%></td>
          </tr>
     </table>
    <div class="titulo_accidente2">&nbsp;Tipo accidente</div>
      <div class="espacio1"/>
     <table width="100%" cellspacing="0" cellpadding="0" border="0" class="datos1_accidente">
          <tr>
            <td>Salida</td>
            <td>Colisión</td>
            <td>C. sentido contrario</td>
            <td>Intervino animal</td>
          </tr>
          <tr>
            <td><%=$REPORT.formatFieldValue(ROW,'TIPO_ACC_SALIDA')%></td>
            <td><%=$REPORT.formatFieldValue(ROW,'TIPO_ACC_COLISION')%></td>
            <td><%=SINO(ROW.SENTIDO_CONTRARIO)%></td>
            <td><%=SINO(ROW.TIPO_ACC_ANIMAL IS NOT NULL)%></td>
          </tr>
     </table>
    <div class="titulo_accidente2">&nbsp;Elementos de seguridad de la vía</div>
      <div class="espacio1"/>
     <table width="100%" cellspacing="0" cellpadding="0" border="0" class="datos1_accidente">
          <tr>
            <td>Mediana entre calzadas</td>
            <td>Barra de seguridad</td>
            <td>Paneles direccionales</td>
            <td>Hitos de aristas</td>
            <td>Captafaros</td>
          </tr>
          <tr>
            <td><%=SINO(ROW.SEPARA_MEDIANA)%></td>
            <td><%=SINO(ROW.SEPARA_BARRERA_SEGURIDAD)%></td>
            <td><%=SINO(ROW.EB_PANELES_DIRECCIONALES)%></td>
            <td><%=SINO(ROW.EB_HITOS_ARISTA)%></td>
            <td><%=SINO(ROW.EB_CAPTAFAROS)%></td>
          </tr>
     </table>
    <div class="titulo_accidente2">&nbsp;Condiciones de la vía</div>
      <div class="espacio1"/>
     <table width="100%" cellspacing="0" cellpadding="0" border="0" class="datos1_accidente">
          <tr>
            <td>Superficie</td>
            <td>Luminosidad</td>
            <td>F. atmosféricos</td>
            <td>Visibilidad restringida por</td>
            <td>Circunstancias especiales</td>
          </tr>
          <tr>
            <td><%=$REPORT.formatFieldValue(ROW,'CONDICION_FIRME')%></td>
            <td><%=$REPORT.formatFieldValue(ROW,'CONDICION_ILUMINACION')%></td>
            <td><%=$REPORT.formatFieldValue(ROW,'CONDICION_METEO')%></td>
            <td><%=$REPORT.formatFieldValue(ROW,'VISIB_RESTRINGIDA_POR')%></td>
            <td><%=CONCAT(
                                IIF(ROW.CIRCUNS_ESP_OBRAS,'Obras<br>',''),
                                IIF(ROW.CIRCUNS_ESP_FBACHES,'Firme con baches<br>',''),
                                IIF(ROW.CIRCUNS_ESP_ZANJA,'Zanja<br>',''),
                                IIF(ROW.CIRCUNS_ESP_DESC,'Desconocida<br>',''),
                                IIF(ROW.CIRCUNS_ESP_FDETERIORADO,'Firme deteriorado<br>',''),
                                IIF(ROW.CIRCUNS_ESP_OBSTACULO,'Obstaculo<br>',''),
                                IIF(ROW.CIRCUNS_ESP_DESPREND,'Desprendimiento<br>',''),
                                IIF(ROW.CIRCUNS_ESP_NINGUNA,'Ninguna<br>',''),
                                IIF(ROW.CIRCUNS_ESP_OTRAS,'Otras<br>',''),
                                IIF(ROW.CIRCUNS_ESP_ESCALON,'Escalón<br>',''),
                                IIF(ROW.CIRCUNS_ESP_CONOS,'Conos<br>',''),
                                IIF(ROW.CIRCUNS_ESP_TAPA,'Tapa','')
                            )%></td>

            
          </tr>
          <tr>
            <td>Características márgenes</td>
            <td>Acera</td>
            <td>Delimitación calzada</td>
            <td>Trazado planta</td>
            <td>Trazado alzado</td>
          </tr>
          <tr>
            <td><%=CONCAT(
IIF(ROW.MARGEN_ARBOLES,'Árboles<br>',''),
IIF(ROW.MARGEN_POSTES,'Postes<br>',''),
IIF(ROW.MARGEN_EDIFICIOS,'Edificios<br>',''),
IIF(ROW.MARGEN_PUBLICIDAD,'Publicidad<br>',''),
IIF(ROW.MARGEN_DESPEJADO,'Despejado<br>',''),
IIF(ROW.MARGEN_DESC,'Desconocido<br>',''),
IIF(ROW.MARGEN_OTROS_OBSTACULOS,'Otros obstáculos<br>',''),
IIF(ROW.MARGEN_OTROS_NATURALES,'Otros obstáculos naturales<br>',''),
IIF(ROW.MARGEN_OTROS_ARTIFICIALES,'Otros obstáculos artificiales','')
)%></td>
            <td><%=$REPORT.formatFieldValue(ROW,'ACERA')%></td>
            <td><%=CONCAT(
IIF(ROW.DELIM_CALZADA_ISLETA,'Isleta<br>',''),
IIF(ROW.DELIM_CALZADA_VALLAS,'Vallas<br>',''),
IIF(ROW.DELIM_CALZADA_BARRERA,'Barrera<br>',''),
IIF(ROW.DELIM_CALZADA_MARCAS,'Marcas<br>',''),
IIF(ROW.DELIM_CALZADA_BORDILLO,'Bordillo<br>',''),
IIF(ROW.DELIM_CALZADA_SETOS,'Setos<br>',''),
IIF(ROW.DELIM_CALZADA_PEATONAL,'Peatonal<br>',''),
IIF(ROW.DELIM_CALZADA_OTRA,'Otra<br>',''),
IIF(ROW.DELIM_CALZADA_SIN_DELIM,'Sin delimitar','')
)%></td>
            <td><%=$REPORT.formatFieldValue(ROW,'TRAZADO_PLANTA')%></td>
            <td><%=$REPORT.formatFieldValue(ROW,'TRAZADO_ALZADO')%></td>
          </tr>
     </table>
    <div class="titulo_accidente2">&nbsp;Posibles factores concurrentes</div>
      <div class="espacio1"/>
     <table width="100%" cellspacing="0" cellpadding="0" border="0" class="datos1_accidente">
          <tr>
            <td>Distracción</td>
            <td>Inexperiencia del conductor</td>
            <td>Alcohol</td>
            <td>Drogas</td>
            <td>Cansancio o sueño</td>
          </tr>
          <tr>
            <td><%=SINO(ROW.FC_CON_DISTRAIDA)%></td>
            <td><%=SINO(ROW.FC_INEXPERIENCIA)%></td>
            <td><%=SINO(ROW.FC_ALCOHOL)%></td>
            <td><%=SINO(ROW.FC_DROGAS)%></td>
            <td><%=SINO(ROW.FC_CANSANCIO)%></td>
          </tr>
          <tr>
            <td>Velocidad inadecuada</td>
            <td>Conducción negligente</td>
            <td>Conducción temeraria</td>
            <td>No respetar prioridad</td>
            <td>Dist. seguridad</td>
          </tr>
          <tr>
            <td><%=SINO(ROW.FC_VEL_INADECUADA)%></td>
            <td><%=SINO(ROW.FC_CON_NEGLIGENTE)%></td>
            <td><%=SINO(ROW.FC_CON_TEMERARIA)%></td>
            <td><%=SINO(ROW.FC_PRIORIDAD)%></td>
            <td><%=SINO(ROW.FC_SEGURIDAD)%></td>
          </tr>
          <tr>
            <td>Giro incorrecto</td>
            <td>Mal estado del vehículo</td>
            <td>Avería mecánica</td>
            <td>Enfermedad</td>
            <td>Meteorología adversa</td>
          </tr>
          <tr>
            <td><%=SINO(ROW.FC_GIRO)%></td>
            <td><%=SINO(ROW.FC_MAL_ESTADO_VEHI)%></td>
            <td><%=SINO(ROW.FC_AVERIA)%></td>
            <td><%=SINO(ROW.FC_ENFERMEDAD)%></td>
            <td><%=SINO(ROW.FC_METEORO)%></td>
          </tr>
          <tr>
            <td>Irrupción de peatón</td>
            <td>Irrupción de animal</td>
            <td>Obstáculo</td>
            <td>Tramo en obras</td>
            <td>Estado de la señalización</td>
          </tr>
          <tr>
            <td><%=SINO(ROW.FC_IRRUPCION_PEATON)%></td>
            <td><%=SINO(ROW.FC_IRRUPCION_ANIMAL)%></td>
            <td><%=SINO(ROW.FC_OBSTACULO)%></td>
            <td><%=SINO(ROW.FC_OBRAS)%></td>
            <td><%=SINO(ROW.FC_SENYALIZACION)%></td>
          </tr>
          <tr>
            <td>Adelantamiento</td>
            <td>Estado de la vía</td>
            <td>Otro factor</td>
            <td></td>
            <td></td>
          </tr>
          <tr>
            <td><%=SINO(ROW.FC_ADELANTAMIENTO)%></td>
            <td><%=SINO(ROW.FC_ESTADO_VIA)%></td>
            <td><%=SINO(ROW.FC_OTRO_FACTOR)%></td>
          </tr>
     </table>
    <div class="titulo_accidente2">&nbsp;Descripción</div>
      <!--<div class="espacio1"/>-->
    <p style=" font-family: Sans;  font-size: x-small;"><%=ROW.DESCRIPCION%></p>
    <div style="page-break-inside: avoid;">
    <div class="titulo_accidente2">&nbsp;Número implicados</div>
      <div class="espacio1"/>
     <table width="100%" cellspacing="0" cellpadding="0" border="0" class="datos1_accidente">
          <tr>
            <td>Total víctimas</td>
            <td>Total muertos</td>
            <td>Total graves</td>
            <td>Total leves</td>
            <td>Total ilesos</td>
          </tr>
          <tr>
            <td><%=IIF(ROW.TOTAL_VICTIMAS IS NULL,0,ROW.TOTAL_VICTIMAS)%></td>
            <td><%=IIF(ROW.TOTAL_MUERTOS IS NULL,0,ROW.TOTAL_MUERTOS)%></td>
            <td><%=IIF(ROW.TOTAL_GRAVES IS NULL,0,ROW.TOTAL_GRAVES)%></td>
            <td><%=IIF(ROW.TOTAL_LEVES IS NULL,0,ROW.TOTAL_LEVES)%></td>
            <td><%=IIF(ROW.TOTAL_ILESOS IS NULL,0,ROW.TOTAL_ILESOS)%></td>
          </tr>
     </table>
     <table width="100%" cellspacing="0" cellpadding="0" border="0" class="datos1_accidente">
          <tr>
            <td>Total vehículos</td>
            <td>Total conductores</td>
            <td>Total pasajeros</td>
            <td>Total peatones</td>
          </tr>
          <tr>
            <td><%=IIF(ROW.TOTAL_VEHICULOS IS NULL,0,ROW.TOTAL_VEHICULOS)%></td>
            <td><%=IIF(ROW.TOTAL_CONDUCTORES IS NULL,0,ROW.TOTAL_CONDUCTORES)%></td>
            <td><%=IIF(ROW.TOTAL_PASAJEROS IS NULL,0,ROW.TOTAL_PASAJEROS)%></td>
            <td><%=IIF(ROW.TOTAL_PEATONES IS NULL,0,ROW.TOTAL_PEATONES)%></td>
          </tr>
          <tr>
            <td>Total turismos</td>
            <td>Total furgonetas</td>
            <td>Total camiones</td>
            <td>Total autobuses</td>
          </tr>
          <tr>
            <td><%=IIF(ROW.NUM_TURISMOS IS NULL,0,ROW.NUM_TURISMOS)%></td>
            <td><%=IIF(ROW.NUM_FURGONETAS IS NULL,0,ROW.NUM_FURGONETAS)%></td>
            <td><%=IIF(ROW.NUM_CAMIONES IS NULL,0,ROW.NUM_CAMIONES)%></td>
            <td><%=IIF(ROW.NUM_AUTOBUSES IS NULL,0,ROW.NUM_AUTOBUSES)%></td>
          </tr>
          <tr>
            <td>Total ciclomotores</td>
            <td>Total motocicletas</td>
            <td>Total bicicletas</td>
            <td>Total bici. elect.</td>
          </tr>
          <tr>
            <td><%=IIF(ROW.NUM_CICLOMOTORES IS NULL,0,ROW.NUM_CICLOMOTORES)%></td>
            <td><%=IIF(ROW.NUM_MOTOCICLETAS IS NULL,0,ROW.NUM_MOTOCICLETAS)%></td>
            <td><%=IIF(ROW.NUM_BICICLETAS IS NULL,0,ROW.NUM_BICICLETAS)%></td>
            <td><%=IIF(ROW.NUM_BICICLETASELECTRICAS IS NULL,0,ROW.NUM_BICICLETASELECTRICAS)%></td>
          </tr>
          <tr>
            <td>Total VMP</td>
            <td>Total desconocidos</td>
            <td>Total otros vehículos</td>
            <td></td>
          </tr>
          <tr>
            <td><%=IIF(ROW.NUM_VMP IS NULL,0,ROW.NUM_VMP)%></td>
            <td><%=IIF(ROW.NUM_DESCONOCIDOS IS NULL,0,ROW.NUM_DESCONOCIDOS)%></td>
            <td><%=IIF(ROW.NUM_OTROS_VEHI IS NULL,0,ROW.NUM_OTROS_VEHI)%></td>
            <td></td>
          </tr>
          <tr>
            <td>Adelantamiento</td>
            <td>Estado de la vía</td>
            <td>Otro factor</td>
            <td></td>
            <td></td>
          </tr>
          <tr>
            <td><%=$REPORT.formatFieldValue(ROW,'TIPO_ACC_SALIDA')%></td>
            <td><%=$REPORT.formatFieldValue(ROW,'TIPO_ACC_COLISION')%></td>
            <td><%=$REPORT.formatFieldValue(ROW,'SENTIDO_CONTRARIO')%></td>
          </tr>
     </table>
    </div>
<%
    IF aforo IS NOT NULL THEN
%>

    <div class="titulo_accidente2">&nbsp;Datos de tráfico (<%=UPPER(aforo.LID_MEDIDA_AFORO)%>)</div>
      <div class="espacio1"/>
     <table width="100%" cellspacing="0" cellpadding="0" border="0" class="datos1_accidente">
          <tr>
            <td>Carretera</td>
            <td>PK de la estación</td>
            <td>PK de la estación rekilometrado</td>
          </tr>
          <tr>
            <td><%=aforo.MAFO_CARRETERA%></td>
            <td><%=aforo.MAFO_PK_ESTACION%></td>
            <td><%=aforo.MAFO_REKI_PK_ESTACION%></td>
          </tr>
     </table>
     <table width="100%" cellspacing="0" cellpadding="0" border="0" class="datos1_accidente">
          <tr>
            <td>Intensidad media diaria</td>
            <td>% pesados</td>
          </tr>
          <tr>
            <td><%=aforo.MAFO_IM%></td>
            <td><%=aforo.MAFO_ZP%></td>
          </tr>
     </table>
     <table width="100%" cellspacing="0" cellpadding="0" border="0" class="datos1_accidente">
          <tr>
            <td>Vel. media total asc. V85</td>
            <td>Vel. media total desc. V85</td>
            <td>Vel. media total sección V85</td>
          </tr>
          <tr>
            <td><%=aforo.MAFO_VTASCV85%></td>
            <td><%=aforo.MAFO_VTDESV85%></td>
            <td><%=aforo.MAFO_VTSECV85%></td>
          </tr>
          <tr>
            <td>Vel. media total asc. V99</td>
            <td>Vel. media total desc. V99</td>
            <td>Vel. media total sección V99</td>
          </tr>
          <tr>
            <td><%=aforo.MAFO_VTASCV99%></td>
            <td><%=aforo.MAFO_VTDESV99%></td>
            <td><%=aforo.MAFO_VTSECV99%></td>
          </tr>
     </table>
    </div>


    <%
    END IF
    FOR vehiculo in ROW.VEHICULOS
    LOOP
    STATUS.message('Accidente '|| ROW.ID_ACCIDENTE||' Vehículo '||vehiculo.ID_VEHICULO);  
    conductor:=vehiculo.getForeignFeature('LID_CONDUCTOR');
    %>
    <div style="page-break-inside: avoid;">
    <div class="titulo_vehiculo1">&nbsp;VEHÍCULO <%=vehiculo.LID_VEHICULO%></div>
      <div class="espacio1"/>
     <table width="100%" cellspacing="0" cellpadding="0" border="0" class="datos1_vehiculo">
          <tr>
            <td>Código</td>
            <td>Tipo de vehículo</td>
            <td>Año matriculación</td>
            <td>Nacionalidad</td>
            <td>Marca</td>
            <td>Modelo</td>
          </tr>
          <tr>
            <td><%=vehiculo.ID_VEHICULO%></td>
            <td><%=$REPORT.formatFieldValue(vehiculo,'TIPO_VEHICULO')%></td>
            <td><%=FORMAT('%1$tm/%1$tY',vehiculo.FECHA_MATRICULACION)%></td>
            <td><%=vehiculo.NACIONALIDAD%></td>
            <td><%=vehiculo.MARCA_NOMBRE%></td>
            <td><%=vehiculo.MODELO%></td>
          </tr>
     </table>
     <table width="100%" cellspacing="0" cellpadding="0" border="0" class="datos1_vehiculo">
          <tr>
            <td>ITV</td>
            <td>Tipo remolque</td>
            <td>MMA</td>
            <td>Nº de ocupantes</td>
            <td>Seguro obligatorio</td>
          </tr>
          <tr>
            <td><%=$REPORT.formatFieldValue(vehiculo,'ITV')%></td>
            <td><%=CASE 
            WHEN vehiculo.REMOLQUE = TRUE THEN 'Remolque'
            WHEN vehiculo.SEMIREMOLQUE = TRUE THEN 'Semiremolque'
            WHEN vehiculo.CARAVANA = TRUE THEN 'Caravana'
            WHEN vehiculo.REMOLQUE_OTROS = TRUE THEN 'Otros'
            ELSE ''
            END%></td>

            <td><%=$REPORT.formatFieldValue(vehiculo,'MMA')%></td>
            <td><%=vehiculo.NUM_OCUPANTES%></td>
            <td><%=$REPORT.formatFieldValue(vehiculo,'SEGURO')%></td>
          </tr>
          <tr>
            <td>Circunstancias especiales</td>
            <td>Leído tacógrafo</td>
            <td>Descanso diario</td>
            <td>Airbag</td>
            <td>Daños del vehículo</td>
          </tr>
          <tr>
            <td><%=CONCAT(
IIF(vehiculo.VEHICULO_ADAPTADO,'Vehi. adaptado<br>',''),
IIF(vehiculo.TRANSPORTE_ESPECIAL,'Transporte especial<br>',''),
IIF(vehiculo.FUGADO,'Vehi. fugado<br>',''),
IIF(vehiculo.SIN_CONDUCTOR,'Vehi. sin conductor<br>',''),
IIF(vehiculo.MP,'MP<br>',''),
IIF(vehiculo.INCENDIADO,'Vehi. Incendiado<br>',''),
IIF(vehiculo.ANOMALIAS_NINGUNA,'Ninguna anomalía<br>',''),
IIF(vehiculo.ANOMALIAS_REVENTON,'Anomalía reventón<br>',''),
IIF(vehiculo.ANOMALIAS_FRENOS,'Anomalía frenos<br>',''),
IIF(vehiculo.ANOMALIAS_DIRECCION,'Anomalía dirección<br>',''),
IIF(vehiculo.ANOMALIAS_NEUMATICOS,'Anomalía neumáticos<br>',''),
IIF(vehiculo.ANOMALIAS_OTRAS,'Otras anomalías<br>',''),
IIF(vehiculo.ANOMALIAS_OTRA IS NULL,'', vehiculo.ANOMALIAS_OTRA)
)
%></td>
            <td><%=SINO(vehiculo.TACOGRAFO_LECTURA)%></td>
            <td><%=SINO(vehiculo.DESCANSO_DIARIO)%></td>
            <td><%=CONCAT(
IIF(vehiculo.AIRBAG_COND,'Conductor<br>',''),
IIF(vehiculo.AIRBAG_CORT_DEL_DCHA,'Cort. delantero derecha<br>',''),
IIF(vehiculo.AIRBAG_CORT_DEL_IZDA,'Cort. delantero izquierda<br>',''),
IIF(vehiculo.AIRBAG_CORT_TRAS_DCHA,'Cort. trasero derecha<br>',''),
IIF(vehiculo.AIRBAG_CORT_TRAS_IZDA,'Cort. trasero inquierda<br>',''),
IIF(vehiculo.AIRBAG_LAT_DEL_DCHA,'Lat. delantero derecha<br>',''),
IIF(vehiculo.AIRBAG_LAT_DEL_IZDA,'Lat. delantero izquierda<br>',''),
IIF(vehiculo.AIRBAG_LAT_TRAS_DCHA,'Lat. trasero derecha<br>',''),
IIF(vehiculo.AIRBAG_LAT_TRAS_IZDA,'Lat. trasero izquierda<br>',''),
IIF(vehiculo.AIRBAG_ROD_DCHA,'Rod. derecha<br>',''),
IIF(vehiculo.AIRBAG_ROD_IZDA,'Rod. izquierda<br>',''),
IIF(vehiculo.AIRBAG_PAS_DEL,'Pasajero delantero<br>',''),
IIF(vehiculo.AIRBAG_OTROS,'Otros<br>',''),
IIF(vehiculo.AIRBAG_DESCONOCIDO,'Ninguno','')
)%></td>
            <td><%=$REPORT.formatFieldValue(vehiculo,'DANYOS')%></td>
          </tr>
     </table>
     <table width="100%" cellspacing="0" cellpadding="0" border="0" class="datos1_vehiculo">
          <tr>
            <td>Sentido circulación</td>
            <td>Aproximación nudo</td>
            <td>Posición vía</td>
            <td>Lugar circulación</td>
          </tr>
          <tr>
            <td><%=$REPORT.formatFieldValue(vehiculo,'SENTIDO_CIRCULACION')%></td>
            <td><%=$REPORT.formatFieldValue(vehiculo,'APROXIMACION_NUDO')%></td>
            <td><%=$REPORT.formatFieldValue(vehiculo,'POS_VIA')%></td>
            <td><%=$REPORT.formatFieldValue(vehiculo,'LUGAR_CIRCULABA')%></td>
          </tr>
     </table>
     </div>
     <%
     IF conductor IS NOT NULL THEN
     %>
     <div style="page-break-inside: avoid;">
     <div class="titulo_conductor1">&nbsp;CONDUCTOR <%=conductor.LID_CONDUCTOR%></div>
      <div class="espacio1"/>
     <table width="100%" cellspacing="0" cellpadding="0" border="0" class="datos1_conductor">
          <tr>
            <td>Edad</td>
            <td>Sexo</td>
            <td>Nacionalidad</td>
            <td>Provincia</td>
            <td>Clase permiso</td>
            <td>Fecha expedición</td>
          </tr>
          <tr>
            <td><%=DATEDIFF('year',  conductor.FECHA_NACIMIENTO ,  ROW.FECHA_ACCIDENTE)%></td>
            <td><%=$REPORT.formatFieldValue(conductor,'SEXO')%></td>
            <td><%=conductor.NACIONALIDAD%></td>
            <td><%=conductor.PROVINCIA_RESIDENCIA%></td>
            <td><%=$REPORT.formatFieldValue(conductor,'CLASE_PERMISO')%></td>
            <td><%=FORMAT('%1$tm/%1$tY',conductor.FECHA_PERMISO)%></td>
          </tr>
          <tr>
            <td colspan="2">Extranjero tránsito</td>
            <td colspan="2">Desplazamiento previsto</td>
            <td colspan="2">Motivo desplazamiento</td>
          </tr>
          <tr>
            <td colspan="2"><%=SINO(conductor.PAIS_RESIDENCIA='España')%></td>
            <td colspan="2"><%=$REPORT.formatFieldValue(conductor,'DESPLAZAMIENTO_PREVISTO')%></td>
            <td colspan="2"><%=$REPORT.formatFieldValue(conductor,'MOTIVO_DESPLAZAMIENTO')%></td>
          </tr>
          <tr>
            <td colspan="3">Accesorios de seguridad</td>
            <td colspan="3">Reflectante</td>
          </tr>
          <tr>
            <td colspan="3"><%=CONCAT(
IIF(conductor.ACC_SEG_CINTURON,'Cinturón<br>',''),
IIF(conductor.ACC_SEG_CASCO,'Casco<br>',''),
IIF(conductor.ACC_SEG_BRAZOS,'Acc. Seg. Brazos<br>',''),
IIF(conductor.ACC_SEG_ESPALDA,'Acc. Seg. Espalda<br>',''),
IIF(conductor.ACC_SEG_TORSO,'Acc. Seg. Torso<br>',''),
IIF(conductor.ACC_SEG_MANOS,'Acc. Seg. Mano<br>',''),
IIF(conductor.ACC_SEG_PIERNAS,'Acc. Seg. Piernas<br>',''),
IIF(conductor.ACC_SEG_PIES,'Acc. Seg. Pies','')
)%></td>
            <td colspan="3"><%=SINO(conductor.ACC_SEG_PRENDA_REF)%></td>
          </tr>
     </table>
     <table width="100%" cellspacing="0" cellpadding="0" border="0" class="datos1_conductor">
          <tr>
            <td>Lesividad</td>
            <td>Gravedad</td>
            <td>Drogas</td>
            <td>Alcohol</td>
          </tr>
          <tr>
            <td><%=$REPORT.formatFieldValue(conductor,'ASISTENCIA_SANITARIA')%></td>
            <td><%=CASE
  WHEN conductor.ASISTENCIA_SANITARIA = 1 THEN 'Muerto'
  WHEN conductor.ASISTENCIA_SANITARIA = 2 THEN 'Herido grave'
  WHEN conductor.ASISTENCIA_SANITARIA = 3 THEN 'Herido leve'
  WHEN conductor.ASISTENCIA_SANITARIA = 4 THEN 'Herido leve'
  WHEN conductor.ASISTENCIA_SANITARIA = 5 THEN 'Herido grave'
  WHEN conductor.ASISTENCIA_SANITARIA = 6 THEN 'Herido grave'
  WHEN conductor.ASISTENCIA_SANITARIA = 7 THEN 'Herido leve'
  WHEN conductor.ASISTENCIA_SANITARIA = 8 THEN 'Ileso'
  WHEN conductor.ASISTENCIA_SANITARIA = 77 THEN 'Se ignora'
  ELSE   'Se ignora'
END%></td>
            <td><%=CONCAT(
IIF(conductor.SIGNOS_INFLU_DROGAS,'SIGNOS INFLUENCIA DROGAS','NO<br>'),
IIF(conductor.PRUEBA_DROGAS IS NULL, '', CONCAT($REPORT.formatFieldValue(conductor,'PRUEBA_DROGAS'),'<br>')),
IIF(conductor.BDZ,' Benzodiacepinas<br>',''),
IIF(conductor.OPI,'Opiaceos<br>',''),
IIF(conductor.THC,'Cannabis o derivados<br>',''),
IIF(conductor.AMP,'Anfetaminas<br>',''),
IIF(conductor.METH,'Metanfetaminas<br>',''),
IIF(conductor.COC,'Cocaina<br>',''),
IIF(conductor.OTRAS,'Otras drogas','')
)%></td>
            <td><%=CONCAT(
IIF(conductor.SIGNOS_INFLU_ALCOHOL,'Signos influencia alcohol<br>','NO<br>'),
CONCAT($REPORT.formatFieldValue(conductor,'PRUEBA_ALCOHOLEMIA'),'<br>'),
IIF(conductor.PRUEBA_ALC_SANGRE,'Prueba alcohol en sangre<br>',''),
IIF(conductor.TASA_ALCOHOLEMIA1 IS NULL, '', CONCAT('Tasa 1 en sangre (g/l) = ',conductor.TASA_ALCOHOLEMIA1,'<br>')),
IIF(conductor.TASA_ALCOHOLEMIA2 IS NULL, '', CONCAT('Tasa 2 en sangre (g/l) = ',conductor.TASA_ALCOHOLEMIA2))
)%> </td>
          </tr>
          <tr>
            <td>Horas conducción continuada</td>
            <td>Factores que pueden afectar a la atención</td>
            <td>Posible responsable</td>
            <td>Señalización</td>
          </tr>
          <tr>
            <td><%=CONCAT(
IIF(vehiculo.HORAS_COND_CONTINUADAS_H IS NULL, '00', vehiculo.HORAS_COND_CONTINUADAS_H),
':',
IIF(vehiculo.HORAS_COND_CONTINUADAS_MIN IS NULL, '00', vehiculo.HORAS_COND_CONTINUADAS_MIN)
)%></td>
            <td><%=$REPORT.formatFieldValue(conductor,'FACTORES_ATENCION')%></td>
            <td><%=SINO(conductor.POSIBLE_RESPONSABLE)%></td>
            <td><%=CONCAT(
IIF(conductor.PRES_INFRAC_SIN_TRIANGULO,'Sin triángulos<br>',''),
IIF(conductor.PRES_INFRAC_SIN_LUCES,'Sin luces','')
)%></td>
          </tr>
          <tr>
            <td>Presuntas infracciones de velocidad</td>
            <td>Presuntas infracciones del conductor</td>
            <td>Otras infracciones</td>
            <td>Presuntos errores</td>
          </tr>
          <tr>
            <td><%=$REPORT.formatFieldValue(conductor,'PRES_INFRAC_VEL_COND')%></td>
            <td><%=$REPORT.formatFieldValue(conductor,'PRES_INFRAC_COND')%></td>
            <td><%=$REPORT.formatFieldValue(conductor,'OTRA_INFRAC_COND')%></td>
            <td><%=$REPORT.formatFieldValue(conductor,'PRESUNTOS_ERRORES')%></td>
          </tr>
     </table>
     </div>
    
    
      <%
      END IF
      FOR pasajero in vehiculo.PASAJEROS
      LOOP
      STATUS.message('Accidente '|| ROW.ID_ACCIDENTE||' Vehículo '||vehiculo.ID_VEHICULO||' Pasajero '||pasajero.ID_PASAJERO);  
      %>
      <div style="page-break-inside: avoid;">
      <div class="titulo_pasajero1">&nbsp;PASAJERO <%=pasajero.LID_PASAJERO%></div>
      <div class="espacio1"/>
     <table width="100%" cellspacing="0" cellpadding="0" border="0" class="datos1_pasajero">
          <tr>
            <td>Código vehículo</td>
            <td>Edad</td>
            <td>Sexo</td>
            <td>País</td>
            <td>Posición en el vehículo</td>
          </tr>
          <tr>
            <td><%=pasajero.ID_VEHICULO%></td>
            <td><%=DATEDIFF('year',  pasajero.FECHA_NACIMIENTO ,  ROW.FECHA_ACCIDENTE)%></td>
            <td><%=$REPORT.formatFieldValue(pasajero,'SEXO')%></td>
            <td><%=pasajero.PAIS_RESIDENCIA%></td>
            <td><%=$REPORT.formatFieldValue(pasajero,'POSICION_VEHI')%></td>
          </tr>
     </table>
     <table width="100%" cellspacing="0" cellpadding="0" border="0" class="datos1_pasajero">
          <tr>
            <td>Accesorios de seguridad</td>
            <td>Reflectante</td>
            <td>Niño en brazos</td>
          </tr>
          <tr>
            <td><%=CONCAT(
IIF(pasajero.ACC_SEG_CINTURON,'Cinturón<br>',''),
IIF(pasajero.ACC_SEG_CASCO,'Casco<br>',''),
IIF(pasajero.ACC_SEG_BRAZOS,'Acc. seg. brazos<br>',''),
IIF(pasajero.ACC_SEG_ESPALDA,'Acc. seg. espalda<br>',''),
IIF(pasajero.ACC_SEG_TORSO,'Acc. seg. torso<br>',''),
IIF(pasajero.ACC_SEG_MANOS,'Acc. seg. manos<br>',''),
IIF(pasajero.ACC_SEG_PIERNAS,'Acc. seg. piernas<br>',''),
IIF(pasajero.ACC_SEG_PIES,'Acc. seg. pies<br>',''),
IIF(pasajero.ACC_SEG_SIS_RETEN_INFANTIL,'Acc. seg. retención infantil<br>','')
)%>
</td>
            <td><%=SINO(pasajero.ACC_SEG_PRENDA_REF)%></td>
            <td><%=SINO(pasajero.NINYO_EN_BRAZO)%></td>
          </tr>
     </table>
     <table width="100%" cellspacing="0" cellpadding="0" border="0" class="datos1_pasajero">
          <tr>
            <td>Lesividad</td>
            <td>Gravedad</td>
          </tr>
          <tr>
            <td><%=$REPORT.formatFieldValue(pasajero,'ASISTENCIA_SANITARIA')%></td>
            <td><%=CASE
  WHEN pasajero.ASISTENCIA_SANITARIA = 1 THEN 'Muerto'
  WHEN pasajero.ASISTENCIA_SANITARIA = 2 THEN 'Herido grave'
  WHEN pasajero.ASISTENCIA_SANITARIA = 3 THEN 'Herido leve'
  WHEN pasajero.ASISTENCIA_SANITARIA = 4 THEN 'Herido leve'
  WHEN pasajero.ASISTENCIA_SANITARIA = 5 THEN 'Herido grave'
  WHEN pasajero.ASISTENCIA_SANITARIA = 6 THEN 'Herido grave'
  WHEN pasajero.ASISTENCIA_SANITARIA = 7 THEN 'Herido leve'
  WHEN pasajero.ASISTENCIA_SANITARIA = 8 THEN 'Ileso'
  WHEN pasajero.ASISTENCIA_SANITARIA = 77 THEN 'Se ignora'
  ELSE   'Se ignora'
END%></td>
          </tr>
     </table>
     </div>
      <%
      END LOOP;
    END LOOP;
    FOR peaton in ROW.PEATONES
    LOOP
    STATUS.message('Accidente '|| ROW.ID_ACCIDENTE||' Peatón '||peaton.ID_PEATON);  
    %>
   <div style="page-break-inside: avoid;">
   <div class="titulo_peaton1">&nbsp;PEATON <%=peaton.LID_PEATON%></div>
    <div class="espacio1"/>
     <table width="100%" cellspacing="0" cellpadding="0" border="0" class="datos1_peaton">
          <tr>
            <td>Edad</td>
            <td>Sexo</td>
            <td>Nacionalidad</td>
            <td>Extranjero</td>
            <td>Motivo desplazamiento</td>
          </tr>
          <tr>
            <td><%=FORMAT('%1$td/%1$tm/%1$tY',peaton.FECHA_NACIMIENTO)%></td>
            <td><%=$REPORT.formatFieldValue(peaton,'SEXO')%></td>
            <td><%=peaton.NACIONALIDAD%></td>
            <td><%=SINO(peaton.PAIS_RESIDENCIA='España')%></td>
            <td><%=$REPORT.formatFieldValue(peaton,'MOTIVO_DESPLAZAMIENTO')%></td>
          </tr>
     </table>
     <table width="100%" cellspacing="0" cellpadding="0" border="0" class="datos1_peaton">
          <tr>
            <td>Lesividad</td>
            <td>Gravedad</td>
            <td>Drogas</td>
            <td>Alcohol</td>
          </tr>
          <tr>
            <td><%=$REPORT.formatFieldValue(peaton,'ASISTENCIA_SANITARIA')%></td>
            <td><%=CASE
  WHEN peaton.ASISTENCIA_SANITARIA = 1 THEN 'Muerto'
  WHEN peaton.ASISTENCIA_SANITARIA = 2 THEN 'Herido grave'
  WHEN peaton.ASISTENCIA_SANITARIA = 3 THEN 'Herido leve'
  WHEN peaton.ASISTENCIA_SANITARIA = 4 THEN 'Herido leve'
  WHEN peaton.ASISTENCIA_SANITARIA = 5 THEN 'Herido grave'
  WHEN peaton.ASISTENCIA_SANITARIA = 6 THEN 'Herido grave'
  WHEN peaton.ASISTENCIA_SANITARIA = 7 THEN 'Herido leve'
  WHEN peaton.ASISTENCIA_SANITARIA = 8 THEN 'Ileso'
  WHEN peaton.ASISTENCIA_SANITARIA = 77 THEN 'Se ignora'
  ELSE   'Se ignora'
END%></td>
            <td><%=CONCAT(
IIF(peaton.SIGNOS_INFLU_DROGAS,'SIGNOS INFLUENCIA DROGAS','NO<br>'),
IIF(peaton.PRUEBA_DROGAS IS NULL, '', CONCAT($REPORT.formatFieldValue(peaton,'PRUEBA_DROGAS'),'<br>')),
IIF(peaton.BDZ,' Benzodiacepinas<br>',''),
IIF(peaton.OPI,'Opiaceos<br>',''),
IIF(peaton.THC,'Cannabis o derivados<br>',''),
IIF(peaton.AMP,'Anfetaminas<br>',''),
IIF(peaton.METH,'Metanfetaminas<br>',''),
IIF(peaton.COC,'Cocaina<br>',''),
IIF(peaton.OTRAS,'Otras drogas','')
)%></td>
            <td><%=CONCAT(
IIF(peaton.SIGNOS_INFLU_ALCOHOL,'Signos influencia alcohol<br>','NO<br>'),
CONCAT($REPORT.formatFieldValue(peaton,'PRUEBA_ALCOHOLEMIA'),'<br>'),
IIF(peaton.PRUEBA_ALC_SANGRE,'Prueba alcohol en sangre<br>',''),
IIF(peaton.TASA_ALCOHOLEMIA1 IS NULL, '', CONCAT('Tasa 1 en sangre (g/l) = ',peaton.TASA_ALCOHOLEMIA1,'<br>')),
IIF(peaton.TASA_ALCOHOLEMIA2 IS NULL, '', CONCAT('Tasa 2 en sangre (g/l) = ',peaton.TASA_ALCOHOLEMIA2))
)%> </td>
          </tr>
    </table>
     <table width="100%" cellspacing="0" cellpadding="0" border="0" class="datos1_peaton">
          <tr>
            <td>Acción del peatón</td>
            <td>Factores que pueden afectar a la atención</td>
            <td>Posible responsable accidente</td>
          </tr>
          <tr>
            <td><%=$REPORT.formatFieldValue(peaton,'ACCION_PEA')%></td>
            <td><%=$REPORT.formatFieldValue(peaton,'FACTORES_ATENCION')%></td>
            <td><%=SINO(peaton.POSIBLE_RESPONSABLE)%></td>
          </tr>
     </table>
     <table width="100%" cellspacing="0" cellpadding="0" border="0" class="datos1_peaton">
          <tr>
            <td>Presuntas infracciones del peatón</td>
            <td>Presuntos errores</td>
          </tr>
          <tr>
            <td><%=$REPORT.formatFieldValue(peaton,'PRES_INFRAC_PEA')%></td>
            <td><%=$REPORT.formatFieldValue(peaton,'PRESUNTOS_ERRORES')%></td>
          </tr>
     </table>
   </div> 
    <%
    END LOOP;
    FOR croquis in ROW.CROQUIS
    LOOP
    STATUS.message('Accidente '|| ROW.ID_ACCIDENTE||' Croquis '||croquis.ID_CROQUIS);  
      imagen:=croquis.getFromProfile('IMAGEN');
    %>
   <div style="page-break-inside: avoid;">
   <div class="titulo_croquis1">&nbsp;CROQUIS <%=croquis.LID_CROQUIS%></div>
    <div class="espacio1"/>
    <img style="width:100%;" src="data:image/<%=imagen.getFormatName()%>;base64,<%=imagen.toStringBase64()%>"/>
    </div>
    <%
    END LOOP;
  STATUS.incrementCurrentValue();
  END LOOP;
  STATUS.message('');
  %>
  </body>
</html>
