rm ES/*
awk -F"^" ' 
{
	for (i=1;i<=NF;i++) if(i!=3) printf "%s^",$i
	else
	{
		x=split($3,a," ")
		printf "%s^",a[1]
		for(j=2;j<=x;j++) printf "%s ",a[j]
		printf "^"
	}
	print ""
} '  GRAFICA | sort -t"^" -k1,2 -k8,8 | tee BSS |
awk  -F"^" ' BEGIN {
m["CM"]="08"
m["CLP"]="07"
m["LT"]="06"
m["MIN"]="05"
m["CU"]="04"
m["M2"]="02"
m["M"]="01"
m["CM2"]="03"
}
$2!=ant {
if( ant!="") print "" >file
file="ES/B"NR
c=0
ant=$2
print "H01"ant > file
print "H02"$3" "$4 > file
print "H03"m[$5] > file
print "H0500" > file
}
$2==ant {
printf "D%.2d00%s\n",c,$4 > file
printf "D%.2d01%s\n",c,$9 > file
printf "D%.2d02%s\n",c,$6 > file
printf "D%.2d03%s\n",c,$7" "$4 > file
c++
} END { print "" >file }
 ' -
>../data/grafi/H
>../data/grafi/HEAD
>../data/grafi/DOC
echo -n "    0     0">../data/grafi/INFO

for i in ES/*
do
../ihd/bin/ihmu grafi ../../import/$i -N1
done
exit
BASE^ACE^ACERO 304 ^CM2^3^08/19/2015^1.2^100X300
BASE^ACE^ACERO 304 BRUñIDO ^CM2^6^09/16/2015^1.5^100X300
BASE^ACE^ACERO 304 DIMENSIONADA ^CM2^3.6^01/30/2018^1.5^100X300
BASE^ACE^ACERO 304 ^CM2^2.516^08/18/2015^1^100X300
BASE^ACE^ACERO 304 ^CM2^4.15^08/18/2015^2^100X300
BASE^ACE^ACERO 304 ^CM2^7^06/04/2013^4^100X300
BASE^ACE^ACERO 316 ^CM2^2.84^10/15/2014^1^100X300
