<br />
<?php
$nr_pag = 1;
$data = $data_em;
//Data sugerida pelo usu?rio
//======================== DECLARA NOME DO ARQUIVO PS DESTINO
$nome_arq_ps = 'caderno_chamada_' . $diario_id . '.ps';
$caminho_arquivo = $BASE_DIR . 'public/relat/ps/';
$url_arquivo = $BASE_URL . 'public/relat/ps/' . $nome_arq_ps;
$myfile_ps = fopen($caminho_arquivo . $nome_arq_ps, "w");
//========================= ABRE ARQUIVO PS DESTINO
SA_PS_open($myfile_ps, "SA", $caminho_arquivo . $nome_arq_ps, 'Landscape');
//========================= AJUSTA O USO DE ACENTOS
SA_PS_set_acent($myfile_ps);
//========================= INICIA A PRIMEIRA PAGINA
SA_PS_begin_page($myfile_ps, $nr_pag);
$sql = " SELECT distinct " . "\t A.ref_disciplina, " . " C.descricao_extenso, " . " A.ref_curso, " . " curso_desc(A.ref_curso), " . " get_departamento(A.ref_disciplina), " . " B.ref_professor_aux, " . " pessoa_nome(B.ref_professor_aux), " . " B.dia_semana, " . " get_dia_semana(B.dia_semana), " . " C.num_creditos, " . " C.carga_horaria, " . " A.creditos_aprov, " . " A.carga_horaria_aprov, " . " B.num_creditos_desconto, " . " A.ref_periodo, " . " B.num_sala, " . " A.ref_disciplina_ofer, " . " A.ref_pessoa, " . " pessoa_nome(A.ref_pessoa) AS aluno_nome, " . " A.ref_disciplina_subst, " . " descricao_disciplina(A.ref_disciplina_subst), " . " get_creditos(A.ref_disciplina_subst), " . " get_carga_horaria(A.ref_disciplina_subst), " . " get_campus(A.ref_campus), " . " A.ref_campus, " . " is_ouvinte(A.ref_pessoa, A.ref_curso), " . " B.turno, " . " get_turno(B.turno), " . " A.turma, " . " B.dia_semana_aux, " . " get_dia_semana(B.dia_semana_aux), " . " B.turno_aux, " . " get_turno(B.turno_aux), " . " B.num_sala_aux, " . " get_complemento_ofer(A.ref_disciplina_ofer), " . " A.dt_cancelamento, " . " get_tipo_curso(A.ref_curso) " . " FROM matricula A, disciplinas_ofer_compl B, disciplinas C " . " WHERE A.ref_disciplina_ofer = {$diario_id} and " . " A.obs_aproveitamento = '' and " . " A.ref_disciplina_ofer = B.ref_disciplina_ofer and " . " A.ref_disciplina = C.id and " . " ( (A.dt_cancelamento is null) or (A.dt_cancelamento >= get_dt_inicio_aula(A.ref_periodo)) ) " . " ORDER BY A.creditos_aprov, " . " A.carga_horaria_aprov, " . " A.turma, " . " A.ref_disciplina, " . " descricao_disciplina(A.ref_disciplina_subst), " . " is_ouvinte(A.ref_pessoa, A.ref_curso), " . " pessoa_nome(A.ref_pessoa)";
$sql = 'SELECT * FROM (' . $sql . ') AS T1 ORDER BY lower(to_ascii(T1.aluno_nome,\'LATIN1\'));';
function cabecalho($myfile_ps, $data, $ref_disciplina, $disciplina, $ref_curso, $curso, $campus, $texto, $dia_semana, $dia_semana_desc, $departamento, $creditos, $hora_aula, $creditos_desconto, $hora_aula_desconto, $ref_professor, $nome_professor, $periodo, $sala, $fl_ouvinte, $turno, $turno_desc, $ref_disciplina_ofer, $descricao_disciplina_subst, &$quebra_pagina, $complemento_disc)
{
global $conn;
SA_PS_line($myfile_ps, 45, -15, 814, -15, 2);
SA_PS_show_xy_font($myfile_ps, 'Lista de Chamada', 45, -30, 'Arial-Bold', 12);
if ($fl_ouvinte) {
SA_PS_show_xy_font($myfile_ps, "ALUNO OUVINTE", 370, -30, 'Arial-Bold', 10);
}
SA_PS_show_xy_font($myfile_ps, "Emissão: {$data}", 580, -30, 'Arial', 8);
SA_PS_show_xy_font($myfile_ps, "Disciplina:", 45, -42, 'Arial-Bold', 10);
$nome_disciplina = $ref_disciplina . ' - ' . $disciplina;
function SA_PS_open($file, $author, $title, $orientation)
{
if ($file == 'help') {
$e_msg .= "<br><b>PSLib HELP:</b> Function SA_PS_open(param1, param2, param3, param4) <br>";
$e_msg .= "param1 = ps file name to create <br>";
$e_msg .= "param2 = creator/author name <br>";
$e_msg .= "param3 = file title <br>";
$e_msg .= "param4 = orientation: Portrait, Landscape <br><br>";
return "";
}
if (empty($file)) {
$e_msg .= "<br><b>PSLib Warning:</b> Function SA_PS_open - Missing parameter: 1 (file name) <br>";
}
if (empty($author)) {
$e_msg .= "<br><b>PSLib Warning:</b> Function SA_PS_open - Missing parameter: 2 (author) <br>";
}
if (empty($title)) {
$e_msg .= "<br><b>PSLib Warning:</b> Function SA_PS_open - Missing parameter: 3 (title) <br>";
}
if (empty($orientation)) {
$e_msg .= "<br><b>PSLib Warning:</b> Function SA_PS_open - Missing parameter: 4 (orientation. Assuming Portrait) <br>";
$orientation = 'Portrait';
}
fwrite($file, "%!PS-Adobe-3.0 \n");
fwrite($file, '%%Creator: ' . $author . "\n");
fwrite($file, '%%CreationDate: ' . date("d/m/Y, H:i") . "\n");
fwrite($file, '%%Title: ' . $title . "\n");
fwrite($file, "%%PageOrder: Ascend \n");
fwrite($file, '%%Orientation: ' . $orientation . "\n");
fwrite($file, "%%EndComments \n");
fwrite($file, "%%BeginProlog \n");
fwrite($file, "%%BeginResource: definicoes \n");
SA_PS_set_acent($file);
fwrite($file, "%%EndResource \n");
fwrite($file, "%%EndProlog \n");
if (ini_get('display_errors') == 1) {
echo $e_msg;
}
}
