<?
/*****************************************************************************
** **
** Fichero: etiquetas-postales.php **
** Descripcion: Agrupa los scouts por familias para enviar correspon- **
** cia a los padres. **
** **
** Autor: Juan Manuel Garcia Molina <hide@address.com> **
** Creado: 16 de noviembre de 2001 **
** **
** Modificador: Juan Manuel Garcia Molina <hide@address.com> **
** Modificado: 16 de noviembre de 2001 **
** **
*****************************************************************************/
include ("valida_sesion.php");
// Titulo que va a tener la pagina
$titulo_pag = "Etiquetas postales";
// Incluimos la cabecera
include("cabecera.php");
?>
<?php
@include("modulo_bd.inc");
$link = BD_Conectar();
$query = "select count(DISTINCT(SCO_CODIGO)) AS NUM, UPPER(SCO_APELLIDO1) AS APE1, UPPER(SCO_APELLIDO2) AS APE2, UPPER(SCO_DIRECCION) AS DIRECCION, UPPER(SCO_CODPOSTAL) AS CP, UPPER(SCO_POBLACION) AS POBLAC, UPPER(SCO_PROVINCIA) AS PROVIN from SCOUT GROUP BY DIRECCION, CP, POBLAC, PROVIN, APE1, APE2 ORDER BY APE1, APE2, DIRECCION";
$result = BD_Consultar($query);
$mi_arc = fopen("/tmp/.etiquetas","w+");
while ($line = BD_ObtenerFila($result))
{
fwrite($mi_arc, "FAMILIA ".$line["APE1"]." ".$line["APE2"].":".$line["DIRECCION"].":".$line["CP"]." ".$line["POBLAC"]." (".$line["PROVIN"].")\n");
?>
<TABLE BORDER="1">
<TR>
<TD><?=$line["NUM"]?></TD>
<TD>FAMILIA <?=$line["APE1"]?> <?=$line["APE2"]?><BR><?=$line["DIRECCION"]?><BR><?=$line["CP"]?> <?=$line["POBLAC"]?> (<?=$line["PROVIN"]?>)</TD>
</TR>
</TABLE>
<?
}
BD_Desconectar($link);
?>
<?
// Incluimos el pie de pagina
include("pie.php");
?>