0) {
if ($x == 1) {$AMenu1 ="Si";}
if ($x == 2) {$AMenu2 ="Si";}
if ($x == 3) {$AMenu3 ="Si";}
if ($x == 4) {$AMenu4 ="Si";}
if ($x == 5) {$AMenu5 ="Si";}
}// Fin If $NumFilasS >0
$x++;
}// Fin While $x <=5
$Seg ="";
If ($AMenu1 =="Si") {
$Seg ="Si";
echo '';}
If ($AMenu2 =="Si") {
$Seg ="Si";
$SegOC ="Si";
echo '';}
If ($AMenu3 =="Si") {
$Seg ="Si";
echo '';}
If ($AMenu4 =="Si") {
$Seg ="Si";
echo '';}
If ($AMenu5 =="Si") {
$Seg ="Si";
echo '';}
echo '';
echo '
';
echo '
';
?>
No Hay Conexion");
// Seleccion Base de Datos
mysql_select_db("CLLTDB") or die("No Seleeciono Base de Datos
");
return $Conectdb;
} // Fin Acceso a Base de Datos
// ??????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????
Function GenOC($Conectdb) {
$SqlInst = "SELECT * From reg_ordencompracab WHERE Automatica ='Si' And Estado_Orden = '0'";
$Sql = mysql_query($SqlInst,$Conectdb);
$NumFilas = mysql_num_rows($Sql);
If ($NumFilas ==0) {
// Obtiene Productos con Punto de Reorden
$SqlInst = "SELECT * From cat_materiales WHERE Estado_material = '0' And Punto_Reorden >'0' And Existencia < Punto_Reorden";
$Sql = mysql_query($SqlInst,$Conectdb);
$NumFilas = mysql_num_rows($Sql);
If ($NumFilas >0) {
$Analisis ="Si";
}// Fib IF $NumFilas >0
}// Fib IF $NumFilas >0
return $Analisis;
}// Fin Function
// ??????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????
Function OCAutomatica($Conectdb) {
$x =0;
// Veifica Ordenes Automaticas Abiertas
$SqlInst = "SELECT * From reg_ordencompracab WHERE Automatica ='Si' And Estado_Orden = '0'";
$Sql = mysql_query($SqlInst,$Conectdb);
$NumFilas = mysql_num_rows($Sql);
If ($NumFilas ==0) {
// Obtiene NUmero de Orden de Compra
$SqlInst1 = "SELECT * From tbl_parametros WHERE Parametro = 'Folios' And ID = 'OC'";
$Sql1 = mysql_query($SqlInst1,$Conectdb);
$NumFilas1 = mysql_num_rows($Sql1);
if ($NumFilas1 >0 ) {
$array_seleccion1 = mysql_fetch_array($Sql1);
$Num_Orden = $array_seleccion1[Valor1] + 1;
$SqlInst1 = "update tbl_parametros Set Valor1 = '$Num_Orden' WHERE Parametro = 'Folios' And ID = 'OC'";
$Sql1 = mysql_query($SqlInst1,$Conectdb);
} // Fin $NumFilas1 >0
// Obtiene Productos con Punto de Reorden
$SqlInst = "SELECT * From cat_materiales WHERE Estado_material = '0' And Punto_Reorden >'0' And Existencia < Punto_Reorden";
$Sql = mysql_query($SqlInst,$Conectdb);
$NumFilas = mysql_num_rows($Sql);
If ($NumFilas >0) {
// Loop Productos Metariales
while ($array_seleccion = mysql_fetch_array($Sql)) {
$Reorden = $array_seleccion[Punto_Reorden] - $array_seleccion[Existencia];
if ($Reorden <=0) {$Reorden =1;}
$SqlInstA = "INSERT INTO reg_ordencompradet (Num_Orden, Tipo_Producto, Clave_Producto, Cantidad, Estado_Partida)
VALUES ('$Num_Orden', 'Material', '$array_seleccion[Material]', '$Reorden', '0')" ;
$SqlA = mysql_query($SqlInstA,$Conectdb);
$x++;
}// Fin While
}//Fin IF $NumFilas >0
// Crea Cabecero
if ($x >0) {
$Fecha = date("Y-m-d");
$SqlInstA = "INSERT INTO reg_ordencompracab (Num_Orden, Concepto, Fecha_Requisicion, Automatica, Estado_Orden)
VALUES ('$Num_Orden', 'Orden De Compra Automatica', '$Fecha', 'Si', '0')" ;
$SqlA = mysql_query($SqlInstA,$Conectdb);
}
}//Fin IF $NumFilas >0
}//Fin Function
?>
