//*****************************************************************************
// Contenido : Listado de licencias en vigor. Funciones
// Proyecto  : Federación Andaluza de los Deportes Aéreos (FEADA)
//             Internet Web Site v/1.00
// Observs.  : -
//
// Creada    : Jue-02-May-2002 / Federico Murcia (FMD)
// Actualiz. : Jue-19-Ene-2006 / Federico Murcia (FMD)
// Copyright : PATA NEGRA Soft - Oct 2000 - Sevilla (SPAIN)
//*****************************************************************************


// *******************************************************************************
// Funcion   : Código principal
// Parametros: -
// Devuelve  : -
//
// Creada    : Jue-02-May-2002 / Federico Murcia (FMD)
// Actualiz. : Jue-19-Ene-2006 / Federico Murcia (FMD)
// Observ.   : -
// *******************************************************************************
function main()
{
	var aAux     = '';
	var sBuf     = '';
	var uQS      = GetQSFromWeb('');
	var sChar    = '';

	if(uQS.PrmExist('char'))
		sChar = uQS.PrmGetVal('char');

	// Lista de enlaces por letra + todos
	if(!uQS.PrmExist('ToPrint'))
	{
		// A..Z Alfabeto inglés
		for(var nAux = 65; nAux < 91; nAux++)
		{
			sBuf += '<a href=javascript:loadPage("' + String.fromCharCode(nAux) + '")>&nbsp;';
			sBuf += String.fromCharCode(nAux);
			sBuf += '&nbsp;</a>&nbsp;';
		}

		sBuf =	'' +
							'<form name="FltForm" method="POST">' +
								'<center>' +
									'<table border="0" cellspacing="0" cellpadding="4" align="center">' +
										'<tr>' +
											'<td  align="center" valign="middle" class="CONT01TxtSmall">' +
												sBuf +
												// Listado de todas las licencias
												'&nbsp;&nbsp;&nbsp;<a href=javascript:loadPage("All")>Todas</a>' +
											'</td>' +
										'</tr>' +

										/* ZZ Si despues de un tiempo no se echa de menos, borrar.
										'<tr>' +
											'<td  align="center" valign="middle" class="CONT01TxtSmall">' +
												// ÁÉÍÓÚ : Un fallo en el parámetro LOCALE del CGI obliga  ahacerlo así o recompilarlo
												'&nbsp;&nbsp;&nbsp;<a href=javascript:loadPage("Á")>&Aacute;</a>' +
												'&nbsp;&nbsp;&nbsp;<a href=javascript:loadPage("É")>&Eacute;</a>' +
												'&nbsp;&nbsp;&nbsp;<a href=javascript:loadPage("Í")>&Iacute;</a>' +
												'&nbsp;&nbsp;&nbsp;<a href=javascript:loadPage("Ó")>&Oacute;</a>' +
												'&nbsp;&nbsp;&nbsp;<a href=javascript:loadPage("Ú")>&Uacute;</a>' +
											'</td>' +
										'</tr>' +
										*/

									'</table>' +
								'</center>' +
							'</form>' +
					'<hr width="85%">' +
					'';
	}

	if(uLICELst.length == 0 )
	{
		// Si no se ha mandado ninguna letra o pedido todas
		if(sChar == '')
		{
			sBuf +=	'' +
						'<center>' +
								'Seleccione una letra para listar las licencias de deportistas cuyo apellido empieza por ella,<br>' +
								'o selecciones "Todas" en cuyo caso se listarán todas las licencias, con independencia del apellido.<p>' +
						'</center>' +
						'';
		}
		// Si no han y deportistas de la letra pedida
		else
		{
			sBuf +=	'' +
						'&nbsp;<p>' +
						'&nbsp;<p>' +
						'<center>' +
							'<font face="Arial" size="2" color="#000080">' +
								'No hay licencias en vigor de deportistas cuyo apellido empiece por la letra&nbsp;&nbsp;' +
								'<font face="Arial" size="5" color="#000080">' +
									'<b>' + sChar + '</b>' +
								'</font>' +
								',<br> o el sistema está en mantenimiento.' +
							'</font>' +
						'</center>' +
						'';
		}
	}

	// Si hay deportistas de la letra pedida o se listan todos
	else
	{
		// Identificador de listado de todas las licencias en vigor
		if(sChar == 'All')
			sBuf +=	'' +
						'<font face="Arial" size="2" color="#000080">' +
							'<font face="Arial" size="5" color="#000080">' +
								'<b>Todas</b>' +
							'</font>' +
							' las licencias en vigor.' +
							'&nbsp;&nbsp;&nbsp;&nbsp;(&nbsp;<b>' + uLICELst.length + '</b>&nbsp;en total&nbsp;).' +
						'</font>' +
						'<br>' +
						'';

		// Identificador de listado las licencias en vigor de los deportistas cuyo apellido empieza por la letra "sChar"
		else
			sBuf +=	'' +
						'<font face="Arial" size="2" color="#000080">' +
							'Licencias en vigor de los deportistas cuyo apellido empieza por la letra&nbsp;&nbsp;' +
							'<font face="Arial" size="5" color="#000080">' +
								'<b>' + sChar + '</b>' +
							'</font>' +
							'.' +
							'&nbsp;&nbsp;&nbsp;&nbsp;(&nbsp;<b>' + uLICELst.length + '</b>&nbsp;en total&nbsp;).' +
						'</font>' +
						'<br>' +
						'';

		// Fecha de actualización del listado e inicio del formateo de la lista de enlaces
		sBuf +=	'' +
					'<font face="Arial" size="2" color="#000080">' +
						'Fecha y hora de actualización de los datos:&nbsp;&nbsp;' +
						'<font face="Arial" size="3" color="#000080">' +
							'<b>' + getDateFmt(new Date()) + '&nbsp;&nbsp;' + getTimeFmt(new Date()) + '</b>' +
						'</font>' +
						'.' +
					'</font>' +
					'<p>' +
					'';

		// Cabecera de las columnas de datos
		sBuf +=	'' +
					'<table border="0" cellspacing="0" cellpadding="0">' +
						'<tr>' +
							'<td valign="middle" align="center" bgcolor="#C0C0C0">' +
								'<font face="Arial" size="1" color="#000080">' +
									'<b>Apelidos y Nombre</b>' +
								'</font>' +
							'</td>' +
							'<td valign="middle" align="center" width="4">&nbsp;</td>' +
							'<td valign="middle" align="center" bgcolor="#C0C0C0">' +
								'<font face="Arial" size="1" color="#000080">' +
									'<b>Tramitada por</b>' +
								'</font>' +
							'</td>' +
							'<td valign="middle" align="center" width="4">&nbsp;</td>' +
							'<td valign="middle" align="center" bgcolor="#C0C0C0">' +
								'<font face="Arial" size="1" color="#000080">' +
									'<b>Licencia tipo</b>' +
								'</font>' +
							'</td>' +
							'<td valign="middle" align="center" width="4">&nbsp;</td>' +
							'<td valign="middle" align="center" bgcolor="#C0C0C0">' +
								'<font face="Arial" size="1" color="#000080">' +
									'<b>Bipl</b>' +
								'</font>' +
							'</td>' +
							'<td valign="middle" align="center" width="4">&nbsp;</td>' +
							'<td valign="middle" align="center" bgcolor="#C0C0C0">' +
								'<font face="Arial" size="1" color="#000080">' +
									'<b>RFAE</b>' +
								'</font>' +
							'</td>' +
							'<td valign="middle" align="center" width="4">&nbsp;</td>' +
							'<td valign="middle" align="center" bgcolor="#C0C0C0">' +
								'<font face="Arial" size="1" color="#000080">' +
									'<b>Val.Desde</b>' +
								'</font>' +
							'</td>' +
							'<td valign="middle" align="center" width="4">&nbsp;</td>' +
							'<td valign="middle" align="center" bgcolor="#C0C0C0">' +
								'<font face="Arial" size="1" color="#000080">' +
									'<b>Val.Hasta</b>' +
								'</font>' +
							'</td>' +
							'<td valign="middle" align="center" width="4">&nbsp;</td>' +
							'<td valign="middle" align="center" bgcolor="#C0C0C0">' +
								'<font face="Arial" size="1" color="#000080">' +
									'<b>Número</b>' +
								'</font>' +
							'</td>' +
						'</tr>' +
						'<tr>' +
							'<td colspan="18" align="right" valign="bottom">' +
								'<hr>' +
							'</td>' +
						'</tr>' +
					'';

		document.write(sBuf);

		if(!uQS.PrmExist('ToPrint'))

		sBuf = '';

		// Coloración de fondo de lineas de listado. Variables de control
		// ---------------------------------------------------------------------- CtrlBackColor: Ini ---
		var sBC0 = '#FFFFFF';               // Color claro  (0)
		var sBC1 = '#DDDDDD';               // Color oscuro (1)
		var nBC0 = 1;                       // Cuantas linea seguidas con fondo claro  (0)
		var nBC1 = 1;                       // Cuantas linea seguidas con fondo oscuro (1)
		var bBCc = 1;                       // Color en curso. "Switch" y Primer color a usar
		var nBCc = 0;                       // Color en curso. Contador
		var sBCc = (!bBCc ? sBC0 : sBC1);   // Color en curso. Color
		// ---------------------------------------------------------------------- CtrlBackColor: End ---

		for(var nAux = 0; nAux < uLICELst.length; nAux++)
		{
			// Coloración de fondo de lineas de listado. Gestion
			// ------------------------------------------------------------------- CtrlBackColor: Ini ---
			nBCc++;                                                                                   //-
			if(!bBCc)                                                                                 //-
			{                                                                                         //-
				if(nBCc > nBC0)                                                                        //-
				{                                                                                      //-
					bBCc = true;                                                                        //-
					nBCc = 1;                                                                           //-
					sBCc = sBC1;                                                                        //-
				}                                                                                      //-
			}                                                                                         //-
			else if(nBCc > nBC1)                                                                      //-
			{                                                                                         //-
				bBCc = false;                                                                          //-
				nBCc = 1;                                                                              //-
				sBCc = sBC0;                                                                           //-
			}                                                                                         //-
			// ------------------------------------------------------------------- CtrlBackColor: End ---

			sBuf +=	'' +
						'<tr>' +
							'<td valign="top" align="left" bgcolor="' + sBCc + '">' +
								'<span class="CONT01TxtSmallX">' +
									noSoftSpaces(uLICELst[nAux].sDEPOApe1 + ' ' + uLICELst[nAux].sDEPOApe2 + ', ' + uLICELst[nAux].sDEPONomb) +
								'</span>' +
							'</td>' +
							'<td valign="middle" align="center" width="4" bgcolor="' + sBCc + '">&nbsp;</td>' +
							'<td valign="top" align="left" bgcolor="' + sBCc + '">' +
								'<span class="CONT01TxtSmallX">' +
									noSoftSpaces(uLICELst[nAux].sCLUBRSoc) +
								'</span>' +
							'</td>' +
							'<td valign="middle" align="center" width="4" bgcolor="' + sBCc + '">&nbsp;</td>' +
							'<td valign="top" align="left" bgcolor="' + sBCc + '">' +
								'<span class="CONT01TxtSmallX">' +
									noSoftSpaces(uLICELst[nAux].sLICETpDesc) +
								'</span>' +
							'</td>' +
							'<td valign="middle" align="center" width="4" bgcolor="' + sBCc + '">&nbsp;</td>' +
							'<td valign="top" align="center" bgcolor="' + sBCc + '">' +
								'<span class="CONT01TxtSmallX">' +
									uLICELst[nAux].sLICEBipl +
								'</span>' +
							'</td>' +
							'<td valign="middle" align="center" width="4" bgcolor="' + sBCc + '">&nbsp;</td>' +
							'<td valign="top" align="center" bgcolor="' + sBCc + '">' +
								'<span class="CONT01TxtSmallX">' +
									uLICELst[nAux].sLICENaci +
								'</span>' +
							'</td>' +
							'<td valign="middle" align="center" width="4" bgcolor="' + sBCc + '">&nbsp;</td>' +
							'<td valign="top" align="right" bgcolor="' + sBCc + '">' +
								'<span class="CONT01TxtSmallX">' +
									getDateFmt3(uLICELst[nAux].dLICEValIni) +
								'</span>' +
							'</td>' +
							'<td valign="middle" align="center" width="4" bgcolor="' + sBCc + '">&nbsp;</td>' +
							'<td valign="top" align="right" bgcolor="' + sBCc + '">' +
								'<span class="CONT01TxtSmallX">' +
									getDateFmt3(uLICELst[nAux].dLICEValFin) +
								'</span>' +
							'</td>' +
							'<td valign="middle" align="center" width="4" bgcolor="' + sBCc + '">&nbsp;</td>' +
							'<td valign="top" align="left" bgcolor="' + sBCc + '">' +
								'<span class="CONT01TxtSmallX">' +
									uLICELst[nAux].sLICENum +
								'</span>' +
							'</td>' +
						'</tr>' +
						'';

			document.write(sBuf);
			sBuf = '';
		}

		// Cierre del listado
		sBuf +=	'' +
						'<tr>' +
							'<td colspan="18" align="right" valign="bottom">' +
								'<hr>' +
							'</td>' +
						'</tr>' +
					'</table>' +
					'';
	}

	// Escritura del buffer
	document.write(sBuf);
}


// *******************************************************************************
// Funcion   : Carga del array de licencias en vigor de la letra especificada
//             o todos
// Parametros: -
// Devuelve  : -
//
// Creada    : Jue-23-May-2002 / Federico Murcia (FMD)
// Actualiz. : Mar-22-Jun-2003 / Federico Murcia (FMD)
// Observ.   : -
// *******************************************************************************
function getLICELst()
{
	var uQS   = GetQSFromWeb('');
	var sPrm  = "instance=/_Sys/Dat/fede_0200/sys/instance_real.ini&operation=LiceList";
	var sCGI  = '/_sys/cgi/fede_0200/exe/fedecgi.exe';

	if(uQS.PrmExist('char'))
		sPrm += '&char=' + uQS.PrmGetVal('char');
	else
		return;

	PNSInclude( sCGI + '?' + sPrm );
}


// *******************************************************************************
// Funcion   : Ejecución del enlace de letra capturando el posible filtro
// Parametros: 1. (s) Letra
// Devuelve  : -
//
// Creada    : Mar-25-Jun-2002 / Federico Murcia (FMD)
// Actualiz. : Mar-22-Jun-2003 / Federico Murcia (FMD)
// Observ.   : -
// *******************************************************************************
function loadPage( sChar )
{
	sPrm = '';

	sPrm += (sChar != '' ? '&char=' + sChar : '');

	window.location.href = '/licencias/envigor.htm?' + sPrm;
}