<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;
Beispiel #2
0
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;
    }
}