<?php
/*
$_GET['nombre']='abrir2012';
$extension = ".txt";
$nombre_archivo = $_GET['nombre'].$extension;
$carpeta_destino = dirname(__FILE__);
$archivo = $carpeta_destino ."/".$nombre_archivo;
$f = fopen($archivo,"w");
fputs($f,"");
fclose($f);
*/
////


include("../bd/sql_variables.php");
$db_conexion= mysql_connect("$sql_host", "$sql_usuario", "$sql_pass") or die(header ("No Disponible Servidor de Base de Datos"));
mysql_select_db("$sql_db");


//$nombre = $_POST["nombre"]; 
$anno= $_GET['anno'];
$mes=$_GET['mes'];
$idtp=$_GET['idtp'];
$idj=$_GET['idj'];
$ids=$_GET['ids'];


//$anno='2012';
//$mes='4';
//$idtp='1';
//$idj='1';
//$ids='1';

//dependencia  del personal

//armando grupo de servicios y sus dependencias
$sqlserv="select j_id as codj, s_id as cods, s_abrev as nom from tb_servicio where j_id='$idj' and s_id='$ids'";
$resultserv = mysql_query($sqlserv);
while ($rows= mysql_fetch_array($resultserv)){
$nomserv =$rows['nom'];
}
if($nomserv==''){
$sqldepa="select j_id as codj, 0 as cods ,j_abrev as nom from tb_jefatura where j_id='$idj'";
$resultdepa = mysql_query($sqldepa);
while ($rowj= mysql_fetch_array($resultdepa)){
$nomserv =$rowj['nom'];
}
}

//funcion de descarga

function DescargarArchivo($fichero){
//echo $fichero."<br>";
$basefichero = basename($fichero);

header( "Content-Type: application/octet-stream");

header( "Content-Length: ".filesize($fichero));

header( "Content-Disposition:attachment;filename=$basefichero");
readfile($fichero);
}

$sqlaskaprobado="SELECT * FROM tb_usuaprueba where uap_anno='$anno' and uap_mes='$mes' and s_id='$ids' and j_id='$idj' and uap_idtp='$idtp' and uap_tipoproc='1'";
$resultaprob = mysql_query($sqlaskaprobado);
	if(mysql_num_rows($resultaprob)!=0){
//codigo para conseguir el perfil del personal

$sqlaskss="SELECT tp_desc as descripcion, tp_codgh as codgh FROM tb_tipoperson where tp_id='$idtp'";
$resultss = mysql_query($sqlaskss);
	while ($rowss= mysql_fetch_array($resultss)){
		$servicio =  $rowss['codgh'];
	}
	
if(strlen($mes)<2){
	$mesn="0".$mes;
	}else{
	$mesn=$mes;
	}
	
//$nombre = "Salida";
//echo "Nombre: ".$nombre; 

$nombrea =  $servicio.$mesn.substr($anno,2,2);
$nombre_archivo = $nombrea.'.txt'; 
//$contenido = $nombre; 
unlink($nomserv."/".$nombre_archivo);
fopen($nomserv."/".$nombre_archivo, 'a+'); 

// Asegurarse primero de que el archivo existe y puede escribirse sobre el. 
if (is_writable($nomserv."/".$nombre_archivo)) { 

   // En nuestro ejemplo estamos abriendo $nombre_archivo en modo de adicion. 
   // El apuntador de archivo se encuentra al final del archivo, asi que 
   // alli es donde ira $contenido cuando llamemos fwrite(). 
   if (!$gestor = fopen($nomserv."/".$nombre_archivo, 'a')) { 
         echo "No se puede abrir el archivo ($nombre_archivo)"; 
         exit; 
   } 
	
	
	//listado del personal programado del mes
	$sqlask = "select a.ug_id as cod, a.ua_dni as dni, CONCAT(a.ua_apepat,' ',a.ua_apemat,' ',a.ua_nom) as nombre, ";
	$sqlask = $sqlask." b.ut_idserva as idsa, a.ua_numcoleg as codcol from tb_usutrab b  inner join tb_usuasist a on a.ug_id= b.ug_id where b.j_id='$idj'";
	$sqlask = $sqlask." and b.tp_id='$idtp' and b.ut_idserva='$ids' and b.uap_anno='$anno' and b.uap_mes ='$mes' order by nombre";
	$resultper1 = mysql_query($sqlask);
	while ($row= mysql_fetch_array($resultper1)){
	$cod =  $row['cod'];
	$dni =  $row['dni'];
	$nombre =  $row['nombre'];
	$colegiatura =  $row['codcol'];
	//echo $colegiatura."<br>";
	//pregunta por el area
	
	//sumando datos de la consulta de la programacion
	//consulta si es enfermera
	if($idtp=='1'){
	$sqlhorario = "SELECT a.hp_dia as dia,(select actenf from tb_area where ga_id=a.ga_id and a_id= a.a_id) as activ, (select subactenf from tb_area where ga_id=a.ga_id and a_id= a.a_id) as subactiv, (select areagh from tb_area where ga_id=a.ga_id and a_id= a.a_id) as ubica, (select h_id from tb_horario where h_id=a.h_id and h_horatipo=1) as hid, (select date_format(h_horaini,'%k:%i') from tb_horario where h_id=a.h_id and h_horatipo=1) as hini, ";
	$sqlhorario = $sqlhorario."(select date_format(h_horafin,'%k:%i') from tb_horario where h_id=a.h_id and h_horatipo=1) as hfin, (select h_horaturn from tb_horario where h_id=a.h_id and h_horatipo=1) as hturn, hp_tipohora as tphora  FROM tb_horaprog a where a.ug_id='$cod'"; 
	$sqlhorario = $sqlhorario."and a.uap_anno='$anno' and a.uap_mes='$mes' and a.j_id='$idj' and a.s_id='$ids' and a.tp_id='$idtp'";
	}elseif($idtp=='2'){
	$sqlhorario = "SELECT a.hp_dia as dia, (select acttec from tb_area where ga_id=a.ga_id and a_id= a.a_id) as activ, (select subacttec from tb_area where ga_id=a.ga_id and a_id= a.a_id) as subactiv, (select areagh from tb_area where ga_id=a.ga_id and a_id= a.a_id) as ubica, (select h_id from tb_horario where h_id=a.h_id and h_horatipo=1) as hid, (select date_format(h_horaini,'%k:%i') from tb_horario where h_id=a.h_id and h_horatipo=1) as hini, ";
	$sqlhorario = $sqlhorario."(select date_format(h_horafin,'%k:%i') from tb_horario where h_id=a.h_id and h_horatipo=1) as hfin, (select h_horaturn from tb_horario where h_id=a.h_id and h_horatipo=1) as hturn, hp_tipohora as tphora  FROM tb_horaprog a where a.ug_id='$cod'"; 
	$sqlhorario = $sqlhorario."and a.uap_anno='$anno' and a.uap_mes='$mes' and a.j_id='$idj' and a.s_id='$ids' and a.tp_id='$idtp'";
	}
	
	//echo $sqlhorario."<br>";
	$resulthr = mysql_query($sqlhorario);
	while ($rowh= mysql_fetch_array($resulthr)){
	$dia =  $rowh['dia'];
	$idh =  $rowh['hid'];
	$hini =  $rowh['hini'];
	$hfin =  $rowh['hfin'];
	$hturn =  $rowh['hturn'];
	$tphora =  $rowh['tphora'];
	$activ =  $rowh['activ'];
	$subactiv =  $rowh['subactiv'];
	$ubica =  $rowh['ubica'];
	if($activ<>''){
	//pregunta si es de noche
	if($hturn=='N'){
	//echo $hini."-".$hfin."<br>";
	if($hini == "19:00" && $hfin == "7:00"){
	$codgh1='G1';
	$hora1 = '19.0024.00';
	$codgh2='G2';
	$hora2 = ' 0.00 7.00';
	}
	if($hini == "19:30" && $hfin == "7:30"){
	$codgh1='Q1';
	$hora1 = '19.3024.00';
	$codgh2='Q2';
	$hora2 = ' 0.00 7.30';
	}
	
	if($hini == '20:00' && $hfin == '8:00'){
	$codgh1='UI';
	$hora1 = "20.0024.00";
	$codgh2='HE';
	$hora2 = " 0.00 8.00";
	}
	
	if($mes<10){
	$mesf="0".$mes;
	}
	if($dia<10){
	$diaf="0".$dia;
	}
   
   $fechacad= $anno.$mesf.$diaf;
    //$contenido = $servicio.$fechacad.$codgh1.$cod.$activ.$ubica.$hora1."0".$tphora."\t\t\t\t\t".$subactiv.$dni."H"."\t \t"."P".$nombre."\r\n"; 
	if($colegiatura<>''){
	    $ncoleg = $colegiatura;
		}else{
		$ncoleg = "\t";
		}
   //$contenido = $servicio.$fechacad.$codgh1.$ncoleg.$activ.$ubica.$hora1."0".$tphora."\t\t\t\t\t".$subactiv.$dni."H"."\t \t"."P".$nombre."\r\n"; 
   $contenido = $servicio.$fechacad.$codgh1.$ncoleg.$activ.$ubica.$hora1."0".$tphora."\t\t\t\t\t".$subactiv.$dni."H"."\t \t"."P"."\r\n";
   if (fwrite($gestor, $contenido) === FALSE) { 
      exit; 
   }
   $mesd = mktime( 0, 0, 0, $mes, 1, $anno ); 
   $numeroDeDias = intval(date("t",$mesd)); 
   //echo "numero de dias: ".$numeroDeDias;
   //$fechacad= $anno.$mesf.$diaf;
   if(($dia+1)>$numeroDeDias)
   {
   if($mes==12){
		$mesf2="01";
		$diaf2="01";
		$annof2=$anno+1;
   }else{
		$mesf2 = $mes + 1;
		$diaf2="01";
		$annof2=$anno;
   }
   }else{
   $diaf2= $dia + 1;
   $mesf2= $mes;
   $annof2=$anno;
   }
   if(strlen($mesf2)<2){
	$mesf2="0".$mesf2;
	}
	if(strlen($diaf2)<2){
	$diaf2="0".$diaf2;
	}
   $fechacad2= $annof2.$mesf2.$diaf2;
   //$contenido = $servicio.$fechacad2.$codgh2.$cod.$activ.$ubica.$hora2."0".$tphora."\t\t\t\t\t".$subactiv.$dni."H"."\t\t"."P".$nombre."\r\n"; 
   if($colegiatura<>''){
	    $ncoleg = $colegiatura;
		}else{
		$ncoleg = "\t";
		}
    //$contenido = $servicio.$fechacad2.$codgh2.$ncoleg.$activ.$ubica.$hora2."0".$tphora."\t\t\t\t\t".$subactiv.$dni."H"."\t\t"."P".$nombre."\r\n";
	$contenido = $servicio.$fechacad2.$codgh2.$ncoleg.$activ.$ubica.$hora2."0".$tphora."\t\t\t\t\t".$subactiv.$dni."H"."\t\t"."P"."\r\n";   
   if (fwrite($gestor, $contenido) === FALSE) { 
      exit; 
   } 
   //echo $contenido."<br>";
   }else{
	
	$sqlaskidgh ="select h_codgh as codgh from tb_horario where h_id='$idh'";
	//echo $sqlaskidgh."<br>";
	$resultcodgh = mysql_query($sqlaskidgh);
	
	if(mysql_num_rows($resultcodgh)!=0){
	while ($row= mysql_fetch_array($resultcodgh)){
	$codhoragh = $row['codgh'];
	}
		
	if($mes<10){
	$mesf="0".$mes;
	}
	if($dia<10){
	$diaf="0".$dia;
	}
	 $fechacad= $anno.$mesf.$diaf;
     // Escribir $contenido a nuestro arcivo abierto. 
	  // $contenido = $servicio.$fechacad.$codhoragh.$cod.$activ.$ubica.str_replace(':','.',$hini).str_replace(':','.',$hfin)."0".$tphora."\t\t\t\t\t".$subactiv.$dni."H"."\t\t"."P".$nombre."\r\n"; 
	  if($colegiatura<>''){
	    $ncoleg = $colegiatura;
		}else{
		$ncoleg = "\t";
		}
     //$contenido = $servicio.$fechacad.$codhoragh.$ncoleg.$activ.$ubica.str_replace(':','.',$hini).str_replace(':','.',$hfin)."0".$tphora."\t\t\t\t\t".$subactiv.$dni."H"."\t\t"."P".$nombre."\r\n"; 
	 if(strlen($hini)<5){
	   $hini = " ".$hini;
	 }
	 if(strlen($hfin)<5){
	   $hfin = " ".$hfin;
	 }
	 $contenido = $servicio.$fechacad.$codhoragh.$ncoleg.$activ.$ubica.str_replace(':','.',$hini).str_replace(':','.',$hfin)."0".$tphora."\t\t\t\t\t".$subactiv.$dni."H"."\t\t"."P"."\r\n"; 
   }//termina de cargar los datos
   
	   if (fwrite($gestor, $contenido) === FALSE) { 
	       echo "No se puede escribir al archivo ($nombre_archivo)"; 
	       exit; 
	   } }
   }
   }}
   //echo "&Eacute;xito, se escribi&oacute; ($contenido) al archivo ($nombre_archivo)"; 
   fclose($gestor); 
	DescargarArchivo($nomserv."/".$nombre_archivo);
} 
//salta si no escribio el archivo
else { 
   echo "No se puede escribir sobre el archivo $nombre_archivo"; 
}
//si no hay programacion aprobada 
}else{ 
echo "<script type='text/javascript'>alert('PROGRAMACION AUN NO ESTA LISTA');window.close();</script>";
}
?> 

