<?php
define ('FPDF_FONTPATH','/var/www/html/archivo/fpdf153/font/');
require('/var/www/html/archivo/fpdf153/fpdf.php');

class PDF extends FPDF
{
//Cabecera de pagina
function Header()
{
       $area=$_POST['nareag'];


       $anoag1=$_POST['anogt'];
       $nano=$anoag1+1;
       $fecha=$_POST['fechagt1'];
       //$fecha1=date("d-m");
       //$fecha="$fecha1"."-"."$nano";

       pg_connect("dbname='inv_expedientes' port='5432' user='telerin' password='aplicaciones'") or die ("Error en la conexion"); 
       $query="SELECT nom_area,titular_area,nom_direccion FROM cat_area,cat_direccion WHERE 
       cat_area.cve_direccion=cat_direccion.cve_direccion and cat_area.cve_area='$area'";
       $narea=pg_query($query);
       $nombarea=pg_fetch_result($narea,0);
       $titular=pg_fetch_result($narea,1) ; 
       $direccion=pg_fetch_result($narea,2);
   
        $this->Image('imagenes/hgo.jpg',23,4,25);
        $this->Image('imagenes/bachillerato.jpg',300,6,55);
	//Arial bold 15
	$this->SetFont('Arial','B',11);
	//Movernos a la derecha
	//Título
        

        $this->SetXY(295,20);
        $this->Cell(295,20,'TIPO DE ARCHIVO:',0,1,'L');
        
        
        $this->SetFillColor(200,200,200);
        $this->Rect(275,32,25,5,'FD');
        $this->SetXY(275,23);
        $this->Cell(275,23,'TRÁMITE',0,1,'');

        $this->SetFillColor(200,200,200);
        $this->Rect(295,32,36,5,'FD');
        $this->SetXY(295,23);
        $this->Cell(295,23,'CONCENTRACIÓN',0,1,'');

        $this->SetFillColor(200,200,200);
        $this->Rect(331,32,24,5,'FD');
        $this->SetXY(332,23);
        $this->Cell(332,23,'HISTÓRICO',0,1,'');
        
        $this->SetFillColor(200,200,200);
        $this->Rect(275,37,25,5,'FD');
        $this->SetXY(283,26.5);
        $this->Cell(295,27,'X',0,1,'');
        $this->SetFillColor(200,200,200);
        $this->Rect(295,37,36,5,'FD');
        $this->SetFillColor(200,200,200);
        $this->Rect(331,37,24,5,'FD');
      
        $this->SetXY(275,31);
        $this->Cell(275,31,'FECHA DE EMISIÓN:',0,1,'L');

        $this->SetXY(315,31);
        $this->Cell(315,31,$fecha,0,1,'L');  
        //$this->Cell(315,31,'29-01-2015',0,1,'L');

       // $this->SetXY(235,40);
       // $this->Cell(0,26,'HOJA '.$this->PageNo().' DE {nb}',0,0,'C');
   
        $this->SetFillColor(200,200,200);
        $this->Rect(23,60,42,8,'FD');
        $this->SetXY(29,43);
        $this->Cell(29,43,'ÁREA GENERADORA',0,1,'C');

        $this->SetFillColor(200,200,200);
        $this->Rect(65,60,43,8,'FD');
        $this->SetXY(58,43);
        $this->Cell(58,43,'SECCIÓN',0,1,'C');

        $this->SetFillColor(200,200,200);
        $this->Rect(108,60,43,8,'FD');
        $this->SetXY(88,43);
        $this->Cell(88,43,'SERIE',0,1,'C');

        $this->SetFillColor(200,200,200);
        $this->Rect(151,60,40,8,'FD');
        $this->SetXY(113,43);
        $this->Cell(113,43,'SUBSERIE',0,1,'C');

        $this->SetFillColor(200,200,200);
        $this->Rect(190,60,55,8,'FD');
        $this->SetXY(145,43);
        $this->Cell(145,43,'DESCRIPCIÓN GENÉRICA',0,1,'C');

        $this->SetFillColor(200,200,200);
        $this->Rect(245,60,44,4,'FD');
        $this->SetXY(178,41.5);
        $this->Cell(178,41.5,'FECHAS EXTREMAS',0,1,'C');
        $this->SetFillColor(200,200,200);
        $this->Rect(245,64,22,4,'FD');
        $this->SetXY(171,44);
        $this->Cell(171,44,'INICIO',0,1,'C');

        $this->SetFillColor(200,200,200);
        $this->Rect(267,64,22,4,'FD');
        $this->SetXY(186,44);
        $this->Cell(186,44,'FINAL',0,1,'C');
        
        $this->SetFillColor(200,200,200);
        $this->Rect(288,60,28,8,'FD');
        $this->SetXY(201,43);
        $this->Cell(201,43,'VOLÚMENES',0,1,'C');

        $this->SetFillColor(200,200,200);
        $this->Rect(315,60,40,8,'FD');
        $this->SetXY(224,43);
        $this->Cell(224,43,'UBICACIÓN FÍSICA',0,1,'C');
               
        $this->SetFont('Arial','B',13);
        $this->SetXY(150,15);
	 $this->Cell(18,15,'GUIA DE ARCHIVO DOCUMENTAL',0,1,'B');
        $this->SetFont('Arial','B',11);
        $this->SetXY(23,20);
	 $this->Cell(23,20,'FONDO:',0,1,'');
    
        $this->SetXY(23,23);
	 $this->Cell(23,23,'UNIDAD ADMINISTRATIVA:',0,1,'B');

        $this->SetXY(23,26);
	 $this->Cell(23,26,'DOMICILIO: ',0,1,'B');
        $this->SetXY(23,29);
	 $this->Cell(23,29,'TELÉFONO: ',0,1,'B');
        $this->SetXY(23,32);
	 $this->Cell(23,32,'CORREO ELECTRÓNICO: ',0,1,'B');        
        $this->SetXY(23,35);
	 $this->Cell(23,35,'NOMBRE DEL TITULAR:  ',0,1,'B');
        
        
        $this->SetXY(23,38);
	 $this->Cell(23,38,' ',0,1,'B');

        $this->SetFont('Arial','B',11);
        $this->SetXY(39,20);
	 $this->Cell(39,20,'BACHILLERATO DEL ESTADO DE HIDALGO',0,1,'b');
        $this->SetXY(74,23);
	 $this->Cell(74,23,$nombarea,0,1,'');
        $this->SetXY(45,26);
	 $this->Cell(45,26,'CIRCUITO EX-HACIENDA LA CONCEPCIÓN, LOTE 17, SAN JUAN TILCUAUTLA, MPIO. DE SAN AGUSTÍN TLAXIACA',0,1,'B');
        $this->SetXY(46,29);
	 $this->Cell(46,29,'01 771 71 25 13',0,1,'B');
        $this->SetXY(48,32);
        $this->SetXY(68.5,35);
	 $this->Cell(68.5,35,$titular,0,1,'B');
      	//Salto de línea
	$this->Ln(0);
}
//Pie de página

function Footer()
{
       
        $this->SetFont('Arial','B',11);
        $this->SetXY(5,260);
        $this->Line(15,200,90,200);
        $this->SetXY(15,180);
        $this->Cell(70,10,'ELABORÓ',2,1,'C');
        $this->SetXY(35,197);
        $this->Cell(35,10,'L.I. CECILIA GAYOSSO ESPAÑA',2,1,'C');
        $this->SetXY(35,201);
        $this->Cell(35,10,'ENLACE NORMATIVO',2,1,'C');

        $this->Line(230,200,150,200);
        $this->SetXY(150,180);
        $this->Cell(80,10,'AUTORIZÓ',0,0,'C');
        $this->SetXY(127,197);
        $this->Cell(127,10,'LIC. ANDRÉS IVANHOE MONTERRUBIO MEZA',2,1,'C');
        $this->SetXY(127,201);
        $this->Cell(127,10,'DIRECTOR GENERAL',2,1,'C');

        $this->SetXY(200,260);
        $this->Line(270,200,354,200);
        $this->SetXY(280,180);
        $this->Cell(70,10,'VALIDÓ',0,0,'C');
        $this->SetXY(193,197);
        $this->Cell(240,10,'ÓRGANO RECTOR',2,1,'C');
      }
}

//Creación del objeto de la clase heredada
$pdf=new PDF('L','mm','Legal');
$pdf->AliasNbPages();
$pdf->AddPage();
$pdf->SetFont('Arial','',11);
$area1=$_POST['nareag'];
$anoag1=$_POST['anogt'];
$anop='2007';
$tiempovigencia=$anoag1-2008; //calcula el tiempo que ha transcurrido del año inicial con el año en que se elabora el documento
$ubica='Circuito Ex-Hacienda la Concepción, Lte. 17, San Juan Tilcuautla, Mpio. de San Agustín Tlaxiaca';

     pg_connect("dbname='inv_expedientes' port='5432' user='telerin' password='aplicaciones'") or die ("Error en la conexion"); 

     $borrareg="delete from tmp_guia";
     $borrareg1=pg_query($borrareg);
         
     for($t=2008;$t<=$anoag1;$t++){
        $querybdts="select distinct(datos_generales.homologa) as homologa,datos_generales.cve_serie,at,nom_area from datos_generales,cat_series1,cat_area  where 
        datos_generales.cve_area='$area1' and ano=$t and cat_series1.cve_serie=datos_generales.cve_serie and cat_series1.homologa=datos_generales.homologa
        and cve_cat like'%$t' and baja_por_error is null and cat_area.cve_area=datos_generales.cve_area group by datos_generales.homologa,datos_generales.cve_serie,at,nom_area";

        $datoat=pg_query($querybdts);
        $filadat=pg_num_rows($datoat);
  
        for($i=0;$i< $filadat;$i++){  
           
            $homol=pg_fetch_result($datoat,$i,0); 
            $cveser=pg_fetch_result($datoat,$i,1);  
            $at=pg_fetch_result($datoat,$i,2);
            $nomar1=pg_fetch_result($datoat,$b,3);   
            
            $texto1=ucwords(strtolower($nomar1));      

            $search = array("Á", "É", "Í", "Ó", "Ú", "á", "é", "í", "ó", "ú", "Ñ", "ñ");
            $replace = array("á", "é", "í", "ó", "ú", "á", "é", "í", "ó", "ú", "ñ", "ñ");


            $nomar=str_replace($search, $replace, $texto1);

            if(($tiempovigencia<$at) OR ($anoag1==$t) or ($at=='0') OR ($at=='Ø')){//COMPARA EL TIEMPO DE VIGENCIA DEL EXPEDIENTE CON LOS AÑOS TRANSCURRIDOS O CON EL AÑO QUE SE ESTÁ REPORTANDO

 
               $querybsecc="select distinct(cat_series1.cve_seccion) as cves,nom_seccion,nom_serie,series,tipo_serie,descripcion,at,cve_serie,tipo 
               from cat_series1,cat_seccion where  cat_series1.cve_seccion=cat_seccion.cve_seccion and cve_serie='$cveser' AND CVE_CAT LIKE'%$t' ";
               $datosecc=pg_query($querybsecc);
              
               $csecc=pg_fetch_result($datosecc,0);
               $nomsecc=pg_fetch_result($datosecc,1);
               $concatnsecc="$csecc"." "." $nomsecc";
               //$nomser=pg_fetch_result($datosecc,2);  
               $serie=pg_fetch_result($datosecc,3);
              
               $tipser=pg_fetch_result($datosecc,4);
               $descrip=pg_fetch_result($datosecc,5);
               $tiemat=pg_fetch_result($datosecc,6);
               $cseri=pg_fetch_result($datosecc,7);
               $tipo=pg_fetch_result($datosecc,8);


               if($tipo=='C'){
                 $nos=str_replace('C','',$cseri);
                 $nos1=(int)$nos;


                 $substra=explode(".",$cseri);

                 $ser=$substra[1];
                 $sub=$substra[2];
  
                
               }else{
                 $nos=str_replace('S','',$cseri);
                 $nos1=(int)$nos;
     

                 $substra=explode(".",$cseri);

                 $ser=$substra[1];
                 $sub=$substra[2];

               }

               //BUSCA NOMBRE DE LAS SERIES
              $querynser="select series,NOM_SERIE from cat_series1 where series='$serie' and tipo_SERIE='S'  AND CVE_CAT LIKE'%$t'";
              $datons=pg_query($querynser);    
              $cserie=pg_fetch_result($datons,0);
              $nomser=pg_fetch_result($datons,1);
              $concatnserie="$cserie"." "."$nomser";

              //BUSCA NOMBRE DE LAS SERIES
              $querynsub="select cve_serie,NOM_SERIE from cat_series1 where cve_serie='$cveser' and tipo_SERIE='SUB' and homologa=$homol AND CVE_CAT LIKE'%$t'";
              $datonsub=pg_query($querynsub);    
              $csub=pg_fetch_result($datonsub,0);
              $nomsub=pg_fetch_result($datonsub,1);
              $concatnsub="$csub"." "."$nomsub";


              IF($cserie=='2C.2'){

                 //BUSCA FECHA DE INICIO
                 $querybfi="select fecha_inicio from datos_generales where cve_area='$area1' and 
                 cve_serie='$cveser' and ( (fecha_final like'%$t') or (fecha_final='.') or (fecha_final isnull) or (fecha_final='__/__/____') or (fecha_final='')) and ano='$t'";
              }
              IF($cserie!='4C.1'){

                 //BUSCA FECHA DE INICIO
                 $querybfi="select fecha_inicio from datos_generales where cve_area='$area1' and 
                 cve_serie='$cveser' and fecha_inicio<>'' and ano='$t'";
              }

              $datofi=pg_query($querybfi);
              $filai=pg_num_rows($datofi);
              $fechaa=date("Y-m-d");  
              $anoac=date("Y");
              $cadena2=str_replace('-','',$fechaa);
              $fechai=(int)$cadena2;
              if($filai!=0){
                for($z=0;$z<$filai;$z++){
                  $fechai1=trim(pg_fetch_result($datofi,$z,0));
                  $dia=substr($fechai1,0,2);  
                  $mes=substr($fechai1,3,2);
                  $ano=substr($fechai1,6,4);
                  $fec1=$ano."".$mes."".$dia;
                  $fec=(int)$fec1; 
                     if($fec<=$fechai){
                          $fechai=$fec;
                          $ano1=substr($fechai,0,4);  
                          $mes1=substr($fechai,4,2);
                          $dia1=substr($fechai,6,2);
                          $fechaib=$dia1."/".$mes1."/".$ano1;
                     }
                }
              }else{
                $fechaib=$anoag1;
              }
         
              //BUSCA FECHA FINAL
              $querybff="select fecha_final from datos_generales where cve_area='$area1'  and 
              cve_serie='$cveser' and fecha_final<>'' and ano='$t'";
              $datoff=pg_query($querybff);
              $filaf=pg_num_rows($datoff);
              $fechaaf='1990-01-01';  
              $anoac=date("Y");
              $cadena2f=str_replace('-','',$fechaaf);
              $fechaf1=(int)$cadena2f;
              if($filaf!=0){
               for($mf=0;$mf<$filaf;$mf++){
                  $fechaf=trim(pg_fetch_result($datoff,$mf,0));
                  
                  $diaf=substr($fechaf,0,2);  
                  $mesf=substr($fechaf,3,2);
                  $anof=substr($fechaf,6,4);
                  $fec1f=$anof."".$mesf."".$diaf;
                  $fecf=(int)$fec1f;          
                  if($anof>$anoag1){
                     $fecham=$anoag1;
                  }else{         
                    if($fecf>=$fechaf1){
                        $fechaf1=$fecf;
                        $ano1f=substr($fechaf1,0,4);  
                        $mes1f=substr($fechaf1,4,2);
                        $dia1f=substr($fechaf1,6,2);
                        $fecham=$dia1f."/".$mes1f."/".$ano1f; 
                     } 
                  }      
               }
              }else{
               $fecham=$anoag1;
              }

             
                //VOLUMEN DE EXPEDIENTES
                $queryvol="select count(cve_serie) as tot,cve_exp from datos_generales,cat_area where
                datos_generales.cve_area='$area1'  AND cve_serie='$cveser' 
                and cat_area.cve_area=datos_generales.cve_area AND ano='$t' and baja_por_error is null GROUP BY cve_exp"; 
            
              $datovol=pg_query($queryvol);
              $filavol=pg_num_rows($datovol);
              if($filavol==0){ 
              }else{ 
                 //$guardatemp="INSERT INTO tmp_guia (area,seccion,serie,cve_serie,tipo,subserie,tipo_ser,fecha_i,fecha_f,ano,descripcion,ubicacion_fisica,no_seccion,no_serie) values ('$nomar','$concatnsecc','$concatnserie','$cveser','$tipo','$concatnsub','$tipser',
                 //'$fechaib','$fecham','$t','$descrip','$ubica',$nos1,$ser)";
                  $guardatemp="INSERT INTO tmp_guia (area,seccion) values ('$t','$cseri')";
                 $guarda=pg_query($guardatemp);
                 $guardasub=pg_query("UPDATE tmp_guia SET no_subserie=$sub WHERE cve_serie='$cveser' and ano='$t'");

                 for($v=0;$v<$filavol;$v++){
                    $tipex=pg_fetch_result($datovol,$v,1);
                    if($tipex=='EF'){
                       $volumef=pg_fetch_result($datovol,$v,0);
                       $guardagef=pg_query("UPDATE tmp_guia SET volumen_ef=$volumef WHERE cve_serie='$cveser' and ano='$t'");
                    }else{
                       $volumee=pg_fetch_result($datovol,$v,0);
                       $guardagee=pg_query("UPDATE tmp_guia SET volumen_ee=$volumee WHERE cve_serie='$cveser' and ano='$t'");
                    }            
                 }


              }

            }
        }           
     } 


//BUSCA LAS SERIES QUE SE ENCUENTRAN EN EL ÁREA QUE SE SELECCIONA
$querybsguia="select distinct(serie),no_seccion,no_serie,no_subserie,tipo from tmp_guia order by tipo,no_seccion,no_serie,no_subserie";
$datobsg=pg_query($querybsguia);
$filabsguia=pg_num_rows($datobsg);
$c=0;
for($sg=0;$sg<$filabsguia;$sg++){

   $nseccion=pg_fetch_result($datobsg,$sg,1);
   $noserie=pg_fetch_result($datobsg,$sg,2);
   $nosubserie=pg_fetch_result($datobsg,$sg,3);
   $tipo=pg_fetch_result($datobsg,$sg,4);

   if($nosubserie==''){ //SI EL EXPEDIENTE ESTÁ A NIVEL DE SERIE
      //BUSCA LOS DATOS EN LA TABLA TEMPORAL
      $querybguia="select area,seccion,serie,subserie,descripcion,ubicacion_fisica from tmp_guia where tipo='$tipo' and no_seccion=$nseccion and no_serie=$noserie";
      $datobg=pg_query($querybguia);
      $filaguia=pg_num_rows($datobg);

      //BUSCA EL VOLUMEN DE EXPEDIENTES FÍSICOS Y ELECTRÓNICOS
      $queryvolumen="select sum(volumen_ef),sum(volumen_ee) from tmp_guia where tipo='$tipo' and no_seccion=$nseccion and no_serie=$noserie";
      $datovol=pg_query($queryvolumen);
      $volef=pg_fetch_result($datovol,0,0);
      $volee=pg_fetch_result($datovol,0,1);

      //BUSCA FECHA DE INICIO
      $querybfi="select fecha_i from tmp_guia where tipo='$tipo' and no_seccion=$nseccion and no_serie=$noserie ";
      $datofi=pg_query($querybfi);
      $filai=pg_num_rows($datofi);
      $fechaa=date("Y-m-d");  
      $anoac=date("Y");
      $cadena2=str_replace('-','',$fechaa);
      $fechai=(int)$cadena2;
      if($filai!=0){
        for($z=0;$z<$filai;$z++){
           $fechai1=trim(pg_fetch_result($datofi,$z,0));
           if($fechai1==$anoag1){
              $fechaib=$anoag1;
           }else{
              $dia=substr($fechai1,0,2);  
              $mes=substr($fechai1,3,2);
              $ano=substr($fechai1,6,4);
              $fec1=$ano."".$mes."".$dia;
              $fec=(int)$fec1; 
              if($fec<=$fechai){
                $fechai=$fec;
                $ano1=substr($fechai,0,4);  
                $mes1=substr($fechai,4,2);
                $dia1=substr($fechai,6,2);
                $fechaib=$dia1."/".$mes1."/".$ano1;
             }
           }
        }
      }else{
        $fechaib=$anoag1;
     }

     //BUSCA FECHA FINAL
              $querybff="select fecha_f from tmp_guia where tipo='$tipo' and no_seccion=$nseccion and no_serie=$noserie ";
              $datoff=pg_query($querybff);
              $filaf=pg_num_rows($datoff);
              $fechaaf='1990-01-01';  
              $anoac=date("Y");
              $cadena2f=str_replace('-','',$fechaaf);
              $fechaf1=(int)$cadena2f;
              if($filaf!=0){
               for($mf=0;$mf<$filaf;$mf++){
                  $fechaf=trim(pg_fetch_result($datoff,$mf,0));
                  
                  if($fechaf==2009){
                     $fecham=$anoag1;
                  }else{

                    $diaf=substr($fechaf,0,2);  
                    $mesf=substr($fechaf,3,2);
                    $anof=substr($fechaf,6,4);
                    $fec1f=$anof."".$mesf."".$diaf;
                    $fecf=(int)$fec1f;          
                    if($anof>$anoag1){
                       $fecham=$anoag1;
                    }else{         
                      if($fecf>=$fechaf1){
                          $fechaf1=$fecf;
                          $ano1f=substr($fechaf1,0,4);  
                          $mes1f=substr($fechaf1,4,2);
                          $dia1f=substr($fechaf1,6,2);
                          $fecham=$dia1f."/".$mes1f."/".$ano1f; 
                       } 
                    } 
                  }     
               }
              }else{
               $fecham=$anoag1;
              }


   }else{ //SI EL EXPEDIENTE ESTÁ A NIVEL DE SUPBSERIE
      //BUSCA LOS DATOS EN LA TABLA TEMPORAL
      $querybguia="select area,seccion,serie,subserie,descripcion,ubicacion_fisica from tmp_guia where tipo='$tipo' and no_seccion=$nseccion and no_serie=$noserie and no_subserie=$nosubserie ";
      $datobg=pg_query($querybguia);
      $filaguia=pg_num_rows($datobg);


      //BUSCA EL VOLUMEN DE EXPEDIENTES FÍSICOS Y ELECTRÓNICOS
      $queryvolumen="select sum(volumen_ef),sum(volumen_ee) from tmp_guia where tipo='$tipo' and no_seccion=$nseccion and no_serie=$noserie and no_subserie=$nosubserie ";
      $datovol=pg_query($queryvolumen);
      $volef=pg_fetch_result($datovol,0,0);
      $volee=pg_fetch_result($datovol,0,1);
      

      //BUSCA FECHA DE INICIO
      $querybfi="select fecha_i from tmp_guia where tipo='$tipo' and no_seccion=$nseccion and no_serie=$noserie and no_subserie=$nosubserie";
      $datofi=pg_query($querybfi);
      $filai=pg_num_rows($datofi);
      $fechaa=date("Y-m-d");  
      $anoac=date("Y");
      $cadena2=str_replace('-','',$fechaa);
      $fechai=(int)$cadena2;
      if($filai!=0){
        for($z=0;$z<$filai;$z++){
           $fechai1=trim(pg_fetch_result($datofi,$z,0));
           $dia=substr($fechai1,0,2);  
           $mes=substr($fechai1,3,2);
           $ano=substr($fechai1,6,4);
           $fec1=$ano."".$mes."".$dia;
           $fec=(int)$fec1; 
           if($fec<=$fechai){
             $fechai=$fec;
             $ano1=substr($fechai,0,4);  
             $mes1=substr($fechai,4,2);
             $dia1=substr($fechai,6,2);
             $fechaib=$dia1."/".$mes1."/".$ano1;
           }
        }
      }else{
        $fechaib=$anoag1;
     }

      //BUSCA FECHA FINAL
              $querybff="select fecha_f from tmp_guia where tipo='$tipo' and no_seccion=$nseccion and no_serie=$noserie and no_subserie=$nosubserie ";
              $datoff=pg_query($querybff);
              $filaf=pg_num_rows($datoff);
              $fechaaf='1990-01-01';  
              $anoac=date("Y");
              $cadena2f=str_replace('-','',$fechaaf);
              $fechaf1=(int)$cadena2f;
              if($filaf!=0){
               for($mf=0;$mf<$filaf;$mf++){
                  $fechaf=trim(pg_fetch_result($datoff,$mf,0));
                  
                  if($fechaf=='$anoag1'){
                     $fecham=$anoag1;
                  }else{

                    $diaf=substr($fechaf,0,2);  
                    $mesf=substr($fechaf,3,2);
                    $anof=substr($fechaf,6,4);
                    $fec1f=$anof."".$mesf."".$diaf;
                    $fecf=(int)$fec1f;          
                    if($anof>$anoag1){
                       $fecham=$anoag1;
                    }else{         
                      if($fecf>=$fechaf1){
                          $fechaf1=$fecf;
                          $ano1f=substr($fechaf1,0,4);  
                          $mes1f=substr($fechaf1,4,2);
                          $dia1f=substr($fechaf1,6,2);
                          $fecham=$dia1f."/".$mes1f."/".$ano1f; 
                       } 
                    } 
                  }     
               }
              }else{
               $fecham=$anoag1;
              }


   }
   
   
      $narea=pg_fetch_result($datobg,$g,0);
      $nseccion=pg_fetch_result($datobg,$g,1);
      $serie=pg_fetch_result($datobg,$g,2);
      $subserie=pg_fetch_result($datobg,$g,3);
      $descripcion=pg_fetch_result($datobg,$g,4);     
      $ubicacion=pg_fetch_result($datobg,$g,5);

 
      $longitud=strlen($narea);
      $longitud1=strlen($nseccion);
      $longitud2=strlen($serie); 
      $longitud3=strlen($subserie); 
      $longitud4=strlen($descripcion);

      $cuent=$cuent+1;


              if($longitud<=90){            
                 $pdf->SetXY(23,($c+2.7)*27.5); //determina posicion del texto
                 $pdf->MultiCell(40,3.49,$narea,0,'J');
                 $pdf->Rect(23,($c+2.72)*25.1,42,25); //determina posicion y tamaño del texto
              }
              if($longitud>=91 AND $longitud<=130){
                 $pdf->SetXY(23,($c+2.6)*26.8); //determina posicion del texto
                 $pdf->MultiCell(40,3.49,$narea,0,'J');
                 $pdf->Rect(23,($c+2.72)*25.1,42,25); //determina posicion y tamaño del texto
              }
              if($longitud>=131){
                 $pdf->SetXY(23,($c+2.72)*24.5); //determina posicion del texto
                 $pdf->MultiCell(40,3.49,$narea,0,'J');
                 $pdf->Rect(23,($c+2.72)*25.1,42,25); //determina posicion y tamaño del texto
              }
  
              if($longitud1<=90){
                $pdf->SetXY(65,($c+2.7)*27.5);
                $pdf->MultiCell(44,3.49,$nseccion,0,'J');
                $pdf->Rect(65,($c+2.72)*25.1,43,25);
              }
              if($longitud1>=91 AND $longitud1<=130){
                $pdf->SetXY(65,($c+2.6)*26.8);
                $pdf->MultiCell(44,3.49,$nseccion,0,'J');
                $pdf->Rect(65,($c+2.72)*25.1,43,25);
              }
              if($longitud1>=131){
                $pdf->SetXY(65,($c+2.72)*24.5);
                $pdf->MultiCell(44,3.49,$nseccion,0,'J');
                $pdf->Rect(65,($c+2.72)*25.1,43,25);
              }
              
              if($longitud2<=70){
                $pdf->SetXY(108,($c+2.7)*27);
                $pdf->MultiCell(43,3.49,$serie,0,'J');            
                $pdf->Rect(108,($c+2.72)*25.1,43,25);
              }
              if($longitud2>=71 AND $longitud2<=130){
                $pdf->SetXY(108,($c+2.6)*26.8);
                $pdf->MultiCell(43,3.49,$serie,0,'J');            
                $pdf->Rect(108,($c+2.72)*25.1,43,25);
              }
              if($longitud2>=131){
                $pdf->SetXY(108,($c+2.72)*24.5);
                $pdf->MultiCell(43,3.49,$serie,0,'J');            
                $pdf->Rect(108,($c+2.72)*25.1,43,25);
              }
              if($longitud3<=70){
                $pdf->SetXY(151,($c+2.7)*27.5);
                $pdf->MultiCell(40,3.49,$subserie,0,'J');
                $pdf->Rect(151,($c+2.72)*25.1,39,25);
              }
              if($longitud3>=71 AND $longitud3<=130){
                $pdf->SetXY(151,($c+2.6)*26.8);
                $pdf->MultiCell(40,3.49,$subserie,0,'J');
                $pdf->Rect(151,($c+2.72)*25.1,39,25);
              }
              if($longitud3>=131){
                $pdf->SetXY(151,($c+2.72)*24.5);
                $pdf->MultiCell(40,3.49,$subserie,0,'J');
                $pdf->Rect(151,($c+2.72)*25.1,39,25);
              }
              if($longitud4<=70){
                $pdf->SetXY(190,($c+2.7)*27.5);
                $pdf->MultiCell(55,3.49,$descripcion,0,'J');
                $pdf->Rect(190,($c+2.72)*25.1,55,25,'');
              }
              if($longitud4>=71 AND $longitud4<=130){
                $pdf->SetXY(190,($c+2.6)*26.8);
                $pdf->MultiCell(55,3.49,$descripcion,0,'J');
                $pdf->Rect(190,($c+2.72)*25.1,55,25,'');
              }
              if($longitud4>=131){
                $pdf->SetXY(190,($c+2.72)*25);
                $pdf->MultiCell(55,3.49,$descripcion,0,'J');
                $pdf->Rect(190,($c+2.72)*25.1,55,25,'');
              }


              $pdf->SetXY(245,($c+3)*26.3);
              $pdf->MultiCell(22,3.49,$fechaib,0,'C');
              $pdf->Rect(245,($c+2.72)*25.1,22,25);

              $pdf->SetXY(267,($c+3)*26.3);
              $pdf->MultiCell(22,3.49,$fecham,0,'C');
              $pdf->Rect(267,($c+2.72)*25.1,21,25);

              if($volef<>NULL){
                   $pdf->SetXY(300,($c+2.74)*25.1);
                   $pdf->MultiCell(27,3.49,$volef,0,'J');
                if($volef==1){
                   $pdf->SetXY(290,($c+2.92)*25.1);
                   $pdf->MultiCell(27,3.49,'Expediente Físico',0,'J');
                }else{
                   $pdf->SetXY(290,($c+2.92)*25.1);
                   $pdf->MultiCell(27,3.49,'Expedientes Físicos',0,'J');
                }
              }
              if($volee<>NULL){
                   $pdf->SetXY(300,($c+3.2)*25.1);
                   $pdf->MultiCell(27,3.49,$volee,0,'','j');
                if($volee==1){
                   $pdf->SetXY(290,($c+3.4)*25.1);
                   $pdf->MultiCell(27,3.49,'Expediente Electrónico',0,'J');
                }else{
                   $pdf->SetXY(290,($c+3.4)*25.1);
                   $pdf->MultiCell(27,3.49,'Expedientes Electrónicos',0,'J');
                }
              }
              $pdf->Rect(288,($c+2.72)*25.1,27,25);

              $pdf->Rect(288,($c+2.72)*25.1,27,25);
              $pdf->SetXY(315,($c+2.72)*26);
              $pdf->MultiCell(40,3.49,$ubicacion,0,'J');
              $pdf->Rect(315,($c+2.72)*25.1,40,25);
              $c++; 
              if ($c>=4){
	          $c=0;
                 $pdf->AddPage();
              }
                           
}
$pdf->Output();
?>