<?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['narea'];
       $secc=$_POST['sseccion'];
       $serie=$_POST['serie'];
       $nano1=$_POST['nano'];
       $nano=$nano1+1;
       $fecha1=$_POST['fecha'];

       //$fecha1=date("d-m");
       $fecha="$fecha1"."-"."$nano";
       pg_connect("dbname='inv_expedientes' port='5432' user='telerin' password='aplicaciones'") or die ("Error en la conexion");


       $querybhomol="select homologa from cat_series1 where homologa='$serie' and cve_cat like'%$nano1'";
       $datohom=pg_query($querybhomol);  
       $homologas=pg_fetch_result($datohom,0);  
 
       $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'  AND status='B'";
       $narea=pg_query($query);
       $nombarea=pg_fetch_result($narea,0);
       $titular=pg_fetch_result($narea,1); 
       $direccion=pg_fetch_result($narea,2);
   

       $querynsecc="SELECT cve_seccion,nom_seccion FROM cat_seccion WHERE cve_seccion='$secc' and status='*'";
       $nsecc=pg_query($querynsecc);
       $cvesc=Strtoupper(pg_fetch_result($nsecc,0));
       $nsec=Strtoupper(pg_fetch_result($nsecc,1)); 
       $concatnsecc1="$cvesc"." "."$nsec";       

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


       $concatnsecc=str_replace($search, $replace, $concatnsecc1);    
  

       $querybcser="SELECT distinct(cve_serie) AS cserie,TIPO_SERIE,SERIES FROM cat_series1 WHERE cat_series1.homologa=$homologas and  CVE_CAT LIKE'%$nano1'";

       $datocser=pg_query($querybcser);
       $cveserie=pg_fetch_result($datocser,0);
       $tipo=pg_fetch_result($datocser,1); 
       $tiposer=pg_fetch_result($datocser,2);
    
      
       if($tipo=='SUB'){
          $qbcseri="SELECT nom_serie,cve_serie from cat_series1 WHERE cat_series1.cve_serie ='$tiposer' and  CVE_CAT LIKE'%$nano1' ";
          $dcser=pg_query($qbcseri);
          $nsers=pg_fetch_result($dcser,0);
          $cvesers=pg_fetch_result($dcser,1);
          $concatserser1=Strtoupper("$cvesers"." "."$nsers");
        // echo"$qbcseri";
          $search = array("Á", "É", "Í", "Ó", "Ú", "á", "é", "í", "ó", "ú", "Ñ", "ñ");
          $replace = array("Á", "É", "Í", "Ó", "Ú", "Á", "É", "Í", "Ó", "Ú", "Ñ", "Ñ");
          $concatserser=str_replace($search, $replace, $concatserser1);
       }


       $querybser="SELECT cve_serie,nom_serie FROM cat_series1 WHERE cat_series1.homologa=$homologas AND CVE_CAT LIKE'%$nano1'";

       $datoser=pg_query($querybser);
       $filabser=pg_num_rows($datoser);

      // for($bs=0;$bs<$filabser;$bs++){
          //$cveserie=pg_fetch_result($datoser,$bs,0);
          $nomserie=pg_fetch_result($datoser,1); 
          $concatn="$cveserie".""."$concatn";
       // }  
        
        $codigo="DGBEH"."-"."$area"."*"."$concatn"; 
        $concatn11=Strtoupper("$concatn"." "."$nomserie");    

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

 
       $concatn1=str_replace($search, $replace, $concatn11); 
           
        $this->Image('imagenes/hgo.jpg',23,4,25);

      $this->Image('imagenes/TBC.jpg',312,5,40);
     // $this->Image('imagenes/bachillerato.jpg',300,5,50);

	//Arial bold 15
	$this->SetFont('Arial','B',11);
	//Movernos a la derecha
	//Título
        

        $this->SetXY(285,20);
        $this->Cell(285,20,'FECHA DE EMISIÓN: ',0,1,'');
        $this->SetXY(324,23);

        $this->Cell(324,23,$fecha1,0,1,'');

        $this->SetXY(257,26);
	 $this->Cell(0,26,'HOJA '.$this->PageNo().' DE {nb}',0,0,'C');
        $pagina=$this->PageNo();


        $this->SetXY(285,29);
        $this->Cell(285,29,'CÓDIGO:',0,1,'');

        $this->SetXY(303,42);
        $this->MultiCell(45,3.49,$codigo,0,'','j');

        $this->SetFillColor(200,200,200);
        $this->Rect(23,60,55,8.24,'FD');
        $this->SetXY(33,43);
        $this->Cell(33,43,'UBICACIÓN FÍSICA',0,'C');

        $this->SetFillColor(200,200,200);
        $this->Rect(78,60,55,8.24,'FD');
        $this->SetXY(70,43);
        $this->Cell(70,43,'UBICACIÓN TOPOGRÁFICA',0,1,'C');

        $this->SetFillColor(200,200,200);
        $this->Rect(133,60,67,8.24,'FD');
        $this->SetXY(112,43);
        $this->Cell(115,43,'NO. EXPEDIENTE',0,1,'C');

        $this->SetFillColor(200,200,200);
        $this->Rect(200,60,62,8.24,'FD');
        $this->SetXY(154,43);
        $this->Cell(154,43,'DESCRIPCIÓN DEL EXPEDIENTE',0,1,'C');

        $this->SetFillColor(200,200,200);
        $this->Rect(262,60,44,4,'FD');
        $this->SetXY(190,41.5);
        $this->Cell(190,41.5,'FECHAS EXTREMAS',0,1,'C');
        $this->SetFillColor(200,200,200);
        $this->Rect(262,64,22,4.24,'FD');
        $this->SetXY(183,44);
        $this->Cell(183,44,'INICIO',0,1,'C');
 
        $this->SetFillColor(200,200,200);
        $this->Rect(284,64,22,4.24,'FD');
        $this->SetXY(196,44);
        $this->Cell(196,44,'FINAL',0,1,'C');
        
        $this->SetFillColor(200,200,200);
        $this->Rect(305,60,49,8.24,'FD');
        $this->SetXY(220,43);
        $this->Cell(220,43,'OBSERVACIONES',0,1,'C');
   
        $this->SetFont('Arial','B',13);
        $this->SetXY(150,15);
	 $this->Cell(18,15,'INVENTARIO 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,'ÁREA GENERADORA:',0,1,'B');
        $this->SetXY(23,29);
	 $this->Cell(23,29,'NOMBRE DEL RESPONSABLE:',0,1,'B');
        $this->SetXY(23,32);
	 $this->Cell(23,32,'SECCIÓN: ',0,1,'B');
        

        $this->SetXY(23,35);
	 $this->Cell(23,35,'SERIE:',0,1,'B');
        $this->SetXY(23,38);
	 $this->Cell(23,38,'SUBSERIE:',0,1,'B');
  if($tipo=='SUB'){    
      

}
  
        $this->SetFont('Arial','B',11);
        $this->SetXY(39,20);
	 $this->Cell(39,20,'BACHILLERATO DEL ESTADO DE HIDALGO',0,1,'b');
        $this->SetXY(75,23);
	 $this->Cell(75,23,$direccion,0,1,'');
        $this->SetXY(69,26);
	 $this->Cell(69,26,$nombarea,0,1,'B');
        $this->SetXY(82,29); 
	 $this->Cell(82,29,$titular,0,1,'B');
        $this->SetXY(42.5,32);
	 $this->Cell(42.5,32,$concatnsecc,0,1,'B');   
        if($tipo!='SUB'){
           $this->SetXY(37,50.5);
	    $this->MultiCell(220,3.8, $concatn1,0,'1','J');
        

        }else{  
           $this->SetXY(37,50.5);
	    $this->MultiCell(220,3.8,$concatserser,0,'1','J');
           $this->SetXY(44.5,55.1); 
	    $this->MultiCell(220,3.8, $concatn1,0,'1','J');  


        }


	//Salto de línea
	$this->Ln(0);
}
//Pie de página

function Footer()
{
       //BUSCA DATOS DE QUIEN FIRMA INVENTARIO EN TRÁMITE
       $area=$_POST['narea'];
      
       
       $fecha=date("d-m-Y");
       pg_connect("dbname='inv_expedientes' port='5432' user='telerin' password='aplicaciones'") or die ("Error en la conexion"); 
       $queryres="SELECT titular_area,nom_responsable FROM cat_area WHERE  cve_area='$area' AND status='B'";
       $datores=pg_query($queryres);
       $titulara=pg_fetch_result($datores,0);
       $responsable=pg_fetch_result($datores,1); 


       $queryenlace="SELECT nom_responsable FROM cat_area WHERE  cve_area='$area' AND status='B'";
       $datoenlace=pg_query($queryenlace);
       $nenlace=pg_fetch_result($datoenlace,0);


            //    $pdf->SetXY(305,($c+2.74)*27);
            //               $pdf->MultiCell(50,3.49,$observac1,0,'J');


        $this->SetFont('Arial','B',11);
       
        //$this->Line(40,200,90,200);
 $this->Line(25,200,110,200);
        $this->SetXY(18,180);
        $this->Cell(70,10,'ELABORÓ',2,1,'C');
        $this->SetXY(18,200);
        $this->MultiCell(100,3,$responsable,0,'C');
        $this->SetXY(18,204);
        $this->MultiCell(100,3,'UNIDAD DE ARCHIVO EN TRÁMITE',0,'C');
      

        //$this->SetXY(207,260);
        $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,'L.I. CECILIA GAYOSSO ESPAÑA',2,1,'C');
        $this->SetXY(127,201);
        $this->Cell(127,10,'ENLACE NORMATIVO',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);
$area=$_POST['narea'];
$secc=$_POST['sseccion'];
$serie=$_POST['serie'];
$ano=$_POST['nano']; //año que se debe reportar
$anotr=$ano+1; //año en que se elabora el documento, es un año posterior 
$anop='2007';
$concatcod="DGBEH"."-"."$area*"."$serie/";

$tiempovigencia=$anotr-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';

 //$querydom="SELECT domicilio FROM cat_area,cat_direccion WHERE 
 //      cat_area.cve_direccion=cat_direccion.cve_direccion and cat_area.cve_area='$area'";
 //      $datodom=pg_query($querydom);
 //      $ubica=pg_fetch_result($datodom,0);
       

pg_connect("dbname='inv_expedientes' port='5432' user='telerin' password='aplicaciones'") or die ("Error en la conexion"); 
   
   $borrareg="delete from tmp_inventario";
   $borrareg1=pg_query($borrareg);

   $querybhomol="select at,homologa from cat_series1 where homologa=$serie and cve_cat like'%$ano'";
   $datohom=pg_query($querybhomol);     
   $at=pg_fetch_result($datohom,0);    
   $homologas=pg_fetch_result($datohom,1);


   for($t=0;$t<$tiempovigencia;$t++){    
      $anop=$anop+1;    

      $anov=$ano-$anop;  

      if($anov<$at or $at=='Ø'){
        $querybdts="select lugar,codigo,asunto,fecha_inicio,fecha_final,observacion,substring(fecha_inicio,7,4) as anoi,substring(fecha_final,7,4) as anof,ano,
        cve_serie,no_tomo,no_caja,lugar1,baja_por_error,ubicacion from datos_generales where homologa='$homologas' and cve_area='$area' and ano='$anop' AND ((baja_por_error is null) OR (baja_por_error<>'*')) order by ANO,cve_serie,codigo";

        $datoat=pg_query($querybdts);
        $filadat=pg_num_rows($datoat);
         
        for($i=0;$i< $filadat;$i++){ 

              $lugar=pg_fetch_result($datoat,$i,0); 
              $codigor=pg_fetch_result($datoat,$i,1);    
              $asunto=pg_fetch_result($datoat,$i,2);
              $fechai=pg_fetch_result($datoat,$i,3);
              $fechaf=pg_fetch_result($datoat,$i,4);
              $observac=pg_fetch_result($datoat,$i,5); 
              $anoin=pg_fetch_result($datoat,$i,6);
              $anofi=pg_fetch_result($datoat,$i,7);              
              $anoexp=pg_fetch_result($datoat,$i,8);
              $cveser=pg_fetch_result($datoat,$i,9);
              $notomo=pg_fetch_result($datoat,$i,10);
              $nocaja=pg_fetch_result($datoat,$i,11);    
              $lugar1=pg_fetch_result($datoat,$i,12);
                    
             // $numtomo=pg_fetch_result($datoat,$i,13);
              $baja=pg_fetch_result($datoat,$i,13);
              $cvubic=pg_fetch_result($datoat,$i,14);  
            

               $concatcod="DGBEH-"."$area*"."$cveser/";              

              if(($lugar=='Caja') or ($lugar=='CD')){
                 $ubicatp=$nocaja;
              }else{
                $ubicatp="$lugar"." "."$lugar1"." "."$nocaja";  
              }

              $valor1='/';

              $posicion1=strpos($codigor,$valor1);
              $numeromax=substr($codigor,($posicion1+1),4);   
              $bar = (int) $numeromax;

              if($fechai=='.' or $fechai=='' or $fechai=='__/__/____' ){ //IF 4
                 $finicio=$anoexp;            
              }else{
                 $finicio=$fechai;
              } //FIN DE IF 4

              if($fechaf=='.' or $fechaf=='' or $fechaf=='__/__/____'  OR $anofi>$ano){ //IF 4
                 $ffinal=$ano;            
              }else{
                 $ffinal=$fechaf;
              } //FIN DE IF 42
              
              $guardainv="INSERT INTO tmp_inventario (ubicacion_fisica,codigo,asunto,fecha_i,fecha_f,no,ano,cve_serie,observaciones,baja,cve_ubicacion,lugar) values ('$ubicatp','$codigor',
                        '$asunto','$finicio','$ffinal',$bar,'$anoexp','$cveser','$observac','$baja','$cvubic','$lugar')";
             //  echo"$guardainv";
              $guarda=pg_query($guardainv);
              if($notomo!=Null){
                $gtomo=pg_query("UPDATE tmp_inventario  SET tomo=$notomo WHERE codigo='$codigor'");
                $gtomo1=pg_query("UPDATE tmp_inventario  SET tomo1='*' WHERE codigo='$codigor'");
             }        
         }
      } 
    }  


$querymexp1="select max(no) as  maximo,ano from tmp_inventario group by ano order by ano"; 
             $datomax1=pg_query($querymexp1);
             $filamax1=pg_num_rows($datomax1);
             $max1=pg_fetch_result($datomax1,0,0);
             $total1=$total1+$max1;


             $querymexp="select max(no) as  maximo,ano from tmp_inventario group by ano order by ano"; 
             $datomax=pg_query($querymexp);
             $filamax=pg_num_rows($datomax);
 

              for($m=0;$m<$filamax;$m++){ //FOR QUE DETERMINA LA CANTIDAD DE REGISTROS POR AÑO
                  $max=pg_fetch_result($datomax,$m,0);
                  $anocomp=pg_fetch_result($datomax,$m,1);
                  $total=$total+$max;
                  $contador=0;


                  for($d=0;$d<$max;$d++){ //INICIO DE FOR QUE BUSCA LOS DATOS EN LA TABLA TEMPORAL TMP_INVENTARIO
                     
                     $contador++;

                   
                  switch($contador){
                    case ($contador<='9'):
                      $b1="000"."$contador";
                    break;
                    case ($contador>='10' AND $contador<='99' ):
                      $b1="00"."$contador";
                    break;
                    case ($contador>='100'):
                      $b1="0"."$contador";
                    break;
                    case ($contador>='1000'):
                      $b1=$contador;
                    break;
                  }


                    $concat="$concatcod"."$b1"."-$anocomp";

                    $hresta= $total1-$contador; 

                     $querybdatos="select ubicacion_fisica,codigo,asunto,fecha_i,fecha_f,observaciones,tomo,tomo1,descripcion_ubic,domicilio,lugar from tmp_inventario,ubicacion where ano='$anocomp' and no='$contador' and ubicacion.cve_ubicacion=tmp_inventario.cve_ubicacion order by ano,no,codigo"; 
                     $datobdatos=pg_query($querybdatos);
                     $filabdatos=pg_num_rows($datobdatos);
//echo"$querybdatos";
                     //for($t=0;$t<$filabdatos;$t++){ //FOR QUE DETERMINA LA CANTIDAD DE REGISTROS POR AÑO

                        $ubicatp1=pg_fetch_result($datobdatos,0,0);
                        $codigor1=pg_fetch_result($datobdatos,0,1);
                        $asunto1=pg_fetch_result($datobdatos,0,2);
                        $fechai1=pg_fetch_result($datobdatos,0,3);
                        $fechaf1=pg_fetch_result($datobdatos,0,4);
                        $observac1=pg_fetch_result($datobdatos,0,5);    
                        $tomo=pg_fetch_result($datobdatos,0,6);  
                        $tomo1=pg_fetch_result($datobdatos,0,7);        
                        $desubicfisica=pg_fetch_result($datobdatos,0,8);
                        $domicilio=pg_fetch_result($datobdatos,0,9); 
                        $lug=pg_fetch_result($datobdatos,0,10); 
                        $longitud=strlen($asunto1);


                        if($tomo1!='*'){ //IF PARA DETERMINAR SI HAY TOMOS
                          

                            $pdf->SetFont('Arial','',11);
                           $pdf->SetXY(23,($c+2.74)*26);
                           $pdf->MultiCell(55,3.49,$domicilio,0,'J');     
                           $pdf->Rect(23,($c+2.73)*25,55,25,'');
                        if($lug!='Caja'){

                           $pdf->SetXY(78,($c+2.74)*27);
                           $pdf->MultiCell(55,3.49,"$desubicfisica"." "."en"." "."$ubicatp1",0,'L');
                           $pdf->Rect(78,($c+2.73)*25,55,25,'');
                        }else{
                            $pdf->SetXY(78,($c+2.74)*27);
                           $pdf->MultiCell(55,3.49,"$desubicfisica"." "."en"." "."$ubicatp1",0,'L');
                           $pdf->Rect(78,($c+2.73)*25,55,25,'');

                        }
                           //$pdf->SetXY(78,($c+2.74)*29);
                           //$pdf->MultiCell(50,3.49,'',0,'J');
                           //$pdf->Rect(78,($c+2.73)*25,55,25,'');
                        IF($codigor1==''){                        

                           $pdf->SetXY(133,($c+2.74)*25);
                           $pdf->MultiCell(67,3.49,"El expediente no $concat no se creó",0,'J');
                           $pdf->Rect(133,($c+2.73)*25,67,25,'');
                        }ELSE{
                           $pdf->SetXY(133,($c+2.74)*27);
                           $pdf->MultiCell(67,3.49,$codigor1,0,'J');
                           $pdf->Rect(133,($c+2.73)*25,67,25,'');

                        }
            
                           if($longitud<=90){            

                           $pdf->SetXY(200,($c+2.74)*27);
                           $pdf->MultiCell(62,3.49,$asunto1,0,'J');
                          // $pdf->Rect(200,($c+2.73)*25,62,25,'');
                        }
                        if($longitud>=91 AND $longitud<=130){

                           $pdf->SetXY(200,($c+2.74)*26);
                           $pdf->MultiCell(62,3.49,$asunto1,0,'J');
                           
                        }
                        if($longitud>=131){
                           $pdf->SetXY(200,($c+2.74)*25);
                           $pdf->MultiCell(62,3.49,$asunto1,0,'J');

                        }
                           $pdf->Rect(200,($c+2.73)*25,62,25,'');
               
                           $pdf->SetXY(262,($c+2.74)*28);
                           $pdf->MultiCell(22,3.49,$fechai1,0,'C');
                           $pdf->Rect(262,($c+2.73)*25,22,25,'');
            
                           $pdf->SetXY(284,($c+2.74)*28);
                           $pdf->MultiCell(21.5,3.49,$fechaf1,0,'C');
                           $pdf->Rect(284,($c+2.73)*25,21,25,'');
                
                           $pdf->SetFont('Arial','',8);

                           $pdf->SetXY(305,($c+2.74)*27);
                           $pdf->MultiCell(50,3.49,'',0,'J');
                           $pdf->Rect(305,($c+2.73)*25,49,25,'');  
                                
                              if($total1 >=4){ //IF 5
                                  $resto = $total1 % 4;     
                                  $resf=$total1-1;
                                  $indice++;
                               }   // FIN DE IF 5    
                               $c++;
                               IF($resto==0){ //IF 6
                                
                        //   if($hresta>=4){               
                             if ($c>=4){ // IF 9
	                           $c=0;   
                                  $pdf->AddPage();
                               } // FIN DE IF 9
                        //}  
                        //     if($hresta==4){               
                        //           if ($c>=4){ // IF 9
	                 //              $c=0;   
                        //              $pdf->AddPage();
                        //          } // FIN DE IF 9
                        //    }
                                }else{
                                                                 
                        //       if($hresta>=4){               
                        //        if ($c>=4){ // IF 9
	                 //             $c=0;   
                        //              $pdf->AddPage();
                        //          } // FIN DE IF 9
                        //     }
                        //   if($hresta==4){               
                                 if ($c>=4){ // IF 9
	                            $c=0;   
                                    $pdf->AddPage();
                              } // FIN DE IF 9  
                       //      }
                                    
                              
                               }// FIN DE IF 6

                      }else{//EN CASO DE SI HABER TOMOS 
                            $querybdatos1="select ubicacion_fisica,codigo,asunto,fecha_i,fecha_f,observaciones,tomo,descripcion_ubic,domicilio from tmp_inventario,ubicacion  where ano='$anocomp' and no='$contador' and ubicacion.cve_ubicacion=tmp_inventario.cve_ubicacion order by ano,no,tomo,codigo"; 
                            $datobdatos1=pg_query($querybdatos1);
                            $filabdatos1=pg_num_rows($datobdatos1);
                            //echo"$querybdatos1";
                            for($t=0;$t<$filabdatos1;$t++){ //FOR QUE DETERMINA LA CANTIDAD DE TOMOS

                               $ubicatp1=pg_fetch_result($datobdatos1,$t,0);
                               $codigor1=pg_fetch_result($datobdatos1,$t,1);
                               $asunto1=pg_fetch_result($datobdatos1,$t,2);
                               $fechai1=pg_fetch_result($datobdatos1,$t,3);
                               $fechaf1=pg_fetch_result($datobdatos1,$t,4);
                               $observac1=pg_fetch_result($datobdatos1,$t,5); 
                               $desubicfisica=pg_fetch_result($datobdatos1,$t,7); 
                               $domicilio=pg_fetch_result($datobdatos1,$t,8); 

                               $pdf->SetFont('Arial','',11);
                           $pdf->SetXY(23,($c+2.74)*26);
                           $pdf->MultiCell(55,3.49,$domicilio,0,'J'); 
                           $pdf->Rect(23,($c+2.73)*25,55,25,'');


                           $pdf->SetXY(78,($c+2.74)*27);
                           $pdf->MultiCell(55,3.49,"$desubicfisica"." "."en"." "."la"." "."$ubicatp1",0,'L');

                           $pdf->Rect(78,($c+2.73)*25,55,25,'');
            
                           //$pdf->SetXY(80,($c+2.74)*30);
                           //$pdf->MultiCell(50,3.49,$ubicatp1,0,'J');
                           //$pdf->Rect(78,($c+2.73)*25,55,25,'');

                        IF($codigor1==''){                        

                           $pdf->SetXY(133,($c+2.74)*25);
                           $pdf->MultiCell(67,3.49,"El expediente no $concat no se creó",0,'J');
                           $pdf->Rect(133,($c+2.73)*25,67,25,'');
                        }ELSE{
                           $pdf->SetXY(133,($c+2.74)*27);
                           $pdf->MultiCell(67,3.49,$codigor1,0,'J');
                           $pdf->Rect(133,($c+2.73)*25,67,25,'');

                        }
            
                           if($longitud<=90){            

                           $pdf->SetXY(200,($c+2.74)*27);
                           $pdf->MultiCell(62,3.49,$asunto1,0,'J');
                          // $pdf->Rect(200,($c+2.73)*25,62,25,'');
                        }
                        if($longitud>=91 AND $longitud<=130){

                           $pdf->SetXY(200,($c+2.74)*26);
                           $pdf->MultiCell(62,3.49,$asunto1,0,'J');
                           
                        }
                        if($longitud>=131){
                           $pdf->SetXY(200,($c+2.74)*25);
                           $pdf->MultiCell(62,3.49,$asunto1,0,'J');

                        }
                           $pdf->Rect(200,($c+2.73)*25,62,25,'');
               
                           $pdf->SetXY(262,($c+2.74)*28);
                           $pdf->MultiCell(22,3.49,$fechai1,0,'C');
                           $pdf->Rect(262,($c+2.73)*25,22,25,'');
            
                           $pdf->SetXY(284,($c+2.74)*28);
                           $pdf->MultiCell(21.5,3.49,$fechaf1,0,'C');
                           $pdf->Rect(284,($c+2.73)*25,21,25,'');
                
                           $pdf->SetFont('Arial','',7.5);

                           $pdf->SetXY(305,($c+2.74)*25);
                           $pdf->MultiCell(50,3.49,'',0,'J');
                           $pdf->Rect(305,($c+2.73)*25,49,25,'');  
                                
                               if($total1 >=4){ //IF 5
                                  $resto = $total1 % 4;     
                                  $resf=$total1-1;
                                  $indice++;
                               }   // FIN DE IF 5    
                               $c++;
                               IF($resto==0){ //IF 6
                                
                              //  if($hresta>=4){               
                                if ($c>=4){ // IF 9
	                             $c=0;   
                                    $pdf->AddPage();
                                 } // FIN DE IF 9   
                              //   }
                              //   if($hresta==4){               
                              //     if ($c>=4){ // IF 9
	                       //       $c=0;   
                              //        $pdf->AddPage();
                              //    } // FIN DE IF 9 
                              //   }

                                }else{
                              //   if($hresta>=4){               
                              //     if ($c>=4){ // IF 9
	                       //        $c=0;   
                              //        $pdf->AddPage();
                              //     } // FIN DE IF 9
                              //  }
                              //  if($hresta==4){               
                                 if ($c>=4){ // IF 9
	                             $c=0;   
                                    $pdf->AddPage();
                                 } // FIN DE IF 9
                              //  }

                               }// FIN DE IF 6 
                            }//FIN DEL FOR QUE DETERMINA LA CANTIDAD DE TOMOS
                        }  //FIN DE SI HAY TOMOS
             }//FIN DE FOR QUE BUSCA LOS DATOS EN LA TABLA TEMPORAL TMP_INVENTARIO
       //}//FIN DEL FOR QUE DETERMINA LA CANTIDAD DE REGISTROS POR AÑO 
      }
           

        $querybtot="select count(codigo) as total from tmp_inventario  ";     
         
         $datotot=pg_query($querybtot);
         $dtotal=pg_fetch_result($datotot,0,0); 
           
          $pdf->SetFont('Arial','B',11);      
          $pdf->SetFillColor(200,200,200);
          $pdf->Rect(78,($c+2.73)*25,67,10,'FD');
          $pdf->SetXY(100,($c+2.7)*26);
          $pdf->MultiCell(40,3.49,'TOTAL',0,'','j');
         
          $pdf->SetFillColor(200,200,200);
          $pdf->Rect(133,($c+2.73)*25,67,10,'FD');
          $pdf->SetXY(160,($c+2.7)*26);
          $pdf->MultiCell(60,3.49,$dtotal,'','j');
    
$pdf->Output();
?>