
/*
This program is free software; you can redistribute it and/or modify
it under the terms of the GNU General Public License as published by
the Free Software Foundation; either version 2 of the License, or
(at your option) any later version.
This program is distributed in the hope that it will be useful,
but WITHOUT ANY WARRANTY; without even the implied warranty of
MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
GNU General Public License for more details.
You should have received a copy of the GNU General Public License
along with this program; if not, write to the Free Software
Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA
Autores: Pedro Obregón Mejías
Rubén D. Mancera Morán
Versión: 1.0
Fecha Liberación del código: 13/07/2004
Galopín para gnuLinEx 2004 -- Extremadura
*/
include ("conectar.php");
$consulta = "select * from artpro where idproveedor='$codcli'";
$query = mysql_query($consulta);
$total = mysql_num_rows($query);
if ($total==0)
{
$consulta = "DELETE FROM proveedores where codproveedor='$codcli'";
$resultado = mysql_query($consulta, $conexion);
//
//mostramos el mensaje de errores
//
$loguito="logomensaje.jpg";
$cabecera="proveedores.jpg";
$texto="Proveedor eliminado correctamente";
$actionimp="";
$namevar="";
$valuevar=$id;
$valueimp="";
$actionv="proveedoreslistado.php";
$valuev="Administración de proveedores";
include ("mensaje.php");
}
else
//no podemos eliminar el proveedor porque tiene aún artículos en la base de datos
{
//
//mostramos el mensaje de errores
//
$loguito="logomensaje.jpg";
$cabecera="proveedores.jpg";
$texto="No se puede eliminar el proveedor, porque existen artículos de dicho proveedor.";
$actionimp="";
$namevar="";
$valuevar=$id;
$valueimp="";
$actionv="proveedoreslistado.php";
$valuev="Administración de proveedores";
include ("mensaje.php");
};
?>