/* 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 */ // setcookie ("codcliente",$codcli,time()+3600); ?>
| Código de proveedor: | echo $lafila["codproveedor"]; ?> | Nombre: | echo $lafila["nombre"]; ?> |
| CIF/NIF: | echo $lafila["nif"]; ?> | ||
| Dirección: | echo $lafila["direccion"]; ?> | $prov=$lafila["codprovincia"]; $consulta0 = "Select * from provincias where codprovincia='$prov'"; $resultado0 = mysql_query($consulta0, $conexion); $lafila0=mysql_fetch_array($resultado0); ?>echo $lafila["cp"]; ?>- echo $lafila["localidad"]; ?>- echo $lafila0["denprovincia"]; ?> | |
| Código de albarán | echo $codigoalb; ?> | Fecha albarán | echo $fecha; ?> | Tipo de IVA | echo $iva0; ?>% |
if ($ini=="1") {
if (!empty($codigo)) {
$familia = substr($codigo,0,2);
$subfamilia = substr($codigo,2,2);
$codigoarticulo = substr($codigo,4,2);
$consulta2 = "select * from articulos where codfamilia='$familia' and codsubfamilia='$subfamilia' and codigo='$codigoarticulo'";
$resultado2 = mysql_query($consulta2, $conexion);
$filas=mysql_num_rows($resultado2);
$mal=0;
if ($filas==0) { ?>
if ($ini2==1) { ?>
print "Error, código de artículo incorrecto"; ?>
} ?>
}
if ($filas>0) {
$lafila2=mysql_fetch_array($resultado2);
if ((!preg_match("/^[0-9]*(.[0-9]{0,4})?$/", $costo)) or ($costo==0)) { ?>
$mensajeerror="Error, precio de costo incorrecto.
"; $mal=1;?>
}
if ((!preg_match("/^[0-9]*(.[0-9]{0,4})?$/", $cantidad)) or ($cantidad==0)) {
$mensajeerror=$mensajeerror. "Error, cantidad incorrecta.
"; $mal=1;
}
if ((!preg_match("/^[0-9]*(.[0-9]{0,4})?$/", $dcto))) {
$mensajeerror=$mensajeerror. "Error, descuento incorrecto.
"; $mal=1;
} ?>
print $mensajeerror; ?>
if ($mal==0) {
$cantidad = str_replace(",",".",$cantidad);
$costo = str_replace(",",".",$costo);
$costo=sprintf("%01.2f",$costo);
$dcto = str_replace(",",".",$dcto);
$dcto=sprintf("%01.2f",$dcto);
$dcto0=$dcto/100;
$costo2=$costo-($costo*$dcto0);
$importe=$costo*$cantidad;
$dcto0=$importe*$dcto0;
$importe=$importe-$dcto0;
$importe=sprintf("%01.2f",$importe);
$descrip=$lafila2["descripcion"];
$consulta1 = "INSERT INTO `albalineaptmp` ( `codalbaran` , `codfamilia` , `codsubfamilia` , `codigo` , `cantidad` , `precio` , `importe` , `dcto` )
VALUES ('$maxcodalba', '$familia' , '$subfamilia' , '$codigoarticulo' , '$cantidad' , '$costo' , '$importe' , '$dcto' )";
$resultado1 = mysql_query($consulta1, $conexion);
$codid=$lafila2["id"];
$consulta110="select * from artprotmp where idproveedor='$codcli' and idarticulo='$codid' and codalb='$codigoalb'";
$resultado110 = mysql_query($consulta110, $conexion);
$filas110=mysql_num_rows($resultado110);
if ($filas110>0) {
$consulta11 = "UPDATE `artprotmp` SET `precio` = '$costo2' WHERE `idproveedor` = '$codcli' and `idarticulo`='$codid' and codalb='$codigoalb'" ;
$resultado11 = mysql_query($consulta11, $conexion);
} else {
$consulta11 = "INSERT INTO `artprotmp` ( `idarticulo` , `idproveedor` , `codalb` , `precio` )
VALUES ('$codid', '$codcli', '$codigoalb' , '$costo2')";
$resultado11 = mysql_query($consulta11, $conexion);
}
} } }
$consulta5 = "select * from albalineaptmp where codalbaran='$maxcodalba' order by numlinea";
$resultado5 = mysql_query($consulta5, $conexion);
?>