[papulo]

La libreria_web.php es un archivo mio donde voy poniendo funciones que uso a menudo, como acceso a la base de datos en firebird o cosas que surjan.

Código PHP:

<?
//******************************************************************************
// Funcion de conexion a al BD y consulta de $query
//******************************************************************************
function consulta_bd($query)
{
$connection = ibase_pconnect ('Dev1:d:/Una/Ruta/AlabasededatosDB.FDB', 'usuario', 'contraseña');
$sql = $query; //Insertamos la consulta que queremos realizar
$consulta = ibase_query($connection, $sql);
return $consulta;
}
//******************************************************************************
//Función de limpieza de la referencia
//******************************************************************************
function CleanUpSpaces($ref)
{
    for  ($i = 0;$i<=strlen($ref);$i++)
    {
        if
           ((((ord($ref[$i]))>=48) and ((ord($ref[$i]))<=57))
        or (((ord($ref[$i]))>=97) and ((ord($ref[$i]))<=122))
        or (((ord($ref[$i]))>=65) and ((ord($ref[$i]))<=90)))
             {
                $resul = $resul.$ref[$i];
             }
        else
             {

              switch ($ref[$i])
                    {
                    case "*": $resul == $resul."%";
                    case "?": $resul == $resul."_";
                    default:;
                    }
               }
     }

$ref_num2 = strtoupper($resul);

return $ref_num2;
}

//******************************************************************************
//TECH_INFO
//******************************************************************************
function TECH_INFO($ref_without_blanks,$id_sup)
{

if (($ref_without_blanks == '') or ($id_sup == ''))
    {
        echo "INCORRECT URL PARAMETERS";
    }
else
    {

    $query = "SELECT ti.ref_num, sp.supplier_name, tt.ref_type, tt.xml_tag, ti.svalue
              FROM technical_items tt, suppliers sp, technical_inf ti, main_reference mr
              WHERE tt.xml_tag <>''
              AND mr.ref_without_blanks='$ref_without_blanks'
              AND ti.ref_num=mr.ref_with_blanks
              AND ti.id_sup=$id_sup
              AND ti.tech_id=tt.tech_id
              AND ti.id_sup=sp.id_sup";

    $consulta = consulta_bd($query);

    $Ra = 0;
    $Rm = 0;
    $Rc = 0;
    
    echo "<br>&lt;TECH_INFO&gt;<br>";

    while ($fila = ibase_fetch_object ($consulta)) {
        if ($fila->REF_TYPE == M) {
            if ($Rm == 0) {
                echo "&lt;REF_NUM&gt;$fila->REF_NUM&lt;/REF_NUM&gt;<br>
                    &nbsp;&lt;SUPPLIER_NAME&gt;$fila->SUPPLIER_NAME&lt;/SUPPLIER_NAME&gt;<br>
                    &nbsp;&nbsp;&lt;REF_TYPE&gt;$fila->REF_TYPE&lt;/REF_TYPE&gt;<br>";
                $Rm++;
            }
            echo "&nbsp;&nbsp;&nbsp;&lt;$fila->XML_TAG&gt;$fila->SVALUE&lt;/$fila->XML_TAG&gt;<br>";
        }

        if ($fila->REF_TYPE == A) {
            if ($Ra == 0) {
                echo "&lt;REF_NUM&gt;$fila->REF_NUM&lt;/REF_NUM&gt;<br>
                    &nbsp;&lt;SUPPLIER_NAME&gt;$fila->SUPPLIER_NAME&lt;/SUPPLIER_NAME&gt;<br>
                    &nbsp;&nbsp;&lt;REF_TYPE&gt;$fila->REF_TYPE&lt;/REF_TYPE&gt;<br>";
                $Ra++;
            }
            echo "&nbsp;&nbsp;&nbsp;&lt;$fila->XML_TAG&gt;$fila->SVALUE&lt;/$fila->XML_TAG&gt;<br>";
        }

        if ($fila->REF_TYPE == C) {
            if ($Rc == 0) {
                echo "&lt;REF_NUM&gt;$fila->REF_NUM&lt;/REF_NUM&gt;<br>
                    &nbsp;&lt;SUPPLIER_NAME&gt;$fila->SUPPLIER_NAME&lt;/SUPPLIER_NAME&gt;<br>
                    &nbsp;&nbsp;&lt;REF_TYPE&gt;$fila->REF_TYPE&lt;/REF_TYPE&gt;<br>";
                $Rc++;
            }
            echo "&nbsp;&nbsp;&nbsp;&lt;$fila->XML_TAG&gt;$fila->SVALUE&lt;/$fila->XML_TAG&gt;<br>";
        }
    }
 echo "<br>&lt;/TECH_INFO&gt;<br>";
 }
}
//******************************************************************************
//SEARCH_REFS
//******************************************************************************
function SEARCH_REFS($ref_num)
{
if (($ref_num == ''))
    {
    echo "INCORRECT URL PARAMETERS";
    }
else
    {

    $query = "SELECT sp.supplier_name, mr.ref_with_blanks, mr.id_sup, mr.ref_type
              FROM suppliers sp, main_reference mr LEFT OUTER JOIN spare_items si ON mr.ref_type=si.ref_type
              AND mr.id_part_type=si.id_part_type LEFT OUTER JOIN lang l ON si.lang_id=l.lang_id
              WHERE ((mr.id_sup = sp.id_sup)
              AND (mr.ref_without_blanks like '$ref_num%')
              AND (sp.activated='Y'))
              AND mr.ref_type IN ('A','M','C')
              AND mr.id_part_type=0
              ORDER BY mr.ref_with_blanks";

    echo "<br>&lt;SEARCH_REF&gt;<br>";
    
    $consulta = consulta_bd($query);
    while ($fila = ibase_fetch_object ($consulta))
    {
    echo "<br>&lt;REF&gt;<br>
          &nbsp;&nbsp;&lt;REF_NUM&gt;$fila->REF_WITH_BLANKS&lt;REF_NUM&gt;<br>
          &nbsp;&nbsp;&nbsp;&lt;ID_SUP&gt;$fila->ID_SUP&lt;/ID_SUP&gt;<br>
          &nbsp;&nbsp;&nbsp;&lt;SUPPLIER_NAME&gt;$fila->SUPPLIER_NAME&lt;/SUPPLIER_NAME&gt;<br>
          &nbsp;&nbsp;&nbsp;&lt;REF_TYPE&gt;$fila->REF_TYPE&lt;/REF_TYPE&gt;<br>
          &lt;/REF&gt;<br>";
    }
    echo "<br>&lt;/SEARCH_REF&gt;<br>";
    }
}
?>

Esta es la última que estoy utilizando en estos momentos.