test/Pdf/test.php

   1 <?php
   2
   3 //ini_set('max_execution_time', 200);
   4
   5 require_once 'MLIB/HTML/Tabla.php';
   6 require_once 'MLIB/PDF/Marco.php';
   7 require_once 'MLIB/PDF/Tabla.php';
   8 require_once 'MLIB/PDF/TablaEstilo.php';
   9 require_once 'MLIB/PDF/Texto.php';
  10 require_once 'MLIB/PDF/SaltoPagina.php';
  11
  12 $TABLA =& new MLIB_HTML_Tabla();
  13
  14 $TABLA->addRow(array ('1erCabecera', '2daCabecera para que la corete',
  15             '3erCabecera'), 'cabecera');
  16 $TABLA->addRow(array ('1erColumna', '2daColumna para que la corete',
  17             '3erColumna'), 'clara');
  18 for ($i=0; $i<10; $i++) {
  19     if ($i == 50) {
  20         $TABLA->addRow(array ('1erColumna para gonzalo que lo mira por tv desde su casa en ayacucho 1593. Aunque ahora que lo pienso me estoy equivocando', '2daColumna 1erColumna para gonzalo que lo mira por tv desde su casa en ayacucho 1593. Aunque ahora que lo pienso me estoy equivocando FILA 50', '3erColumna1erColumna para gonzalo que lo mira por tv desde su casa en ayacucho 1593. Aunque ahora que lo pienso me estoy equivocando'), 'comun');
  21     }
  22     elseif ($i == 30) {
  23         $TABLA->addRow(array ('Esto es para probar', 'como repite las celdas',
  24                     'MLIB_PDF_Tabla'), 'titulo');
  25     }
  26     else {
  27         $TABLA->addRow(array ('Fila: '.$i.'Col: 1 ', 'Fila: '.$i.'Col: 2', 'Fila: '.$i.'Col: 3'), 'comun');
  28     }
  29 }
  30 $TABLA->updateCellAttributes(0,0, 'colspan="2"');
  31 $TABLA->updateCellAttributes(5,1, 'colspan="2"');
  32 $TABLA->updateColAttributes(0, 'width="50%"');
  33 $TABLA->updateColAttributes(1, 'width="25%"');
  34 $TABLA->updateColAttributes(2, 'width="35%"');
  35 $TABLA->updateCellAttributes(2,0, 'align="left"');
  36 $TABLA->updateCellAttributes(2,1, 'align="center" mlib_style="martin_test2"');
  37 $TABLA->updateCellAttributes(2,2, 'align="right" mlib_style="martin_test"');
  38
  39 $PDF_TABLA =& new MLIB_PDF_Tabla ($TABLA, 'portrait');
  40
  41 $PDF_TABLA_ESTILO =& new MLIB_PDF_Tabla_Estilo('martin_test');
  42 $PDF_TABLA_ESTILO->rowHeight = 18;
  43 $PDF_TABLA_ESTILO->font = 'Helvetica';
  44 $PDF_TABLA_ESTILO->fontHeight = 16;
  45 $PDF_TABLA_ESTILO->fillColor = array (
  46             'red'   => '0',
  47             'blue'  => '0',
  48             'green' => '0'
  49             );
  50 $PDF_TABLA_ESTILO->fillMode = 'fill+stroke';
  51 $PDF_TABLA_ESTILO->fillModeFillColor =  array (
  52                 'red'   => '1',
  53                 'blue'  => '1',
  54                 'green' => '1'
  55                 );
  56 $PDF_TABLA_ESTILO->fillModeStrokeColor =  array (
  57                 'red'   => '1',
  58                 'blue'  => '0',
  59                 'green' => '0'
  60                 );
  61
  62 $PDF_TABLA->setStyle($PDF_TABLA_ESTILO);
  63
  64 $PDF_TABLA_ESTILO =& new MLIB_PDF_Tabla_Estilo('martin_test2');
  65 $PDF_TABLA_ESTILO->rowHeight = 18;
  66 $PDF_TABLA_ESTILO->font = 'Helvetica';
  67 $PDF_TABLA_ESTILO->fontHeight = 16;
  68 $PDF_TABLA_ESTILO->fillColor = array (
  69             'red'   => '0',
  70             'blue'  => '0',
  71             'green' => '0'
  72             );
  73 $PDF_TABLA_ESTILO->fillMode = 'fill+stroke';
  74 $PDF_TABLA_ESTILO->fillModeFillColor =  array (
  75                 'red'   => '1',
  76                 'blue'  => '1',
  77                 'green' => '1'
  78                 );
  79 $PDF_TABLA_ESTILO->fillModeStrokeColor =  array (
  80                 'red'   => '0',
  81                 'blue'  => '1',
  82                 'green' => '0'
  83                 );
  84
  85 $PDF_TABLA->setStyle($PDF_TABLA_ESTILO);
  86
  87
  88 //{{{
  89 $PDF_TEXTO =& new MLIB_PDF_Texto ('portrait');
  90
  91 $PDF_TEXTO->addContent(array (
  92             "Texto a la izquierda",
  93             "Texto al centro", "Texto a la derecha"));
  94
  95 $PDF_TEXTO->setEstilo(0,  array ('font'   => 'Helvetica-Bold', 'height' => 8,
  96             'align'  => 'left'));
  97 $PDF_TEXTO->setEstilo(1,  array ('font'   => 'Helvetica-Bold', 'height' => 8,
  98             'align'  => 'center'));
  99 $PDF_TEXTO->setEstilo(2,  array ('font'   => 'Helvetica-Bold', 'height' => 8,
 100             'align'  => 'right'));
 101
 102 $PDF_TEXTO->addContent("PARRAFO 1 -> Si se omite tamano, se suprime todo desde el desplazamiento hasta el final de la matriz. Si se especifica el tamano y es positivo, se suprimirán tantos elementos como se especifica. Si fuera negativo, el final de la porción eliminada estará a tantos elementos del final de la matriz. Truco: para eliminar todo desde el desplazamiento hasta el final de la matriz cuando también se especifica sustitucion,utilice  como tamano.\nPARRAFO 2 ->Si se especifia la matriz de sustitucion, entonces los elementos suprimidos son reemplazados con los elementos de dicha matriz. Si los valores de desplazamiento y tamano son tales que nada es borrado, los elementos de la matriz sustitucion  se insertarán en la posición indicada por el desplazamiento. Truco: si sólo se va a sustituir algo por un elemento nada más, no hace falta poner alrededor del mismo, salvo que dicho elemento sea una matriz en sí mismo.");
 103
 104 $PDF_TEXTO2 =& new MLIB_PDF_Texto ('portrait');
 105 $PDF_TEXTO2->addContent("El jefe de Gobierno porteño, Aníbal Ibarra, advirtió que su gestión no otorgará beneficios a los piqueteros que durante el fin de semana último ocuparon un predio en el barrio de Palermo.\n Si uno privilegia la situación de irregularidad, es que ponemos patas para arriba a toda la sociedad, enfatizó Ibarra, quien advirtió que no avalará situaciones de fuerza por sobre lo que hacen cientos de miles de ciudadanos que pagan sus créditos y que se anotan (en planes) para viviendas, esperando a veces durante muchos años.\n En declaraciones periodísticas, Ibarra remarcó que no se puede obtener una vivienda ni autorización para construir viviendas sobre la presión y mucho menos sobre una situación de ilegalidad.");
 106 $PDF_TEXTO2->setEstilo(1,  array ('font'   => 'Helvetica-Bold', 'height' => 8,
 107             'align'  => 'center'));
 108 $PDF_TEXTO2->setEstilo(0,  array ('font'   => 'Helvetica-Bold', 'height' => 8,
 109             'align'  => 'right'));
 110
 111 //print '<PRE>MARTIN FIN </PRE>';
 112 //}}}
 113
 114 $PDF_MARCO =& new MLIB_PDF_Marco ('legal', 'portrait');
 115 $PDF_MARCO->seccion   = 'Prueba de la libreria de PDF\'s';
 116 $PDF_MARCO->titulo    = 'Alberto Giordano';
 117 $PDF_MARCO->subtitulo = 'Filosofo Estilista, guacho pulenta si los hay';
 118 $PDF_MARCO->logo      = '/var/www/sistemas/mlib/www/images/pdf_logo_portrait.jpg';
 119
 120 //$PDF_MARCO->addContent(new MLIB_PDF_Tabla ($TABLA, 'portrait'), false);
 121 $PDF_MARCO->addContent($PDF_TABLA, false);
 122 $PDF_MARCO->addContent($PDF_TEXTO, true);
 123
 124 //{{{
 125 //$PDF_MARCO->addContent($PDF_TEXTO2, true);
 126 //$PDF_MARCO->addContent(new MLIB_PDF_SaltoPagina(), false);
 127 //$PDF_MARCO->addContent($PDF_TEXTO2, true);
 128 //$PDF_MARCO->addContent($PDF_TEXTO2, true);
 129 //$PDF_MARCO->addContent(new MLIB_PDF_Tabla ($TABLA), true);
 130 //$PDF_MARCO->addContent(new MLIB_PDF_Tabla ($TABLA, 'portrait'), false);
 131 //}}}
 132
 133 //$TABLA->display();
 134 $PDF_MARCO->display();
 135
 136 ?>