var HOY=new Date();
// Algunos formatos para fechas.
var NLDF="YY/M/D"; // para columnas en las queries INFORMIX
var baseHtml="";
dbAcl();
if (request.gofunc)
writeln(' ');
writeln('');
writeln('');
if (request.gofunc) {
writeln("');
}
if ( request.search1 || request.search2 || request.desde || request.hasta || request.f_orden) {
dbConnect();
if (!request.gofunc) {
if ( request.search1 || request.desde || request.hasta ) {
//Si se busca usando el texto de entrada
if (request.desde && request.hasta) {
var desde_fecha=DateFormat(request.desde,NLDF);
if ( desde_fecha.substring(0,1) == "-" )
redirect("alertpage.html?alert=3");
var hasta_fecha=DateFormat(request.hasta,NLDF);
if ( hasta_fecha.substring(0,1) == "-" )
redirect("alertpage.html?alert=3");
c_albaranes = database.cursor("SELECT * FROM albaranes,proveedores WHERE albaranes.nif=proveedores.nif and fecha_emision Between '" +
desde_fecha + "' and '"+ hasta_fecha + "' ORDER BY " + client.criteria);
}
} else if (request.search1) {
c_facturas = database.cursor("SELECT * FROM albaranes,proveedores WHERE albaranes.nif=proveedores.nif and "+ client.criteria +" MATCHES '" +
request.search1 + "' ORDER BY " + client.criteria);
} else if (request.f_orden) {
var criterio=""
if ( request.f_desde.length > 0 ) {
var f_desde=DateFormat(request.f_desde,NLDF);
if ( f_desde.substring(0,1) == "-" )
redirect("alertpage.html?alert=3");
criterio=" fecha_emision >= '"+f_desde+"' "
}
if ( request.f_hasta.length > 0 ) {
var f_hasta=DateFormat(request.f_hasta,NLDF);
if ( f_hasta.substring(0,1) == "-" )
redirect("alertpage.html?alert=3");
if (criterio.length > 0 )
criterio=criterio+" and "
criterio=criterio+" fecha_emision <= '"+f_hasta+"' "
}
if ( request.cod_centro.length > 0 ) {
if (criterio.length > 0 )
criterio=criterio+" and "
criterio=criterio+" cod_centro matches '"+request.cod_centro+"'"
}
if ( request.nif.length > 0 ) {
if (criterio.length > 0 )
criterio=criterio+" and "
criterio=criterio+" albaranes.nif matches '"+request.nif+"'"
}
if ( request.nro_reg.length > 0 ) {
if (criterio.length > 0 )
criterio=criterio+" and "
criterio=criterio+" albaranes.nro_reg matches '"+StringClip(true,request.nro_reg)+"'"
}
if ( request.razon_social.length > 0 ) {
if (criterio.length > 0 )
criterio=criterio+" and "
var razon_social=request.razon_social;
// var lowcaps = request.razon_social.toLowerCase();
// var uppercaps = request.razon_social.toUpperCase();
criterio=criterio+"razon_social matches '"+razon_social+"'"
}
c_albaranes = database.cursor("SELECT * FROM albaranes,proveedores WHERE albaranes.nif=proveedores.nif and "+ criterio +
" ORDER BY " + request.f_orden);
}
if (!c_albaranes)
DbsError(false,-1);
client.search1 = request.search1;
}
if(request.search2) {
if(request.search2 == "all") {
//Selecciono todos los albaranes, sin criterio
c_albaranes = database.cursor("SELECT * FROM albaranes,proveedores where albaranes.nif=proveedores.nif ORDER BY nro_reg ");
if (!c_albaranes)
DbsError(false,-1);
}
else {
//Selecciona todas las filas en las que el descripcion empieza con la letra elejida.
var lowcaps = request.search2.toLowerCase();
if (client.criteria == "razon_social" )
c_albaranes = database.cursor("SELECT * FROM albaranes,proveedores "+
" WHERE albaranes.nif=proveedores.nif and proveedores." +
client.criteria + " MATCHES '" + request.search2 + "*' OR proveedores." +
client.criteria +" MATCHES '" + lowcaps + "*'"+
" ORDER BY " + client.criteria);
else
c_albaranes = database.cursor("SELECT * FROM albaranes,proveedores "+
" WHERE albaranes.nif=proveedores.nif and albaranes." +
client.criteria + " MATCHES '" + request.search2 + "*' OR albaranes." +
client.criteria +" MATCHES '" + lowcaps + "*'"+
" ORDER BY " + client.criteria);
if (!c_albaranes)
DbsError(false,-1);
client.search2 = request.search2;
}
}
}
else {
if (!request.nro_reg && !request.fecha_emision ) {
request.multiple ="Múltiple";
}
}
if (request.fecha_emision) {
client.criteria="fecha_emision";
client.des_criteria="cuya fecha de emisión";
}
if (request.multiple ) {
client.criteria="multiple";
client.des_criteria="según criterio de búsqueda ";
}
writeln("');
criterio="criterio múltiple";
if ( client.criteria == "multiple")
criterio="criterio múltiple";
if ( client.criteria == "fecha_emision" )
criterio="por fecha emision";
if ( request.FrameType == "F" || request.FrameType == "T" ) {
writeln("");
}
if (!request.waux) {
if (request.gofunc) {
writeln('');
writeln('