var NF9=""
var NF10=""
var HOY=new Date();
var linea="";
// Algunos formatos para fechas.
var NLDF=""; // para columnas en las queries INFORMIX
var baseHtml="";
dbAcl();
if (request.gofunc)
writeln(' ');
writeln('');
writeln('');
writeln("');
if(request.search1 || request.search2 || request.desde || request.hasta || request.f_orden) {
if (!request.gofunc) {
dbConnect();
// if(request.search1 || request.desde || request.hasta || request.multiple || request.f_orden) {
//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_facturas = database.cursor("SELECT * FROM facturas,proveedores WHERE facturas.nif=proveedores.nif and "+ client.criteria +" Between '" +
desde_fecha + "' and '"+ hasta_fecha + "' ORDER BY " + client.criteria);
}
else if (request.search1) {
c_facturas = database.cursor("SELECT * FROM facturas,proveedores WHERE facturas.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=" f_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+" f_emision <= '"+f_hasta+"' "
}
if ( request.v_desde.length > 0 ) {
var v_desde=DateFormat(request.v_desde,NLDF);
if ( v_desde.substring(0,1) == "-" )
redirect("alertpage.html?alert=3");
if (criterio.length > 0 )
criterio=criterio+" and "
criterio=criterio+" vto_pago >= '"+v_desde+"' "
}
if ( request.v_hasta.length > 0 ) {
var v_hasta=DateFormat(request.v_hasta,NLDF);
if ( v_hasta.substring(0,1) == "-" )
redirect("alertpage.html?alert=3");
if (criterio.length > 0 )
criterio=criterio+" and "
criterio=criterio+" vto_pago <= '"+v_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+" facturas.nif matches '"+request.nif+"'"
}
if ( request.nro_fra.length > 0 ) {
if (criterio.length > 0 )
criterio=criterio+" and "
criterio=criterio+" facturas.nro_fra matches '"+request.nro_fra+"'"
}
if ( request.nro_regn.length > 0 ) {
if (criterio.length > 0 )
criterio=criterio+" and "
criterio=criterio+" facturas.nro_reg matches '"+StringClip(true,request.nro_regy)+StringClip(true,request.nro_regn)+"'"
}
if ( request.h_mes_fra.length > 0 ) {
if (criterio.length > 0 )
criterio=criterio+" and "
criterio=criterio+" facturas.mes >= '"+request.d_mes_fra+"' and facturas.mes <= '"+request.h_mes_fra+"'"
} else {
if ( request.d_mes_fra.length > 0 ) {
if (criterio.length > 0 )
criterio=criterio+" and "
criterio=criterio+" facturas.mes matches '"+request.d_mes_fra+"'"
}
}
if ( request.h_nro_doc_pago.length > 0 ) {
if (criterio.length > 0 )
criterio=criterio+" and "
criterio=criterio+" facturas.nro_doc_pago >= '"+request.d_nro_doc_pago+"' and facturas.nro_doc_pago <= '"+request.h_nro_doc_pago+"'"
} else {
if ( request.d_nro_doc_pago.length > 0 ) {
if (criterio.length > 0 )
criterio=criterio+" and "
criterio=criterio+" facturas.nro_doc_pago matches '"+request.d_nro_doc_pago+"'"
}
}
if ( request.h_nro_reg_vton.length > 0 ) {
if (criterio.length > 0 )
criterio=criterio+" and "
criterio=criterio+" facturas.nro_reg_vto >= '"+StringClip(true,request.d_nro_reg_vtoy)+StringClip(true,request.d_nro_reg_vton)+"' and facturas.nro_reg_vto <= '"+StringClip(true,request.h_nro_reg_vtoy)+StringClip(true,request.h_nro_reg_vton)+"'"
} else {
if ( request.d_nro_reg_vton.length > 0 ) {
if (criterio.length > 0 )
criterio=criterio+" and "
criterio=criterio+" facturas.nro_reg_vto matches '"+StringClip(true,request.d_nro_reg_vtoy)+StringClip(true,request.d_nro_reg_vton)+"'"
}
}
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_facturas = database.cursor("SELECT * FROM facturas,proveedores WHERE facturas.nif=proveedores.nif and "+ criterio +
" ORDER BY " + request.f_orden);
}
if (!c_facturas)
DbsError(false,-1);
client.search1 = request.search1;
}
if(request.search2) {
if(request.search2 == "all") {
//Selecciono todos los facturas, sin criterio
c_facturas = database.cursor("SELECT * FROM facturas,proveedores where facturas.nif=proveedores.nif ORDER BY nro_reg ");
if (!c_facturas)
DbsError(false,-1);
}
else {
//Selecciona todas las filas en las que el descripcion empieza con la letra elejida.
var lowcaps = request.search2.toLowerCase();
c_facturas = database.cursor("SELECT * FROM facturas f,proveedores "+
" WHERE facturas.nif=proveedores.nif and "
+ client.criteria + " MATCHES '" + request.search2 + "*' OR " +
client.criteria +" MATCHES '" + lowcaps + "*'"+
" ORDER BY " + client.criteria);
if (!c_facturas)
DbsError(false,-1);
}
client.search2 = request.search2;
}
// }
}
else {
if (!request.nro_reg && !request.f_emision && !request.nif && !request.cod_centro ) {
request.multiple ="Múltiple";
}
}
if (request.fecha_emision) {
client.criteria="f_emision";
client.des_criteria="cuya fecha de emisión";
}
if (request.vto_pago) {
client.criteria="vto_pago";
client.des_criteria="cuyo vto. de pago";
}
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 == "f_emision" )
criterio="por fecha emision";
if ( client.criteria == "vto_pago" )
criterio="por vto. de pago";
if ( request.FrameType == "F" || request.FrameType == "T" ) {
writeln("");
}
if (!request.waux) {
if (request.gofunc) {
writeln('');
writeln('