No existe una autorización asociada a los datos suministrados.
'
);
}
/* ============================================================
SUCURSAL REAL
============================================================ */
$idSucursal = (int)$datos['sucursal_id'];
$codigoCliente = (string)$datos['codigo_cliente'];
/* ============================================================
HORARIO DE OPERACIÓN DEL ESTABLECIMIENTO
cliente_horario
============================================================ */
$horarioOperacion = horarioVacio();
$sqlHorario = "
SELECT
dia,
TIME_FORMAT(hora1,'%H:%i') AS hora1,
TIME_FORMAT(hora2,'%H:%i') AS hora2
FROM cliente_horario
WHERE sucursal = ?
AND cliente = ?
ORDER BY dia, hora1
";
$stmt = $cn->prepare($sqlHorario);
$stmt->bind_param('is', $idSucursal, $codigoCliente);
$stmt->execute();
$resHorario = $stmt->get_result();
while ($fila = $resHorario->fetch_assoc()) {
$dia = (int)$fila['dia'];
$hora1 = $fila['hora1'];
$hora2 = $fila['hora2'];
agregarHora(
$horarioOperacion,
$dia,
$hora1,
'E'
);
/*
* Conserva la lógica especial del VB6:
* si la salida del domingo es menor que la entrada,
* la salida pertenece al lunes.
*/
if (
$dia === 7 &&
$hora1 &&
$hora2 &&
$hora2 < $hora1
) {
agregarHora(
$horarioOperacion,
1,
$hora2,
'S'
);
} else {
agregarHora(
$horarioOperacion,
$dia,
$hora2,
'S'
);
}
}
$stmt->close();
/* ============================================================
HORARIO DE PERMANENCIA DEL REGENTE
cliente_proyecto
============================================================ */
$horarioPermanencia = horarioVacio();
$sqlPermanencia = "
SELECT
dia,
TIME_FORMAT(hora1,'%H:%i') AS hora1,
TIME_FORMAT(hora2,'%H:%i') AS hora2
FROM cliente_proyecto
WHERE regencia = ?
ORDER BY dia, hora1
";
$stmt = $cn->prepare($sqlPermanencia);
$stmt->bind_param('i', $idRegencia);
$stmt->execute();
$resPermanencia = $stmt->get_result();
while ($fila = $resPermanencia->fetch_assoc()) {
$dia = (int)$fila['dia'];
agregarHora(
$horarioPermanencia,
$dia,
$fila['hora1'],
'E'
);
/*
* En carga_proyectos() el VB6 original no realiza
* traslado al día siguiente para este horario.
*/
agregarHora(
$horarioPermanencia,
$dia,
$fila['hora2'],
'S'
);
}
$stmt->close();
/* ============================================================
VALORES DEL DOCUMENTO
============================================================ */
$dias = [
1 => 'LUNES',
2 => 'MARTES',
3 => 'MIÉRCOLES',
4 => 'JUEVES',
5 => 'VIERNES',
6 => 'SÁBADO',
7 => 'DOMINGO'
];
$periodos = [
1 => 'MAÑANA',
2 => 'TARDE',
3 => 'NOCHE'
];
/*
* Crystal utiliza @TITULO.
* Inicialmente lo determinamos por el documento suministrado.
*/
$titulo = 'Autorización de Regencia';
/*
* Valores Sí/No.
*/
$rotativo = ((int)$datos['rotativo'] === 1) ? 'Sí' : 'No';
$temporal = ((int)$datos['temporal'] === 1) ? 'Sí' : 'No';
/*
* Observación.
* Si regencia_det.obs tiene contenido usamos ese valor.
* De lo contrario utilizamos el texto del permiso actual.
*/
$observacion = trim((string)$datos['observaciones']);
if ($observacion === '') {
$observacion =
'Acuerdo N° 10/894-96. Este establecimiento no está facultado ' .
'para vender medicamentos del Grupo 1, 2 y 3 ni despachar Recetas ' .
'en ausencia del Regente Veterinario. Se advierte que la presente ' .
'Autorización de Regencia es única y exclusivamente para la Razón ' .
'Social que aquí se indica.';
}
/*
* Texto legal inferior.
*/
$pieLegal =
'Con fundamento en los artículos 110 y 111 del Reglamento a la Ley ' .
'Orgánica del Colegio de Médicos Veterinarios, Decreto Ejecutivo ' .
'19184-MAG, publicado en la Gaceta N° 179 del 21 de septiembre de 1989, ' .
'la Junta Directiva está autorizada para suspender la Autorización de ' .
'Regencia que no procure la defensa del público, la salud Pública o la Salud Animal.';
/*
* SIREA
*/
$sirea = trim((string)$datos['sirea']);
/*
* Número principal mostrado en rojo.
* En el PDF corresponde al consecutivo.
*/
$consecutivo = $datos['consecutivo'];
/*
* Fecha de impresión:
* la web muestra la fecha actual.
*/
$fechaImpresion = date('d/m/Y');
/*
* Logos.
*
* Colocar los archivos en:
*
* /img/logo-colegio.png
* /img/sello-fiscalia.png
*/
?>
Colegio de Profesionales en Medicina Veterinaria Costa Rica
SIREA N°:
= strtotime(date('Y-m-d'));
}
?>
AUTORIZACIÓN VIGENTE
AUTORIZACIÓN VENCIDA
PROVINCIA
CANTÓN
DISTRITO
REGIÓN
HORARIO DE OPERACIÓN DEL ESTABLECIMIENTO
HORARIO DE PERMANENCIA EN EL ESTABLECIMIENTO
OBSERVACIONES
Folio:
Fecha de Impresión:
Válido Desde:
Esta Autorización de Regencia vence el próximo:
COLOCAR EN UN LUGAR VISIBLE
