cliok=./tmp1/cliok
docvt=./tmp1/docvt
prods=./tmp1/prods
prods=./tmp1/prods
corte=./tmp1/cguia.c
fa=$docvt.fa
fb=$docvt.fb
fc=$docvt.fc
fd=$docvt.fd

awk -F^ '
FILENAME==ARGV[1] {corte=$1;next }
FILENAME==ARGV[2] {
kdf[$2"^"$4]+=$6
vdf[$2"^"$4]+=$7
if(ant!=$3) {fdc[$2]++; fd[$2]=fd[$2]" "$3 ; if(!(fdc[$2]%5)) fd[$2]=fd[$2]"&nbsp;<br>&nbsp;"}
ant=$3
}
FILENAME==ARGV[3] {
clp[$2"^"$4]=1
kdf[$2"^"$4]+=$6
vdf[$2"^"$4]+=$7
if(ant!=$3) {fdc[$2]++; fd[$2]=fd[$2]" "$3 ; if(!(fdc[$2]%5)) fd[$2]=fd[$2]"&nbsp;<br>&nbsp;"}
ant=$3
}
FILENAME==ARGV[4] {
clp[$2"^"$4]=1
kdf[$2"^"$4]+=$6
vdf[$2"^"$4]+=$7
if(ant!=$3) {gfc[$2]++; gf[$2]=gf[$2]" "$3 ; if(!(gfc[$2]%5)) gf[$2]=gf[$2]"&nbsp;<br>&nbsp;"}
ant=$3
}
FILENAME==ARGV[5] {
clp[$2"^"$4]=1
kgp[$2"^"$4]+=$6
vgp[$2"^"$4]+=$7
if(ant!=$3) {gpf[$2]++; gp[$2]=gp[$2]" "$3 ; if(!(gpf[$2]%5)) gp[$2]=gp[$2]"&nbsp;<br>&nbsp;"}
ant=$3
}
END {
for (i in clp)
{
	cli=substr(i,1,6)
	if(cla[cli]=="") 
	{
		cla[cli]=1
		#print substr(fd[cli],length(fd[cli])-4),substr(fd[cli],1,length(fd[cli])-10) >"/dev/tty"
		if(substr(fd[cli],length(fd[cli])-4)=="nbsp;") fd[cli]=substr(fd[cli],1,length(fd[cli])-10)
		if(substr(gf[cli],length(gf[cli])-4)=="nbsp;") gf[cli]=substr(gf[cli],1,length(gf[cli])-10)
		if(substr(gp[cli],length(gp[cli])-4)=="nbsp;") gp[cli]=substr(gp[cli],1,length(gp[cli])-10)
		if(fd[cli]!="") print cli"^D^"fd[cli] 
		else print cli"^D^"
		if(gf[cli]!="") print cli"^F^"gf[cli]
		else print cli"^F^"
		if(gp[cli]!="") print cli"^P^"gp[cli]
		else print cli"^P^"
	}
}
for (i in clp)
{

	if(kdf[i]) print i"^F^"kdf[i]"^"vdf[i]/kdf[i]"^"vdf[i]
	else print i"^D^0^0^0"
	#if(kgf[i]) print i"^F^"kgf[i]"^"vgf[i]/kgf[i]"^"vgf[i]
	#else print i"^F^0^0^0"
	if(kgp[i]) print i"^P^"kgp[i]"^"vgp[i]/kgp[i]"^"vgp[i]
	else print i"^P^0^0^0"
}

} 
' $corte $fa $fb $fc $fd | sort >$docvt.t
awk -F^ '
FILENAME == ARGV[1] {cliok[$1]=$3"^"$2; next }
FILENAME == ARGV[2] {prods[$1]=$2; next }
NF==3 { cl[$1]=1;l1[$1"^"$2]=$3; next }
{ l1[$1"^"$2]=$4
l2[$1"^"$2"^"$3]=$4"^"$5"^"$6}

END {
for (i in cl) 
printf "%s^ %s^^^^%s^%s\n",cliok[i],l1[i"^P"],l1[i"^F"],l1[i"^D"]
for (i in l1) if(l2[i"^P"])
printf "%s^%s^%s^%s^^%s\n",cliok[substr(i,1,6)],prods[substr(i,8)],l2[i"^P"],prods[substr(i,8)],l2[i"^F"],l2[i"^D"]

}
' $cliok $prods $docvt.t




exit


::::::::::::::
tmp1/docvt.fa
::::::::::::::
06/11/2022^000026^806^
::::::::::::::
tmp1/docvt.fb
::::::::::::::
09/11/2022^000026^813^000001^1600^10^16000^
::::::::::::::
tmp1/docvt.fc
::::::::::::::
01/11/2022^000026^1285^000002^892.5^10^8925^806-813-
01/11/2022^000026^1285^000003^892.5^20^17850^806-813-
02/11/2022^000026^1294^000002^892.5^10^8925^806-813-
02/11/2022^000026^1294^000003^892.5^30^26775^806-813-
02/11/2022^000026^1299^000002^892.5^10^8925^806-813-
03/11/2022^000026^1306^000002^892.5^10^8925^806-813-
03/11/2022^000026^1306^000003^892.5^30^26775^806-813-
04/11/2022^000026^1319^000003^892.5^30^26775^806-813-
05/11/2022^000026^1325^000002^892.5^10^8925^806-813-
05/11/2022^000026^1325^000003^892.5^60^53550^806-813-
06/11/2022^000026^1331^000003^892.5^30^26775^806-813-
::::::::::::::
tmp1/docvt.fd
::::::::::::::
08/11/2022^000026^1346^000002^892.5^10^8925^
08/11/2022^000026^1346^000003^892.5^20^17850^
09/11/2022^000026^1352^000002^892.5^20^17850^
09/11/2022^000026^1352^000003^892.5^20^17850^
10/11/2022^000026^1363^000002^892.5^10^8925^
10/11/2022^000026^1363^000003^892.5^10^8925^
11/11/2022^000026^1379^000003^892.5^20^17850^
12/11/2022^000026^1388^000002^892.5^20^17850^
12/11/2022^000026^1388^000003^892.5^60^53550^
tamblayo@tamblay.org [~]#


