awk -F= 'BEGIN { 
T["00"]="ID"
T["01"]="NOMBRE"
T["02"]="APELLIDOS"
T["03"]="FECHA NACIMIENTO"
T["04"]="EDAD"
T["05"]="SEXO"
T["06"]="DIRECCIóN"
T["07"]="CIUDAD"
T["08"]="ESTADO"
T["09"]="CóDIGO POSTAL"
T["10"]="TELéFONO CASA"
T["11"]="TELéFONO MóVIL"
T["12"]="E-MAIL"
T["13"]="CONTACTO EMERGENCIA"
T["14"]="RELACIóN"
T["15"]="TELéFONO EMERGENCIA"
T["16"]="SERVIDOR"
T["17"]="GRUPO FAMILIAR"
T["18"]="NOMBRE DEL LíDER"
T["19"]="RED SOCIAL"
T["20"]="PAíS DE NACIMIENTO"
T["21"]="PADRES"
T["22"]="EST. CIVIL"
T["23"]="CóNYUGE"
T["24"]="DOB CóNYUGE"
T["25"]="EDAD"
T["26"]="ANIVERSARIO"
T["27"]="CANTIDAD DE HIJOS"
T["28"]="CóNYUGE EN PROCESO?"
T["29"]="EDP CóNYUGE"
T["30"]="CONSEJERíA?"
T["31"]="MOTIVO"
T["32"]="ORACIóN?"
T["33"]="MOTIVO"
T["34"]="FOTOGRAFíA"
T["35"]="NOMBRE DE LOS HIJOS"
T["36"]="NOTAS"
T["37"]="INVITADO POR"
T["38"]="FECHA"
T["39"]="CONSOLIDADOR"
T["40"]="CARTA?"
T["41"]="ASISTE A UN GAL?"
T["42"]="GAL"
T["43"]="LíDERES GAL"
T["44"]="NIVEL GAL"
T["45"]="ETAPA DEL PROCESO"
T["46"]="FECHA REFERENCIA"
T["47"]="NUEVO STATUS"
T["48"]="PROCESO"
T["49"]="NOTAS AL PROCESO"
T["50"]="FECHA"
T["51"]="REVISOR"
T["52"]="STATUS"
	printf "%s^",T["00"]
}
substr($1,1,6)=="fdavcD" && substr($1,1,8)!="fdavcD00"  { next }
$2!="" && substr($1,1,6)=="fdavcH" {
        if(substr($1,length($1)-1)!="00")
        {
                x=substr($1,length($1)-1)
                printf "%s^",T[x]
        }
}
$2!="" && substr($1,1,6)=="fdavcD" {
                printf "%s^",T[NR-1]
}
END {
	print ""
} ' $1 |
 awk -F"^" ' BEGIN {ttop("Consulta de Datos en GAL IGLESIA FUENTE DE AGUA VIVA");bgcolor="#FFFFFF"}
NR==1 { for (i=1; i<NF; i++) labels($i)
print "</tr>"
next
}
{ for (i=1; i<NF; i++)if (i==1) boton($i)
else label($i)
print "</tr>"
if (NR%2==0 ) bgcolor="#E1E1E1"
else bgcolor="#FFFFFF"
}
END { foot() } 
function boton(value)
{
	print "<td bgcolor=\"#E1E1E1\">"
printf "<p><input type=\"submit\" style=\"width: 120\" value=\"%s\" name=\"T02\"></p>\n",value
print "</td>"
}
function label(value)
{
printf "<td bgcolor=\"%s\">",bgcolor
printf "<p align=\"center\"><font face=\"Arial\" size=\"3\">&nbsp;%s&nbsp;</font></p>\n",value
print "</td>"
}
function labels(value)
{
print "<td bordercolor=\"#C0C0C0\" bgcolor=\"#003399\" align=\"center\">"
printf "<p align=\"center\"><b><font color=\"#FFFFFF\">%s</font></b></p>\n",value
print "</td>"
}
function ttop(value)
{
print "<html>"
print "<head>"
print "<meta http-equiv=\"Content-Type\" content=\"text/html; charset=windows-1252\">"
print "<meta name=\"GENERATOR\" content=\"Inhedo 4gt 1.0\">"
print "<meta name=\"ProgId\" content=\"Inhedo Form Generator\">"
printf "<title>%s</title>\n",value
print "</head>"
print "<center>"
print "<body bgcolor=\"#D0D0DF\">"
print "<p align=\"center\"><img border=\"0\" src=\"../logol.png\" width=\"200\" height=\"97\"></p>"
printf "<H1>GAL IGLESIA FUENTE DE AGUA VIVA</H1>\n"
print "<form method=\"post\" action=\"../cgi-bin/fdavcbsc.cgi\" name=billform>"
print "<center>"
print "<table border=\"1\" cellspacing=\"0\" cellpadding=\"0\" bordercolor=\"#999999\" height=\"50\">"
printf "<input type=\"hidden\" value=\"Query\" name=\"B1\">\n"
print "<tr>"
print "</center>"
}
function foot()
{
print "</table>"
print "</center>"
print "</form>"
print "<b>"NR -1 " Registros encontrados</b>"
print "</body>"
print "</html>"
} ' - $2
awk ' BEGIN {
print "</body>"
print "</form>"
print "<form method=\"GET\" action=\"../fdavc.htm\">"
printf "<p align=\"center\"><input type=\"submit\" value=\"Continuar\" name=\"B1\" style=\"width: 200; height: 50; font-weight: bold; font-size: 18pt\"></p>\n"
print "</form>"
print "</body>"
print "</html>"
exit } ' - $2
