Foro - Perl en Español

($rs,$fetch) = record(db=>"correspondencia",tabla=>"correspondencia",condicion=>"where fech_registro='$FORM{fecha_reporte}' and turnar_a='$FORM{personal}' and status='P' order by 1",campos=>"cve_turno,no_oficio_o_referencia,remitente,asunto",visible=>"no");
$i=1;
while($fetch->()) {
   if ($i == 1) {
      $some_data ="[". "'TURNO','No. OFICIO','REMITENTE','ASUNTO'],". "[" . "$$rs{cve_turno}" .',' . "$$rs{no_oficio_o_referencia}" . ',' . "$$rs{remitente}" . ',' . "$$rs{asun
to}" ."],"; #pinto el encabezado y el segundo renglon
       $i++;
   } else {
       $some_data= $some_data . "[" . "$$rs{cve_turno}" . "," . "$$rs{no_oficio_o_referencia}" . "," . "$$rs{remitente}" . "," . "$$rs{asunto}" . "],";
    }
 }#fin del while
 
$some_data = [ $some_data ];

 my $pdftable = new PDF::Table;
 
$pdftable->table(
          # required params
          $pdf,
          $page,
          $some_data,
          x => 30, #posicion iniacial esquina superior izquierda.
          -w => 536, #ancho de la tabla
          start_y => 500, #posicion inicial "y" en la primera pagina
          next_y  => 700, #posicion inicail "y" en cada nueva pagina
          -start_h => 400, #altura de la pagina en la primera pagina
          next_h  => 500,  #altaura de la tabla en cada nueva pagina
          # some optional params
          -padding => 3,
          header_props          => {
             bg_color   => "#F5F5F5",
             font_color => "#000000",
             font       => $pdf->corefont("Arial-Bold", -encoding => "latin1"),
             font_size  => 10,
          },
          column_props => [
           {},# This is an empty hash so the next one will hold the properties for the second row from left to right.
           {
            min_w => 50,       # Minimum column width.
            font => $pdf->corefont("Times", -encoding => "latin1"),
            font_size => 10,
            font_color=> 'blue',
            background_color => '#FFFF00',
          },
        ],
    );

 my $some_data = [
    [
        "1 Lorem ipsum dolor",
        "Donec odio neque, faucibus vel",
        "consequat quis, tincidunt vel, felis."
    ],
    [
        "Nulla euismod sem eget neque.",
        "Donec odio neque",
        "Sed eu velit."
    ],
 ];

my $cabeza;
my @some_data;

while( $fetch->() ) {

    # Pinto el encabezado, una sola vez
    push @some_data, [ 'TURNO', 'No. OFICIO', 'REMITENTE', 'ASUNTO' ]
        if ! $cabeza++;

    # Pinto el renglón
    push @some_data, [ $rs->{cve_turno}, $rs->{no_oficio_o_referencia}, $rs->{remitente}, $rs->{asunto} ];
}

my $some_data = \@some_data;