T1=$1
awk -F"^" ' BEGIN { ret=sprintf("%c",13) } 
{
split($0,a,"=")
	if(index(a[2],ret))
	{
		r=split(a[2],b,ret)
		a[2]=b[1]
		for(i=2;i<=r;i++) a[2]=a[2]"<br>&nbsp;"b[i]
	}
	if(index(a[2],"|"))
	{
		r=split(a[2],b,"|")
		a[2]="&nbsp;"b[1]
		for(i=2;i<=r;i++) a[2]=a[2]"<br>&nbsp;"b[i]
	}
	print a[1]"^"a[2]
 }
' $T1 > Onc
x=`egrep wrkorH09 Onc | awk '{ print substr($0,10) } '`
vend=`(cd ..;$APPLDIR/sh/assoc $x | awk -F"^" ' { print $2 } ' ) `
echo "wrkorH09^"$vend >>Onc
x=`egrep wrkorH10 Onc | awk '{ print substr($0,10) } '`
vend=`(cd ..;$APPLDIR/sh/assoc $x | awk -F"^" ' { print $2 } ' ) `
echo "wrkorH10^"$vend >>Onc
awk -F"^" ' 
FILENAME==ARGV[1] { enc[$1]=$2; next } 
NF>1 { printf $2"\n","&nbsp;"enc[$1] ; next }
{ print }
' Onc WORKORDER_archivos/HEAD > WORKORDER_archivos/sheet001.htm
awk -F"^" '
/wrkorD..03/ { enc["wrkorD"substr($1,7,2)"01"]=enc["wrkorD"substr($1,7,2)"01"]"<br>"$2 }
/wrkorD/ { 
if (r!=substr($1,6,3) ) { r=substr($1,6,3);rg++;enc[$1]=$2 }
 else enc[$1]=$2
 next }
function punto (dat,dec)
{
        if (dat+0==0) return ""
        sig=""
        if(dat<0)
        {
                dat *= -1
                sig="-"
        }
        pun=sprintf("%%.%df",dec)
        da=sprintf (pun,dat)
        if(dec) l=length(da)-dec-1
        else l=length(da)
        dat=substr(da,l+2)
        dato=substr(da,1,l)
        if (l>9) pun=substr(dato,1,l-9)"."substr(dato,l-8,3)"."substr(dato,l-5,3)"."substr(dato,l-2)
        else if (l>6) pun=substr(dato,1,l-6)"."substr(dato,l-5,3)"."substr(dato,l-2)
        else if(l >3) pun=substr(dato,1,l-3)"."substr(dato,l-2)
        else pun=dato
        if (dec) pun=pun","dat
        return sig""pun
}
END {
	k=rg%2
	if(k) rg++
	if (rg <16) rg=14
	for (i=0;i<rg;i++)
	{
		file="WORKORDER_archivos/DOC"i%2
		while ((getline < file) > 0)
		if (NF>1)
		{
			r=sprintf($1,i)
			cc=substr(r,9)+0
			if(cc >1) printf $2"\n",punto(enc[r])"&nbsp;&nbsp;"
			else printf $2"\n",enc[r]"&nbsp;&nbsp;"
		}
		else print
		close(file)
	}
}
' Onc >> WORKORDER_archivos/sheet001.htm
awk -F"^" '
function punto (dat,dec)
{
        if (dat+0==0) return ""
        sig=""
        if(dat<0)
        {
                dat *= -1
                sig="-"
        }
        pun=sprintf("%%.%df",dec)
        da=sprintf (pun,dat)
        if(dec) l=length(da)-dec-1
        else l=length(da)
        dat=substr(da,l+2)
        dato=substr(da,1,l)
        if (l>9) pun=substr(dato,1,l-9)"."substr(dato,l-8,3)"."substr(dato,l-5,3)"."substr(dato,l-2)
        else if (l>6) pun=substr(dato,1,l-6)"."substr(dato,l-5,3)"."substr(dato,l-2)
        else if(l >3) pun=substr(dato,1,l-3)"."substr(dato,l-2)
        else pun=dato
        if (dec) pun=pun","dat
        return sig""pun
}
FILENAME==ARGV[1] {
	enc[$1]=$2
	next
} 
NF>1 {printf $2"\n",enc[$1]"&nbsp;&nbsp;" 
 next
}
{ print }
' Onc WORKORDER_archivos/FOOT >> WORKORDER_archivos/sheet001.htm
