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<200; $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'), 'mlib_style="martin_repeat"');
  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, 'landscape', false);
  40
  41 $PDF_TABLA_ESTILO =& new MLIB_PDF_Tabla_Estilo('martin_repeat');
  42 $PDF_TABLA_ESTILO->repeat = true;
  43 $PDF_TABLA_ESTILO->rowHeight = 18;
  44 $PDF_TABLA_ESTILO->font = 'Helvetica';
  45 $PDF_TABLA_ESTILO->fontHeight = 16;
  46 $PDF_TABLA_ESTILO->fillColor = array (
  47             'red'   => '0',
  48             'blue'  => '0',
  49             'green' => '0'
  50             );
  51 $PDF_TABLA_ESTILO->fillMode = 'fill+stroke';
  52 $PDF_TABLA_ESTILO->fillModeFillColor =  array (
  53                 'red'   => '1',
  54                 'blue'  => '1',
  55                 'green' => '1'
  56                 );
  57 $PDF_TABLA_ESTILO->fillModeStrokeColor =  array (
  58                 'red'   => '1',
  59                 'blue'  => '0',
  60                 'green' => '0'
  61                 );
  62
  63 $PDF_TABLA->setStyle($PDF_TABLA_ESTILO);
  64
  65 $PDF_TABLA_ESTILO =& new MLIB_PDF_Tabla_Estilo('martin_test');
  66 $PDF_TABLA_ESTILO->rowHeight = 18;
  67 $PDF_TABLA_ESTILO->font = 'Helvetica';
  68 $PDF_TABLA_ESTILO->fontHeight = 16;
  69 $PDF_TABLA_ESTILO->fillColor = array (
  70             'red'   => '0',
  71             'blue'  => '0',
  72             'green' => '0'
  73             );
  74 $PDF_TABLA_ESTILO->fillMode = 'fill+stroke';
  75 $PDF_TABLA_ESTILO->fillModeFillColor =  array (
  76                 'red'   => '1',
  77                 'blue'  => '1',
  78                 'green' => '1'
  79                 );
  80 $PDF_TABLA_ESTILO->fillModeStrokeColor =  array (
  81                 'red'   => '1',
  82                 'blue'  => '0',
  83                 'green' => '0'
  84                 );
  85
  86 $PDF_TABLA->setStyle($PDF_TABLA_ESTILO);
  87
  88 $PDF_TABLA_ESTILO =& new MLIB_PDF_Tabla_Estilo('martin_test2');
  89 $PDF_TABLA_ESTILO->rowHeight = 18;
  90 $PDF_TABLA_ESTILO->font = 'Helvetica';
  91 $PDF_TABLA_ESTILO->fontHeight = 16;
  92 $PDF_TABLA_ESTILO->fillColor = array (
  93             'red'   => '0',
  94             'blue'  => '0',
  95             'green' => '0'
  96             );
  97 $PDF_TABLA_ESTILO->fillMode = 'fill+stroke';
  98 $PDF_TABLA_ESTILO->fillModeFillColor =  array (
  99                 'red'   => '1',
 100                 'blue'  => '1',
 101                 'green' => '1'
 102                 );
 103 $PDF_TABLA_ESTILO->fillModeStrokeColor =  array (
 104                 'red'   => '0',
 105                 'blue'  => '1',
 106                 'green' => '0'
 107                 );
 108
 109 $PDF_TABLA->setStyle($PDF_TABLA_ESTILO);
 110
 111
 112 //{{{
 113 $PDF_TEXTO =& new MLIB_PDF_Texto ('landscape', false);
 114
 115 $PDF_TEXTO->addContent(array (
 116             "Texto a la izquierda",
 117             "Texto al centro", "Texto a la derecha"));
 118
 119 $PDF_TEXTO->setEstilo(0,  array ('font'   => 'Helvetica-Bold', 'height' => 8,
 120             'align'  => 'left'));
 121 $PDF_TEXTO->setEstilo(1,  array ('font'   => 'Helvetica-Bold', 'height' => 8,
 122             'align'  => 'center'));
 123 $PDF_TEXTO->setEstilo(2,  array ('font'   => 'Helvetica-Bold', 'height' => 8,
 124             'align'  => 'right'));
 125
 126 $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.");
 127
 128 $PDF_TEXTO2 =& new MLIB_PDF_Texto ('landscape', false);
 129 $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.");
 130 $PDF_TEXTO2->setEstilo(1,  array ('font'   => 'Helvetica-Bold', 'height' => 8,
 131             'align'  => 'center'));
 132 $PDF_TEXTO2->setEstilo(0,  array ('font'   => 'Helvetica-Bold', 'height' => 8,
 133             'align'  => 'right'));
 134
 135 //print '<PRE>MARTIN FIN </PRE>';
 136 //}}}
 137
 138 $PDF_MARCO =& new MLIB_PDF_Marco ('legal', 'landscape');
 139 $PDF_MARCO->seccion   = 'Prueba de la libreria de PDF\'s';
 140 $PDF_MARCO->titulo    = 'Alberto Giordano';
 141 $PDF_MARCO->subtitulo = 'Filosofo Estilista, guacho pulenta si los hay';
 142 $PDF_MARCO->logo      = '/var/www/sistemas/mlib/www/images/pdf_logo_landscape.jpg';
 143
 144 //$PDF_MARCO->addContent(new MLIB_PDF_Tabla ($TABLA, 'landscape'), false);
 145 $PDF_MARCO->addContent($PDF_TABLA, false);
 146 $PDF_MARCO->addContent($PDF_TEXTO, true);
 147
 148 //{{{
 149 //$PDF_MARCO->addContent($PDF_TEXTO2, true);
 150 //$PDF_MARCO->addContent(new MLIB_PDF_SaltoPagina(), false);
 151 //$PDF_MARCO->addContent($PDF_TEXTO2, true);
 152 //$PDF_MARCO->addContent($PDF_TEXTO2, true);
 153 //$PDF_MARCO->addContent(new MLIB_PDF_Tabla ($TABLA), true);
 154 //$PDF_MARCO->addContent(new MLIB_PDF_Tabla ($TABLA, 'landscape'), false);
 155 //}}}
 156
 157 //$TABLA->display();
 158 $PDF_MARCO->display();
 159
 160 ?>