 |

Acceso a Contenidos de Pago
|
print("
|
El informe que has solicitado está incluido en nuestros contenidos de pago y sólo es accesible para los clientes de nuestras
Cuentas Corporativas.
Si ya eres cliente, introduce tu identificador y tu clave de acceso en el cajetín de la izquierda.
Si no eres cliente y estás interesado en nuestros informes, puedes solicitar información sobre las condiciones de contratación escribiendo a la dirección comercial@baquia.com, o llamando a los teléfonos
91 343 00 64 (para llamadas desde fuera de España, 34 91 343 00 64).
|
$GestorBD = new BaseDatos;
$longitud_url = strpos ($url, "html");
$url_ok = str_replace ("//","/",$url);
$url_sin_com = substr ($url_ok,4,$longitud_url+5);
$url_sin_com_print = substr ($url_ok,4,$longitud_url-11);
$url_sin_com_print = $url_sin_com_print . '.html';
$GestorBD = new BaseDatos;
$SQL = "SELECT ID, NOMBRE, FECHA FROM OBJETO WHERE LOCALIZACION = '$url_sin_com_print'";
$GestorBD->EjecutaConsulta ($SQL, NULL, false);
$GestorBD->Avanza_Cursor ();
$idObjprint = $GestorBD->Valor_Consulta('ID');
$nombreprint = $GestorBD->Valor_Consulta('NOMBRE');
$fechaprint = $GestorBD->Valor_Consulta('FECHA');
$SQL = "SELECT ID, NOMBRE, FECHA FROM OBJETO WHERE LOCALIZACION LIKE '$url_sin_com'";
$GestorBD->EjecutaConsulta ($SQL, NULL, false);
$GestorBD->Avanza_Cursor ();
$idobj = $GestorBD->Valor_Consulta('ID');
$nombre = $GestorBD->Valor_Consulta('NOMBRE');
$fecha = $GestorBD->Valor_Consulta('FECHA');
if ( $idObjprint )
{
$idobj = $idObjprint;
$nombre = $nombreprint;
$fecha = $fechaprint;
}
$GestorBD = new BaseDatos;
$SQL = "SELECT VALOR FROM ATRIBUTO WHERE OBJETO = '$idobj' AND TIPO_ATRIBUTO = 'resumen'";
$GestorBD->EjecutaConsulta ($SQL, NULL, false);
$GestorBD->Avanza_Cursor ();
$resumen = $GestorBD->Valor_Consulta('VALOR');
$resumen = str_replace ("/___line___/","",$resumen);
$GestorBD = new BaseDatos;
$SQL = "SELECT EMAIL, NOMBRE FROM AUTOR WHERE ID = (SELECT AUTOR FROM FIRMADO_POR WHERE OBJETO = '$idobj')";
$GestorBD->EjecutaConsulta ($SQL, NULL, false);
$GestorBD->Avanza_Cursor ();
$Email_Autor = $GestorBD->Valor_Consulta('EMAIL');
$Autor = $GestorBD->Valor_Consulta('NOMBRE');
if ( $idObjprint )
{?>
El informe que quieres imprimir es:
}
else
{?>
El informe que has solicitado es:
}?>
| =$nombre?> |
=$resumen?>
Por =$Autor?>
=$fecha?> |
|  |
|
|
|  |
 |